b523cb6b04
Files correlati : pd6342 pd6342a.msk Ricompilazione Demo : [ ] Commento : Corretto DSELECT in PSELECT git-svn-id: svn://10.65.10.50/branches/R_10_00@20939 c028cbd2-c16b-5b4b-a496-9718f37d4682
57 lines
830 B
Plaintext
Executable File
57 lines
830 B
Plaintext
Executable File
#include "pd6342200a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <elabar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" 0 2 0 0
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 9 -12 "Profilo "
|
|
PSELECT
|
|
FLAGS "H"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 90 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bParametri Importazione"
|
|
END
|
|
|
|
STRING F_FILE 255 50
|
|
BEGIN
|
|
PROMPT 2 2 "File "
|
|
FSELECT "*.txt"
|
|
CHECKTYPE REQUIRED
|
|
FIELD ComInPath
|
|
END
|
|
|
|
STRING F_CODCAU 4
|
|
BEGIN
|
|
PROMPT 2 3 "Cod. cau. "
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CODCAU
|
|
DISPLAY "Codice " CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODCAU CODCAUS
|
|
OUTPUT F_DESCAU DESCR
|
|
CHECKTYPE REQUIRED
|
|
FIELD CodCau
|
|
END
|
|
|
|
STRING F_DESCAU 50
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR F_DESCAU
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice " CODCAUS
|
|
COPY OUTPUT F_CODCAU
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |