diff --git a/cg/cg3100.cpp b/cg/cg3100.cpp index 65696c8eb..b76f44496 100755 --- a/cg/cg3100.cpp +++ b/cg/cg3100.cpp @@ -1630,50 +1630,53 @@ else _err.set(3); if (_codcf == 0l) _err.set(16); } - if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F")) - _err.set(17); - - TLocalisamfile clifo(LF_CLIFO); - clifo.setkey(1); - clifo.zero(); - clifo.put(CLI_CODCF, _codcf); - clifo.put(CLI_TIPOCF,_tipo_elenco); - if (clifo.read() == NOERR) + if (_codcf != 0l) { - bool sosp = clifo.get_bool(CLI_SOSPESO); - if (sosp) - _err.set(18); - bool occ = clifo.get_bool(CLI_OCCAS); - char alleg = clifo.get_char(CLI_ALLEG); - long calleg = clifo.get_long(CLI_CODALLEG); - if (!occ) - { - if (_stampa_mess_alleg_iva && alleg == '1') - _err.set(19); - if (calleg != 0l) - { - if (calleg == _codcf) - _err.set(20); - clifo.zero(); - clifo.put(CLI_CODCF, calleg); - clifo.put(CLI_TIPOCF,_tipo_elenco); - if (clifo.read() == NOERR) + if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F")) + _err.set(17); + + TLocalisamfile clifo(LF_CLIFO); + clifo.setkey(1); + clifo.zero(); + clifo.put(CLI_CODCF, _codcf); + clifo.put(CLI_TIPOCF,_tipo_elenco); + if (clifo.read() == NOERR) + { + bool sosp = clifo.get_bool(CLI_SOSPESO); + if (sosp) + _err.set(18); + bool occ = clifo.get_bool(CLI_OCCAS); + char alleg = clifo.get_char(CLI_ALLEG); + long calleg = clifo.get_long(CLI_CODALLEG); + if (!occ) + { + if (_stampa_mess_alleg_iva && alleg == '1') + _err.set(19); + if (calleg != 0l) { - bool sospall = clifo.get_bool(CLI_SOSPESO); - long codall = clifo.get_long(CLI_CODALLEG); - char alleg = clifo.get_char(CLI_ALLEG); - if (sospall) - _err.set(21); - if (codall != 0l) - _err.set(22); - if (_stampa_mess_alleg_iva && alleg == '1') - _err.set(23); - } - else _err.set(24); - } - } - } - else _err.set(25); + if (calleg == _codcf) + _err.set(20); + clifo.zero(); + clifo.put(CLI_CODCF, calleg); + clifo.put(CLI_TIPOCF,_tipo_elenco); + if (clifo.read() == NOERR) + { + bool sospall = clifo.get_bool(CLI_SOSPESO); + long codall = clifo.get_long(CLI_CODALLEG); + char alleg = clifo.get_char(CLI_ALLEG); + if (sospall) + _err.set(21); + if (codall != 0l) + _err.set(22); + if (_stampa_mess_alleg_iva && alleg == '1') + _err.set(23); + } + else _err.set(24); + } + } + } + else _err.set(25); + } } } } diff --git a/cg/cg3100.h b/cg/cg3100.h index 1ad7b7fbb..188ce6033 100755 --- a/cg/cg3100.h +++ b/cg/cg3100.h @@ -1,72 +1,72 @@ -#ifndef __CG3100_H -#define __CG3100_H - -#define TAB_REG "REG" -#define TAB_TPD "%TPD" -#define TAB_VAL "%VAL" -#define TAB_IVA "%IVA" - -#define F_CODDITTA 101 -#define F_DATASTAMPA 102 -#define F_RAGSOC 104 -#define F_CONTROLLO 105 -#define F_ANNO 106 -#define F_ALLEGATO 107 -#define F_DATAINI 108 -#define F_DATAFIN 109 -#define F_NUMEROINI 110 -#define F_NUMEROFIN 111 -#define F_CAUSALEINI 112 -#define F_CAUSALEFIN 113 -#define F_REGISTROINI 114 -#define F_REGISTROFIN 115 -#define F_STAMPA 116 -#define F_TIPOELENCO 117 -#define F_CODICEINI 118 -#define F_CODICEFIN 119 -#define F_CAMBIO 120 -#define F_DECIDI 121 -#define F_ANNOC 122 -#define F_CODICEINI1 123 -#define F_CODICEFIN1 124 -#define F_MOVIMENTI 125 -#define F_STAMPAMOVP 126 -#define F_RAGSOCINI 127 -#define F_RAGSOCFIN 128 -#define F_RAGSOCINI1 129 -#define F_RAGSOCFIN1 130 - -#define ST_DATA 0x0001 -#define ST_NUMERO 0x0002 -#define ST_CAUSALE 0x0004 -#define ST_REGISTRO 0x0008 -#define ST_DATI_IVA 0x0010 -#define ST_CONTROLLO 0x0020 -#define ST_SOLO_MOVERR 0x0040 -#define ST_SENZA_CONTR 0x0080 -#define ST_MESSAGGI 0x0100 -#define ST_ANNO_COMP 0x0200 -#define ST_MESS_ALLEG 0x0400 -#define ST_COMPLETA_DATA 0x0800 -#define ST_COMPLETA_NUM 0x1000 -#define ST_COMPLETA_CAUS 0x2000 -#define ST_COMPLETA_REG 0x4000 -#define ST_CODICE 0x8000 - -#endif // __CG3100_H - - - - - - - - - - - - - - - - +#ifndef __CG3100_H +#define __CG3100_H + +#define TAB_REG "REG" +#define TAB_TPD "%TPD" +#define TAB_VAL "%VAL" +#define TAB_IVA "%IVA" + +#define F_CODDITTA 101 +#define F_DATASTAMPA 102 +#define F_RAGSOC 104 +#define F_CONTROLLO 105 +#define F_ANNO 106 +#define F_ALLEGATO 107 +#define F_DATAINI 108 +#define F_DATAFIN 109 +#define F_NUMEROINI 110 +#define F_NUMEROFIN 111 +#define F_CAUSALEINI 112 +#define F_CAUSALEFIN 113 +#define F_REGISTROINI 114 +#define F_REGISTROFIN 115 +#define F_STAMPA 116 +#define F_TIPOELENCO 117 +#define F_CODICEINI 118 +#define F_CODICEFIN 119 +#define F_CAMBIO 120 +#define F_DECIDI 121 +#define F_ANNOC 122 +#define F_CODICEINI1 123 +#define F_CODICEFIN1 124 +#define F_MOVIMENTI 125 +#define F_STAMPAMOVP 126 +#define F_RAGSOCINI 127 +#define F_RAGSOCFIN 128 +#define F_RAGSOCINI1 129 +#define F_RAGSOCFIN1 130 + +#define ST_DATA 0x0001 +#define ST_NUMERO 0x0002 +#define ST_CAUSALE 0x0004 +#define ST_REGISTRO 0x0008 +#define ST_DATI_IVA 0x0010 +#define ST_CONTROLLO 0x0020 +#define ST_SOLO_MOVERR 0x0040 +#define ST_SENZA_CONTR 0x0080 +#define ST_MESSAGGI 0x0100 +#define ST_ANNO_COMP 0x0200 +#define ST_MESS_ALLEG 0x0400 +#define ST_COMPLETA_DATA 0x0800 +#define ST_COMPLETA_NUM 0x1000 +#define ST_COMPLETA_CAUS 0x2000 +#define ST_COMPLETA_REG 0x4000 +#define ST_CODICE 0x8000 + +#endif // __CG3100_H + + + + + + + + + + + + + + + + diff --git a/cg/cg3100c.uml b/cg/cg3100c.uml index 0bf5f497e..c65f7ad95 100755 --- a/cg/cg3100c.uml +++ b/cg/cg3100c.uml @@ -1,111 +1,111 @@ - -#include "cg3100.h" - -PAGE "" -1 -1 76 19 - - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 2 2 "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 3 "Ragione sociale " - FLAGS "D" -END - -NUMBER F_ANNO 4 -BEGIN - PROMPT 2 5 "Anno esercizio " - HELP "Anno d'esercizio di cui si vuole la stampa" - 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 - -DATE F_DATASTAMPA -BEGIN - PROMPT 2 6 "Data stampa " - HELP "Data in cui viene effettuata la stampa" - FLAGS "A" -END - -RADIOBUTTON F_DECIDI 10 -BEGIN - PROMPT 2 8 "Stampa " - HELP "Criteri di selezione dei movimenti" - ITEM "2|data" - MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@ - ITEM "1|numero" - MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@ -END - -DATE F_DATAINI -BEGIN - PROMPT 19 9 "Stampa mov. dalla data " - HELP "Data da cui iniziare la stampa dei movimenti" - GROUP 1 -END - -DATE F_DATAFIN -BEGIN - PROMPT 55 9 "alla data " - HELP "Data a cui terminare la stampa dei movimenti" - GROUP 1 -END - -NUMBER F_NUMEROINI 7 -BEGIN - PROMPT 19 10 "Stampa mov. dal numero " - HELP "Numero da cui iniziare la stampa dei movimenti" - FLAGS "R" - GROUP 2 -END - -NUMBER F_NUMEROFIN 7 -BEGIN - PROMPT 55 10 "al numero " - HELP "Numero a cui terminare la stampa dei movimenti" - FLAGS "R" - GROUP 2 -END - -BOOLEAN F_STAMPAMOVP -BEGIN - PROMPT 2 12 "Stampa movimenti provvisori " - HELP "Indicare se stampare i movimenti provvisori" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) " -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 "cg3100.h" + +PAGE "" -1 -1 76 19 + + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 2 "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 3 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 2 5 "Anno esercizio " + HELP "Anno d'esercizio di cui si vuole la stampa" + 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 + +DATE F_DATASTAMPA +BEGIN + PROMPT 2 6 "Data stampa " + HELP "Data in cui viene effettuata la stampa" + FLAGS "A" +END + +RADIOBUTTON F_DECIDI 10 +BEGIN + PROMPT 2 8 "Stampa " + HELP "Criteri di selezione dei movimenti" + ITEM "2|data" + MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@ + ITEM "1|numero" + MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@ +END + +DATE F_DATAINI +BEGIN + PROMPT 19 9 "Stampa mov. dalla data " + HELP "Data da cui iniziare la stampa dei movimenti" + GROUP 1 +END + +DATE F_DATAFIN +BEGIN + PROMPT 55 9 "alla data " + HELP "Data a cui terminare la stampa dei movimenti" + GROUP 1 +END + +NUMBER F_NUMEROINI 7 +BEGIN + PROMPT 19 10 "Stampa mov. dal numero " + HELP "Numero da cui iniziare la stampa dei movimenti" + FLAGS "R" + GROUP 2 +END + +NUMBER F_NUMEROFIN 7 +BEGIN + PROMPT 55 10 "al numero " + HELP "Numero a cui terminare la stampa dei movimenti" + FLAGS "R" + GROUP 2 +END + +BOOLEAN F_STAMPAMOVP +BEGIN + PROMPT 2 12 "Stampa movimenti provvisori " + HELP "Indicare se stampare i movimenti provvisori" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) " +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