campo-sirio/ba/ba4200b.uml

#include "ba4200.h"

TOOLBAR "" 0 19 0 3


BUTTON DLG_CHGTIP 21 1
BEGIN
  PROMPT -13 -3 "Persone Giuridiche"
  MESSAGE K_F10
END

BUTTON DLG_DITTE 8 1
BEGIN
  PROMPT -36 -3 "Ditte"
  MESSAGE K_F5
END

#include <toolbar.h>

ENDPAGE

PAGE "Anagrafica persone fisiche" -1 -1 77 20

LIST DLG_NULL 1
BEGIN
  PROMPT 0 0 ""
  FIELD LF_ANAG->TIPOA
  FLAGS "HG"
  KEY 1 2 3
  ITEM "F|Fisica"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 0 "Persone fisiche"
  FLAGS "RG"
END

NUMBER FLD_CODANAGR 5
BEGIN
  PROMPT 2 1 "Codice          "
  FIELD LF_ANAG->CODANAGR
  HELP "Codice assegnato alla persona fisica"
  FLAGS "RG"
  KEY 1
  USE LF_ANAG
  INPUT TIPOA "F"
  INPUT CODANAGR FLD_CODANAGR
  DISPLAY "Codice" CODANAGR
  DISPLAY "Cognome@30" RAGSOC[1,30]
  DISPLAY "Nome@20" RAGSOC[31,0]
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT FLD_CODANAGR CODANAGR
  OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30]
  OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0]
  OUTPUT FLD_AF1_COFI COFI
  MESSAGE COPY,1@
  CHECKTYPE REQUIRED
END

STRING FLD_ANAG_RAGSOC1 30
BEGIN
  PROMPT 2 2 "Cognome         "
  FIELD LF_ANAG->RAGSOC[1,30]
  KEY 2
  USE LF_ANAG KEY 2
  INPUT TIPOA "F"
  INPUT RAGSOC[1,30] FLD_ANAG_RAGSOC1
//  INPUT RAGSOC[31,] FLD_ANAG_RAGSOC2
  DISPLAY "Cognome@30" RAGSOC[1,30]
  DISPLAY "Nome@20" RAGSOC[31,0]
  DISPLAY "Codice" CODANAGR
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT FLD_CODANAGR CODANAGR
  OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30]
  OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0]
  OUTPUT FLD_AF1_COFI COFI
  HELP "Cognome della persona fisica"
  MESSAGE COPY,2@
  CHECKTYPE REQUIRED
  WARNING "Inserire il cognome"
END

STRING FLD_ANAG_RAGSOC2 20
BEGIN
  PROMPT 2 3 "Nome            "
  FIELD LF_ANAG->RAGSOC[31,0]
  KEY 2
  HELP "Nome della persona fisica"
  MESSAGE COPY,3@
  CHECKTYPE REQUIRED
END

RADIOBUTTON LST_AF1_SESSO 1 13
BEGIN
  PROMPT 0 5 "Sesso"
  FIELD LF_ANAGFIS->SESSO
  HELP "Sesso della persona fisica"
  ITEM "M|Maschio"
  ITEM "F|Femmina"
END

GROUPBOX DLG_NULL 30 4
BEGIN
  PROMPT 13 5 "Partita IVA "
END

LIST FLD_AF1_STATOPAIV 18
BEGIN
  PROMPT 14 6 "Stato  "
  FIELD LF_ANAG->STATOPAIV
  HELP "Codice dello stato cui si riferisce la partita IVA"
  ITEM "  |Italia o extra CEE"
  ITEM "BE|Belgio"
  ITEM "DE|Germania"
  ITEM "DK|Danimarca"
  ITEM "EL|Grecia"
  ITEM "ES|Spagna"
  ITEM "FR|Francia"
  ITEM "GB|Gran Bretagna"
  ITEM "IE|Irlanda"
  ITEM "IT|Italia"
  ITEM "LU|Lussemburgo"
  ITEM "NL|Olanda"
  ITEM "PT|Portogallo"
END

STRING FLD_AF1_PAIV 12
BEGIN
  PROMPT 14 7 "Codice "
  FIELD LF_ANAG->PAIV
  HELP "Partita IVA della persona"
  VALIDATE XTZPI_FUNC FLD_AF1_STATOPAIV FLD_AF2_COMRF  FLD_AF1_COMRES
END

NUMBER F_STATO 3
BEGIN
  PROMPT 44 5 "Stato                       "
  FIELD LF_ANAGFIS->STATO
  FLAGS "RZ"
  USE %STA
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_STATO CODTAB
  OUTPUT FLD_AF1_STATONASC_TABSTE_S0 S2
  HELP "Codice dello stato della persona fisica"
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING FLD_AF1_STATONASC_TABSTE_S0 10
BEGIN
  PROMPT 44 6 "Nazionalita'         "
  FIELD LF_ANAGFIS->NAZION
  FLAGS "D"
  HELP "Nazione di appartenenza della persona fisica"
END

STRING FLD_AF1_COFI 16
BEGIN
  PROMPT 44 7 "Codice fiscale "
  FIELD LF_ANAG->COFI
  FLAGS "U"
  KEY 3
  USE LF_ANAG KEY 3
  INPUT TIPOA "F"
  INPUT COFI FLD_AF1_COFI
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Cognome@30" RAGSOC[1,30]
  DISPLAY "Nome@20" RAGSOC[31,0]
  DISPLAY "Codice" CODANAGR
  OUTPUT FLD_CODANAGR CODANAGR
  OUTPUT FLD_AF1_COFI COFI
  OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30]
  OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0]
  HELP "Codice fiscale della persona fisica"
  CHECKTYPE REQUIRED
  VALIDATE XTCF_FUNC FLD_AF1_STATOPAIV LST_AF1_SESSO FLD_AF1_DATANASC FLD_AF1_COMNASC 
END

STRING F_COFIEST 20
BEGIN
  PROMPT 44 8 "C.F.estero "
  FLAGS "U"
  FIELD LF_ANAG->COFIEST
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 9 "Dati di nascita"
END

DATE FLD_AF1_DATANASC
BEGIN
  PROMPT 2 10 "Data            "
  FIELD LF_ANAGFIS->DATANASC
  HELP "Data di nascita della persona fisica"
  WARNING "La data di nascita e' obbligatoria"
  CHECKTYPE REQUIRED
END

STRING FLD_AF1_COMNASC 4
BEGIN
  PROMPT 2 11 "Comune : Codice "
  FIELD LF_ANAGFIS->COMNASC
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM FLD_AF1_COMNASC
#include <comdcod.h>
  OUTPUT FLD_AF1_COMNASC COM
  OUTPUT FLD_AFIS_COMNASC_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AFIS_COMNASC_COMUNI_PROV PROVCOM
  HELP "Codice del comune di nascita della persona fisica"
  CHECKTYPE REQUIRED
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING FLD_AFIS_COMNASC_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 12 ": Denom. "
  HELP "Nome del comune di nascita della persona fisica"
  USE LF_COMUNI KEY 2 SELECT STATO==""
  INPUT DENCOM FLD_AFIS_COMNASC_COMUNI_DENCOM
#include <comdden.h>
  COPY OUTPUT FLD_AF1_COMNASC
  ADD MASK ba4100a
END

STRING FLD_AFIS_COMNASC_COMUNI_PROV 5
BEGIN
  PROMPT 2 13 "Provincia       "
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 0 15 "Ultimo aggiornamento"
END

DATE FLD_ANAG_DATAAGG
BEGIN
  PROMPT 2 16 "Data "
  FIELD LF_ANAG->DATAAGG
  FLAGS "DA"
END

STRING FLD_ANAG_UTAGG 10
BEGIN
  PROMPT 56 16 "Utente "
  FLAGS "D"
END

ENDPAGE

PAGE "Anagrafica persone fisiche" -1 -1 77 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 0 "Persone fisiche"
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Codice          "
  FIELD LF_ANAGFIS->CODANAGR
  FLAGS "DR"
  GROUP 1
END

STRING DLG_NULL 30
BEGIN
  PROMPT 2 2 "Cognome         "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 20
BEGIN
  PROMPT 2 3 "Nome            "
  FLAGS "D"
  GROUP 3
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 5 "Residenza"
END

STRING FLD_AF1_INDRES 35
BEGIN
  PROMPT 2 6 "Indirizzo       "
  FIELD LF_ANAG->INDRES
  HELP "Indirizzo della residenza"
  WARNING "Completare l'indirizzo di residenza"
//  VALIDATE REQIF_FUNC 1 FLD_AF1_COMRES
  CHECKTYPE REQUIRED
END

STRING FLD_AF1_CIVRES 10
BEGIN
  PROMPT 56 6 "N."
  FIELD LF_ANAG->CIVRES
  HELP "Numero civico della residenza"
END

STRING FLD_AF1_COMRES 4
BEGIN
  PROMPT 2 7 "Comune : Codice "
  FIELD LF_ANAG->COMRES
  FLAGS "U"
  COPY USE FLD_AF1_COMNASC
  INPUT STATO ""
  INPUT COM FLD_AF1_COMRES
  COPY DISPLAY FLD_AF1_COMNASC
  OUTPUT FLD_AF1_COMRES COM
  OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_ANAG_CAPRES CAPCOM
  HELP "Codice del comune di residenza"
  CHECKTYPE REQUIRED
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING FLD_AF1_COMRES_COMUNI_PROVCOM 5
BEGIN
  PROMPT 38 7 "Provincia "
  FLAGS "D"
END

STRING FLD_ANAG_CAPRES 5
BEGIN
  PROMPT 56 7 "CAP    "
  FIELD LF_ANAG->CAPRES
  HELP "CAP del comune di residenza"
END

STRING FLD_AF1_COMRES_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 8 ": Denom. "
  HELP "Nome del comune di residenza"
  COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
  INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM
  COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
  OUTPUT FLD_AF1_COMRES COM
  OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_ANAG_CAPRES CAPCOM
  ADD MASK ba4100a
END

BOOLEAN CHK_AF4_SOGGNRES
BEGIN
  PROMPT 2 9 "Non residente"
  FIELD LF_ANAG->SOGGNRES
  HELP "Dire se si tratta di persone non residente"
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 11 "Domicilio Fiscale (solo se diverso)"
END

STRING FLD_AF2_INDRF 35
BEGIN
  PROMPT 2 12 "Indirizzo       "
  FIELD LF_ANAG->INDRF
  HELP "Inserire l'indirizzo del domicilio fiscale"
  WARNING "Completare l'indirizzo di domicilio fiscale"
  VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF
END

STRING FLD_AF2_CIVRF 10
BEGIN
  PROMPT 56 12 "N."
  FIELD LF_ANAG->CIVRF
  HELP "Inserire il numero civico della domicilio fiscale"
END

STRING FLD_AF2_COMRF 4
BEGIN
  PROMPT 2 13 "Comune : Codice "
  FIELD LF_ANAG->COMRF
  FLAGS "U"
  COPY USE FLD_AF1_COMNASC
  INPUT STATO ""
  INPUT COM FLD_AF2_COMRF
  COPY DISPLAY FLD_AF1_COMNASC
  OUTPUT FLD_AF2_COMRF COM
  OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AF2_CAPRF CAPCOM
  HELP "Inserire il codice del comune di domicilio fiscale"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5
BEGIN
  PROMPT 38 13 "Provincia "
  FLAGS "D"
END

STRING FLD_AF2_CAPRF 5
BEGIN
  PROMPT 56 13 "CAP    "
  FIELD LF_ANAG->CAPRF
  HELP "Inserire il CAP del comune di domicilio fiscale"
END

STRING FLD_AF2_COMRF_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 14 ": Denom. "
  HELP "Nome del comune di residenza fiscale"
  COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
  INPUT DENCOM FLD_AF2_COMRF_COMUNI_DENCOM
  COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
  OUTPUT FLD_AF2_COMRF COM
  OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AF2_CAPRF CAPCOM
  ADD MASK ba4100a
END

ENDPAGE

PAGE "Anagrafica persone fisiche" -1 -1 77 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 0 "Persone fisiche"
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Codice          "
  FIELD LF_ANAGFIS->CODANAGR
  FLAGS "DR"
  GROUP 1
END

STRING DLG_NULL 30
BEGIN
  PROMPT 2 2 "Cognome         "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 20
BEGIN
  PROMPT 2 3 "Nome            "
  FLAGS "D"
  GROUP 3
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 5 "Corrispondenza"
END

STRING FLD_AF2_INDCORR 35
BEGIN
  PROMPT 2 6 "Indirizzo       "
  FIELD LF_ANAG->INDCORR
  HELP "Indirizzo al quale spedire la corrispondenza"
  WARNING "Completare l'indirizzo di corrispondenza"
  VALIDATE EMPTYCOPY_FUNC FLD_AF1_INDRES
END

STRING FLD_AF2_CIVCORR 10
BEGIN
  PROMPT 56 6 "N."
  FIELD LF_ANAG->CIVCORR
  HELP "Numero civico al quale spedire la corrispondenza"
  VALIDATE EMPTYCOPY_FUNC FLD_AF1_CIVRES
END

NUMBER FLD_AF2_STATOCORR 3
BEGIN
  PROMPT 2 7 "Comune : Stato  "
  FIELD LF_ANAG->STATOCORR
  FLAGS "RZ"
  COPY USE F_STATO
  INPUT CODTAB FLD_AF2_STATOCORR
  COPY DISPLAY F_STATO
  OUTPUT FLD_AF2_STATOCORR CODTAB
  HELP "Codice dello stato al quale spedire la corrispondenza"
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING FLD_AF2_COMCORR 4
BEGIN
  PROMPT 9 8 ": Codice "
  FIELD LF_ANAG->COMCORR
  FLAGS "U"
  COPY USE FLD_AF1_COMNASC
  INPUT STATO FLD_AF2_STATOCORR
  INPUT COM FLD_AF2_COMCORR
  COPY DISPLAY FLD_AF1_COMNASC
  OUTPUT FLD_AF2_STATOCORR STATO
  OUTPUT FLD_AF2_COMCORR COM
  OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AF2_CAPCORR CAPCOM
  HELP "Codice del comune al quale spedire la corrispondenza"
  CHECKTYPE NORMAL
  ADD MASK ba4100a
  VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES
  WARNING "Comune assente"
END

STRING FLD_AF2_COMCORR_COMUNI_PROVCOM 5
BEGIN
  PROMPT 38 8 "Provincia "
  FLAGS "D"
  VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_PROVCOM
END

STRING FLD_AF2_CAPCORR 5
BEGIN
  PROMPT 56 8 "CAP    "
  FIELD LF_ANAG->CAPCORR
  HELP "CAP del comune al quale spedire la corrispondenza"
  VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES
END

STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 9 ": Denom. "
  HELP "Nome del comune al quale spedire la corrispondenza"
  COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
  INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM
  COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
  OUTPUT FLD_AF2_STATOCORR STATO
  OUTPUT FLD_AF2_COMCORR COM
  OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AF2_CAPCORR CAPCOM
  ADD MASK ba4100a
  VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_DENCOM
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 12 "Telefoni"
END

STRING FLD_AF2_PTELRF 10
BEGIN
  PROMPT 2 13 "Telefono : Prefisso "
  FIELD LF_ANAG->PTELRF
  HELP "Prefisso del numero di telefono"
END

STRING FLD_AF2_TELRF 30
BEGIN
  PROMPT 36 13 "Numero "
  FIELD LF_ANAG->TELRF
  HELP "Numero di telefono"
END

STRING FLD_AF2_PFAXRF 10
BEGIN
  PROMPT 2 14 "Telefax  : Prefisso "
  FIELD LF_ANAG->PFAXRF
  HELP "Prefisso del FAX"
END

STRING FLD_AF2_FAXRF 30
BEGIN
  PROMPT 36 14 "Numero "
  FIELD LF_ANAG->FAXRF
  HELP "Numero del FAX"
END

STRING FLD_AF2_PTLEXRF 10
BEGIN
  PROMPT 2 15 "Telex    : Prefisso "
  FIELD LF_ANAG->PTLEXRF
  HELP "Prefisso del telex"
END

STRING FLD_AF2_TLEXRF 30
BEGIN
  PROMPT 36 15 "Numero "
  FIELD LF_ANAG->TLEXRFX
  HELP "Numero del telex"
END

ENDPAGE

PAGE "Anagrafica persone fisiche" -1 -1 77 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 0 "Persone fisiche"
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Codice          "
  FIELD LF_ANAGFIS->CODANAGR
  FLAGS "DR"
  GROUP 1
END

STRING DLG_NULL 30
BEGIN
  PROMPT 2 2 "Cognome         "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 20
BEGIN
  PROMPT 2 3 "Nome            "
  FLAGS "D"
  GROUP 3
END

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 0 5 "Dati personali"
END

LIST LST_AF3_TITSTU 18
BEGIN
  PROMPT 2 6 "Titolo Studio   "
  FIELD LF_ANAGFIS->TITSTU
  HELP "Tipo di titolo di studio posseduto"
  ITEM "1|Nessuno"
  ITEM "2|Licenza elementare"
  ITEM "3|Licenza media"
  ITEM "4|Diploma"
  ITEM "5|Laurea"
END

LIST LST_AF3_STATCIV 20
BEGIN
  PROMPT 2 7 "Stato civile    "
  FIELD LF_ANAGFIS->STATCIV
  HELP "Stato civile della persona fisica"
  ITEM "1|Celibe/Nubile"
  MESSAGE DISABLE,4@|RESET,4@
  ITEM "2|Coniugato/a"
  MESSAGE ENABLE,4@
  ITEM "3|Vedovo/a"
  MESSAGE ENABLE,4@
  ITEM "4|Separato/a"
  MESSAGE ENABLE,4@
  ITEM "5|Divorziato/a"
  MESSAGE DISABLE,4@|RESET,4@
  ITEM "6|Deceduto/a"
  MESSAGE ENABLE,4@
  ITEM "7|Tutelato/a"
  MESSAGE ENABLE,4@
  ITEM "8|Figlio/a minore"
  MESSAGE DISABLE,4@|RESET,4@
END

DATE FLD_AF3_DVARSCIV
BEGIN
  PROMPT 42 7 "Data variazione "
  FIELD LF_ANAGFIS->DVARSCIV
  HELP "Data di variazione dello stato civile"
END

NUMBER FLD_AF1_CODCONIUGE 5
BEGIN
  PROMPT 2 8 "Coniuge: Codice "
  FIELD LF_ANAGFIS->CODCONIUGE
  FLAGS "R"
  GROUP 4
  COPY USE FLD_CODANAGR
  INPUT TIPOA "F"
  INPUT CODANAGR FLD_AF1_CODCONIUGE
  DISPLAY "Codice" CODANAGR
  DISPLAY "Cognome e Nome@50" RAGSOC
  OUTPUT FLD_AF1_CODCONIUGE CODANAGR
  OUTPUT FLD_AF1_CODCONIUGE_ANAGR_RAGSOC RAGSOC
  HELP "Codice dell'anagrafica del coniuge"
  CHECKTYPE NORMAL
END

STRING FLD_AF1_CODCONIUGE_ANAGR_RAGSOC 50
BEGIN
  PROMPT 9 9 ": Nome   "
  HELP "Nome del coniuge"
  GROUP 4
  COPY USE FLD_ANAG_RAGSOC1
  INPUT TIPOA "F"
  INPUT RAGSOC FLD_AF1_CODCONIUGE_ANAGR_RAGSOC
  DISPLAY "Cognome e Nome@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT FLD_AF1_CODCONIUGE
  CHECKTYPE NORMAL
END

BOOLEAN CHK_AF3_SAUB
BEGIN
  PROMPT 2 10 "Soggetto SAUB"
  FIELD LF_ANAGFIS->SAUB
  HELP "Iscrizione al servizio sanitario nazionale"
END

LIST LST_AF3_CPARTRF 28
BEGIN
  PROMPT 2 11 "Casi Particolari Domicilio Fiscale   "
  FIELD LF_ANAGFIS->CPARTRF
  ITEM "1|Nessuno"
  ITEM "2|Residente all'estero"
  ITEM "3|Provvedimento amministrativo"
  ITEM "4|Variato da meno di 60gg"
  HELP "Soggetto a a casi particolari di residenza fiscale"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 13 "Dati conto fiscale"
END

BOOLEAN F_TITCF
BEGIN
  PROMPT 2 14 "Titolare conto fiscale"
  FIELD LF_ANAG->TITCF
  HELP "La persona e' titolare di un conto corrente fiscale"
END

LIST F_TIPOSTDEL 12
BEGIN
  PROMPT 42 14 "Stampa       "
  HELP "Tipo di stampa per la regolazione del contenzioso fiscale"
  FIELD LF_ANAG->TIPOSTDEL
  HELP "Tipo di ducumento da stampare"
  ITEM "0|Delega"
  ITEM "2|Distinta"
  ITEM "1|Bollettino"
END

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 15 "Codice ABI       "
  HELP "Codice ABI della banca di appoggio"
  FIELD LF_ANAG->CODABI
  FLAGS "RZ"
  USE %BAN
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 42 15 "Codice CAB          "
  HELP "Codice CAB della banca di appoggio"
  FIELD LF_ANAG->CODCAB
  FLAGS "RZ"
  COPY ALL F_CODABI
END

ENDPAGE

PAGE "Anagrafica persone fisiche" -1 -1 77 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 0 "Persone fisiche"
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Codice          "
  FIELD LF_ANAGFIS->CODANAGR
  FLAGS "DR"
  GROUP 1
END

STRING DLG_NULL 30
BEGIN
  PROMPT 2 2 "Cognome         "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 20
BEGIN
  PROMPT 2 3 "Nome            "
  FLAGS "D"
  GROUP 3
END

BOOLEAN CHK_AF4_RESZTERR
BEGIN
  PROMPT 2 5 "Residenza in zone terremotate"
  FIELD LF_ANAG->RESZTERR
  HELP "Residenza della persona fisica in zona dichiarate terremotate"
END

NUMBER LST_AF4_EVECC 1
BEGIN
  PROMPT 36 5 "Eventi di natura eccezionale       "
  HELP "Codice degli eventi di natura eccezionale"
  FIELD LF_ANAG->EVECC
  SHEET "Codice|Descrizione@70"
  INPUT LST_AF4_EVECC
  OUTPUT LST_AF4_EVECC
  ITEM " |Nessuno"
  ITEM "1|Eventi criminosi RM FI 1993"
  ITEM "2|Sisma Dicembre 1990 in Sicilia"
  ITEM "3|Richieste di natura estorsiva"
  ITEM "4|Interventi urgenti in Liguria e Toscana per avversita' atmosferiche"
END

BOOLEAN F_VARSLORES
BEGIN
  PROMPT 2 7 "Domicilio Fiscale variato"
  FIELD LF_ANAG->VARSLORES
  HELP "Indicare se e' stata variata la sede legale"
  MESSAGE FALSE CLEAR,F_DVARSLORES
  MESSAGE TRUE ENABLE,F_DVARSLORES
END

DATE F_DVARSLORES
BEGIN
  PROMPT 36 7 "Data variazione           "
  FIELD LF_ANAG->DVARSLORES
  HELP "Data di variazione della sede legale o residenza"
END

BOOLEAN FLD_AF4_RFDIVERSA 
BEGIN
  PROMPT 2 9 "Domicilio fiscale diverso da sede legale "
  FIELD LF_ANAG->RFDIVERSA
  HELP "Dire se il domicilio fiscale e' diverso della sede legale"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 13 "Codici statistici"
END

STRING FLD_AF5_CODSTAT1 7
BEGIN
  PROMPT 2 14 "1  "
  FIELD LF_ANAG->CODSTAT1
  USE %STT
  INPUT CODTAB FLD_AF5_CODSTAT1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_AF5_CODSTAT1 CODTAB
  OUTPUT FLD_AF5_CODSTAT1_TABSTT_S0 S0
  HELP "Numero del primo codice statistico"
  CHECKTYPE NORMAL
  WARNING "Codice assente"
END

STRING FLD_AF5_CODSTAT1_TABSTT_S0 57
BEGIN
  PROMPT 16 14 ""
  FLAGS "D"
END

STRING FLD_AF5_CODSTAT2 7
BEGIN
  PROMPT 2 15 "2  "
  FIELD LF_ANAG->CODSTAT2
  COPY USE FLD_AF5_CODSTAT1
  INPUT CODTAB FLD_AF5_CODSTAT2
  COPY DISPLAY FLD_AF5_CODSTAT1
  OUTPUT FLD_AF5_CODSTAT2 CODTAB
  OUTPUT FLD_AF5_CODSTAT2_TABSTT_S0 S0
  HELP "Numero del secondo codice statistico"
  CHECKTYPE NORMAL
  WARNING "Codice assente"
END

STRING FLD_AF5_CODSTAT2_TABSTT_S0 57
BEGIN
  PROMPT 16 15 ""
  FLAGS "D"
END

STRING FLD_AF5_CODSTAT3 7
BEGIN
  PROMPT 2 16 "3  "
  FIELD LF_ANAG->CODSTAT3
  COPY USE FLD_AF5_CODSTAT1
  INPUT CODTAB FLD_AF5_CODSTAT3
  COPY DISPLAY FLD_AF5_CODSTAT1
  OUTPUT FLD_AF5_CODSTAT3 CODTAB
  OUTPUT FLD_AF5_CODSTAT3_TABSTT_S0 S0
  HELP "Numero del terzo codice statistico"
  CHECKTYPE NORMAL
  WARNING "Codice assente"
END

STRING FLD_AF5_CODSTAT3_TABSTT_S0 57
BEGIN
  PROMPT 16 16 ""
  FLAGS "D"
END

ENDPAGE


PAGE "Anagrafica persone fisiche" -1 -1 77 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 0 "Persone fisiche"
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Codice          "
  FIELD LF_ANAGFIS->CODANAGR
  FLAGS "DR"
  GROUP 1
END

STRING DLG_NULL 30
BEGIN
  PROMPT 2 2 "Cognome         "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 20
BEGIN
  PROMPT 2 3 "Nome            "
  FLAGS "D"
  GROUP 3
END

GROUPBOX DLG_NULL 76 9
BEGIN
  PROMPT 0 5 "Uffici competenti"
END

STRING F_IMP_DENCOM 50
BEGIN
  PROMPT 1 6 "Comune "
  FLAGS "D"
END

STRING F_IMP_PROVCOM 5
BEGIN
  PROMPT 62 6 "Prov."
  FLAGS "D"
END

STRING F_UFFIIDD 3
BEGIN
  PROMPT 1 7 "Imposte Dirette "
  FIELD LF_ANAG->UFFIIDD 
  FLAGS "RZ"
  USE %UID
  INPUT CODTAB F_UFFIIDD
  DISPLAY "Ufficio" CODTAB
  DISPLAY "Denominazione@50" S0
  DISPLAY "C.C.@8" S4
  OUTPUT F_UFFIIDD CODTAB
  OUTPUT F_DENUFFIIDD S0
  OUTPUT F_CC_ESATTORIA S4
  HELP "Numero dell'ufficio delle imposte dirette competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio imposte assente"
END

STRING F_DENUFFIIDD 50 48
BEGIN
  PROMPT 23 7 " "
  HELP "Descrizione dell'ufficio delle imposte dirette competente"
  USE %UID KEY 2
  INPUT S0 F_DENUFFIIDD
  DISPLAY "Denominazione@50" S0
  DISPLAY "Ufficio" CODTAB
  DISPLAY "C.C.@8" S4
  COPY OUTPUT F_UFFIIDD
END

STRING F_NISCRIIDD 10
BEGIN
  PROMPT 1 8 "N.ro iscrizione "
  FIELD LF_ANAG->NISCRIIDD
END

STRING F_UFFIVA 3
BEGIN
  PROMPT 1 9 "Ufficio IVA     "
  FLAGS "RZ"
  USE %UIV
  INPUT CODTAB F_UFFIVA
  DISPLAY "Ufficio" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_UFFIVA CODTAB
  OUTPUT F_DENUFFIVA S0
  OUTPUT F_CC_ESATTORIA S4
  HELP "Numero dell'ufficio delle imposte dirette competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio imposte assente"
END

STRINF F_DENUFFIVA 50 48
BEGIN
  PROMPT 23 9 " "
  FLAGS "D"
END

STRING F_UFFREG 3
BEGIN
  PROMPT 1 10 "Registro        "
  USE %URE
  INPUT CODTAB F_UFFREG
  OUTPUT F_UFFREG CODTAB
  OUTPUT F_DENUFFREG S0
  CHECKTYPE NORMAL
  FLAGS "UDG"
END

STRING F_DENUFFREG 50 48
BEGIN
  PROMPT 24 10 ""
  FLAGS "D"
END

NUMBER F_UFFCONC 3
BEGIN
  PROMPT 1 11 "Concessioni     "
  FLAGS "DRZG"
  USE %UCC
  INPUT CODTAB F_UFFCONC
  OUTPUT F_UFFCONC CODTAB
  OUTPUT F_DENUFFCONC S0
  CHECKTYPE NORMAL
END

STRING F_DENUFFCONC 50 48
BEGIN
  PROMPT 24 11 ""
  FLAGS "D"
END

NUMBER F_UFFSERV 3
BEGIN
  PROMPT 1 12 "Centro Servizi  "
  FLAGS "DRZG"
  USE %UCS
  INPUT CODTAB F_UFFSERV
  OUTPUT F_UFFSERV CODTAB
  OUTPUT F_DENUFFSERV S0
  CHECKTYPE NORMAL
END

STRING F_DENUFFSERV 50 48
BEGIN
  PROMPT 24 12 ""
  FLAGS "D"
END

GROUPBOX -1 76 4
BEGIN
  PROMPT 0 14 "Codice contribuente"
END

STRING F_CODCONTR_EP 2
BEGIN
  PROMPT 1 15 "Esattoria Prov."
  FIELD CODCONTR[1,2]
  FLAGS "D"
END

STRING F_CODCONTR_EC 3
BEGIN
  PROMPT 23 15 "Esattoria Com."
  FIELD CODCONTR[3,5]
  FLAGS "D"
END

STRING F_CODCONTR 8
BEGIN
  PROMPT 46 15 "Codice "
  FIELD CODCONTR[6,13]
  HELP "Codice assegnato al contribuente"
END

STRING F_CODCONTR_CC 2
BEGIN
  PROMPT 66 15 "C.c."
  FIELD CODCONTR[14,15]
  HELP "Codice assegnato al contribuente"
END

STRING F_CC_ESATTORIA 8
BEGIN
  PROMPT 1 16 "C/C Esattoria  "
  FLAGS "D"
END

ENDPAGE

ENDMASK