Messo il titolo
git-svn-id: svn://10.65.10.50/trunk@239 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
0d135ae092
commit
6cee1cf27a
442
cg/cg3100a.uml
442
cg/cg3100a.uml
@ -1,221 +1,221 @@
|
||||
#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 "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
GROUP 3
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
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,1@|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI
|
||||
ITEM "1|Lista movimenti di sola prima nota"
|
||||
MESSAGE HIDE,F_CONTROLLO|HIDE,1@|HIDE,F_REGISTROFIN|HIDE,F_REGISTROINI|HIDE,F_STAMPA
|
||||
END
|
||||
|
||||
|
||||
LIST F_CONTROLLO 23
|
||||
BEGIN
|
||||
PROMPT 2 7 "Controllo movimenti errati "
|
||||
HELP "La scelta 1 stampa solo le registrazioni non errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate"
|
||||
ITEM "3|No" MESSAGE HIDE,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 "
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGATO
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 9 "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 "
|
||||
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
|
||||
PROMPT 19 11 "Stampa mov. dalla data "
|
||||
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 55 11 "alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
PROMPT 19 12 "Stampa mov. dal numero "
|
||||
USE LF_MOV KEY 1
|
||||
INPUT NUMREG F_NUMEROINI
|
||||
DISPLAY "Numero registrazione" NUMREG
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUMEROINI NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
PROMPT 55 12 "al numero "
|
||||
COPY USE F_NUMEROINI
|
||||
INPUT NUMREG F_NUMEROFIN
|
||||
COPY DISPLAY F_NUMEROINI
|
||||
OUTPUT F_NUMEROFIN NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
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 "Introdurre codice 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 "Introdurre codice 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[1,5] ""
|
||||
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 "Introdurre cod. 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[1,5] ""
|
||||
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 "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVP
|
||||
BEGIN
|
||||
PROMPT 2 17 "Stampa 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 "Stampa Lista Movimenti" -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 "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
GROUP 3
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
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,1@|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI
|
||||
ITEM "1|Lista movimenti di sola prima nota"
|
||||
MESSAGE HIDE,F_CONTROLLO|HIDE,1@|HIDE,F_REGISTROFIN|HIDE,F_REGISTROINI|HIDE,F_STAMPA
|
||||
END
|
||||
|
||||
|
||||
LIST F_CONTROLLO 23
|
||||
BEGIN
|
||||
PROMPT 2 7 "Controllo movimenti errati "
|
||||
HELP "La scelta 1 stampa solo le registrazioni non errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate"
|
||||
ITEM "3|No" MESSAGE HIDE,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 "
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGATO
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 9 "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 "
|
||||
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
|
||||
PROMPT 19 11 "Stampa mov. dalla data "
|
||||
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 55 11 "alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
PROMPT 19 12 "Stampa mov. dal numero "
|
||||
USE LF_MOV KEY 1
|
||||
INPUT NUMREG F_NUMEROINI
|
||||
DISPLAY "Numero registrazione" NUMREG
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUMEROINI NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
PROMPT 55 12 "al numero "
|
||||
COPY USE F_NUMEROINI
|
||||
INPUT NUMREG F_NUMEROFIN
|
||||
COPY DISPLAY F_NUMEROINI
|
||||
OUTPUT F_NUMEROFIN NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
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 "Introdurre codice 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 "Introdurre codice 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[1,5] ""
|
||||
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 "Introdurre cod. 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[1,5] ""
|
||||
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 "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVP
|
||||
BEGIN
|
||||
PROMPT 2 17 "Stampa 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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user