campo-sirio/ba/ba4200b.uml

#include "ba4200.h"

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

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 0 ""
  PICTURE 0
END

BUTTON DLG_EMAIL 2 2
BEGIN
  PROMPT -1 0 "~Posta"
  PICTURE TOOL_EMAIL
END

ENDPAGE 

PAGE "Pag.1" -1 -1 77 19

LIST H_TIPOA 1 6
BEGIN
  PROMPT 1 60 ""
  FIELD LF_ANAG->TIPOA
  FLAGS "DG"
  KEY 1 2 3
  ITEM "F|Fisica"
END

GROUPBOX DLG_NULL 78 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

BUTTON DLG_DITTE 6 1
BEGIN
PROMPT 55 1 "~Ditte"
MESSAGE K_F5
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 16
BEGIN
PROMPT 0 5 "Sesso"
FIELD LF_ANAGFIS->SESSO
HELP "Sesso della persona fisica"
ITEM "M|Maschio"
ITEM "F|Femmina"
END

GROUPBOX DLG_NULL 25 4
BEGIN
PROMPT 17 5 "Partita IVA "
END

STRING FLD_AF1_STATOPAIV 2
BEGIN
  PROMPT 18 6 "Stato  "
  FIELD LF_ANAG->STATOPAIV
  HELP "Codice dello stato cui si riferisce la partita IVA"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB FLD_AF1_STATOPAIV 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_AF1_STATOPAIV CODTAB
  CHECKTYPE NORMAL
END

STRING FLD_AF1_PAIV 12
BEGIN
PROMPT 18 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 "Z"
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 "Nazionalit<69>          "
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 78 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 RUN ba4 -0
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 RUN ba4 -0
END

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

GROUPBOX DLG_NULL 78 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

TEXT -1
BEGIN
  PROMPT 2 18 "Collegamento ad oggetti esterni "
END

GOLEM DLG_OGGETTI 10 2
BEGIN   
  PROMPT 2 19 "~Oggetti"
  FIELD OGGETTI
  FLAG "M"
END

ENDPAGE

PAGE "Pag.2" -1 -1 77 20

GROUPBOX DLG_NULL 78 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 78 7
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

NUMBER F_STATORES 3
BEGIN
PROMPT 2 7 "Comune : Stato  "
FIELD LF_ANAG->STATORES
FLAGS "Z"
COPY USE F_STATO
INPUT CODTAB F_STATORES
COPY DISPLAY F_STATO
OUTPUT F_STATORES CODTAB
HELP "Codice dello stato di residenza"
CHECKTYPE NORMAL
WARNING "Stato assente"
END

STRING FLD_AF1_COMRES 4
BEGIN
PROMPT 9 8 ": Codice "
FIELD LF_ANAG->COMRES
FLAGS "U"
COPY USE FLD_AF1_COMNASC
INPUT STATO F_STATORES
INPUT COM FLD_AF1_COMRES
COPY DISPLAY FLD_AF1_COMNASC
OUTPUT F_STATORES STATO
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 RUN ba4 -0
END

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

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

STRING FLD_AF1_COMRES_COMUNI_DENCOM 50
BEGIN
PROMPT 9 9 ": Denom. "
HELP "Nome del comune di residenza"
USE LF_COMUNI KEY 2
INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM
COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
OUTPUT F_STATORES STATO
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 RUN ba4 -0
END

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

BOOLEAN F_VARSLORES
BEGIN
PROMPT 21 10 "Variata"
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 38 10 "Data variazione     "
FIELD LF_ANAG->DVARSLORES
HELP "Data di variazione della sede legale"
END

GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 0 12 "Domicilio Fiscale (solo se diverso)"
END

STRING FLD_AF2_INDRF 35
BEGIN
PROMPT 2 13 "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 13 "N."
FIELD LF_ANAG->CIVRF
HELP "Inserire il numero civico della domicilio fiscale"
END

STRING FLD_AF2_COMRF 4
BEGIN
PROMPT 2 14 "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 RUN ba4 -0
VALIDATE REQIF_FUNC 1 FLD_AF2_INDRF
END

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

STRING FLD_AF2_CAPRF 5
BEGIN
PROMPT 56 14 "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 15 ": 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 RUN ba4 -0
END

ENDPAGE

PAGE "Pag.3" -1 -1 77 20

GROUPBOX DLG_NULL 78 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 78 7
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

STRING F_LOCCORR 35
BEGIN
PROMPT 2 7 "Localit<69>        "
FIELD LF_ANAG->LOCCORR
HELP "Localit<69> in cui spedire la corrispondenza"
END

NUMBER FLD_AF2_STATOCORR 3
BEGIN
PROMPT 2 8 "Comune : Stato  "
FIELD LF_ANAG->STATOCORR
FLAGS "Z"
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 9 ": 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
CHECKTYPE NORMAL
HELP "Codice del comune al quale spedire la corrispondenza"
ADD RUN ba4 -0
WARNING "Comune assente"
END

STRING FLD_AF2_COMCORR_COMUNI_PROVCOM 5
BEGIN
PROMPT 38 9 "Provincia "
FLAGS "D"
END

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

STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50
BEGIN
PROMPT 9 10 ": Denom. "
HELP "Nome del comune al quale spedire la corrispondenza"
COPY USE FLD_AF1_COMRES_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
CHECKTYPE NORMAL
ADD RUN ba4 -0
END

GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 0 12 "Telefono/Posta"
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 35 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 35 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 35 15 "Numero "
  FIELD LF_ANAG->TLEXRFX
  HELP "Numero del telex"
END

STRING F_MAIL 50
BEGIN
  PROMPT 2 16 "Indirizzo di posta  "
  FIELD MAIL    
END

ENDPAGE

PAGE "Pag.4" -1 -1 77 20

GROUPBOX DLG_NULL 78 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 78 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 78 5
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"
MESSAGE TRUE ENABLE,F_UFFCONC
MESSAGE FALSE CLEAR,F_UFFCONC
MESSAGE FALSE RESET,F_CONFIS
END

LIST F_TIPOSTDEL 12
BEGIN
PROMPT 42 14 "Stampa       "
FIELD LF_ANAG->TIPOSTDEL
HELP "Tipo di documento 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 "Z"
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]
VALIDATE REQIF_FUNC 1 F_CODCAB
WARNING "Codice ABI assente"
// CHECKTYPE NORMAL
END

NUMBER F_CODCAB 5
BEGIN
PROMPT 42 15 "Codice CAB          "
HELP "Codice CAB della banca di appoggio"
FIELD LF_ANAG->CODCAB
FLAGS "Z"
COPY ALL F_CODABI
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_CODABI
WARNING "Codice CAB assente"
END

NUMBER F_UFFCONC 3
BEGIN
PROMPT 2 16 "Conto fiscale    "
FLAGS "Z"
FIELD LF_ANAG->UFFCONC
END

STRING F_CONFIS 16
BEGIN
  PROMPT 24 16 ""
  FLAGS "UD"
END

ENDPAGE

PAGE "Pag.5" -1 -1 77 20

GROUPBOX DLG_NULL 78 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@50"
  INPUT LST_AF4_EVECC
  OUTPUT LST_AF4_EVECC
  ITEM " |Nessuno"
  ITEM "1|Vittime di richieste di natura estorsiva"
  ITEM "3|Residenti a Lampedusa e Linosa nel 2011"
  ITEM "8|Altri eventi eccezionali"
END

BOOLEAN FLD_AF4_RFDIVERSA
BEGIN
  PROMPT 2 7 "Domicilio fiscale diverso da sede legale "
  FIELD LF_ANAG->RFDIVERSA
  HELP "Indicare se il domicilio fiscale <20> diverso della sede legale"
END

STRING F_CODREG96 2
BEGIN
  PROMPT 2 9 "Cod.regione al 1 Gennaio "
  FIELD LF_ANAGFIS->CODREG96
  FLAGS "Z"
  USE %RGI
  INPUT CODTAB F_CODREG96
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODREG96 CODTAB
  OUTPUT F_DESREG96 S0
  CHECKTYPE NORMAL
  WARNING "Regione assente"
END

STRING F_DESREG96 50 40
BEGIN
  PROMPT 33 9 ""
  USE %RGI KEY 2
  INPUT S0 F_DESREG96
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODREG96
  CHECKTYPE NORMAL
  WARNING "Regione assente"
END

STRING F_CAUSQUA 2
BEGIN
  PROMPT 2 11 "Causale quadro LA 770 "
  USE %CA7 SELECT S1="LA"
  INPUT CODTAB F_CAUSQUA
  DISPLAY "Cod." CODTAB 
  DISPLAY "Quadro" S1
  DISPLAY "Descrizione @50" S0
  DISPLAY "Cod.trib." I0
  DISPLAY "Art.bil." I3 
  DISPLAY "C.SC" S2 
  DISPLAY "C.SE" S3 
  DISPLAY "C.SF" S8
  DISPLAY "C.SG" S9
  DISPLAY "T.S." S4
  OUTPUT F_CAUSQUA CODTAB
  CHECKTYPE NORMAL
  FIELD CAUSQUA
END

STRING F_CATPAR 2
BEGIN
  PROMPT 41 11 "Categorie particolari      "
  FIELD CATPAR
  HELP "Puo' assumere i valori da 'A' a 'Z3'"
END

NUMBER F_ESCPRECOMP 1
BEGIN
  PROMPT 41 12 "Esclusione da precompilata "
  SHEET "Codice|Descrizione@50"
  INPUT F_ESCPRECOMP
  OUTPUT F_ESCPRECOMP
  ITEM " | "
  ITEM "2|2"
  HELP "Puo' assumere i valori 1 o 2"
  FIELD ESCPRECOMP
END


GROUPBOX DLG_NULL 78 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 "Pag.6" -1 -1 77 20

GROUPBOX DLG_NULL 78 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 78 10
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_UFFUUE 3
BEGIN
  PROMPT 1 7 "Ufficio unico   "
  FLAGS "ZG"
  FIELD UFFUUE  
  USE %UUE
  INPUT CODTAB F_UFFUUE
  DISPLAY "Ufficio" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_UFFUUE CODTAB
  OUTPUT F_DENUUE S0
  CHECKTYPE NORMAL
  WARNING "Ufficio imposte assente"
  MESSAGE EMPTY ENABLE,5@
  MESSAGE CLEAR,5@| CLEAR,6@
END

STRING F_DENUUE 50 48
BEGIN
  PROMPT 23 7 " "
  FLAGS "D"
END

STRING F_UFFIIDD 3
BEGIN
PROMPT 1 8 "Imposte Dirette "
FIELD LF_ANAG->UFFIIDD
FLAGS "Z"
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"
  GROUP 5
END

STRING F_DENUFFIIDD 50 48
BEGIN
PROMPT 23 8 " "
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
  GROUP 5
END

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

STRING F_UFFIVA 3
BEGIN
PROMPT 1 10 "Ufficio IVA     "
FIELD LF_ANAG->UFFIVA
FLAGS "Z"
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
CHECKTYPE NORMAL
WARNING "Ufficio IVA assente"
  GROUP 5
END

STRING F_DENUFFIVA 50 48
BEGIN
PROMPT 23 10 " "
FLAGS "D"
  GROUP 6
END

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

STRING F_DENUFFREG 50 48
BEGIN
PROMPT 24 11 ""
FLAGS "D"
GROUP 6
END

NUMBER F_UFFCONC_P 3
BEGIN
PROMPT 1 12 "Concessioni     "
FLAGS "DZ"
USE %UCC
INPUT CODTAB F_UFFCONC_P
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_UFFCONC_P CODTAB
OUTPUT F_DENUFFCONC S0
CHECKTYPE NORMAL
  GROUP 6
END

STRING F_DENUFFCONC 50 48
BEGIN
PROMPT 24 12 ""
FLAGS "D"
  GROUP 6
END

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

STRING F_DENUFFSERV 50 48
BEGIN
PROMPT 24 13 ""
FLAGS "D"
  GROUP 6
END

GROUPBOX -1 78 4
BEGIN
PROMPT 0 15 "Codice contribuente"
END

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

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

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

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

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

ENDPAGE

ENDMASK