campo-sirio/ba/ba4200c.uml

#include "ba4200.h"

TOOLBAR "" 0 19 0 3 

BUTTON DLG_CHGTIP 21 1
BEGIN
  PROMPT -13 -3 "Persone Fisiche"
  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 giuridiche" -1 -1 77 20

 LIST DLG_NULL 1
 BEGIN
  FIELD LF_ANAG->TIPOA
	ITEM "G|Giuridica"
	FLAGS "H"
	KEY 1 2 3
 END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

NUMBER FLD_CODANAGR 5
BEGIN
  PROMPT 2 1 "Codice          "
  HELP "Codice identificativo della persona fisica"
  FIELD LF_ANAG->CODANAGR
  FLAGS "RG"
  USE LF_ANAG
  CHECKTYPE REQUIRED
  INPUT TIPOA "G" 
  INPUT CODANAGR FLD_CODANAGR
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT FLD_CODANAGR CODANAGR
  OUTPUT FLD_AG1_RAGSOC RAGSOC
  OUTPUT FLD_AG1_COFI COFI
  MESSAGE COPY,1@
  KEY 1
END

STRING FLD_AG1_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FIELD LF_ANAG->RAGSOC
  HELP "Ragione sociale della persona giuridica"
  MESSAGE COPY,2@
  FLAGS "G"
  WARNING "Inserire la ragione sociale"
  USE LF_ANAG KEY 2
  INPUT TIPOA "G"
  CHECKTYPE REQUIRED
  INPUT RAGSOC FLD_AG1_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  DISPLAY "Codice Fiscale   " COFI
  COPY OUTPUT FLD_CODANAGR
  KEY 2
END

GROUPBOX DLG_NULL 40 4
BEGIN
  PROMPT 0 4 "Partita IVA "
END

LIST FLD_AG1_STATOPAIV 18
BEGIN
  PROMPT 2 5 "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_AG1_PAIV 12
BEGIN
  PROMPT 2 6 "Codice          "
  FIELD LF_ANAG->PAIV
  HELP "Partita IVA della persona giuridica"
  VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
END

STRING FLD_AG1_COFI 12
BEGIN
  PROMPT 42 5 "Codice fiscale     "
  FIELD LF_ANAG->COFI
  FLAGS "U"
  HELP "Codice fiscale della persona giuridica"
  VALIDATE CF_FUNC FLD_AG1_STATOPAIV
  USE LF_ANAG KEY 3
  INPUT TIPOA "G" 
  INPUT COFI FLD_AG1_COFI
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT FLD_CODANAGR
  CHECKTYPE REQUIRED
  KEY 3
END

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

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

STRING FLD_AG1_OGGSOC 60
BEGIN
  PROMPT 2 9 "Oggetto    "
  FIELD LF_ANAGGIU->OGGSOC
  HELP "Oggetto sociale della persona giuridica"
END

STRING FLD_AG1_PERRIF 20
BEGIN
  PROMPT 2 10 "Riferimento     "
  FIELD LF_ANAGGIU->PERRIF
  HELP "Nome della persona cui fare riferimento"
END

BOOLEAN CHK_AG1_ENTENCOMM
BEGIN
  PROMPT 47 10 "Ente non commerciale"
  FIELD LF_ANAGGIU->ENTENCOMM
  HELP "Indicare se si tratta di un ente non commerciale"
END

STRING FLD_AG1_SIGLA 20
BEGIN
  PROMPT 2 11 "Sigla           "
  FIELD LF_ANAGGIU->SIGLA
  HELP "Indicare la sigla identificativa della persona giuridica"
END

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

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

STRING FLD_ANAG_UTAGG 10
BEGIN
  PROMPT 56 14 "Utente "
  FLAGS "DA"
END

ENDPAGE

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

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

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

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
  GROUP 2
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 4 "Sede Legale"
END

STRING FLD_AG2_INDRES 35
BEGIN
  PROMPT 2 5 "Indirizzo       "
  FIELD LF_ANAG->INDRES
  HELP "Indirizzo della sede legale"
  WARNING "Completare l'indirizzo di residenza"
  CHECKTYPE REQUIRED
END

STRING FLD_AG2_CIVRES 10
BEGIN
  PROMPT 56 5 "N."
  FIELD LF_ANAG->CIVRES
  HELP "Numero civico della sede legale"
END

STRING FLD_AG2_COMRES 4
BEGIN
  PROMPT 2 6 "Comune : Codice "
  FIELD LF_ANAG->COMRES
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM FLD_AG2_COMRES
#include <comdcod.h>
  OUTPUT FLD_AG2_COMRES COM
  OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AG2_CAPRES CAPCOM
  HELP "Codice del comune sede della persoan giuridica"
  CHECKTYPE REQUIRED
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING FLD_AG2_COMRES_COMUNI_PROVCOM 5
BEGIN
  PROMPT 38 6 "Provincia "
  FLAGS "D"
END

STRING FLD_AG2_CAPRES 5
BEGIN
  PROMPT 56 6 "CAP    "
  FIELD LF_ANAG->CAPRES
  HELP "CAP del comune sede legale"
END

STRING FLD_AG2_COMRES_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 7 ": Denom. "
  HELP "Nome del comune sede legale"
  USE LF_COMUNI KEY 2 SELECT STATO==""
  INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM
#include <comdden.h>
  OUTPUT FLD_AG2_COMRES COM
  OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AG2_CAPRES CAPCOM
  ADD MASK ba4100a
END

BOOLEAN CHK_AG5_NONRES
BEGIN
  PROMPT 2 8 "Non residente"
  FIELD LF_ANAG->SOGGNRES
  HELP "Indicare se si tratta di persona giuridica non residente"
END

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

STRING FLD_AG1_INDRF 35
BEGIN
  PROMPT 2 11 "Indirizzo       "
  FIELD LF_ANAG->INDRF
  HELP "Indirizzo della domicilio fiscale della ditta"
  WARNING "Completare l'indirizzo di domicilio fiscale"
  VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
END

STRING FLD_AG1_CIVRF 10
BEGIN
  PROMPT 56 11 "N."
  FIELD LF_ANAG->CIVRF
  HELP "Numero civico della domicilio fiscale della ditta"
END

STRING FLD_AG1_COMRF 4
BEGIN
  PROMPT 2 12 "Comune : Codice "
  FIELD LF_ANAG->COMRF
  FLAGS "U"
  COPY USE FLD_AG2_COMRES
	INPUT STATO ""
	INPUT COM FLD_AG1_COMRF
	COPY DISPLAY FLD_AG2_COMRES
	OUTPUT FLD_AG1_COMRF COM
	OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
	OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
	OUTPUT FLD_AG1_CAPRF CAPCOM
	HELP "Codice del comune domicilio fiscale della ditta"
	CHECKTYPE NORMAL
	WARNING "Comune assente"
	ADD MASK ba4100a
END

STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5
BEGIN
	PROMPT 38 12 "Provincia "
	FLAGS "D"
END

STRING FLD_AG1_CAPRF 5
BEGIN
	PROMPT 56 12 "CAP    "
	FIELD LF_ANAG->CAPRF
	HELP "CAP del comune domicilio fiscale della ditta"
END

STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
BEGIN
	PROMPT 9 13 ": Denom. "
        HELP "Nome del comune residenza fiscale"
	USE LF_COMUNI KEY 2 SELECT STATO==""
	COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
	INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
	COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
	OUTPUT FLD_AG1_COMRF COM
	OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
	OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
	OUTPUT FLD_AG1_CAPRF CAPCOM
	ADD MASK ba4100a
END

ENDPAGE

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

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

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

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
  GROUP 2
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 0 4 "Corrispondenza"
END

STRING FLD_AG2_INDCORR 35
BEGIN
  PROMPT 2 5 "Indirizzo       "
  FIELD LF_ANAG->INDCORR
  HELP "Indirizzo a cui mandare la corrispondenza"
	WARNING "Completare l'indirizzo di corrispondenza"
	VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
END

STRING FLD_AG2_CIVCORR 10
BEGIN
  PROMPT 56 5 "N."
  FIELD LF_ANAG->CIVCORR
  HELP "Numero civico a cui mandare la corrispondenza"
	VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
END     

NUMBER FLD_AG2_STATOCORR 3
BEGIN
	PROMPT 2 6 "Comune : Stato  "
  FIELD LF_ANAG->STATOCORR
  FLAGS "RZ"
  USE %STA 
  INPUT CODTAB FLD_AG2_STATOCORR
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT FLD_AG2_STATOCORR CODTAB
  HELP "Codice dello stato a cui mandare la corrispondenza"
  CHECKTYPE NORMAL
END

STRING FLD_AG2_COMCORR 4
BEGIN
  PROMPT 9 7 ": Codice "
  FIELD LF_ANAG->COMCORR
  FLAGS "U"
  COPY USE FLD_AG2_COMRES
  INPUT STATO FLD_AG2_STATOCORR
  INPUT COM FLD_AG2_COMCORR
  COPY DISPLAY FLD_AG2_COMRES
  OUTPUT FLD_AG2_STATOCORR STATO
  OUTPUT FLD_AG2_COMCORR COM
  OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
  OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_AG2_CAPCORR CAPCOM
  HELP "Codice del comune a cui mandare la corrispondenza"
  CHECKTYPE NORMAL
  VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING FLD_AG2_COMCORR_COMUNI_PROVCOM 5
BEGIN
  PROMPT 38 7 "Provincia "
  FLAGS "D"
  VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_PROVCOM
END

STRING FLD_AG2_CAPCORR 5
BEGIN
	PROMPT 56 7 "CAP    "
	FIELD LF_ANAG->CAPCORR
	HELP "CAP al quale spedire la corrispondenza"
  VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES
END

STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
BEGIN
	PROMPT 9 8 ": Denom. "
        HELP "Nome del comune a cui mandare la corrispondenza"
	COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
	INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
	COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
	OUTPUT FLD_AG2_STATOCORR STATO
	OUTPUT FLD_AG2_COMCORR COM
	OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
	OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
	OUTPUT FLD_AG2_CAPCORR CAPCOM
	ADD MASK ba4100a
  VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM
END

GROUPBOX DLG_NULL 75 5
BEGIN
	PROMPT 0 10 "Telefoni"
END

STRING FLD_AG2_PTELRF 10
BEGIN
  PROMPT 2 11 "Telefono : Prefisso "
  FIELD LF_ANAG->PTELRF
  HELP "Prefisso telefonico della persona giuridica"
END

STRING FLD_AG2_TELRF 30
BEGIN
  PROMPT 35 11 "Numero "
  FIELD LF_ANAG->TELRF
  HELP "Numero di telefono della persona giuridica"
END

STRING FLD_AG2_PFAXRF 10
BEGIN
  PROMPT 2 12 "Telefax  : Prefisso "
  FIELD LF_ANAG->PFAXRF
  HELP "Prefisso del fax della persona giuridica"
END

STRING FLD_AG2_FAXRF 30
BEGIN
  PROMPT 35 12 "Numero "
  FIELD LF_ANAG->FAXRF
  HELP "Numero di telefono della persona giuridica"
END

STRING FLD_AG2_PTLEXRF 10
BEGIN
  PROMPT 2 13 "Telex    : Prefisso "
  FIELD LF_ANAG->PTLEXRF
  HELP "Prefisso del telex della persona giuridica"
END

STRING FLD_AG2_TLEXRF 30
BEGIN
  PROMPT 35 13 "Numero "
  FIELD LF_ANAG->TLEXRFX
  HELP "Numero del telex della perosna giuridica"
END

ENDPAGE

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

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

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

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
  GROUP 2
END

GROUPBOX DLG_NULL 28 5
BEGIN
  PROMPT 1 9 "Bilancio"
END

GROUPBOX DLG_NULL 76 13
BEGIN
  PROMPT 0 4 "Dati Societa'"
END

STRING F_COMCOST 4
BEGIN
  PROMPT 2 5 "Luogo costituz. "
  FIELD LF_ANAGGIU->COMCOST
  FLAGS "U"
  USE LF_COMUNI
  COPY USE FLD_AG2_COMRES
  INPUT STATO ""
  INPUT COM F_COMCOST
#include <comdcod.h>
  OUTPUT F_COMCOST COM
  OUTPUT F_DENCOMCOST DENCOM
  HELP "Codice del comune dove e' stata costituita la societa'"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD MASK ba4100a
END

STRING F_DENCOMCOST 50 46
BEGIN
  PROMPT 26 5 ""
  HELP "Nome del comune dove e' stata costituita la societa'"
  COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
  INPUT DENCOM F_DENCOMCOST
#include <comdden.h>
  COPY OUTPUT F_COMCOST
  CHECKTYPE NORMAL
  ADD MASK ba4100a
END

DATE FLD_AG3_DATACOST
BEGIN
  PROMPT 2 6 "Data costituz.  "
  FIELD LF_ANAGGIU->DATACOST
  HELP "Data di costituzione della societa'"
END

DATE FLD_AG3_DATAOMOL
BEGIN
  PROMPT 31 6 "Data omologa                    "
  FIELD LF_ANAGGIU->DATAOMOL
  HELP "Data di omologazione della societa'"
  WARNING "Data non corretta"
  VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END

DATE FLD_AG3_DATAISCRIZ
BEGIN
  PROMPT 2 7 "Data iscrizione "
  FIELD LF_ANAGGIU->DATAISCRIZ
  HELP "Data di iscrizione della societa'"
  WARNING "Data non corretta"
  VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END

DATE FLD_AG3_DATASORAMM
BEGIN
  PROMPT 31 7 "Data scadenza organo amministr. "
  FIELD LF_ANAGGIU->DATASORAMM
  HELP "Data in cui decadono gli organi amministrativi"
END

DATE FLD_AG3_DATASCAD
BEGIN
  PROMPT 2 8 "Data scadenza   "
  FIELD LF_ANAGGIU->DATASCAD
  HELP "Data di termine attivita' della societa'"
  WARNING "La data di scadenza non puo' precedere quella di costituzione"
  VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END

DATE FLD_AG3_DATASCSIND
BEGIN
  PROMPT 31 8 "Data scadenza collegio sindac.  "
  FIELD LF_ANAGGIU->DATASCSIND
  HELP "Data in cui decade il colleggio sindacale"
END

DATE FLD_AG3_DATATAPPBI
BEGIN
  PROMPT 2 10 "Data termine  "
  FIELD LF_ANAGGIU->DATATAPPBI
        HELP "Data termine dell'anno che compare sul bilancio"
END

BOOLEAN CHK_AGIU2_VARDEN
BEGIN
  PROMPT 29 10 "Variata denominazione"
  FIELD LF_ANAGGIU->VARDEN
  HELP "Indicare se e' variata la denominazione della persona giuridica"
END

DATE FLD_AG3_DATAAPPBIL
BEGIN
  PROMPT 2 11 "Data approv.  "
  FIELD LF_ANAGGIU->DATAAPPBIL
  HELP "Data di approvazione del bilancio"
END

DATE FLD_AG3_DATACHIUS
BEGIN
  PROMPT 2 12 "Data chiusura "
  FIELD LF_ANAGGIU->DATACHIUS
  HELP "Data di chiusura dell'anno di contabilita'"
END

NUMBER LST_AG3_STATOSOC 1
BEGIN
  PROMPT 2 15 "Stato Societa'  "
  FIELD LF_ANAGGIU->STATOSOC
  SHEET "Codice|Stato@50"
  INPUT LST_AG3_STATOSOC
  OUTPUT LST_AG3_STATOSOC
  HELP "Stato in cui si trova la societa'"
  ITEM " |Sconosciuto"
  ITEM "1|Soggetto in normale attivita'"
  ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
  ITEM "3|Soggetto in fallimento o in liquidazione coatta amministrativa"
  ITEM "4|Soggetto estinto"
END

NUMBER LST_AG3_SITSOC 1
BEGIN
  PROMPT 29 15 "Situazione societa'"
  FIELD LF_ANAGGIU->SITSOC
  SHEET "Codice|Situazione@88"
  INPUT LST_AG3_SITSOC
  OUTPUT LST_AG3_SITSOC
  HELP "Situazione in cui si trova la societa'"
  ITEM " |Sconosciuta"
  ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione"
  ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione"
  ITEM "3|Periodo d'imposta in cui ha avuto termine la liquidazione"
  ITEM "4|Periodo d'imposta in cui si e' verificata l' estinzione del soggetto"
  ITEM "5|Periodo d'imposta in cui si e' variato l' assoggettamento IRPEG del soggetto"
  ITEM "6|Periodo d'imposta normale"
  ITEM "7|Periodo d'imposta in cui si e' verificata l'estinzione del soggetto per scissione totale"
END

NUMBER LST_AG3_NATGIU 2
BEGIN
  PROMPT 53 15 "Natura Giuridica "
  FIELD LF_ANAGGIU->NATGIU
  HELP "Natura giuridica della societa'"
  SHEET "Codice|Natura Giuridica@120"
  INPUT LST_AG3_NATGIU
  OUTPUT LST_AG3_NATGIU
  ITEM " |Sconosciuta"
  ITEM "1|Societa' in accomandita per azioni"
  ITEM "2|Societa' a resposabilita' limitata"
  ITEM "3|Societa' per azioni"
  ITEM "4|Societa' cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
  ITEM "5|Altre societa' cooperative"
  ITEM "6|Mutue assicuratrici"
  ITEM "7|Consorzi con personalita' giuridica"
  ITEM "8|Associazioni riconosciute"
  ITEM "9|Fondazioni"
  ITEM "10|Altri enti od istituti con personalita' giuridica"
  ITEM "11|Consorzi senza personalita' giuridica"
  ITEM "12|Associazioni non riconosciute e comitati"
  ITEM "13|Altre organizzazioni di persone o di beni senza personalita' giuridica (escluse le comunioni)"
  ITEM "14|Enti pubblici economici"
  ITEM "15|Enti pubblici non economici"
  ITEM "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalita' giuridica"
  ITEM "17|Opere pie e societa' di mutuo soccorso"
  ITEM "18|Enti ospedalieri"
  ITEM "19|Enti ed istituti di previdenza e asssistenza sociale"
  ITEM "20|Aziende autonome di cure, soggiorno e turismo"
  ITEM "21|Aziende regionai, provinciali, comunali e loro consorzi"
  ITEM "22|Societa', organizzazaioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia"
  ITEM "23|Societa' semplici, irregolari o di fatto"
  ITEM "24|Societa' in nome collettivo"
  ITEM "25|Societa' in accomamdita semplice"
  ITEM "26|Societa' d'armamento"
  ITEM "28|Aziende coniugali"
  ITEM "29|GEIE"
END

ENDPAGE

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

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

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

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
  GROUP 2
END

GROUPBOX DLG_NULL 76 9
BEGIN
  PROMPT 0 4 "Dati Aziendali"
END

NUMBER FLD_AG4_CAPSOC 15
BEGIN
  PROMPT 1 5 "Capitale Sociale "
  FIELD LF_ANAGGIU->CAPSOC
  FLAGS "R"
  PICTURE "."
  HELP "Importo del capitale sociale della ditta"
END

NUMBER FLD_AG4_CAPVER 15
BEGIN
  PROMPT 1 6 "Capitale versato "
  FIELD LF_ANAGGIU->CAPVER
  FLAGS "R"
  PICTURE "."
  HELP "Importo del capitale sociale versato della ditta"
END

NUMBER FLD_AG4_NAZIONI 9
BEGIN
  PROMPT 42 5 "Numero azioni         "
  FIELD LF_ANAGGIU->NAZIONI
  FLAGS "R"
  HELP "Numero di azioni emesse dalla societa'"
END

NUMBER FLD_AG4_VALNOM 12
BEGIN
  PROMPT 42 6 "Valore nominale    "
  FIELD LF_ANAGGIU->VALNOM
  FLAGS "R"
  PICTURE "."
  HELP "Valore nominale delle azioni emesse"
END

NUMBER FLD_AG4_FATT 15
BEGIN
  PROMPT 1 7 "Fatturato        "
  FIELD LF_ANAGGIU->FATT
  FLAGS "R"
  PICTURE "."
  HELP "Fatturato annuo medio della ditta"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "Estratto atto costitutivo"
END

STRING FLD_AG4_ESTROMOL 60
BEGIN
  PROMPT 13 9 ""
  FIELD LF_ANAGGIU->ESTROMOL
  HELP "Estremi dell'estratto dell'atto costituzionale"
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 "Indicare se e' titolare di conto fiscale"
END

LIST F_TIPOSTDEL 12
BEGIN
  PROMPT 42 14 "Stampa       "
  FIELD LF_ANAG->TIPOSTDEL
  HELP "Tipo di documento per i versamenti"
  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 giuridiche" -1 -1 77 20

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

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

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
  GROUP 2
END

BOOLEAN CHK_AG5_RESZTERR
BEGIN
  PROMPT 2 4 "Residente in zona terremotata"
  FIELD LF_ANAG->RESZTERR
  HELP "Indicare se la ditta ha residenza in zona terremotata"
END

NUMBER LST_AG5_EVECC 1
BEGIN
  PROMPT 37 4 "Eventi di natura eccezionale     "
  FIELD LF_ANAG->EVECC
  HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
  SHEET "Codice|Descrizione@70"
  INPUT LST_AG5_EVECC
  OUTPUT LST_AG5_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 5 "Sede legale variata"
  FIELD LF_ANAG->VARSLORES
  HELP "Indicare se e' stata variata la sede legale della ditta"
  MESSAGE FALSE CLEAR,F_DVARSLORES
  MESSAGE FALSE RESET,F_DVARSLORES
  MESSAGE TRUE ENABLE,F_DVARSLORES
END

DATE F_DVARSLORES
BEGIN
  PROMPT 37 5 "Data variazione           "
  FIELD LF_ANAG->DVARSLORES
  HELP "Data di variazione delle sede legale"
END

BOOLEAN CHK_AG5_RFDSL
BEGIN
  PROMPT 2 6 "Domcilio fiscale diverso sede legale"
  FIELD LF_ANAG->RFDIVERSA
  HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
END

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

STRING FLD_AG6_CODSTAT1 7
BEGIN
  PROMPT 2 8 "1  "
  FIELD LF_ANAG->CODSTAT1
  USE %STT
  INPUT CODTAB FLD_AG6_CODSTAT1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_AG6_CODSTAT1 CODTAB
  OUTPUT FLD_AG6_CODSTAT1_TABSTT_S0 S0
  HELP "Primo codice statistico"
  CHECKTYPE NORMAL
  WARNING "Codice assente"
END

STRING FLD_AG6_CODSTAT1_TABSTT_S0 57
BEGIN
  PROMPT 16 8 ""
  FLAGS "D"
END

STRING FLD_AG6_CODSTAT2 7
BEGIN
  PROMPT 2 9 "2  "
  FIELD LF_ANAG->CODSTAT2
  COPY USE FLD_AG6_CODSTAT1
  INPUT CODTAB FLD_AG6_CODSTAT2
  COPY DISPLAY FLD_AG6_CODSTAT1
  OUTPUT FLD_AG6_CODSTAT2 CODTAB
  OUTPUT FLD_AG6_CODSTAT2_TABSTT_S0 S0
  HELP "Secondo codice statistico"
  CHECKTYPE NORMAL
  WARNING "Codice assente"
END

STRING FLD_AG6_CODSTAT2_TABSTT_S0 57
BEGIN
  PROMPT 16 9 ""
  FLAGS "D"
END

STRING FLD_AG6_CODSTAT3 7
BEGIN
  PROMPT 2 10 "3  "
  FIELD LF_ANAG->CODSTAT3
  COPY USE FLD_AG6_CODSTAT1
  INPUT CODTAB FLD_AG6_CODSTAT3
  COPY DISPLAY FLD_AG6_CODSTAT1
  OUTPUT FLD_AG6_CODSTAT3 CODTAB
  OUTPUT FLD_AG6_CODSTAT3_TABSTT_S0 S0
  HELP "Terzo codice statistico"
  CHECKTYPE NORMAL
  WARNING "Codice assente"
END

STRING FLD_AG6_CODSTAT3_TABSTT_S0 57
BEGIN
  PROMPT 16 10 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "Note"
END

STRING FLD_AG6_NOTE1 70
BEGIN
  PROMPT 3 13 ""
  FIELD LF_ANAGGIU->NOTE1
  HELP "Eventuali note relative alla societa'"
END

STRING FLD_AG6_NOTE2 70
BEGIN
  PROMPT 3 14 ""
  FIELD LF_ANAGGIU->NOTE2
  HELP "Eventuali note relative alla societa'"
END

STRING FLD_AG6_NOTE3 70
BEGIN
  PROMPT 3 15 ""
  FIELD LF_ANAGGIU->NOTE3
  HELP "Eventuali note relative alla societa'"
END

STRING FLD_AG6_NOTE4 70
BEGIN
  PROMPT 3 16 ""
  FIELD LF_ANAGGIU->NOTE4
  HELP "Eventuali note relative alla societa'"
END

STRING FLD_AG6_NOTE5 70
BEGIN
  PROMPT 3 17 ""
  FIELD LF_ANAGGIU->NOTE5
  HELP "Eventuali note relative alla societa'"
END

ENDPAGE

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

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 0 "Persone giuridiche"
	FLAGS "R"
END

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

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
  GROUP 2
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
  OUTPUT F_UFFIIDD CODTAB
  OUTPUT F_DENUFFIIDD S0
  OUTPUT F_CC_ESATTORIA S4
  HELP "Codice ufficio delle imposte dirette competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio imposte assente"
END

STRINF F_DENUFFIIDD 50 48
BEGIN
  PROMPT 23 7 " "
  HELP "Denominazione 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 "
  HELP "Codice contribuente assegnato alla persona giuridica"
  FIELD CODCONTR[6,13]
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

ENDMASK