86 lines
1.2 KiB
Plaintext
Executable File
86 lines
1.2 KiB
Plaintext
Executable File
#include "cg6400.h"
|
|
|
|
PAGE "" -1 -1 70 15
|
|
|
|
STRING F_NOMEID 10
|
|
BEGIN
|
|
PROMPT 1 1 "Nome simbolico sistema inviante "
|
|
FLAGS "ZD"
|
|
END
|
|
|
|
NUMBER F_CODDITTAINV 5
|
|
BEGIN
|
|
PROMPT 1 2 "Codice ditta inviante "
|
|
FLAGS "ZD"
|
|
END
|
|
|
|
NUMBER F_CODDITTARIC 5
|
|
BEGIN
|
|
PROMPT 1 4 "Ditta ricevente "
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTARIC
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
FLAGS "RDZ"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 5 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 27 7 "Presente su dischetto"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 51 7 "Ultimo intrapreso"
|
|
END
|
|
|
|
NUMBER F_NULTRASDSK 3
|
|
BEGIN
|
|
PROMPT 1 8 "Numero invio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NULTRASTAB 3
|
|
BEGIN
|
|
PROMPT 51 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATAULTRASDSK
|
|
BEGIN
|
|
PROMPT 1 9 "Data limite trasferimento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATAULTRASTAB
|
|
BEGIN
|
|
PROMPT 51 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_STATO 14
|
|
BEGIN
|
|
PROMPT 1 10 "Stato del trasferimento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|