diff --git a/cg/cg0500a.uml b/cg/cg0500a.uml index af05277ff..f589072a6 100755 --- a/cg/cg0500a.uml +++ b/cg/cg0500a.uml @@ -1,291 +1,291 @@ -#include "cg0500.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "" -1 -1 77 20 - -GROUPBOX DLG_NULL -1 3 -BEGIN - PROMPT 1 0 "" -END - -STRING F_COD_CAUS 3 -BEGIN - PROMPT 3 1 "Codice " - FIELD LF_CAUSALI->CODCAUS - KEY 1 - FLAGS "U" - USE LF_CAUSALI - INPUT CODCAUS F_COD_CAUS - DISPLAY "Cod. causale" CODCAUS - DISPLAY "Descrizione @50" DESCR - DISPLAY "Tipo documento" TIPODOC - DISPLAY "Codice registro" REG - DISPLAY "Tipo movimento" TIPOMOV - OUTPUT F_COD_CAUS CODCAUS - OUTPUT F_DESCR DESCR - HELP "Codice causale" - CHECKTYPE REQUIRED -END - -STRING F_DESCR 40 -BEGIN - PROMPT 17 1 "Descrizione " - FIELD LF_CAUSALI->DESCR - COPY USE F_COD_CAUS - INPUT CODCAUS F_COD_CAUS - INPUT DESCR F_DESCR - DISPLAY "Cod. causale" CODCAUS - DISPLAY "Descrizione @50" DESCR - DISPLAY "Tipo documento" TIPODOC - DISPLAY "Codice registro" REG - DISPLAY "Tipo movimento" TIPOMOV - OUTPUT F_COD_CAUS CODCAUS - OUTPUT F_DESCR DESCR - HELP "Descrizione della causale" -END - -STRING F_TIPO_DOC 2 -BEGIN - PROMPT 2 4 "Tipo doc. " - FIELD LF_CAUSALI->TIPODOC - USE %TPD - INPUT CODTAB F_TIPO_DOC - DISPLAY "Tipo " CODTAB - DISPLAY "Descrizione @50 " S0 - OUTPUT F_TIPO_DOC CODTAB - HELP "Tipo documento" - CHECKTYPE NORMAL -// MESSAGE SHOW, 2@ -// MESSAGE EMPTY HIDE, 2@ - FLAGS "U" -END - -STRING F_COD_REG 3 -BEGIN - PROMPT 23 4 "Cod. reg. " - FIELD LF_CAUSALI->REG - USE REG - INPUT CODTAB[1,4] F_ANNOES - INPUT CODTAB[5,7] F_COD_REG - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Codice registro " CODTAB[5,7] - DISPLAY "Tipo" I0 - DISPLAY "Registro corrispettivi" B0 - DISPLAY "Descrizione @50" S0 - OUTPUT F_ANNOES CODTAB[1,4] - OUTPUT F_COD_REG CODTAB[5,7] - OUTPUT F_TIPO_REG I0 - OUTPUT F_CORRISP B0 - HELP "Codice registro" - CHECKTYPE NORMAL - FLAGS "D" -END - -// Questo rimane sempre nascosto -STRING F_TIPO_MOV 2 -BEGIN - PROMPT 68 4 "" - FIELD LF_CAUSALI->TIPOMOV - FLAGS "H" -END - -// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG -LISTBOX F_TIPO_MOV_1 1 20 -BEGIN - PROMPT 44 4 "Tipo mov. " - FIELD LF_CAUSALI->TIPOMOV - HELP "Tipo movimento" - ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV - ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV - ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV -// GROUP 2 -END - -// Viene mostrato questo se TPD vuoto o uguale a IN AN PG -LISTBOX F_TIPO_MOV_2 1 20 -BEGIN - PROMPT 44 4 "Tipo mov. " - FIELD LF_CAUSALI->TIPOMOV - HELP "Inserire il tipo movimento" - ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV - ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV - ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV - ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV - FLAGS "H" -END - -STRING F_ANNOES 4 -BEGIN - PROMPT 2 6 "" - FLAGS "H" -END - -STRING F_TIPO_REG 4 -BEGIN - PROMPT 23 5 "" - FLAGS "H" -END - -BOOLEAN F_CORRISP -BEGIN - PROMPT 33 5 "" - FLAGS "H" -END - -SPREADSHEET F_SHEET_GCS -BEGIN - PROMPT 2 7 "" - ITEM "Tipo conto@21" - ITEM "C/F" - ITEM "Gr." - ITEM "Co." - ITEM "Sottoc." - ITEM "D/A" - ITEM "Descrizione@50" - ITEM "Descr. agg." - ITEM "Iva" - ITEM "Cod.Iva" -END - -ENDPAGE - -PAGE "" -1 -1 77 20 - -GROUPBOX DLG_NULL -1 3 -BEGIN - PROMPT 1 0 "@BCampi obbligatori in caricamento documenti" -END - -BOOLEAN F_DATA_DOC -BEGIN - PROMPT 2 1 "Data documento" - FIELD LF_CAUSALI->DATADOC - HELP "" - CHECKTYPE NORMAL -END - -BOOLEAN F_NUM_DOC -BEGIN - PROMPT 34 1 "Numero documento" - FIELD LF_CAUSALI->NUMDOC - CHECKTYPE NORMAL -END - -BOOLEAN F_AUTO_FAT -BEGIN - PROMPT 2 4 "Autofattura art.34" - FIELD LF_CAUSALI->AUTOFATT - CHECKTYPE NORMAL - GROUP 2 -END - -BOOLEAN F_ALLEGAT -BEGIN - PROMPT 34 4 "Doc. non va in allegati fine anno" - FIELD LF_CAUSALI->ALLEG - GROUP 2 -END - -BOOLEAN F_FAT_RITARDO -BEGIN - PROMPT 2 6 "Fattura in ritardo" - FIELD LF_CAUSALI->RITFATT - GROUP 2 -END - -STRING F_COD_CAUS_IM 3 -BEGIN - PROMPT 34 6 "Codice causale per l'incasso immediato " - FIELD LF_CAUSALI->CODCAUSIM - COPY USE F_COD_CAUS - INPUT CODCAUS F_COD_CAUS_IM - COPY DISPLAY F_COD_CAUS - OUTPUT F_COD_CAUS_IM CODCAUS - CHECKTYPE NORMAL -// MESSAGE CLEAR, F_M_770 - GROUP 2 -END - -BOOLEAN F_OP_INTRACOM -BEGIN - PROMPT 2 8 "Operazione intracomunitaria" - FIELD LF_CAUSALI->INTRACOM -// MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU -// MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU - GROUP 2 -END - -BOOLEAN F_VALINTRA -BEGIN - PROMPT 34 8 "Gestione valuta per operazioni intrac." - FIELD LF_CAUSALI->VALINTRA - GROUP 2 -END - -BOOLEAN F_MOV_VALU -BEGIN - PROMPT 2 10 "Movimento in valuta" - FIELD LF_CAUSALI->MOVVAL - GROUP 2 -END - -BOOLEAN F_MOV_SEZ -BEGIN - PROMPT 34 10 "Movimento solo sezionale" - FIELD LF_CAUSALI->MOVSEZ - FLAGS "H" -END - -LISTBOX F_OP_FINE_ANNO 1 10 -BEGIN - PROMPT 2 12 "Operazioni di fine anno " - ITEM " | " - ITEM "C|Chiusura" - ITEM "A|Apertura" - FIELD LF_CAUSALI->MOVAP - FLAGS "H" -END - - -LISTBOX F_COLL_CESP 1 40 -BEGIN - PROMPT 2 14 "Collegamento cespiti " - FIELD LF_CAUSALI->COLLCESP - HELP "Inserire il tipo di collegamento cespiti" - ITEM " |Nessuno" - ITEM "A|Acquisto cespite" - ITEM "B|Rettifica acquisto" - ITEM "C|Sostenimento costi" - ITEM "E|Eliminazione dal processo produttivo" - ITEM "M|Rivalutazione monetaria" - ITEM "P|Reinvestimento plusvalenze" - ITEM "R|Rivalutazione economica" - ITEM "T|Trasferimento" - ITEM "V|Vendita cespite" - ITEM "Z|Rettifica vendita" -END - -LISTBOX F_M_770 1 40 -BEGIN - PROMPT 2 16 "Collegamento Mod.770 " - FIELD LF_CAUSALI->M770 - HELP "Inserire il tipo di collegamento Mod.770" - ITEM " |Nessuno" // MESSAGE ENABLE,F_COD_CAUS_IM - ITEM "1|Ricevuta e/o pagamento fattura percip." // MESSAGE CLEAR,F_COD_CAUS_IM - ITEM "2|Versamento ritenute percip." // MESSAGE CLEAR,F_COD_CAUS_IM - ITEM "3|Versamento ritenute dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM - ITEM "4|Versamento contributi dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM - ITEM "5|Compensi non soggetti" // MESSAGE CLEAR,F_COD_CAUS_IM - ITEM "6|Ritenute per operazioni occasionali" // MESSAGE CLEAR,F_COD_CAUS_IM -END - -ENDPAGE - -ENDMASK - -#include "cg0500b.uml" +#include "cg0500.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "" -1 -1 77 20 + +GROUPBOX DLG_NULL -1 3 +BEGIN + PROMPT 1 0 "" +END + +STRING F_COD_CAUS 3 +BEGIN + PROMPT 3 1 "Codice " + FIELD LF_CAUSALI->CODCAUS + KEY 1 + FLAGS "U" + USE LF_CAUSALI + INPUT CODCAUS F_COD_CAUS + DISPLAY "Cod. causale" CODCAUS + DISPLAY "Descrizione @50" DESCR + DISPLAY "Tipo documento" TIPODOC + DISPLAY "Codice registro" REG + DISPLAY "Tipo movimento" TIPOMOV + OUTPUT F_COD_CAUS CODCAUS + OUTPUT F_DESCR DESCR + HELP "Codice causale" + CHECKTYPE REQUIRED +END + +STRING F_DESCR 40 +BEGIN + PROMPT 17 1 "Descrizione " + FIELD LF_CAUSALI->DESCR + COPY USE F_COD_CAUS + INPUT CODCAUS F_COD_CAUS + INPUT DESCR F_DESCR + DISPLAY "Cod. causale" CODCAUS + DISPLAY "Descrizione @50" DESCR + DISPLAY "Tipo documento" TIPODOC + DISPLAY "Codice registro" REG + DISPLAY "Tipo movimento" TIPOMOV + OUTPUT F_COD_CAUS CODCAUS + OUTPUT F_DESCR DESCR + HELP "Descrizione della causale" +END + +STRING F_TIPO_DOC 2 +BEGIN + PROMPT 2 4 "Tipo doc. " + FIELD LF_CAUSALI->TIPODOC + USE %TPD + INPUT CODTAB F_TIPO_DOC + DISPLAY "Tipo " CODTAB + DISPLAY "Descrizione @50 " S0 + OUTPUT F_TIPO_DOC CODTAB + HELP "Tipo documento" + CHECKTYPE NORMAL +// MESSAGE SHOW, 2@ +// MESSAGE EMPTY HIDE, 2@ + FLAGS "U" +END + +STRING F_COD_REG 3 +BEGIN + PROMPT 23 4 "Cod. reg. " + FIELD LF_CAUSALI->REG + USE REG + INPUT CODTAB[1,4] F_ANNOES + INPUT CODTAB[5,7] F_COD_REG + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice registro " CODTAB[5,7] + DISPLAY "Tipo" I0 + DISPLAY "Registro corrispettivi" B0 + DISPLAY "Descrizione @50" S0 + OUTPUT F_ANNOES CODTAB[1,4] + OUTPUT F_COD_REG CODTAB[5,7] + OUTPUT F_TIPO_REG I0 + OUTPUT F_CORRISP B0 + HELP "Codice registro" + CHECKTYPE NORMAL + FLAGS "D" +END + +// Questo rimane sempre nascosto +STRING F_TIPO_MOV 2 +BEGIN + PROMPT 68 4 "" + FIELD LF_CAUSALI->TIPOMOV + FLAGS "H" +END + +// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG +LISTBOX F_TIPO_MOV_1 1 20 +BEGIN + PROMPT 44 4 "Tipo mov. " + FIELD LF_CAUSALI->TIPOMOV + HELP "Tipo movimento" + ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV + ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV + ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV +// GROUP 2 +END + +// Viene mostrato questo se TPD vuoto o uguale a IN AN PG +LISTBOX F_TIPO_MOV_2 1 20 +BEGIN + PROMPT 44 4 "Tipo mov. " + FIELD LF_CAUSALI->TIPOMOV + HELP "Inserire il tipo movimento" + ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV + ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV + ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV + ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV + FLAGS "H" +END + +STRING F_ANNOES 4 +BEGIN + PROMPT 2 6 "" + FLAGS "H" +END + +STRING F_TIPO_REG 4 +BEGIN + PROMPT 23 5 "" + FLAGS "H" +END + +BOOLEAN F_CORRISP +BEGIN + PROMPT 33 5 "" + FLAGS "H" +END + +SPREADSHEET F_SHEET_GCS +BEGIN + PROMPT 2 7 "" + ITEM "Tipo conto@21" + ITEM "C/F" + ITEM "Gr." + ITEM "Co." + ITEM "Sottoc." + ITEM "D/A" + ITEM "Descrizione@50" + ITEM "Descr. agg." + ITEM "Iva" + ITEM "Cod.Iva" +END + +ENDPAGE + +PAGE "" -1 -1 77 20 + +GROUPBOX DLG_NULL -1 3 +BEGIN + PROMPT 1 0 "@BCampi obbligatori in caricamento documenti" +END + +BOOLEAN F_DATA_DOC +BEGIN + PROMPT 2 1 "Data documento" + FIELD LF_CAUSALI->DATADOC + HELP "" + CHECKTYPE NORMAL +END + +BOOLEAN F_NUM_DOC +BEGIN + PROMPT 34 1 "Numero documento" + FIELD LF_CAUSALI->NUMDOC + CHECKTYPE NORMAL +END + +BOOLEAN F_AUTO_FAT +BEGIN + PROMPT 2 4 "Autofattura art.34" + FIELD LF_CAUSALI->AUTOFATT + CHECKTYPE NORMAL + GROUP 2 +END + +BOOLEAN F_ALLEGAT +BEGIN + PROMPT 34 4 "Doc. non va in allegati fine anno" + FIELD LF_CAUSALI->ALLEG + GROUP 2 +END + +BOOLEAN F_FAT_RITARDO +BEGIN + PROMPT 2 6 "Fattura in ritardo" + FIELD LF_CAUSALI->RITFATT + GROUP 2 +END + +STRING F_COD_CAUS_IM 3 +BEGIN + PROMPT 34 6 "Codice causale per l'incasso immediato " + FIELD LF_CAUSALI->CODCAUSIM + COPY USE F_COD_CAUS + INPUT CODCAUS F_COD_CAUS_IM + COPY DISPLAY F_COD_CAUS + OUTPUT F_COD_CAUS_IM CODCAUS + CHECKTYPE NORMAL +// MESSAGE CLEAR, F_M_770 + GROUP 2 +END + +BOOLEAN F_OP_INTRACOM +BEGIN + PROMPT 2 8 "Operazione intracomunitaria" + FIELD LF_CAUSALI->INTRACOM +// MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU +// MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU + GROUP 2 +END + +BOOLEAN F_VALINTRA +BEGIN + PROMPT 34 8 "Gestione valuta per operazioni intrac." + FIELD LF_CAUSALI->VALINTRA + GROUP 2 +END + +BOOLEAN F_MOV_VALU +BEGIN + PROMPT 2 10 "Movimento in valuta" + FIELD LF_CAUSALI->MOVVAL + GROUP 2 +END + +BOOLEAN F_MOV_SEZ +BEGIN + PROMPT 34 10 "Movimento solo sezionale" + FIELD LF_CAUSALI->MOVSEZ + FLAGS "H" +END + +LISTBOX F_OP_FINE_ANNO 1 10 +BEGIN + PROMPT 2 12 "Operazioni di fine anno " + ITEM " | " + ITEM "C|Chiusura" + ITEM "A|Apertura" + FIELD LF_CAUSALI->MOVAP + FLAGS "H" +END + + +LISTBOX F_COLL_CESP 1 40 +BEGIN + PROMPT 2 14 "Collegamento cespiti " + FIELD LF_CAUSALI->COLLCESP + HELP "Inserire il tipo di collegamento cespiti" + ITEM " |Nessuno" + ITEM "A|Acquisto cespite" + ITEM "B|Rettifica acquisto" + ITEM "C|Sostenimento costi" + ITEM "E|Eliminazione dal processo produttivo" + ITEM "M|Rivalutazione monetaria" + ITEM "P|Reinvestimento plusvalenze" + ITEM "R|Rivalutazione economica" + ITEM "T|Trasferimento" + ITEM "V|Vendita cespite" + ITEM "Z|Rettifica vendita" +END + +LISTBOX F_M_770 1 40 +BEGIN + PROMPT 2 16 "Collegamento Mod.770 " + FIELD LF_CAUSALI->M770 + HELP "Inserire il tipo di collegamento Mod.770" + ITEM " |Nessuno" // MESSAGE ENABLE,F_COD_CAUS_IM + ITEM "1|Ricevuta e/o pagamento fattura percip." // MESSAGE CLEAR,F_COD_CAUS_IM + ITEM "2|Versamento ritenute percip." // MESSAGE CLEAR,F_COD_CAUS_IM + ITEM "3|Versamento ritenute dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM + ITEM "4|Versamento contributi dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM + ITEM "5|Compensi non soggetti" // MESSAGE CLEAR,F_COD_CAUS_IM + ITEM "6|Ritenute per operazioni occasionali" // MESSAGE CLEAR,F_COD_CAUS_IM +END + +ENDPAGE + +ENDMASK + +#include "cg0500b.uml" diff --git a/cg/cg0500b.uml b/cg/cg0500b.uml index 85fdb431c..bf5410eec 100755 --- a/cg/cg0500b.uml +++ b/cg/cg0500b.uml @@ -1,203 +1,203 @@ - -#include "cg0500.h" - -PAGE "" -1 -1 68 11 - -STRING 101 22 -BEGIN - PROMPT 1 1 "Tipo " - FLAGS "D" -END - -LISTBOX 102 1 11 -BEGIN - PROMPT 33 1 "C/F " - ITEM " |Conto" - MESSAGE SHOW,105|HIDE,205|HIDE,305 - ITEM "C|Cliente" - MESSAGE SHOW,205|HIDE,105|HIDE,305 - ITEM "F|Fornitore" - MESSAGE SHOW,305|HIDE,105|HIDE,205 - FLAGS "DG" - GROUP 1 -// FLAGS "U" -END - -NUMBER 103 3 -BEGIN - PROMPT 1 3 "Gruppo " - FIELD LF_RCAUSALI->GRUPPO - USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="") - INPUT GRUPPO 103 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Descrizione@50" DESCR - DISPLAY "Tipo C/F" TMCF - CHECKTYPE NORMAL - OUTPUT 103 GRUPPO - OUTPUT 107 DESCR -// OUTPUT 102 TMCF - WARNING "Gruppo inesistente o mancante" -// CHECKTYPE REQUIRED - CHECKTYPE NORMAL - GROUP 1 - ADD RUN CG0 -0 -END - -NUMBER 104 3 -BEGIN - PROMPT 15 3 "Conto " - FIELD LF_RCAUSALI->CONTO - USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="") - INPUT GRUPPO 103 - INPUT CONTO 104 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - DISPLAY "Tipo C/F" TMCF - CHECKTYPE NORMAL - OUTPUT 102 TMCF - OUTPUT 104 CONTO - OUTPUT 103 GRUPPO - OUTPUT 107 DESCR - WARNING "Conto inesistente o mancante" - ADD RUN CG0 -0 - GROUP 1 -END - -// Sottoconto NORMALE -NUMBER 105 6 -BEGIN - PROMPT 29 3 "Sottoconto " - FIELD LF_RCAUSALI->SOTTOCONTO - USE LF_PCON SELECT SOTTOCONTO!="" - INPUT GRUPPO 103 - INPUT CONTO 104 - INPUT SOTTOCONTO 105 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT 103 GRUPPO - OUTPUT 104 CONTO - OUTPUT 105 SOTTOCONTO - OUTPUT 107 DESCR - ADD RUN CG0 -0 - CHECKTYPE NORMAL - GROUP 1 -END - - -// Sottoconto CLIENTI -NUMBER 205 6 -BEGIN - PROMPT 29 3 "Cliente " - FIELD LF_RCAUSALI->SOTTOCONTO - USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C") - INPUT TIPOCF "C" - INPUT CODCF 205 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Tipo C/F" TIPOCF - OUTPUT 205 CODCF - OUTPUT 107 RAGSOC - CHECKTYPE NORMAL - FLAGS "H" - MESSAGE COPY,105 - ADD RUN CG0 -1 - GROUP 1 -END - -// Sottoconto FORNITORI -NUMBER 305 6 -BEGIN - PROMPT 29 3 "Fornitore " - FIELD LF_RCAUSALI->SOTTOCONTO - USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F") - INPUT TIPOCF "F" - INPUT CODCF 305 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Tipo C/F" TIPOCF - OUTPUT 305 CODCF - OUTPUT 107 RAGSOC - CHECKTYPE NORMAL - FLAGS "H" - MESSAGE COPY,105 - ADD RUN CG0 -1 - GROUP 1 -END - -LISTBOX 106 5 -BEGIN - PROMPT 51 3 "Sezione " - ITEM "D|Dare" - ITEM "A|Avere" - FIELD LF_RCAUSALI->SEZIONE - CHECKTYPE REQUIRED - FLAGS "U" -END - -STRING 107 50 -BEGIN - PROMPT 1 5 "Descrizione " - FIELD LF_RCAUSALI->DESC - GROUP 1 -END - -STRING 108 3 -BEGIN - PROMPT 1 7 "Descrizione aggiuntiva " - FIELD LF_RCAUSALI->CODDESC - USE %DPN - INPUT CODTAB 108 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @50" S0 - OUTPUT 108 CODTAB - FLAGS "R" - CHECKTYPE NORMAL - GROUP 1 -END - -BOOLEAN 109 -BEGIN - PROMPT 34 7 "Riga iva " - FIELD LF_RCAUSALI->RIGAIVA - FLAGS "D" -END - -STRING 110 4 -BEGIN - USE %IVA - PROMPT 48 7 "Codice iva " - INPUT CODTAB 110 - FIELD LF_RCAUSALI->CODIVA - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione @50" S0 - OUTPUT 110 CODTAB - FLAGS "D" - GROUP 1 -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 -1 "" -END - -BUTTON DLG_NULL 9 2 -BEGIN - PROMPT -33 -1 "Azzera" - MESSAGE RESET,1@ -END - -ENDPAGE - -ENDMASK + +#include "cg0500.h" + +PAGE "" -1 -1 68 11 + +STRING 101 22 +BEGIN + PROMPT 1 1 "Tipo " + FLAGS "D" +END + +LISTBOX 102 1 11 +BEGIN + PROMPT 33 1 "C/F " + ITEM " |Conto" + MESSAGE SHOW,105|HIDE,205|HIDE,305 + ITEM "C|Cliente" + MESSAGE SHOW,205|HIDE,105|HIDE,305 + ITEM "F|Fornitore" + MESSAGE SHOW,305|HIDE,105|HIDE,205 + FLAGS "DG" + GROUP 1 +// FLAGS "U" +END + +NUMBER 103 3 +BEGIN + PROMPT 1 3 "Gruppo " + FIELD LF_RCAUSALI->GRUPPO + USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="") + INPUT GRUPPO 103 + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Tipo C/F" TMCF + CHECKTYPE NORMAL + OUTPUT 103 GRUPPO + OUTPUT 107 DESCR +// OUTPUT 102 TMCF + WARNING "Gruppo inesistente o mancante" +// CHECKTYPE REQUIRED + CHECKTYPE NORMAL + GROUP 1 + ADD RUN CG0 -0 +END + +NUMBER 104 3 +BEGIN + PROMPT 15 3 "Conto " + FIELD LF_RCAUSALI->CONTO + USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="") + INPUT GRUPPO 103 + INPUT CONTO 104 + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Tipo C/F" TMCF + CHECKTYPE NORMAL + OUTPUT 102 TMCF + OUTPUT 104 CONTO + OUTPUT 103 GRUPPO + OUTPUT 107 DESCR + WARNING "Conto inesistente o mancante" + ADD RUN CG0 -0 + GROUP 1 +END + +// Sottoconto NORMALE +NUMBER 105 6 +BEGIN + PROMPT 29 3 "Sottoconto " + FIELD LF_RCAUSALI->SOTTOCONTO + USE LF_PCON SELECT SOTTOCONTO!="" + INPUT GRUPPO 103 + INPUT CONTO 104 + INPUT SOTTOCONTO 105 + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT 103 GRUPPO + OUTPUT 104 CONTO + OUTPUT 105 SOTTOCONTO + OUTPUT 107 DESCR + ADD RUN CG0 -0 + CHECKTYPE NORMAL + GROUP 1 +END + + +// Sottoconto CLIENTI +NUMBER 205 6 +BEGIN + PROMPT 29 3 "Cliente " + FIELD LF_RCAUSALI->SOTTOCONTO + USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C") + INPUT TIPOCF "C" + INPUT CODCF 205 + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Tipo C/F" TIPOCF + OUTPUT 205 CODCF + OUTPUT 107 RAGSOC + CHECKTYPE NORMAL + FLAGS "H" + MESSAGE COPY,105 + ADD RUN CG0 -1 + GROUP 1 +END + +// Sottoconto FORNITORI +NUMBER 305 6 +BEGIN + PROMPT 29 3 "Fornitore " + FIELD LF_RCAUSALI->SOTTOCONTO + USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F") + INPUT TIPOCF "F" + INPUT CODCF 305 + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Tipo C/F" TIPOCF + OUTPUT 305 CODCF + OUTPUT 107 RAGSOC + CHECKTYPE NORMAL + FLAGS "H" + MESSAGE COPY,105 + ADD RUN CG0 -1 + GROUP 1 +END + +LISTBOX 106 5 +BEGIN + PROMPT 51 3 "Sezione " + ITEM "D|Dare" + ITEM "A|Avere" + FIELD LF_RCAUSALI->SEZIONE + CHECKTYPE REQUIRED + FLAGS "U" +END + +STRING 107 50 +BEGIN + PROMPT 1 5 "Descrizione " + FIELD LF_RCAUSALI->DESC + GROUP 1 +END + +STRING 108 3 +BEGIN + PROMPT 1 7 "Descrizione aggiuntiva " + FIELD LF_RCAUSALI->CODDESC + USE %DPN + INPUT CODTAB 108 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @50" S0 + OUTPUT 108 CODTAB + FLAGS "R" + CHECKTYPE NORMAL + GROUP 1 +END + +BOOLEAN 109 +BEGIN + PROMPT 34 7 "Riga iva " + FIELD LF_RCAUSALI->RIGAIVA + FLAGS "D" +END + +STRING 110 4 +BEGIN + USE %IVA + PROMPT 48 7 "Codice iva " + INPUT CODTAB 110 + FIELD LF_RCAUSALI->CODIVA + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione @50" S0 + OUTPUT 110 CODTAB + FLAGS "D" + GROUP 1 +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -13 -1 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -23 -1 "" +END + +BUTTON DLG_NULL 9 2 +BEGIN + PROMPT -33 -1 "Azzera" + MESSAGE RESET,1@ +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg4400.h b/cg/cg4400.h index ce0b3c278..74e9a35ce 100755 --- a/cg/cg4400.h +++ b/cg/cg4400.h @@ -1,129 +1,129 @@ -// -// cg4400.h -// -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include "cglib03.h" - -const int MAXSTR = 128; -static char __tmp[MAXSTR]; - -//enum STAMPA { bollati=1, unici=2 }; -const int TABREG = (int)TTable::name2log("REG"); - -bool filter_func (const TRelation*); -bool my_handler (TMask_field&, KEY); -bool mask_cod (TMask_field&, KEY); -bool mask_mese (TMask_field&, KEY); -bool mask_fino_a_mese (TMask_field&, KEY); -bool mask_select (TMask_field&, KEY); -bool mask_verifica (TMask_field&, KEY); -bool mask_annulla (TMask_field&, KEY); - -class TDati_ditta : public TObject -{ - TLocalisamfile * _nditte, * _anag, *_comuni; - TString _ragsoc, _cofi, _paiva; - TString _comunefis, _viafis, _provfis, _cap; - long _codditta; - int _stampa_width; -protected: - void get_dati_ditta(); - TRectype& look_com (const char * codice); -public: - const char* prima_riga (); - const char* seconda_riga (); - TDati_ditta (long cod_ditta, int stampa_width); - virtual ~TDati_ditta(); -}; - -class CG4400_application : public TPrintapp -{ - friend bool filter_func (const TRelation *r); - friend bool mask_cod (TMask_field&, KEY); - friend bool mask_mese (TMask_field&, KEY); - friend bool mask_fino_a_mese (TMask_field&, KEY); - friend bool my_handler (TMask_field&, KEY); - friend bool mask_select (TMask_field&, KEY); - friend bool mask_verifica (TMask_field&, KEY); - friend bool mask_annulla (TMask_field&, KEY); - - TCursor * _cur; - TRelation *_rel; - TLocalisamfile *_clifo, *_nditte, *_occas, *_tab, *_tabcom; - TTable *_tabreg, *_tablbu, *_tabinl; - TRigaiva_array _iva_array, _riga_rmi; - TTipodoc_array _doc_array; - TRiga_array _tot_iva_array; - TArray_sheet *_ditte; - TBit_array _selected; - TArray _nomiditte; //array descrizioni ditte per sheet - bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri; - char _frequiva; - TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg; - long _annoes, _n_ditte; - word _primast; - int _riepil, _tipo_reg, _fino_a_mese, _tipo_stampa, _pagine_stampate; - int _r, _stampa_width; // riga corrente di stampa - real _totale_doc; - TString _codreg, _desc_lib, _codatt, _attivita; - TString _codtab, _tipodoc, _descr_doc, _codlib; - -public: - const char* desc_attivita (const char * codatt); - const char* descr_doc (const char * tipo); - const char* descr_iva (const char * cod); - const char* ricerca_cf (char tipocf, long codcf); - const char* ricerca_occ(const char * occ); - int setta_riga (int, const TRigaiva&, real&, real&, real&, real&); - int riga_rmoviva(); - bool set_print(int); - bool set_ditte(TMask&); - bool compila_reg(); - bool compila_lib(); - bool controlla_liquidazione(); - bool controlla_mov(); - void cerca_reg(const TString&, byte&, TDate&); - //void leggi_movimenti(const TDate&, const TString&, bool&); - void stampa_registri_IVA(); - void set_page_tot_reg(); - void aggiorna_reg(); - void aggiorna_lib(); - void calcola_progressivi(real&, real&, const char*, const int); - void user_create(); - void user_destroy(); - bool preprocess_page(int, int); - int stampa_intestazione_ditta(); - bool preprocess_print(int, int); - print_action postprocess_print(int, int); - print_action postprocess_page (int, int); - void preprocess_header(); - - CG4400_application() : TPrintapp(),_ditte(NULL),_selected(10000), - _nomiditte(100) {} - - 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 "cglib03.h" + +const int MAXSTR = 128; +static char __tmp[MAXSTR]; + +//enum STAMPA { bollati=1, unici=2 }; +const int TABREG = (int)TTable::name2log("REG"); + +bool filter_func (const TRelation*); +bool my_handler (TMask_field&, KEY); +bool mask_cod (TMask_field&, KEY); +bool mask_mese (TMask_field&, KEY); +bool mask_fino_a_mese (TMask_field&, KEY); +bool mask_select (TMask_field&, KEY); +bool mask_verifica (TMask_field&, KEY); +bool mask_annulla (TMask_field&, KEY); + +class TDati_ditta : public TObject +{ + TLocalisamfile * _nditte, * _anag, *_comuni; + TString _ragsoc, _cofi, _paiva; + TString _comunefis, _viafis, _provfis, _cap; + long _codditta; + int _stampa_width; +protected: + void get_dati_ditta(); + TRectype& look_com (const char * codice); +public: + const char* prima_riga (); + const char* seconda_riga (); + TDati_ditta (long cod_ditta, int stampa_width); + virtual ~TDati_ditta(); +}; + +class CG4400_application : public TPrintapp +{ + friend bool filter_func (const TRelation *r); + friend bool mask_cod (TMask_field&, KEY); + friend bool mask_mese (TMask_field&, KEY); + friend bool mask_fino_a_mese (TMask_field&, KEY); + friend bool my_handler (TMask_field&, KEY); + friend bool mask_select (TMask_field&, KEY); + friend bool mask_verifica (TMask_field&, KEY); + friend bool mask_annulla (TMask_field&, KEY); + + TCursor * _cur; + TRelation *_rel; + TLocalisamfile *_clifo, *_nditte, *_occas, *_tab, *_tabcom; + TTable *_tabreg, *_tablbu, *_tabinl; + TRigaiva_array _iva_array, _riga_rmi; + TTipodoc_array _doc_array; + TRiga_array _tot_iva_array; + TArray_sheet *_ditte; + TBit_array _selected; + TArray _nomiditte; //array descrizioni ditte per sheet + bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri; + char _frequiva; + TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg; + long _annoes, _n_ditte; + word _primast; + int _riepil, _tipo_reg, _fino_a_mese, _tipo_stampa, _pagine_stampate; + int _r, _stampa_width; // riga corrente di stampa + real _totale_doc; + TString _codreg, _desc_lib, _codatt, _attivita; + TString _codtab, _tipodoc, _descr_doc, _codlib; + +public: + const char* desc_attivita (const char * codatt); + const char* descr_doc (const char * tipo); + const char* descr_iva (const char * cod); + const char* ricerca_cf (char tipocf, long codcf); + const char* ricerca_occ(const char * occ); + int setta_riga (int, const TRigaiva&, real&, real&, real&, real&); + int riga_rmoviva(); + bool set_print(int); + bool set_ditte(TMask&); + bool compila_reg(); + bool compila_lib(); + bool controlla_liquidazione(); + bool controlla_mov(); + void cerca_reg(const TString&, byte&, TDate&); + //void leggi_movimenti(const TDate&, const TString&, bool&); + void stampa_registri_IVA(); + void set_page_tot_reg(); + void aggiorna_reg(); + void aggiorna_lib(); + void calcola_progressivi(real&, real&, const char*, const int); + void user_create(); + void user_destroy(); + bool preprocess_page(int, int); + int stampa_intestazione_ditta(); + bool preprocess_print(int, int); + print_action postprocess_print(int, int); + print_action postprocess_page (int, int); + void preprocess_header(); + + CG4400_application() : TPrintapp(),_ditte(NULL),_selected(10000), + _nomiditte(100) {} + + virtual ~CG4400_application() {} +}; + + + + diff --git a/cg/cg4400a.uml b/cg/cg4400a.uml index 78e5d8543..574590deb 100755 --- a/cg/cg4400a.uml +++ b/cg/cg4400a.uml @@ -1,235 +1,235 @@ -// cg4400a.uml -// Stampa tabella registri - -#include "cg4400a.h" - -PAGE "Stampa registri IVA" -1 -1 56 19 - -/* -LISTBOX TIPO_STAMPA 2 27 -BEGIN - PROMPT 2 1 "Tipo stampa " - ITEM "1|Libri bollati della ditta" - MESSAGE SHOW,1@|HIDE,2@|HIDE,3@ - ITEM "2|Libri unici dello studio" - MESSAGE SHOW,2@|HIDE,1@|HIDE,3@ - ITEM "3|Stampa di prova" - MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO - ITEM "4|Stampa libri con riferimenti al libro giornale" - MESSAGE SHOW,1@|HIDE,2@|HIDE,3@ -END -*/ - -NUMBER TIPO_STAMPA 1 -BEGIN - PROMPT 2 1 "Tipo stampa " - SHEET "Cod|Descrizione@50" - INPUT TIPO_STAMPA - OUTPUT TIPO_STAMPA - ITEM "1|Libri bollati della ditta" - ITEM "2|Libri unici dello studio" - ITEM "3|Stampa di prova" - ITEM "4|Stampa libri con riferimenti al libro giornale" -END - -GROUPBOX DLG_NULL 35 5 -BEGIN - PROMPT 20 1 "Scelta ditte" -END - -NUMBER DA_CODICE 6 -BEGIN - PROMPT 21 2 "Da codice " - HELP "Immettere codice ditta di partenza per la 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 3 "A codice " - HELP "Immettere 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 4 "Scelte n. " - FLAGS "D" -END - -BUTTON DLG_SELECT 9 -BEGIN - PROMPT 42 2 "Selezione" - //MESSAGE EXIT,DLG_SELECT -END - -BUTTON F_ANNULLA 9 -BEGIN - PROMPT 42 3 "Annulla" - //MESSAGE EXIT,F_ANNULLA -END - -BUTTON F_VERIFICA 9 -BEGIN - PROMPT 42 4 "Verifica" - //MESSAGE EXIT,F_VERIFICA -END - -DATE DATA_STAMPA -BEGIN - PROMPT 2 6 "Data stampa " - FLAG "AH" - GROUP 3 -END - -NUMBER ANNO 4 -BEGIN - PROMPT 2 7 "Anno " - FLAGS "A" -END - -STRING CODICE_LIBRO 3 -BEGIN - PROMPT 20 7 "Codice libro " - HELP "Specificare il 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 20 7 "Codice libro " - HELP "Specificare il 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 - 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_LIB_UN 3 -BEGIN - PROMPT 20 7 "Cod.libro unico " - HELP "Specificare il 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 - GROUP 2 -END - -GROUPBOX DLG_NULL 52 3 -BEGIN - PROMPT 2 9 "Stampa movimenti" -END - -DATE DA_DATA -BEGIN - PROMPT 5 10 "Dalla data " - GROUP 3 -END - -DATE A_DATA -BEGIN - PROMPT 30 10 "Alla data " - GROUP 3 -END - -LISTBOX FINO_A_MESE 10 -BEGIN - PROMPT 5 10 "Fino al mese " - FLAGS "M" - GROUP 1 -END - -LISTBOX MESE 10 -BEGIN - PROMPT 5 10 "Mese " - FLAGS "M" - GROUP 2 -END - -LISTBOX TIPO_RIEPILOGATIVO 11 -BEGIN - PROMPT 2 12 "Tipo riepilogativo " - HELP "Selezionare Del periodo/Annuale a seconda che si desideri la stampa della liquidazione periodica/annuale" - ITEM "P|Del periodo" - ITEM "A|Annuale" - GROUP 1 -END - -LISTBOX ULTIMO_MESE 10 -BEGIN - PROMPT 2 13 "Ultimo mese stampa su libro unico " - FLAGS "MD" - GROUP 2 -END - -NUMBER ULTIMA_PAGINA 4 -BEGIN - PROMPT 2 14 "Ultimo numero di pagina stampata libro unico " - FLAGS "R" - GROUP 2 -END - -STRING CODICE_LIBRO_IVA 3 -BEGIN - PROMPT 2 15 "Eventuale codice libro IVA " - HELP "Se non viene indicato nessun cod. libro IVA, vengono stampati tutti i registri delle ditte selezionate" - USE REG SELECT (I0<"3") && (S6=="") && (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 - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK - +// cg4400a.uml +// Stampa tabella registri + +#include "cg4400a.h" + +PAGE "Stampa registri IVA" -1 -1 56 19 + +/* +LISTBOX TIPO_STAMPA 2 27 +BEGIN + PROMPT 2 1 "Tipo stampa " + ITEM "1|Libri bollati della ditta" + MESSAGE SHOW,1@|HIDE,2@|HIDE,3@ + ITEM "2|Libri unici dello studio" + MESSAGE SHOW,2@|HIDE,1@|HIDE,3@ + ITEM "3|Stampa di prova" + MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO + ITEM "4|Stampa libri con riferimenti al libro giornale" + MESSAGE SHOW,1@|HIDE,2@|HIDE,3@ +END +*/ + +NUMBER TIPO_STAMPA 1 +BEGIN + PROMPT 2 1 "Tipo stampa " + SHEET "Cod|Descrizione@50" + INPUT TIPO_STAMPA + OUTPUT TIPO_STAMPA + ITEM "1|Libri bollati della ditta" + ITEM "2|Libri unici dello studio" + ITEM "3|Stampa di prova" + ITEM "4|Stampa libri con riferimenti al libro giornale" +END + +GROUPBOX DLG_NULL 35 5 +BEGIN + PROMPT 20 1 "Scelta ditte" +END + +NUMBER DA_CODICE 6 +BEGIN + PROMPT 21 2 "Da codice " + HELP "Immettere codice ditta di partenza per la 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 3 "A codice " + HELP "Immettere 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 4 "Scelte n. " + FLAGS "D" +END + +BUTTON DLG_SELECT 9 +BEGIN + PROMPT 42 2 "Selezione" + //MESSAGE EXIT,DLG_SELECT +END + +BUTTON F_ANNULLA 9 +BEGIN + PROMPT 42 3 "Annulla" + //MESSAGE EXIT,F_ANNULLA +END + +BUTTON F_VERIFICA 9 +BEGIN + PROMPT 42 4 "Verifica" + //MESSAGE EXIT,F_VERIFICA +END + +DATE DATA_STAMPA +BEGIN + PROMPT 2 6 "Data stampa " + FLAG "AH" + GROUP 3 +END + +NUMBER ANNO 4 +BEGIN + PROMPT 2 7 "Anno " + FLAGS "A" +END + +STRING CODICE_LIBRO 3 +BEGIN + PROMPT 20 7 "Codice libro " + HELP "Specificare il 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 20 7 "Codice libro " + HELP "Specificare il 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 + 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_LIB_UN 3 +BEGIN + PROMPT 20 7 "Cod.libro unico " + HELP "Specificare il 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 + GROUP 2 +END + +GROUPBOX DLG_NULL 52 3 +BEGIN + PROMPT 2 9 "Stampa movimenti" +END + +DATE DA_DATA +BEGIN + PROMPT 5 10 "Dalla data " + GROUP 3 +END + +DATE A_DATA +BEGIN + PROMPT 30 10 "Alla data " + GROUP 3 +END + +LISTBOX FINO_A_MESE 10 +BEGIN + PROMPT 5 10 "Fino al mese " + FLAGS "M" + GROUP 1 +END + +LISTBOX MESE 10 +BEGIN + PROMPT 5 10 "Mese " + FLAGS "M" + GROUP 2 +END + +LISTBOX TIPO_RIEPILOGATIVO 11 +BEGIN + PROMPT 2 12 "Tipo riepilogativo " + HELP "Selezionare Del periodo/Annuale a seconda che si desideri la stampa della liquidazione periodica/annuale" + ITEM "P|Del periodo" + ITEM "A|Annuale" + GROUP 1 +END + +LISTBOX ULTIMO_MESE 10 +BEGIN + PROMPT 2 13 "Ultimo mese stampa su libro unico " + FLAGS "MD" + GROUP 2 +END + +NUMBER ULTIMA_PAGINA 4 +BEGIN + PROMPT 2 14 "Ultimo numero di pagina stampata libro unico " + FLAGS "R" + GROUP 2 +END + +STRING CODICE_LIBRO_IVA 3 +BEGIN + PROMPT 2 15 "Eventuale codice libro IVA " + HELP "Se non viene indicato nessun cod. libro IVA, vengono stampati tutti i registri delle ditte selezionate" + USE REG SELECT (I0<"3") && (S6=="") && (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 + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK +