77 lines
1.2 KiB
Plaintext
77 lines
1.2 KiB
Plaintext
|
#include "ps1001200a.h"
|
||
|
|
||
|
TOOLBAR "" 0 0 0 2
|
||
|
|
||
|
#include <stdbar.h>
|
||
|
|
||
|
ENDPAGE
|
||
|
|
||
|
PAGE "Parametri Importazione" -1 -1 78 20
|
||
|
|
||
|
GROUPBOX DLG_NULL 78 4
|
||
|
BEGIN
|
||
|
PROMPT 1 1 ""
|
||
|
END
|
||
|
|
||
|
STRING F_PATH 255 40
|
||
|
BEGIN
|
||
|
PROMPT 2 2 "Percorso files da importare "
|
||
|
DSELECT
|
||
|
FLAGS "M"
|
||
|
CHECKTYPE REQUIRED
|
||
|
WARNING "Selezionare una cartella valida!"
|
||
|
FIELD PATH
|
||
|
END
|
||
|
|
||
|
STRING F_NAMEFILE 40
|
||
|
BEGIN
|
||
|
PROMPT 2 3 "Nome file da importare "
|
||
|
FLAGS "B"
|
||
|
CHECKTYPE REQUIRED
|
||
|
FIELD NAMEFILE
|
||
|
END
|
||
|
|
||
|
STRING F_LASTFILE 40
|
||
|
BEGIN
|
||
|
PROMPT 1 5 "Ultimo file importato "
|
||
|
FLAGS "D"
|
||
|
END
|
||
|
|
||
|
STRING F_COD_CAUS 3
|
||
|
BEGIN
|
||
|
PROMPT 1 7 "Causale "
|
||
|
FLAGS "UZ"
|
||
|
USE LF_CAUSALI
|
||
|
INPUT CODCAUS F_COD_CAUS
|
||
|
DISPLAY "Cod." CODCAUS
|
||
|
DISPLAY "Descrizione@50" DESCR
|
||
|
OUTPUT F_COD_CAUS CODCAUS
|
||
|
OUTPUT F_DESCR_CAUS DESCR
|
||
|
CHECKTYPE REQUIRED
|
||
|
END
|
||
|
|
||
|
STRING F_DESCR_CAUS 50 40
|
||
|
BEGIN
|
||
|
PROMPT 20 7 "Descriz."
|
||
|
USE LF_CAUSALI KEY 2
|
||
|
INPUT DESCR F_DESCR_CAUS
|
||
|
DISPLAY "Descrizione @50" DESCR
|
||
|
DISPLAY "Cod." CODCAUS
|
||
|
COPY OUTPUT F_COD_CAUS
|
||
|
END
|
||
|
|
||
|
RADIOBUTTON F_CRPA_DIN 1 27
|
||
|
BEGIN
|
||
|
PROMPT 1 9 "Tipologia del secondo campo"
|
||
|
ITEM "C|Fase (CRPA)"
|
||
|
ITEM "S|Sede (DINAMICA)"
|
||
|
END
|
||
|
|
||
|
BOOLEAN F_KILLOLD
|
||
|
BEGIN
|
||
|
PROMPT 1 13 "Elimina tutti i movimenti ed i saldi preventivi esistenti"
|
||
|
END
|
||
|
|
||
|
ENDPAGE
|
||
|
ENDMASK
|