diff --git a/cg/cg0200a.uml b/cg/cg0200a.uml
index 35e00dc14..82dcf5f97 100755
--- a/cg/cg0200a.uml
+++ b/cg/cg0200a.uml
@@ -28,7 +28,7 @@ END
 
 NUMBER F_CODCF 6
 BEGIN
-   PROMPT 2 2 "Codice "
+  PROMPT 2 2 "Codice "
   FIELD CODCF
   FLAGS "GR"
   KEY 1
@@ -177,94 +177,94 @@ END
 
 NUMBER F_STATOCF 3
 BEGIN
-PROMPT 2 8 "Comune: Stato "
-FIELD STATOCF
-FLAGS "Z"
-USE %STA
-INPUT CODTAB F_STATOCF
-DISPLAY "Codice" CODTAB
-DISPLAY "Stato@50" S0
-OUTPUT F_STATOCF CODTAB
-OUTPUT F_DESTACF S0
-HELP "Codice dello stato del recapito"
-CHECKTYPE NORMAL
-WARNING "Stato assente"
+  PROMPT 2 8 "Comune: Stato "
+  FIELD STATOCF
+  FLAGS "Z"
+  USE %STA
+  INPUT CODTAB F_STATOCF
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Stato@50" S0
+  OUTPUT F_STATOCF CODTAB
+  OUTPUT F_DESTACF S0
+  HELP "Codice dello stato del recapito"
+  CHECKTYPE NORMAL
+  WARNING "Stato assente"
 END
 
 STRING F_DESTACF 50
 BEGIN
-PROMPT 23 8 ""
-USE %STA KEY 2
-INPUT S0 F_DESTACF
-DISPLAY "Stato@50" S0
-DISPLAY "Codice" CODTAB
-COPY OUTPUT F_STATOCF
+  PROMPT 23 8 ""
+  USE %STA KEY 2
+  INPUT S0 F_DESTACF
+  DISPLAY "Stato@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_STATOCF
 END
 
 STRING F_COMCF 4
 BEGIN
-PROMPT 8 9 ":Codice "
-FIELD COMCF
-FLAGS "U"
-USE LF_COMUNI
-INPUT STATO F_STATOCF SELECT
-INPUT COM F_COMCF
-DISPLAY "Stato" STATO
-DISPLAY "Codice" COM
-DISPLAY "Comune@50" DENCOM
-OUTPUT F_STATOCF STATO
-OUTPUT F_COMCF COM
-OUTPUT F_CAPCF CAPCOM
-OUTPUT F_DENCOMCF DENCOM
-OUTPUT F_PROVCF PROVCOM
-HELP "Codice del comune del recapito"
-CHECKTYPE NORMAL
-WARNING "Comune assente"
-ADD RUN ba4 -0
+  PROMPT 8 9 ":Codice "
+  FIELD COMCF
+  FLAGS "U"
+  USE LF_COMUNI
+  INPUT STATO F_STATOCF SELECT
+  INPUT COM F_COMCF
+  DISPLAY "Stato" STATO
+  DISPLAY "Codice" COM
+  DISPLAY "Comune@50" DENCOM
+  OUTPUT F_STATOCF STATO
+  OUTPUT F_COMCF COM
+  OUTPUT F_CAPCF CAPCOM
+  OUTPUT F_DENCOMCF DENCOM
+  OUTPUT F_PROVCF PROVCOM
+  HELP "Codice del comune del recapito"
+  CHECKTYPE NORMAL
+  WARNING "Comune assente"
+  ADD RUN ba4 -0
 END
 
 STRING F_DENCOMCF 50
 BEGIN
-PROMPT 23 9 ""
-USE LF_COMUNI KEY 2
-INPUT DENCOM F_DENCOMCF
-DISPLAY "Comune@50" DENCOM
-DISPLAY "Stato" STATO
-DISPLAY "Codice" COM
-COPY OUTPUT F_COMCF
-HELP "Nome del comune del recapito"
-ADD RUN ba4 -0
+  PROMPT 23 9 ""
+  USE LF_COMUNI KEY 2
+  INPUT DENCOM F_DENCOMCF
+  DISPLAY "Comune@50" DENCOM
+  DISPLAY "Stato" STATO
+  DISPLAY "Codice" COM
+  COPY OUTPUT F_COMCF
+  HELP "Nome del comune del recapito"
+  ADD RUN ba4 -0
 END
 
 STRING F_LOCALITACF 35
 BEGIN
-PROMPT 2 10 "Localita'     "
-FIELD LOCALITACF
-HELP "Localita' del recapito"
+  PROMPT 2 10 "Localita'     "
+  FIELD LOCALITACF
+  HELP "Localita' del recapito"
 END
 
 STRING F_CAPCF 5
 BEGIN
-PROMPT 53 10 "CAP "
-FIELD CAPCF
-HELP "Codice di avviamento postale del recapito"
+  PROMPT 53 10 "CAP "
+  FIELD CAPCF
+  HELP "Codice di avviamento postale del recapito"
 END
 
 STRING F_PROVCF 5
 BEGIN
-PROMPT 64 10 "Prov"
-FLAGS "D"
+  PROMPT 64 10 "Prov"
+  FLAGS "D"
 END
 
 LIST F_TIPOPERS 1 12
 BEGIN
-PROMPT 2 12 "Tipo persona   "
-FIELD TIPOPERS
-HELP "Tipo anagrafico del clinete/fornitore"
-ITEM "F|Fisica"
-MESSAGE COPY,F_TIPOAPER
-ITEM "G|Giuridica"
-MESSAGE COPY,F_TIPOAPER
+  PROMPT 2 12 "Tipo persona   "
+  FIELD TIPOPERS
+  HELP "Tipo anagrafico del clinete/fornitore"
+  ITEM "F|Fisica"
+  MESSAGE COPY,F_TIPOAPER
+  ITEM "G|Giuridica"
+  MESSAGE COPY,F_TIPOAPER
 END
 
 STRING F_CODSTAT 7
@@ -738,16 +738,13 @@ NUMBER F_GRUPPO 3
 BEGIN
 PROMPT 2 11 "Gruppo      "
 FIELD GRUPPO
-FLAGS "R"
-HELP "Codice del gruppo"
 END
 
 NUMBER F_CONTO 3
 BEGIN
-PROMPT 27 11 "Conto "
-FIELD CONTO
-FLAGS "R"
-USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
+  PROMPT 27 11 "Conto "
+  FIELD CONTO
+  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT GRUPPO F_GRUPPO
   INPUT CONTO F_CONTO
   DISPLAY "Gruppo" GRUPPO
@@ -756,14 +753,13 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
   OUTPUT F_DESCONTO DESCR
-  HELP "Inserire il gruppo"
   CHECKTYPE NORMAL
   WARNING "Il conto deve essere di tipo clienti o fornitori"
   ADD RUN cg0 -0
-  END
+END
 
-  STRING F_DESCONTO 50
-  BEGIN
+STRING F_DESCONTO 50
+BEGIN
   PROMPT 2 12 "Descrizione "
   USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT DESCR F_DESCONTO
@@ -773,37 +769,37 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   COPY OUTPUT F_CONTO
   CHECKTYPE NORMAL
   ADD RUN cg0 -0
-  END
+END
 
-  GROUPBOX DLG_RIC 76 4
-  BEGIN
+GROUPBOX DLG_RIC 76 4
+BEGIN
   PROMPT 1 14 "Conto di ricavo"
-  END
+END
 
-  GROUPBOX DLG_CST 76 4
-  BEGIN
+GROUPBOX DLG_CST 76 4
+BEGIN
   PROMPT 1 14 "Conto di costo"
   FLAGS "H"
-  END
+END
 
-  NUMBER F_GRUPPORIC 3
-  BEGIN
+NUMBER F_GRUPPORIC 3
+BEGIN
   PROMPT 2 15 "Gruppo      "
   FIELD GRUPPORIC
   FLAGS "R"
   HELP "Gruppo di contropartita"
-  END
+END
 
-  NUMBER F_CONTORIC 3
-  BEGIN
+NUMBER F_CONTORIC 3
+BEGIN
   PROMPT 27 15 "Conto "
   FIELD CONTORIC
   FLAGS "R"
   HELP "Conto di contropartita"
-  END
+END
 
-  NUMBER F_SOTTOCRIC 6
-  BEGIN
+NUMBER F_SOTTOCRIC 6
+BEGIN
   PROMPT 47 15 "Sottoconto "
   FIELD SOTTOCRIC
   FLAGS "R"
@@ -822,10 +818,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   HELP "Sottoconto di contropartita"
   CHECKTYPE NORMAL
   ADD RUN cg0 -0
-  END
+END
 
-  STRING F_DESCRIC 50
-  BEGIN
+STRING F_DESCRIC 50
+BEGIN
   PROMPT 2 16 "Descrizione "
   USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
   INPUT DESCR F_DESCRIC
@@ -836,51 +832,51 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   COPY OUTPUT F_SOTTOCRIC
   CHECKTYPE NORMAL
   ADD RUN cg0 -0
-  END
+END
 
-  ENDPAGE
+ENDPAGE
 
-  PAGE "Pag.4" -1 -1 78 19
+PAGE "Pag.4" -1 -1 78 19
 
-  GROUPBOX DLG_NULL 76 4
-  BEGIN
+GROUPBOX DLG_NULL 76 4
+BEGIN
   PROMPT 1 0 "Dati identificativi"
-  END
+END
 
-  LIST DLG_NULL 1 11
-  BEGIN
+LIST DLG_NULL 1 11
+BEGIN
   PROMPT 2 1 "Tipo   "
   FIELD LF_INDSP->TIPOCF
   FLAGS "D"
   GROUP 1
   ITEM "C|Clienti"
   ITEM "F|Fornitori"
-  END
+END
 
-  NUMBER DLG_NULL 6
-  BEGIN
+NUMBER DLG_NULL 6
+BEGIN
   PROMPT 2 2 "Codice "
   FIELD LF_INDSP->CODCF
   FLAGS "RD"
   GROUP 2
-  END
+END
 
-  STRING DLG_NULL 30
-  BEGIN
+STRING DLG_NULL 30
+BEGIN
   PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
-  END
+END
 
-  STRING DLG_NULL 20
-  BEGIN
+STRING DLG_NULL 20
+BEGIN
   PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
-  END
+END
 
-  SPREADSHEET F_SHEET_G_VEN
-  BEGIN
+SPREADSHEET F_SHEET_G_VEN
+BEGIN
   PROMPT 0 5 ""
   ITEM "Ragione Sociale@50"
   ITEM "Indirizzo@35"
@@ -895,51 +891,51 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   ITEM "Numero fax@30"
   ITEM "Iva Rid."
   ITEM "Codice"
-  END
+END
 
-  ENDPAGE
+ENDPAGE
 
-  PAGE "Pag.5" -1 -1 78 19
+PAGE "Pag.5" -1 -1 78 19
 
-  GROUPBOX DLG_NULL 76 4
-  BEGIN
+GROUPBOX DLG_NULL 76 4
+BEGIN
   PROMPT 1 0 "Dati identificativi"
-  END
+END
 
-  LIST F_TIPOCFVEN 1 11
-  BEGIN
+LIST F_TIPOCFVEN 1 11
+BEGIN
   PROMPT 2 1 "Tipo   "
   FIELD LF_CFVEN->TIPOCF
   FLAGS "D"
   GROUP 1
   ITEM "C|Clienti"
   ITEM "F|Fornitori"
-  END
+END
 
-  NUMBER F_CODCFVEN 6
-  BEGIN
+NUMBER F_CODCFVEN 6
+BEGIN
   PROMPT 2 2 "Codice "
   FIELD LF_CFVEN->CODCF
   FLAGS "RD"
   GROUP 2
-  END
+END
 
-  STRING DLG_NULL 30
-  BEGIN
+STRING DLG_NULL 30
+BEGIN
   PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
-  END
+END
 
-  STRING DLG_NULL 20
-  BEGIN
+STRING DLG_NULL 20
+BEGIN
   PROMPT 23 2 "Nome / seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
-  END
+END
 
-  NUMBER F_CODINDDOC 3
-  BEGIN
+NUMBER F_CODINDDOC 3
+BEGIN
   PROMPT 2 5 "Codice indirizzo documento "
   FIELD LF_CFVEN->CODINDDOC
   GROUP 7
@@ -948,10 +944,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT F_CODINDDOC       
   OUTPUT F_CODINDDOC
   HELP "Codice indirizzi di pag.4"
-  END
+END
 
-  STRING F_CODNOTE 2
-  BEGIN
+STRING F_CODNOTE 2
+BEGIN
   PROMPT 43 5 "Codice Note Cli/Fo           "
   FIELD LF_CFVEN->CODNOTE
   USE %NOT
@@ -963,10 +959,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODNOTE CODTAB
   HELP "Codice note cliente/fornitore"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODLEG 2
-  BEGIN
+STRING F_CODLEG 2
+BEGIN
   PROMPT 2 8 "Codice Legale              "
   FIELD LF_CFVEN->CODLEG
   GROUP 7
@@ -977,10 +973,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODLEG CODTAB
   HELP "Codice legale per contenzioso"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODCATC 2
-  BEGIN
+STRING F_CODCATC 2
+BEGIN
   PROMPT 43 8 "Codice Categoria contabile   "
   FIELD LF_CFVEN->CODCATC
   USE CCO
@@ -990,18 +986,18 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODCATC CODTAB
   HELP "Codice categoria contabile del C/F"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODPRCF 10
-  BEGIN
+STRING F_CODPRCF 10
+BEGIN
   PROMPT 2 11 "Codice presso cliente      "
   FIELD LF_CFVEN->CODPRCF
   GROUP 7
   HELP "Codice meccanografico assegnato dal cliente"
-  END
+END
 
-  NUMBER F_CODINDSP 3
-  BEGIN
+NUMBER F_CODINDSP 3
+BEGIN
   PROMPT 43 11 "Codice indirizzo spedizione  "
   FIELD LF_CFVEN->CODINDSP
   GROUP 7
@@ -1009,15 +1005,15 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT F_CODINDSP
   OUTPUT F_CODINDSP
   HELP "Codice dell'indirizzo di spedizione da proporre"
-  END
+END
 
   GROUPBOX DLG_NULL 76 4
-  BEGIN
+BEGIN
   PROMPT 1 14 "Dati Agente"
-  END
+END
 
-  STRING F_CODZONA 2
-  BEGIN
+STRING F_CODZONA 2
+BEGIN
   PROMPT 2 15 "Codice Zona                "
   FIELD LF_CFVEN->CODZONA
   GROUP 7
@@ -1028,10 +1024,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODZONA CODTAB
   HELP "Codice della zona dell'agente"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODAG 5
-  BEGIN
+STRING F_CODAG 5
+BEGIN
   PROMPT 44 15 "Codice agente          "
   FLAGS "UZ"
   FIELD LF_CFVEN->CODAG
@@ -1043,35 +1039,35 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   CHECKTYPE NORMAL
   GROUP 7
   HELP "Codice dell'agente di cui si serve il cliente"
-  END
+END
 
-  NUMBER F_PROVV 5 2
-  BEGIN
+NUMBER F_PROVV 5 2
+BEGIN
   PROMPT 2 16 "Provvigione                "
   FIELD LF_CFVEN->PERCPROVV
   GROUP 7
   HELP "Provvigione percepita dall'agente"
-  END
+END
 
   BOOLEAN F_LIQPAG
-  BEGIN
+BEGIN
   PROMPT 46 16 "Liquidazione provvigioni"
   FIELD LF_CFVEN->LIQPAG
   GROUP 7
   HELP "Indicare se si usa la liquidazione provvigioni"
-  END
+END
 
-  ENDPAGE
+ENDPAGE
 
   PAGE "Pag.6" -1 -1 78 19
 
   GROUPBOX DLG_NULL 76 4
-  BEGIN
+BEGIN
   PROMPT 1 0 "Dati identificativi"
-  END
+END
 
   LIST DLG_NULL 1 11
-  BEGIN
+BEGIN
   PROMPT 2 1 "Tipo   "
   FLAGS "DG"
   GROUP 1
@@ -1079,31 +1075,31 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   MESSAGE HIDE,F_CODCASS|SHOW,F_CODFASS|"F",F_TEMP
   ITEM "F|Fornitori"
   MESSAGE HIDE,F_CODFASS|SHOW,F_CODCASS|"C",F_TEMP
-  END
+END
 
-  NUMBER DLG_NULL 6
-  BEGIN
+NUMBER DLG_NULL 6
+BEGIN
   PROMPT 2 2 "Codice "
   FLAGS "RD"
   GROUP 2
-  END
+END
 
-  STRING DLG_NULL 30
-  BEGIN
+STRING DLG_NULL 30
+BEGIN
   PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
-  END
+END
 
-  STRING DLG_NULL 20
-  BEGIN
+STRING DLG_NULL 20
+BEGIN
   PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
-  END
+END
 
-  STRING F_CODNOTESP1 2
-  BEGIN
+STRING F_CODNOTESP1 2
+BEGIN
   PROMPT 2 4 "Codici note documento    "
   FIELD LF_CFVEN->CODNOTESP1
   GROUP 7
@@ -1114,10 +1110,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODNOTESP1 CODTAB
   HELP "Primo codice delle note del documento"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODNOTESP2 2
-  BEGIN
+STRING F_CODNOTESP2 2
+BEGIN
   PROMPT 33 4 ""
   FIELD LF_CFVEN->CODNOTESP2
   GROUP 7
@@ -1127,10 +1123,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODNOTESP2 CODTAB
   HELP "Secondo codice delle note del documento"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODSPMEZZO 2
-  BEGIN
+STRING F_CODSPMEZZO 2
+BEGIN
   PROMPT 46 4 "Codice modalita spedizione "
   FIELD LF_CFVEN->CODSPMEZZO
   USE %MSP
@@ -1140,15 +1136,15 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODSPMEZZO CODTAB
   HELP "Codice modalita' di spedizione/a mezzo"
   CHECKTYPE NORMAL
-  END
+END
 
   GROUPBOX DLG_NULL 20 5
-  BEGIN
+BEGIN
   PROMPT 1 5 "Vettori"
-  END
+END
 
-  NUMBER F_CODVETT1 5
-  BEGIN
+NUMBER F_CODVETT1 5
+BEGIN
   PROMPT 2 6 "Vettore 1 "
   FIELD LF_CFVEN->CODVETT1
   FLAGS "Z"
@@ -1158,10 +1154,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   DISPLAY "Codice vettore" CODTAB
   DISPLAY "Ragione sociale@50" S0
   OUTPUT F_CODVETT1 CODTAB
-  END
+END
 
-  NUMBER F_CODVETT2 5
-  BEGIN
+NUMBER F_CODVETT2 5
+BEGIN
   PROMPT 2 7 "Vettore 2 "
   FIELD LF_CFVEN->CODVETT2
   FLAGS "Z"
@@ -1170,10 +1166,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT CODTAB F_CODVETT2
   COPY DISPLAY F_CODVETT1
   OUTPUT F_CODVETT2 CODTAB
-  END
+END
 
-  NUMBER F_CODVETT3 5
-  BEGIN
+NUMBER F_CODVETT3 5
+BEGIN
   PROMPT 2 8 "Vettore 3 "
   FIELD LF_CFVEN->CODVETT3
   FLAGS "Z"
@@ -1182,10 +1178,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT CODTAB F_CODVETT3
   COPY DISPLAY F_CODVETT1
   OUTPUT F_CODVETT3 CODTAB
-  END
+END
 
-  NUMBER F_CODSPED1 5
-  BEGIN
+NUMBER F_CODSPED1 5
+BEGIN
   PROMPT 23 6 "Spedizioniere 1 "
   FIELD LF_CFVEN->CODSPED1
   FLAGS "Z"
@@ -1194,10 +1190,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT CODTAB F_CODSPED1
   COPY DISPLAY F_CODVETT1
   OUTPUT F_CODSPED1 CODTAB
-  END
+END
 
-  NUMBER F_CODSPED2 5
-  BEGIN
+NUMBER F_CODSPED2 5
+BEGIN
   PROMPT 51 6 "Spedizioniere 2 "
   FIELD LF_CFVEN->CODSPED2
   FLAGS "Z"
@@ -1206,10 +1202,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT CODTAB F_CODSPED2
   COPY DISPLAY F_CODVETT1
   OUTPUT F_CODSPED2 CODTAB
-  END
+END
 
-  STRING F_CODPORTO 3
-  BEGIN
+STRING F_CODPORTO 3
+BEGIN
   PROMPT 23 7 "Porto     "
   FIELD LF_CFVEN->CODPORTO
   USE %POR
@@ -1219,42 +1215,42 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODPORTO CODTAB
   HELP "Codice della modalita' di consegna/porto"
   CHECKTYPE NORMAL
-  END
+END
 
   BOOLEAN F_RAGGDOC
-  BEGIN
+BEGIN
   PROMPT 23 8 "Raggruppamento documenti"
   FIELD LF_CFVEN->RAGGDOC
   GROUP 7
   HELP "Indicare se vanno raggruppati i documenti (bolle/fatture)"
-  END
+END
 
-  NUMBER F_NCOPIE 2
-  BEGIN
+NUMBER F_NCOPIE 2
+BEGIN
   PROMPT 58 8 "Numero copie  "
   FIELD LF_CFVEN->NCOPIE
   GROUP 7
   HELP "Numero di copie dei documenti"
-  END
+END
 
   TEXT F_CODFASS
-  BEGIN
+BEGIN
   PROMPT 23 9 "Codice fornitore associato    "
-  END
+END
 
   TEXT F_CODCASS
-  BEGIN
+BEGIN
   PROMPT 23 9 "Codice cliente associato      "
-  END
+END
 
-  STRING F_TEMP 1
-  BEGIN
+STRING F_TEMP 1
+BEGIN
   PROMPT 56 8 ""
   FLAGS "HD"
-  END
+END
 
-  NUMBER F_CODCFASS 6
-  BEGIN
+NUMBER F_CODCFASS 6
+BEGIN
   PROMPT 58 9 ""
   FIELD LF_CFVEN->CODCFASS
   USE LF_CLIFO KEY 1
@@ -1265,10 +1261,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODCFASS CODCF
   HELP "Codice del fornitore/cliente associato"
   CHECKTYPE NORMAL
-  END
+END
 
-  NUMBER F_ASSFIS 4
-  BEGIN
+NUMBER F_ASSFIS 4
+BEGIN
   PROMPT 2 11 "Codice Assoggettamento fiscale  "
   FIELD LF_CFVEN->ASSFIS
   FLAGS "Z"
@@ -1278,62 +1274,62 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   DISPLAY "Descrizione@50" S0
   OUTPUT F_ASSFIS CODTAB
   HELP "Codice d'assoggettamento fiscale"
-  END
+END
 
   BOOLEAN F_FATTSOSP
-  BEGIN
+BEGIN
   PROMPT 51 11 "Fatture in sospensione"
   FIELD LF_CFVEN->FATTSOSP
   HELP "Indicase se si tartta di fatture in sospensione d'imposta"
-  END
+END
 
   GROUPBOX DLG_NULL 76 4
-  BEGIN
+BEGIN
   PROMPT 1 13 "Dati lettera esenzione"
-  END
+END
 
-  STRING F_VSNRPROT 7
-  BEGIN
+STRING F_VSNRPROT 7
+BEGIN
   PROMPT 2 14 "Vs nr. protocollo  "
   FIELD LF_CFVEN->VSNRPROT
   GROUP 7
   HELP "Vostro nr. di protocollo della lettera"
-  END
+END
 
   DATE F_VSDATAREG
-  BEGIN
+BEGIN
   PROMPT 40 14 "Vs data registrazione  "
   FIELD LF_CFVEN->VSDATAREG
   GROUP 7
   HELP "Data di registrazione della lettera"
-  END
+END
 
-  STRING F_NSNRPROT 7
-  BEGIN
+STRING F_NSNRPROT 7
+BEGIN
   PROMPT 2 15 "Ns nr. protocollo  "
   FIELD LF_CFVEN->NSNPROT
   GROUP 7
   HELP "Nostro nr. di protocollo della lettera"
-  END
+END
 
   DATE F_NSDATAREG
-  BEGIN
+BEGIN
   PROMPT 40 15 "Ns data registrazione  "
   FIELD LF_CFVEN->NSDATAREG
   GROUP 7
   HELP "Data di registrazione della lettera"
-  END
+END
 
   BOOLEAN F_ADDBNS1500
-  BEGIN
+BEGIN
   PROMPT 2 17 "Addebito bollo Lit. 50.000  "
   FIELD LF_CFVEN->ADDBNS1500
   GROUP 7
   HELP "Indicare se addebitare bolli per imponibibili non soggetti superiori a Lit. 50.000"
-  END
+END
 
-  STRING F_CATFIN 2
-  BEGIN
+STRING F_CATFIN 2
+BEGIN
   PROMPT 46 17 "Categoria finanziaria      "
   FIELD LF_CFVEN->CATFIN
   USE %CFI
@@ -1342,49 +1338,49 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   DISPLAY "Descrizione@30" S0
   OUTPUT F_CATFIN CODTAB
   HELP "Codice della categoria finanziaria"
-  END
+END
 
-  ENDPAGE
+ENDPAGE
 
   PAGE "Pag.7" -1 -1 78 19
 
   GROUPBOX DLG_NULL 76 4
-  BEGIN
+BEGIN
   PROMPT 1 0 "Dati identificativi"
-  END
+END
 
   LIST DLG_NULL 1 11
-  BEGIN
+BEGIN
   PROMPT 2 1 "Tipo   "
   FLAGS "D"
   GROUP 1
   ITEM "C|Clienti"
   ITEM "F|Fornitori"
-  END
+END
 
-  NUMBER DLG_NULL 6
-  BEGIN
+NUMBER DLG_NULL 6
+BEGIN
   PROMPT 2 2 "Codice "
   FLAGS "RD"
   GROUP 2
-  END
+END
 
-  STRING DLG_NULL 30
-  BEGIN
+STRING DLG_NULL 30
+BEGIN
   PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
-  END
+END
 
-  STRING DLG_NULL 20
-  BEGIN
+STRING DLG_NULL 20
+BEGIN
   PROMPT 23 2 "Nome / Seconda Parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
-  END
+END
 
-  NUMBER F_CODABIPR 5
-  BEGIN
+NUMBER F_CODABIPR 5
+BEGIN
   PROMPT 2 4 "Codice ABI effetti       "
   FIELD LF_CFVEN->CODABIPR
   FLAGS "Z"
@@ -1395,10 +1391,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODBANPR CODTAB[6,10]
   HELP "Codice ABI della banca presentazione effetti"
   CHECKTYPE NORMAL
-  END
+END
 
-  NUMBER F_CODBANPR 5
-  BEGIN
+NUMBER F_CODBANPR 5
+BEGIN
   PROMPT 45 4 "Codice CAB effetti     "
   FIELD LF_CFVEN->CODCABPR
   FLAGS "Z"
@@ -1410,10 +1406,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODBANPR CODTAB[6,10]
   HELP "Codice CAB della banca presentazione effetti"
   CHECKTYPE NORMAL
-  END
+END
 
-  NUMBER F_CODINDEFF 3
-  BEGIN
+NUMBER F_CODINDEFF 3
+BEGIN
   PROMPT 2 6 "Codice indirizzo effetti "
   FIELD LF_CFVEN->CODINDEFF
   GROUP 7
@@ -1421,91 +1417,91 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   INPUT F_CODINDEFF
   OUTPUT F_CODINDEFF
   HELP "Codice indirizzo effetti"
-  END
+END
 
   BOOLEAN F_EMEFFRICH
-  BEGIN
+BEGIN
   PROMPT 45 6 "Emissione effetti"
   FIELD LF_CFVEN->EMEFFRICH
   GROUP 7
   HELP "Indicare se emettere effetti a richiesta"
-  END
+END
 
-  NUMBER F_IMPMINEFF 6
-  BEGIN
+NUMBER F_IMPMINEFF 6
+BEGIN
   PROMPT 2 7 "Importo minimo effetti   "
   FIELD LF_CFVEN->IMPMINEFF
   GROUP 7
   HELP "Importo minimo effetti"
-  END
+END
 
   GROUPBOX DLG_NULL 76 4
-  BEGIN
+BEGIN
   PROMPT 1 9 "Periodo Effetti"
-  END
+END
 
-  STRING F_NONACCEFF 20
-  BEGIN
+STRING F_NONACCEFF 20
+BEGIN
   PROMPT 2 10 "Periodo di non accettazione degli effetti         "
   FIELD LF_CFVEN->NONACCEFF
   GROUP 7
   HELP "IIl periodo di non accettazione effetti"
-  END
+END
 
-  STRING F_NONSCADEFF 20
-  BEGIN
+STRING F_NONSCADEFF 20
+BEGIN
   PROMPT 2 11 "Scadenza effetti periodi non accettati            "
   FIELD LF_CFVEN->NONSCADEFF
   GROUP 7
   HELP "Scadenza effetti dei periodi non accettati"
-  END
+END
 
   GROUPBOX DLG_NULL 76 3
-  BEGIN
+BEGIN
   PROMPT 1 13 "Addebiti"
-  END
+END
 
   BOOLEAN F_ADDBOLLIRB
-  BEGIN
+BEGIN
   PROMPT 2 14 "Bolli Ricevute bancarie "
   FIELD LF_CFVEN->ADDBOLLIRB
   GROUP 7
   HELP "Indicare se addebitare bolli ricevute bancarie"
-  END
+END
 
   BOOLEAN F_ADDBOLLITR
-  BEGIN
+BEGIN
   PROMPT 34 14 "Bolli Tratte "
   FIELD LF_CFVEN->ADDBOLLITR
   GROUP 7
   HELP "Indicare se addebitare bolli tratte"
-  END
+END
 
   BOOLEAN F_ADDSPINC
-  BEGIN
+BEGIN
   PROMPT 58 14 "Spese incasso "
   FIELD LF_CFVEN->ADDSPINC
   GROUP 7
   HELP "Indicare se addebitare spese d'incasso"
-  END
+END
 
   BOOLEAN F_IVARID
-  BEGIN
+BEGIN
   PROMPT 2 16 "Aliquota ridotta "
   FIELD LF_CFVEN->IVARID
   GROUP 7
   HELP "Indicare se applicare l'aliquota ridotta"
-  END
+END
 
   BOOLEAN F_GESTCONTR
-  BEGIN
+BEGIN
   PROMPT 26 16 "Gestione contratto"
   FIELD LF_CFVEN->GESTCONTR
   HELP "Indicare se si gestisce un contratto"
-  END
+END
 
-  STRING F_CATVEN 2
-  BEGIN
+STRING F_CATVEN 2
+BEGIN
   PROMPT 54 16 "Categoria vendita  "
   FIELD LF_CFVEN->CATVEN
   GROUP 7
@@ -1517,54 +1513,54 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   HELP "Codice della categoria di vendita"
   CHECKTYPE NORMAL
   FLAGS "U"
-  END
+END
 
-  ENDPAGE
+ENDPAGE
 
   PAGE "Pag.8" -1 -1 78 19
 
   GROUPBOX DLG_NULL 76 4
-  BEGIN
+BEGIN
   PROMPT 1 0 "Dati identificativi"
-  END
+END
 
   LIST DLG_NULL 1 11
-  BEGIN
+BEGIN
   PROMPT 2 1 "Tipo   "
   FLAGS "D"
   GROUP 1
   ITEM "C|Clienti"
   ITEM "F|Fornitori"
-  END
+END
 
-  NUMBER DLG_NULL 6
-  BEGIN
+NUMBER DLG_NULL 6
+BEGIN
   PROMPT 2 2 "Codice "
   FLAGS "RD"
   GROUP 2
-  END
+END
 
-  STRING DLG_NULL 30
-  BEGIN
+STRING DLG_NULL 30
+BEGIN
   PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
-  END
+END
 
-  STRING DLG_NULL 20
-  BEGIN
+STRING DLG_NULL 20
+BEGIN
   PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
-  END
+END
 
   GROUPBOX DLG_NULL 45 4
-  BEGIN
+BEGIN
   PROMPT 1 4 "Spese da addebitare"
-  END
+END
 
-  STRING F_CODSP1 3
-  BEGIN
+STRING F_CODSP1 3
+BEGIN
   PROMPT 2 5 "Spesa 1       "
   FIELD LF_CFVEN->CODSP1
   GROUP 7
@@ -1575,10 +1571,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODSP1 CODTAB
   HELP "Codici delle spese da addebitare"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODSP2 3
-  BEGIN
+STRING F_CODSP2 3
+BEGIN
   PROMPT 24 5 "Spesa 2      "
   FIELD LF_CFVEN->CODSP2
   GROUP 7
@@ -1588,10 +1584,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODSP2 CODTAB
   HELP "Codici delle spese da addebitare"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODSP3 3
-  BEGIN
+STRING F_CODSP3 3
+BEGIN
   PROMPT 2 6 "Spesa 3       "
   FIELD LF_CFVEN->CODSP3
   GROUP 7
@@ -1601,10 +1597,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODSP3 CODTAB
   HELP "Codici delle spese da addebitare"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODSP4 3
-  BEGIN
+STRING F_CODSP4 3
+BEGIN
   PROMPT 24 6 "Spesa 4      "
   FIELD LF_CFVEN->CODSP4
   GROUP 7
@@ -1614,10 +1610,10 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CODSP4 CODTAB
   HELP "Codici delle spese da addebitare"
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_CODMAG 3
-  BEGIN
+STRING F_CODMAG 3
+BEGIN
   PROMPT 48 5 "Codice magazzino        "
   FIELD LF_CFVEN->CODMAG
   USE MAG SELECT CODTAB ? "???"
@@ -1626,7 +1622,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODMAG CODTAB[1,3]
   HELP "Codice del magazzino movimentato"
-  END
+END
 
 STRING F_CODLIST 3
 BEGIN
@@ -1647,8 +1643,8 @@ BEGIN
   WARNING "Listino assente"
 END
 
-  STRING F_CODSCC 2
-  BEGIN
+STRING F_CODSCC 2
+BEGIN
   PROMPT 2 8 "Codice sconto cliente   "
   FIELD LF_CFVEN->CODSCC
   USE %SCC
@@ -1660,50 +1656,50 @@ END
   HELP "Codice dello sconto cliente"
   GROUP 7
   CHECKTYPE NORMAL
-  END
+END
 
-  STRING F_SCONTO 25
-  BEGIN
+STRING F_SCONTO 25
+BEGIN
   PROMPT 2 9 "Sconto                  "
   FIELD LF_CFVEN->SCONTO
   GROUP 7
   HELP "Percentuale sconto di riga applicato nelle forme: semplice, es. 10 (per 10%) composto, es. 10+5 (per 10%+5%) oppure  10+5-2 (per 10%+5%-2%)"
-  END
+END
 
-  STRING F_PROFSOLL 5
-  BEGIN
+STRING F_PROFSOLL 5
+BEGIN
   PROMPT 2 11 "Profilo sollecito       "
   FIELD LF_CFVEN->PROFSOLL
   GROUP 7
   HELP "Codice del profilo sollecito"
-  END
+END
 
-  NUMBER F_MAXSOLL 2
-  BEGIN
+NUMBER F_MAXSOLL 2
+BEGIN
   PROMPT 47 11 "Numero solleciti          "
   FIELD LF_CFVEN->MAXSOLL
   GROUP 7
   HELP "Massimo numero di solleciti"
-  END
+END
 
   DATE F_DATAESC
-  BEGIN
+BEGIN
   PROMPT 2 12 "Ultimo estratto conto   "
   FIELD LF_CFVEN->DATAESC
   GROUP 7
   HELP "Data dell'ultimo estratto conto"
-  END
+END
 
   DATE F_DATASOLL
-  BEGIN
+BEGIN
   PROMPT 47 12 "Ultimo sollecito  "
   FIELD LF_CFVEN->DATASOLL
   GROUP 7
   HELP "Data dell'ultimo sollecito"
-  END
+END
 
-  STRING F_TITOLO 2
-  BEGIN
+STRING F_TITOLO 2
+BEGIN
   PROMPT 2 13 "Titolo onorifico        "
   FIELD LF_CFVEN->TITOLO
   GROUP 7
@@ -1713,10 +1709,10 @@ END
   DISPLAY "Descrizione@30" S0
   OUTPUT F_TITOLO CODTAB
   HELP "Codice del titolo onorifico"
-  END
+END
 
   LIST F_RAGGOR 1 16
-  BEGIN
+BEGIN
   PROMPT 2 15 "Raggruppamento ordine   "
   FIELD LF_CFVEN->RAGGOR
   GROUP 7
@@ -1724,44 +1720,44 @@ END
   ITEM "O|Intero ordine"
   ITEM "R|Intera riga"
   ITEM "P|Anche parziale"
-  END
+END
 
-  NUMBER F_PREVORD 2
-  BEGIN
+NUMBER F_PREVORD 2
+BEGIN
   PROMPT 2 16 "Priorita' ordine        "
   FIELD LF_CFVEN->PREVORD
   GROUP 7
   HELP "Priorita' di evasione dell'ordine"
-  END
+END
 
-  STRING F_TIPOEVORD 2
-  BEGIN
+STRING F_TIPOEVORD 2
+BEGIN
   PROMPT 2 17 "Tipo evasione ordine    "
   FIELD LF_CFVEN->TIPOEVORD
   GROUP 7
   HELP "Tipo di evasione dell'ordine"
-  END
+END
 
-  NUMBER F_MINORD 15
-  BEGIN
+NUMBER F_MINORD 15
+BEGIN
   PROMPT 40 16 "Importo minimo      "
   FIELD LF_CFVEN->MINORD
   GROUP 7
   PICTURE "."
   HELP "Importo minimo dell'ordine"
-  END
+END
 
-  NUMBER F_MAXORD 15
-  BEGIN
+NUMBER F_MAXORD 15
+BEGIN
   PROMPT 40 17 "Importo massimo     "
   FIELD LF_CFVEN->MAXORD
   GROUP 7
   PICTURE "."
   HELP "Importo massimo dell'ordine"
-  END
+END
 
-  ENDPAGE
+ENDPAGE
 
-  ENDMASK
+ENDMASK
 
 #include "cg0200b.uml"
diff --git a/cg/cg4100.cpp b/cg/cg4100.cpp
index b2760e265..a85ba881f 100755
--- a/cg/cg4100.cpp
+++ b/cg/cg4100.cpp
@@ -384,21 +384,28 @@ bool CG4100_App::sort_sal()
         mov.read();
         CHECK(mov.good(),"Archivi movimenti e righe inconsistenti");
 
-        scaricato = mov.get_bool(MOV_SCARCON);
-
         causali.zero();
         const char* codcaus = mov.get(MOV_CODCAUS); 
-        // cerca causale
-        if (*codcaus)
+        
+        tsal = normale;
+        if (*codcaus)   // cerca causale per determinare il tipoo del saldo
         {
           causali.put(CAU_CODCAUS, codcaus);
-          causali.read();
-          CHECK(causali.good(),"Archivi causali e movimenti inconsistenti");
-          if (causali.get(CAU_MOVAP) == "A") tsal = apertura;
-          else if (causali.get(CAU_MOVAP) == "C") tsal = chiusura;
+          const int err = causali.read();
+          if (err == NOERR)
+          {
+            const char ac = causali.get_char(CAU_MOVAP);
+            if (ac == 'A') 
+              tsal = apertura;
+            else 
+              if (ac == 'C') 
+                tsal = chiusura;
+          }  
         }
-        provvis = mov.get(MOV_PROVVIS).not_empty();
-        datareg = mov.get_date(MOV_DATAREG);
+
+        scaricato = mov.get_bool(MOV_SCARCON);
+        provvis   = mov.get(MOV_PROVVIS).not_empty();
+        datareg   = mov.get_date(MOV_DATAREG);
 
         sal.reset();
         sal.set_anno_es(_year);
diff --git a/cg/cg4301.cpp b/cg/cg4301.cpp
index 912dc173a..78d448571 100755
--- a/cg/cg4301.cpp
+++ b/cg/cg4301.cpp
@@ -10,13 +10,11 @@
 #include <utility.h>
 #include "cg4300.h"
 
-#define CHECK_ROUND(m,x) if(m==13)x.round(ROUND_MILLELIRE) 
-
 // -------------------- QUI comincia l'avventura --------------------------
 // Datemi un punto di appoggio                           ******************
 //           e mi ci appoggero'                          ******************
 // ----------------------------------------------------- ******************
-
+                        
 bool TLiquidazione_app::recalc_all() 
 {  
   _prind = new TProgind(_selected.ones()*2,  _printonly ? 
diff --git a/cg/cglib02.cpp b/cg/cglib02.cpp
index 7fd1dec31..bb964edeb 100755
--- a/cg/cglib02.cpp
+++ b/cg/cglib02.cpp
@@ -6,9 +6,11 @@
 /////////////////////////////////////////////////////////////////////////////
 
 #include <stdlib.h>
+
 #include <prefix.h>
-#include <utility.h>
 #include <saldi.h>
+#include <utility.h>
+
 #include "cglib.h"
       
 class TContoExt :  public TConto
@@ -64,37 +66,41 @@ void TTab_conti::aggiorna_conto(const TBill& tcon,
 
   const real i(somma ? importo.valore() : -importo.valore());
 
-  if (movap == apertura)
+  if (provv)
   {
     if (importo.sezione() == 'D') 
-      tc->saldo() += i;
+      tc->darepro() += i;
     else 
-      tc->saldo() -= i;
-  }                    
-  else if (movap == chiusura)
-  {
-    if (importo.sezione() == 'D') 
-      tc->saldofin() += i;
-    else 
-      tc->saldofin() -= i;
+      tc->averepro() += i;
   }
   else
-  {     
-    if (provv)
+  {
+    if (movap == apertura)
     {
       if (importo.sezione() == 'D') 
-        tc->darepro() += i;
+        tc->saldo() += i;
       else 
-        tc->averepro() += i;
-    }
-    else
+        tc->saldo() -= i;
+    }                    
+    else 
     {
-      if (importo.sezione() == 'D') 
-        tc->dare() += i;
-      else 
-        tc->avere() += i;   
-    }
+      if (movap == chiusura)
+      {
+        if (importo.sezione() == 'D') 
+          tc->saldofin() += i;
+        else 
+          tc->saldofin() -= i;
+      }
+      else
+      {
+        if (importo.sezione() == 'D') 
+          tc->dare() += i;
+        else 
+          tc->avere() += i;   
+      }    
+    }  
   }
+  
 
   // rimuovo dalla tabella il conto se dare e avere vanno a zero
   if (!movimentato)
@@ -225,7 +231,10 @@ void TSaldo_agg::registra()
       saldi.put(SLD_FLAGSALINI, flag_salini);
       saldi.put(SLD_SALDO, si);
       saldi.put(SLD_PDARE, tcon.dare());
-
+      saldi.put(SLD_PAVERE, tcon.avere());
+      saldi.put(SLD_PDAREPRO, tcon.darepro());
+      saldi.put(SLD_PAVEREPRO, tcon.averepro());
+ 
       real sf = tcon.saldofin();
       char flag_salfin = sf < ZERO ? 'A' : 'D';
       if (flag_salfin == 'A') sf = -sf;
@@ -233,7 +242,6 @@ void TSaldo_agg::registra()
       saldi.put(SLD_FLAGSALFIN, flag_salfin);
       saldi.put(SLD_SALDOFIN, sf);
 
-      saldi.put(SLD_PAVERE, tcon.avere());
       if (_num_ulmov != 0L) saldi.put(SLD_NUMULTMOV, _num_ulmov);
       if (_data_ulmov.ok()) saldi.put(SLD_DATAULMOV, _data_ulmov);
       update = saldi.write() == _isreinsert;
@@ -279,10 +287,19 @@ void TSaldo_agg::registra()
       r = saldi.get_real(SLD_PDARE);
       r += tcon.dare();
       saldi.put(SLD_PDARE,  r);
+
       r = saldi.get_real(SLD_PAVERE);
       r += tcon.avere(); 
       saldi.put(SLD_PAVERE, r);
       
+      r = saldi.get_real(SLD_PDAREPRO);
+      r += tcon.darepro();
+      saldi.put(SLD_PDAREPRO,  r);
+
+      r = saldi.get_real(SLD_PAVEREPRO);
+      r += tcon.averepro(); 
+      saldi.put(SLD_PAVEREPRO, r);
+      
       const int err = saldi.rewrite();
       if (err != NOERR)
         yesnofatal_box("Errore %d nell'aggiornamento del saldo %d %d %ld", 
@@ -345,8 +362,8 @@ void TEsercizi_contabili::check()
   {
 #ifdef DBG   
     if (_firm != 0)
-      error_box("Questo programma carinissimo usa gli esercizi, "
-                "ma purtroppo non tiene conto del cambio ditta!");
+      error_box("Questo programma carinissimo usa gli esercizi,\n"
+                "purtroppo non tiene conto del cambio ditta!");
 #endif  
     update();
   }