95 lines
1.4 KiB
Plaintext
Executable File
95 lines
1.4 KiB
Plaintext
Executable File
#include "ef0300.h"
|
|
|
|
PAGE "Righe Distinta" 16 7 78 13
|
|
|
|
LISTBOX F_CHECK 5
|
|
BEGIN
|
|
PROMPT 2 1 "Selezionato "
|
|
ITEM " |FALSE"
|
|
ITEM "X|TRUE"
|
|
END
|
|
|
|
NUMBER F_NRIBA 7
|
|
BEGIN
|
|
PROMPT 2 2 "Numero RiBa "
|
|
FIELD LF_EFFETTI->NPROGTR
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATA F_SCAD
|
|
BEGIN
|
|
PROMPT 2 3 "Scadenza "
|
|
FIELD LF_EFFETTI->DATASCAD
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CLIENTE 50 40
|
|
BEGIN
|
|
PROMPT 2 4 "Cliente "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_NFATT 7
|
|
BEGIN
|
|
PROMPT 2 5 "Numero Fatt. "
|
|
FIELD LF_REFFETTI->NFATT
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATA F_DATAFATT
|
|
BEGIN
|
|
PROMPT 2 6 "Data Fattura "
|
|
FIELD LF_REFFETTI->DATAFATT
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NRATA 3
|
|
BEGIN
|
|
PROMPT 2 7 "Numero Rata "
|
|
FIELD LF_REFFETTI->NRATA
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_VALUTA 3
|
|
BEGIN
|
|
PROMPT 2 8 "Valuta "
|
|
FIELD LF_EFFETTI->CODVAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IMPORTO 18 2
|
|
BEGIN
|
|
PROMPT 2 9 "Importo "
|
|
FIELD LF_EFFETTI->IMPORTO
|
|
PICTURE "###.###.###.###,@@"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IMPORTOVAL 18 3
|
|
BEGIN
|
|
PROMPT 2 9 "Importo Val. "
|
|
FIELD LF_EFFETTI->IMPORTOVAL
|
|
PICTURE "###.###.###.###,@@@"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
MESSAGE EXIT, K_DEL
|
|
FLAGS "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|