Patch level : 12.0 87

Files correlati     : cg1.exe cg1500a.uml
Commento            :
Stampa bilancio con provvisori
Liquidazione

src/cg/cg1500a.uml

@@ -59,19 +59,23 @@ BEGIN
   PROMPT 2 5 "@bTipo bilancio"
   HELP "Indicare il tipo di bilancio da stampare"
   ITEM "1|Bilancio a sezioni contrapposte"
-  MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
+  //MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
-  MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
+  //MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
-  MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
+  //MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
-  MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
+  //MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
+  MESSAGE SHOW,1@
+  MESSAGE HIDE,2@|RESET,2@
   MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
   MESSAGE CLEAR,F_MODULO
-  MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
+  //MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
   ITEM "2|Bilancio di verifica"
-  MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
+  //MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
-  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
+  //MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
-  MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
+  //MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
-  MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
+  //MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
-  MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
+  MESSAGE HIDE,1@|RESET,1@
+  MESSAGE SHOW,2@
+  //MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
   MESSAGE ENABLE,F_MODULO
   MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
 END
@@ -80,6 +84,7 @@ RADIOBUTTON F_STAMPA 28
 BEGIN
   PROMPT 41 5 "@bTipo stampa"
   HELP "Indicare il tipo di stampa"
+  GROUP 1
   ITEM "1|Per date limite"
   MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
 #ifdef CONT_SEP
@@ -98,13 +103,14 @@ BEGIN
   PROMPT 40 5 "@bTipo stampa"
   //FLAGS "G"
   HELP "Indicare il tipo di stampa"
+  GROUP 2
   ITEM "1|Per date limite"
-  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO|SHOW,F_STAMPAMPROV
+  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
 #ifdef CONT_SEP
   MESSAGE SHOW,F_CONTSEP
 #endif
   ITEM "2|All'ultima immissione"
-  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO|SHOW,F_STAMPAMPROV
+  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
   MESSAGE COPY,F_STAMPA
 #ifdef CONT_SEP
   MESSAGE HIDE,F_CONTSEP
@@ -115,34 +121,38 @@ DATE F_DATALIM
 BEGIN
   PROMPT 2 9 "Data limite      "
   HELP "Data fino alla quale si vuole la stampa"
+  GROUP 1
 END
 
 BOOLEAN F_TOTALI
 BEGIN
   PROMPT 33 9 "Non stampare totali per gruppo "
   HELP "Indicare se non si devono stampare i totali dei gruppi"
+  GROUP 1
 END
 
 BOOLEAN F_CODICI
 BEGIN
   PROMPT 2 10 "Non stampare codici conti "
   HELP "Indicare se non si devono stampare i codici dei conti"
+  GROUP 1
 END
 
 BOOLEAN F_SALDO
 BEGIN
   PROMPT 33 10 "Non stampare movimenti con saldo a zero "
   HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
+  GROUP 1
 END
 
 TEXT 96
 BEGIN
-  PROMPT 2 10 "Dalla data competenza "
+  PROMPT 2 9 "Dalla data competenza "
 END
 
 TEXT 97
 BEGIN
-  PROMPT 38 10 "Alla data competenza "
+  PROMPT 38 9 "Alla data competenza "
 END
 
 TEXT 98
@@ -158,12 +168,14 @@ END
 DATE F_DATADA
 BEGIN
   PROMPT 24 10 ""
-  HELP "Data dalla quale iniziare la stampa"
+  HELP "Data dall quale iniziare la stampa"
+  GROUP 2
 END
 
 DATE F_DATAA
 BEGIN
   PROMPT 60 10 ""
+  GROUP 2
 END
 
 BOOLEAN F_NORMALI
@@ -222,6 +234,7 @@ RADIOBUTTON F_VERIFICA 27
 BEGIN
   PROMPT 2 1 "@bStampa bilancio di verifica "
   HELP "Tipo di bilancio di verifica"
+  GROUP 2
   ITEM "1|Bilancio" 
     MESSAGE SHOW,F_HIDE_CLIFO|SHOW,F_PRINT_FULL_CODE
   ITEM "2|Saldi di mastro"
@@ -233,9 +246,9 @@ END
 RADIOBUTTON F_STAMPAC 36
 BEGIN
   PROMPT 34 1 "@bTipo stampa"
-
   ITEM "1|Conti movimentati"
   ITEM "2|Conti con saldo diverso da zero"
+  GROUP 2
 END
 
 RADIOBUTTON F_STAMPAV 36
@@ -244,6 +257,7 @@ BEGIN
   ITEM "1|Conti movimentati"
   ITEM "2|Conti con saldo diverso da zero"
   ITEM "3|Tutti i conti"
+  GROUP 1 2
 END
 
 BOOLEAN F_SEPARATOR
@@ -275,6 +289,7 @@ BEGIN
   ITEM " |Entrambi"
   ITEM "C|Clienti"
   ITEM "F|Fornitori"
+  GROUP 2
 END
 
 LIST F_ORDINAMENTO 11
@@ -282,6 +297,7 @@ BEGIN
   PROMPT 2 11 "Tipo ordinamento "
   ITEM "1|Per codice"
   ITEM "2|Alfabetico"
+  GROUP 2
 END
 
 GROUPBOX DLG_NULL 55 6

src/cg/cg4301.cpp

@@ -1556,7 +1556,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
 		long nr = _mov->get_long(MOV_NUMREG);
 
         if (nr == 97882 || nr == 98707)
-			int i = 1;
+				int i = 1;
 #endif
 
 			if ((soloiva &&
@@ -4102,8 +4102,6 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 			credito_utilizzabile -= cred_util_F24; 
 		  credito_autorizzato_F24 = lim.get_real("R20");
 			credito_utilizzabile += credito_autorizzato_F24; 
-//			risultato += credito_autorizzato_F24;
-//			res_debt += credito_autorizzato_F24;
 			
       if (credito_utilizzabile < ZERO)
 				credito_utilizzabile = ZERO;
@@ -4118,9 +4116,17 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 					credito_utilizzato_iva = min(risul, credito_utilizzabile);
         res_cred += credito_utilizzato_iva;
         risultato -= credito_utilizzato_iva;
-      }
+			}
     }
-  }
+		if (credito_compensabile)
+		{
+			TRectype lim = get_lim(month + deltam);
+
+			credito_autorizzato_F24 = lim.get_real("R20");
+			risultato += credito_autorizzato_F24;
+			res_debt += credito_autorizzato_F24;
+		}
+	}
   else 
   { 
     if (credito_compensabile)
@@ -4139,8 +4145,8 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 				credito_utilizzabile += credito_autorizzato(13);
         if (credito_utilizzabile < ZERO) 
           credito_utilizzabile = ZERO;
-      }
+			}
-    }
+		}
     else
     {
       // per l'annuale considera solo il credito a inizio anno

src/cg/cg4302.cpp

@@ -138,7 +138,12 @@ bool TLiquidazione_app::is_date_ok(const TDate& d, int month, int liqmonth, int
   else   // Nuova selezione dal 1998 in poi
   {
     if (month <= 12)
+		{
+			if (_is_liq_acconto)
+				return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month)) && (d.day() <= _ver->giorno_acc());
+			else
 				return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month));
+		}
     else // Annuale, month == 13
       return (regyear == year && liqmonth != 12) || (regyear == year + 1 && liqmonth == 12);
   }