Corretti i seguenti errori:

MI3241, MI3240, MI3239, MI3238, MI3225.


git-svn-id: svn://10.65.10.50/trunk@1980 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/Attic/cg1400.cpp

@@ -54,7 +54,7 @@ bool TStampa_deleghe_IVA::create()
   _banche = new TTable("%BAN");
 
   _ditte  = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare",
-                             "@1|Cod.@5|Ragione Sociale@30|Importo@15|Interessi@15|ABI@5|CAB@5|Concessione|Tit. Conto Fis.");
+                             "@1|Cod.@5|Ragione Sociale@30|Importo@15r|Interessi@15r|ABI@5|CAB@5|Concessione|Tit. Conto Fis.");
   
   TConfig c(CONFIG_STUDIO, "cg");
   _azienda = c.get("CodABI");
@@ -322,7 +322,7 @@ bool TStampa_deleghe_IVA::print_deleghe()
 {
   bool ok = printer().open();
 
-  TForm f(_profilo, _codice);
+  TForm f(_profilo, format("%05ld",_codice));
 
   TCursor& cur = *f.cursor();
   TLocalisamfile& delega = cur.file();

cg/Attic/cg1400.h

@@ -16,4 +16,5 @@
 #define F_DESC_SOLO_BAN 125
 #define F_CODICE        127
 #define F_PROFILO       128
+#define F_DESCR         129
 

cg/Attic/cg1400a.uml

@@ -1,6 +1,6 @@
 #include "cg1400.h"
 
-PAGE "STAMPA DELEGHE IVA" -1 -1 72 16
+PAGE "STAMPA DELEGHE IVA" -1 -1 72 17
 
 LIST F_PROFILO 8 16
 BEGIN
@@ -8,7 +8,7 @@ BEGIN
   ITEM "DELIVA|Delega" 
     MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@
   ITEM "DELIVACF|Delega C.F."   
-    MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@
+    MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@
   ITEM "DISIVACF|Distinta C.F." 
     MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@
   ITEM "BOLIVACF|Bollettino C.F."
@@ -18,25 +18,31 @@ END
 NUMBER F_CODICE 5
 BEGIN
   PROMPT 53 1 "Profilo "
-  USE LF_FORM 
+  USE LF_FORM SELECT (TIPOPROF==#F_PROFILO) && (CODPROF!="")
-  INPUT TIPOPROF F_PROFILO SELECT
+  INPUT TIPOPROF F_PROFILO 
   INPUT CODPROF F_CODICE
   DISPLAY "Tipo@8" TIPOPROF
   DISPLAY "Codice@8" CODPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT F_CODICE CODPROF
+  OUTPUT F_DESCR  DESC
   FLAGS "UZ"
   CHECKTYPE REQUIRED
 END
 
+STRING F_DESCR 50
+BEGIN
+  PROMPT 1 2 "Descrizione    "
+END
+
 GROUPBOX DLG_NULL 70 5
 BEGIN
-  PROMPT 1 2 "Stampa solo"
+  PROMPT 1 3 "Stampa solo"
 END
 
 NUMBER F_CONCESSIONE 3
 BEGIN           
-  PROMPT 2 3 "Concessione   "
+  PROMPT 2 4 "Concessione   "
   HELP "Codice concessione in cui hanno residenza fiscale le ditte da gestire"
   USE %UCC
   FLAGS "Z"  
@@ -51,7 +57,7 @@ END
 
 STRING F_DESC_CONC 30
 BEGIN
-  PROMPT 24 3 "Descrizione "
+  PROMPT 24 4 "Descrizione "
   USE %UCC KEY 2
   INPUT S0 F_DESC_CONC
   DISPLAY "Descrizione@30" S0
@@ -63,7 +69,7 @@ END
 
 NUMBER F_SOLO_ABI 5
 BEGIN
-  PROMPT 2 4 "Codice ABI    "
+  PROMPT 2 5 "Codice ABI    "
   HELP "Codice ABI della banca delle deleghe da stampare"
   FLAGS "Z"  
   USE %BAN
@@ -81,7 +87,7 @@ END
 
 NUMBER F_SOLO_CAB 5
 BEGIN
-  PROMPT 50 4 "Codice CAB "
+  PROMPT 50 5 "Codice CAB "
   HELP "Codice CAB della banca delle deleghe da stampare"
   FLAGS "Z"
   COPY ALL F_SOLO_ABI
@@ -91,7 +97,7 @@ END
 
 STRING F_DESC_SOLO_BAN 50
 BEGIN
-  PROMPT 2 5 "Denominazione "
+  PROMPT 2 6 "Denominazione "
   USE %BAN KEY 2
   INPUT S0 F_DESC_SOLO_BAN
   DISPLAY "Denominazione@50" S0
@@ -104,12 +110,12 @@ END
 
 GROUPBOX DLG_NULL 70 4
 BEGIN
-  PROMPT 1 7 "Intesta deleghe a"
+  PROMPT 1 8 "Intesta deleghe a"
 END
 
 NUMBER F_ABI 5
 BEGIN
-  PROMPT 2 8 "Codice ABI    "
+  PROMPT 2 9 "Codice ABI    "
   HELP "Codice ABI della banca per la presentazione della delega"
   FLAGS "Z"  
   USE %BAN SELECT CODTAB[6,10]?="?????"
@@ -125,7 +131,7 @@ END
 
 NUMBER F_CAB 5
 BEGIN
-  PROMPT 50 8 "Codice CAB "
+  PROMPT 50 9 "Codice CAB "
   HELP "Codice CAB della banca per la presentazione della delega"
   FLAGS "Z"
   COPY ALL F_ABI
@@ -136,7 +142,7 @@ END
 
 STRING F_DESC_BAN 50
 BEGIN
-  PROMPT 2 9 "Denominazione "
+  PROMPT 2 10 "Denominazione "
   USE %BAN KEY 2 SELECT CODTAB[6,10]?="?????" 
   INPUT S0 F_DESC_BAN
   COPY DISPLAY F_DESC_SOLO_BAN
@@ -147,14 +153,14 @@ END
 
 NUMBER F_ANNO 4
 BEGIN
-  PROMPT 2 11 "Anno    "
+  PROMPT 2 12 "Anno    "
   HELP "Anno di cui si vogliono stampare le deleghe"
   FLAGS "A"
 END
 
 LIST F_MESE 2 11
 BEGIN
-  PROMPT 18 11 "Mese "
+  PROMPT 18 12 "Mese "
   HELP "Mese di cui si vogliono stampare le deleghe"
   FLAGS "AM"
   ITEM "13|Annuale" MESSAGE "2",F_TIPO
@@ -162,7 +168,7 @@ END
 
 LIST F_TIPO 1 24
 BEGIN
-  PROMPT 2 12 "Tipo    "
+  PROMPT 2 13 "Tipo    "
   HELP "Tipo di delega da stampare"
   ITEM "1|Periodica"            MESSAGE ENABLE,F_MESE
   ITEM "2|Annuale"              MESSAGE "13",F_MESE|DISABLE,F_MESE
@@ -174,26 +180,26 @@ END
 
 DATA F_DATA
 BEGIN
-  PROMPT 2 13 "Data    "
+  PROMPT 2 14 "Data    "
   HELP "Data da stampare sulle deleghe"
   FLAGS "A"
 END     
 
 BOOLEAN F_AGGIORNA
 BEGIN
-  PROMPT 43 11 "Aggiorna codici banca"
+  PROMPT 43 12 "Aggiorna codici banca"
   HELP "Scrive i codici banca sulle deleghe che non li riportano"
 END
 
 BOOLEAN F_DISTINTA
 BEGIN
-  PROMPT 43 12 "Stampa distinta deleghe"
+  PROMPT 43 13 "Stampa distinta deleghe"
   HELP "Stampa un riepilogo su carta normale delle deleghe stampate"
 END
 
 BOOLEAN F_DEFINITIVA
 BEGIN
-  PROMPT 43 13 "Stampa definitiva"
+  PROMPT 43 14 "Stampa definitiva"
 END
 
 BUTTON DLG_SELECT 9 2

cg/cg1400.cpp

@@ -54,7 +54,7 @@ bool TStampa_deleghe_IVA::create()
   _banche = new TTable("%BAN");
 
   _ditte  = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare",
-                             "@1|Cod.@5|Ragione Sociale@30|Importo@15|Interessi@15|ABI@5|CAB@5|Concessione|Tit. Conto Fis.");
+                             "@1|Cod.@5|Ragione Sociale@30|Importo@15r|Interessi@15r|ABI@5|CAB@5|Concessione|Tit. Conto Fis.");
   
   TConfig c(CONFIG_STUDIO, "cg");
   _azienda = c.get("CodABI");
@@ -322,7 +322,7 @@ bool TStampa_deleghe_IVA::print_deleghe()
 {
   bool ok = printer().open();
 
-  TForm f(_profilo, _codice);
+  TForm f(_profilo, format("%05ld",_codice));
 
   TCursor& cur = *f.cursor();
   TLocalisamfile& delega = cur.file();

cg/cg1400.h

@@ -16,4 +16,5 @@
 #define F_DESC_SOLO_BAN 125
 #define F_CODICE        127
 #define F_PROFILO       128
+#define F_DESCR         129
 

cg/cg1400a.uml

@@ -1,6 +1,6 @@
 #include "cg1400.h"
 
-PAGE "STAMPA DELEGHE IVA" -1 -1 72 16
+PAGE "STAMPA DELEGHE IVA" -1 -1 72 17
 
 LIST F_PROFILO 8 16
 BEGIN
@@ -8,7 +8,7 @@ BEGIN
   ITEM "DELIVA|Delega" 
     MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@
   ITEM "DELIVACF|Delega C.F."   
-    MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@
+    MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@
   ITEM "DISIVACF|Distinta C.F." 
     MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@
   ITEM "BOLIVACF|Bollettino C.F."
@@ -18,25 +18,31 @@ END
 NUMBER F_CODICE 5
 BEGIN
   PROMPT 53 1 "Profilo "
-  USE LF_FORM 
+  USE LF_FORM SELECT (TIPOPROF==#F_PROFILO) && (CODPROF!="")
-  INPUT TIPOPROF F_PROFILO SELECT
+  INPUT TIPOPROF F_PROFILO 
   INPUT CODPROF F_CODICE
   DISPLAY "Tipo@8" TIPOPROF
   DISPLAY "Codice@8" CODPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT F_CODICE CODPROF
+  OUTPUT F_DESCR  DESC
   FLAGS "UZ"
   CHECKTYPE REQUIRED
 END
 
+STRING F_DESCR 50
+BEGIN
+  PROMPT 1 2 "Descrizione    "
+END
+
 GROUPBOX DLG_NULL 70 5
 BEGIN
-  PROMPT 1 2 "Stampa solo"
+  PROMPT 1 3 "Stampa solo"
 END
 
 NUMBER F_CONCESSIONE 3
 BEGIN           
-  PROMPT 2 3 "Concessione   "
+  PROMPT 2 4 "Concessione   "
   HELP "Codice concessione in cui hanno residenza fiscale le ditte da gestire"
   USE %UCC
   FLAGS "Z"  
@@ -51,7 +57,7 @@ END
 
 STRING F_DESC_CONC 30
 BEGIN
-  PROMPT 24 3 "Descrizione "
+  PROMPT 24 4 "Descrizione "
   USE %UCC KEY 2
   INPUT S0 F_DESC_CONC
   DISPLAY "Descrizione@30" S0
@@ -63,7 +69,7 @@ END
 
 NUMBER F_SOLO_ABI 5
 BEGIN
-  PROMPT 2 4 "Codice ABI    "
+  PROMPT 2 5 "Codice ABI    "
   HELP "Codice ABI della banca delle deleghe da stampare"
   FLAGS "Z"  
   USE %BAN
@@ -81,7 +87,7 @@ END
 
 NUMBER F_SOLO_CAB 5
 BEGIN
-  PROMPT 50 4 "Codice CAB "
+  PROMPT 50 5 "Codice CAB "
   HELP "Codice CAB della banca delle deleghe da stampare"
   FLAGS "Z"
   COPY ALL F_SOLO_ABI
@@ -91,7 +97,7 @@ END
 
 STRING F_DESC_SOLO_BAN 50
 BEGIN
-  PROMPT 2 5 "Denominazione "
+  PROMPT 2 6 "Denominazione "
   USE %BAN KEY 2
   INPUT S0 F_DESC_SOLO_BAN
   DISPLAY "Denominazione@50" S0
@@ -104,12 +110,12 @@ END
 
 GROUPBOX DLG_NULL 70 4
 BEGIN
-  PROMPT 1 7 "Intesta deleghe a"
+  PROMPT 1 8 "Intesta deleghe a"
 END
 
 NUMBER F_ABI 5
 BEGIN
-  PROMPT 2 8 "Codice ABI    "
+  PROMPT 2 9 "Codice ABI    "
   HELP "Codice ABI della banca per la presentazione della delega"
   FLAGS "Z"  
   USE %BAN SELECT CODTAB[6,10]?="?????"
@@ -125,7 +131,7 @@ END
 
 NUMBER F_CAB 5
 BEGIN
-  PROMPT 50 8 "Codice CAB "
+  PROMPT 50 9 "Codice CAB "
   HELP "Codice CAB della banca per la presentazione della delega"
   FLAGS "Z"
   COPY ALL F_ABI
@@ -136,7 +142,7 @@ END
 
 STRING F_DESC_BAN 50
 BEGIN
-  PROMPT 2 9 "Denominazione "
+  PROMPT 2 10 "Denominazione "
   USE %BAN KEY 2 SELECT CODTAB[6,10]?="?????" 
   INPUT S0 F_DESC_BAN
   COPY DISPLAY F_DESC_SOLO_BAN
@@ -147,14 +153,14 @@ END
 
 NUMBER F_ANNO 4
 BEGIN
-  PROMPT 2 11 "Anno    "
+  PROMPT 2 12 "Anno    "
   HELP "Anno di cui si vogliono stampare le deleghe"
   FLAGS "A"
 END
 
 LIST F_MESE 2 11
 BEGIN
-  PROMPT 18 11 "Mese "
+  PROMPT 18 12 "Mese "
   HELP "Mese di cui si vogliono stampare le deleghe"
   FLAGS "AM"
   ITEM "13|Annuale" MESSAGE "2",F_TIPO
@@ -162,7 +168,7 @@ END
 
 LIST F_TIPO 1 24
 BEGIN
-  PROMPT 2 12 "Tipo    "
+  PROMPT 2 13 "Tipo    "
   HELP "Tipo di delega da stampare"
   ITEM "1|Periodica"            MESSAGE ENABLE,F_MESE
   ITEM "2|Annuale"              MESSAGE "13",F_MESE|DISABLE,F_MESE
@@ -174,26 +180,26 @@ END
 
 DATA F_DATA
 BEGIN
-  PROMPT 2 13 "Data    "
+  PROMPT 2 14 "Data    "
   HELP "Data da stampare sulle deleghe"
   FLAGS "A"
 END     
 
 BOOLEAN F_AGGIORNA
 BEGIN
-  PROMPT 43 11 "Aggiorna codici banca"
+  PROMPT 43 12 "Aggiorna codici banca"
   HELP "Scrive i codici banca sulle deleghe che non li riportano"
 END
 
 BOOLEAN F_DISTINTA
 BEGIN
-  PROMPT 43 12 "Stampa distinta deleghe"
+  PROMPT 43 13 "Stampa distinta deleghe"
   HELP "Stampa un riepilogo su carta normale delle deleghe stampate"
 END
 
 BOOLEAN F_DEFINITIVA
 BEGIN
-  PROMPT 43 13 "Stampa definitiva"
+  PROMPT 43 14 "Stampa definitiva"
 END
 
 BUTTON DLG_SELECT 9 2