From 050cdb20509be2edf6cb09868e3971a583c68d18 Mon Sep 17 00:00:00 2001 From: angelo Date: Thu, 19 Oct 1995 11:58:19 +0000 Subject: [PATCH] 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 | 4 ++-- cg/Attic/cg1400.h | 1 + cg/Attic/cg1400a.uml | 52 ++++++++++++++++++++++++-------------------- cg/cg1400.cpp | 4 ++-- cg/cg1400.h | 1 + cg/cg1400a.uml | 52 ++++++++++++++++++++++++-------------------- 6 files changed, 64 insertions(+), 50 deletions(-) diff --git a/cg/Attic/cg1400.cpp b/cg/Attic/cg1400.cpp index 6e0efda7d..273b56811 100755 --- a/cg/Attic/cg1400.cpp +++ b/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(); diff --git a/cg/Attic/cg1400.h b/cg/Attic/cg1400.h index d2bf9983f..d2387a65a 100755 --- a/cg/Attic/cg1400.h +++ b/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 diff --git a/cg/Attic/cg1400a.uml b/cg/Attic/cg1400a.uml index a9724b915..535bd7804 100755 --- a/cg/Attic/cg1400a.uml +++ b/cg/Attic/cg1400a.uml @@ -1,14 +1,14 @@ #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 - PROMPT 1 1 "Stampa " - ITEM "DELIVA|Delega" + PROMPT 1 1 "Stampa " + 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 - INPUT TIPOPROF F_PROFILO SELECT + USE LF_FORM SELECT (TIPOPROF==#F_PROFILO) && (CODPROF!="") + 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 diff --git a/cg/cg1400.cpp b/cg/cg1400.cpp index 6e0efda7d..273b56811 100755 --- a/cg/cg1400.cpp +++ b/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(); diff --git a/cg/cg1400.h b/cg/cg1400.h index d2bf9983f..d2387a65a 100755 --- a/cg/cg1400.h +++ b/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 diff --git a/cg/cg1400a.uml b/cg/cg1400a.uml index a9724b915..535bd7804 100755 --- a/cg/cg1400a.uml +++ b/cg/cg1400a.uml @@ -1,14 +1,14 @@ #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 - PROMPT 1 1 "Stampa " - ITEM "DELIVA|Delega" + PROMPT 1 1 "Stampa " + 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 - INPUT TIPOPROF F_PROFILO SELECT + USE LF_FORM SELECT (TIPOPROF==#F_PROFILO) && (CODPROF!="") + 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