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

Patch level : 12.0 1032

Browse Source 
Files correlati     : 770.exe 770100b.uml 771mod.exe 777.exe

Commento :

Certificazione Unica 2021

Interno

Da controllare l'invio e la corrispondenza del modulo certificazione unica.
This commit is contained in:
Alessandro Bonazzi 2021-02-15 20:24:06 +01:00
parent 52330e64b6
commit 129fe729b5
6 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/m770/770100.cpp
View File

@ -972,8 +972,8 @@ void TSchedaPercipienti::rec2row(TToken_string& r, TRectype& rec, int row)
s.somregconv = rec.get_real(PAG_SOMREGCONV);
s.alqimp10 = rec.get_real(PAG_ALQIMP10);
s.cod10 = rec.get(PAG_COD10);
s.speserimb = rec.get_real(PAG_SPESERIMB);
s.ritrimb = rec.get_real(PAG_RITRIMB);
s.speserimb = rec.get_real(PAG_SPESERIMB);
s.ritrimb = rec.get_real(PAG_RITRIMB);
s.srnetrit = rec.get_real(PAG_SRNETRIT);
s.utpagati = rec.get_real(PAG_UTPAGATI);
s.utspett = rec.get_real(PAG_UTSPETT);

8
src/m770/770100b.uml
View File

@ -247,10 +247,10 @@ BEGIN
ITEM "% R.a."
ITEM "Ritenuta@15"
ITEM "Somme reg.conv.@15"
ITEM "% Imp.10%"
ITEM "Con.10% perc.@15"
ITEM "Con.10% compl.@15"
ITEM "Cod.10%"
ITEM "% Imp.prev.@15"
ITEM "Con.prev. perc.@15"
ITEM "Con.prev. compl.@15"
ITEM "Cod.prev."
ITEM "Spese Rimborsate"
ITEM "Ritenute Rimborsate"
ITEM "Somme restituite\n netto ritenuta@15"

2
src/m770/770100e.uml
View File

@ -190,7 +190,7 @@ END
NUMBER 119 7
BEGIN
PROMPT 33 13 "Registrazione num."
PROMPT 2 13 "Registrazione numero "
FLAGS "DR"
FIELD LF_RPAG->NUMREG
END

12
src/m770/770100f.uml
View File

@ -9,7 +9,7 @@ BEGIN
FIELD LF_RPAG->DATAPAG
END
GROUPBOX DLG_NULL 49 15
GROUPBOX DLG_NULL 49 17
BEGIN
PROMPT 1 2 ""
END
@ -85,7 +85,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 9 "% Imponibile contr.10%"
PROMPT 2 9 "% Imponibile contr.prev."
END
NUMBER 108 6
@ -100,7 +100,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "Contr.10% percipiente"
PROMPT 2 10 "Contr.prev. percipiente"
END
CURRENCY 109 15
@ -111,7 +111,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "Contr.10% complessivo"
PROMPT 2 11 "Contr.prev. complessivo"
END
CURRENCY 110 15
@ -122,7 +122,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 12 "Codice contr.10%"
PROMPT 2 12 "Codice contr.prev."
END
STRING 111 1
@ -236,7 +236,7 @@ END
NUMBER 122 7
BEGIN
PROMPT 33 17 "Registrazione num. "
PROMPT 2 17 "Registrazione numero "
FLAGS "DR"
FIELD LF_RPAG->NUMREG
END

4
src/m770/771230.cpp
View File

@ -129,7 +129,6 @@ void TRighe_riepilogo::genera_la(TRectype& quadro, const TRectype& riga, const T
const real inps_perc = riga.get_real(PAG_INPSPERC);
const real inps_erog = inps_tot - inps_perc;
quadro.put(QUD_CTINPSEROG, inps_erog); // AUXXX034
quadro.put(QUD_CTINPSPERC, inps_perc); // AUXXX035
}
@ -837,7 +836,8 @@ void TQuadroC_E2::genera_la(TRectype& quadro, const TRectype& riga, const TStrin
const real spese_rimb = riga.get_real(PAG_SPESERIMB);
const real rit_rimb = riga.get_real(PAG_RITRIMB);
const real somm_rest = riga.get_real(PAG_SRNETRIT);
if (inps_tot > ZERO && riga.get_real(PAG_IMPONIBILE) > real(5000))
if (inps_tot > ZERO)
{
inps_perc = riga.get_real(PAG_INPSPERC);
inps_erog = inps_tot - inps_perc;

10
src/m770/777200.cpp
View File

@ -852,23 +852,25 @@ bool TTrasferimentoCU::append_record_h(const TRectype& qla, int modulo, TLog_rep
rec.np_put("AU001021", qla.get_real(QUD_RITRIMB)); // ritenute rimborsate
rec.np_put("AU001022", qla.get_real(QUD_SRNETRIT)); // somme restituite al netto della ritenuta subita
const real cce = qla.get_real(QUD_CTINPSEROG);
const real ccp = qla.get_real(QUD_CTINPSPERC);
const real cal = qla.get_real("ALTRICONTR");
const real cdo = qla.get_real("CONTRDOV");
const real cve = qla.get_real("CONTRVER");
TString8 entprev = qla.get("ENTEPREV");
TString4 cat = qla.get("CATEGORIA");
TString cfep;
if (entprev.blank())
{
const TRectype& aperc = cache().get_rec(LF_PERC, qla.get("CODDITTA"), qla.get("TIPOA"), qla.get("CODANAGR")); // Perchè prima era TIPO ?
const TRectype& aperc = cache().get_rec(LF_PERC, qla.get("CODDITTA"), qla.get("TIPOA"), qla.get("CODANAGR"));
entprev = aperc.get("ENTEPREV");
cat = aperc.get("CATEGORIA");
}
if (entprev.full())
{
const real cce = qla.get_real(QUD_CTINPSEROG);
const real ccp = qla.get_real(QUD_CTINPSPERC);
const TRectype& inps = cache().get("%ENT", entprev);
cfep << inps.get("S5");
rec.np_put("AU001029", cfep); // codice fiscale ente previdenziale