129 lines
2.2 KiB
Plaintext
Executable File
129 lines
2.2 KiB
Plaintext
Executable File
// DEFINIZIONE MASCHERA, DELLO SHEET DELLE RIGHE EFFETTO, PER LA GESTIONE EFFETTI
|
|
#include "ef0100.h"
|
|
|
|
PAGE "Righe Effetto" -1 -1 76 16
|
|
|
|
NUMBER F_IMPEFF 14 2
|
|
BEGIN
|
|
PROMPT 2 1 "Importo effetto "
|
|
PICTURE "###.###.###,@@"
|
|
// NUM_EXPR #F_IMPFATT>=#F_IMPEFF
|
|
// WARNING "L'importo dell'effetto non puo' superare l'importo della fattura"
|
|
END
|
|
|
|
NUMBER F_IMPEFFVAL 15 3
|
|
BEGIN
|
|
PROMPT 2 2 "Imp.effetto val. "
|
|
PICTURE "###.###.###,@@@"
|
|
// NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL
|
|
// WARNING "L'importo dell'effetto in valuta non puo' superare l'importo della fattura in valuta"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 3 "Codice numeraz. "
|
|
FIELD LF_REFFETTI->CODNUM
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DI "Codice" CODTAB
|
|
DI "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAG "UA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
LIST F_PROVV 13
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo numerazione "
|
|
FIELD LF_REFFETTI->PROVV
|
|
ITEM "D|Definitiva"
|
|
ITEM "P|Provvisoria"
|
|
END
|
|
|
|
NUMBER F_ANNODOC 4
|
|
BEGIN
|
|
PROMPT 2 5 "Anno documento "
|
|
FIELD LF_REFFETTI->ANNODOC
|
|
END
|
|
|
|
NUMBER F_NUMFATT 6
|
|
BEGIN
|
|
PROMPT 2 6 "Nr. fattura "
|
|
FLAG "R"
|
|
USE LF_DOC
|
|
INPUT ANNO F_ANNODOC SELECT
|
|
INPUT PROVV F_PROVV SELECT
|
|
INPUT CODNUM F_CODNUM SELECT
|
|
INPUT NDOC F_NUMFATT
|
|
DISPLAY "Num." CODNUM
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Provv" PROVV
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "N.Doc. " NDOC
|
|
OUTPUT F_ANNODOC ANNO
|
|
OUTPUT F_PROVV PROVV
|
|
OUTPUT F_CODNUM CODNUM
|
|
OUTPUT F_NUMFATT NDOC
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
DATA F_DATAFATT
|
|
BEGIN
|
|
PROMPT 2 7 "Data fattura "
|
|
END
|
|
|
|
NUMBER F_IMPFATT 20 2
|
|
BEGIN
|
|
PROMPT 2 8 "Importo fattura "
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
NUMBER F_IMPFATTVAL 20 3
|
|
BEGIN
|
|
PROMPT 2 9 "Imp. fatt. val "
|
|
PICTURE "###.###.###.###,@@@"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 10 "Anno partita "
|
|
END
|
|
|
|
STRING F_NUMPART 7
|
|
BEGIN
|
|
PROMPT 2 11 "Nr. partita "
|
|
FLAG "R"
|
|
END
|
|
|
|
NUMBER F_NUMRIGA 4
|
|
BEGIN
|
|
PROMPT 2 12 "Nr. riga "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMRATA 3
|
|
BEGIN
|
|
PROMPT 2 13 "Nr. rata "
|
|
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
|