#include "cgtbbnp.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Banche di Presentazione" 0 2 0 0

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
  MESSAGE COPY,F_BBAN_ABI
  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
  MESSAGE COPY,F_BBAN_CAB
  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 3
BEGIN
  PROMPT 1 4 "@bConto Corrente"
END

STRING F_IBAN 34
BEGIN
  PROMPT 2 55 ""
  FLAGS "D"
  FIELD S3
END

STRING F_IBAN_STATO 2
BEGIN
  PROMPT 2 5 "Codice IBAN "
  FLAGS "U"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

NUMBER F_IBAN_CHECK 2
BEGIN
  PROMPT 19 5 ""
  FLAGS "UZ"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

STRINGA F_BBAN 30
BEGIN
  PROMPT 30 5 "BBAN "
  FLAGS "UH"
END

STRINGA F_BBAN_CIN 1
BEGIN
  PROMPT 30 5 "BBAN "
  FLAGS "U"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

NUMBER F_BBAN_ABI 5
BEGIN
  PROMPT 38 5 ""
  FLAGS "DGZ"
END

NUMBER F_BBAN_CAB 5
BEGIN
  PROMPT 45 5 ""
  FLAGS "DGZ"
END

STRING F_BBAN_CONTO 12
BEGIN
  PROMPT 52 5 ""
  FLAGS "UZ"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 7 "@bPortafoglio Effetti all'incasso"
END

STRING F_CC_INC 20
BEGIN        
  PROMPT 2 8 "C/C           "
  FIELD S0
END

NUMBER F_GRUPPO_INC 3
BEGIN
  PROMPT 2 9 "Conto attivi  "
  FIELD I0
  CHECKTYPE NORMAL
END

NUMBER F_CONTO_INC 3
BEGIN
  PROMPT  21 9 ""
  FIELD I1
  CHECKTYPE NORMAL
END

NUMBER F_SOTTOC_INC 6
BEGIN
  PROMPT  28 9 ""
  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 9 ""
  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 10 "Conto addebito "
  FIELD I9
  CHECKTYPE NORMAL
END

NUMBER F_CONTO_INCP 3
BEGIN
  PROMPT  21 10 ""
  FIELD I10
  CHECKTYPE NORMAL
END

NUMBER F_SOTTOC_INCP 6
BEGIN
  PROMPT  28 10 ""
  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 10 ""
  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 4
BEGIN
  PROMPT 1 12 "@bPortafoglio Effetti salvo buon fine"
END

STRING F_CC_SBF 20
BEGIN        
  PROMPT 2 13 "C/C           "
  FIELD S1
END                               

NUMBER F_FIDO_SBF 20 2 
BEGIN        
  PROMPT 38 13 "Fido "
  FIELD R1
  PICTURE "###.###.###.###,@@"
END

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

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

NUMBER F_SOTTOC_SBF 6
BEGIN
  PROMPT  28 14 ""
  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 14 ""
  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 4
BEGIN
  PROMPT 1 16 "@bPortafoglio Effetti allo sconto"
END

STRING F_CC_SCN 20
BEGIN        
  PROMPT 2 17 "C/C           "
  FIELD S2
END

NUMBER F_FIDO_SCN 20 2 
BEGIN        
  PROMPT 38 17 "Fido "
  FIELD R2
  PICTURE "###.###.###.###,@@"
END

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

NUMBER F_CONTO_SCN 3
BEGIN
  PROMPT 20 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

ENDPAGE

PAGE "Paramteri Distinte" 0 -1 77 20

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bParametri emissione distinte su file"
END

BOOLEAN F_CBI 
BEGIN
  PROMPT 2 2 "Utilizza tracciato SETIF" 
  FIELD B0
END

BOOLEAN F_IBAN_PAG
BEGIN
  PROMPT 2 3 "Genera IBAN su distinte di pagamento"
  FIELD B1
END

BOOLEAN F_IBAN_INC
BEGIN
  PROMPT 2 4 "Genera IBAN su distinte di incasso"
  FIELD B2
END

ENDPAGE

ENDMASK