diff --git a/ef/batbbnp.h b/ef/batbbnp.h index 8d6e33824..f720f6fc1 100755 --- a/ef/batbbnp.h +++ b/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 \ No newline at end of file +#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 diff --git a/ef/batbbnp.uml b/ef/batbbnp.uml index 93bd95fa8..6fbe9b3a7 100755 --- a/ef/batbbnp.uml +++ b/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