180 lines
3.3 KiB
Plaintext
Executable File
180 lines
3.3 KiB
Plaintext
Executable File
//DEFINIZIONE MASCHERA GESTIONE TABELLA BANCHE DI PRESENTAZIONE
|
|
#include "batbbnp.h"
|
|
|
|
TOOLBAR "" 0 19 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione Tabella Banche di Presentazione" 0 -1 77 19
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 0 " "
|
|
END
|
|
|
|
NUMBER F_CODICEABI 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice ABI "
|
|
FIELD BNP->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 BNP->CODTAB[6,10]
|
|
FLAGS "Z"
|
|
KEY 1
|
|
USE %BAN KEY 1
|
|
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 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]
|
|
INPUT CODTAB[1,5] F_ABI
|
|
DISPLAY "ABI@5" BNP->CODTAB[1,5]
|
|
DISPLAY "Istituto@50" S0
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_ISTIT S0
|
|
MESSAGE COPY,F_CODICEABI
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice CAB "
|
|
FLAGS "Z"
|
|
FIELD BNP->CODTAB[6,10]
|
|
KEY 1
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
|
JOIN BNP TO %BAN 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
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_DENOM S0
|
|
MESSAGE COPY,F_CODICECAB
|
|
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 4
|
|
BEGIN
|
|
PROMPT 1 4 "Portafoglio effetti all' incasso"
|
|
END
|
|
|
|
STRING F_CC_INC 20
|
|
BEGIN
|
|
PROMPT 2 5 "C/C "
|
|
FIELD BNP->S0
|
|
END
|
|
|
|
NUMBER F_FIDO_INC 20 2
|
|
BEGIN
|
|
PROMPT 45 5 "Fido "
|
|
FIELD BNP->R0
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
STRING F_CC_CONT_INC 20
|
|
BEGIN
|
|
PROMPT 2 6 "C/Contabile "
|
|
FIELD BNP->S3
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 8 "Portafoglio effetti salvo buon fine"
|
|
END
|
|
|
|
STRING F_CC_SBF 20
|
|
BEGIN
|
|
PROMPT 2 9 "C/C "
|
|
FIELD BNP->S1
|
|
END
|
|
|
|
NUMBER F_FIDO_SBF 20 2
|
|
BEGIN
|
|
PROMPT 45 9 "Fido "
|
|
FIELD BNP->R1
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
STRING F_CC_CONT_SBF 20
|
|
BEGIN
|
|
PROMPT 2 10 "C/Contabile "
|
|
FIELD BNP->S4
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 12 "Portafoglio effetti allo sconto"
|
|
END
|
|
|
|
STRING F_CC_SCN 20
|
|
BEGIN
|
|
PROMPT 2 13 "C/C "
|
|
FIELD BNP->S2
|
|
END
|
|
|
|
NUMBER F_FIDO_SCN 20 2
|
|
BEGIN
|
|
PROMPT 45 13 "Fido "
|
|
FIELD BNP->R2
|
|
PICTURE "###.###.###.###,@@"
|
|
END
|
|
|
|
STRING F_CC_CONT_SCN 20
|
|
BEGIN
|
|
PROMPT 2 14 "C/Contabile "
|
|
FIELD BNP->S5
|
|
END
|
|
|
|
BUTTON B_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -11 -1 "~Stampa"
|
|
MESSAGE EXIT,K_SPACE
|
|
PICTURE BMP_PRINT
|
|
PICTURE BMP_PRINT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|