Corrtti errori sui registri etc
git-svn-id: svn://10.65.10.50/trunk@784 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
4fae71bdd7
commit
8fdd38d5b3
488
cg/cg3100a.uml
488
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
|
||||
|
||||
326
cg/cg3100b.uml
326
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
|
||||
|
||||
34
cg/cg3400a.h
34
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
|
||||
|
||||
|
||||
280
cg/cg3400a.uml
280
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
|
||||
|
||||
@ -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
|
||||
|
||||
254
cg/cg4400.h
254
cg/cg4400.h
@ -1,127 +1,127 @@
|
||||
//
|
||||
// cg4400.h
|
||||
//
|
||||
#include <isam.h>
|
||||
#include <printapp.h>
|
||||
#include <mask.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <urldefid.h>
|
||||
#include <text.h>
|
||||
#include <mailbox.h>
|
||||
#include <execp.h>
|
||||
#include <sheet.h>
|
||||
#include <config.h>
|
||||
#include <prefix.h>
|
||||
#include <conto.h>
|
||||
#include <nditte.h>
|
||||
#include <anagr.h>
|
||||
#include <comuni.h>
|
||||
#include <unloc.h>
|
||||
#include <mov.h>
|
||||
#include <rmoviva.h>
|
||||
#include <clifo.h>
|
||||
#include <occas.h>
|
||||
#include <causali.h>
|
||||
|
||||
#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 <isam.h>
|
||||
#include <printapp.h>
|
||||
#include <mask.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <urldefid.h>
|
||||
#include <text.h>
|
||||
#include <mailbox.h>
|
||||
#include <execp.h>
|
||||
#include <sheet.h>
|
||||
#include <config.h>
|
||||
#include <prefix.h>
|
||||
#include <conto.h>
|
||||
#include <nditte.h>
|
||||
#include <anagr.h>
|
||||
#include <comuni.h>
|
||||
#include <unloc.h>
|
||||
#include <mov.h>
|
||||
#include <rmoviva.h>
|
||||
#include <clifo.h>
|
||||
#include <occas.h>
|
||||
#include <causali.h>
|
||||
|
||||
#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() {}
|
||||
};
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
58
cg/cg4400a.h
58
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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
540
cg/cg4400a.uml
540
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
|
||||
|
||||
|
||||
4
cg/cg4400b.h
Executable file
4
cg/cg4400b.h
Executable file
@ -0,0 +1,4 @@
|
||||
#define COD_LIB 123
|
||||
#define U_MESE 124
|
||||
#define U_PAGINA 125
|
||||
#define U_DATA 126
|
||||
39
cg/cg4400b.uml
Executable file
39
cg/cg4400b.uml
Executable file
@ -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
|
||||
172
cg/cglib03.h
172
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 <real.h>
|
||||
#endif
|
||||
|
||||
#ifndef __STRINGS_H
|
||||
#include <strings.h>
|
||||
#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 <real.h>
|
||||
#endif
|
||||
|
||||
#ifndef __STRINGS_H
|
||||
#include <strings.h>
|
||||
#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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user