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 "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 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 TO BNP KEY 1 INTO CODTAB=CODTAB
  INPUT CODTAB[1,5] F_ABI
  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 %BAN->S0
  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 TO BNP KEY 1 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" %BAN->S0
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_DENOM %BAN->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 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

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"
END

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

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

STRING F_CC_CONT_SBF 20
BEGIN        
  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"
END

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

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

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

NUMBER F_GRUPPO_SCN 3
BEGIN
  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

ENDMASK