campo-sirio/cg/cgp0100a.uml
angelo 2b5d18484a Aggiunto FLAG automagic per settaggio automatico dell'anno.
git-svn-id: svn://10.65.10.50/trunk@4300 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-04-29 09:01:28 +00:00

93 lines
1.2 KiB
Plaintext
Executable File

#include "cgp0100a.h"
PAGE "Liquidazione riepilogativa IVA" -1 -1 78 14
LIST F_MESE 15
BEGIN
PROMPT 2 1 "Periodo "
ITEM "13|Annuale"
FLAGS "AM"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 35 1 "Anno "
FLAGS "A"
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 2 3 "Ditta ricevente"
END
NUMBER F_RCVFIRM 5
BEGIN
PROMPT 3 4 "Codice "
USE LF_NDITTE
INPUT CODDITTA F_RCVFIRM
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_RCVFIRM CODDITTA
OUTPUT F_DESRCVFIRM RAGSOC
CHECKTYPE REQUIRED
END
STRING F_DESRCVFIRM 50
BEGIN
PROMPT 22 4 ""
USE LF_NDITTE KEY 2
INPUT RAGSOC F_DESRCVFIRM
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA
COPY OUTPUT F_RCVFIRM
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 40 5
BEGIN
PROMPT 2 6 "Ditte invianti"
END
NUMBER F_DFR 5
BEGIN
PROMPT 3 7 "Da codice "
FLAGS "B"
END
NUMBER F_DTO 5
BEGIN
PROMPT 3 8 "A codice "
FLAGS "B"
END
STRING F_SELECTED 5
BEGIN
PROMPT 3 9 "Scelte n. "
FLAGS "DR"
END
BUTTON FBUT_SELECT 10 2
BEGIN
PROMPT 25 7 "~Selezione"
PICTURE BMP_SELECT
END
BUTTON FBUT_RESET 10
BEGIN
PROMPT 25 9 "A~zzera"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK