campo-sirio/ef/batbbnp.uml

//DEFINIZIONE MASCHERA GESTIONE TABELLA BANCHE DI PRESENTAZIONE 
#include "batbbnp.h"

TOOLBAR "" 0 19 0 2
  #include <toolbar.h>
ENDPAGE

PAGE "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 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 BNP->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 BNP->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 5
BEGIN
  PROMPT 1 4 "Portafoglio Effetti all' incasso"
END

STRING F_CC_INC 20
BEGIN        
  PROMPT 2 5 "C/C         "
  FIELD BNP->S0
END

STRING F_CC_CONT_INC 20
BEGIN        
  PROMPT 2 6 "C/Contabile "
  FIELD BNP->S3
END

NUMBER F_GRUPPO_INC 3
BEGIN
  PROMPT 2 7 "Contropartita "
  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

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 "Portafoglio Effetti salvo buon fine"
END

STRING F_CC_SBF 20
BEGIN        
  PROMPT 2 10 "C/C         "
  FIELD BNP->S1
END                               

NUMBER F_FIDO_SBF 20 2 
BEGIN        
  PROMPT 38 10 "Fido "
  FIELD BNP->R1
  PICTURE "###.###.###.###,@@"
END

STRING F_CC_CONT_SBF 20
BEGIN        
  PROMPT 2 11 "C/Contabile "
  FIELD BNP->S4
END

NUMBER F_GRUPPO_SBF 3
BEGIN
  PROMPT 2 12 "Contropartita "
  FIELD I3
  CHECKTYPE NORMAL
END

NUMBER F_CONTO_SBF 3
BEGIN
  PROMPT  21 12 ""
  FIELD I4
  CHECKTYPE NORMAL
END

NUMBER F_SOTTOC_SBF 6
BEGIN
  PROMPT  28 12 ""
  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 12 ""
  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 14 "Portafoglio Effetti allo sconto"
END

STRING F_CC_SCN 20
BEGIN        
  PROMPT 2 15 "C/C         "
  FIELD BNP->S2
END

NUMBER F_FIDO_SCN 20 2 
BEGIN        
  PROMPT 38 15 "Fido "
  FIELD BNP->R2
  PICTURE "###.###.###.###,@@"
END

STRING F_CC_CONT_SCN 20
BEGIN        
  PROMPT 2 15 "C/Contabile "
  FIELD BNP->S5
END

NUMBER F_GRUPPO_SCN 3
BEGIN
  PROMPT 2 17 "Contropartita "
  FIELD I6
  CHECKTYPE NORMAL
END

NUMBER F_CONTO_SCN 3
BEGIN
  PROMPT 21 17 ""
  FIELD I7
  CHECKTYPE NORMAL
END

NUMBER F_SOTTOC_SCN 6
BEGIN
  PROMPT 28 17 ""
  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 17 ""
  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 19 "Tracciato SETIF" 
  FIELD B0
END

ENDPAGE

ENDMASK