Aggiunti tracciati della anagrafiche unita' locali e comuni

git-svn-id: svn://10.65.10.50/trunk@5518 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-11-03 12:07:46 +00:00 · 1997-11-03 12:07:46 +00:00 · 3c03f62341
commit 3c03f62341
parent 2dc82934ed
8 changed files with 238 additions and 2 deletions
--- a/ba/ba4100.h
+++ b/ba/ba4100.h
@ -42,6 +42,26 @@
 #define FLD_CM2_DENSTA     137
 #define F_CODREG           138
 #define F_DESREG           139
+#define F_CODUUE1          140
+#define F_DESUUE1          141
+#define F_CODUUE2          142
+#define F_DESUUE2          143
+#define F_CODUUE3          144
+#define F_DESUUE3          145
+#define F_CODUUE4          146
+#define F_DESUUE4          147
+#define F_CODUUE5          148
+#define F_DESUUE5          149
+#define F_CODUUE6          150
+#define F_DESUUE6          151
+#define F_CODUUE7          152
+#define F_DESUUE7          153
+#define F_CODUUE8          154
+#define F_DESUUE8          155
+#define F_CODUUE9          156
+#define F_DESUUE9          157
+#define F_CODUUE10         158
+#define F_DESUUE10         159

 #define N_STATO                                         "STATO"
 #define N_COM                                           "COM"
--- a/ba/ba4100a.uml
+++ b/ba/ba4100a.uml
@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE

-PAGE "Pag. 1" -1 -1 77 18
+PAGE "Comuni" -1 -1 77 18

 GROUPBOX DLG_NULL 75 4
 BEGIN
@ -242,7 +242,7 @@ END

 ENDPAGE

-PAGE "Pag. 2" -1 -1 77 18
+PAGE "Comuni" -1 -1 77 18

 GROUPBOX DLG_NULL 75 4
 BEGIN
@ -432,4 +432,100 @@ BEGIN
 END

 ENDPAGE
+
+PAGE "Uffici Entrate" -1 -1 77 18
+
+GROUPBOX DLG_NULL 75 12
+BEGIN
+  PROMPT 1 0 "Uffici Entrate"
+  FLAGS "R"
+END    
+
+NUMBER F_CODUUE1 3
+BEGIN
+  PROMPT 1 1 "Ufficio 1 "
+  FIELD CODUUE1
+  FLAGS "Z"
+  USE %UUE
+  INPUT CODTAB F_CODUUE1
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Denominazione@50" S0
+  OUTPUT F_CODUUE1 CODTAB
+  OUTPUT F_DESUUE1 S0
+  CHECKTYPE NORMAL
+  WARNING "Ufficio assente"
+  MESSAGE EMPTY DISABLE,2@
+  MESSAGE ENABLE,F_CODUUE2|ENABLE,F_DESUUE2
+END
+
+STRING F_DESUUE1 50
+BEGIN
+  PROMPT 20 1 ""
+  USE %UUE KEY 2
+  INPUT S0 F_DESUUE1
+  DISPLAY "Denominazione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODUUE1
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_CODUUE2 3
+BEGIN
+  PROMPT 1 2 "Ufficio 2 "
+  FIELD CODUUE2
+  FLAGS "Z"
+  COPY USE F_CODUUE1
+  INPUT CODTAB F_CODUUE2
+  COPY DISPLAY F_CODUUE1
+  OUTPUT F_CODUUE2 CODTAB
+  OUTPUT F_DESUUE2 S0
+  CHECKTYPE NORMAL
+  WARNING "Ufficio assente"
+  MESSAGE EMPTY DISABLE,3@
+  MESSAGE ENABLE,F_CODUUE3|ENABLE,F_DESUUE3
+  GROUP 2
+END
+
+STRING F_DESUUE2 50
+BEGIN
+  PROMPT 20 2 ""
+  COPY USE F_DESUUE1
+  INPUT S0 F_DESUUE2
+  COPY DISPLAY F_DESUUE1
+  COPY OUTPUT F_CODUUE2
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+NUMBER F_CODUUE3 3
+BEGIN
+  PROMPT 1 3 "Ufficio 3 "
+  FIELD CODUUE3
+  FLAGS "Z"
+  COPY USE F_CODUUE1
+  INPUT CODTAB F_CODUUE3
+  COPY DISPLAY F_CODUUE1
+  OUTPUT F_CODUUE3 CODTAB
+  OUTPUT F_DESUUE3 S0
+  CHECKTYPE NORMAL
+  WARNING "Ufficio assente"
+//  MESSAGE EMPTY DISABLE,4@
+//  MESSAGE ENABLE,F_CODUUE4|ENABLE,F_DESUUE4
+  GROUP 2 3
+END
+
+STRING F_DESUUE3 50
+BEGIN
+  PROMPT 20 3 ""
+  COPY USE F_DESUUE1
+  INPUT S0 F_DESUUE3
+  COPY DISPLAY F_DESUUE1
+  COPY OUTPUT F_CODUUE3
+  CHECKTYPE NORMAL
+  GROUP 2 3
+END
+
+ENDPAGE
+
 ENDMASK
+              
--- a/ba/f11.dir
+++ b/ba/f11.dir
@ -0,0 +1,3 @@
+11
+1
+%unloc|0|0|181|0|Unita' locali|#9||
--- a/ba/f11.trr
+++ b/ba/f11.trr
@ -0,0 +1,28 @@
+11
+24
+CODDITTA|3|5|0|Codice ditta
+CODULC|2|3|0|Codice unita' locale
+COMULC|1|4|0|Codice comune unita' locale
+INDULC|1|35|0|Indirizzo unita' locale
+CAPULC|1|5|0|CAP Unita' locale
+CIVULC|1|10|0|N.ro civico unita' locale
+NUMCCIAA|3|7|0|Numero di iscrizione alla camera di commercio
+COMCCIAA|1|4|0|Codice comune di iscrizione alla camera di commercio
+NUMMECC|3|7|0|Numero meccanografico di iscrizione alla camera di commercio
+DATAICCIAA|5|8|0|Data di iscrizione alla camera di commercio
+DATAVCCIAA|5|8|0|Data ultima variazione camera di commercio
+NUMREC|3|7|0|Numero R.E.C.
+AUTCOM|3|5|0|Numero autorizzazione comunale
+AUTPS|3|7|0|Numero autorizzazione di pubblica sicurezza
+ALTAUT|2|1|0|Numero altre autorizzazioni
+POSINPS|1|13|0|Posizione INPS
+POSINAIL|1|11|0|Posizione INAIL
+REGTRIB|1|9|0|Numero registro del tribunale
+VOLTRIB|3|7|0|Volume tribunale
+FASCTRIB|3|5|0|Fascicolo tribunale
+COMTRIB|1|4|0|Codice comune tribunale
+CAPTRIB|1|5|0|CAP tribunale
+MQULC|3|5|0|Metri quadrati unita' locale
+MQULCMAG|3|5|0|Metri dell' unita' locale destinati a magazzino
+1
+CODDITTA+CODULC| 
--- a/ba/f13.dir
+++ b/ba/f13.dir
@ -0,0 +1,3 @@
+13
+1
+%comuni|0|0|120|0|Comuni|500||
--- a/ba/f13.trr
+++ b/ba/f13.trr
@ -0,0 +1,27 @@
+13
+21
+STATO|1|3|0|Codice stato
+COM|1|4|0|Codice comune
+DENCOM|1|50|0|Denominazione del comune
+PROVCOM|1|5|0|Provincia
+CODREG|9|2|0|Codice regione
+CAPCOM|1|5|0|CAP del comune
+CODISTAT|3|6|0|Codice ISTAT
+UFFIIDD1|9|3|0|Codice ufficio imposte dirette 1
+UFFIIDD2|9|3|0|Codice ufficio imposte dirette 2
+UFFIIDD3|9|3|0|Codice ufficio imposte dirette 3
+UFFIVA1|9|3|0|Codice ufficio IVA 1
+UFFIVA2|9|3|0|Codice ufficio IVA 2
+UFFIVA3|9|3|0|Codice ufficio IVA 3
+UFFREG|1|3|0|Codice ufficio del registro
+UFFCONC|9|3|0|Codice ufficio concessione
+UFFCSERV|9|3|0|Codice centro servizi
+UFFESPROV|9|3|0|Codice esattoria provinciale
+UFFESCOM|9|3|0|Codice esattoria comunale
+ALIQICI|4|6|3|Aliquota ICI
+COMAGG|1|4|0|Codice comune aggregato
+TERRMON|2|1|0|Territorio montano
+3
+STATO+COM| 
+UPPER(DENCOM)|X
+CAPCOM|X
--- a/ba/f6.dir
+++ b/ba/f6.dir
@ -0,0 +1,3 @@
+6
+1
+%anagr|0|0|528|0|Anagrafica persone fisiche e giuridiche|100||
--- a/ba/f6.trr
+++ b/ba/f6.trr
@ -0,0 +1,56 @@
+6
+49
+TIPOA|1|1|0|Tipo Anagrafica (F=Fisica G=Giuridica)
+CODANAGR|3|5|0|Codice anagrafica
+COFI|1|16|0|Codice fiscale
+STATOPAIV|1|3|0|Stato ISO della partita IVA
+PAIV|1|12|0|Partita IVA
+COFIEST|1|20|0|Codice fiscale estero
+DATAAGG|5|8|0|Data ultimo aggiornamento
+RAGSOC|1|50|0|Ragione sociale (per le p.Fisiche 30 cognome + 20 nome)
+STATORES|1|3|0|Codice stato di residenza
+COMRES|1|4|0|Codice comune di residenza
+INDRES|1|35|0|Indirizzo di residenza
+CIVRES|1|10|0|N.ro civico di residenza
+CAPRES|1|5|0|CAP di residenza
+COMRF|1|4|0|Comune domicilio fiscale
+INDRF|1|35|0|Indirizzo domicilio fiscale
+CIVRF|1|10|0|N.ro civico domicilio fiscale
+CAPRF|1|5|0|CAP domicilio fiscale
+PTELRF|1|10|0|Prefisso telefono domicilio fiscale
+TELRF|1|30|0|Telefono domicilio fiscale
+PFAXRF|1|10|0|FAX domicilio fiscale
+FAXRF|1|30|0|FAX domicilio fiscale
+PTLEXRF|1|10|0|Prefisso telex domicilio fiscale
+TLEXRFX|1|30|0|Telefono telex domicilio fiscale
+STATOCORR|1|3|0|Codice stato corrispondenza
+COMCORR|1|4|0|Codice comune di corrispondenza
+INDCORR|1|35|0|Indirizzo di corrispondenza
+CIVCORR|1|10|0|N.ro civico di corrispondenza
+LOCCORR|1|35|0|Localita'di corrispondenza
+CAPCORR|1|5|0|CAP di corrispondenza
+CODSTAT1|1|7|0|Codice statistico 1
+CODSTAT2|1|7|0|Codice statistico 2
+CODSTAT3|1|7|0|Codice statistico 3
+CODCONTR|1|15|0|Codice contribuente
+EVECC|2|1|0|Eventi eccezionali
+SOGGNRES|8|1|0|Soggetto non residente
+RESZTERR|8|1|0|Residente in zone terremotate
+VARSLORES|8|1|0|Variato sede legale o residenza
+DVARSLORES|5|8|0|Data di variazione sede legale o residenza
+VARDF|8|1|0|Variato domicilio fiscale per le persone giuridiche
+DVARDF|5|8|0|Data variazione domicilio fiscale per le persone giuridiche
+RFDIVERSA|8|1|0|Sede legale diversa da domicilio fiscale
+UFFIIDD|9|3|0|Ufficio imposte dirette
+UFFIVA|9|3|0|Ufficio IVA
+TITCF|8|1|0|Titolare di conto fiscale
+TIPOSTDEL|2|1|0|Tipo di delega
+CODABI|10|5|0|Codice ABI banca
+CODCAB|10|5|0|Codice CAB banca
+NISCRIIDD|1|10|0|N.ro iscrirzione imposte dirette
+UFFCONC|9|3|0|Codice concessione conto fiscale
+4
+TIPOA+CODANAGR| 
+TIPOA+UPPER(RAGSOC)|X
+TIPOA+COFI|X
+TIPOA+STATOPAIV+PAIV|X