80 lines
1.1 KiB
Plaintext
80 lines
1.1 KiB
Plaintext
#include "f90300b.h"
|
|
|
|
PAGE "Apri..." -1 -1 78 7
|
|
|
|
GROUPBOX F_IMPADDRGROUP 76 7
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 1 "@BInserire percorso file."
|
|
END
|
|
|
|
STRING F_IMPADDRESS 255 64
|
|
BEGIN
|
|
PROMPT 2 2 "Apri: "
|
|
FSELECT ""
|
|
FLAG "B"
|
|
END
|
|
|
|
NUMBER F_IMPNUMREG 7
|
|
BEGIN
|
|
PROMPT 2 3 "Registrazione"
|
|
USE MOV
|
|
INPUT NUMREG F_IMPNUMREG
|
|
DISPLAY "Numero" NUMREG
|
|
DISPLAY "Data " DATAREG
|
|
DISPLAY "Causale" CODCAUS
|
|
DISPLAY "Num. Doc." NUMDOC
|
|
DISPLAY "N. esteso" NUMDOCEXT
|
|
DISPLAY "Prot. IVA" PROTIVA
|
|
DISPLAY "Descrizione" DESCR
|
|
OUTPUT F_IMPNUMREG NUMREG
|
|
CHECKTYPE NORMAL
|
|
FLAG "U"
|
|
END
|
|
|
|
BOOLEAN F_ISANNESSO
|
|
BEGIN
|
|
PROMPT 2 4 "Annesso"
|
|
END
|
|
|
|
STRING F_CATANNPADRE 10
|
|
BEGIN
|
|
PROMPT 2 5 "Cat.doc. padre"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CATDOCANN 10
|
|
BEGIN
|
|
PROMPT 30 5 "Cat.doc. annesso"
|
|
FLAGS "BD"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Conferma"
|
|
PICTURE TOOL_OK
|
|
END
|
|
|
|
BUTTON DLG_NULL 2 2
|
|
BEGIN
|
|
PROMPT -1 1 ""
|
|
PICTURE 0
|
|
END
|
|
|
|
BUTTON DLG_QUIT 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Esci"
|
|
PICTURE TOOL_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |