campo-sirio/ps/ps0398100a.uml
luca 688834891d Patch level :
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@20434 c028cbd2-c16b-5b4b-a496-9718f37d4682
2010-05-06 13:39:04 +00:00

99 lines
1.6 KiB
Plaintext
Executable File

#include "ps0398100a.h"
PAGE "Trasferimento Ordini Web->Campo" -1 -1 78 10
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 1 "@bPath"
END
STRING F_PATH_SRC 255 50
BEGIN
PROMPT 2 2 "Cartella origine "
DSELECT
FLAGS "M"
CHECKTYPE REQUIRED
WARNING "Selezionare una cartella valida!"
END
STRING F_PATH_DST 255 50
BEGIN
PROMPT 2 3 "Cartella destinazione "
DSELECT
FLAGS "M"
CHECKTYPE REQUIRED
WARNING "Selezionare una cartella valida!"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 5 "@bParametri documenti da generare"
END
STRING F_CODNUM 4
BEGIN
PROMPT 2 6 "Numerazione "
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESNUM S0
CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM 50
BEGIN
PROMPT 24 6 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM
END
STRING F_TIPODOC 4
BEGIN
PROMPT 2 7 "Tipo "
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
OUTPUT F_DESTIPODOC S0
CHECKTYPE REQUIRED
FLAG "UP"
END
STRING F_DESTIPODOC 50
BEGIN
PROMPT 24 7 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC
END
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 -1 "Profilo "
PSELECT
END
ENDPAGE
TOOLBAR "" 0 0 0 2
#include <elabar.h>
ENDPAGE
ENDMASK