Patch level : 10.0 290

Files correlati     :  
Commento            :

Gestione crediti compensabili


git-svn-id: svn://10.65.10.50/branches/R_10_00@23371 c028cbd2-c16b-5b4b-a496-9718f37d4682

src/cg/cg4300.cpp

@@ -883,12 +883,8 @@ bool TLiquidazione_app::set_liquidazione()
   m.set_handler(CG43_CHK_FINAL, chk_final_handler);
 
 	m.set(CG43_FLD_ANNO, _year);
-  
+  m.set(CG43_LST_MESE, _month);  
-  // stampa abilitata per default
+  m.set(CG43_CHK_STAMPA,"X");    // stampa abilitata per default
-  m.set(CG43_CHK_STAMPA,"X");  
-  
-  _month = m.get_int(CG43_LST_MESE);
-  
   m.set(CG43_RDB_VERS, _what);
   
   const KEY k = m.run();

src/cg/cg4300a.uml

@@ -23,7 +23,7 @@ NUMBER CG43_FLD_ANNO 4
 BEGIN
   PROMPT 28 2 "Anno      "
   HELP "Anno per cui effettuare il calcolo"
-  FLAGS "Z"
+  FLAGS "P"
   CHECKTYPE REQUIRED
 END
 
@@ -32,7 +32,7 @@ BEGIN
   PROMPT 28 3 "Periodo   "
   HELP "Mese per cui effettuare il calcolo liquidazione"
   ITEM "13|13a liquid."
-  FLAGS "AM"
+  FLAGS "MP"
 END
 
 LIST CG43_LST_TRIM 15

src/cg/cg4301.cpp

@@ -3534,6 +3534,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
   const TRectype & lia = get_lia();
 
   const bool credito_compensabile = (lia.get("S9") == "CM");
+	const bool gestione_manuale_credito_compensabile = lia.get_bool("B6");
 
   real risultato    = ZERO;
 
@@ -3595,13 +3596,11 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
   real credito_utilizzabile_inizio_anno = ZERO;
   real credito_utilizzato_inizio_anno = ZERO;
   real credito_utilizzato_iva = ZERO;
-  if (credito_compensabile) 
+
-  { 
 	credito_utilizzato_inizio_anno = lia.get_real("R15");
   credito_utilizzabile_inizio_anno = lia.get_real("R0") - credito_utilizzato_inizio_anno;
   if (credito_utilizzabile_inizio_anno < ZERO)
 		credito_utilizzabile_inizio_anno = ZERO;
-  }
   
   TLocalisamfile& attiv = _nditte->lfile(LF_ATTIV);
   FOR_EACH_TOKEN (atts, tmpatt)
@@ -3868,15 +3867,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
   } // end ciclo su attivita'
   
   real credito_utilizzabile = ZERO;
-	const bool utilizza_credito_autorizzato = lia.get_bool("B6");
   real credito_autorizzato_F24; 
 
   if (month < 13) // va bene anche se differita sommando deltam (che e' 0 normalmente)
   {
     // toglie credito precedente
 	  cred_prec  =  credito_prec(month+deltam);
-    risultato -=  cred_prec; 
-    res_cred  +=  cred_prec;
     // vedi se c'era un debito precedente per debiti < 50.000
     debt_precd = debt_prec(month+deltam);
     risultato += debt_precd;
@@ -3894,12 +3890,10 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 
       credito_utilizzabile = credito_utilizzabile_inizio_anno;
       credito_utilizzabile -= credito_utilizzato(month + deltam); 
-			if (utilizza_credito_autorizzato)
 			credito_utilizzabile += credito_autorizzato(month + deltam);
 
 			credito_utilizzabile -= cred_util_F24; 
 		  credito_autorizzato_F24 = lim.get_real("R20");
-			if (utilizza_credito_autorizzato)
 			credito_utilizzabile += credito_autorizzato_F24; 
 //			risultato += credito_autorizzato_F24;
 //			res_debt += credito_autorizzato_F24;
@@ -3908,12 +3902,19 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 				credito_utilizzabile = ZERO;
       if (risul > ZERO)
       {
-
+				if (gestione_manuale_credito_compensabile)
+	        credito_utilizzato_iva = lim.get_real("R15");
+				else
 					credito_utilizzato_iva = min(risul, credito_utilizzabile);
         res_cred += credito_utilizzato_iva;
         risultato -= credito_utilizzato_iva;
       }
     }
+		else
+		{
+	    risultato -=  cred_prec; 
+		  res_cred  +=  cred_prec;
+		}
   }
   else 
   { 
@@ -4244,7 +4245,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
     round_imposta(fdiff_iva_acq);
     round_imposta(fdiffinc_iva_acq);
     
-    res_cred  = iva_acq + versamenti + vers_int + cred_prec - cred_trasf + acc_dec + credito_utilizzato_iva + crediti_speciali + fdiffinc_iva_acq;
+    res_cred  = iva_acq + versamenti + vers_int - cred_trasf + acc_dec + crediti_speciali + fdiffinc_iva_acq;
+    if (credito_compensabile && credito_utilizzabile_inizio_anno > ZERO && 
+        (_freqviva == "M" || is_trim(month + deltam)))
+			res_cred += credito_utilizzato_iva;
+		else
+			res_cred += cred_prec;
     res_debt  = iva_vend + rimborsi + debt_precd + imposta_non_versata + fdiffinc_iva + credito_autorizzato_F24;  
     
     /* Obsolescenza pura nel 2014
@@ -4294,6 +4300,11 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 
     real ivi = lim.get("R14"); round_imposta(ivi);
     lim.put("R14", ivi);
+
+		const TRectype & lia = get_lia();
+		const bool gestione_manuale_credito_compensabile = lia.get_bool("B6");
+
+		if (!gestione_manuale_credito_compensabile)
 			lim.put("R15", credito_utilizzato_iva);
     
     if (month == 13)

src/cg/cg4302.cpp

@@ -871,12 +871,7 @@ real TLiquidazione_app::credito_prec(int month)
 	  const bool credito_compensabile = (lia.get("S9") == "CM");
 
 		c = lia.get_real("R0");
-		if (credito_compensabile)
+		c -= lia.get_real("R15");
-		{
-			const real cred_util = lia.get_real("R15");
-				
-			c -= cred_util;
-		}
 		if (c < ZERO) 
 			c = ZERO;
 	}

src/cg/cg4304.cpp

@@ -2526,7 +2526,6 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
   if (rettifiche < ZERO) rett_cred =-rettifiche;
   
 	const TRectype & lia = get_lia();
-	const bool utilizza_credito_autorizzato = lia.get_bool("B6");
   const bool credito_compensabile = lia.get("S9") == "CM";
 
 
@@ -2566,14 +2565,16 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
   print_importo(rw++, TR("Variazioni d'imposta"), variazioni_imposta, _is_visliq);
   print_importo(rw++, TR("Imposta non versata"), imposta_non_versata, _is_visliq);
   
+  real cre_deb_per;
+
   if (debt_prec > ZERO) 
 	{
     set_row(rw++,FR("@11gDebito da liquidazione precedente@75g%r"), &debt_prec);
 	  set_row(rw++,FR("%s@11gRimborsi%s@75g%r"), _is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &rimborso);   
-
 	}
   else
   {
+	  cre_deb_per = risultato + crediti_speciali + acc_dec + vers_int;
     if (cred_prec > ZERO)
       set_row(rw++,FR("@11gCredito da liquidazione precedente@58g%r"), &cred_prec);
 
@@ -2587,10 +2588,9 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
     if (cred_prec > ZERO)
       set_row(rw++,FR("@11gCredito utilizzabile@58g%r"), &cred_prec);
 		if (_month < 13)
-			set_row(rw++, FR("@11gCredito IVA compensabile detratto@58g%r"), &credito_utilizzato_IVA);          
+			set_row(rw++, FR("@11gCredito IVA compensabile detratto@75g%r"), &credito_utilizzato_IVA);          
   }
 
-  real cre_deb_per = risultato + crediti_speciali + acc_dec + vers_int;
   if (_month == 13) cre_deb_per += versamenti;
   
   print_importo(rw++, TR("IVA dovuta o a credito per il periodo"), cre_deb_per);

src/cg/cg5300a.h

@@ -16,7 +16,7 @@
 #define F_GESIC       216 
 #define F_ICDAL       217
 #define F_ICAL        218
-#define F_UTILAUT     219
+#define F_GESMANCRED  219
 
 #define F_ROUNDLIQ    221  
 #define F_ROUNDDIC    222

src/cg/cg5300a.uml

@@ -112,6 +112,12 @@ BEGIN
   MODULE IC
 END
 
+BOOLEAN F_GESMANCRED
+BEGIN
+  PROMPT 4 8 "Gestione manuale del credito compensabile in IVA"
+  FIELD B6
+END
+
 DATA F_ICDAL
 BEGIN
   PROMPT 40 7 "Dal "
@@ -146,9 +152,9 @@ LISTBOX F_UTCR_IVA 2 34
 BEGIN
   PROMPT 4 12 "Utilizzo credito IVA              "
   ITEM "  |Utilizzato solo in IVA"
-  MESSAGE CLEAR,F_CRED_RES
+  MESSAGE CLEAR,F_GESMANCRED
   ITEM "CM|Compensabile con altre imposte" 
-  MESSAGE ENABLE,F_CRED_RES
+  MESSAGE ENABLE,F_GESMANCRED
   
   FIELD S9
 END

src/cg/cg5500.cpp

@@ -414,8 +414,6 @@ bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
   {
     if (sm.is_running()) sm.stop_run(K_ENTER);
     app().vis_one(month); 
-    const bool compensabile = app()._lia->get("S9") == "CM";
-    if (compensabile)
     app().read_general(m);  
   }
   
@@ -464,7 +462,7 @@ bool Visliq_app::enable_date(TMask_field& f, KEY k)
 
 bool Visliq_app::check_date(TMask_field& f, KEY k)
 {                                                  
-  if (k == K_TAB && (f.focusdirty()|| !f.mask().is_running()))
+  if (k == K_TAB && f.dirty())
 	{
 		const TDate d(f.get());
 		const int row = f.mask().get_sheet()->selected();
@@ -605,21 +603,16 @@ bool Visliq_app::vis_all()
   TMask& shm = sh.sheet_mask();
   
   if (compensabile)
-		for (int id = 103; shm.id2pos(id) > 0; id++)
 	{
-/* 
+		const bool gestione_manuale = _lia->get_bool("B6");
-		TMask_field& f = shm.field(id);
+		sh.enable_column(107, gestione_manuale);
 
-    if ((f.in_group(11) && true) || (f.in_group(12) && !true))
+		for (int id = 108; shm.id2pos(id) > 0; id++)
 	  {                
-      f.hide();
+			if ((id > 107 && id <= 110) || id == 112)
-      sh.delete_column(id);
-    }
-*/
-			if ((id >= 107 && id <= 110) || id == 112)
 				sh.enable_column(id, true);
 	  }
-
+	}
   // fill the mask in
   read_general(*_mask);
 
@@ -1039,8 +1032,8 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
 
   real credito_utilizzato_iva = ZERO;
   const bool compensabile = _lia->get("S9") == "CM";
+	const bool gestione_manuale_credito_compensabile = _lia->get_bool("B6");
 
-	//  if ((_year >= 2000) && look_lia() && compensabile)
   if (look_lia() && compensabile)
   {
     real credito_utilizzabile_inizio_anno = _lia->get_real("R0") - _lia->get_real("R15");
@@ -1056,7 +1049,12 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
       credito_utilizzabile -= credito_utilizzato(year, month); 
       if (credito_utilizzabile < ZERO) credito_utilizzabile = ZERO;
       if (month < 13)
+			{
+				if (gestione_manuale_credito_compensabile)
+					credito_utilizzato_iva = cui;
+				else
 					credito_utilizzato_iva = min(risul, credito_utilizzabile);
+			}
       else
         credito_utilizzato_iva = credito_utilizzabile;             
       round_imposta(credito_utilizzato_iva);
@@ -1097,6 +1095,7 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
   _lim->put("R12", riscr);
   _lim->put("R13", risdb);
   _lim->put("R14", intr);
+	if (!gestione_manuale_credito_compensabile)
 		_lim->put("R15", credito_utilizzato_iva);
   _lim->put("R16", credito_utilizzato_F24);
 
@@ -1726,6 +1725,7 @@ void Visliq_app::write_general(TMask& m)
   TSheet_field& sh = m.sfield(F_VISLIQ1); 
   TSheet_field& sv = m.sfield(F_VISLIQ2); 
   const bool compensabile = _lia->get("S9") == "CM";
+	const bool gestione_manuale = _lia->get_bool("B6");
 
   real rstart = m.get_real(F_CREDPREC);
   real rutil = m.get_real(F_CREDUTILIN);
@@ -1785,6 +1785,7 @@ void Visliq_app::write_general(TMask& m)
     real    nrimb(tt_ln.get(3));
     real    overs(tt_vo.get(5));
     real    nvers(tt_vn.get(5));
+    real    crcode(tt_ln.get(6));
     real    crf24(tt_ln.get(7));
     real    autf24(tt_ln.get(8));
     TDate   dautf24(tt_ln.get(9));
@@ -1973,13 +1974,15 @@ void Visliq_app::write_general(TMask& m)
       _lim->put("R12", risc);
       _lim->put("R13", risd);
 
-      if (intt.sign() > 0) // interessi
+      if (intt > ZERO) // interessi
       {
         real intr = risl * intt / real(100.0);
         if (_year >= 2000)
           round_imposta(intr);
         _lim->put("R14",intr);
       }  
+			if (gestione_manuale)
+				_lim->put("R15", crcode);
 
       _lim->put("R16", crf24);
       _lim->put("R20", autf24);

src/cg/cg5500b.uml

@@ -56,7 +56,7 @@ END
 
 CURRENCY F_CREDUTILIN 15
 BEGIN
-  PROMPT 1 6 "Credito utilizzato a inizio anno "
+  PROMPT 1 6 "Credito utilizzato a Gennaio     "
 END
 
 SPREADSHEET F_VISLIQ1 -2 -1
@@ -97,7 +97,7 @@ BEGIN
   FLAGS "D"
 END                                                           
 
-SPREADSHEET F_VISLIQ2 76
+SPREADSHEET F_VISLIQ2 -2 -1
 BEGIN  
   PROMPT 1 5 "Versamenti" 
   ITEM   "Mese@15"        
@@ -106,7 +106,6 @@ BEGIN
   ITEM   "CAB@5"
   ITEM   "Conc.@5"
   ITEM   "Versamenti@15" 
-//      ITEM   "D/C"
 END
 
 ENDPAGE

src/cg/cg5500c.uml

@@ -31,7 +31,7 @@ END
                     
 NUMBER F_CODDITTA 5
 BEGIN         
-  PROMPT 2 2  "Codice ditta "
+  PROMPT 2 2  "Codice "
   FLAGS "FRD"
   USE LF_NDITTE KEY 1
   INPUT CODDITTA F_CODDITTA
@@ -41,16 +41,21 @@ END
 
 STRING F_RAGSOC 50
 BEGIN                       
-  PROMPT 22 2 ""
+  PROMPT 16 2 ""
   FLAGS "D"
 END                                                           
 
 CURRENCY F_CREDPREC 15
 BEGIN
-  PROMPT 1 4 "Credito compensabile inizio anno "
+  PROMPT 1 5 "Credito inizio anno              "
 END
 
-SPREADSHEET F_VISLIQ1 78 5 
+CURRENCY F_CREDUTILIN 15
+BEGIN
+  PROMPT 1 6 "Credito utilizzato a Gennaio     "
+END
+
+SSPREADSHEET F_VISLIQ1 -2 5 
 BEGIN  
   PROMPT 1 7 "Liquidazione" 
   ITEM "Mese@10"
@@ -61,11 +66,13 @@ BEGIN
   ITEM "D/C@3"
   ITEM "Credito\nutilizzato IVA@15"
   ITEM "Credito\nutilizzato F24@15"
+  ITEM "Credito anno in corso\nautorizzato F24@20"
+  ITEM "Data autorizzazione@20"
   ITEM "Credito IVA\nresiduo@15"
   ITEM "Descrizione@35"
 END
 
-SPREADSHEET F_VISLIQ2 78 5
+SPREADSHEET F_VISLIQ2 -2 5
 BEGIN  
   PROMPT 1 13 "Versamenti" 
   ITEM   "Mese@10"
@@ -74,7 +81,6 @@ BEGIN
   ITEM   "CAB@5"
   ITEM   "Conc.@5"
   ITEM   "Versamenti@15" 
-//  ITEM   "D/C"
 END
 
 ENDPAGE
@@ -139,13 +145,29 @@ BEGIN
 END
 
 CURRENCY 109 15
+BEGIN
+  PROMPT 1 7 "Credito autorizzato F24 anno in corso  "
+  GROUP 12
+  FLAGS "D"
+END
+
+DATE 110
+BEGIN
+  PROMPT 1 8 "Data di autorizzazione                 "
+  GROUP 12
+  CHECTYPE REQUIRED
+  WARNING "La data è obbligatoria"
+  FLAGS "D"
+END
+
+CURRENCY 111 15
 BEGIN
   PROMPT 1 5 "Credito IVA residuo    "                                
   FLAGS "D"
   GROUP 12
 END
 
-STRING 110 50 35
+STRING 112 50 35
 BEGIN
   PROMPT 1 6 "Descr. "
   GROUP 12

src/cg/cg5500d.uml

@@ -60,7 +60,7 @@ BEGIN
   ITEM "13|Annuale"
 END
 
-BROWSEFILE F_VISFLQ -3 12
+BROWSEFILE F_VISFLQ -3 14
 BEGIN
   PROMPT 0 4 ""
 END
@@ -69,7 +69,7 @@ END
 
 CURRENCY F_RIMBORSO 15
 BEGIN 
-  PROMPT 2 17 "Rimborsi : "
+  PROMPT 2 21 "Rimborsi : "
   GROUP 1
   FLAGS "H"
 END                         
@@ -78,14 +78,14 @@ END
 
 CURRENCY F_RETTIFICA 15
 BEGIN 
-  PROMPT 2 17 "Importo rettif.  "
+  PROMPT 2 21 "Importo rettif.  "
   GROUP 2
   FLAGS "H" 
 END                         
             
 LIST F_DEBCRE 7
 BEGIN
-  PROMPT 35 17 " a "  
+  PROMPT 35 21 " a "  
   GROUP 2
   ITEM "D|Debito"
   ITEM "C|Credito"
@@ -94,14 +94,14 @@ END
             
 STRING F_DESCR1 60
 BEGIN
-  PROMPT 2 18 "Descrizione      " 
+  PROMPT 2 22 "Descrizione      " 
   GROUP 2
     FLAGS "H"
 END
 
 STRING F_DESCR2 60
 BEGIN
-  PROMPT 2 19 "                 " 
+  PROMPT 2 23 "                 " 
   GROUP 2
   FLAGS "H"
 END
@@ -120,21 +120,21 @@ END
 
 DATE F_DELDATE
 BEGIN
-  PROMPT 3 17 "Data       "
+  PROMPT 3 21 "Data       "
   GROUP 4
   FLAGS "H"
 END
 
 CURRENCY F_DELIMP 15
 BEGIN 
-  PROMPT 26 17 "Importo versato "
+  PROMPT 26 21 "Importo versato "
   GROUP 4
   FLAGS "RH"
 END
 
 NUMBER F_DELABI 5
 BEGIN
-  PROMPT 3 18 "Codice ABI "
+  PROMPT 3 22 "Codice ABI "
   HELP "Codice ABI banca di appoggio"
   FIELD S7
   FLAGS "RZH" 
@@ -154,7 +154,7 @@ END
 
 NUMBER F_DELCAB 5
 BEGIN
-  PROMPT 26 18 "Codice CAB      "
+  PROMPT 26 22 "Codice CAB      "
   HELP "Codice CAB banca di appoggio"
   FIELD S8
   FLAGS "RZH"
@@ -176,7 +176,7 @@ END
 
 NUMBER F_DELCON 3
 BEGIN
-  PROMPT 51 18 "Concessione "  
+  PROMPT 51 22 "Concessione "  
   HELP "Codice Concessione del Comune di residenza fiscale"
   FLAGS "RZH" 
   USE %UCC
@@ -193,7 +193,7 @@ END
 
 STRING F_DESCR3 60
 BEGIN
-  PROMPT 2 18 "Descrizione      " 
+  PROMPT 2 23 "Descrizione      " 
   GROUP 5
   FLAGS "H"
 END
@@ -202,7 +202,7 @@ END
 
 CURRENCY F_VARIMP 15
 BEGIN
-  PROMPT 2 17 "Variazioni d'imposta "
+  PROMPT 2 21 "Variazioni d'imposta "
   PICTURE "."
   GROUP 6
   FLAGS "H"
@@ -210,7 +210,7 @@ END
 
 LIST F_VARIMP_DC 7
 BEGIN
-  PROMPT 40 17 "a "  
+  PROMPT 40 21 "a "  
   GROUP 6
   ITEM "D|Debito"
   ITEM "C|Credito"
@@ -221,7 +221,7 @@ END
 
 CURRENCY F_IMPNONVER 15
 BEGIN
-  PROMPT 2 17 "Imposta non versata "
+  PROMPT 2 21 "Imposta non versata "
   PICTURE "."
   GROUP 7
   FLAGS "H"
@@ -231,7 +231,7 @@ END
 
 CURRENCY F_CREDSPEC 15
 BEGIN
-  PROMPT 2 17 "Crediti speciali : "
+  PROMPT 2 21 "Crediti speciali : "
   GROUP 8
   FLAGS "H"
   PICTURE "."
@@ -241,7 +241,7 @@ END
 
 CURRENCY F_CREDUTIL 15
 BEGIN
-  PROMPT 2 17 "Credito IVA compensabile detratto in F24 : "
+  PROMPT 2 21 "Credito IVA compensabile detratto in F24 : "
   GROUP 9
   FLAGS "H"
   PICTURE "."
@@ -251,7 +251,7 @@ END
 
 CURRENCY F_CREDAUT 15
 BEGIN
-  PROMPT 2 17 "Credito IVA autorizzato in F24 : "
+  PROMPT 2 21 "Credito IVA autorizzato in F24 : "
   GROUP 10
   FLAGS "H"
   PICTURE "."
@@ -259,14 +259,14 @@ END
 
 DATE F_DATAAUT
 BEGIN
-  PROMPT 50 17 "il "
+  PROMPT 50 21 "il "
   GROUP 10
   FLAGS "H"
 END
 
 STRING F_DESCR4 60
 BEGIN
-  PROMPT 2 18 "Descrizione      " 
+  PROMPT 2 22 "Descrizione      " 
   GROUP 10
   FLAGS "H"
 END