campo-sirio/cg/cg1700a.uml

98 lines
1.5 KiB
Plaintext
Raw Normal View History

#include "cg1700.h"
PAGE "Stampa causali" -1 -1 70 10
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 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 1 2 "Ragione sociale "
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 1 4 "Data stampa "
HELP "Data da riportare sui fogli da stampare"
FLAGS "A"
END
STRING F_DACAU 3
BEGIN
PROMPT 1 6 "Da "
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS F_DACAU
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@60" DESCR
OUTPUT F_DACAU CODCAUS
OUTPUT F_DDESCR DESCR
CHECKTYPE SEARCH
END
STRING F_DDESCR 50 43
BEGIN
PROMPT 12 6 "Descrizione "
USE LF_CAUSALI KEY 2
INPUT DESCR F_DDESCR
DISPLAY "Descrizione@60" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_DACAU
CHECKTYPE SEARCH
END
STRING F_ACAU 3
BEGIN
PROMPT 1 7 "A "
FLAGS "UZ"
COPY USE F_DACAU
INPUT CODCAUS F_ACAU
COPY DISPLAY F_DACAU
OUTPUT F_ACAU CODCAUS
OUTPUT F_ADESCR DESCR
CHECKTYPE SEARCH
END
STRING F_ADESCR 50 43
BEGIN
PROMPT 12 7 "Descrizione "
USE LF_CAUSALI KEY 2
INPUT DESCR F_ADESCR
COPY DISPLAY F_DDESCR
COPY OUTPUT F_ACAU
CHECKTYPE SEARCH
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