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
 END

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

NUMBER FLD_CODANAGR 5
BEGIN
  PROMPT 2 1 "Codice          "
  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 ditta"
  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 ditta"
  VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
END

STRING FLD_AG1_COFI 12
BEGIN
  PROMPT 46 5 "Codice fiscale "
  FIELD LF_ANAG->COFI
  FLAGS "U"
  HELP "Codice fiscale della ditta"
  VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
	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

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 ditta"
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 ditta"
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 della ditta"
  WARNING "Completare l'indirizzo di residenza"
  VALIDATE REQIF_FUNC 1 FLD_AG2_COMRES
END

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

NUMBER FLD_AG2_STATORES 3
BEGIN
  PROMPT 2 6 "Comune : Stato  "
  FIELD LF_ANAG->STATORES
  FLAGS "RZ"
  USE %STA
  INPUT CODTAB FLD_AG2_STATORES
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT FLD_AG2_STATORES CODTAB
  HELP "Codice dello stato sede della ditta"
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING FLD_AG2_COMRES 4
BEGIN
  PROMPT 9 7 ": Codice "
  FIELD LF_ANAG->COMRES
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO FLD_AG2_STATORES
  INPUT COM FLD_AG2_COMRES
#include <comdcod.h>
  OUTPUT FLD_AG2_STATORES STATO
  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 ditta"
  CHECKTYPE REQUIRED
  WARNING "Comune assente"
  ADD MASK ba4100a
END

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

STRING FLD_AG2_CAPRES 5
BEGIN
  PROMPT 56 7 "CAP    "
  FIELD LF_ANAG->CAPRES
  HELP "CAP del comune sede della ditta"
END

STRING FLD_AG2_COMRES_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 8 ": Nome   "
  USE LF_COMUNI KEY 2
  INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM
#include <comdden.h>
  OUTPUT FLD_AG2_STATORES STATO
  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

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 10 "Residenza Fiscale"
END

STRING FLD_AG1_INDRF 35
BEGIN
  PROMPT 2 11 "Indirizzo       "
  FIELD LF_ANAG->INDRF
  HELP "Indirizzo della residenza fiscale della ditta"
	WARNING "Completare l'indirizzo di residenza 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 residenza fiscale della ditta"
END

NUMBER FLD_AG1_STATORF 3
BEGIN
	PROMPT 2 12 "Comune : Stato  "
  FIELD LF_ANAG->STATORF
  FLAGS "RZ"
  COPY USE FLD_AG2_STATORES
  INPUT CODTAB FLD_AG2_STATORES
  COPY DISPLAY FLD_AG2_STATORES
  OUTPUT FLD_AG1_STATORF CODTAB
  HELP "Codice dello stato residenza fiscale della ditta"
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING FLD_AG1_COMRF 4
BEGIN
  PROMPT 9 13 ": Codice "
	FIELD LF_ANAG->COMRF
	FLAGS "U"
	COPY USE FLD_AG2_COMRES
	INPUT STATO FLD_AG1_STATORF
	INPUT COM FLD_AG1_COMRF
	COPY DISPLAY FLD_AG2_COMRES
	OUTPUT FLD_AG1_STATORF STATO
	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 residenza fiscale della ditta"
	CHECKTYPE NORMAL
	WARNING "Comune assente"
	ADD MASK ba4100a
END

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

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

STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
BEGIN
	PROMPT 9 14 ": Nome   "
	USE LF_COMUNI KEY 2
	COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
	INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
	COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
	OUTPUT FLD_AG1_STATORF STATO
	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 della ditta"
	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 della ditta"
	VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
END	

NUMBER FLD_AG2_STATOCORR 3
BEGIN
	PROMPT 2 6 "Comune : Stato  "
  FIELD LF_ANAG->STATOCORR
  FLAGS "RZ"
  COPY USE FLD_AG2_STATORES
  INPUT CODTAB FLD_AG2_STATOCORR
  INPUT CODTAB FLD_AG2_STATORES
  OUTPUT FLD_AG2_STATOCORR CODTAB
  HELP "Codice dello stato a cui mandare la corrispondenza"
  CHECKTYPE NORMAL
  VALIDATE EMPTYCOPY_FUNC FLD_AG2_STATORES
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
  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 ": Nome   "
	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 ditta"
END

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

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

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

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

STRING FLD_AG2_TLEXRF 30
BEGIN
  PROMPT 35 13 "Numero "
  FIELD LF_ANAG->TLEXRFX
  HELP "Numero del telex della ditta"
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 13
BEGIN
  PROMPT 0 4 "Dati Societa'"
END

DATE FLD_AG3_DATACOST
BEGIN
  PROMPT 2 5 "Data costituz.  "
  FIELD LF_ANAGGIU->DATACOST
  HELP "Data di costituzione della ditta"
END

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

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

DATE FLD_AG3_DATASORAMM
BEGIN
  PROMPT 31 6 "Data scadenza organo amministr. "
  FIELD LF_ANAGGIU->DATASORAMM
  HELP "Data di scadenza degli organismi amministrativi"
END

DATE FLD_AG3_DATASCAD
BEGIN
  PROMPT 2 7 "Data scadenza   "
  FIELD LF_ANAGGIU->DATASCAD
  HELP "Data di scadenza della ditta"
  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 7 "Data scadenza collegio sindac.  "
  FIELD LF_ANAGGIU->DATASCSIND
  HELP "Data di scadenza delo collegio sindacale"
END

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

DATE FLD_AG3_DATATAPPBI
BEGIN
  PROMPT 2 10 "Data termine  "
  FIELD LF_ANAGGIU->DATATAPPBI
	HELP "Data di 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' variate la denominazione della ditta"
END

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

BOOLEAN CHK_AGIU2_VARRF
BEGIN
  PROMPT 29 11 "Variata residenza fiscale "
  FIELD LF_ANAGGIU->VARRF
  HELP "Indicare se e' stata variata la residenza fiscale"
  MESSAGE FALSE DISABLE,FLD_AG3_DATAVARRF
  MESSAGE FALSE RESET,FLD_AG3_DATAVARRF
  MESSAGE TRUE ENABLE,FLD_AG3_DATAVARRF
END

DATE FLD_AG3_DATAVARRF
BEGIN
  PROMPT 60 11 "il "
  FIELD LF_ANAGGIU->DATAVARRF
  HELP "Data di variazione della residenza fiscale"
END

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

BOOLEAN CHK_AG5_NONRES
BEGIN
  PROMPT 29 12 "Non residente"
  FIELD LF_ANAG->SOGGNRES
  HELP "Indicare se si tratta di persona giuridica non residente"
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 della 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 della ditta"
  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 ditta"
  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 "27|Associazioni"
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 "Indicare l'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 "Indicare l'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 "Dire se e' titolare di conto fiscale"
END

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

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 15 "Codice ABI       "
  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          "
  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

LIST LST_AG5_EVECC 2
BEGIN
  PROMPT 37 4 "Eventi di natura eccezionale     "
  FIELD LF_ANAG->EVECC
  HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
  ITEM " | "
  ITEM "A|A"
  ITEM "B|B"
  ITEM "C|C"
  ITEM "D|D"
END

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

BOOLEAN CHK_AG5_VARSLORES
BEGIN
  PROMPT 2 6 "Sede legale variata"
  FIELD LF_ANAG->VARSLORES
  HELP "Indicare se e' stata variata la sede legale della ditta"
  MESSAGE FALSE DISABLE,DLG_AG5_DVARSLOR
  MESSAGE FALSE RESET,DLG_AG5_DVARSLOR
  MESSAGE TRUE ENABLE,DLG_AG5_DVARSLOR
END

DATE DLG_AG5_DVARSLOR
BEGIN
  PROMPT 37 6 "Data variazione           "
  FIELD LF_ANAG->DVARSLORES
  HELP "Indicare la data di variazione delle sede legale"
END

BOOLEAN CHK_AG5_RFDSL
BEGIN
  PROMPT 37 5 "Dom. 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 "Indicare le eventuali note relative alla ditta"
END

STRING FLD_AG6_NOTE2 70
BEGIN
  PROMPT 3 14 ""
  FIELD LF_ANAGGIU->NOTE2
  HELP "Indicare le eventuali note relative alla ditta"
END

STRING FLD_AG6_NOTE3 70
BEGIN
  PROMPT 3 15 ""
  FIELD LF_ANAGGIU->NOTE3
  HELP "Indicare le eventuali note relative alla ditta"
END

STRING FLD_AG6_NOTE4 70
BEGIN
  PROMPT 3 16 ""
  FIELD LF_ANAGGIU->NOTE4
  HELP "Indicare le eventuali note relative alla ditta"
END

STRING FLD_AG6_NOTE5 70
BEGIN
  PROMPT 3 17 ""
  FIELD LF_ANAGGIU->NOTE5
  HELP "Indicare le eventuali note relative alla ditta"
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 8
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 "Numero dell'ufficio delle imposte dirette competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio imposte assente"
END

STRINF F_DENUFFIIDD 50 48
BEGIN
  PROMPT 23 7 " "
  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_CC_ESATTORIA 8
BEGIN
  PROMPT 1 8 "C/C Esattoria   "
  FLAGS "D"
END

STRING F_UFFREG 3
BEGIN
  PROMPT 1 9 "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 9 ""
  FLAGS "D"
END

NUMBER F_UFFCONC 3
BEGIN
  PROMPT 1 10 "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 10 ""
  FLAGS "D"
END

NUMBER F_UFFSERV 3
BEGIN
  PROMPT 1 11 "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 11 ""
  FLAGS "D"
END

GROUPBOX -1 76 3
BEGIN
  PROMPT 0 13 "Codice contribuente"
END

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

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

STRING F_CODCONTR 8
BEGIN
  PROMPT 46 14 "Codice "
  FIELD CODCONTR[6,13]
END

STRING F_CODCONTR_CC 2
BEGIN
  PROMPT 66 14 "C.c."
  FIELD CODCONTR[14,15]
END

ENDMASK