8ef1b107f0
Files correlati : cg2 Ricompilazione Demo : [ ] Commento : Migliorata lettura TBill da record git-svn-id: svn://10.65.10.50/trunk@20536 c028cbd2-c16b-5b4b-a496-9718f37d4682
434 lines
7.8 KiB
Plaintext
Executable File
434 lines
7.8 KiB
Plaintext
Executable File
#include "cgtbbnp.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Banche di Presentazione" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER F_CODICEABI 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice ABI "
|
|
FIELD CODTAB[1,5]
|
|
FLAGS "Z"
|
|
KEY 1
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
|
INPUT CODTAB F_CODICEABI
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "Istituto@50" S0
|
|
OUTPUT F_CODICEABI CODTAB[1,5]
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_ISTIT S0
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
NUMBER F_CODICECAB 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice CAB "
|
|
FIELD CODTAB[6,10]
|
|
FLAGS "Z"
|
|
KEY 1
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
|
INPUT CODTAB[1,5] F_CODICEABI
|
|
INPUT CODTAB[6,10] F_CODICECAB
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODICECAB CODTAB[6,10]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_CODICEABI CODTAB[1,5]
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_DENOM S0
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice ABI "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[1,5]
|
|
KEY 1
|
|
USE BNP
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
|
|
INPUT CODTAB[1,5] F_ABI
|
|
INPUT CODTAB[6,10] F_CAB
|
|
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_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_PROG CODTAB[11,12]
|
|
OUTPUT F_DENOM 100@->S0
|
|
MESSAGE COPY,F_CODICEABI
|
|
MESSAGE CHECK,F_CODICEABI
|
|
MESSAGE COPY,F_BBAN_ABI
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice CAB "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[6,10]
|
|
KEY 1
|
|
COPY ALL F_ABI
|
|
MESSAGE COPY,F_CODICECAB
|
|
MESSAGE CHECK,F_CODICEABI
|
|
MESSAGE COPY,F_BBAN_CAB
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
STRING F_ISTIT 50
|
|
BEGIN
|
|
PROMPT 26 1 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_DENOM 50
|
|
BEGIN
|
|
PROMPT 26 2 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_PROG 2
|
|
BEGIN
|
|
PROMPT 2 3 "Progressivo "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[11,12]
|
|
KEY 1
|
|
COPY ALL F_ABI
|
|
MESSAGE CHECK,F_CODICEABI
|
|
MESSAGE COPY,F_BBAN_CAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 5 "@bConto Corrente"
|
|
END
|
|
|
|
STRING F_IBAN 34
|
|
BEGIN
|
|
PROMPT 2 55 ""
|
|
FLAGS "D"
|
|
FIELD S3
|
|
END
|
|
|
|
STRING F_IBAN_STATO 2
|
|
BEGIN
|
|
PROMPT 2 6 "Codice IBAN "
|
|
FLAGS "U"
|
|
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
END
|
|
|
|
NUMBER F_IBAN_CHECK 2
|
|
BEGIN
|
|
PROMPT 19 6 ""
|
|
FLAGS "UZ"
|
|
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
END
|
|
|
|
STRINGA F_BBAN 30
|
|
BEGIN
|
|
PROMPT 30 6 "BBAN "
|
|
FLAGS "UH"
|
|
END
|
|
|
|
STRINGA F_BBAN_CIN 1
|
|
BEGIN
|
|
PROMPT 30 6 "BBAN "
|
|
FLAGS "U"
|
|
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
END
|
|
|
|
NUMBER F_BBAN_ABI 5
|
|
BEGIN
|
|
PROMPT 38 6 ""
|
|
FLAGS "DGZ"
|
|
NUM_CALC #F_ABI
|
|
END
|
|
|
|
NUMBER F_BBAN_CAB 5
|
|
BEGIN
|
|
PROMPT 45 6 ""
|
|
FLAGS "DGZ"
|
|
NUM_CALC #F_CAB
|
|
END
|
|
|
|
STRING F_BBAN_CONTO 12
|
|
BEGIN
|
|
PROMPT 52 6 ""
|
|
FLAGS "UZ"
|
|
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 8 "@bPortafoglio Effetti all'incasso"
|
|
END
|
|
|
|
STRING F_CC_INC 20
|
|
BEGIN
|
|
PROMPT 2 9 "C/C "
|
|
FIELD S0
|
|
END
|
|
|
|
NUMBER F_GRUPPO_INC 3
|
|
BEGIN
|
|
PROMPT 2 10 "Conto attivi "
|
|
FIELD I0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_INC 3
|
|
BEGIN
|
|
PROMPT 22 10 ""
|
|
FIELD I1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_INC 6
|
|
BEGIN
|
|
PROMPT 28 10 ""
|
|
FIELD I2
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPO_INC
|
|
INPUT CONTO F_CONTO_INC
|
|
INPUT SOTTOCONTO F_SOTTOC_INC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO_INC GRUPPO
|
|
OUTPUT F_CONTO_INC CONTO
|
|
OUTPUT F_SOTTOC_INC SOTTOCONTO
|
|
OUTPUT F_DESCR_INC DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCR_INC 50 38
|
|
BEGIN
|
|
PROMPT 38 10 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCR_INC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOC_INC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_GRUPPO_INCP 3
|
|
BEGIN
|
|
PROMPT 2 10 "Conto addebito "
|
|
FIELD I9
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_INCP 3
|
|
BEGIN
|
|
PROMPT 22 11 ""
|
|
FIELD I10
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_INCP 6
|
|
BEGIN
|
|
PROMPT 28 11 ""
|
|
FIELD I11
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPO_INCP
|
|
INPUT CONTO F_CONTO_INCP
|
|
INPUT SOTTOCONTO F_SOTTOC_INCP
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO_INCP GRUPPO
|
|
OUTPUT F_CONTO_INCP CONTO
|
|
OUTPUT F_SOTTOC_INCP SOTTOCONTO
|
|
OUTPUT F_DESCR_INCP DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCR_INCP 50 38
|
|
BEGIN
|
|
PROMPT 38 11 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCR_INCP
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOC_INCP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 13 "@bPortafoglio Effetti salvo buon fine"
|
|
END
|
|
|
|
STRING F_CC_SBF 20
|
|
BEGIN
|
|
PROMPT 2 14 "C/C "
|
|
FIELD S1
|
|
END
|
|
|
|
NUMBER F_FIDO_SBF 20 2
|
|
BEGIN
|
|
PROMPT 38 14 "Fido "
|
|
FIELD R1
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
NUMBER F_GRUPPO_SBF 3
|
|
BEGIN
|
|
PROMPT 2 15 "Contropartita "
|
|
FIELD I3
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_SBF 3
|
|
BEGIN
|
|
PROMPT 21 15 ""
|
|
FIELD I4
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_SBF 6
|
|
BEGIN
|
|
PROMPT 28 15 ""
|
|
FIELD I5
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPO_SBF
|
|
INPUT CONTO F_CONTO_SBF
|
|
INPUT SOTTOCONTO F_SOTTOC_SBF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO_SBF GRUPPO
|
|
OUTPUT F_CONTO_SBF CONTO
|
|
OUTPUT F_SOTTOC_SBF SOTTOCONTO
|
|
OUTPUT F_DESCR_SBF DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCR_SBF 50 38
|
|
BEGIN
|
|
PROMPT 38 15 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCR_SBF
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOC_SBF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 17 "@bPortafoglio Effetti allo sconto"
|
|
END
|
|
|
|
STRING F_CC_SCN 20
|
|
BEGIN
|
|
PROMPT 2 18 "C/C "
|
|
FIELD S2
|
|
END
|
|
|
|
NUMBER F_FIDO_SCN 20 2
|
|
BEGIN
|
|
PROMPT 38 18 "Fido "
|
|
FIELD R2
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
NUMBER F_GRUPPO_SCN 3
|
|
BEGIN
|
|
PROMPT 2 19 "Contropartita "
|
|
FIELD I6
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_SCN 3
|
|
BEGIN
|
|
PROMPT 20 19 ""
|
|
FIELD I7
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_SCN 6
|
|
BEGIN
|
|
PROMPT 28 19 ""
|
|
FIELD I8
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPO_SCN
|
|
INPUT CONTO F_CONTO_SCN
|
|
INPUT SOTTOCONTO F_SOTTOC_SCN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO_SCN GRUPPO
|
|
OUTPUT F_CONTO_SCN CONTO
|
|
OUTPUT F_SOTTOC_SCN SOTTOCONTO
|
|
OUTPUT F_DESCR_SCN DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCR_SCN 50 38
|
|
BEGIN
|
|
PROMPT 38 19 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCR_SCN
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOC_SCN
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Paramteri Distinte" 0 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 1 "@bParametri emissione distinte su file"
|
|
END
|
|
|
|
BOOLEAN F_CBI
|
|
BEGIN
|
|
PROMPT 2 2 "Utilizza tracciato SETIF"
|
|
FIELD B0
|
|
END
|
|
|
|
BOOLEAN F_IBAN_PAG
|
|
BEGIN
|
|
PROMPT 2 3 "Genera IBAN su distinte di pagamento"
|
|
FIELD B1
|
|
END
|
|
|
|
BOOLEAN F_IBAN_INC
|
|
BEGIN
|
|
PROMPT 2 4 "Genera IBAN su distinte di incasso"
|
|
FIELD B2
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|