root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni varie

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3028 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-06-20 07:24:36 +00:00
parent ad35c4e4dc
commit 3b963dab14
36 changed files with 1034 additions and 1027 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
m770/770100b.uml
View File

@ -92,7 +92,7 @@ BEGIN
OUTPUT SPF_CAUSD1 S3 OUTPUT SPF_CAUSD1 S3
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
END END
NUMBER F_PERC_INPS 6 NUMBER F_PERC_INPS 6

5
m770/770102.cpp
View File

@ -893,6 +893,7 @@ real TSchedaPercipienti::calcola_imponibile(TMask_field& f, const real& compenso
real rPercCassaPrev=ZERO; real rPercCassaPrev=ZERO;
rPercCassaPrev = mm.get_real(F_CASSA_PREV); rPercCassaPrev = mm.get_real(F_CASSA_PREV);
imponibile_calcolato = (imponibile_calcolato / (100.00 + rPercCassaPrev)) * 100.00; imponibile_calcolato = (imponibile_calcolato / (100.00 + rPercCassaPrev)) * 100.00;
imponibile_calcolato.trunc();
} }
TString impost(imponibile_calcolato.string()); TString impost(imponibile_calcolato.string());
@ -923,6 +924,7 @@ real TSchedaPercipienti::calcola_imponibile(const real& compenso)
else else
imponibile_calcolato = (compenso * quota_imp) / 100.00; imponibile_calcolato = (compenso * quota_imp) / 100.00;
// imponibile_calcolato = round_770(imponibile_calcolato); // imponibile_calcolato = round_770(imponibile_calcolato);
imponibile_calcolato.trunc();
} }
return imponibile_calcolato; return imponibile_calcolato;
} }
@ -1112,6 +1114,7 @@ real TSchedaPercipienti::calcola_ritenuta(const real& imponibile)
rite = imponibile; rite = imponibile;
else else
rite = (imponibile * rQuotaRaCaus)/100.00; rite = (imponibile * rQuotaRaCaus)/100.00;
rite.trunc();
return rite; return rite;
} }
@ -1162,7 +1165,7 @@ real TSchedaPercipienti::calcola_netto(TMask_field& f)
const real inpsperc (m.get(MPAG_INPSPERC)); const real inpsperc (m.get(MPAG_INPSPERC));
netto = compenso - ritenuta + spesa - inpsperc; netto = compenso - ritenuta + spesa - inpsperc;
netto.trunc();
f.mask().set(MPAG_NETTO, netto.string()); f.mask().set(MPAG_NETTO, netto.string());
return netto; return netto;

5
m770/771100e.uml
View File

@ -119,8 +119,9 @@ END
STRING F_NISCRAA 10 STRING F_NISCRAA 10
BEGIN BEGIN
PROMPT 30 9 "Numero di iscrizione all'albo " PROMPT 30 9 "Numero di iscrizione all'albo "
FLAGS "D" CHECKTYPE REQUIRED
FLAGS "DG"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4

2
m770/771200.cpp
View File

@ -535,7 +535,7 @@ bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k)
if (k == K_SPACE) if (k == K_SPACE)
{ {
TString appname(30); 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); TExternal_app a(appname);
a.run(); a.run();
} }

2
m770/771200a.uml
View File

@ -60,7 +60,7 @@ BEGIN
OUTPUT F_CODANAGDIP CODIP OUTPUT F_CODANAGDIP CODIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
END END

6
m770/771200b.uml
View File

@ -664,7 +664,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 44 11 "63 interessi " PROMPT 44 11 "63 interessi "
GROUP 7 // GROUP 7
END END
NUMBER F_IMPVER60 15 NUMBER F_IMPVER60 15
@ -712,7 +712,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 44 15 "66 Contr. versato " PROMPT 44 15 "66 Contr. versato "
GROUP 7 // GROUP 7
END END
NUMBER F_CONRIMB63 15 NUMBER F_CONRIMB63 15
@ -725,7 +725,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 16 "67 interessi " PROMPT 2 16 "67 interessi "
GROUP 7 // GROUP 7
END END
NUMBER F_CONVER64 15 NUMBER F_CONVER64 15

5
m770/771200c.uml
View File

@ -60,11 +60,8 @@ BEGIN
OUTPUT F_CODANAGDIP CODIP OUTPUT F_CODANAGDIP CODIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
// CHECKTYPE REQUIRED ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
// FIELD LF_QUAA1->CODIP
// KEY 1
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24

2
m770/771200e.uml
View File

@ -60,7 +60,7 @@ BEGIN
OUTPUT F_CODANAGDIP CODIP OUTPUT F_CODANAGDIP CODIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
END END

57
m770/771200f.uml
View File

@ -99,17 +99,30 @@ BEGIN
PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 " PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 "
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "10 Imposta rimborsata " PROMPT 2 7 "10 Imposta rimbor. "
GROUP 6 GROUP 6
END END
*/
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "11 Imposta versata " PROMPT 2 7 "11 Imposta versata "
GROUP 7 GROUP 7
END 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 NUMBER F_IIRPEFVER8 15
BEGIN BEGIN
@ -118,22 +131,31 @@ BEGIN
PICTURE "." PICTURE "."
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 7 "12 Interessi " PROMPT 41 7 "12 Interessi "
GROUP 6 GROUP 6
END END
*/
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "12 Interessi "
END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 " PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 "
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 7 "13 Imposta versata " PROMPT 41 7 "13 Imposta versata "
GROUP 7 GROUP 7
END END
*/
NUMBER F_IIRPEFRI9 15 NUMBER F_IIRPEFRI9 15
BEGIN BEGIN
@ -142,13 +164,13 @@ BEGIN
PICTURE "." PICTURE "."
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 8 "14 Interessi " PROMPT 2 8 "14 Interessi "
GROUP 6 GROUP 6
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 8 "1a rata acc.IRPEF96 " PROMPT 2 8 "1a rata acc.IRPEF96 "
@ -166,14 +188,16 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "13 Imposta versata " PROMPT 2 11 "13 Imposta versata "
GROUP 6 // GROUP 6
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "14 Interessi " PROMPT 2 11 "14 Interessi "
GROUP 7 GROUP 7
END END
*/
NUMBER F_PRIRPEF10 15 NUMBER F_PRIRPEF10 15
BEGIN BEGIN
@ -185,8 +209,8 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 11 "Interessi " PROMPT 41 11 "14 Interessi "
GROUP 6 // GROUP 6
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -273,14 +297,21 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 5 "16 Cont.a rimborso " PROMPT 2 5 "16 Cont.a rimborso "
GROUP 6 // GROUP 6
END END
TEXT DLG_NULL
BEGIN
PROMPT 41 5 "17 Cont. versato "
END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 5 "17 Cont. versato " PROMPT 2 5 "17 Cont. versato "
GROUP 7 GROUP 7
END END
*/
NUMBER QA2F_CSSNCRIMB 15 NUMBER QA2F_CSSNCRIMB 15
BEGIN BEGIN
@ -289,6 +320,7 @@ BEGIN
PICTURE "." PICTURE "."
END END
/*
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 5 "18 Interessi " PROMPT 41 5 "18 Interessi "
@ -300,6 +332,7 @@ BEGIN
PROMPT 41 5 "2a rata acc.CSSN 96" PROMPT 41 5 "2a rata acc.CSSN 96"
GROUP 7 GROUP 7
END END
*/
NUMBER QA2F_CSSNCVER 15 NUMBER QA2F_CSSNCVER 15
BEGIN BEGIN
@ -311,7 +344,7 @@ END
NUMBER QA2F_CSSNINT 15 NUMBER QA2F_CSSNINT 15
BEGIN BEGIN
PROMPT 2 6 "Interessi " PROMPT 2 6 "18 Interessi "
FIELD LF_QUAA2->INTER18 FIELD LF_QUAA2->INTER18
PICTURE "." PICTURE "."
END END
@ -323,21 +356,21 @@ END
NUMBER QA2F_CSSNAIV 15 NUMBER QA2F_CSSNAIV 15
BEGIN BEGIN
PROMPT 2 9 "Imposta versata " PROMPT 2 9 "19 Contrib.versato "
FIELD LF_QUAA2->CONTV19 FIELD LF_QUAA2->CONTV19
PICTURE "." PICTURE "."
END END
NUMBER QA2F_CSSNAINT 15 NUMBER QA2F_CSSNAINT 15
BEGIN BEGIN
PROMPT 41 9 "Interessi " PROMPT 41 9 "20 Interessi "
FIELD LF_QUAA2->INTE20 FIELD LF_QUAA2->INTE20
PICTURE "." PICTURE "."
END END
NUMBER QA2F_STCSSN 15 NUMBER QA2F_STCSSN 15
BEGIN 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 FIELD LF_QUAA2->SOPRAT21
PICTURE "." PICTURE "."
END END

2
m770/771200g.uml
View File

@ -75,7 +75,7 @@ BEGIN
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
ADD RUN 775 -0 ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
GROUP 2 GROUP 2
END END

40
m770/771230.cpp
View File

@ -5,6 +5,7 @@
#include <sort.h> #include <sort.h>
#include <tabutil.h> #include <tabutil.h>
#include <progind.h> #include <progind.h>
#include "caus77.h"
#include "77lib.h" #include "77lib.h"
#include "scperc.h" #include "scperc.h"
#include "rpag.h" #include "rpag.h"
@ -31,6 +32,7 @@ class TQuadroC_E2 : public TRelation_application
real rite; real rite;
real comp; real comp;
bool acim; bool acim;
bool bInps;
real inps; real inps;
}; };
righe_pag* _rig; righe_pag* _rig;
@ -81,7 +83,7 @@ class TQuadroC_E2 : public TRelation_application
bool azzera_quadro(); bool azzera_quadro();
void riempi_record(char,long,int,const real&,const real&, void riempi_record(char,long,int,const real&,const real&,
const real&,const real&,const real&,bool, const real&,const real&,const real&,bool,
const real& inps_perc); const real& inps_perc, bool bCinps=FALSE);
void init_sort(); void init_sort();
void leggi_sort(TProgind&); void leggi_sort(TProgind&);
TRectype& look_causali(int c); 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); int causale = f.mask().get_int(F_CODCAUS);
TRectype& cau = app().look_causali(causale); 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()); 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, void TQuadroC_E2::riempi_record(char t,long ca,int cc,const real& p,
const real& so,const real& im, const real& so,const real& im,
const real& ri,const real& co,bool acim, const real& ri,const real& co,bool acim,
const real& inps) const real& inps, bool bInps)
{ {
_rig->tipoa = t; _rig->tipoa = t;
sprintf(_rig->codan, "%5ld", ca); 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->rite = ri;
_rig->comp = co; _rig->comp = co;
_rig->acim = acim; _rig->acim = acim;
_rig->inps = inps; _rig->inps = inps;
_rig->bInps = bInps;
_sort->sort((const char*)_rig); _sort->sort((const char*)_rig);
} }
@ -386,10 +389,11 @@ bool TQuadroC_E2::generazione()
codcaus = scperc.get_int(SPR_CODCAUS); codcaus = scperc.get_int(SPR_CODCAUS);
nprog = scperc.get_int(SPR_NPROG); nprog = scperc.get_int(SPR_NPROG);
TRectype cau = look_causali(codcaus); TRectype cau = look_causali(codcaus);
TString16 qua = cau.get("S1"); TString16 qua = cau.get(bCODICE_QUADRO);
bool acc_imp = cau.get_bool("B0"); bool acc_imp = cau.get_bool(bSOMME_ASSOG_RAC);
bool bContrInps = cau.get_bool(bCONTRIBUTO_INPS);
if (_tipoq == 'D' && qua != "D") continue; if (_tipoq == 'D' && qua != "D") continue;
if (_tipoq == 'C' && qua != "C") continue; if (_tipoq == 'C' && qua != "C") continue;
if (_tipoq == '1' && qua != "D1") continue; if (_tipoq == '1' && qua != "D1") continue;
@ -423,7 +427,7 @@ bool TQuadroC_E2::generazione()
if (perc==ZERO && comp==ZERO && rite==ZERO && impo==ZERO if (perc==ZERO && comp==ZERO && rite==ZERO && impo==ZERO
&& somme==ZERO) && somme==ZERO)
continue; 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); rpag.readat(nrec);
} }
@ -540,9 +544,8 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
long codanag, codanag_p; long codanag, codanag_p;
int codcaus_p, codcaus, nprog; int codcaus_p, codcaus, nprog;
real tot_somme=ZERO,tot_impo=ZERO,tot_rite=ZERO,tot_comp=ZERO, rQCInps=ZERO; real tot_somme=ZERO,tot_impo=ZERO,tot_rite=ZERO,tot_comp=ZERO, rQCInps=ZERO;
real rTotQCInps = ZERO; real rTotQCInps = ZERO;
bool esiste_record = FALSE; bool esiste_record = FALSE, acc_imp = FALSE, bInps = FALSE;
bool acc_imp = FALSE;
struct righe_pag* rp; struct righe_pag* rp;
keyp = key = ""; keyp = key = "";
@ -559,8 +562,8 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
codcaus = atoi(rp->codcau); codcaus = atoi(rp->codcau);
perc = rp->perc; perc = rp->perc;
acc_imp = rp->acim; 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) if (QuadroE1() && !acc_imp)
{ {
genera_prospetto(codcaus,rp->comp,rp->impo,rp->rite); genera_prospetto(codcaus,rp->comp,rp->impo,rp->rite);
@ -569,7 +572,7 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
else else
{ {
key.format("%c%5ld%2d%s", tipoa, codanag, codcaus, (const char*)perc); key.format("%c%5ld%2d%s", tipoa, codanag, codcaus, (const char*)perc);
if (key != keyp && keyp != "") if ( (key != keyp) && (keyp != "") )
{ {
qd.zero(); qd.zero();
qd.put("CODDITTA", (long)get_firm_770()); qd.put("CODDITTA", (long)get_firm_770());
@ -580,7 +583,7 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
// 12.6.96 aggiunto contributo inps // 12.6.96 aggiunto contributo inps
if (QuadroC()) if (QuadroC())
qd.put("CONTSSN", rQCInps); qd.put("CONTSSN", rTotQCInps);
if (QuadroD() || QuadroC()) if (QuadroD() || QuadroC())
qd.put("SOMME", tot_somme + tot_comp - tot_impo); qd.put("SOMME", tot_somme + tot_comp - tot_impo);
@ -619,14 +622,15 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
else else
qd.put("NETTO", tot_impo - tot_rite); qd.put("NETTO", tot_impo - tot_rite);
qd.write(); 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_somme += rp->somme;
tot_rite += rp->rite; tot_rite += rp->rite;
tot_impo += rp->impo; tot_impo += rp->impo;
tot_comp += rp->comp; tot_comp += rp->comp;
rTotQCInps += rQCInps; if (bInps)
rTotQCInps += rQCInps;
if (tipoa_p != tipoa || codanag != codanag_p) if (tipoa_p != tipoa || codanag != codanag_p)
nprog = 1; nprog = 1;

2
m770/771230b.uml
View File

@ -88,7 +88,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
FIELD LF_QUAD->CODCAUS FIELD LF_QUAD->CODCAUS
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING QDF_CODCAUSD 1 STRING QDF_CODCAUSD 1

2
m770/771230f.uml
View File

@ -86,7 +86,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
FIELD LF_QUAC->CODCAUS FIELD LF_QUAC->CODCAUS
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING F_DESCRCAUS 58 STRING F_DESCRCAUS 58

2
m770/771230h.uml
View File

@ -83,7 +83,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
FIELD LF_QUAE->CODCAUS FIELD LF_QUAE->CODCAUS
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING F_DESCRCAUS 58 STRING F_DESCRCAUS 58

3
m770/771230i.uml
View File

@ -10,8 +10,7 @@ END
BUTTON F_PROSPETTO 21 2 BUTTON F_PROSPETTO 21 2
BEGIN BEGIN
PROMPT -23 -3 "~Prospetto" PROMPT -23 -3 "~Prospetto"
// MESSAGE RUN,7783,771230m,89,"Prospetto del Quadro E1","E1" MESSAGE RUN,773mod,-1,771230m,89,"Prospetto del Quadro E1","E1"
MESSAGE RUN,773,-1,771230m,89,"Prospetto del Quadro E1","E1"
END END
#include <toolbar.h> #include <toolbar.h>

2
m770/771230l.uml
View File

@ -83,7 +83,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
FIELD LF_QUAE1->CODCAUS FIELD LF_QUAE1->CODCAUS
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING F_DESCRCAUS 58 STRING F_DESCRCAUS 58

2
m770/771230m.uml
View File

@ -64,7 +64,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
FIELD LF_PROSPE1->CODCAUS FIELD LF_PROSPE1->CODCAUS
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
KEY 1 KEY 1
GROUP 9 GROUP 9
MESSAGE COPY,PE1F_CODCAUS MESSAGE COPY,PE1F_CODCAUS

2
m770/771231a.uml
View File

@ -219,7 +219,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
FIELD LF_QUAF->F_CODCAUS FIELD LF_QUAF->F_CODCAUS
END END

2
m770/771231b.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT 103 R0 OUTPUT 103 R0
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
GROUP 1 GROUP 1
END END

2
m770/771231c.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT 103 R0 OUTPUT 103 R0
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
GROUP 1 GROUP 1
END END

2
m770/771232b.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT 103 R0 OUTPUT 103 R0
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
GROUP 1 GROUP 1
END END

2
m770/771233b.uml
View File

@ -17,7 +17,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
VALIDATE REQIF_FUNC 6 102 103 104 105 VALIDATE REQIF_FUNC 6 102 103 104 105
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
GROUP 1 GROUP 1
END END

35
m770/771310.cpp
View File

@ -161,44 +161,9 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
{ {
if (k == K_TAB && f.mask().is_running()) if (k == K_TAB && f.mask().is_running())
{ {
// TLocalisamfile qual (LF_QUAL,FALSE);
TRelation* rel = app()._rel; TRelation* rel = app()._rel;
TMask& m = f.mask(); TMask& m = f.mask();
m.autosave(rel); 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) if (rel->read() == NOERR)
f.mask().stop_run(K_AUTO_ENTER); f.mask().stop_run(K_AUTO_ENTER);
else else

660
m770/771310a.uml
View File

@ -1,329 +1,331 @@
// 771310a.uml - Quadro L // 771310a.uml - Quadro L
#include "771310.h" #include "771310.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
BUTTON F_GENERA 21 2 BUTTON F_GENERA 21 2
BEGIN BEGIN
PROMPT -13 -3 "~Generazione" PROMPT -13 -3 "~Generazione"
END END
BUTTON F_PARAMETRI 21 2 BUTTON F_PARAMETRI 21 2
BEGIN BEGIN
PROMPT -23 -3 "~Parametri Generazione" PROMPT -23 -3 "~Parametri Generazione"
END END
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "QUADRO L" -1 -1 78 18 PAGE "QUADRO L" -1 -1 78 18
#define ABI_CAB 7 #define ABI_CAB 7
#define NUM_SERIE 8 #define NUM_SERIE 8
#define TEXT_NUM_SERIE 9 #define TEXT_NUM_SERIE 9
#define TEXT_ABI_CAB 6 #define TEXT_ABI_CAB 6
#define GH 10 #define GH 10
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_QUAL->CODDITTA FIELD LF_QUAL->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
TEXT 96 TEXT 96
BEGIN BEGIN
PROMPT 2 10 "Numero serie " PROMPT 2 10 "Numero serie "
GROUP TEXT_NUM_SERIE GROUP TEXT_NUM_SERIE
END END
TEXT 97 TEXT 97
BEGIN BEGIN
PROMPT 2 10 "Codice ABI " PROMPT 2 10 "Codice ABI "
GROUP ABI_CAB GROUP ABI_CAB
END END
TEXT 98 TEXT 98
BEGIN BEGIN
PROMPT 46 10 "Numero quietanza " PROMPT 46 10 "Numero quietanza "
GROUP TEXT_NUM_SERIE GROUP TEXT_NUM_SERIE
END END
TEXT 99 TEXT 99
BEGIN BEGIN
PROMPT 46 10 "Codice CAB " PROMPT 46 10 "Codice CAB "
GROUP ABI_CAB GROUP ABI_CAB
END END
GROUPBOX DLG_NULL 78 7 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 0 5 "" PROMPT 0 5 ""
END END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 2 4 "Anno dichiarazione " PROMPT 2 4 "Anno dichiarazione "
END END
NUMBER F_QLANNOPAG 4 NUMBER F_QLANNOPAG 4
BEGIN BEGIN
PROMPT 2 6 "Anno pagamento " PROMPT 2 6 "Anno pagamento "
USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC)) USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
INPUT QLAP F_QLANNOPAG INPUT QLAP F_QLANNOPAG
DISPLAY "A.P." QLAP DISPLAY "A.P." QLAP
DISPLAY "M.P." QLMP DISPLAY "M.P." QLMP
DISPLAY "Ritenute@15" QLRITEFF DISPLAY "Ritenute@15" QLRITEFF
DISPLAY "Importo versato" QLRITVER DISPLAY "Importo versato" QLRITVER
DISPLAY "L.V." QLLV DISPLAY "L.V." QLLV
DISPLAY "T.V." QLTV DISPLAY "T.V." QLTV
DISPLAY "C.T." QLCT DISPLAY "C.T." QLCT
DISPLAY "Art.Bil." QLAB DISPLAY "Art.Bil." QLAB
DISPLAY "Data Vers." QLDV DISPLAY "Data Vers." QLDV
DISPLAY "Serie/ABI" QLSERIE DISPLAY "Serie/ABI" QLSERIE
DISPLAY "Numero/CAB@11" QLNUMERO DISPLAY "Numero/CAB@11" QLNUMERO
DISPLAY "Rss" QLRSS DISPLAY "Rss" QLRSS
DISPLAY "Note@7" QLNOTE DISPLAY "Note@7" QLNOTE
OUTPUT F_QLDATAVERS QLDV OUTPUT F_QLDATAVERS QLDV
OUTPUT F_QLMESEPAG QLMP OUTPUT F_QLMESEPAG QLMP
OUTPUT F_QLANNOPAG QLAP OUTPUT F_QLANNOPAG QLAP
OUTPUT F_QLLUOVERS QLLV OUTPUT F_QLLUOVERS QLLV
OUTPUT F_QLTIPOVERS QLTV OUTPUT F_QLTIPOVERS QLTV
OUTPUT F_QLCODTRIB QLCT OUTPUT F_QLCODTRIB QLCT
OUTPUT F_ARTBIL QLAB OUTPUT F_ARTBIL QLAB
OUTPUT F_QLSERIE QLSERIE OUTPUT F_QLSERIE QLSERIE
OUTPUT F_ABI QLSERIE OUTPUT F_ABI QLSERIE
OUTPUT F_CAB1 QLNUMERO[1,5] OUTPUT F_CAB1 QLNUMERO[1,5]
OUTPUT F_CAB QLNUMERO[6,11] OUTPUT F_CAB QLNUMERO[6,11]
FIELD LF_QUAL->QLAP FIELD LF_QUAL->QLAP
FLAGS "R" FLAGS "R"
VALIDATE FIXLEN_FUNC 4 VALIDATE FIXLEN_FUNC 4
WARNING "L' anno deve essere indicato per esteso" WARNING "L' anno deve essere indicato per esteso"
KEY 1 KEY 1
END END
LIST F_QLMESEPAG 2 13 LIST F_QLMESEPAG 2 13
BEGIN BEGIN
PROMPT 46 6 "Mese pagamento " PROMPT 46 6 "Mese pagamento "
FIELD LF_QUAL->QLMP FIELD LF_QUAL->QLMP
ITEM " |Indefinito" ITEM " |Indefinito"
FLAGS "M" FLAGS "M"
KEY 1 KEY 1
END END
DATE F_QLDATAVERS DATE F_QLDATAVERS
BEGIN BEGIN
PROMPT 2 7 "Data versamento " PROMPT 2 7 "Data versamento "
FIELD LF_QUAL->QLDV FIELD LF_QUAL->QLDV
KEY 1 KEY 1
END END
LIST F_QLLUOVERS 11 LIST F_QLLUOVERS 11
BEGIN BEGIN
PROMPT 46 7 "Luogo versamento " PROMPT 46 7 "Luogo versamento "
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "C|Concessione" ITEM "C|Concessione"
ITEM "T|Tesoreria" ITEM "T|Tesoreria"
FIELD LF_QUAL->QLLV FIELD LF_QUAL->QLLV
KEY 1 KEY 1
END END
LIST F_QLTIPOVERS 15 LIST F_QLTIPOVERS 15
BEGIN BEGIN
PROMPT 2 8 "Tipo versamento " PROMPT 2 8 "Tipo versamento "
ITEM " |Nessuno" ITEM " |Nessuno"
MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@ MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
MESSAGE ENABLE,F_QLSERIE MESSAGE ENABLE,F_QLSERIE
ITEM "B|Delega bancaria" ITEM "B|Delega bancaria"
MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@ MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@ MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
ITEM "D|Distinta" ITEM "D|Distinta"
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@ MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@ MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
ITEM "C|C/C Postale" ITEM "C|C/C Postale"
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@ MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@ MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
FIELD LF_QUAL->QLTV FIELD LF_QUAL->QLTV
KEY 1 KEY 1
END END
NUMBER F_QLCODTRIB 4 NUMBER F_QLCODTRIB 4
BEGIN BEGIN
PROMPT 46 8 "Codice tributo " PROMPT 46 8 "Codice tributo "
FIELD LF_QUAL->QLCT FIELD LF_QUAL->QLCT
KEY 1 KEY 1
END END
NUMBER F_ARTBIL 2 NUMBER F_ARTBIL 2
BEGIN BEGIN
PROMPT 2 9 "Articolo di bilancio " PROMPT 2 9 "Articolo di bilancio "
FIELD LF_QUAL->QLAB FIELD LF_QUAL->QLAB
KEY 1 KEY 1
END END
STRING F_QLSERIE 5 STRING F_QLSERIE 5
BEGIN BEGIN
PROMPT 23 10 "" PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE FIELD LF_QUAL->QLSERIE
GROUP NUM_SERIE GROUP NUM_SERIE
KEY 1 KEY 1
END END
STRING F_QLNUMERO 11 STRING F_QLNUMERO 11
BEGIN BEGIN
PROMPT 63 10 "" PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO FIELD LF_QUAL->QLNUMERO
GROUP NUM_SERIE GROUP NUM_SERIE
KEY 1 KEY 1
END END
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 23 10 "" PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE FIELD LF_QUAL->QLSERIE
GROUP ABI_CAB FLAGS "Z"
KEY 1 GROUP ABI_CAB
END KEY 1
END
NUMBER F_CAB1 5
BEGIN NUMBER F_CAB1 5
PROMPT 63 10 "" BEGIN
FIELD LF_QUAL->QLNUMERO[1,5] PROMPT 63 10 ""
GROUP ABI_CAB FIELD LF_QUAL->QLNUMERO[1,5]
KEY 1 FLAGS "Z"
END GROUP ABI_CAB
KEY 1
NUMBER F_CAB 6 END
BEGIN
PROMPT 69 10 "" NUMBER F_CAB 6
FIELD LF_QUAL->QLNUMERO[6,11] BEGIN
FLAGS "Z" PROMPT 69 10 ""
GROUP ABI_CAB FIELD LF_QUAL->QLNUMERO[6,11]
KEY 1 FLAGS "Z"
END GROUP ABI_CAB
KEY 1
LIST F_QUADRO 2 END
BEGIN
PROMPT 0 12 "Codice quadro " LIST F_QUADRO 2
HELP "Inserire il codice quadro" BEGIN
ITEM "| " PROMPT 0 12 "Codice quadro "
ITEM "A|A" HELP "Inserire il codice quadro"
ITEM "B|B" ITEM "| "
ITEM "B1|B1" ITEM "A|A"
ITEM "C|C" ITEM "B|B"
ITEM "D|D" ITEM "B1|B1"
ITEM "D1|D1" ITEM "C|C"
ITEM "E|E" ITEM "D|D"
ITEM "E1|E1" ITEM "D1|D1"
ITEM "G|G" ITEM "E|E"
ITEM "G1|G1" ITEM "E1|E1"
FIELD LF_QUAL->QLCODQUA ITEM "G|G"
END ITEM "G1|G1"
FIELD LF_QUAL->QLCODQUA
TEXT DLG_NULL END
BEGIN
PROMPT 0 13 "Somme assoggettate a ritenuta:" TEXT DLG_NULL
END BEGIN
PROMPT 0 13 "Somme assoggettate a ritenuta:"
TEXT DLG_NULL END
BEGIN
PROMPT 0 14 "Rit. Effettuate" TEXT DLG_NULL
END BEGIN
PROMPT 0 14 "Rit. Effettuate"
NUMBER F_QLRITEFF 15 END
BEGIN
PROMPT 0 15 "" NUMBER F_QLRITEFF 15
FIELD LF_QUAL->QLRITEFF BEGIN
PICTURE "." PROMPT 0 15 ""
FLAGS "R" FIELD LF_QUAL->QLRITEFF
END PICTURE "."
FLAGS "R"
TEXT DLG_NULL END
BEGIN
PROMPT 17 14 "Importo versato" TEXT DLG_NULL
END BEGIN
PROMPT 17 14 "Importo versato"
NUMBER F_QLRITVER 15 END
BEGIN
PROMPT 17 15 "" NUMBER F_QLRITVER 15
FIELD LF_QUAL->QLRITVER BEGIN
PICTURE "." PROMPT 17 15 ""
FLAGS "R" FIELD LF_QUAL->QLRITVER
END PICTURE "."
FLAGS "R"
TEXT DLG_NULL END
BEGIN
PROMPT 37 14 "RSS" TEXT DLG_NULL
END BEGIN
PROMPT 37 14 "RSS"
LIST F_QLRSS 7 END
BEGIN
PROMPT 34 15 "" LIST F_QLRSS 7
ITEM " |Nessuna" BEGIN
ITEM "1|VA" PROMPT 34 15 ""
ITEM "2|SA" ITEM " |Nessuna"
ITEM "3|SI" ITEM "1|VA"
FIELD LF_QUAL->QLRSS ITEM "2|SA"
END ITEM "3|SI"
FIELD LF_QUAL->QLRSS
TEXT DLG_NULL END
BEGIN
PROMPT 58 14 "Note" TEXT DLG_NULL
END BEGIN
PROMPT 58 14 "Note"
BOOLEAN F_NOTEA END
BEGIN
PROMPT 45 15 "A" BOOLEAN F_NOTEA
END BEGIN
PROMPT 45 15 "A"
BOOLEAN F_NOTEB END
BEGIN
PROMPT 50 15 "B" BOOLEAN F_NOTEB
END BEGIN
PROMPT 50 15 "B"
BOOLEAN F_NOTEC END
BEGIN
PROMPT 55 15 "C" BOOLEAN F_NOTEC
END BEGIN
PROMPT 55 15 "C"
BOOLEAN F_NOTED END
BEGIN
PROMPT 60 15 "D" BOOLEAN F_NOTED
END BEGIN
PROMPT 60 15 "D"
BOOLEAN F_NOTEE END
BEGIN
PROMPT 65 15 "E" BOOLEAN F_NOTEE
END BEGIN
PROMPT 65 15 "E"
BOOLEAN F_NOTEF END
BEGIN
PROMPT 70 15 "F" BOOLEAN F_NOTEF
END BEGIN
PROMPT 70 15 "F"
BOOLEAN F_NOTEG END
BEGIN
PROMPT 75 15 "G" BOOLEAN F_NOTEG
END BEGIN
PROMPT 75 15 "G"
ENDPAGE END
ENDMASK ENDPAGE
ENDMASK

2
m770/773.cpp
View File

@ -1,7 +1,7 @@
#include <xvt.h> #include <xvt.h>
#include <checks.h> #include <checks.h>
#include "773.h" #include "773.h"
#define usage "Error - usage : %s -{0|1|2|3}" #define usage "Error - usage : %s -{0|1|2|3}"

3
m770/773100.cpp
View File

@ -1,3 +1,4 @@
// 773100 - Parametri di studio 770
#include <confapp.h> #include <confapp.h>
class M73_App : public TConfig_application class M73_App : public TConfig_application
@ -9,7 +10,7 @@ class M73_App : public TConfig_application
virtual ~M73_App() {} virtual ~M73_App() {}
}; };
bool M73_App::user_create() bool M73_App::user_create()
{ {
TString16 section; TString16 section;
const char* edit_mask = "773100a"; const char* edit_mask = "773100a";

25
m770/773100a.uml
View File

@ -7,21 +7,24 @@ PAGE "Parametri Modello 770" -1 -1 76 13
// //
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 3 2 "Anno dichiarazione " PROMPT 3 2 "Anno dichiarazione "
FLAGS "R" FLAGS "R"
FIELD AnnoDic FIELD AnnoDic
END END
NUMBER F_CODCAU1015 2 NUMBER F_CODCAU1015 2
BEGIN BEGIN
PROMPT 3 4 "Codice causale 1015 " PROMPT 3 4 "Codice causale 1015 "
USE %CA7 SELECT (I0=1015) USE %CA7 SELECT (I0=1015)
INPUT CODTAB F_CODCAU1015 INPUT CODTAB F_CODCAU1015
DISPLAY "Codice Causale" CODTAB DISPLAY "Codice Causale" CODTAB
DISPLAY "Descrizione@60" S0 DISPLAY "Descrizione@60" S0
OUTPUT F_CODCAU1015 CODTAB OUTPUT F_CODCAU1015 CODTAB
FIELD CoCa1015 CHECKTYPE NORMAL
FLAGS "RZ" WARNING "Causale non valida"
FIELD CoCa1015
FLAGS "Z"
ADD RUN 773mod -3 %ca7
END END
LIST F_FSTAMPAQL 35 LIST F_FSTAMPAQL 35

26
m770/773mod.url Executable file
View 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
View File

File diff suppressed because it is too large Load Diff

3
m770/774200.cpp
View File

@ -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; i27_1 = i27_2 = i27_3 = i27_4 = i27_5 = ZERO;
(*cur) = 0L; (*cur) = 0L;
TRecnotype items = cur->items(); TRecnotype items = cur->items();
almeno_una_riga = items > 0L;
i27_1 = cur->curr().get_real(QG1_P12TOT); i27_1 = cur->curr().get_real(QG1_P12TOT);
i27_2 = cur->curr().get_real(QG1_P13TOT); 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_4 = cur->curr().get_real(QG1_P16TOT);
i27_5 = cur->curr().get_real(QG1_P17TOT); 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); TString scritta(60);
scritta.format("Calcolo riporti del quadro G-1 per la ditta %ld", _codditta); scritta.format("Calcolo riporti del quadro G-1 per la ditta %ld", _codditta);
TProgind progn(items, scritta, FALSE, TRUE); TProgind progn(items, scritta, FALSE, TRUE);

20
m770/776100b.uml
View File

@ -77,7 +77,7 @@ BEGIN
PROMPT 1 7 "" PROMPT 1 7 ""
PICTURE 123 PICTURE 123
GROUP 1 GROUP 1
MESSAGE RUN,773,-1,771150a,45,"Anagrafica dipendenti",/uPRASSI MESSAGE RUN,773mod,-1,771150a,45,"Anagrafica dipendenti",/uPRASSI
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -218,7 +218,7 @@ BUTTON DLG_STOPREC_B 1 1
BEGIN BEGIN
PROMPT 1 14 "" PROMPT 1 14 ""
PICTURE 123 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 GROUP 1
END END
@ -232,7 +232,7 @@ BUTTON DLG_STOPREC_B1 1 1
BEGIN BEGIN
PROMPT 1 15 "" PROMPT 1 15 ""
PICTURE 123 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 GROUP 1
END END
@ -460,7 +460,7 @@ BUTTON DLG_STOPREC_N 1 1
BEGIN BEGIN
PROMPT 39 16 "" PROMPT 39 16 ""
PICTURE 123 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 GROUP 1
END END
// Fine terza colonna // Fine terza colonna
@ -476,7 +476,7 @@ BUTTON DLG_STOPREC_P 1 1
BEGIN BEGIN
PROMPT 58 10 "" PROMPT 58 10 ""
PICTURE 123 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 GROUP 1
END END
@ -489,7 +489,7 @@ END
BUTTON DLG_STOPREC_Q 1 1 BUTTON DLG_STOPREC_Q 1 1
BEGIN BEGIN
PROMPT 58 11 "" 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 PICTURE 123
GROUP 1 GROUP 1
END END
@ -504,7 +504,7 @@ BUTTON DLG_STOPREC_R 1 1
BEGIN BEGIN
PROMPT 58 12 "" PROMPT 58 12 ""
PICTURE 123 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 GROUP 1
END END
@ -518,7 +518,7 @@ BUTTON DLG_STOPREC_S 1 1
BEGIN BEGIN
PROMPT 58 13 "" PROMPT 58 13 ""
PICTURE 123 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 GROUP 1
END END
@ -532,7 +532,7 @@ BUTTON DLG_STOPREC_T 1 1
BEGIN BEGIN
PROMPT 58 14 "" PROMPT 58 14 ""
PICTURE 123 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 GROUP 1
END END
// Fine QUARTA colonna // Fine QUARTA colonna
@ -663,7 +663,7 @@ BUTTON DLG_STOPREC_SOCTRA 1 1
BEGIN BEGIN
PROMPT 1 12 "" PROMPT 1 12 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,773,-1,771100h,102,"Manutenzione dati societa' trasformate" MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati societa' trasformate"
FLAGS "H" FLAGS "H"
GROUP 2 GROUP 2
END END

22
m770/776500.cpp
View File

@ -23,7 +23,6 @@ class TParametri_genera : public TApplication
int _risposta; int _risposta;
bool init_print(); bool init_print();
protected: protected:
static bool ProgBancaHnd(TMask_field& f, KEY k);
virtual void on_config_change(); virtual void on_config_change();
virtual bool create() ; virtual bool create() ;
virtual bool destroy(); virtual bool destroy();
@ -42,32 +41,11 @@ void TParametri_genera::on_config_change()
_anno_dic = (int)conf.get_long(ANNO_SEL, _section); _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() bool TParametri_genera::main_loop()
{ {
KEY tasto; KEY tasto;
TMask msk ("776500a"); TMask msk ("776500a");
msk.set_handler(F_CAB, ProgBancaHnd);
msk.set_handler(F_PROGBANCA, ProgBancaHnd);
long codditta, codditta_prec; long codditta, codditta_prec;
int i = 0; int i = 0;

19
m770/776500a.uml
View File

@ -110,32 +110,23 @@ NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 18 13 "" PROMPT 18 13 ""
FIELD LF_BASE->SERIE FIELD LF_BASE->SERIE
FLAGS "RZ" FLAGS "Z"
GROUP ABI_CAB GROUP ABI_CAB
END END
STRING FH_NUMERO 11
BEGIN
PROMPT 0 1 ""
FLAGS "D"
KEY 1
FIELD LF_BASE->NUMERO
END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 63 13 "" PROMPT 63 13 ""
// FIELD LF_BASE->NUMERO FIELD LF_BASE->NUMERO[1,5]
// MESSAGE COPY,FH_NUMERO FLAGS "Z"
FLAGS "RZ"
GROUP ABI_CAB GROUP ABI_CAB
END END
NUMBER F_PROGBANCA 6 NUMBER F_PROGBANCA 6
BEGIN BEGIN
PROMPT 69 13 "" PROMPT 69 13 ""
FLAGS "RZ" FLAGS "Z"
// MESSAGE ADD,FH_NUMERO FIELD LF_BASE->NUMERO[6,11]
GROUP ABI_CAB GROUP ABI_CAB
END END

2
m770/77qe2b.uml
View File

@ -80,7 +80,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
FIELD LF_QUAE2->CODCAUS FIELD LF_QUAE2->CODCAUS
ADD RUN 773 -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING F_DESCRCAUS 60 STRING F_DESCRCAUS 60

5
m770/caus77.h Executable file
View 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"

47
m770/quadb_b1.cpp
View File

@ -35,7 +35,6 @@ class TQuadriBB1_application : public TRelation_application
bool _MaskConAnnoDic, _MaskConCodditta; bool _MaskConAnnoDic, _MaskConCodditta;
bool MaskConAnnoDic() const; bool MaskConAnnoDic() const;
bool MaskConCodditta() const { return _MaskConCodditta; } bool MaskConCodditta() const { return _MaskConCodditta; }
bool EsisteUnRec();
bool QuadroB() const { return _num == LF_QUAB; } bool QuadroB() const { return _num == LF_QUAB; }
bool QuadroB1() const { return _num == LF_QUAB1; } bool QuadroB1() const { return _num == LF_QUAB1; }
bool CheckImporti(const TMask& m); bool CheckImporti(const TMask& m);
@ -47,6 +46,7 @@ class TQuadriBB1_application : public TRelation_application
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
// virtual int read(TMask& m);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual int write (const TMask& m); virtual int write (const TMask& m);
virtual bool remove(); virtual bool remove();
@ -145,13 +145,11 @@ TMask* TQuadriBB1_application::load_mask(int n)
switch (n) switch (n)
{ {
case 0: case 0:
if (m)
{}
break; break;
case 1: case 1:
if (m) if (m)
if (QuadroB()) if (QuadroB())
{ {
m->set_handler(QBF_TOTIMP, QBTotRedImpHandler); m->set_handler(QBF_TOTIMP, QBTotRedImpHandler);
m->set_handler(QBF_ROPE, QBAmmRopeHandler); m->set_handler(QBF_ROPE, QBAmmRopeHandler);
m->set_handler(QBF_AMMNETTO, QBTotIndennHandler); m->set_handler(QBF_AMMNETTO, QBTotIndennHandler);
@ -191,19 +189,6 @@ bool TQuadriBB1_application::user_create()
return TRUE; 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() bool TQuadriBB1_application::user_destroy()
{ {
if (_quadro != "") if (_quadro != "")
@ -257,6 +242,21 @@ int TQuadriBB1_application::rewrite(const TMask& m)
_registra = err == NOERR; _registra = err == NOERR;
return err; 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) 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) void TQuadriBB1_application::init_query_mode(TMask& m)
{ {
m.set(ANNODIC77, _anno_dic); 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) 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) 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()); const long codip = atol(f.get());
if (codip==0L) if (codip==0L)
return TRUE; return TRUE;
if (!esiste_dipendente(app()._codditta, codip)) if (!esiste_dipendente(app()._codditta, codip))
return f.warning_box("Dipendente inesistente"); return f.warning_box("Dipendente inesistente");
PrimoNprogLibero(m, app()._codditta, codip); PrimoNprogLibero(m, app()._codditta, codip);
} }
return TRUE; return TRUE;
@ -388,7 +382,6 @@ bool TQuadriBB1_application::NprogExitHandler(TMask_field& f, KEY k)
TMask& m = f.mask(); TMask& m = f.mask();
if (!m.is_running()) return TRUE; if (!m.is_running()) return TRUE;
// if (k == K_TAB && ricerca(m))
if (k == K_TAB) if (k == K_TAB)
{ {
TString nprog(f.get()); TString nprog(f.get());