//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
