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"
|
#include "cg3100.h"
|
||||||
|
|
||||||
PAGE "" -1 -1 76 20
|
PAGE "Stampa Lista Movimenti" -1 -1 76 20
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Ditta "
|
PROMPT 2 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 2 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 1 "Data stampa "
|
PROMPT 48 1 "Data stampa "
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 3
|
GROUP 3
|
||||||
PROMPT 2 3 "Anno esercizio "
|
PROMPT 2 3 "Anno esercizio "
|
||||||
USE ESC
|
USE ESC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Anno" CODTAB
|
DISPLAY "Anno" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_MOVIMENTI 38
|
RADIOBUTTON F_MOVIMENTI 38
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 3 "Scelta stampa "
|
PROMPT 30 3 "Scelta stampa "
|
||||||
HELP "Indicare il tipo di stampa"
|
HELP "Indicare il tipo di stampa"
|
||||||
ITEM "0|Lista movimenti"
|
ITEM "0|Lista movimenti"
|
||||||
MESSAGE SHOW,F_CONTROLLO|SHOW,1@|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI
|
MESSAGE SHOW,F_CONTROLLO|SHOW,1@|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI
|
||||||
ITEM "1|Lista movimenti di sola prima nota"
|
ITEM "1|Lista movimenti di sola prima nota"
|
||||||
MESSAGE HIDE,F_CONTROLLO|HIDE,1@|HIDE,F_REGISTROFIN|HIDE,F_REGISTROINI|HIDE,F_STAMPA
|
MESSAGE HIDE,F_CONTROLLO|HIDE,1@|HIDE,F_REGISTROFIN|HIDE,F_REGISTROINI|HIDE,F_STAMPA
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
LIST F_CONTROLLO 23
|
LIST F_CONTROLLO 23
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Controllo movimenti errati "
|
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"
|
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 "3|No" MESSAGE HIDE,1@
|
||||||
ITEM "2|Si" MESSAGE SHOW,1@
|
ITEM "2|Si" MESSAGE SHOW,1@
|
||||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 2 8 "Stampa messaggi : "
|
PROMPT 2 8 "Stampa messaggi : "
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ANNOC
|
BOOLEAN F_ANNOC
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 20 8 "anno di competenza "
|
PROMPT 20 8 "anno di competenza "
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ALLEGATO
|
BOOLEAN F_ALLEGATO
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 20 9 "allegato iva "
|
PROMPT 20 9 "allegato iva "
|
||||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||||
MESSAGE FALSE ENABLE,F_STAMPA
|
MESSAGE FALSE ENABLE,F_STAMPA
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_DECIDI 10
|
RADIOBUTTON F_DECIDI 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Stampa "
|
PROMPT 2 10 "Stampa "
|
||||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 11 "Stampa mov. dalla data "
|
PROMPT 19 11 "Stampa mov. dalla data "
|
||||||
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
|
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAFIN
|
DATE F_DATAFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 11 "alla data "
|
PROMPT 55 11 "alla data "
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEROINI 7
|
NUMBER F_NUMEROINI 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 12 "Stampa mov. dal numero "
|
PROMPT 19 12 "Stampa mov. dal numero "
|
||||||
USE LF_MOV KEY 1
|
USE LF_MOV KEY 1
|
||||||
INPUT NUMREG F_NUMEROINI
|
INPUT NUMREG F_NUMEROINI
|
||||||
DISPLAY "Numero registrazione" NUMREG
|
DISPLAY "Numero registrazione" NUMREG
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_NUMEROINI NUMREG
|
OUTPUT F_NUMEROINI NUMREG
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEROFIN 7
|
NUMBER F_NUMEROFIN 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 12 "al numero "
|
PROMPT 55 12 "al numero "
|
||||||
COPY USE F_NUMEROINI
|
COPY USE F_NUMEROINI
|
||||||
INPUT NUMREG F_NUMEROFIN
|
INPUT NUMREG F_NUMEROFIN
|
||||||
COPY DISPLAY F_NUMEROINI
|
COPY DISPLAY F_NUMEROINI
|
||||||
OUTPUT F_NUMEROFIN NUMREG
|
OUTPUT F_NUMEROFIN NUMREG
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAUSALEINI 3
|
STRING F_CAUSALEINI 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Stampa dalla causale "
|
PROMPT 2 14 "Stampa dalla causale "
|
||||||
USE LF_CAUSALI KEY 1
|
USE LF_CAUSALI KEY 1
|
||||||
INPUT CODCAUS F_CAUSALEINI
|
INPUT CODCAUS F_CAUSALEINI
|
||||||
DISPLAY "Codice causale" CODCAUS
|
DISPLAY "Codice causale" CODCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_CAUSALEINI CODCAUS
|
OUTPUT F_CAUSALEINI CODCAUS
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
HELP "Introdurre codice causale di inizio stampa: vuoto = inizio archivio"
|
HELP "Introdurre codice causale di inizio stampa: vuoto = inizio archivio"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAUSALEFIN 3
|
STRING F_CAUSALEFIN 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 14 "alla causale "
|
PROMPT 40 14 "alla causale "
|
||||||
COPY USE F_CAUSALEINI
|
COPY USE F_CAUSALEINI
|
||||||
INPUT CODCAUS F_CAUSALEFIN
|
INPUT CODCAUS F_CAUSALEFIN
|
||||||
DISPLAY "Codice causale" CODCAUS
|
DISPLAY "Codice causale" CODCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_CAUSALEFIN CODCAUS
|
OUTPUT F_CAUSALEFIN CODCAUS
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
HELP "Introdurre codice causale di fine stampa: vuoto = fine archivio"
|
HELP "Introdurre codice causale di fine stampa: vuoto = fine archivio"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_REGISTROINI 3
|
STRING F_REGISTROINI 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Stampa dal registro iva "
|
PROMPT 2 15 "Stampa dal registro iva "
|
||||||
USE REG SELECT I0<"3"
|
USE REG SELECT I0<"3"
|
||||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||||
//INPUT CODTAB[1,5] ""
|
//INPUT CODTAB[1,5] ""
|
||||||
INPUT CODTAB[5,7] F_REGISTROINI
|
INPUT CODTAB[5,7] F_REGISTROINI
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
//CHECKTYPE NORMAL
|
//CHECKTYPE NORMAL
|
||||||
HELP "Introdurre cod. registro iva di inizio stampa: vuoto = inizio archivio"
|
HELP "Introdurre cod. registro iva di inizio stampa: vuoto = inizio archivio"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_REGISTROFIN 3
|
STRING F_REGISTROFIN 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 15 "al reg. iva "
|
PROMPT 40 15 "al reg. iva "
|
||||||
COPY USE F_REGISTROINI
|
COPY USE F_REGISTROINI
|
||||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||||
//INPUT CODTAB[1,5] ""
|
//INPUT CODTAB[1,5] ""
|
||||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
//CHECKTYPE NORMAL
|
//CHECKTYPE NORMAL
|
||||||
HELP "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio"
|
HELP "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA
|
BOOLEAN F_STAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPAMOVP
|
BOOLEAN F_STAMPAMOVP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 "Stampa movimenti provvisori "
|
PROMPT 2 17 "Stampa movimenti provvisori "
|
||||||
END
|
END
|
||||||
|
|
||||||
/*
|
/*
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data"
|
PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data"
|
||||||
END
|
END
|
||||||
*/
|
*/
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
BUTTON DLG_OK 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 9 2
|
BUTTON DLG_QUIT 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user