cd9f622862
Files correlati : Ricompilazione Demo : [ ] Commento :ammodernate maschere git-svn-id: svn://10.65.10.50/trunk@18327 c028cbd2-c16b-5b4b-a496-9718f37d4682
82 lines
1.1 KiB
Plaintext
Executable File
82 lines
1.1 KiB
Plaintext
Executable File
#include "cg6400.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ricezione archivi" 0 2 0 0
|
|
|
|
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
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|