Patch level : 12.0 1032

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.

src/m770/770100.cpp

@@ -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.speserimb = rec.get_real(PAG_SPESERIMB);
-	s.ritrimb = rec.get_real(PAG_RITRIMB);
+	  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);

src/m770/770100b.uml

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

src/m770/770100e.uml

@@ -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

src/m770/770100f.uml

@@ -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

src/m770/771230.cpp

@@ -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;

src/m770/777200.cpp

@@ -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