75 lines
952 B
Plaintext
Executable File
75 lines
952 B
Plaintext
Executable File
#include "cg6900a.h"
|
|
|
|
PAGE "Invio contabilita'" -1 -1 78 15
|
|
|
|
NUMBER F_DITTAINV 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice ditta inviante "
|
|
FLAGS "ZG"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMULINV 3
|
|
BEGIN
|
|
PROMPT 2 4 "Numero ultimo invio "
|
|
FLAGS "RG"
|
|
END
|
|
|
|
DATE F_DATAULIN
|
|
BEGIN
|
|
PROMPT 45 4 "Data ultimo invio "
|
|
END
|
|
|
|
STRING F_STATO 1
|
|
BEGIN
|
|
PROMPT 2 6 "Stato ultimo "
|
|
END
|
|
|
|
STRING F_USELAB 1
|
|
BEGIN
|
|
PROMPT 19 6 ""
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 7 "invio "
|
|
END
|
|
|
|
STRING F_CHIAVE 60
|
|
BEGIN
|
|
PROMPT 15 7 ""
|
|
END
|
|
|
|
DATE F_DATALIM
|
|
BEGIN
|
|
PROMPT 2 9 "Data limite invio "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_DITTAAS 4
|
|
BEGIN
|
|
PROMPT 2 11 "Ditta da inviare a sistema "
|
|
FLAGS "H"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|