campo-sirio/crpa/crpa1a.uml

85 lines
1.3 KiB
Plaintext
Raw Normal View History

#include "crpa1a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
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