Corretti i seguenti errori:
MI3241, MI3240, MI3239, MI3238, MI3225. git-svn-id: svn://10.65.10.50/trunk@1980 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
45a9fc907b
commit
050cdb2050
@ -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();
|
||||
|
||||
@ -16,4 +16,5 @@
|
||||
#define F_DESC_SOLO_BAN 125
|
||||
#define F_CODICE 127
|
||||
#define F_PROFILO 128
|
||||
#define F_DESCR 129
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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();
|
||||
|
||||
@ -16,4 +16,5 @@
|
||||
#define F_DESC_SOLO_BAN 125
|
||||
#define F_CODICE 127
|
||||
#define F_PROFILO 128
|
||||
#define F_DESCR 129
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user