Modifiche alle anagrafiche windows :

Aggiunto indirizzo di posta (MAIL) e Link a oggetti esterni(OGGETTI)


git-svn-id: svn://10.65.10.50/trunk@5522 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba4200.h

@@ -344,9 +344,11 @@
 #define LST_AGIU2_NATGIU_NONRES 372
 
 #define FLD_AG1_COMRF_COMUNI_DENCOM 368
-#define DLG_DITTE 369
+#define DLG_DITTE      369
 #define FLD_ANAG_UTAGG 370
-#define DLG_CHGTIP 371
+#define DLG_CHGTIP     371
+#define DLG_OGGETTI    372
+#define F_MAIL         373
 
 #define F_CODCONTR_EP  380
 #define F_CODCONTR_EC  381

ba/ba4200b.uml

@@ -36,7 +36,7 @@ BEGIN
   ITEM "F|Fisica"
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 0 "Persone fisiche"
 FLAGS "RG"
@@ -97,6 +97,13 @@ MESSAGE COPY,3@
 CHECKTYPE REQUIRED
 END
 
+GOLEM DLG_OGGETTI 4 2
+BEGIN   
+  PROMPT 71 1 ""
+  FIELD OGGETTI
+  FLAG "M"
+END
+
 RADIOBUTTON LST_AF1_SESSO 1 12
 BEGIN
 PROMPT 0 5 "Sesso"
@@ -192,7 +199,7 @@ FLAGS "U"
 FIELD LF_ANAG->COFIEST
 END
 
-GROUPBOX DLG_NULL 76 6
+GROUPBOX DLG_NULL 78 6
 BEGIN
 PROMPT 0 9 "Dati di nascita"
 END
@@ -241,7 +248,7 @@ PROMPT 2 13 "Provincia       "
 FLAGS "D"
 END
 
-GROUPBOX DLG_NULL 76 3
+GROUPBOX DLG_NULL 78 3
 BEGIN
 PROMPT 0 15 "Ultimo aggiornamento"
 END
@@ -263,7 +270,7 @@ ENDPAGE
 
 PAGE "Pag.2" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 0 "Persone fisiche"
 FLAGS "R"
@@ -291,7 +298,7 @@ FLAGS "D"
 GROUP 3
 END
 
-GROUPBOX DLG_NULL 76 7
+GROUPBOX DLG_NULL 78 7
 BEGIN
 PROMPT 0 5 "Residenza"
 END
@@ -398,7 +405,7 @@ FIELD LF_ANAG->DVARSLORES
 HELP "Data di variazione della sede legale"
 END
 
-GROUPBOX DLG_NULL 76 6
+GROUPBOX DLG_NULL 78 6
 BEGIN
 PROMPT 0 12 "Domicilio Fiscale (solo se diverso)"
 END
@@ -470,7 +477,7 @@ ENDPAGE
 
 PAGE "Pag.3" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 0 "Persone fisiche"
 FLAGS "R"
@@ -498,7 +505,7 @@ FLAGS "D"
 GROUP 3
 END
 
-GROUPBOX DLG_NULL 76 7
+GROUPBOX DLG_NULL 78 7
 BEGIN
 PROMPT 0 5 "Corrispondenza"
 END
@@ -591,9 +598,9 @@ ADD RUN ba4 -0
 VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_DENCOM
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 6
 BEGIN
-PROMPT 0 12 "Telefoni"
+PROMPT 0 12 "Telefono/Posta"
 END
 
 STRING FLD_AF2_PTELRF 10
@@ -605,7 +612,7 @@ END
 
 STRING FLD_AF2_TELRF 30
 BEGIN
-PROMPT 36 13 "Numero "
+PROMPT 35 13 "Numero "
 FIELD LF_ANAG->TELRF
 HELP "Numero di telefono"
 END
@@ -619,7 +626,7 @@ END
 
 STRING FLD_AF2_FAXRF 30
 BEGIN
-PROMPT 36 14 "Numero "
+PROMPT 35 14 "Numero "
 FIELD LF_ANAG->FAXRF
 HELP "Numero del FAX"
 END
@@ -633,16 +640,23 @@ END
 
 STRING FLD_AF2_TLEXRF 30
 BEGIN
-PROMPT 36 15 "Numero "
+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    
+  FLAGS "B"
+END
+
 ENDPAGE
 
 PAGE "Pag.4" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 0 "Persone fisiche"
 FLAGS "R"
@@ -670,7 +684,7 @@ FLAGS "D"
 GROUP 3
 END
 
-GROUPBOX DLG_NULL 76 8
+GROUPBOX DLG_NULL 78 8
 BEGIN
 PROMPT 0 5 "Dati personali"
 END
@@ -766,7 +780,7 @@ ITEM "4|Variato da meno di 60gg"
 HELP "Soggetto a a casi particolari di residenza fiscale"
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 13 "Dati conto fiscale"
 END
@@ -839,7 +853,7 @@ ENDPAGE
 
 PAGE "Pag.5" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 0 "Persone fisiche"
 FLAGS "R"
@@ -922,7 +936,7 @@ BEGIN
   WARNING "Regione assente"
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 13 "Codici statistici"
 END
@@ -993,7 +1007,7 @@ ENDPAGE
 
 PAGE "Pag.6" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 0 "Persone fisiche"
 FLAGS "R"
@@ -1021,7 +1035,7 @@ FLAGS "D"
 GROUP 3
 END
 
-GROUPBOX DLG_NULL 76 9
+GROUPBOX DLG_NULL 78 9
 BEGIN
 PROMPT 0 5 "Uffici competenti"
 END
@@ -1150,7 +1164,7 @@ PROMPT 24 12 ""
 FLAGS "D"
 END
 
-GROUPBOX -1 76 4
+GROUPBOX -1 78 4
 BEGIN
 PROMPT 0 14 "Codice contribuente"
 END

ba/ba4200c.uml

@@ -34,7 +34,7 @@ PAGE "Pag.1" -1 -1 77 19
   KEY 1 2 3
  END
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -79,6 +79,13 @@ BEGIN
   KEY 2
 END
 
+GOLEM DLG_OGGETTI 4 2
+BEGIN   
+  PROMPT 71 1 ""
+  FIELD OGGETTI
+  FLAG "M"
+END
+
 GROUPBOX DLG_NULL 41 4
 BEGIN
   PROMPT 0 4 "Partita IVA "
@@ -137,7 +144,7 @@ BEGIN
   FIELD LF_ANAG->COFIEST
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
   PROMPT 0 8 "Dati societari "
 END
@@ -170,7 +177,7 @@ BEGIN
   HELP "Indicare la sigla identificativa della persona giuridica"
 END
 
-GROUPBOX DLG_NULL 76 3
+GROUPBOX DLG_NULL 78 3
 BEGIN
   PROMPT 0 13 "Ultimo aggiornamento"
 END
@@ -192,7 +199,7 @@ ENDPAGE
 
 PAGE "Pag.2" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -213,7 +220,7 @@ BEGIN
   GROUP 2
 END
 
-GROUPBOX DLG_NULL 76 7
+GROUPBOX DLG_NULL 78 7
 BEGIN
   PROMPT 0 4 "Sede Legale"
 END
@@ -322,7 +329,7 @@ BEGIN
   HELP "Data di variazione della sede legale"
 END
 
-GROUPBOX DLG_NULL 76 7
+GROUPBOX DLG_NULL 78 7
 BEGIN
   PROMPT 0 11 "Domicilio Fiscale (solo se diverso)"
 END
@@ -380,7 +387,7 @@ 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==""
+//  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
@@ -412,7 +419,7 @@ ENDPAGE
 
 PAGE "Pag.3" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -433,7 +440,7 @@ BEGIN
   GROUP 2
 END
 
-GROUPBOX DLG_NULL 75 7
+GROUPBOX DLG_NULL 78 7
 BEGIN
   PROMPT 0 4 "Corrispondenza"
 END
@@ -527,9 +534,9 @@ BEGIN
   VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM
 END
 
-GROUPBOX DLG_NULL 75 5
+GROUPBOX DLG_NULL 78 6
 BEGIN
-  PROMPT 0 11 "Telefoni"
+  PROMPT 0 11 "Telefono/Posta"
 END
 
 STRING FLD_AG2_PTELRF 10
@@ -574,11 +581,18 @@ BEGIN
   HELP "Numero del telex della persona giuridica"
 END
 
+STRING F_MAIL 50
+BEGIN
+  PROMPT 2 15 "Indirizzo di posta  "
+  FIELD MAIL    
+  FLAGS "B"
+END
+
 ENDPAGE
 
 PAGE "Pag.4" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -604,7 +618,7 @@ BEGIN
   PROMPT 1 9 "Bilancio"
 END
 
-GROUPBOX DLG_NULL 76 13
+GROUPBOX DLG_NULL 78 13
 BEGIN
   PROMPT 0 4 "Dati Societa'"
 END
@@ -614,7 +628,7 @@ BEGIN
   PROMPT 2 5 "Luogo costituz. "
   FIELD LF_ANAGGIU->COMCOST
   FLAGS "U"
-  USE LF_COMUNI
+//  USE LF_COMUNI
   COPY USE FLD_AG2_COMRES
   INPUT STATO ""
   INPUT COM F_COMCOST
@@ -807,7 +821,7 @@ ENDPAGE
 
 PAGE "Pag.5" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -828,7 +842,7 @@ BEGIN
   GROUP 2
 END
 
-GROUPBOX DLG_NULL 76 9
+GROUPBOX DLG_NULL 78 9
 BEGIN
   PROMPT 0 4 "Dati Aziendali"
 END
@@ -889,7 +903,7 @@ BEGIN
   HELP "Estremi dell'estratto dell'atto costituzionale"
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
   PROMPT 0 13 "Dati conto fiscale"
 END
@@ -962,7 +976,7 @@ ENDPAGE
 
 PAGE "Pag.6" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -1011,7 +1025,7 @@ BEGIN
   HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 78 5
 BEGIN
   PROMPT 0 7 "Codici statistici"
 END
@@ -1121,7 +1135,7 @@ ENDPAGE
 
 PAGE "Pag.7" -1 -1 77 20
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
   FLAGS "R"
@@ -1142,7 +1156,7 @@ BEGIN
   GROUP 2
 END
 
-GROUPBOX DLG_NULL 76 9
+GROUPBOX DLG_NULL 78 9
 BEGIN
   PROMPT 0 5 "Uffici competenti"
 END
@@ -1272,7 +1286,7 @@ BEGIN
   FLAGS "D"
 END
 
-GROUPBOX -1 76 4
+GROUPBOX -1 78 4
 BEGIN
   PROMPT 0 14 "Codice contribuente"
 END

ba/f6.dir

@@ -1,3 +1,3 @@
 6
 1
-%anagr|0|0|528|0|Anagrafica persone fisiche e giuridiche|100||
+%anagr|0|0|588|0|Anagrafica persone fisiche e giuridiche|100||

ba/f6.trr

@@ -1,5 +1,5 @@
 6
-49
+51
 TIPOA|1|1|0|Tipo Anagrafica (F=Fisica G=Giuridica)
 CODANAGR|3|5|0|Codice anagrafica
 COFI|1|16|0|Codice fiscale
@@ -23,6 +23,7 @@ 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
+MAIL|1|50|0|Indirizzo di posta elettronica
 STATOCORR|1|3|0|Codice stato corrispondenza
 COMCORR|1|4|0|Codice comune di corrispondenza
 INDCORR|1|35|0|Indirizzo di corrispondenza
@@ -49,6 +50,7 @@ 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
+OGGETTI|11|10|0|Link a oggetti esterni
 4
 TIPOA+CODANAGR| 
 TIPOA+UPPER(RAGSOC)|X