Correzioni varie
git-svn-id: svn://10.65.10.50/trunk@3028 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
ad35c4e4dc
commit
3b963dab14
@ -92,7 +92,7 @@ BEGIN
|
||||
OUTPUT SPF_CAUSD1 S3
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
END
|
||||
|
||||
NUMBER F_PERC_INPS 6
|
||||
|
@ -893,6 +893,7 @@ real TSchedaPercipienti::calcola_imponibile(TMask_field& f, const real& compenso
|
||||
real rPercCassaPrev=ZERO;
|
||||
rPercCassaPrev = mm.get_real(F_CASSA_PREV);
|
||||
imponibile_calcolato = (imponibile_calcolato / (100.00 + rPercCassaPrev)) * 100.00;
|
||||
imponibile_calcolato.trunc();
|
||||
}
|
||||
|
||||
TString impost(imponibile_calcolato.string());
|
||||
@ -923,6 +924,7 @@ real TSchedaPercipienti::calcola_imponibile(const real& compenso)
|
||||
else
|
||||
imponibile_calcolato = (compenso * quota_imp) / 100.00;
|
||||
// imponibile_calcolato = round_770(imponibile_calcolato);
|
||||
imponibile_calcolato.trunc();
|
||||
}
|
||||
return imponibile_calcolato;
|
||||
}
|
||||
@ -1112,6 +1114,7 @@ real TSchedaPercipienti::calcola_ritenuta(const real& imponibile)
|
||||
rite = imponibile;
|
||||
else
|
||||
rite = (imponibile * rQuotaRaCaus)/100.00;
|
||||
rite.trunc();
|
||||
return rite;
|
||||
}
|
||||
|
||||
@ -1162,7 +1165,7 @@ real TSchedaPercipienti::calcola_netto(TMask_field& f)
|
||||
const real inpsperc (m.get(MPAG_INPSPERC));
|
||||
|
||||
netto = compenso - ritenuta + spesa - inpsperc;
|
||||
|
||||
netto.trunc();
|
||||
f.mask().set(MPAG_NETTO, netto.string());
|
||||
|
||||
return netto;
|
||||
|
@ -119,8 +119,9 @@ END
|
||||
|
||||
STRING F_NISCRAA 10
|
||||
BEGIN
|
||||
PROMPT 30 9 "Numero di iscrizione all'albo "
|
||||
FLAGS "D"
|
||||
PROMPT 30 9 "Numero di iscrizione all'albo "
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
|
@ -535,7 +535,7 @@ bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k)
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TString appname(30);
|
||||
appname.format("773 -1 771200i 37 \"%s\" 0", "Base occupati");
|
||||
appname.format("773mod -1 771200i 37 \"%s\" 0", "Base occupati");
|
||||
TExternal_app a(appname);
|
||||
a.run();
|
||||
}
|
||||
|
@ -60,7 +60,7 @@ BEGIN
|
||||
OUTPUT F_CODANAGDIP CODIP
|
||||
OUTPUT QAF_COGNOME COGNOME
|
||||
OUTPUT QAF_NOME NOME
|
||||
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
|
||||
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
|
||||
MESSAGE COPY, F_CODIP
|
||||
END
|
||||
|
||||
|
@ -664,7 +664,7 @@ END
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 44 11 "63 interessi "
|
||||
GROUP 7
|
||||
// GROUP 7
|
||||
END
|
||||
|
||||
NUMBER F_IMPVER60 15
|
||||
@ -712,7 +712,7 @@ END
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 44 15 "66 Contr. versato "
|
||||
GROUP 7
|
||||
// GROUP 7
|
||||
END
|
||||
|
||||
NUMBER F_CONRIMB63 15
|
||||
@ -725,7 +725,7 @@ END
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 16 "67 interessi "
|
||||
GROUP 7
|
||||
// GROUP 7
|
||||
END
|
||||
|
||||
NUMBER F_CONVER64 15
|
||||
|
@ -60,11 +60,8 @@ BEGIN
|
||||
OUTPUT F_CODANAGDIP CODIP
|
||||
OUTPUT QAF_COGNOME COGNOME
|
||||
OUTPUT QAF_NOME NOME
|
||||
// CHECKTYPE REQUIRED
|
||||
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
|
||||
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
|
||||
MESSAGE COPY, F_CODIP
|
||||
// FIELD LF_QUAA1->CODIP
|
||||
// KEY 1
|
||||
END
|
||||
|
||||
STRING QAF_COGNOME 24
|
||||
|
@ -60,7 +60,7 @@ BEGIN
|
||||
OUTPUT F_CODANAGDIP CODIP
|
||||
OUTPUT QAF_COGNOME COGNOME
|
||||
OUTPUT QAF_NOME NOME
|
||||
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
|
||||
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
|
||||
MESSAGE COPY, F_CODIP
|
||||
END
|
||||
|
||||
|
@ -99,17 +99,30 @@ BEGIN
|
||||
PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 "
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 7 "10 Imposta rimborsata "
|
||||
PROMPT 2 7 "10 Imposta rimbor. "
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
*/
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 7 "11 Imposta versata "
|
||||
GROUP 7
|
||||
END
|
||||
*/
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 7 "10 Imposta rimbor. "
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 41 7 "11 Imposta versata "
|
||||
END
|
||||
|
||||
NUMBER F_IIRPEFVER8 15
|
||||
BEGIN
|
||||
@ -118,22 +131,31 @@ BEGIN
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 41 7 "12 Interessi "
|
||||
GROUP 6
|
||||
END
|
||||
*/
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 8 "12 Interessi "
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 "
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 41 7 "13 Imposta versata "
|
||||
GROUP 7
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER F_IIRPEFRI9 15
|
||||
BEGIN
|
||||
@ -142,13 +164,13 @@ BEGIN
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 8 "14 Interessi "
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 8 "1a rata acc.IRPEF96 "
|
||||
@ -166,14 +188,16 @@ END
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 11 "13 Imposta versata "
|
||||
GROUP 6
|
||||
// GROUP 6
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 11 "14 Interessi "
|
||||
GROUP 7
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER F_PRIRPEF10 15
|
||||
BEGIN
|
||||
@ -185,8 +209,8 @@ END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 41 11 "Interessi "
|
||||
GROUP 6
|
||||
PROMPT 41 11 "14 Interessi "
|
||||
// GROUP 6
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
@ -273,14 +297,21 @@ END
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 5 "16 Cont.a rimborso "
|
||||
GROUP 6
|
||||
// GROUP 6
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 41 5 "17 Cont. versato "
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 5 "17 Cont. versato "
|
||||
GROUP 7
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER QA2F_CSSNCRIMB 15
|
||||
BEGIN
|
||||
@ -289,6 +320,7 @@ BEGIN
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 41 5 "18 Interessi "
|
||||
@ -300,6 +332,7 @@ BEGIN
|
||||
PROMPT 41 5 "2a rata acc.CSSN 96"
|
||||
GROUP 7
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER QA2F_CSSNCVER 15
|
||||
BEGIN
|
||||
@ -311,7 +344,7 @@ END
|
||||
|
||||
NUMBER QA2F_CSSNINT 15
|
||||
BEGIN
|
||||
PROMPT 2 6 "Interessi "
|
||||
PROMPT 2 6 "18 Interessi "
|
||||
FIELD LF_QUAA2->INTER18
|
||||
PICTURE "."
|
||||
END
|
||||
@ -323,21 +356,21 @@ END
|
||||
|
||||
NUMBER QA2F_CSSNAIV 15
|
||||
BEGIN
|
||||
PROMPT 2 9 "Imposta versata "
|
||||
PROMPT 2 9 "19 Contrib.versato "
|
||||
FIELD LF_QUAA2->CONTV19
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER QA2F_CSSNAINT 15
|
||||
BEGIN
|
||||
PROMPT 41 9 "Interessi "
|
||||
PROMPT 41 9 "20 Interessi "
|
||||
FIELD LF_QUAA2->INTE20
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER QA2F_STCSSN 15
|
||||
BEGIN
|
||||
PROMPT 2 11 "Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
|
||||
PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
|
||||
FIELD LF_QUAA2->SOPRAT21
|
||||
PICTURE "."
|
||||
END
|
||||
|
@ -75,7 +75,7 @@ BEGIN
|
||||
OUTPUT QAF_COGNOME COGNOME
|
||||
OUTPUT QAF_NOME NOME
|
||||
MESSAGE COPY, F_CODIP
|
||||
ADD RUN 775 -0
|
||||
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
|
@ -5,6 +5,7 @@
|
||||
#include <sort.h>
|
||||
#include <tabutil.h>
|
||||
#include <progind.h>
|
||||
#include "caus77.h"
|
||||
#include "77lib.h"
|
||||
#include "scperc.h"
|
||||
#include "rpag.h"
|
||||
@ -31,6 +32,7 @@ class TQuadroC_E2 : public TRelation_application
|
||||
real rite;
|
||||
real comp;
|
||||
bool acim;
|
||||
bool bInps;
|
||||
real inps;
|
||||
};
|
||||
righe_pag* _rig;
|
||||
@ -81,7 +83,7 @@ class TQuadroC_E2 : public TRelation_application
|
||||
bool azzera_quadro();
|
||||
void riempi_record(char,long,int,const real&,const real&,
|
||||
const real&,const real&,const real&,bool,
|
||||
const real& inps_perc);
|
||||
const real& inps_perc, bool bCinps=FALSE);
|
||||
void init_sort();
|
||||
void leggi_sort(TProgind&);
|
||||
TRectype& look_causali(int c);
|
||||
@ -268,7 +270,7 @@ bool TQuadroC_E2::imponibile_hnd(TMask_field& f, KEY k)
|
||||
{
|
||||
int causale = f.mask().get_int(F_CODCAUS);
|
||||
TRectype& cau = app().look_causali(causale);
|
||||
real aliquota = cau.get_real("R0");
|
||||
real aliquota = cau.get_real(rPERC_RAC);
|
||||
f.mask().set(F_PERC, aliquota.string());
|
||||
}
|
||||
}
|
||||
@ -300,7 +302,7 @@ void TQuadroC_E2::init_sort()
|
||||
void TQuadroC_E2::riempi_record(char t,long ca,int cc,const real& p,
|
||||
const real& so,const real& im,
|
||||
const real& ri,const real& co,bool acim,
|
||||
const real& inps)
|
||||
const real& inps, bool bInps)
|
||||
{
|
||||
_rig->tipoa = t;
|
||||
sprintf(_rig->codan, "%5ld", ca);
|
||||
@ -316,7 +318,8 @@ void TQuadroC_E2::riempi_record(char t,long ca,int cc,const real& p,
|
||||
_rig->rite = ri;
|
||||
_rig->comp = co;
|
||||
_rig->acim = acim;
|
||||
_rig->inps = inps;
|
||||
_rig->inps = inps;
|
||||
_rig->bInps = bInps;
|
||||
_sort->sort((const char*)_rig);
|
||||
}
|
||||
|
||||
@ -386,10 +389,11 @@ bool TQuadroC_E2::generazione()
|
||||
codcaus = scperc.get_int(SPR_CODCAUS);
|
||||
nprog = scperc.get_int(SPR_NPROG);
|
||||
|
||||
TRectype cau = look_causali(codcaus);
|
||||
TString16 qua = cau.get("S1");
|
||||
bool acc_imp = cau.get_bool("B0");
|
||||
|
||||
TRectype cau = look_causali(codcaus);
|
||||
TString16 qua = cau.get(bCODICE_QUADRO);
|
||||
bool acc_imp = cau.get_bool(bSOMME_ASSOG_RAC);
|
||||
bool bContrInps = cau.get_bool(bCONTRIBUTO_INPS);
|
||||
|
||||
if (_tipoq == 'D' && qua != "D") continue;
|
||||
if (_tipoq == 'C' && qua != "C") continue;
|
||||
if (_tipoq == '1' && qua != "D1") continue;
|
||||
@ -423,7 +427,7 @@ bool TQuadroC_E2::generazione()
|
||||
if (perc==ZERO && comp==ZERO && rite==ZERO && impo==ZERO
|
||||
&& somme==ZERO)
|
||||
continue;
|
||||
riempi_record(tipoa,codan,codcaus,perc,somme,impo,rite,comp,acc_imp,inps);
|
||||
riempi_record(tipoa,codan,codcaus,perc,somme,impo,rite,comp,acc_imp,inps,bContrInps);
|
||||
}
|
||||
rpag.readat(nrec);
|
||||
}
|
||||
@ -540,9 +544,8 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
|
||||
long codanag, codanag_p;
|
||||
int codcaus_p, codcaus, nprog;
|
||||
real tot_somme=ZERO,tot_impo=ZERO,tot_rite=ZERO,tot_comp=ZERO, rQCInps=ZERO;
|
||||
real rTotQCInps = ZERO;
|
||||
bool esiste_record = FALSE;
|
||||
bool acc_imp = FALSE;
|
||||
real rTotQCInps = ZERO;
|
||||
bool esiste_record = FALSE, acc_imp = FALSE, bInps = FALSE;
|
||||
struct righe_pag* rp;
|
||||
|
||||
keyp = key = "";
|
||||
@ -559,8 +562,8 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
|
||||
codcaus = atoi(rp->codcau);
|
||||
perc = rp->perc;
|
||||
acc_imp = rp->acim;
|
||||
rQCInps = rp->inps;
|
||||
|
||||
bInps = rp->bInps; // se la riga aveva il contributo inps nella cau.
|
||||
rQCInps = bInps ? rp->inps : ZERO;
|
||||
if (QuadroE1() && !acc_imp)
|
||||
{
|
||||
genera_prospetto(codcaus,rp->comp,rp->impo,rp->rite);
|
||||
@ -569,7 +572,7 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
|
||||
else
|
||||
{
|
||||
key.format("%c%5ld%2d%s", tipoa, codanag, codcaus, (const char*)perc);
|
||||
if (key != keyp && keyp != "")
|
||||
if ( (key != keyp) && (keyp != "") )
|
||||
{
|
||||
qd.zero();
|
||||
qd.put("CODDITTA", (long)get_firm_770());
|
||||
@ -580,7 +583,7 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
|
||||
|
||||
// 12.6.96 aggiunto contributo inps
|
||||
if (QuadroC())
|
||||
qd.put("CONTSSN", rQCInps);
|
||||
qd.put("CONTSSN", rTotQCInps);
|
||||
|
||||
if (QuadroD() || QuadroC())
|
||||
qd.put("SOMME", tot_somme + tot_comp - tot_impo);
|
||||
@ -619,14 +622,15 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
|
||||
else
|
||||
qd.put("NETTO", tot_impo - tot_rite);
|
||||
qd.write();
|
||||
tot_impo = tot_somme = tot_rite = tot_comp = ZERO;
|
||||
rTotQCInps = tot_impo = tot_somme = tot_rite = tot_comp = ZERO;
|
||||
}
|
||||
|
||||
tot_somme += rp->somme;
|
||||
tot_rite += rp->rite;
|
||||
tot_impo += rp->impo;
|
||||
tot_comp += rp->comp;
|
||||
rTotQCInps += rQCInps;
|
||||
if (bInps)
|
||||
rTotQCInps += rQCInps;
|
||||
|
||||
if (tipoa_p != tipoa || codanag != codanag_p)
|
||||
nprog = 1;
|
||||
|
@ -88,7 +88,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD LF_QUAD->CODCAUS
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
END
|
||||
|
||||
STRING QDF_CODCAUSD 1
|
||||
|
@ -86,7 +86,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD LF_QUAC->CODCAUS
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 58
|
||||
|
@ -83,7 +83,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD LF_QUAE->CODCAUS
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 58
|
||||
|
@ -10,8 +10,7 @@ END
|
||||
BUTTON F_PROSPETTO 21 2
|
||||
BEGIN
|
||||
PROMPT -23 -3 "~Prospetto"
|
||||
// MESSAGE RUN,7783,771230m,89,"Prospetto del Quadro E1","E1"
|
||||
MESSAGE RUN,773,-1,771230m,89,"Prospetto del Quadro E1","E1"
|
||||
MESSAGE RUN,773mod,-1,771230m,89,"Prospetto del Quadro E1","E1"
|
||||
END
|
||||
|
||||
#include <toolbar.h>
|
||||
|
@ -83,7 +83,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD LF_QUAE1->CODCAUS
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 58
|
||||
|
@ -64,7 +64,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD LF_PROSPE1->CODCAUS
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
KEY 1
|
||||
GROUP 9
|
||||
MESSAGE COPY,PE1F_CODCAUS
|
||||
|
@ -219,7 +219,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
FIELD LF_QUAF->F_CODCAUS
|
||||
END
|
||||
|
||||
|
@ -17,7 +17,7 @@ BEGIN
|
||||
OUTPUT 103 R0
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
@ -17,7 +17,7 @@ BEGIN
|
||||
OUTPUT 103 R0
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
@ -17,7 +17,7 @@ BEGIN
|
||||
OUTPUT 103 R0
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
@ -17,7 +17,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
VALIDATE REQIF_FUNC 6 102 103 104 105
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
@ -161,44 +161,9 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
|
||||
{
|
||||
if (k == K_TAB && f.mask().is_running())
|
||||
{
|
||||
// TLocalisamfile qual (LF_QUAL,FALSE);
|
||||
TRelation* rel = app()._rel;
|
||||
TMask& m = f.mask();
|
||||
m.autosave(rel);
|
||||
/* long codditta = m.get_long(F_CODDITTA);
|
||||
TDate datavers (m.get(F_QLDATAVERS));
|
||||
TString data = datavers.string();
|
||||
int mesepag = m.get_int(F_QLMESEPAG);
|
||||
int annopag = m.get_int(F_QLANNOPAG);
|
||||
char luovers = m.get (F_QLLUOVERS)[0];
|
||||
char tipovers = m.get (F_QLTIPOVERS)[0];
|
||||
long codtrib = m.get_long(F_QLCODTRIB);
|
||||
int artbil = m.get_int(F_ARTBIL);
|
||||
TString serie(m.get(FH_ABISERIE));
|
||||
TString numero(m.get(FH_NUMERO)); */
|
||||
// TString cab(m.get(FH_CAB));
|
||||
// TString nprog(m.get(FH_NPROG));
|
||||
|
||||
// Se abi/cab devo attaccare al cab il progressivo vers.banca
|
||||
// if (tipovers == DELEGA_BANCARIA)
|
||||
// numero << nprog;
|
||||
|
||||
/*
|
||||
qual.setkey(1);
|
||||
qual.zero();
|
||||
qual.put(QUL_CODDITTA, codditta);
|
||||
qual.put(QUL_QLDV, datavers);
|
||||
qual.put(QUL_QLMP, mesepag);
|
||||
qual.put(QUL_QLAP, annopag);
|
||||
qual.put(QUL_QLLV, luovers);
|
||||
qual.put(QUL_QLTV, tipovers);
|
||||
qual.put(QUL_QLCT, (long)codtrib);
|
||||
qual.put(QUL_QLAB, (long)artbil);
|
||||
qual.put(QUL_QLSERIE, serie);
|
||||
qual.put(QUL_QLNUMERO, numero); */
|
||||
|
||||
// if (qual.read() == NOERR)
|
||||
|
||||
if (rel->read() == NOERR)
|
||||
f.mask().stop_run(K_AUTO_ENTER);
|
||||
else
|
||||
|
660
m770/771310a.uml
660
m770/771310a.uml
@ -1,329 +1,331 @@
|
||||
// 771310a.uml - Quadro L
|
||||
#include "771310.h"
|
||||
TOOLBAR "" 0 18 0 4
|
||||
BUTTON F_GENERA 21 2
|
||||
BEGIN
|
||||
PROMPT -13 -3 "~Generazione"
|
||||
END
|
||||
|
||||
BUTTON F_PARAMETRI 21 2
|
||||
BEGIN
|
||||
PROMPT -23 -3 "~Parametri Generazione"
|
||||
END
|
||||
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "QUADRO L" -1 -1 78 18
|
||||
|
||||
#define ABI_CAB 7
|
||||
#define NUM_SERIE 8
|
||||
#define TEXT_NUM_SERIE 9
|
||||
#define TEXT_ABI_CAB 6
|
||||
#define GH 10
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "RDG"
|
||||
USE LF_NDITTE KEY 1
|
||||
FIELD LF_QUAL->CODDITTA
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 2 10 "Numero serie "
|
||||
GROUP TEXT_NUM_SERIE
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice ABI "
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 46 10 "Numero quietanza "
|
||||
GROUP TEXT_NUM_SERIE
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 46 10 "Codice CAB "
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 7
|
||||
BEGIN
|
||||
PROMPT 0 5 ""
|
||||
END
|
||||
|
||||
NUMBER F_ANNODIC 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Anno dichiarazione "
|
||||
END
|
||||
|
||||
NUMBER F_QLANNOPAG 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Anno pagamento "
|
||||
USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
INPUT QLAP F_QLANNOPAG
|
||||
DISPLAY "A.P." QLAP
|
||||
DISPLAY "M.P." QLMP
|
||||
DISPLAY "Ritenute@15" QLRITEFF
|
||||
DISPLAY "Importo versato" QLRITVER
|
||||
DISPLAY "L.V." QLLV
|
||||
DISPLAY "T.V." QLTV
|
||||
DISPLAY "C.T." QLCT
|
||||
DISPLAY "Art.Bil." QLAB
|
||||
DISPLAY "Data Vers." QLDV
|
||||
DISPLAY "Serie/ABI" QLSERIE
|
||||
DISPLAY "Numero/CAB@11" QLNUMERO
|
||||
DISPLAY "Rss" QLRSS
|
||||
DISPLAY "Note@7" QLNOTE
|
||||
OUTPUT F_QLDATAVERS QLDV
|
||||
OUTPUT F_QLMESEPAG QLMP
|
||||
OUTPUT F_QLANNOPAG QLAP
|
||||
OUTPUT F_QLLUOVERS QLLV
|
||||
OUTPUT F_QLTIPOVERS QLTV
|
||||
OUTPUT F_QLCODTRIB QLCT
|
||||
OUTPUT F_ARTBIL QLAB
|
||||
OUTPUT F_QLSERIE QLSERIE
|
||||
OUTPUT F_ABI QLSERIE
|
||||
OUTPUT F_CAB1 QLNUMERO[1,5]
|
||||
OUTPUT F_CAB QLNUMERO[6,11]
|
||||
FIELD LF_QUAL->QLAP
|
||||
FLAGS "R"
|
||||
VALIDATE FIXLEN_FUNC 4
|
||||
WARNING "L' anno deve essere indicato per esteso"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QLMESEPAG 2 13
|
||||
BEGIN
|
||||
PROMPT 46 6 "Mese pagamento "
|
||||
FIELD LF_QUAL->QLMP
|
||||
ITEM " |Indefinito"
|
||||
FLAGS "M"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
DATE F_QLDATAVERS
|
||||
BEGIN
|
||||
PROMPT 2 7 "Data versamento "
|
||||
FIELD LF_QUAL->QLDV
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QLLUOVERS 11
|
||||
BEGIN
|
||||
PROMPT 46 7 "Luogo versamento "
|
||||
ITEM " |Nessuno"
|
||||
ITEM "C|Concessione"
|
||||
ITEM "T|Tesoreria"
|
||||
FIELD LF_QUAL->QLLV
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QLTIPOVERS 15
|
||||
BEGIN
|
||||
PROMPT 2 8 "Tipo versamento "
|
||||
ITEM " |Nessuno"
|
||||
MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
|
||||
MESSAGE ENABLE,F_QLSERIE
|
||||
ITEM "B|Delega bancaria"
|
||||
MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
|
||||
MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
|
||||
ITEM "D|Distinta"
|
||||
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
|
||||
MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
|
||||
ITEM "C|C/C Postale"
|
||||
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
|
||||
MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
|
||||
FIELD LF_QUAL->QLTV
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_QLCODTRIB 4
|
||||
BEGIN
|
||||
PROMPT 46 8 "Codice tributo "
|
||||
FIELD LF_QUAL->QLCT
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_ARTBIL 2
|
||||
BEGIN
|
||||
PROMPT 2 9 "Articolo di bilancio "
|
||||
FIELD LF_QUAL->QLAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_QLSERIE 5
|
||||
BEGIN
|
||||
PROMPT 23 10 ""
|
||||
FIELD LF_QUAL->QLSERIE
|
||||
GROUP NUM_SERIE
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_QLNUMERO 11
|
||||
BEGIN
|
||||
PROMPT 63 10 ""
|
||||
FIELD LF_QUAL->QLNUMERO
|
||||
GROUP NUM_SERIE
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_ABI 5
|
||||
BEGIN
|
||||
PROMPT 23 10 ""
|
||||
FIELD LF_QUAL->QLSERIE
|
||||
GROUP ABI_CAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CAB1 5
|
||||
BEGIN
|
||||
PROMPT 63 10 ""
|
||||
FIELD LF_QUAL->QLNUMERO[1,5]
|
||||
GROUP ABI_CAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CAB 6
|
||||
BEGIN
|
||||
PROMPT 69 10 ""
|
||||
FIELD LF_QUAL->QLNUMERO[6,11]
|
||||
FLAGS "Z"
|
||||
GROUP ABI_CAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QUADRO 2
|
||||
BEGIN
|
||||
PROMPT 0 12 "Codice quadro "
|
||||
HELP "Inserire il codice quadro"
|
||||
ITEM "| "
|
||||
ITEM "A|A"
|
||||
ITEM "B|B"
|
||||
ITEM "B1|B1"
|
||||
ITEM "C|C"
|
||||
ITEM "D|D"
|
||||
ITEM "D1|D1"
|
||||
ITEM "E|E"
|
||||
ITEM "E1|E1"
|
||||
ITEM "G|G"
|
||||
ITEM "G1|G1"
|
||||
FIELD LF_QUAL->QLCODQUA
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 0 13 "Somme assoggettate a ritenuta:"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 0 14 "Rit. Effettuate"
|
||||
END
|
||||
|
||||
NUMBER F_QLRITEFF 15
|
||||
BEGIN
|
||||
PROMPT 0 15 ""
|
||||
FIELD LF_QUAL->QLRITEFF
|
||||
PICTURE "."
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 17 14 "Importo versato"
|
||||
END
|
||||
|
||||
NUMBER F_QLRITVER 15
|
||||
BEGIN
|
||||
PROMPT 17 15 ""
|
||||
FIELD LF_QUAL->QLRITVER
|
||||
PICTURE "."
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 37 14 "RSS"
|
||||
END
|
||||
|
||||
LIST F_QLRSS 7
|
||||
BEGIN
|
||||
PROMPT 34 15 ""
|
||||
ITEM " |Nessuna"
|
||||
ITEM "1|VA"
|
||||
ITEM "2|SA"
|
||||
ITEM "3|SI"
|
||||
FIELD LF_QUAL->QLRSS
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 58 14 "Note"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEA
|
||||
BEGIN
|
||||
PROMPT 45 15 "A"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEB
|
||||
BEGIN
|
||||
PROMPT 50 15 "B"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEC
|
||||
BEGIN
|
||||
PROMPT 55 15 "C"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTED
|
||||
BEGIN
|
||||
PROMPT 60 15 "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEE
|
||||
BEGIN
|
||||
PROMPT 65 15 "E"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEF
|
||||
BEGIN
|
||||
PROMPT 70 15 "F"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEG
|
||||
BEGIN
|
||||
PROMPT 75 15 "G"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
// 771310a.uml - Quadro L
|
||||
#include "771310.h"
|
||||
TOOLBAR "" 0 18 0 4
|
||||
BUTTON F_GENERA 21 2
|
||||
BEGIN
|
||||
PROMPT -13 -3 "~Generazione"
|
||||
END
|
||||
|
||||
BUTTON F_PARAMETRI 21 2
|
||||
BEGIN
|
||||
PROMPT -23 -3 "~Parametri Generazione"
|
||||
END
|
||||
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "QUADRO L" -1 -1 78 18
|
||||
|
||||
#define ABI_CAB 7
|
||||
#define NUM_SERIE 8
|
||||
#define TEXT_NUM_SERIE 9
|
||||
#define TEXT_ABI_CAB 6
|
||||
#define GH 10
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "RDG"
|
||||
USE LF_NDITTE KEY 1
|
||||
FIELD LF_QUAL->CODDITTA
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 2 10 "Numero serie "
|
||||
GROUP TEXT_NUM_SERIE
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice ABI "
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 46 10 "Numero quietanza "
|
||||
GROUP TEXT_NUM_SERIE
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 46 10 "Codice CAB "
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 7
|
||||
BEGIN
|
||||
PROMPT 0 5 ""
|
||||
END
|
||||
|
||||
NUMBER F_ANNODIC 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Anno dichiarazione "
|
||||
END
|
||||
|
||||
NUMBER F_QLANNOPAG 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Anno pagamento "
|
||||
USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
INPUT QLAP F_QLANNOPAG
|
||||
DISPLAY "A.P." QLAP
|
||||
DISPLAY "M.P." QLMP
|
||||
DISPLAY "Ritenute@15" QLRITEFF
|
||||
DISPLAY "Importo versato" QLRITVER
|
||||
DISPLAY "L.V." QLLV
|
||||
DISPLAY "T.V." QLTV
|
||||
DISPLAY "C.T." QLCT
|
||||
DISPLAY "Art.Bil." QLAB
|
||||
DISPLAY "Data Vers." QLDV
|
||||
DISPLAY "Serie/ABI" QLSERIE
|
||||
DISPLAY "Numero/CAB@11" QLNUMERO
|
||||
DISPLAY "Rss" QLRSS
|
||||
DISPLAY "Note@7" QLNOTE
|
||||
OUTPUT F_QLDATAVERS QLDV
|
||||
OUTPUT F_QLMESEPAG QLMP
|
||||
OUTPUT F_QLANNOPAG QLAP
|
||||
OUTPUT F_QLLUOVERS QLLV
|
||||
OUTPUT F_QLTIPOVERS QLTV
|
||||
OUTPUT F_QLCODTRIB QLCT
|
||||
OUTPUT F_ARTBIL QLAB
|
||||
OUTPUT F_QLSERIE QLSERIE
|
||||
OUTPUT F_ABI QLSERIE
|
||||
OUTPUT F_CAB1 QLNUMERO[1,5]
|
||||
OUTPUT F_CAB QLNUMERO[6,11]
|
||||
FIELD LF_QUAL->QLAP
|
||||
FLAGS "R"
|
||||
VALIDATE FIXLEN_FUNC 4
|
||||
WARNING "L' anno deve essere indicato per esteso"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QLMESEPAG 2 13
|
||||
BEGIN
|
||||
PROMPT 46 6 "Mese pagamento "
|
||||
FIELD LF_QUAL->QLMP
|
||||
ITEM " |Indefinito"
|
||||
FLAGS "M"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
DATE F_QLDATAVERS
|
||||
BEGIN
|
||||
PROMPT 2 7 "Data versamento "
|
||||
FIELD LF_QUAL->QLDV
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QLLUOVERS 11
|
||||
BEGIN
|
||||
PROMPT 46 7 "Luogo versamento "
|
||||
ITEM " |Nessuno"
|
||||
ITEM "C|Concessione"
|
||||
ITEM "T|Tesoreria"
|
||||
FIELD LF_QUAL->QLLV
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QLTIPOVERS 15
|
||||
BEGIN
|
||||
PROMPT 2 8 "Tipo versamento "
|
||||
ITEM " |Nessuno"
|
||||
MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
|
||||
MESSAGE ENABLE,F_QLSERIE
|
||||
ITEM "B|Delega bancaria"
|
||||
MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
|
||||
MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
|
||||
ITEM "D|Distinta"
|
||||
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
|
||||
MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
|
||||
ITEM "C|C/C Postale"
|
||||
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
|
||||
MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
|
||||
FIELD LF_QUAL->QLTV
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_QLCODTRIB 4
|
||||
BEGIN
|
||||
PROMPT 46 8 "Codice tributo "
|
||||
FIELD LF_QUAL->QLCT
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_ARTBIL 2
|
||||
BEGIN
|
||||
PROMPT 2 9 "Articolo di bilancio "
|
||||
FIELD LF_QUAL->QLAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_QLSERIE 5
|
||||
BEGIN
|
||||
PROMPT 23 10 ""
|
||||
FIELD LF_QUAL->QLSERIE
|
||||
GROUP NUM_SERIE
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_QLNUMERO 11
|
||||
BEGIN
|
||||
PROMPT 63 10 ""
|
||||
FIELD LF_QUAL->QLNUMERO
|
||||
GROUP NUM_SERIE
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_ABI 5
|
||||
BEGIN
|
||||
PROMPT 23 10 ""
|
||||
FIELD LF_QUAL->QLSERIE
|
||||
FLAGS "Z"
|
||||
GROUP ABI_CAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CAB1 5
|
||||
BEGIN
|
||||
PROMPT 63 10 ""
|
||||
FIELD LF_QUAL->QLNUMERO[1,5]
|
||||
FLAGS "Z"
|
||||
GROUP ABI_CAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CAB 6
|
||||
BEGIN
|
||||
PROMPT 69 10 ""
|
||||
FIELD LF_QUAL->QLNUMERO[6,11]
|
||||
FLAGS "Z"
|
||||
GROUP ABI_CAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
LIST F_QUADRO 2
|
||||
BEGIN
|
||||
PROMPT 0 12 "Codice quadro "
|
||||
HELP "Inserire il codice quadro"
|
||||
ITEM "| "
|
||||
ITEM "A|A"
|
||||
ITEM "B|B"
|
||||
ITEM "B1|B1"
|
||||
ITEM "C|C"
|
||||
ITEM "D|D"
|
||||
ITEM "D1|D1"
|
||||
ITEM "E|E"
|
||||
ITEM "E1|E1"
|
||||
ITEM "G|G"
|
||||
ITEM "G1|G1"
|
||||
FIELD LF_QUAL->QLCODQUA
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 0 13 "Somme assoggettate a ritenuta:"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 0 14 "Rit. Effettuate"
|
||||
END
|
||||
|
||||
NUMBER F_QLRITEFF 15
|
||||
BEGIN
|
||||
PROMPT 0 15 ""
|
||||
FIELD LF_QUAL->QLRITEFF
|
||||
PICTURE "."
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 17 14 "Importo versato"
|
||||
END
|
||||
|
||||
NUMBER F_QLRITVER 15
|
||||
BEGIN
|
||||
PROMPT 17 15 ""
|
||||
FIELD LF_QUAL->QLRITVER
|
||||
PICTURE "."
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 37 14 "RSS"
|
||||
END
|
||||
|
||||
LIST F_QLRSS 7
|
||||
BEGIN
|
||||
PROMPT 34 15 ""
|
||||
ITEM " |Nessuna"
|
||||
ITEM "1|VA"
|
||||
ITEM "2|SA"
|
||||
ITEM "3|SI"
|
||||
FIELD LF_QUAL->QLRSS
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 58 14 "Note"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEA
|
||||
BEGIN
|
||||
PROMPT 45 15 "A"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEB
|
||||
BEGIN
|
||||
PROMPT 50 15 "B"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEC
|
||||
BEGIN
|
||||
PROMPT 55 15 "C"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTED
|
||||
BEGIN
|
||||
PROMPT 60 15 "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEE
|
||||
BEGIN
|
||||
PROMPT 65 15 "E"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEF
|
||||
BEGIN
|
||||
PROMPT 70 15 "F"
|
||||
END
|
||||
|
||||
BOOLEAN F_NOTEG
|
||||
BEGIN
|
||||
PROMPT 75 15 "G"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
@ -1,7 +1,7 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#include "773.h"
|
||||
#include "773.h"
|
||||
|
||||
#define usage "Error - usage : %s -{0|1|2|3}"
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
// 773100 - Parametri di studio 770
|
||||
#include <confapp.h>
|
||||
|
||||
class M73_App : public TConfig_application
|
||||
@ -9,7 +10,7 @@ class M73_App : public TConfig_application
|
||||
virtual ~M73_App() {}
|
||||
};
|
||||
|
||||
bool M73_App::user_create()
|
||||
bool M73_App::user_create()
|
||||
{
|
||||
TString16 section;
|
||||
const char* edit_mask = "773100a";
|
||||
|
@ -7,21 +7,24 @@ PAGE "Parametri Modello 770" -1 -1 76 13
|
||||
//
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 3 2 "Anno dichiarazione "
|
||||
FLAGS "R"
|
||||
FIELD AnnoDic
|
||||
PROMPT 3 2 "Anno dichiarazione "
|
||||
FLAGS "R"
|
||||
FIELD AnnoDic
|
||||
END
|
||||
|
||||
NUMBER F_CODCAU1015 2
|
||||
BEGIN
|
||||
PROMPT 3 4 "Codice causale 1015 "
|
||||
USE %CA7 SELECT (I0=1015)
|
||||
INPUT CODTAB F_CODCAU1015
|
||||
DISPLAY "Codice Causale" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODCAU1015 CODTAB
|
||||
FIELD CoCa1015
|
||||
FLAGS "RZ"
|
||||
PROMPT 3 4 "Codice causale 1015 "
|
||||
USE %CA7 SELECT (I0=1015)
|
||||
INPUT CODTAB F_CODCAU1015
|
||||
DISPLAY "Codice Causale" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODCAU1015 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Causale non valida"
|
||||
FIELD CoCa1015
|
||||
FLAGS "Z"
|
||||
ADD RUN 773mod -3 %ca7
|
||||
END
|
||||
|
||||
LIST F_FSTAMPAQL 35
|
||||
|
26
m770/773mod.url
Executable file
26
m770/773mod.url
Executable file
@ -0,0 +1,26 @@
|
||||
#include <default.url>
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
MENUBAR MENU_BAR(1)
|
||||
|
||||
MENU MENU_BAR(1)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
MENUBAR MENU_BAR(2)
|
||||
|
||||
MENU MENU_BAR(2)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
MENUBAR MENU_BAR(3)
|
||||
|
||||
MENU MENU_BAR(3)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
MENUBAR MENU_BAR(4)
|
||||
|
||||
MENU MENU_BAR(4)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
|
1041
m770/774100.cpp
1041
m770/774100.cpp
File diff suppressed because it is too large
Load Diff
@ -1935,7 +1935,6 @@ void TRiporti::calcola_riporti_G1 (TCursor* cur, const long dich)
|
||||
i27_1 = i27_2 = i27_3 = i27_4 = i27_5 = ZERO;
|
||||
(*cur) = 0L;
|
||||
TRecnotype items = cur->items();
|
||||
almeno_una_riga = items > 0L;
|
||||
|
||||
i27_1 = cur->curr().get_real(QG1_P12TOT);
|
||||
i27_2 = cur->curr().get_real(QG1_P13TOT);
|
||||
@ -1943,6 +1942,8 @@ void TRiporti::calcola_riporti_G1 (TCursor* cur, const long dich)
|
||||
i27_4 = cur->curr().get_real(QG1_P16TOT);
|
||||
i27_5 = cur->curr().get_real(QG1_P17TOT);
|
||||
|
||||
almeno_una_riga = (i27_1 != ZERO) || (i27_2 != ZERO) || (i27_3 != ZERO) ||
|
||||
(i27_4 != ZERO) || (i27_5 != ZERO);
|
||||
TString scritta(60);
|
||||
scritta.format("Calcolo riporti del quadro G-1 per la ditta %ld", _codditta);
|
||||
TProgind progn(items, scritta, FALSE, TRUE);
|
||||
|
@ -77,7 +77,7 @@ BEGIN
|
||||
PROMPT 1 7 ""
|
||||
PICTURE 123
|
||||
GROUP 1
|
||||
MESSAGE RUN,773,-1,771150a,45,"Anagrafica dipendenti",/uPRASSI
|
||||
MESSAGE RUN,773mod,-1,771150a,45,"Anagrafica dipendenti",/uPRASSI
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
@ -218,7 +218,7 @@ BUTTON DLG_STOPREC_B 1 1
|
||||
BEGIN
|
||||
PROMPT 1 14 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -232,7 +232,7 @@ BUTTON DLG_STOPREC_B1 1 1
|
||||
BEGIN
|
||||
PROMPT 1 15 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -460,7 +460,7 @@ BUTTON DLG_STOPREC_N 1 1
|
||||
BEGIN
|
||||
PROMPT 39 16 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
// Fine terza colonna
|
||||
@ -476,7 +476,7 @@ BUTTON DLG_STOPREC_P 1 1
|
||||
BEGIN
|
||||
PROMPT 58 10 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -489,7 +489,7 @@ END
|
||||
BUTTON DLG_STOPREC_Q 1 1
|
||||
BEGIN
|
||||
PROMPT 58 11 ""
|
||||
MESSAGE RUN,773,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI
|
||||
PICTURE 123
|
||||
GROUP 1
|
||||
END
|
||||
@ -504,7 +504,7 @@ BUTTON DLG_STOPREC_R 1 1
|
||||
BEGIN
|
||||
PROMPT 58 12 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -518,7 +518,7 @@ BUTTON DLG_STOPREC_S 1 1
|
||||
BEGIN
|
||||
PROMPT 58 13 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -532,7 +532,7 @@ BUTTON DLG_STOPREC_T 1 1
|
||||
BEGIN
|
||||
PROMPT 58 14 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,773mod,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI
|
||||
GROUP 1
|
||||
END
|
||||
// Fine QUARTA colonna
|
||||
@ -663,7 +663,7 @@ BUTTON DLG_STOPREC_SOCTRA 1 1
|
||||
BEGIN
|
||||
PROMPT 1 12 ""
|
||||
PICTURE 123
|
||||
MESSAGE RUN,773,-1,771100h,102,"Manutenzione dati societa' trasformate"
|
||||
MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati societa' trasformate"
|
||||
FLAGS "H"
|
||||
GROUP 2
|
||||
END
|
||||
|
@ -23,7 +23,6 @@ class TParametri_genera : public TApplication
|
||||
int _risposta;
|
||||
bool init_print();
|
||||
protected:
|
||||
static bool ProgBancaHnd(TMask_field& f, KEY k);
|
||||
virtual void on_config_change();
|
||||
virtual bool create() ;
|
||||
virtual bool destroy();
|
||||
@ -42,32 +41,11 @@ void TParametri_genera::on_config_change()
|
||||
_anno_dic = (int)conf.get_long(ANNO_SEL, _section);
|
||||
}
|
||||
|
||||
// Copia su NUMERO CAB+PROGBANCA
|
||||
bool TParametri_genera::ProgBancaHnd(TMask_field& f, KEY k)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
if (k == K_TAB && m.is_running())
|
||||
{
|
||||
char tipov = m.get(F_TIPOVERS)[0];
|
||||
TString cab(m.get(F_CAB));
|
||||
TString prg(m.get(F_PROGBANCA));
|
||||
TString numero;
|
||||
if (tipov == DELEGA_BANCARIA)
|
||||
{
|
||||
numero = cab;
|
||||
numero << prg;
|
||||
m.set(FH_NUMERO, numero);
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TParametri_genera::main_loop()
|
||||
{
|
||||
KEY tasto;
|
||||
TMask msk ("776500a");
|
||||
msk.set_handler(F_CAB, ProgBancaHnd);
|
||||
msk.set_handler(F_PROGBANCA, ProgBancaHnd);
|
||||
long codditta, codditta_prec;
|
||||
int i = 0;
|
||||
|
||||
|
@ -110,32 +110,23 @@ NUMBER F_ABI 5
|
||||
BEGIN
|
||||
PROMPT 18 13 ""
|
||||
FIELD LF_BASE->SERIE
|
||||
FLAGS "RZ"
|
||||
FLAGS "Z"
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
STRING FH_NUMERO 11
|
||||
BEGIN
|
||||
PROMPT 0 1 ""
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
FIELD LF_BASE->NUMERO
|
||||
END
|
||||
|
||||
NUMBER F_CAB 5
|
||||
BEGIN
|
||||
PROMPT 63 13 ""
|
||||
// FIELD LF_BASE->NUMERO
|
||||
// MESSAGE COPY,FH_NUMERO
|
||||
FLAGS "RZ"
|
||||
FIELD LF_BASE->NUMERO[1,5]
|
||||
FLAGS "Z"
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
NUMBER F_PROGBANCA 6
|
||||
BEGIN
|
||||
PROMPT 69 13 ""
|
||||
FLAGS "RZ"
|
||||
// MESSAGE ADD,FH_NUMERO
|
||||
FLAGS "Z"
|
||||
FIELD LF_BASE->NUMERO[6,11]
|
||||
GROUP ABI_CAB
|
||||
END
|
||||
|
||||
|
@ -80,7 +80,7 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD LF_QUAE2->CODCAUS
|
||||
ADD RUN 773 -3 %CA7
|
||||
ADD RUN 773mod -3 %CA7
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 60
|
||||
|
5
m770/caus77.h
Executable file
5
m770/caus77.h
Executable file
@ -0,0 +1,5 @@
|
||||
// caus77.h - campi tabella causali
|
||||
#define bCONTRIBUTO_INPS "B4"
|
||||
#define bCODICE_QUADRO "S1"
|
||||
#define bSOMME_ASSOG_RAC "B0"
|
||||
#define rPERC_RAC "R0"
|
@ -35,7 +35,6 @@ class TQuadriBB1_application : public TRelation_application
|
||||
bool _MaskConAnnoDic, _MaskConCodditta;
|
||||
bool MaskConAnnoDic() const;
|
||||
bool MaskConCodditta() const { return _MaskConCodditta; }
|
||||
bool EsisteUnRec();
|
||||
bool QuadroB() const { return _num == LF_QUAB; }
|
||||
bool QuadroB1() const { return _num == LF_QUAB1; }
|
||||
bool CheckImporti(const TMask& m);
|
||||
@ -47,6 +46,7 @@ class TQuadriBB1_application : public TRelation_application
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
virtual bool user_destroy();
|
||||
// virtual int read(TMask& m);
|
||||
virtual int rewrite(const TMask& m);
|
||||
virtual int write (const TMask& m);
|
||||
virtual bool remove();
|
||||
@ -145,13 +145,11 @@ TMask* TQuadriBB1_application::load_mask(int n)
|
||||
switch (n)
|
||||
{
|
||||
case 0:
|
||||
if (m)
|
||||
{}
|
||||
break;
|
||||
case 1:
|
||||
if (m)
|
||||
if (QuadroB())
|
||||
{
|
||||
{
|
||||
m->set_handler(QBF_TOTIMP, QBTotRedImpHandler);
|
||||
m->set_handler(QBF_ROPE, QBAmmRopeHandler);
|
||||
m->set_handler(QBF_AMMNETTO, QBTotIndennHandler);
|
||||
@ -191,19 +189,6 @@ bool TQuadriBB1_application::user_create()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TQuadriBB1_application::EsisteUnRec()
|
||||
{
|
||||
TLocalisamfile q(_num);
|
||||
q.zero();
|
||||
q.put(QB_CODDITTA, (long)app()._codditta);
|
||||
TRectype dep(q.curr());
|
||||
q.read(_isgteq);
|
||||
if (q.curr() > dep || q.eof())
|
||||
return FALSE;
|
||||
else
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TQuadriBB1_application::user_destroy()
|
||||
{
|
||||
if (_quadro != "")
|
||||
@ -257,6 +242,21 @@ int TQuadriBB1_application::rewrite(const TMask& m)
|
||||
_registra = err == NOERR;
|
||||
return err;
|
||||
}
|
||||
/*
|
||||
int TQuadriBB1_application::read(TMask& m)
|
||||
{
|
||||
int err;
|
||||
TLocalisamfile q(_num);
|
||||
const long codip = m.get_long(QuadroB()? QBF_CODDIP : QB1F_CODDIP);
|
||||
const long nprog = m.get_long(QuadroB()? QBF_NPROG : QB1F_NPROG);
|
||||
q.zero();
|
||||
q.put(QB_CODDITTA, _codditta);
|
||||
q.put(QB_CODDIP, codip);
|
||||
q.put(QB_NPROG, nprog);
|
||||
err = q.read();
|
||||
err = _rel->read();
|
||||
return err;
|
||||
} */
|
||||
|
||||
int TQuadriBB1_application::write(const TMask& m)
|
||||
{
|
||||
@ -312,18 +312,10 @@ void TQuadriBB1_application::init_insert_mode(TMask& m)
|
||||
void TQuadriBB1_application::init_query_mode(TMask& m)
|
||||
{
|
||||
m.set(ANNODIC77, _anno_dic);
|
||||
/* m.send_key(K_SHIFT+K_CTRL+'s', -RICERCA_QB); // Ricerca su quadro B
|
||||
m.send_key(K_SHIFT+K_CTRL+'h', -RICERCA_DIP); // Ricerca su ANAGR.DIP.
|
||||
init_mask(m);*/
|
||||
}
|
||||
|
||||
void TQuadriBB1_application::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
/*
|
||||
m.send_key(K_SHIFT+K_CTRL+'h', -RICERCA_QB); // Nasconde ricerca su quadro B
|
||||
m.send_key(K_SHIFT+K_CTRL+'s', -RICERCA_DIP); // Ricerca su ANAGR.DIP.
|
||||
init_mask(m); */
|
||||
}
|
||||
{}
|
||||
|
||||
bool TQuadriBB1_application::codditta77_handler(TMask_field& f, KEY k)
|
||||
{
|
||||
@ -376,8 +368,10 @@ bool TQuadriBB1_application::CodDipHandler(TMask_field& f, KEY k)
|
||||
const long codip = atol(f.get());
|
||||
if (codip==0L)
|
||||
return TRUE;
|
||||
|
||||
if (!esiste_dipendente(app()._codditta, codip))
|
||||
return f.warning_box("Dipendente inesistente");
|
||||
|
||||
PrimoNprogLibero(m, app()._codditta, codip);
|
||||
}
|
||||
return TRUE;
|
||||
@ -388,7 +382,6 @@ bool TQuadriBB1_application::NprogExitHandler(TMask_field& f, KEY k)
|
||||
TMask& m = f.mask();
|
||||
if (!m.is_running()) return TRUE;
|
||||
|
||||
// if (k == K_TAB && ricerca(m))
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TString nprog(f.get());
|
||||
|
Loading…
x
Reference in New Issue
Block a user