campo-sirio/ba/ba4200c.uml

#include "ba4200.h"

TOOLBAR "" 0 18 0 4 

BUTTON DLG_CHGTIP 23 2
BEGIN
  PROMPT -13 -3 "Persone F~isiche"
  MESSAGE K_F10
END

BUTTON DLG_DITTE 10 2
BEGIN
  PROMPT -36 -3 "~Ditte"
  MESSAGE K_F5
END

BUTTON DLG_EMAIL 10 2
BEGIN
  PROMPT -56 -3 "~Posta"
  PICTURE BMP_EMAIL
END

GOLEM DLG_OGGETTI 10 2
BEGIN   
  PROMPT -66 -3 "~Oggetti"
  FIELD OGGETTI
  FLAG "M"
END

#include <toolbar.h>
ENDPAGE

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

 LIST H_TIPOA 1 9
 BEGIN   
  PROMPT 1 60 ""
  FIELD LF_ANAG->TIPOA
  ITEM "G|Giuridica"
  FLAGS "D"
  KEY 1 2 3
 END

GROUPBOX DLG_NULL 78 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 41 4
BEGIN
  PROMPT 0 4 "Partita IVA "
END

STRING FLD_AG1_STATOPAIV 2
BEGIN
  PROMPT 2 5 "Stato           "
  FIELD LF_ANAG->STATOPAIV
  HELP "Codice dello stato cui si riferisce la partita IVA"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB FLD_AG1_STATOPAIV 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_AG1_STATOPAIV CODTAB
  CHECKTYPE NORMAL
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 78 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 78 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 "Pag.2" -1 -1 77 20

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

NUMBER F_STATORES 3
BEGIN
  PROMPT 2 6 "Comune : Stato  "
  FIELD LF_ANAG->STATORES
  FLAGS "Z"
  USE %STA 
  INPUT CODTAB F_STATORES
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_STATORES CODTAB
  HELP "Codice dello stato di residenza"
  CHECKTYPE NORMAL 
  MESSAGE DIRTY,FLD_AG2_COMRES|TAB,FLD_AG2_COMRES 
  MESSAGE EMPTY ENABLE,F_STATORES
END

STRING FLD_AG2_COMRES 4
BEGIN
  PROMPT 2 7 "Comune : Codice "
  FIELD LF_ANAG->COMRES
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO F_STATORES
  INPUT COM FLD_AG2_COMRES
#include <comdcod.h>
  OUTPUT F_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 persona giuridica"
  CHECKTYPE REQUIRED
  WARNING "Comune assente"
  ADD RUN ba4 -0
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 legale"
END

STRING FLD_AG2_COMRES_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 8 ": Denom. "
  HELP "Nome del comune sede legale"
  USE LF_COMUNI KEY 2
  INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM
#include <comdden.h>
  OUTPUT F_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 RUN ba4 -0
END

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

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

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 0 11 "Domicilio Fiscale (solo se diverso)"
END

STRING FLD_AG1_INDRF 35
BEGIN
  PROMPT 2 12 "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 12 "N."
  FIELD LF_ANAG->CIVRF
  HELP "Numero civico della domicilio fiscale della ditta"
END

STRING FLD_AG1_COMRF 4
BEGIN
  PROMPT 2 13 "Comune : Codice "
  FIELD LF_ANAG->COMRF
  FLAGS "U"
  USE LF_COMUNI
  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"
  VALIDATE REQIF_FUNC 1 FLD_AG1_INDRF
  ADD RUN ba4 -0
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 domicilio fiscale della ditta"
END

STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 14 ": 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 RUN ba4 -0
END

BOOLEAN F_VARDF
BEGIN
  PROMPT 21 15 "Variata"
  FIELD LF_ANAG->VARDF
  HELP "Indicare se e' stata variato il domicilio fiscale della ditta"
  MESSAGE FALSE CLEAR,F_DVARDF
  MESSAGE FALSE RESET,F_DVARDF
  MESSAGE TRUE ENABLE,F_DVARDF
END

DATE F_DVARDF
BEGIN
  PROMPT 38 15 "Data variazione     "
  FIELD LF_ANAG->DVARDF
  HELP "Data di variazione del domicilio fiscale"
END

ENDPAGE

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

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

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

STRING F_LOCCORR 35
BEGIN
  PROMPT 2 6 "Localita'       "
  FIELD LF_ANAG->LOCCORR
  HELP "Localita' in cui spedire la corrispondenza"
END

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

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

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

STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
BEGIN
  PROMPT 9 9 ": 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
  CHECKTYPE NORMAL
  ADD RUN ba4 -0
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 11 "Telefono/Posta"
END

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

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

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

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

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

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

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

ENDPAGE

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

GROUPBOX DLG_NULL 78 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 78 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 RUN ba4 -0
END

STRING F_DENCOMCOST 50 46
BEGIN
  PROMPT 26 5 ""
  HELP "Nome del comune dove e' stata costituita la societa'"
  COPY USE FLD_AG1_COMRF_COMUNI_DENCOM
  INPUT DENCOM F_DENCOMCOST
#include <comdden.h>
  COPY OUTPUT F_COMCOST
  CHECKTYPE NORMAL
  ADD RUN ba4 -0
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 31 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@90"
  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"
  ITEM "8|Periodo d'imposta in cui si e' deliberato lo scioglimento agevolato"
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@150"
  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 regionali, provinciali, comunali e loro consorzi"
  ITEM "22|Societa', organizzazioni 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 tra artisti e professionisti"
  ITEM "28|Aziende coniugali"
  ITEM "29|GEIE"
  ITEM "30|Societa'semplici irregolari e di fatto (Non residenti)"
  ITEM "31|Societa' in nome collettivo (Non residenti)"
  ITEM "32|Societa' in accomandita semplice (Non residenti)"
  ITEM "33|Societa' di armamento (Non residenti)"
  ITEM "34|Associazioni tra professionisti (Non residenti)"
  ITEM "35|Societa' in accomandita per azioni (Non residenti)"
  ITEM "36|Societa' a responsabilita' limitata (Non residenti)"
  ITEM "37|Societa' per azioni (Non residenti)"
  ITEM "38|Consorzi (Non residenti)"
  ITEM "39|Altri enti ed istituti (Non residenti)"
  ITEM "40|Associazioni riconosciute, non riconsciute e di fatto (Non residenti)"
  ITEM "41|Fondazioni (Non residenti)"
  ITEM "42|Opere pie e societa'di mutuo soccorso (Non residenti)"
  ITEM "43|Altre organizzazioni di persone e di beni (Non residenti)"
END

ENDPAGE

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

GROUPBOX DLG_NULL 78 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 78 9
BEGIN
  PROMPT 0 4 "Dati Aziendali"
END

NUMBER FLD_AG4_CAPSOC 17
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 17
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 15
BEGIN
  PROMPT 42 6 "Valore nominale "
  FIELD LF_ANAGGIU->VALNOM
  FLAGS "R"
  PICTURE "."
  HELP "Valore nominale delle azioni emesse"
END

NUMBER FLD_AG4_FATT 17
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 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 "Indicare se e' titolare di conto 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 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 "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 12
BEGIN
  PROMPT 24 16 ""
  FLAGS "UD"
END

ENDPAGE

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

GROUPBOX DLG_NULL 78 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@50"
  INPUT LST_AG5_EVECC
  OUTPUT LST_AG5_EVECC
  ITEM " |Nessuno"
  ITEM "1|Richieste di natura estorsiva"
  ITEM "2|Zone colpite da eventi alluvionali"
  ITEM "3|Alluvionati Giugno 1996"
END

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

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

GROUPBOX DLG_NULL 78 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 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
  MESSAGE EMPTY ENABLE,5@
  MESSAGE CLEAR,5@|CLEAR,6@
  WARNING "Ufficio imposte assente"
END

STRING F_DENUUE 50 48
BEGIN
  PROMPT 23 7 " "
  USE %UUE KEY 2
  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
  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"
  GROUP 5
END

STRINF F_DENUFFIIDD 50 48
BEGIN
  PROMPT 23 8 " "
  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
  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     "
  FLAGS "Z"
  FIELD LF_ANAG->UFFIVA
  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

STRINF 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
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  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 "ZD" 
  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 "
  HELP "Codice contribuente assegnato alla persona giuridica"
  FIELD CODCONTR[6,13]
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

ENDMASK