root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 682

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Bug 0001490: Manca la possibilità di gestire due Conti correnti per lo stesso ABI - CAB
Manca la possibilità di gestire due Conti correnti per lo stesso ABI - CAB.

Aggiunto un progrssvo per banca di presentazione nei documenti nella tabella e nella gestione effetti.


git-svn-id: svn://10.65.10.50/trunk@20256 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-03-22 13:41:59 +00:00
parent 83fd3ffeee
commit 62a2f97986
2 changed files with 57 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cgtbbnp.h
View File

@ -47,5 +47,7 @@
#define F_IBAN_PAG 151 #define F_IBAN_PAG 151
#define F_IBAN_INC 152 #define F_IBAN_INC 152
#define F_PROG 153
#endif//__CGTBBNP_H #endif//__CGTBBNP_H

100
cg/cgtbbnp.uml
View File

@ -6,7 +6,7 @@ ENDPAGE
PAGE "Banche di Presentazione" 0 2 0 0 PAGE "Banche di Presentazione" 0 2 0 0
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
@ -53,13 +53,20 @@ BEGIN
FLAGS "Z" FLAGS "Z"
FIELD CODTAB[1,5] FIELD CODTAB[1,5]
KEY 1 KEY 1
USE BNP KEY 1 SELECT CODTAB ?= "??????????" USE BNP
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
INPUT CODTAB[1,5] F_ABI 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 "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10] DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Progr." CODTAB[11,12]
DISPLAY "IBAN@25" S3
DISPLAY "Denominazione@50" 100@->S0 DISPLAY "Denominazione@50" 100@->S0
OUTPUT F_ABI CODTAB[1,5] 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 COPY,F_CODICEABI
MESSAGE CHECK,F_CODICEABI MESSAGE CHECK,F_CODICEABI
MESSAGE COPY,F_BBAN_ABI MESSAGE COPY,F_BBAN_ABI
@ -72,16 +79,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
FIELD CODTAB[6,10] FIELD CODTAB[6,10]
KEY 1 KEY 1
USE BNP KEY 1 SELECT CODTAB ?= "??????????" COPY ALL F_ABI
JOIN %BAN ALIAS 100 INTO CODTAB=CODTAB
INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Denominazione@50" 100@->S0
OUTPUT F_CAB CODTAB[6,10]
OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_DENOM 100@->S0
MESSAGE COPY,F_CODICECAB MESSAGE COPY,F_CODICECAB
MESSAGE CHECK,F_CODICEABI MESSAGE CHECK,F_CODICEABI
MESSAGE COPY,F_BBAN_CAB MESSAGE COPY,F_BBAN_CAB
@ -100,9 +98,21 @@ BEGIN
FLAG "D" FLAG "D"
END 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 SEARCH
END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 4 "@bConto Corrente" PROMPT 1 5 "@bConto Corrente"
END END
STRING F_IBAN 34 STRING F_IBAN 34
@ -114,80 +124,80 @@ END
STRING F_IBAN_STATO 2 STRING F_IBAN_STATO 2
BEGIN BEGIN
PROMPT 2 5 "Codice IBAN " PROMPT 2 6 "Codice IBAN "
FLAGS "U" 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 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 END
NUMBER F_IBAN_CHECK 2 NUMBER F_IBAN_CHECK 2
BEGIN BEGIN
PROMPT 19 5 "" PROMPT 19 6 ""
FLAGS "UZ" 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 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 END
STRINGA F_BBAN 30 STRINGA F_BBAN 30
BEGIN BEGIN
PROMPT 30 5 "BBAN " PROMPT 30 6 "BBAN "
FLAGS "UH" FLAGS "UH"
END END
STRINGA F_BBAN_CIN 1 STRINGA F_BBAN_CIN 1
BEGIN BEGIN
PROMPT 30 5 "BBAN " PROMPT 30 6 "BBAN "
FLAGS "U" FLAGS "U"
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END END
NUMBER F_BBAN_ABI 5 NUMBER F_BBAN_ABI 5
BEGIN BEGIN
PROMPT 38 5 "" PROMPT 38 6 ""
FLAGS "DGZ" FLAGS "DGZ"
NUM_CALC #F_ABI NUM_CALC #F_ABI
END END
NUMBER F_BBAN_CAB 5 NUMBER F_BBAN_CAB 5
BEGIN BEGIN
PROMPT 45 5 "" PROMPT 45 6 ""
FLAGS "DGZ" FLAGS "DGZ"
NUM_CALC #F_CAB NUM_CALC #F_CAB
END END
STRING F_BBAN_CONTO 12 STRING F_BBAN_CONTO 12
BEGIN BEGIN
PROMPT 52 5 "" PROMPT 52 6 ""
FLAGS "UZ" FLAGS "UZ"
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 7 "@bPortafoglio Effetti all'incasso" PROMPT 1 8 "@bPortafoglio Effetti all'incasso"
END END
STRING F_CC_INC 20 STRING F_CC_INC 20
BEGIN BEGIN
PROMPT 2 8 "C/C " PROMPT 2 9 "C/C "
FIELD S0 FIELD S0
END END
NUMBER F_GRUPPO_INC 3 NUMBER F_GRUPPO_INC 3
BEGIN BEGIN
PROMPT 2 9 "Conto attivi " PROMPT 2 10 "Conto attivi "
FIELD I0 FIELD I0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CONTO_INC 3 NUMBER F_CONTO_INC 3
BEGIN BEGIN
PROMPT 21 9 "" PROMPT 21 10 ""
FIELD I1 FIELD I1
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_SOTTOC_INC 6 NUMBER F_SOTTOC_INC 6
BEGIN BEGIN
PROMPT 28 9 "" PROMPT 28 10 ""
FIELD I2 FIELD I2
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPO_INC INPUT GRUPPO F_GRUPPO_INC
@ -206,7 +216,7 @@ END
STRING F_DESCR_INC 50 38 STRING F_DESCR_INC 50 38
BEGIN BEGIN
PROMPT 38 9 "" PROMPT 38 10 ""
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR F_DESCR_INC INPUT DESCR F_DESCR_INC
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -219,21 +229,21 @@ END
NUMBER F_GRUPPO_INCP 3 NUMBER F_GRUPPO_INCP 3
BEGIN BEGIN
PROMPT 2 10 "Conto addebito " PROMPT 2 11 "Conto addebito "
FIELD I9 FIELD I9
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CONTO_INCP 3 NUMBER F_CONTO_INCP 3
BEGIN BEGIN
PROMPT 21 10 "" PROMPT 21 11 ""
FIELD I10 FIELD I10
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_SOTTOC_INCP 6 NUMBER F_SOTTOC_INCP 6
BEGIN BEGIN
PROMPT 28 10 "" PROMPT 28 11 ""
FIELD I11 FIELD I11
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPO_INCP INPUT GRUPPO F_GRUPPO_INCP
@ -252,7 +262,7 @@ END
STRING F_DESCR_INCP 50 38 STRING F_DESCR_INCP 50 38
BEGIN BEGIN
PROMPT 38 10 "" PROMPT 38 11 ""
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR F_DESCR_INCP INPUT DESCR F_DESCR_INCP
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -265,39 +275,39 @@ END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 12 "@bPortafoglio Effetti salvo buon fine" PROMPT 1 13 "@bPortafoglio Effetti salvo buon fine"
END END
STRING F_CC_SBF 20 STRING F_CC_SBF 20
BEGIN BEGIN
PROMPT 2 13 "C/C " PROMPT 2 14 "C/C "
FIELD S1 FIELD S1
END END
NUMBER F_FIDO_SBF 20 2 NUMBER F_FIDO_SBF 20 2
BEGIN BEGIN
PROMPT 38 13 "Fido " PROMPT 38 14 "Fido "
FIELD R1 FIELD R1
PICTURE "###.###.###.###,@@" PICTURE "###.###.###.###,@@"
END END
NUMBER F_GRUPPO_SBF 3 NUMBER F_GRUPPO_SBF 3
BEGIN BEGIN
PROMPT 2 14 "Contropartita " PROMPT 2 15 "Contropartita "
FIELD I3 FIELD I3
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CONTO_SBF 3 NUMBER F_CONTO_SBF 3
BEGIN BEGIN
PROMPT 21 14 "" PROMPT 21 15 ""
FIELD I4 FIELD I4
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_SOTTOC_SBF 6 NUMBER F_SOTTOC_SBF 6
BEGIN BEGIN
PROMPT 28 14 "" PROMPT 28 15 ""
FIELD I5 FIELD I5
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPO_SBF INPUT GRUPPO F_GRUPPO_SBF
@ -316,7 +326,7 @@ END
STRING F_DESCR_SBF 50 38 STRING F_DESCR_SBF 50 38
BEGIN BEGIN
PROMPT 38 14 "" PROMPT 38 15 ""
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR F_DESCR_SBF INPUT DESCR F_DESCR_SBF
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -329,39 +339,39 @@ END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 16 "@bPortafoglio Effetti allo sconto" PROMPT 1 17 "@bPortafoglio Effetti allo sconto"
END END
STRING F_CC_SCN 20 STRING F_CC_SCN 20
BEGIN BEGIN
PROMPT 2 17 "C/C " PROMPT 2 18 "C/C "
FIELD S2 FIELD S2
END END
NUMBER F_FIDO_SCN 20 2 NUMBER F_FIDO_SCN 20 2
BEGIN BEGIN
PROMPT 38 17 "Fido " PROMPT 38 18 "Fido "
FIELD R2 FIELD R2
PICTURE "###.###.###.###,@@" PICTURE "###.###.###.###,@@"
END END
NUMBER F_GRUPPO_SCN 3 NUMBER F_GRUPPO_SCN 3
BEGIN BEGIN
PROMPT 2 18 "Contropartita " PROMPT 2 19 "Contropartita "
FIELD I6 FIELD I6
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CONTO_SCN 3 NUMBER F_CONTO_SCN 3
BEGIN BEGIN
PROMPT 20 18 "" PROMPT 20 19 ""
FIELD I7 FIELD I7
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_SOTTOC_SCN 6 NUMBER F_SOTTOC_SCN 6
BEGIN BEGIN
PROMPT 28 18 "" PROMPT 28 19 ""
FIELD I8 FIELD I8
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPO_SCN INPUT GRUPPO F_GRUPPO_SCN
@ -380,7 +390,7 @@ END
STRING F_DESCR_SCN 50 38 STRING F_DESCR_SCN 50 38
BEGIN BEGIN
PROMPT 38 18 "" PROMPT 38 19 ""
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR F_DESCR_SCN INPUT DESCR F_DESCR_SCN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR