Modificata tabella banche di presentazione.
git-svn-id: svn://10.65.10.50/trunk@4331 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
ba6a9e0565
commit
767e827d08
13
ef/batbbnp.h
13
ef/batbbnp.h
@ -17,6 +17,13 @@
|
||||
#define F_CC_SCN 113
|
||||
#define F_FIDO_SCN 114
|
||||
#define F_CC_CONT_SCN 115
|
||||
#define B_PRINT 116
|
||||
|
||||
#endif//__BATBBNP_H
|
||||
#define F_GRUPPO_INC 116
|
||||
#define F_CONTO_INC 117
|
||||
#define F_SOTTOC_INC 118
|
||||
#define F_GRUPPO_SBF 119
|
||||
#define F_CONTO_SBF 120
|
||||
#define F_SOTTOC_SBF 121
|
||||
#define F_GRUPPO_SCN 122
|
||||
#define F_CONTO_SCN 123
|
||||
#define F_SOTTOC_SCN 124
|
||||
#endif//__BATBBNP_H
|
||||
|
||||
169
ef/batbbnp.uml
169
ef/batbbnp.uml
@ -33,7 +33,7 @@ BEGIN
|
||||
FIELD BNP->CODTAB[6,10]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
USE %BAN 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]
|
||||
@ -50,15 +50,17 @@ BEGIN
|
||||
PROMPT 2 1 "Codice ABI "
|
||||
FLAGS "Z"
|
||||
FIELD BNP->CODTAB[1,5]
|
||||
KEY 1
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
JOIN BNP TO %BAN KEY 1 INTO CODTAB[1,5]=CODTAB[1,5]
|
||||
KEY 1
|
||||
USE BNP KEY 1 SELECT CODTAB ?= "??????????"
|
||||
JOIN %BAN TO BNP KEY 1 INTO CODTAB=CODTAB
|
||||
INPUT CODTAB[1,5] F_ABI
|
||||
DISPLAY "ABI@5" BNP->CODTAB[1,5]
|
||||
DISPLAY "Istituto@50" S0
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" %BAN->S0
|
||||
OUTPUT F_ABI CODTAB[1,5]
|
||||
OUTPUT F_ISTIT S0
|
||||
//OUTPUT F_ISTIT %BAN->S0
|
||||
MESSAGE COPY,F_CODICEABI
|
||||
MESSAGE CHECK,F_CODICEABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
@ -68,17 +70,18 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
FIELD BNP->CODTAB[6,10]
|
||||
KEY 1
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
||||
JOIN BNP TO %BAN KEY 1 INTO CODTAB=CODTAB
|
||||
USE BNP KEY 1 SELECT CODTAB ?= "??????????"
|
||||
JOIN %BAN TO BNP KEY 1 INTO CODTAB=CODTAB
|
||||
INPUT CODTAB[1,5] F_ABI
|
||||
INPUT CODTAB[6,10] F_CAB
|
||||
DISPLAY "ABI@5" BNP->CODTAB[1,5]
|
||||
DISPLAY "CAB@5" BNP->CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" %BAN->S0
|
||||
OUTPUT F_CAB CODTAB[6,10]
|
||||
OUTPUT F_ABI CODTAB[1,5]
|
||||
OUTPUT F_DENOM S0
|
||||
MESSAGE COPY,F_CODICECAB
|
||||
OUTPUT F_DENOM %BAN->S0
|
||||
MESSAGE COPY,F_CODICECAB
|
||||
MESSAGE CHECK,F_CODICEABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
@ -101,7 +104,7 @@ END
|
||||
|
||||
STRING F_CC_INC 20
|
||||
BEGIN
|
||||
PROMPT 2 5 "C/C "
|
||||
PROMPT 2 5 "C/C "
|
||||
FIELD BNP->S0
|
||||
END
|
||||
|
||||
@ -116,10 +119,50 @@ END
|
||||
|
||||
STRING F_CC_CONT_INC 20
|
||||
BEGIN
|
||||
PROMPT 2 6 "C/Contabile "
|
||||
PROMPT 2 6 "C/Contabile "
|
||||
FIELD BNP->S3
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO_INC 3
|
||||
BEGIN
|
||||
PROMPT 36 6 "Conto contropartita "
|
||||
FIELD I0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_CONTO_INC 3
|
||||
BEGIN
|
||||
PROMPT 61 6 ""
|
||||
FIELD I1
|
||||
USE LF_PCON SELECT CONTO!=""
|
||||
INPUT GRUPPO F_GRUPPO_INC
|
||||
INPUT CONTO F_CONTO_INC
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO_INC GRUPPO
|
||||
OUTPUT F_CONTO_INC CONTO
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOC_INC 6
|
||||
BEGIN
|
||||
PROMPT 68 6 ""
|
||||
FIELD I2
|
||||
USE LF_PCON 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
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 8 "Portafoglio Effetti salvo buon fine"
|
||||
@ -127,23 +170,63 @@ END
|
||||
|
||||
STRING F_CC_SBF 20
|
||||
BEGIN
|
||||
PROMPT 2 9 "C/C "
|
||||
PROMPT 2 9 "C/C "
|
||||
FIELD BNP->S1
|
||||
END
|
||||
|
||||
NUMBER F_FIDO_SBF 20 2
|
||||
BEGIN
|
||||
PROMPT 45 9 "Fido "
|
||||
PROMPT 36 9 "Fido "
|
||||
FIELD BNP->R1
|
||||
PICTURE "###.###.###.###,@@"
|
||||
END
|
||||
|
||||
STRING F_CC_CONT_SBF 20
|
||||
BEGIN
|
||||
PROMPT 2 10 "C/Contabile "
|
||||
PROMPT 2 10 "C/Contabile "
|
||||
FIELD BNP->S4
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO_SBF 3
|
||||
BEGIN
|
||||
PROMPT 36 10 "Conto contropartita "
|
||||
FIELD I3
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_CONTO_SBF 3
|
||||
BEGIN
|
||||
PROMPT 61 10 ""
|
||||
FIELD I4
|
||||
USE LF_PCON SELECT CONTO!=""
|
||||
INPUT GRUPPO F_GRUPPO_SBF
|
||||
INPUT CONTO F_CONTO_SBF
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO_SBF GRUPPO
|
||||
OUTPUT F_CONTO_SBF CONTO
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOC_SBF 6
|
||||
BEGIN
|
||||
PROMPT 68 10 ""
|
||||
FIELD I5
|
||||
USE LF_PCON 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
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 12 "Portafoglio Effetti allo sconto"
|
||||
@ -151,29 +234,61 @@ END
|
||||
|
||||
STRING F_CC_SCN 20
|
||||
BEGIN
|
||||
PROMPT 2 13 "C/C "
|
||||
PROMPT 2 13 "C/C "
|
||||
FIELD BNP->S2
|
||||
END
|
||||
|
||||
NUMBER F_FIDO_SCN 20 2
|
||||
BEGIN
|
||||
PROMPT 45 13 "Fido "
|
||||
PROMPT 36 13 "Fido "
|
||||
FIELD BNP->R2
|
||||
PICTURE "###.###.###.###,@@"
|
||||
END
|
||||
|
||||
STRING F_CC_CONT_SCN 20
|
||||
BEGIN
|
||||
PROMPT 2 14 "C/Contabile "
|
||||
PROMPT 2 14 "C/Contabile "
|
||||
FIELD BNP->S5
|
||||
END
|
||||
|
||||
BUTTON B_PRINT 10 2
|
||||
NUMBER F_GRUPPO_SCN 3
|
||||
BEGIN
|
||||
PROMPT -11 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_SPACE
|
||||
PICTURE BMP_PRINT
|
||||
PICTURE BMP_PRINT
|
||||
PROMPT 36 14 "Conto contropartita "
|
||||
FIELD I6
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_CONTO_SCN 3
|
||||
BEGIN
|
||||
PROMPT 61 14 ""
|
||||
FIELD I7
|
||||
USE LF_PCON SELECT CONTO!=""
|
||||
INPUT GRUPPO F_GRUPPO_SCN
|
||||
INPUT CONTO F_CONTO_SCN
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO_SCN GRUPPO
|
||||
OUTPUT F_CONTO_SCN CONTO
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOC_SCN 6
|
||||
BEGIN
|
||||
PROMPT 68 14 ""
|
||||
FIELD I8
|
||||
USE LF_PCON 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
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user