diff --git a/cg/cg3100a.uml b/cg/cg3100a.uml index 78cd64b54..ba28c52f5 100755 --- a/cg/cg3100a.uml +++ b/cg/cg3100a.uml @@ -1,244 +1,244 @@ -#include "cg3100.h" - -PAGE "" -1 -1 76 20 - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" -END - -DATE F_DATASTAMPA -BEGIN - PROMPT 48 1 "Data stampa " - HELP "Data in cui viene effettuata la stampa" - FLAGS "A" -END - -NUMBER F_ANNO 4 -BEGIN - GROUP 3 - PROMPT 2 3 "Anno esercizio " - HELP "Anno d'esercizio di cui si vuole la lista" - USE ESC - CHECKTYPE NORMAL - INPUT CODTAB F_ANNO - DISPLAY "Anno" CODTAB - DISPLAY "Data inizio esercizio" D0 - DISPLAY "Data fine esercizio" D1 - OUTPUT F_ANNO CODTAB - FLAGS "RZ" -END - -RADIOBUTTON F_MOVIMENTI 38 -BEGIN - PROMPT 30 3 "Scelta stampa " - HELP "Indicare il tipo di stampa" - ITEM "0|Lista movimenti" - MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@ - ITEM "1|Lista movimenti di sola prima nota" - MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA -END - - -LIST F_CONTROLLO 21 -BEGIN - PROMPT 2 7 "Controllo movimenti errati " - HELP "Indicare il tipo di controllo per movimenti errati" - ITEM "3|No" MESSAGE HIDE,1@|RESET,1@ - ITEM "2|Si" MESSAGE SHOW,1@ - ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@ -END - -TEXT DLG_NULL -BEGIN - GROUP 1 - PROMPT 2 8 "Stampa messaggi : " -END - -BOOLEAN F_ANNOC -BEGIN - GROUP 1 - PROMPT 20 8 "Anno di competenza " - HELP "Indicare se stampa l'anno di competenza" -END - -BOOLEAN F_ALLEGATO -BEGIN - GROUP 1 - PROMPT 20 9 "Allegato iva " - HELP "Indicare se stampare l'allegato IVA" - MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA - MESSAGE FALSE ENABLE,F_STAMPA -END - -RADIOBUTTON F_DECIDI 10 -BEGIN - PROMPT 2 10 "Stampa " - HELP "Indicare il criterio di scelta dei movimenti" - ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@ - ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@ -END - -DATE F_DATAINI -BEGIN -<<<<<<< cg3100a.uml - PROMPT 19 11 "Stampa mov. dalla data " - HELP "Data da cui iniziare la stampa" -======= - PROMPT 16 11 "Stampa mov. dalla data " - //HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data" ->>>>>>> 1.12 - GROUP 3 -END - -DATE F_DATAFIN -BEGIN -<<<<<<< cg3100a.uml - PROMPT 55 11 "alla data " - HELP "Data fino a cui stampare i movimenti" -======= - PROMPT 52 11 "alla data " ->>>>>>> 1.12 - GROUP 3 -END - -NUMBER F_NUMEROINI 7 -BEGIN -<<<<<<< cg3100a.uml - PROMPT 19 12 "Stampa mov. dal numero " - HELP "Numero del movimento da cui iniziare la stampa" -======= - PROMPT 16 12 "Stampa mov. dal numero " ->>>>>>> 1.12 - USE LF_MOV KEY 1 - INPUT NUMREG F_NUMEROINI - DISPLAY "Numero@6" NUMREG - DISPLAY "Data@10" DATAREG - DISPLAY "Causale" CODCAUS - DISPLAY "Documento" NUMDOC - DISPLAY "Descrizione@50" DESCR - OUTPUT F_NUMEROINI NUMREG - CHECKTYPE NORMAL - FLAGS "R" - GROUP 2 -END - -NUMBER F_NUMEROFIN 7 -BEGIN -<<<<<<< cg3100a.uml - PROMPT 55 12 "al numero " - HELP "Numero del movimenti fino cui fare la stampa" -======= - PROMPT 52 12 "al numero " ->>>>>>> 1.12 - COPY USE F_NUMEROINI - INPUT NUMREG F_NUMEROFIN - COPY DISPLAY F_NUMEROINI - OUTPUT F_NUMEROFIN NUMREG - CHECKTYPE NORMAL - FLAGS "R" - NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)} - WARNING "Limite superiore errato" - GROUP 2 -END - -STRING F_CAUSALEINI 3 -BEGIN - PROMPT 2 14 "Stampa dalla causale " - USE LF_CAUSALI KEY 1 - INPUT CODCAUS F_CAUSALEINI - DISPLAY "Codice causale" CODCAUS - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CAUSALEINI CODCAUS - FLAGS "UR" - HELP "Causale di inizio stampa: vuoto = inizio archivio" -END - -STRING F_CAUSALEFIN 3 -BEGIN - PROMPT 40 14 "alla causale " - COPY USE F_CAUSALEINI - INPUT CODCAUS F_CAUSALEFIN - DISPLAY "Codice causale" CODCAUS - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CAUSALEFIN CODCAUS - FLAGS "UR" - HELP "Causale di fine stampa: vuoto = fine archivio" -END - -STRING F_REGISTROINI 3 -BEGIN - PROMPT 2 15 "Stampa dal registro iva " - USE REG SELECT I0<"3" - //INPUT CODTAB[1,5] F_ANNO SELECT - INPUT CODTAB[5,7] F_REGISTROINI - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Cod. registro iva" CODTAB[5,7] - DISPLAY "Descrizione@40" S0 - OUTPUT F_REGISTROINI CODTAB[5,7] - FLAGS "UR" - //CHECKTYPE NORMAL - HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio" -END - -STRING F_REGISTROFIN 3 -BEGIN - PROMPT 40 15 "al reg. iva " - COPY USE F_REGISTROINI - //INPUT CODTAB[1,5] F_ANNO SELECT - INPUT CODTAB[5,7] F_REGISTROFIN - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Cod. registro iva" CODTAB[5,7] - DISPLAY "Descrizione@40" S0 - OUTPUT F_REGISTROFIN CODTAB[5,7] - FLAGS "UR" - //CHECKTYPE NORMAL - HELP "Codice registro iva di fine stampa: vuoto = fine archivio" -END - -BOOLEAN F_STAMPA -BEGIN - PROMPT 2 16 "Stampa imponibili, imposte e codici iva " - HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA" -END - -BOOLEAN F_STAMPAMOVP -BEGIN - PROMPT 2 17 "Stampa movimenti provvisori " - HELP "Indicare se stampare i movimenti provvisori" -END - -/* -TEXT DLG_NULL -BEGIN - PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data" -END -*/ - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +#include "cg3100.h" + +PAGE "" -1 -1 76 20 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" +END + +DATE F_DATASTAMPA +BEGIN + PROMPT 48 1 "Data stampa " + HELP "Data in cui viene effettuata la stampa" + FLAGS "A" +END + +NUMBER F_ANNO 4 +BEGIN + GROUP 3 + PROMPT 2 3 "Anno esercizio " + HELP "Anno d'esercizio di cui si vuole la lista" + USE ESC + CHECKTYPE NORMAL + INPUT CODTAB F_ANNO + DISPLAY "Anno" CODTAB + DISPLAY "Data inizio esercizio" D0 + DISPLAY "Data fine esercizio" D1 + OUTPUT F_ANNO CODTAB + FLAGS "RZ" +END + +RADIOBUTTON F_MOVIMENTI 38 +BEGIN + PROMPT 30 3 "Scelta stampa " + HELP "Indicare il tipo di stampa" + ITEM "0|Lista movimenti" + MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@ + ITEM "1|Lista movimenti di sola prima nota" + MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA +END + + +LIST F_CONTROLLO 21 +BEGIN + PROMPT 2 7 "Controllo movimenti errati " + HELP "Indicare il tipo di controllo per movimenti errati" + ITEM "3|No" MESSAGE HIDE,1@|RESET,1@ + ITEM "2|Si" MESSAGE SHOW,1@ + ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@ +END + +TEXT DLG_NULL +BEGIN + GROUP 1 + PROMPT 2 8 "Stampa messaggi : " +END + +BOOLEAN F_ANNOC +BEGIN + GROUP 1 + PROMPT 20 8 "Anno di competenza " + HELP "Indicare se stampa l'anno di competenza" +END + +BOOLEAN F_ALLEGATO +BEGIN + GROUP 1 + PROMPT 20 9 "Allegato iva " + HELP "Indicare se stampare l'allegato IVA" + MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA + MESSAGE FALSE ENABLE,F_STAMPA +END + +RADIOBUTTON F_DECIDI 10 +BEGIN + PROMPT 2 10 "Stampa " + HELP "Indicare il criterio di scelta dei movimenti" + ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@ + ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@ +END + +DATE F_DATAINI +BEGIN +<<<<<<< cg3100a.uml + PROMPT 19 11 "Stampa mov. dalla data " + HELP "Data da cui iniziare la stampa" +======= + PROMPT 16 11 "Stampa mov. dalla data " + //HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data" +>>>>>>> 1.12 + GROUP 3 +END + +DATE F_DATAFIN +BEGIN +<<<<<<< cg3100a.uml + PROMPT 55 11 "alla data " + HELP "Data fino a cui stampare i movimenti" +======= + PROMPT 52 11 "alla data " +>>>>>>> 1.12 + GROUP 3 +END + +NUMBER F_NUMEROINI 7 +BEGIN +<<<<<<< cg3100a.uml + PROMPT 19 12 "Stampa mov. dal numero " + HELP "Numero del movimento da cui iniziare la stampa" +======= + PROMPT 16 12 "Stampa mov. dal numero " +>>>>>>> 1.12 + USE LF_MOV KEY 1 + INPUT NUMREG F_NUMEROINI + DISPLAY "Numero@6" NUMREG + DISPLAY "Data@10" DATAREG + DISPLAY "Causale" CODCAUS + DISPLAY "Documento" NUMDOC + DISPLAY "Descrizione@50" DESCR + OUTPUT F_NUMEROINI NUMREG + CHECKTYPE NORMAL + FLAGS "R" + GROUP 2 +END + +NUMBER F_NUMEROFIN 7 +BEGIN +<<<<<<< cg3100a.uml + PROMPT 55 12 "al numero " + HELP "Numero del movimenti fino cui fare la stampa" +======= + PROMPT 52 12 "al numero " +>>>>>>> 1.12 + COPY USE F_NUMEROINI + INPUT NUMREG F_NUMEROFIN + COPY DISPLAY F_NUMEROINI + OUTPUT F_NUMEROFIN NUMREG + CHECKTYPE NORMAL + FLAGS "R" + NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)} + WARNING "Limite superiore errato" + GROUP 2 +END + +STRING F_CAUSALEINI 3 +BEGIN + PROMPT 2 14 "Stampa dalla causale " + USE LF_CAUSALI KEY 1 + INPUT CODCAUS F_CAUSALEINI + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAUSALEINI CODCAUS + FLAGS "UR" + HELP "Causale di inizio stampa: vuoto = inizio archivio" +END + +STRING F_CAUSALEFIN 3 +BEGIN + PROMPT 40 14 "alla causale " + COPY USE F_CAUSALEINI + INPUT CODCAUS F_CAUSALEFIN + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAUSALEFIN CODCAUS + FLAGS "UR" + HELP "Causale di fine stampa: vuoto = fine archivio" +END + +STRING F_REGISTROINI 3 +BEGIN + PROMPT 2 15 "Stampa dal registro iva " + USE REG SELECT I0<"3" + //INPUT CODTAB[1,5] F_ANNO SELECT + INPUT CODTAB[5,7] F_REGISTROINI + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Cod. registro iva" CODTAB[5,7] + DISPLAY "Descrizione@40" S0 + OUTPUT F_REGISTROINI CODTAB[5,7] + FLAGS "UR" + //CHECKTYPE NORMAL + HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio" +END + +STRING F_REGISTROFIN 3 +BEGIN + PROMPT 40 15 "al reg. iva " + COPY USE F_REGISTROINI + //INPUT CODTAB[1,5] F_ANNO SELECT + INPUT CODTAB[5,7] F_REGISTROFIN + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Cod. registro iva" CODTAB[5,7] + DISPLAY "Descrizione@40" S0 + OUTPUT F_REGISTROFIN CODTAB[5,7] + FLAGS "UR" + //CHECKTYPE NORMAL + HELP "Codice registro iva di fine stampa: vuoto = fine archivio" +END + +BOOLEAN F_STAMPA +BEGIN + PROMPT 2 16 "Stampa imponibili, imposte e codici iva " + HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA" +END + +BOOLEAN F_STAMPAMOVP +BEGIN + PROMPT 2 17 "Stampa movimenti provvisori " + HELP "Indicare se stampare i movimenti provvisori" +END + +/* +TEXT DLG_NULL +BEGIN + PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data" +END +*/ + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg3100b.uml b/cg/cg3100b.uml index eae637a08..77417213a 100755 --- a/cg/cg3100b.uml +++ b/cg/cg3100b.uml @@ -1,163 +1,163 @@ -#include "cg3100.h" - -PAGE "" -1 -1 73 16 - - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" -END - -DATE F_DATASTAMPA -BEGIN - PROMPT 48 1 "Data stampa " - HELP "Data in cui viene effettuata la stampa" - FLAGS "A" -END - -NUMBER F_ANNO 4 -BEGIN - PROMPT 2 4 "Anno esercizio " - HELP "Anno d'esercizio di cui si vuole la stampa" - USE ESC KEY 1 - CHECKTYPE NORMAL - INPUT CODTAB F_ANNO - DISPLAY "Anno" CODTAB - DISPLAY "Data inizio esercizio" D0 - DISPLAY "Data fine esercizio" D1 - OUTPUT F_ANNO CODTAB - FLAGS "RZ" -END - -DATE F_DATAINI -BEGIN - PROMPT 2 6 "Stampa movimenti dalla data " - HELP "Data da cui iniziare la stampa" -END - -DATE F_DATAFIN -BEGIN - PROMPT 45 6 "alla data " - HELP "Data fino a cui eseguire la stampa" -END - - -LIST F_TIPOELENCO 8 -BEGIN - PROMPT 2 7 "Tipo elenco " - HELP "Indicare cosa includere nella stampa" - ITEM "C|Clienti" - MESSAGE HIDE,2@|SHOW,1@|RESET,1@ - ITEM "F|Fornitori" - MESSAGE HIDE,2@|SHOW,1@|RESET,1@ - ITEM "E|Entrambi" - MESSAGE HIDE,1@|SHOW,2@|RESET,2@ -END - -NUMBER F_CODICEINI 6 -BEGIN - PROMPT 2 8 "Stampa dal codice " - HELP "Indicare il codice da cui iniziare la stampa" - GROUP 1 - USE LF_CLIFO - INPUT TIPOCF F_TIPOELENCO SELECT - DISPLAY "Tipo" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODICEINI CODCF - FLAGS "R" -END - -NUMBER F_CODICEFIN 6 -BEGIN - PROMPT 45 8 "al codice " - HELP "Indicare il codice a cui terminare la stampa" - GROUP 1 - COPY USE F_CODICEINI - INPUT TIPOCF F_TIPOELENCO SELECT - DISPLAY "Tipo" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODICEFIN CODCF - NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)} - WARNING "Limite superiore errato" - FLAGS "R" -END - -NUMBER F_CODICEINI1 6 -BEGIN - PROMPT 2 8 "Stampa dal codice " - HELP "Indicare il codice da cui iniziare la stampa" - GROUP 2 - COPY USE F_CODICEINI - INPUT TIPOCF F_CODICEINI1 - DISPLAY "Tipo" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODICEINI1 CODCF - FLAGS "R" -END - -NUMBER F_CODICEFIN1 6 -BEGIN - PROMPT 45 8 "al codice " - HELP "Indicare il codice a cui terminare la stampa" - GROUP 2 - COPY USE F_CODICEINI - INPUT TIPOCF F_CODICEFIN1 - DISPLAY "Tipo" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODICEFIN1 CODCF - NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)} - WARNING "Limite superiore errato" - FLAGS "R" -END - -BOOLEAN F_CAMBIO -BEGIN - //GROUP 2 - PROMPT 2 10 "Cambio pagina per cliente/fornitore " - HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore" -END - -BOOLEAN F_STAMPAMOVP -BEGIN - PROMPT 2 11 "Stampa movimenti provvisori " - HELP "Indicare se stampare i movimenti provvisori" -END - -/* -TEXT DLG_NULL -BEGIN - PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) " -END -*/ - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +#include "cg3100.h" + +PAGE "" -1 -1 73 16 + + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" +END + +DATE F_DATASTAMPA +BEGIN + PROMPT 48 1 "Data stampa " + HELP "Data in cui viene effettuata la stampa" + FLAGS "A" +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 2 4 "Anno esercizio " + HELP "Anno d'esercizio di cui si vuole la stampa" + USE ESC KEY 1 + CHECKTYPE NORMAL + INPUT CODTAB F_ANNO + DISPLAY "Anno" CODTAB + DISPLAY "Data inizio esercizio" D0 + DISPLAY "Data fine esercizio" D1 + OUTPUT F_ANNO CODTAB + FLAGS "RZ" +END + +DATE F_DATAINI +BEGIN + PROMPT 2 6 "Stampa movimenti dalla data " + HELP "Data da cui iniziare la stampa" +END + +DATE F_DATAFIN +BEGIN + PROMPT 45 6 "alla data " + HELP "Data fino a cui eseguire la stampa" +END + + +LIST F_TIPOELENCO 8 +BEGIN + PROMPT 2 7 "Tipo elenco " + HELP "Indicare cosa includere nella stampa" + ITEM "C|Clienti" + MESSAGE HIDE,2@|SHOW,1@|RESET,1@ + ITEM "F|Fornitori" + MESSAGE HIDE,2@|SHOW,1@|RESET,1@ + ITEM "E|Entrambi" + MESSAGE HIDE,1@|SHOW,2@|RESET,2@ +END + +NUMBER F_CODICEINI 6 +BEGIN + PROMPT 2 8 "Stampa dal codice " + HELP "Indicare il codice da cui iniziare la stampa" + GROUP 1 + USE LF_CLIFO + INPUT TIPOCF F_TIPOELENCO SELECT + DISPLAY "Tipo" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODICEINI CODCF + FLAGS "R" +END + +NUMBER F_CODICEFIN 6 +BEGIN + PROMPT 45 8 "al codice " + HELP "Indicare il codice a cui terminare la stampa" + GROUP 1 + COPY USE F_CODICEINI + INPUT TIPOCF F_TIPOELENCO SELECT + DISPLAY "Tipo" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODICEFIN CODCF + NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)} + WARNING "Limite superiore errato" + FLAGS "R" +END + +NUMBER F_CODICEINI1 6 +BEGIN + PROMPT 2 8 "Stampa dal codice " + HELP "Indicare il codice da cui iniziare la stampa" + GROUP 2 + COPY USE F_CODICEINI + INPUT TIPOCF F_CODICEINI1 + DISPLAY "Tipo" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODICEINI1 CODCF + FLAGS "R" +END + +NUMBER F_CODICEFIN1 6 +BEGIN + PROMPT 45 8 "al codice " + HELP "Indicare il codice a cui terminare la stampa" + GROUP 2 + COPY USE F_CODICEINI + INPUT TIPOCF F_CODICEFIN1 + DISPLAY "Tipo" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODICEFIN1 CODCF + NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)} + WARNING "Limite superiore errato" + FLAGS "R" +END + +BOOLEAN F_CAMBIO +BEGIN + //GROUP 2 + PROMPT 2 10 "Cambio pagina per cliente/fornitore " + HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore" +END + +BOOLEAN F_STAMPAMOVP +BEGIN + PROMPT 2 11 "Stampa movimenti provvisori " + HELP "Indicare se stampare i movimenti provvisori" +END + +/* +TEXT DLG_NULL +BEGIN + PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) " +END +*/ + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg3400a.h b/cg/cg3400a.h index c78b1b790..1b417017b 100755 --- a/cg/cg3400a.h +++ b/cg/cg3400a.h @@ -1,17 +1,17 @@ -// cg3400a.h - -#define CODREG 100 -#define DATA_DA 101 -#define DATA_A 102 -#define STAMPA_DEF 103 -#define PAGINA_DA 104 - -#define REG_DESC 107 - -//#define REG_ANNO 108 -#define ANNO_ESER 108 -#define STAMPA_WIDTH 109 -#define STAMPA_LEN 110 -#define F_CODDITTA 111 -#define F_RAGSOC 112 - +// cg3400a.h + +#define CODREG 100 +#define DATA_DA 101 +#define DATA_A 102 +#define STAMPA_DEF 103 +#define PAGINA_DA 104 + +#define REG_DESC 107 + +//#define REG_ANNO 108 +#define ANNO_ESER 108 +#define STAMPA_WIDTH 109 +#define STAMPA_LEN 110 +#define F_CODDITTA 111 +#define F_RAGSOC 112 + diff --git a/cg/cg3400a.uml b/cg/cg3400a.uml index 034d9d77a..1b2bdadeb 100755 --- a/cg/cg3400a.uml +++ b/cg/cg3400a.uml @@ -1,140 +1,140 @@ -#include "cg3400a.h" - -PAGE "Stampa Libro Giornale" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGSOC RAGSOC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -STRING CODREG 3 -BEGIN - PROMPT 1 4 "Codice registro " - HELP "Codice del libro giornale da stampare" - USE REG SELECT (I0 = 5) || (I0 = 4) -// INPUT CODTAB[1,4] ANNO_ESER - INPUT CODTAB[5,7] CODREG - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Codice" CODTAB[5,7] - DISPLAY "Descrizione@50" S0 - DISPLAY "Tipo" I0 -// OUTPUT ANNO_ESER CODTAB[1,4] - OUTPUT CODREG CODTAB[5,7] - OUTPUT REG_DESC S0 -// OUTPUT PAGINA_DA I1 -// OUTPUT DATA_DA D0 -// OUTPUT DATA_A D1 -// CHECKTYPE NORMAL - WARNING "Registro inesistente" - FLAGS "U" -END - -NUMBER ANNO_ESER 4 -BEGIN - PROMPT 30 5 "Esercizio " - FLAGS "ZH" -END - -STRING REG_DESC 50 -BEGIN -// PROMPT 1 6 "Descrizione " - PROMPT 25 4 "" - FLAGS "D" -END - -DATE DATA_DA -BEGIN - PROMPT 1 6 "Dalla data " - HELP "Stampa i movimenti a partire dalla data specificata" -END - -DATE DATA_A -BEGIN - PROMPT 40 6 "Alla data " - HELP "Stampa i movimenti fino alla data specificata" -// VALIDATE DATE_CMP_FUNC >= DATA_DA - WARNING "Specificare la data di fine stampa" - CHECKTYPE REQUIRED -END - - -GROUPBOX DLG_NULL 30 4 -BEGIN - PROMPT 1 8 "Intervallo" -END - -RADIOBUTTON DLG_NULL 12 -BEGIN - PROMPT 1 8 "" - HELP "Indicare l'intervallo di pagine da stampare" - ITEM "1|Tutto" MESSAGE CLEAR,PAGINA_DA|DISABLE, PAGINA_DA - ITEM "2|Da pagina " MESSAGE ENABLE, PAGINA_DA -END - -NUMBER PAGINA_DA 5 -BEGIN - PROMPT 18 10 "" - HELP "Numero di pagina da cui iniziare la stampa" -END - - -GROUPBOX DLG_NULL 35 4 -BEGIN - PROMPT 40 8 "Formato pagina" -END - -LISTBOX STAMPA_WIDTH 4 -BEGIN - PROMPT 41 9 "Numero di colonne " - HELP "Numero di colonne per pagina del modulo di stampa." - ITEM "1|132" - ITEM "2|198" -END - -NUMBER STAMPA_LEN 3 -BEGIN - PROMPT 41 10 "Numero di righe " - HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe" -END - -BOOLEAN STAMPA_DEF -BEGIN - PROMPT 2 13 "Stampa definitiva su bollato" - HELP "Seleziona la stampa su bollato oppure, se vuoto, la stampa di prova" - MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA - MESSAGE FALSE ENABLE,DATA_DA -END - -BUTTON DLG_PRINT 9 2 -BEGIN - PROMPT -12 -1 "~Stampa" - MESSAGE EXIT,K_ENTER -END - -BUTTON DLG_QUIT 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +#include "cg3400a.h" + +PAGE "Stampa Libro Giornale" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGSOC RAGSOC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +STRING CODREG 3 +BEGIN + PROMPT 1 4 "Codice registro " + HELP "Codice del libro giornale da stampare" + USE REG SELECT (I0 = 5) || (I0 = 4) +// INPUT CODTAB[1,4] ANNO_ESER + INPUT CODTAB[5,7] CODREG + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + DISPLAY "Tipo" I0 +// OUTPUT ANNO_ESER CODTAB[1,4] + OUTPUT CODREG CODTAB[5,7] + OUTPUT REG_DESC S0 +// OUTPUT PAGINA_DA I1 +// OUTPUT DATA_DA D0 +// OUTPUT DATA_A D1 +// CHECKTYPE NORMAL + WARNING "Registro inesistente" + FLAGS "U" +END + +NUMBER ANNO_ESER 4 +BEGIN + PROMPT 30 5 "Esercizio " + FLAGS "ZH" +END + +STRING REG_DESC 50 +BEGIN +// PROMPT 1 6 "Descrizione " + PROMPT 25 4 "" + FLAGS "D" +END + +DATE DATA_DA +BEGIN + PROMPT 1 6 "Dalla data " + HELP "Stampa i movimenti a partire dalla data specificata" +END + +DATE DATA_A +BEGIN + PROMPT 40 6 "Alla data " + HELP "Stampa i movimenti fino alla data specificata" +// VALIDATE DATE_CMP_FUNC >= DATA_DA + WARNING "Specificare la data di fine stampa" + CHECKTYPE REQUIRED +END + + +GROUPBOX DLG_NULL 30 4 +BEGIN + PROMPT 1 8 "Intervallo" +END + +RADIOBUTTON DLG_NULL 12 +BEGIN + PROMPT 1 8 "" + HELP "Indicare l'intervallo di pagine da stampare" + ITEM "1|Tutto" MESSAGE CLEAR,PAGINA_DA|DISABLE, PAGINA_DA + ITEM "2|Da pagina " MESSAGE ENABLE, PAGINA_DA +END + +NUMBER PAGINA_DA 5 +BEGIN + PROMPT 18 10 "" + HELP "Numero di pagina da cui iniziare la stampa" +END + + +GROUPBOX DLG_NULL 35 4 +BEGIN + PROMPT 40 8 "Formato pagina" +END + +LISTBOX STAMPA_WIDTH 4 +BEGIN + PROMPT 41 9 "Numero di colonne " + HELP "Numero di colonne per pagina del modulo di stampa." + ITEM "1|132" + ITEM "2|198" +END + +NUMBER STAMPA_LEN 3 +BEGIN + PROMPT 41 10 "Numero di righe " + HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe" +END + +BOOLEAN STAMPA_DEF +BEGIN + PROMPT 2 13 "Stampa definitiva su bollato" + HELP "Seleziona la stampa su bollato oppure, se vuoto, la stampa di prova" + MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA + MESSAGE FALSE ENABLE,DATA_DA +END + +BUTTON DLG_PRINT 9 2 +BEGIN + PROMPT -12 -1 "~Stampa" + MESSAGE EXIT,K_ENTER +END + +BUTTON DLG_QUIT 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg3400b.uml b/cg/cg3400b.uml index f20aafab2..669529c05 100755 --- a/cg/cg3400b.uml +++ b/cg/cg3400b.uml @@ -1,39 +1,39 @@ - -#include "cg3400b.h" - -PAGE "Stampa giornale - progressivi precedenti" -1 -1 58 10 - -NUMBER N_RIGA_STAMPATO 6 -BEGIN - PROMPT 1 1 "Ultimo numero di riga stampato " -END - -NUMBER PROGR_DARE 15 -BEGIN - PROMPT 1 3 "Progressivo dare " - PICTURE "." -END - -DATE ULTIMA_DATA -BEGIN - PROMPT 1 5 "Ultima data di stampa " -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 7 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 7 "" -END - -BUTTON DLG_RIPRISTINA 10 2 -BEGIN - PROMPT -33 7 "~Ripristina" -END - -ENDPAGE - -ENDMASK + +#include "cg3400b.h" + +PAGE "Stampa giornale - progressivi precedenti" -1 -1 58 10 + +NUMBER N_RIGA_STAMPATO 6 +BEGIN + PROMPT 1 1 "Ultimo numero di riga stampato " +END + +NUMBER PROGR_DARE 15 +BEGIN + PROMPT 1 3 "Progressivo dare " + PICTURE "." +END + +DATE ULTIMA_DATA +BEGIN + PROMPT 1 5 "Ultima data di stampa " +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -13 7 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -23 7 "" +END + +BUTTON DLG_RIPRISTINA 10 2 +BEGIN + PROMPT -33 7 "~Ripristina" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg4400.h b/cg/cg4400.h index 84a0b8917..4822e0eda 100755 --- a/cg/cg4400.h +++ b/cg/cg4400.h @@ -1,127 +1,127 @@ -// -// cg4400.h -// -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include "cglib03.h" - -const int TABREG = (int)TTable::name2log("REG"); - -class CG4400_application : public TPrintapp -{ - TCursor * _cur; - TRelation *_rel; - TLocalisamfile *_clifo, *_nditte, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv; - TTable *_tabreg, *_tablbu, *_tabinl, *_tablim, *_tabpim, *_tablia, *_tabiva; - TTable *_tabpla, *_tabppa, *_tabvid; - TRigaiva_array _iva_array, _riga_rmi; - TTipodoc_array _doc_array; - TRiga_array _tot_iva_array; - - TBit_array _selected; - TArray_sheet *_ditte; - bool _st_liq[12]; - TRecnotype _nrec; - bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa; - bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; - bool _rif_vid, _intesta_vidi, _intesta_liq, _stampa_data_reg, _ok_vidi; - char _frequiva, _tipo_riepilogativo; - TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg; - TDate _u_data; - long _n_ditte, _u_stampata, _primast, __firm, _uprotivap; - long _numini, _pagine_stampate; - int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc; - int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito; - int _stampa_len, _stampa_mese; - real _totale_doc, _credito; - TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt; - TString _tipodoc, _descr_doc, _codlib, _codice_vidi; - TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis; - -protected: - const char* desc_attivita (); - const char* tipo_attivita (); - const char* descr_doc (); - const char* descr_iva (const char *); - TRectype& ricerca_occ(const char*); - TRectype& ricerca_cf (char, long); - TRectype& look_comuni(const char*); - int setta_riga (int, const TRigaiva&, real&, real&, real&, real&); - int riga_rmoviva(); - bool set_print(int); - bool set_ditte(TMask&); - bool compila_reg(const TMask&); - bool compila_lib(); - bool controlla_liquidazione(); - bool controlla_mov(); - bool stampo_liquidazione(int); - bool ventilazione(const char*); - bool cerca_libro_gio(TString&); - bool look_reg (long, int, TString&, int, const char*, int*); - bool look_regs(int, TString&, int, int*); - bool stampa_totali_finali(); - bool stampa_datareg(); - bool stampa_registri_IVA(const TMask&); - void cerca_reg(const TString&, byte*); - void set_page_tot_reg(); - void send_message(char, const TFilename&,int); - void aggiorna_reg(); - void aggiorna_lib(); - void calcola_progressivi(); - bool user_create(); - bool user_destroy(); - bool preprocess_page(int, int); - int stampa_intestazione(); - int stampa_prospetto(); - void stampa_plafonds(int); - void get_dati_ditta(); - void stampa_vidi(); - int stampa_acquisti(int); - real stampa_valori_plafonds(const real&, const int, TTable&); - bool preprocess_print(int, int); - //print_action postprocess_print(int, int); - print_action postprocess_page (int, int); - void preprocess_header(); - - static bool filter_func (const TRelation * r); - - static bool mask_tipo_stampa (TMask_field&, KEY); - static bool mask_firm_to (TMask_field&, KEY); - static bool mask_cod (TMask_field&, KEY); - static bool mask_libun (TMask_field&, KEY); - static bool mask_data (TMask_field&, KEY); - static bool mask_mese (TMask_field&, KEY); - static bool mask_fino_a_mese (TMask_field&, KEY); - static bool mask_select (TMask_field&, KEY); - static bool mask_azzera (TMask_field&, KEY); - -public: - - CG4400_application() : TPrintapp(), _ditte(NULL) {} - virtual ~CG4400_application() {} -}; - - - - +// +// cg4400.h +// +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include "cglib03.h" + +const int TABREG = (int)TTable::name2log("REG"); + +class CG4400_application : public TPrintapp +{ + TCursor * _cur; + TRelation *_rel; + TLocalisamfile *_clifo, *_nditte, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv; + TTable *_tabreg, *_tablbu, *_tabinl, *_tablim, *_tabpim, *_tablia, *_tabiva; + TTable *_tabpla, *_tabppa, *_tabvid; + TRigaiva_array _iva_array, _riga_rmi; + TTipodoc_array _doc_array; + TRiga_array _tot_iva_array; + + TBit_array _selected; + TArray_sheet *_ditte; + bool _st_liq[12]; + TRecnotype _nrec; + bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa; + bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; + bool _rif_vid, _intesta_vidi, _intesta_liq, _stampa_data_reg, _ok_vidi; + char _frequiva, _tipo_riepilogativo; + TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg; + TDate _u_data; + long _n_ditte, _u_stampata, _primast, __firm, _uprotivap; + long _numini, _pagine_stampate; + int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc; + int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito; + int _stampa_len, _stampa_mese; + real _totale_doc, _credito; + TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt; + TString _tipodoc, _descr_doc, _codlib, _codice_vidi; + TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis; + +protected: + const char* desc_attivita (); + const char* tipo_attivita (); + const char* descr_doc (); + const char* descr_iva (const char *); + TRectype& ricerca_occ(const char*); + TRectype& ricerca_cf (char, long); + TRectype& look_comuni(const char*); + int setta_riga (int, const TRigaiva&, real&, real&, real&, real&); + int riga_rmoviva(); + bool set_print(int); + bool set_ditte(TMask&); + bool compila_reg(const TMask&); + bool compila_lib(); + bool controlla_liquidazione(); + bool controlla_mov(); + bool stampo_liquidazione(int); + bool ventilazione(const char*); + bool cerca_libro_gio(TString&); + bool look_reg (long, int, TString&, int, const char*, int*); + bool look_regs(int, TString&, int, int*); + bool stampa_totali_finali(); + bool stampa_datareg(); + bool stampa_registri_IVA(const TMask&); + void cerca_reg(const TString&, byte*); + void set_page_tot_reg(); + void send_message(char, const TFilename&,int); + void aggiorna_reg(); + void aggiorna_lib(); + void calcola_progressivi(); + bool user_create(); + bool user_destroy(); + bool preprocess_page(int, int); + int stampa_intestazione(); + int stampa_prospetto(); + void stampa_plafonds(int); + void get_dati_ditta(); + void stampa_vidi(); + int stampa_acquisti(int); + real stampa_valori_plafonds(const real&, const int, TTable&); + bool preprocess_print(int, int); + //print_action postprocess_print(int, int); + print_action postprocess_page (int, int); + void preprocess_header(); + + static bool filter_func (const TRelation * r); + + static bool mask_tipo_stampa (TMask_field&, KEY); + static bool mask_firm_to (TMask_field&, KEY); + static bool mask_cod (TMask_field&, KEY); + static bool mask_libun (TMask_field&, KEY); + static bool mask_data (TMask_field&, KEY); + static bool mask_mese (TMask_field&, KEY); + static bool mask_fino_a_mese (TMask_field&, KEY); + static bool mask_select (TMask_field&, KEY); + static bool mask_azzera (TMask_field&, KEY); + +public: + + CG4400_application() : TPrintapp(), _ditte(NULL) {} + virtual ~CG4400_application() {} +}; + + + + diff --git a/cg/cg4400a.h b/cg/cg4400a.h index 17a197327..14d149828 100755 --- a/cg/cg4400a.h +++ b/cg/cg4400a.h @@ -1,29 +1,29 @@ -// cg4400a.h -// Maschera stampa tabella registri -#define TIPO_STAMPA 101 -#define DATA_STAMPA 102 -#define CODICE_LIBRO 103 -#define DA_DATA 104 -#define A_DATA 105 -#define FINO_A_MESE 106 -#define ULTIMA_PAGINA 107 -#define CODICE_LIBRO_IVA 108 -#define ULTIMO_MESE 109 -#define TIPO_RIEPILOGATIVO 110 -#define ANNO 111 -#define DA_CODICE 112 -#define A_CODICE 113 -#define F_SELECT 114 -#define F_ANNULLA 115 -#define F_VERIFICA 116 -#define CODICE_LIB_UN 117 -#define MESE 118 -#define CODICE_LIBRO_PROVA 119 -#define RIF_VID 120 -#define STAMPA_WIDTH 121 -#define STAMPA_LEN 122 - - - - - +// cg4400a.h +// Maschera stampa tabella registri +#define TIPO_STAMPA 101 +#define DATA_STAMPA 102 +#define CODICE_LIBRO 103 +#define DA_DATA 104 +#define A_DATA 105 +#define FINO_A_MESE 106 +#define ULTIMA_PAGINA 107 +#define CODICE_LIBRO_IVA 108 +#define ULTIMO_MESE 109 +#define TIPO_RIEPILOGATIVO 110 +#define ANNO 111 +#define DA_CODICE 112 +#define A_CODICE 113 +#define F_SELECT 114 +#define F_ANNULLA 115 +#define F_VERIFICA 116 +#define CODICE_LIB_UN 117 +#define MESE 118 +#define CODICE_LIBRO_PROVA 119 +#define RIF_VID 120 +#define STAMPA_WIDTH 121 +#define STAMPA_LEN 122 + + + + + diff --git a/cg/cg4400a.uml b/cg/cg4400a.uml index 06058a613..2597cebac 100755 --- a/cg/cg4400a.uml +++ b/cg/cg4400a.uml @@ -1,270 +1,270 @@ -// cg4400a.uml -// Stampa tabella registri - -#include "cg4400a.h" - -PAGE "Stampa registri IVA" -1 -1 56 18 - -LISTBOX TIPO_STAMPA 1 48 -BEGIN - PROMPT 2 1 "Tipo " - HELP "Indicare il tipo di stampa da eseguire" - ITEM "1|Stampa di prova" - MESSAGE SHOW,3@|SHOW,CODICE_LIBRO_PROVA|SHOW,DATA_STAMPA|HIDE,1@|RESET,1@|HIDE,2@|RESET,2@|HIDE,4@|RESET,4@ - ITEM "2|Libri bollati della ditta" - MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,4@|RESET,4@ - ITEM "3|Libri unici dello studio" - MESSAGE SHOW,2@|HIDE,1@|RESET,1@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,4@|RESET,4@ - ITEM "4|Libri con riferimenti al libro giornale" - MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,4@|RESET,4@ -END - -GROUPBOX DLG_NULL 35 5 -BEGIN - PROMPT 20 2 "Scelta ditte" -END - -NUMBER DA_CODICE 6 -BEGIN - PROMPT 21 3 "Da codice " - FLAGS "UR" - HELP "Codice ditta di inizio selezione" - USE LF_NDITTE KEY 1 - //CHECKTYPE NORMAL - INPUT CODDITTA DA_CODICE - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT DA_CODICE CODDITTA -END - -NUMBER A_CODICE 6 -BEGIN - PROMPT 21 4 "A codice " - FLAGS "UR" - HELP "Codice ditta di fine selezione" - COPY USE DA_CODICE - //CHECKTYPE NORMAL - INPUT CODDITTA A_CODICE - COPY DISPLAY DA_CODICE - OUTPUT A_CODICE CODDITTA -END - -STRING F_SELECT 6 -BEGIN - PROMPT 21 5 "Scelte n. " - FLAGS "DR" -END - -BUTTON DLG_SELECT 9 2 -BEGIN - PROMPT 42 3 "~Selezione" - HELP "Indicare le ditte da selezionare per la stampa" -END - -BUTTON F_ANNULLA 9 -BEGIN - PROMPT 42 5 "A~zzera" - HELP "Annullare la selezione delle ditte" - MESSAGE RESET,DA_CODICE|RESET,A_CODICE -END - -DATE DATA_STAMPA -BEGIN - PROMPT 28 7 "Data stampa " - FLAGS "A" - CHECKTYPE REQUIRED - WARNING "Inserire la data di stampa" -END - -NUMBER ANNO 4 -BEGIN - PROMPT 2 3 "Anno " - HELP "Anno di cui si vuole stampare il registro" - FLAGS "A" - WARNING "Inserire l'anno" - CHECKTYPE REQUIRED -END - -STRING CODICE_LIBRO 3 -BEGIN - PROMPT 2 7 "Codice libro " - HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" - USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111) - INPUT CODTAB[1,4] ANNO - INPUT CODTAB[5,7] CODICE_LIBRO - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice " CODTAB[5,7] - DISPLAY "Descrizione @40" S0 - OUTPUT ANNO CODTAB[1,4] - OUTPUT CODICE_LIBRO CODTAB[5,7] - //CHECKTYPE NORMAL - FLAGS "UR" - GROUP 1 -END - -STRING CODICE_LIBRO_PROVA 3 -BEGIN - PROMPT 2 7 "Codice libro " - HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" - USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111) - INPUT CODTAB[1,4] ANNO - INPUT CODTAB[5,7] CODICE_LIBRO_PROVA - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice " CODTAB[5,7] - DISPLAY "Descrizione @40" S0 - OUTPUT ANNO CODTAB[1,4] - OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7] - FLAGS "UR" -END - -STRING CODICE_LIB_UN 3 -BEGIN - PROMPT 2 7 "Libro unico " - HELP "Codice del libro unico su cui deve essere effettuata la stampa" - USE %LBU SELECT CODTAB[1,4]==#111 - INPUT CODTAB[1,4] ANNO - INPUT CODTAB[5,7] CODICE_LIB_UN - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice " CODTAB[5,7] - DISPLAY "Descrizione @40" S0 - OUTPUT ANNO CODTAB[1,4] - OUTPUT CODICE_LIB_UN CODTAB[5,7] - FLAGS "UR" - CHECKTYPE REQUIRED - WARNING "Inserire il codice del libro unico" - GROUP 2 -END - -GROUPBOX DLG_NULL 52 3 -BEGIN - PROMPT 2 8 "Stampa movimenti" -END - -DATE DA_DATA -BEGIN - PROMPT 3 9 "Dalla data " - HELP "Data di inizio stampa registro" - GROUP 3 -END - -DATE A_DATA -BEGIN - PROMPT 30 9 "Alla data " - HELP "Data di fine stampa registro" - VALIDATE DATE_CMP_FUNC >= DA_DATA - WARNING "Inserire una data non inferiore alla data limite inferiore" - GROUP 3 -END - -LISTBOX FINO_A_MESE 10 -BEGIN - PROMPT 4 9 "Fino al mese " - HELP "Mese fino al quale eseguire la stampa" - FLAGS "M" - GROUP 1 -END - -LISTBOX MESE 10 -BEGIN - PROMPT 4 9 "Mese " - HELP "Mese di cui eseguire la stampa" - FLAGS "M" - GROUP 2 -END - -LISTBOX TIPO_RIEPILOGATIVO 11 -BEGIN - PROMPT 2 11 "Tipo riepilogativo " - HELP "Indicare il tipo stampa di liquidazione sul registro" - ITEM "P|Del periodo" - ITEM "A|Annuale" - GROUP 4 -END - -GROUPBOX DLG_NULL 35 4 -BEGIN - PROMPT 2 12 "Formato pagina" -END - -LISTBOX STAMPA_WIDTH 4 -BEGIN - PROMPT 3 13 "Numero di colonne " - HELP "Numero di colonne per pagina del modulo di stampa." - ITEM "1|132" - ITEM "2|198" -END - -NUMBER STAMPA_LEN 3 -BEGIN - PROMPT 3 14 "Numero di righe " - HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe" -END - -BUTTON DLG_PRINT 10 2 -BEGIN - PROMPT -12 -1 "~Stampa" - MESSAGE EXIT,K_ENTER -END - -BUTTON DLG_QUIT 10 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -PAGE "Stampa registri IVA" -1 -1 56 18 - -NUMBER ULTIMA_PAGINA 4 -BEGIN - PROMPT 2 2 "Ultimo numero di pagina stampata libro unico " - HELP "Numero dell'ultima pagina del libro unico stampata" - FLAGS "R" - GROUP 2 -END - -STRING CODICE_LIBRO_IVA 3 -BEGIN - PROMPT 2 3 "Eventuale codice libro IVA " - HELP "Libro IVA da stampare. Vuoto = tutti" - USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111) - INPUT CODTAB[1,4] ANNO - INPUT CODTAB[5,7] CODICE_LIBRO_IVA - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice " CODTAB[5,7] - DISPLAY "Descrizione @40" S0 - OUTPUT ANNO CODTAB[1,4] - OUTPUT CODICE_LIBRO_IVA CODTAB[5,7] - //CHECKTYPE NORMAL - FLAGS "UR" - GROUP 2 -END - -LISTBOX ULTIMO_MESE 10 -BEGIN - PROMPT 2 4 "Ultimo mese stampa su libro unico " - FLAGS "MD" - GROUP 2 -END - -BOOLEAN RIF_VID -BEGIN - PROMPT 2 5 "Stampa riferimenti vidimazione" - GROUP 4 -END - -BUTTON DLG_PRINT 10 2 -BEGIN - PROMPT -12 -1 "~Stampa" - MESSAGE EXIT,K_ENTER -END - -BUTTON DLG_QUIT 10 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK - +// cg4400a.uml +// Stampa tabella registri + +#include "cg4400a.h" + +PAGE "Stampa registri IVA" -1 -1 56 18 + +LISTBOX TIPO_STAMPA 1 48 +BEGIN + PROMPT 2 1 "Tipo " + HELP "Indicare il tipo di stampa da eseguire" + ITEM "1|Stampa di prova" + MESSAGE SHOW,3@|SHOW,CODICE_LIBRO_PROVA|SHOW,DATA_STAMPA|HIDE,1@|RESET,1@|HIDE,2@|RESET,2@|HIDE,4@|RESET,4@ + ITEM "2|Libri bollati della ditta" + MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,4@|RESET,4@ + ITEM "3|Libri unici dello studio" + MESSAGE SHOW,2@|HIDE,1@|RESET,1@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,4@|RESET,4@ + ITEM "4|Libri con riferimenti al libro giornale" + MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,4@|RESET,4@ +END + +GROUPBOX DLG_NULL 35 5 +BEGIN + PROMPT 20 2 "Scelta ditte" +END + +NUMBER DA_CODICE 6 +BEGIN + PROMPT 21 3 "Da codice " + FLAGS "UR" + HELP "Codice ditta di inizio selezione" + USE LF_NDITTE KEY 1 + //CHECKTYPE NORMAL + INPUT CODDITTA DA_CODICE + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT DA_CODICE CODDITTA +END + +NUMBER A_CODICE 6 +BEGIN + PROMPT 21 4 "A codice " + FLAGS "UR" + HELP "Codice ditta di fine selezione" + COPY USE DA_CODICE + //CHECKTYPE NORMAL + INPUT CODDITTA A_CODICE + COPY DISPLAY DA_CODICE + OUTPUT A_CODICE CODDITTA +END + +STRING F_SELECT 6 +BEGIN + PROMPT 21 5 "Scelte n. " + FLAGS "DR" +END + +BUTTON DLG_SELECT 9 2 +BEGIN + PROMPT 42 3 "~Selezione" + HELP "Indicare le ditte da selezionare per la stampa" +END + +BUTTON F_ANNULLA 9 +BEGIN + PROMPT 42 5 "A~zzera" + HELP "Annullare la selezione delle ditte" + MESSAGE RESET,DA_CODICE|RESET,A_CODICE +END + +DATE DATA_STAMPA +BEGIN + PROMPT 28 7 "Data stampa " + FLAGS "A" + CHECKTYPE REQUIRED + WARNING "Inserire la data di stampa" +END + +NUMBER ANNO 4 +BEGIN + PROMPT 2 3 "Anno " + HELP "Anno di cui si vuole stampare il registro" + FLAGS "A" + WARNING "Inserire l'anno" + CHECKTYPE REQUIRED +END + +STRING CODICE_LIBRO 3 +BEGIN + PROMPT 2 7 "Codice libro " + HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" + USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111) + INPUT CODTAB[1,4] ANNO + INPUT CODTAB[5,7] CODICE_LIBRO + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice " CODTAB[5,7] + DISPLAY "Descrizione @40" S0 + OUTPUT ANNO CODTAB[1,4] + OUTPUT CODICE_LIBRO CODTAB[5,7] + //CHECKTYPE NORMAL + FLAGS "UR" + GROUP 1 +END + +STRING CODICE_LIBRO_PROVA 3 +BEGIN + PROMPT 2 7 "Codice libro " + HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" + USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111) + INPUT CODTAB[1,4] ANNO + INPUT CODTAB[5,7] CODICE_LIBRO_PROVA + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice " CODTAB[5,7] + DISPLAY "Descrizione @40" S0 + OUTPUT ANNO CODTAB[1,4] + OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7] + FLAGS "UR" +END + +STRING CODICE_LIB_UN 3 +BEGIN + PROMPT 2 7 "Libro unico " + HELP "Codice del libro unico su cui deve essere effettuata la stampa" + USE %LBU SELECT CODTAB[1,4]==#111 + INPUT CODTAB[1,4] ANNO + INPUT CODTAB[5,7] CODICE_LIB_UN + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice " CODTAB[5,7] + DISPLAY "Descrizione @40" S0 + OUTPUT ANNO CODTAB[1,4] + OUTPUT CODICE_LIB_UN CODTAB[5,7] + FLAGS "UR" + CHECKTYPE REQUIRED + WARNING "Inserire il codice del libro unico" + GROUP 2 +END + +GROUPBOX DLG_NULL 52 3 +BEGIN + PROMPT 2 8 "Stampa movimenti" +END + +DATE DA_DATA +BEGIN + PROMPT 3 9 "Dalla data " + HELP "Data di inizio stampa registro" + GROUP 3 +END + +DATE A_DATA +BEGIN + PROMPT 30 9 "Alla data " + HELP "Data di fine stampa registro" + VALIDATE DATE_CMP_FUNC >= DA_DATA + WARNING "Inserire una data non inferiore alla data limite inferiore" + GROUP 3 +END + +LISTBOX FINO_A_MESE 10 +BEGIN + PROMPT 4 9 "Fino al mese " + HELP "Mese fino al quale eseguire la stampa" + FLAGS "M" + GROUP 1 +END + +LISTBOX MESE 10 +BEGIN + PROMPT 4 9 "Mese " + HELP "Mese di cui eseguire la stampa" + FLAGS "M" + GROUP 2 +END + +LISTBOX TIPO_RIEPILOGATIVO 11 +BEGIN + PROMPT 2 11 "Tipo riepilogativo " + HELP "Indicare il tipo stampa di liquidazione sul registro" + ITEM "P|Del periodo" + ITEM "A|Annuale" + GROUP 4 +END + +GROUPBOX DLG_NULL 35 4 +BEGIN + PROMPT 2 12 "Formato pagina" +END + +LISTBOX STAMPA_WIDTH 4 +BEGIN + PROMPT 3 13 "Numero di colonne " + HELP "Numero di colonne per pagina del modulo di stampa." + ITEM "1|132" + ITEM "2|198" +END + +NUMBER STAMPA_LEN 3 +BEGIN + PROMPT 3 14 "Numero di righe " + HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe" +END + +BUTTON DLG_PRINT 10 2 +BEGIN + PROMPT -12 -1 "~Stampa" + MESSAGE EXIT,K_ENTER +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +PAGE "Stampa registri IVA" -1 -1 56 18 + +NUMBER ULTIMA_PAGINA 4 +BEGIN + PROMPT 2 2 "Ultimo numero di pagina stampata libro unico " + HELP "Numero dell'ultima pagina del libro unico stampata" + FLAGS "R" + GROUP 2 +END + +STRING CODICE_LIBRO_IVA 3 +BEGIN + PROMPT 2 3 "Eventuale codice libro IVA " + HELP "Libro IVA da stampare. Vuoto = tutti" + USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111) + INPUT CODTAB[1,4] ANNO + INPUT CODTAB[5,7] CODICE_LIBRO_IVA + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice " CODTAB[5,7] + DISPLAY "Descrizione @40" S0 + OUTPUT ANNO CODTAB[1,4] + OUTPUT CODICE_LIBRO_IVA CODTAB[5,7] + //CHECKTYPE NORMAL + FLAGS "UR" + GROUP 2 +END + +LISTBOX ULTIMO_MESE 10 +BEGIN + PROMPT 2 4 "Ultimo mese stampa su libro unico " + FLAGS "MD" + GROUP 2 +END + +BOOLEAN RIF_VID +BEGIN + PROMPT 2 5 "Stampa riferimenti vidimazione" + GROUP 4 +END + +BUTTON DLG_PRINT 10 2 +BEGIN + PROMPT -12 -1 "~Stampa" + MESSAGE EXIT,K_ENTER +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK + diff --git a/cg/cg4400b.h b/cg/cg4400b.h new file mode 100755 index 000000000..66d17f700 --- /dev/null +++ b/cg/cg4400b.h @@ -0,0 +1,4 @@ +#define COD_LIB 123 +#define U_MESE 124 +#define U_PAGINA 125 +#define U_DATA 126 diff --git a/cg/cg4400b.uml b/cg/cg4400b.uml new file mode 100755 index 000000000..c9a684235 --- /dev/null +++ b/cg/cg4400b.uml @@ -0,0 +1,39 @@ +#include "cg4400b.h" + +PAGE "Stampa registri IVA" -1 -1 58 10 + +STRING COD_LIB 3 +BEGIN + PROMPT 2 1 "Codice Libro " +END + +LISTBOX U_MESE 10 +BEGIN + PROMPT 2 2 "Stampa mese " + FLAGS "MD" +END + +NUMBER U_PAGINA 4 +BEGIN + PROMPT 2 3 "Ult.num.pagina stampata libro ditta " + FLAGS "R" +END + +DATE U_DATA +BEGIN + PROMPT 2 4 "Ultima data di stampa " +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -13 7 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -23 7 "" +END + +ENDPAGE + +ENDMASK \ No newline at end of file diff --git a/cg/cglib03.h b/cg/cglib03.h index 4061b51f2..c0830af04 100755 --- a/cg/cglib03.h +++ b/cg/cglib03.h @@ -1,86 +1,86 @@ -// cglib03.h -// TRigaiva_array -// Tabella per il calcolo degli imponibili Iva - -#ifndef __CGLIB03_H -#define __CGLIB03_H - -#ifndef __REAL_H -#include -#endif - -#ifndef __STRINGS_H -#include -#endif - -struct TDociva : public TObject -{ - TString _descrdoc; - real _totdociva; - int _ndoc; - - TDociva(const char* _descrdociva, const real& _importo,const int _natdoc):_descrdoc(_descrdociva),_totdociva(_importo),_ndoc(_natdoc) - {} -}; - -class TDociva_array : public TArray -{ -public: - bool add_riga(const char* _descrdociva,const real& _importo,const int _natdoc); - TDociva& riga(int i) { return (TDociva&)(*this)[i]; } -}; - -struct TRigaiva : public TObject -{ - real _imponibile, _imposta; - real _imponibilep, _impostap; - TString _codiva; - int _tipodet, _tipocr, _tipoatt; - bool _intra; - - TRigaiva (const real& imponibile, const real& imposta, const real& imponibilep, const real& impostap, const char* codiva, const int tipodet, const int tipocr, bool intra, const int tipoatt): - _imponibile(imponibile),_imposta(imposta),_imponibilep(imponibilep),_impostap(impostap),_codiva(codiva),_tipodet(tipodet),_tipocr(tipocr),_intra(intra),_tipoatt(tipoatt) - {} -}; - -class TRigaiva_array : public TArray -{ -public: - bool add_riga(const real& imponibile, const real& imposta, const real& imponibilep, const real& impostap, const char* codiva, const int tipodet, const int tipocr, bool intra, const int tipoatt = 0); - TRigaiva& riga(int i) { return (TRigaiva&)(*this)[i]; } -}; - -struct TTipodoc : public TObject -{ - TString _tipodoc, _descrdoc; - real _totdoc; - - TTipodoc (const char* tipodoc, const char* descrdoc, const real& totdoc): - _tipodoc(tipodoc),_descrdoc(descrdoc),_totdoc(totdoc) {} -}; - -class TTipodoc_array : public TArray -{ -public: - bool add_riga(const char* tipodoc, const char* descrdoc, const real& totdoc); - TTipodoc& riga(int i) { return (TTipodoc&)(*this)[i]; } -}; - -struct TRiga : public TObject -{ - real _imponibile, _imposta, _implordo; //totali del periodo - real _imponibilep, _impostap, _implordop; //totali progressivi - TString _codiva; - - TRiga (const real& imponibile, const real& imposta, const real& implordo, const real& imponibilep, const real& impostap, const real& implordop, const char* codiva): - _imponibile(imponibile),_imposta(imposta),_implordo(implordo),_codiva(codiva),_imponibilep(imponibilep),_impostap(impostap),_implordop(implordop) {} -}; - -class TRiga_array : public TArray -{ -public: - bool add_riga(const real& imponibile, const real& imposta, const real& implordo, const real& imponibilep, const real& impostap, const real& implordop, const char* codiva); - TRiga& riga(int i) { return (TRiga&)(*this)[i]; } -}; - -#endif +// cglib03.h +// TRigaiva_array +// Tabella per il calcolo degli imponibili Iva + +#ifndef __CGLIB03_H +#define __CGLIB03_H + +#ifndef __REAL_H +#include +#endif + +#ifndef __STRINGS_H +#include +#endif + +struct TDociva : public TObject +{ + TString _descrdoc; + real _totdociva; + int _ndoc; + + TDociva(const char* _descrdociva, const real& _importo,const int _natdoc):_descrdoc(_descrdociva),_totdociva(_importo),_ndoc(_natdoc) + {} +}; + +class TDociva_array : public TArray +{ +public: + bool add_riga(const char* _descrdociva,const real& _importo,const int _natdoc); + TDociva& riga(int i) { return (TDociva&)(*this)[i]; } +}; + +struct TRigaiva : public TObject +{ + real _imponibile, _imposta; + real _imponibilep, _impostap; + TString _codiva; + int _tipodet, _tipocr, _tipoatt; + bool _intra; + + TRigaiva (const real& imponibile, const real& imposta, const real& imponibilep, const real& impostap, const char* codiva, const int tipodet, const int tipocr, bool intra, const int tipoatt): + _imponibile(imponibile),_imposta(imposta),_imponibilep(imponibilep),_impostap(impostap),_codiva(codiva),_tipodet(tipodet),_tipocr(tipocr),_intra(intra),_tipoatt(tipoatt) + {} +}; + +class TRigaiva_array : public TArray +{ +public: + bool add_riga(const real& imponibile, const real& imposta, const real& imponibilep, const real& impostap, const char* codiva, const int tipodet, const int tipocr, bool intra, const int tipoatt = 0); + TRigaiva& riga(int i) { return (TRigaiva&)(*this)[i]; } +}; + +struct TTipodoc : public TObject +{ + TString _tipodoc, _descrdoc; + real _totdoc; + + TTipodoc (const char* tipodoc, const char* descrdoc, const real& totdoc): + _tipodoc(tipodoc),_descrdoc(descrdoc),_totdoc(totdoc) {} +}; + +class TTipodoc_array : public TArray +{ +public: + bool add_riga(const char* tipodoc, const char* descrdoc, const real& totdoc); + TTipodoc& riga(int i) { return (TTipodoc&)(*this)[i]; } +}; + +struct TRiga : public TObject +{ + real _imponibile, _imposta, _implordo; //totali del periodo + real _imponibilep, _impostap, _implordop; //totali progressivi + TString _codiva; + + TRiga (const real& imponibile, const real& imposta, const real& implordo, const real& imponibilep, const real& impostap, const real& implordop, const char* codiva): + _imponibile(imponibile),_imposta(imposta),_implordo(implordo),_codiva(codiva),_imponibilep(imponibilep),_impostap(impostap),_implordop(implordop) {} +}; + +class TRiga_array : public TArray +{ +public: + bool add_riga(const real& imponibile, const real& imposta, const real& implordo, const real& imponibilep, const real& impostap, const real& implordop, const char* codiva); + TRiga& riga(int i) { return (TRiga&)(*this)[i]; } +}; + +#endif