Modifiche apportate ai seguenti forms, (come richieste da Paolo):

DELIIG: aggiunta stampa Centro di servizio
DELIIRCF, DISGEN, DISIIRCF, DELRITCF, DISIVACF, DISRITCF: aggiunta la
  stampa dei dati di costituzione (DATA e LUOGO) in caso di persona giuridica.


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

ba/deliig.frm

@@ -10,6 +10,8 @@ JOIN %BAN ALIAS 14 INTO CODTAB=S7
 JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
 JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB==UFFCSERV
 JOIN %UID TO 213@ ALIAS 44 INTO CODTAB==UFFIIDD1
+JOIN 13 TO 34@ ALIAS 413 INTO COM=S6
+JOIN 13 TO 44@ ALIAS 513 INTO COM=S5
 
 END
 DESCRIPTION
@@ -403,7 +405,8 @@ BEGIN
   KEY "Centro di servizio o Ufficio imposte dirette"
   PROMPT 61 44 ""
   PICTURE "#  #  #"
-  FIELD I14
+  FIELD 213@->UFFCSERV
+  FIELD 213@->UFFIIDD1
 END
 
 STRING

ba/deliircf.frm

@@ -1,11 +1,13 @@
 USE %IIR
 JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 6 INTO CODANAGR=CODANAGR
+JOIN 7 TO 6 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
 JOIN %BAN ALIAS 14 INTO CODTAB=S7
 JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
 JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
+JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
 
 END
 DESCRIPTION
@@ -103,6 +105,17 @@ BEGIN
  FORMAT "1444-"
 END
 
+DATA 
+BEGIN
+ KEY "DATA DI COSTITUZIONE"
+ PROMPT 11 21 ""
+ GROUP  2
+ PICTURE "# #^  # #^  ^# # #"
+ FIELD 7->DATACOST
+ FORMAT "1444-"
+END
+
+
 STRINGA 11
 BEGIN
  KEY "SESSO (M o F)"
@@ -119,6 +132,14 @@ BEGIN
  FIELD 113@->DENCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
+ PROMPT 49 21 ""
+ GROUP  2
+ FIELD 413@->DENCOM
+END
+
 STRINGA 13
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
@@ -127,6 +148,14 @@ BEGIN
  FIELD 113@->PROVCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "PROV. DI COSTITUZIONE (sigla)"
+ PROMPT 131 21 ""
+ GROUP  2
+ FIELD 413@->PROVCOM
+END
+
 STRINGA 14
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"

ba/delritcf.frm

@@ -1,11 +1,13 @@
 USE %RIT
 JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 6 INTO CODANAGR=CODANAGR
+JOIN 7 TO 6 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
 JOIN %BAN ALIAS 14 INTO CODTAB=S7
 JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
 JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
+JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
 
 END
 DESCRIPTION
@@ -103,6 +105,16 @@ BEGIN
  FORMAT "1444-"
 END
 
+DATA 
+BEGIN
+ KEY "DATA DI COSTITUZIONE"
+ PROMPT 4 19 ""
+ GROUP  2
+ PICTURE "# #^   # #^ ^ # # #"
+ FIELD 7->DATACOST
+ FORMAT "1444-"
+END
+
 STRINGA 11
 BEGIN
  KEY "SESSO (M o F)"
@@ -119,6 +131,14 @@ BEGIN
  FIELD 113@->DENCOM
 END
 
+STRINGA 12
+BEGIN
+ KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
+ PROMPT 42 19 ""
+ GROUP  2
+ FIELD 413@->DENCOM
+END
+
 STRINGA 13
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
@@ -127,6 +147,14 @@ BEGIN
  FIELD 113@->PROVCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "PROV. DI COSTITUZIONE (sigla)"
+ PROMPT 120 19 ""
+ GROUP  2
+ FIELD 413@->PROVCOM
+END
+
 STRINGA 14
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"

ba/disgen.frm

@@ -1,8 +1,10 @@
 USE %GEN
 JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
+JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
 JOIN 13 TO 18@ ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 16@ ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN 13 TO 17@ ALIAS 413 INTO COM=COMCOST
 JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
 JOIN 8 TO 16@ ALIAS 28 INTO CODANAGR=CODANAGR
 JOIN 13 TO 18@ ALIAS 313 INTO COM=COMNASC
@@ -57,19 +59,39 @@ BEGIN
  FIELD 16@->RAGSOC[31,0]
 END
 
+LISTA 
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 16@->TIPOA
+ ITEM "F| " MESSAGE ENABLE,3@|DISABLE,4@
+ ITEM "G| " MESSAGE ENABLE,4@|DISABLE,3@
+END
+
 DATA 5
 BEGIN
  KEY "DATA DI NASCITA"
  PROMPT 97 10 ""
+ GROUP 3
  PICTURE "# #^ # #^^ # # #"
  FIELD 18@->DATANASC
  FORMAT "1444-"
 END
 
+DATA 
+BEGIN
+ KEY "DATA DI COSTITUZIONE"
+ PROMPT 97 10 ""
+ GROUP 4
+ PICTURE "# #^ # #^^ # # #"
+ FIELD 17@->DATANASC
+ FORMAT "1444-"
+END
+
 STRINGA 6
 BEGIN
  KEY "SESSO (M o F)"
  PROMPT 122 10 ""
+ GROUP 3
  FIELD 18@->SESSO
 END
 
@@ -77,6 +99,7 @@ STRINGA 7
 BEGIN
  KEY "STATO CIVILE"
  PROMPT 131 10 ""
+ GROUP 3
  FIELD 18@->STATCIV
 END
 
@@ -84,16 +107,34 @@ STRINGA 8
 BEGIN
  KEY "COMUNE (o Stato estero) DI NASCITA"
  PROMPT 10 12 ""
+ GROUP 3
  FIELD 113@->DENCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
+ PROMPT 10 12 ""
+ GROUP 4
+ FIELD 413@->DENCOM
+END
+
 STRINGA 9
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
  PROMPT 72 12 ""
+ GROUP 3
  FIELD 113@->PROVCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "PROV. DI COSTITUZIONE (sigla)"
+ PROMPT 72 12 ""
+ GROUP 4
+ FIELD 413@->PROVCOM
+END
+
 STRINGA 10
 BEGIN
  KEY "CODICE FISCALE"

ba/disiircf.frm

@@ -2,8 +2,10 @@ USE %IIR
 JOIN %UCC ALIAS 14 INTO CODTAB=S9
 JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 6 INTO CODANAGR=CODANAGR
+JOIN 7 TO 6 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
 
 END
 DESCRIPTION
@@ -85,6 +87,16 @@ BEGIN
  FORMAT "1444-"
 END
 
+DATA 
+BEGIN
+ KEY "DATA DI COSTITUZIONE"
+ PROMPT 11 18 ""
+ GROUP  2
+ PICTURE "# #^  # #^   ^# # #"
+ FIELD 7->DATACOST
+ FORMAT "1444-"
+END
+
 STRINGA 11
 BEGIN
  KEY "SESSO (M o F)"
@@ -101,6 +113,14 @@ BEGIN
  FIELD 113@->DENCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
+ PROMPT 49 18 ""
+ GROUP  2
+ FIELD 413@->DENCOM
+END
+
 STRINGA 13
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
@@ -109,6 +129,14 @@ BEGIN
  FIELD 113@->PROVCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "PROV. DI COSTITUZIONE (sigla)"
+ PROMPT 131 18 ""
+ GROUP  2
+ FIELD 413@->PROVCOM
+END
+
 STRINGA 14
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"

ba/disivacf.frm

@@ -2,9 +2,11 @@ USE %DEL
 JOIN 9 INTO CODDITTA=CODTAB[1,5]
 JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
 JOIN 8 TO 9 INTO CODANAGR=CODANAGR
+JOIN 7 TO 9 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
 JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
+JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
 
 END
 DESCRIPTION
@@ -90,6 +92,17 @@ BEGIN
  FORMAT "1444-"
 END
 
+DATA 
+BEGIN
+ KEY "DATA DI COSTITUZIONE"
+ PROMPT 4 17 ""
+ GROUP  2
+ FLAGS "DH"
+ PICTURE "# # ^ # # ^^ # # #"
+ FIELD 7->DATANASC
+ FORMAT "1444-"
+END
+
 STRINGA 9
 BEGIN
  KEY "SESSO (M o F)"
@@ -108,6 +121,15 @@ BEGIN
  FIELD 113@->DENCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
+ PROMPT 42 17 ""
+ GROUP  2
+ FLAGS "DH"
+ FIELD 413@->DENCOM
+END
+
 STRINGA 11
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
@@ -117,6 +139,15 @@ BEGIN
  FIELD 113@->PROVCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "PROV. DI COSTITUZIONE (sigla)"
+ PROMPT 120 17 ""
+ GROUP  2
+ FLAGS "DH"
+ FIELD 413@->PROVCOM
+END
+
 STRINGA 12
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"

ba/disritcf.frm

@@ -1,9 +1,11 @@
 USE %RIT
 JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 6 INTO CODANAGR=CODANAGR
+JOIN 7 TO 6 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
 JOIN %UCC ALIAS 14 INTO CODTAB=S9
+JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
 
 END
 DESCRIPTION
@@ -85,6 +87,16 @@ BEGIN
  FORMAT "1444-"
 END
 
+DATA 
+BEGIN
+ KEY "DATA DI COSTITUZIONE"
+ PROMPT 4 19 ""
+ GROUP  2
+ PICTURE "# #^  # #^  ^ # # #"
+ FIELD 7->DATANASC
+ FORMAT "1444-"
+END
+
 STRINGA 9
 BEGIN
  KEY "SESSO (M o F)"
@@ -101,6 +113,14 @@ BEGIN
  FIELD 113@->DENCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
+ PROMPT 42 19 ""
+ GROUP  2
+ FIELD 413@->DENCOM
+END
+
 STRINGA 11
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
@@ -109,6 +129,14 @@ BEGIN
  FIELD 113@->PROVCOM
 END
 
+STRINGA 
+BEGIN
+ KEY "PROV. DI COSTITUZIONE (sigla)"
+ PROMPT 120 19 ""
+ GROUP  2
+ FIELD 413@->PROVCOM
+END
+
 STRINGA 12
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"