Alessandro Bonazzi
e01757f2d0
Files correlati : ef0.exe ef0100a.msk eftbman.msk Commento : Supporto per gli IBAN esteri negli effetti
638 lines
11 KiB
Plaintext
Executable File
638 lines
11 KiB
Plaintext
Executable File
#include "ef0100.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Testata/Righe" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
LIST F_TIPOCF 1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Effetto "
|
|
ITEM "C|Attivo"
|
|
MESSAGE SHOW,8@|HIDE,9@
|
|
ITEM "F|Passivo"
|
|
MESSAGE HIDE,8@|SHOW,9@
|
|
FIELD TIPOCF
|
|
END
|
|
|
|
NUMBER F_NPROGTR 7
|
|
BEGIN
|
|
PROMPT 30 1 "Numero "
|
|
FIELD NPROGTR
|
|
KEY 1
|
|
USE LF_EFFETTI
|
|
// SELECT (TIPOCF=#F_TIPOCF)&&(BETWEEN(CODCF,#F_CODCF,#F_CODCF))
|
|
JOIN LF_CLIFO INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
INPUT NPROGTR F_NPROGTR
|
|
DISPLAY "Nr.progr." NPROGTR
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Cod.cliente\nfornitore@11" CODCF
|
|
DISPLAY "Data\nscadenza@10" DATASCAD
|
|
DISPLAY "Tipo\ndistinta@9" TIPODIST
|
|
DISPLAY "Nr.\ndistinta@9" NDIST
|
|
DISPLAY "Importo@20V" IMPORTO
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_NPROGTR NPROGTR
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,10@
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente"
|
|
GROUP 8
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "Fornitore"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 10 2 ""
|
|
FIELD CODCF
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_CFRAGSOC RAGSOC
|
|
OUTPUT F_CODABI CODABI
|
|
OUTPUT F_CODCAB CODCAB
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1
|
|
MESSAGE COPY,11@
|
|
END
|
|
|
|
STRING F_CFRAGSOC 50
|
|
BEGIN
|
|
PROMPT 23 2 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_CFRAGSOC
|
|
DISPLAY "Ragione sociale@60" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1
|
|
MESSAGE COPY,12@
|
|
END
|
|
|
|
DATE F_DATASCAD
|
|
BEGIN
|
|
PROMPT 1 3 "Scadenza "
|
|
FIELD DATASCAD
|
|
KEY 3
|
|
USE LF_EFFETTI KEY 3 SELECT (TIPOCF=#F_TIPOCF)&&(BETWEEN(CODCF, #F_CODCF, #F_CODCF))
|
|
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT DATASCAD F_DATASCAD
|
|
INPUT NPROGTR F_NPROGTR
|
|
DISPLAY "Data scadenza" DATASCAD
|
|
DISPLAY "Nr. progressivo" NPROGTR
|
|
DISPLAY "Codice cliente" CODCF
|
|
DISPLAY "Nr. distinta" NDIST
|
|
DISPLAY "Tipo distinta" TIPODIST
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
COPY OUTPUT F_NPROGTR
|
|
OUTPUT F_DATASCAD DATASCAD
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,13@
|
|
END
|
|
|
|
LIST F_TIPOPAG 24
|
|
BEGIN
|
|
PROMPT 1 5 "Tipo pagamento "
|
|
FIELD TIPOPAG
|
|
ITEM "2|Tratta"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
ITEM "3|Ricevuta Bancaria"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
ITEM "4|Cessione"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
ITEM "5|Paghero'"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
ITEM "6|Lettera di credito"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
ITEM "7|Tratta accettata"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
ITEM "8|Rapporti interb. diretti"
|
|
MESSAGE ENABLE,F_MANDATO
|
|
ITEM "9|Bonifico"
|
|
MESSAGE DISABLE,F_MANDATO
|
|
END
|
|
|
|
STRING F_ULTCLASS 1
|
|
BEGIN
|
|
PROMPT 46 5 "Ulteriore classificazione "
|
|
FIELD ULTCLASS
|
|
USE %CLR
|
|
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
|
INPUT CODTAB[2,2] F_ULTCLASS
|
|
DISPLAY "Classificazione" CODTAB[2,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ULTCLASS CODTAB[2,2]
|
|
END
|
|
|
|
STRING F_MANDATO 35
|
|
BEGIN
|
|
PROMPT 1 6 "Mandato R.I.D. "
|
|
USE &EFMAN SELECT I0=#F_CODCF
|
|
INPUT CODTAB F_MANDATO
|
|
DISPLAY "Codice@35" CODTAB
|
|
DISPLAY "Data@10" D0
|
|
DISPLAY "IBAN@34" S1
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_MANDATO CODTAB
|
|
OUTPUT F_IBAN S1
|
|
CHECTYPE REQUIRED
|
|
FIELD MANDATO
|
|
ADD RUN ef0 -1 &EFMAN
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 1 7 "Codice valuta "
|
|
FIELD CODVAL
|
|
FLAGS "UZ"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Nome@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
OUTPUT F_CAMBIO S4
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATA F_DATACAM
|
|
BEGIN
|
|
PROMPT 46 7 "Data cambio "
|
|
FIELD DATACAMBIO
|
|
FLAGS "R"
|
|
USE CAM
|
|
INPUT CODTAB[1,3] F_CODVAL SELECT
|
|
INPUT CODTAB[4,11] F_DATACAM
|
|
DISPLAY "Valuta@9" CODTAB[1,3]
|
|
DISPLAY "Data@12" D0
|
|
DISPLAY "Cambio@19" S4
|
|
OUTPUT F_DATACAM D0
|
|
OUTPUT F_CAMBIO S4
|
|
CHECKTYPE SEARCH
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CAMBIO 15 6
|
|
BEGIN
|
|
PROMPT 1 8 "Cambio "
|
|
FIELD CAMBIO
|
|
FLAGS "RU"
|
|
PICTURE ".6"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "E' stata specificata una valuta senza il cambio relativo"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_ULTRATA
|
|
BEGIN
|
|
PROMPT 56 8 "Ultima rata"
|
|
FIELD ULTRATA
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_RIGHE 0 -2
|
|
BEGIN
|
|
PROMPT 1 9 "Righe effetto"
|
|
ITEM "Importo effetto@18"
|
|
ITEM "Imp.effetto val.@18"
|
|
ITEM "Cod.numerazione"
|
|
ITEM "Numerazione"
|
|
ITEM "Anno fattura"
|
|
ITEM "Nr. fattura"
|
|
ITEM "Data fattura"
|
|
ITEM "Importo fatt.@20"
|
|
ITEM "Imp.fatt.val.@20"
|
|
ITEM "Anno partita"
|
|
ITEM "Nr. partita"
|
|
ITEM "Nr. riga"
|
|
ITEM "Nr. rata"
|
|
ITEM "A/S"
|
|
END
|
|
|
|
CURRENCY F_TOTIMP 18
|
|
BEGIN
|
|
PROMPT 1 -1 "Totale importi "
|
|
FIELD IMPORTO
|
|
FLAG "D"
|
|
END
|
|
|
|
CURRENCY F_TOTIMPVAL 18
|
|
BEGIN
|
|
PROMPT 41 -1 "Totale in valuta "
|
|
DRIVENBY F_CODVAL
|
|
FIELD IMPORTOVAL
|
|
FLAG "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMBER DLG_NULL 7
|
|
BEGIN
|
|
PROMPT 1 1 "Numero "
|
|
FLAGS "RD"
|
|
GROUP 10
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente"
|
|
GROUP 8
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "Fornitore"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER DLG_NULL 6
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
FLAGS "RD"
|
|
GROUP 11
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 26 2 ""
|
|
FLAGS "D"
|
|
GROUP 12
|
|
END
|
|
|
|
DATE DLG_NULL
|
|
BEGIN
|
|
PROMPT 51 1 "Data scadenza "
|
|
FLAGS "D"
|
|
GROUP 13
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 4 "@bBanca d'appoggio"
|
|
END
|
|
|
|
STRING F_IBAN_STATO 2
|
|
BEGIN
|
|
PROMPT 1 5 "Stato "
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_IBAN_CHECK 2
|
|
BEGIN
|
|
PROMPT 11 5 ""
|
|
FLAGS "UZ"
|
|
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_CODABI F_CODCAB F_BBAN_CONTO -1 0
|
|
END
|
|
|
|
STRINGA F_BBAN_CIN 1
|
|
BEGIN
|
|
PROMPT 17 5 ""
|
|
FLAGS "U"
|
|
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_CODABI F_CODCAB F_BBAN_CONTO
|
|
END
|
|
|
|
NUMBER F_CODABI 5
|
|
BEGIN
|
|
PROMPT 20 5 "ABI "
|
|
FIELD CODABI
|
|
FLAGS "Z"
|
|
USE %BAN SELECT CODTAB ?= "?????"
|
|
INPUT CODTAB F_CODABI
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODABI CODTAB[1,5]
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice ABI assente"
|
|
END
|
|
|
|
NUMBER F_CODCAB 5
|
|
BEGIN
|
|
PROMPT 35 5 "CAB "
|
|
FIELD CODCAB
|
|
FLAGS "Z"
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
|
INPUT CODTAB[1,5] F_CODABI
|
|
INPUT CODTAB[6,10] F_CODCAB
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODABI CODTAB[1,5]
|
|
OUTPUT F_CODCAB CODTAB[6,10]
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
STRING F_IBAN 34
|
|
BEGIN
|
|
PROMPT 2 60 ""
|
|
FLAGS "DG"
|
|
FIELD IBAN
|
|
END
|
|
|
|
STRINGA F_BBAN 30
|
|
BEGIN
|
|
PROMPT 1 6 "BBAN "
|
|
FLAGS "UH"
|
|
END
|
|
|
|
STRING F_BBAN_CONTO 12
|
|
BEGIN
|
|
PROMPT 1 6 "Conto "
|
|
FLAGS "UZ"
|
|
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_CODABI F_CODCAB F_BBAN_CONTO
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 8 "@bBanca di presentazione"
|
|
END
|
|
|
|
NUMBER F_CODABIP 5
|
|
BEGIN
|
|
PROMPT 1 9 "Codice ABI "
|
|
FIELD CODABIP
|
|
FLAGS "Z"
|
|
END
|
|
|
|
NUMBER F_CODCABP 5
|
|
BEGIN
|
|
PROMPT 26 9 "Codice CAB "
|
|
FIELD CODCABP
|
|
FLAGS "Z"
|
|
USE BNP
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
|
|
INPUT CODTAB[1,5] F_CODABIP
|
|
INPUT CODTAB[6,10] F_CODCABP
|
|
INPUT CODTAB[11,12] F_PROG
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Progr." CODTAB[11,12]
|
|
DISPLAY "IBAN@25" S3
|
|
DISPLAY "Denominazione@50" 100@->S0
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
OUTPUT F_PROG CODTAB[11,12]
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_CODCABP
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
NUMBER F_PROG 2
|
|
BEGIN
|
|
PROMPT 50 9 "Progressivo "
|
|
FLAGS "Z"
|
|
FIELD PROGBNP
|
|
COPY ALL F_CODCABP
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_CUP 15
|
|
BEGIN
|
|
PROMPT 2 11 "CUP "
|
|
USE %CUP
|
|
INPUT CODTAB F_CUP
|
|
DISPLAY "Codice@15" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CUP CODTAB
|
|
OUTPUT F_DCUP S0
|
|
FIELD CUP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DCUP 50 30
|
|
BEGIN
|
|
PROMPT 40 11 ""
|
|
USE %CUP KEY 2
|
|
INPUT S0 F_DCUP
|
|
DISPLAY "Ragione Sociale@50" S0
|
|
DISPLAY "Codice@15" CODTAB
|
|
COPY OUTPUT F_CUP
|
|
END
|
|
|
|
STRING F_CIG 10
|
|
BEGIN
|
|
PROMPT 2 12 "CIG "
|
|
USE %CIG
|
|
INPUT CODTAB F_CIG
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice gara" S1
|
|
OUTPUT F_CIG CODTAB
|
|
OUTPUT F_DCIG S0
|
|
FIELD CIG
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DCIG 50 30
|
|
BEGIN
|
|
PROMPT 40 12 ""
|
|
USE %CIG KEY 2
|
|
INPUT S0 F_DCIG
|
|
DISPLAY "Ragione Sociale@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT F_CIG
|
|
END
|
|
|
|
DATE F_DATAEMISS
|
|
BEGIN
|
|
PROMPT 1 13 "Data di emissione "
|
|
FIELD DATAEMISS
|
|
END
|
|
|
|
NUMBER F_NUMEMISS 8
|
|
BEGIN
|
|
PROMPT 42 13 "Nr. di emissione "
|
|
FIELD NUMEMISS
|
|
END
|
|
|
|
BOOLEAN F_EFFSTAMP
|
|
BEGIN
|
|
PROMPT 1 14 "Effetto stampato"
|
|
FIELD EFFSTAMP
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 0 15 "@bDistinta"
|
|
END
|
|
|
|
LIST F_TIPODIST 15
|
|
BEGIN
|
|
PROMPT 1 16 "Tipo distinta "
|
|
FIELD TIPODIST
|
|
ITEM " | "
|
|
ITEM "I|All'incasso"
|
|
ITEM "B|Salvo buon fine"
|
|
ITEM "S|Allo sconto"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NDIST 5
|
|
BEGIN
|
|
PROMPT 42 16 "Nr. distinta "
|
|
FIELD NDIST
|
|
FLAGS "D"
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
|
|
END
|
|
|
|
DATE F_DATADIST
|
|
BEGIN
|
|
PROMPT 1 17 "Data distinta "
|
|
FIELD DATADIST
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NRIGADIST 4
|
|
BEGIN
|
|
PROMPT 42 17 "Nr. di riga "
|
|
FIELD NRIGADIST
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_DISTSTAM
|
|
BEGIN
|
|
PROMPT 1 18 "Distinta stampata"
|
|
FIELD DISTSTAM
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATARIBA
|
|
BEGIN
|
|
PROMPT 1 20 "Data Ri.Ba. "
|
|
FIELD DATARIBA
|
|
END
|
|
|
|
BOOLEAN F_DISRIBAEST
|
|
BEGIN
|
|
PROMPT 42 20 "Distinta Ri.Ba. estratta"
|
|
FIELD DISRIBAEST
|
|
END
|
|
|
|
BOOLEAN F_EFFCONT
|
|
BEGIN
|
|
PROMPT 1 21 "Effetto contabilizzato"
|
|
FIELD EFFCONT
|
|
END
|
|
|
|
BOOLEAN F_EFFCOMP
|
|
BEGIN
|
|
PROMPT 42 21 "Effetto completato"
|
|
FIELD EFFCOMP
|
|
END
|
|
|
|
STRING F_CONTSEP 6
|
|
BEGIN
|
|
PROMPT 1 22 "Contab. separata "
|
|
USE &NPENT
|
|
INPUT CODTAB F_CONTSEP
|
|
DISPLAY "Codice@6" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CONTSEP CODTAB
|
|
OUTPUT F_DESCONTSEP S0
|
|
CHECKTYPE NORMAL
|
|
FIELD CONTSEP
|
|
END
|
|
|
|
STRING F_DESCONTSEP 50 30
|
|
BEGIN
|
|
PROMPT 40 22 ""
|
|
USE &NPENT KEY 2
|
|
INPUT S0 F_DESCONTSEP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@6" CODTAB
|
|
COPY OUTPUT F_CONTSEP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Cessionari" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMBER DLG_NULL 7
|
|
BEGIN
|
|
PROMPT 1 1 "Numero "
|
|
FLAGS "RD"
|
|
GROUP 10
|
|
END
|
|
|
|
DATE DLG_NULL
|
|
BEGIN
|
|
PROMPT 51 1 "Data scadenza "
|
|
FLAGS "D"
|
|
GROUP 13
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente"
|
|
GROUP 8
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "Fornitore"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER DLG_NULL 6
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
FLAGS "D"
|
|
GROUP 11
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 26 2 ""
|
|
FLAGS "D"
|
|
GROUP 12
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_EFF
|
|
BEGIN
|
|
PROMPT 1 4 "Obbligati principali"
|
|
ITEM "Ragione Sociale@50"
|
|
ITEM "Localita'@35"
|
|
ITEM "Stato"
|
|
ITEM "Cod. comune"
|
|
ITEM "Comune@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "ef0100c.uml"
|
|
#include "ef0100b.uml"
|
|
|