#include <ba3100.h>
#include <batb%ban.h>

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella banche" -1 -1 78 18

NUMBER H_CODICEABI 5
BEGIN
  FLAGS "HRZ"
  USE %BAN SELECT CODTAB[6,10]=""
  INPUT CODTAB[1,5] F_CODICEABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Istituto@50" S0
  OUTPUT F_ISTIT S0
  GROUP GR_SEARCH
END

NUMBER F_CODICEABI 5
BEGIN
  PROMPT 4 1 "Codice ABI     "
  FIELD %BAN->CODTAB[1,5]
  FLAGS "RZ"
  KEY 1
  USE %BAN 
  INPUT CODTAB[1,5] F_CODICEABI
  INPUT CODTAB[6,10] F_CODICECAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODICEABI CODTAB[1,5]
  OUTPUT F_CODICECAB CODTAB[6,10]
  OUTPUT F_DENOM S0
  MESSAGE COPY,H_CODICEABI
END

NUMBER F_CODICECAB 5
BEGIN
  PROMPT 29 1 "Codice CAB  "
  FIELD %BAN->CODTAB[6,10]
  FLAGS "RZ"
  KEY 1     
  COPY ALL F_CODICEABI
  VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
  MESSAGE SHOW,F_ISTIT
  MESSAGE EMPTY HIDE,F_ISTIT
END

NUMBER F_CODICEDIP 4
BEGIN
  PROMPT 52 1 "Codice Dipendenza "
  FIELD %BAN->I0
  FLAGS "RZ"
END

STRING F_ISTIT 50
BEGIN
  PROMPT 4 3 "Istituto       "
  FLAGS "D"
END

STRING F_DENOM 50
BEGIN
  PROMPT 4 5 "Denominazione  "
  FIELD %BAN->S0
  KEY 2
  USE %BAN KEY 2
  INPUT S0 F_DENOM
  DISPLAY "Istituto@50" S0
  DISPLAY "Dipendenza@35" S1
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  COPY OUTPUT F_CODICEABI 
  CHECKTYPE REQUIRED
END

STRING F_INDIRIZZO 35
BEGIN
  PROMPT 4 7 "Indirizzo      "
  FIELD %BAN->S2
END

STRING F_CIV 10
BEGIN
  PROMPT 57 7 "N."
  FIELD %BAN->S7
END

STRING F_COMUNE 4
BEGIN
  PROMPT 4 9 "Comune         "
  FIELD %BAN->S5 
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_COMUNE
#include <comdcod.h>
  OUTPUT F_COMUNE COM
  OUTPUT F_DENCOM DENCOM
  OUTPUT F_PROV PROVCOM
  OUTPUT F_CAP CAPCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING F_DENCOM 50
BEGIN
  PROMPT 4 11 "Denominazione  "
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOM
#include <comdden.h>
  COPY OUTPUT F_COMUNE
  CHECKTYPE NORMAL
END

STRING F_PROV 2
BEGIN
  PROMPT 4 13 "Provincia      "
  FLAGS "D"
END

STRING F_CAP 5
BEGIN
  PROMPT 56 13 "C.A.P.  "
  FIELD %BAN->S3
END

ENDPAGE

ENDMASK