177 lines
3.6 KiB
Plaintext
Executable File
177 lines
3.6 KiB
Plaintext
Executable File
// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
|
|
#include "ef0300.h"
|
|
|
|
TOOLBAR "" 0 19 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Distinta" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 78 11
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
LIST F_TIPODIST 17
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Distinta "
|
|
KEY 4
|
|
FIELD LF_EFFETTI->TIPODIST
|
|
ITEM "I|All'incasso"
|
|
ITEM "B|Salvo buon fine"
|
|
ITEM "S|Allo sconto"
|
|
END
|
|
|
|
LIST F_NUMBERRIGA 12
|
|
BEGIN
|
|
PROMPT 1 60 "Numero Riga Distinta "
|
|
KEY 4
|
|
FIELD LF_EFFETTI->NRIGADIST
|
|
ITEM "1|PRIMA RIGA"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMBER 7
|
|
BEGIN
|
|
PROMPT 48 1 "Numero Distinta "
|
|
FIELD LF_EFFETTI->NDIST
|
|
FLAGS "R"
|
|
KEY 4
|
|
USE LF_EFFETTI KEY 4 SELECT NRIGADIST = 1
|
|
INPUT NDIST F_NUMBER
|
|
INPUT TIPODIST F_TIPODIST
|
|
INPUT NRIGADIST F_NUMBERRIGA
|
|
DISPLAY "Nr. distinta" NDIST
|
|
DISPLAY "Tipo distinta" TIPODIST
|
|
OUTPUT F_NUMBER NDIST
|
|
OUTPUT F_TIPODIST TIPODIST
|
|
OUTPUT F_NUMBERRIGA NRIGADIST
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data Distinta "
|
|
FIELD LF_EFFETTI->DATADIST
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 3 "Banca di Presentazione "
|
|
END
|
|
|
|
STRING F_DENBANP 50
|
|
BEGIN
|
|
PROMPT 26 3 ""
|
|
FLAGS "U"
|
|
USE %BAN KEY 2
|
|
INPUT S0 F_DENBANP
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
OUTPUT F_DENBANP S0
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
END
|
|
|
|
NUMBER F_CODABIP 5 0
|
|
BEGIN
|
|
PROMPT 15 4 "Codice ABI "
|
|
FIELD LF_EFFETTI->CODABIP
|
|
FLAGS "RZ"
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
|
INPUT CODTAB F_CODABIP
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
OUTPUT F_DENBANP S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice ABI assente"
|
|
END
|
|
|
|
NUMBER F_CODCABP 5 0
|
|
BEGIN
|
|
PROMPT 15 5 "Codice CAB "
|
|
FIELD LF_EFFETTI->CODCABP
|
|
FLAGS "RZ"
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
|
INPUT CODTAB[1,5] F_CODABIP
|
|
INPUT CODTAB[6,10] F_CODCABP
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE REQIF_FUNC 1 F_CODCABP
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
NUMBER F_TOTIMP 18 2
|
|
BEGIN
|
|
PROMPT 2 6 "Valore di presentazione "
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
NUMBER F_IMP 18 2
|
|
BEGIN
|
|
PROMPT 2 7 "Importo Distinta "
|
|
PICTURE "###.###.###.###,@@"
|
|
NUM_EXPR #F_IMP>=#F_TOTIMP
|
|
WARNING "Il valore di presentazione non puo' superare l'importo della distinta"
|
|
END
|
|
|
|
NUMBER F_TOTIMPVAL 18 3
|
|
BEGIN
|
|
PROMPT 2 8 "Valore di pres. in val. "
|
|
PICTURE "###.###.###.###,@@@"
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 48 8 "Codice Valuta "
|
|
FLAGS "UZ"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Nome@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
END
|
|
|
|
LIST F_TIPOPAG 24
|
|
BEGIN
|
|
PROMPT 2 9 "Tipo Effetto "
|
|
FIELD LF_EFFETTI->TIPOPAG
|
|
ITEM "0| "
|
|
ITEM "2|Effetto cambiario"
|
|
ITEM "3|Ricevuta Bancaria"
|
|
ITEM "4|Cessione"
|
|
ITEM "5|Effetto cambiario"
|
|
ITEM "6|Lettera di credito"
|
|
ITEM "7|Effetto cambiario"
|
|
ITEM "8|Rapporti interb.diretti"
|
|
ITEM "9|Bonifici"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_RIBA 78 6
|
|
BEGIN
|
|
PROMPT 1 12 "RIGHE DISTINTA"
|
|
ITEM ""
|
|
ITEM "Nr. Ri.Ba."
|
|
ITEM "Scadenza"
|
|
ITEM "Cliente@50"
|
|
ITEM "Nr. Fattura"
|
|
ITEM "Data Fattura"
|
|
ITEM "Nr. Rata"
|
|
ITEM "Valuta"
|
|
ITEM "Importo"
|
|
ITEM "Importo Val."
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
#include "ef0300b.uml"
|
|
|