abdf29e13d
Files correlati : batbbnp.uml Ricompilazione Demo : [ ] Commento : PG200005 La funzione "collega" legata al campo Banche di presentazioni non effettua nessuna azione git-svn-id: svn://10.65.10.50/trunk@11328 c028cbd2-c16b-5b4b-a496-9718f37d4682
357 lines
6.6 KiB
Plaintext
Executable File
357 lines
6.6 KiB
Plaintext
Executable File
//DEFINIZIONE MASCHERA GESTIONE TABELLA BANCHE DI PRESENTAZIONE
|
|
#include "batbbnp.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Banche di Presentazione" 0 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
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_ISTIT S0
|
|
CHECKTYPE REQUIRED
|
|
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_CODICEABI CODTAB[1,5]
|
|
OUTPUT F_DENOM S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice ABI "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[1,5]
|
|
KEY 1
|
|
USE BNP KEY 1 SELECT CODTAB ?= "??????????"
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT CODTAB[1,5] F_ABI
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" 100@->S0
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
MESSAGE COPY,F_CODICEABI
|
|
MESSAGE CHECK,F_CODICEABI
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice CAB "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[6,10]
|
|
KEY 1
|
|
USE BNP KEY 1 SELECT CODTAB ?= "??????????"
|
|
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 CHECK,F_CODICEABI
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_ISTIT 50
|
|
BEGIN
|
|
PROMPT 26 1 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_DENOM 50
|
|
BEGIN
|
|
PROMPT 26 2 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 4 "@bPortafoglio Effetti all'incasso"
|
|
END
|
|
|
|
STRING F_CC_INC 20
|
|
BEGIN
|
|
PROMPT 2 5 "C/C "
|
|
FIELD S0
|
|
END
|
|
|
|
STRING F_CC_CONT_INC 20
|
|
BEGIN
|
|
PROMPT 2 6 "C/Contabile "
|
|
FIELD S3
|
|
END
|
|
|
|
NUMBER F_GRUPPO_INC 3
|
|
BEGIN
|
|
PROMPT 2 7 "Cont. attivi "
|
|
FIELD I0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_INC 3
|
|
BEGIN
|
|
PROMPT 21 7 ""
|
|
FIELD I1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_INC 6
|
|
BEGIN
|
|
PROMPT 28 7 ""
|
|
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 7 ""
|
|
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 8 "Cont. passivi "
|
|
FIELD I9
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_INCP 3
|
|
BEGIN
|
|
PROMPT 21 8 ""
|
|
FIELD I10
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_INCP 6
|
|
BEGIN
|
|
PROMPT 28 8 ""
|
|
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 8 ""
|
|
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 5
|
|
BEGIN
|
|
PROMPT 1 10 "@bPortafoglio Effetti salvo buon fine"
|
|
END
|
|
|
|
STRING F_CC_SBF 20
|
|
BEGIN
|
|
PROMPT 2 11 "C/C "
|
|
FIELD S1
|
|
END
|
|
|
|
NUMBER F_FIDO_SBF 20 2
|
|
BEGIN
|
|
PROMPT 38 11 "Fido "
|
|
FIELD R1
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
STRING F_CC_CONT_SBF 20
|
|
BEGIN
|
|
PROMPT 2 12 "C/Contabile "
|
|
FIELD S4
|
|
END
|
|
|
|
NUMBER F_GRUPPO_SBF 3
|
|
BEGIN
|
|
PROMPT 2 13 "Contropartita "
|
|
FIELD I3
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_SBF 3
|
|
BEGIN
|
|
PROMPT 21 13 ""
|
|
FIELD I4
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_SBF 6
|
|
BEGIN
|
|
PROMPT 28 13 ""
|
|
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 13 ""
|
|
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 5
|
|
BEGIN
|
|
PROMPT 1 15 "@bPortafoglio Effetti allo sconto"
|
|
END
|
|
|
|
STRING F_CC_SCN 20
|
|
BEGIN
|
|
PROMPT 2 16 "C/C "
|
|
FIELD S2
|
|
END
|
|
|
|
NUMBER F_FIDO_SCN 20 2
|
|
BEGIN
|
|
PROMPT 38 16 "Fido "
|
|
FIELD R2
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
STRING F_CC_CONT_SCN 20
|
|
BEGIN
|
|
PROMPT 2 17 "C/Contabile "
|
|
FIELD S5
|
|
END
|
|
|
|
NUMBER F_GRUPPO_SCN 3
|
|
BEGIN
|
|
PROMPT 2 18 "Contropartita "
|
|
FIELD I6
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTO_SCN 3
|
|
BEGIN
|
|
PROMPT 21 18 ""
|
|
FIELD I7
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOC_SCN 6
|
|
BEGIN
|
|
PROMPT 28 18 ""
|
|
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 18 ""
|
|
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
|
|
|
|
BOOLEAN F_CBI
|
|
BEGIN
|
|
PROMPT 2 20 "Tracciato SETIF"
|
|
FIELD B0
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|