82 lines
1.3 KiB
Plaintext
Executable File
82 lines
1.3 KiB
Plaintext
Executable File
#include "ef0100.h"
|
|
|
|
PAGE "Righe Effetto" -1 -1 76 13
|
|
|
|
NUMBER F_IMPFATT 18 2
|
|
BEGIN
|
|
PROMPT 2 1 "Importo fattura "
|
|
END
|
|
|
|
NUMBER F_IMPEFF 18 2
|
|
BEGIN
|
|
PROMPT 2 2 "Importo effett. "
|
|
NUM_EXPR #F_IMPFATT>=#F_IMPEFF
|
|
WARNING "L'importo dell'effetto non puo' superare l'importo della fattura"
|
|
END
|
|
|
|
NUMBER F_IMPFATTVAL 18 3
|
|
BEGIN
|
|
PROMPT 2 3 "Imp. fatt. val "
|
|
END
|
|
|
|
NUMBER F_IMPEFFVAL 18 3
|
|
BEGIN
|
|
PROMPT 2 4 "Imp. effet. val "
|
|
NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL
|
|
WARNING "L'importo dell'effetto in valuta non puo' superare l'importo della fattura in valuta"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 5 "Anno partita "
|
|
END
|
|
|
|
STRING F_NUMPART 7
|
|
BEGIN
|
|
PROMPT 2 6 "Nr. partita "
|
|
FLAG "R"
|
|
END
|
|
|
|
NUMBER F_NUMRIGA 4
|
|
BEGIN
|
|
PROMPT 2 7 "Nr. riga "
|
|
END
|
|
|
|
NUMBER F_NUMRATA 3
|
|
BEGIN
|
|
PROMPT 2 8 "Nr. rata "
|
|
END
|
|
|
|
STRING F_NUMFATT 7
|
|
BEGIN
|
|
PROMPT 2 9 "Nr. fattura "
|
|
FLAG "R"
|
|
END
|
|
|
|
DATA F_DATAFATT
|
|
BEGIN
|
|
PROMPT 2 10 "Data fattura "
|
|
FLAG "R"
|
|
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
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|