diff --git a/ba/deliig.frm b/ba/deliig.frm index 91c6d030b..2928fa11a 100755 --- a/ba/deliig.frm +++ b/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 diff --git a/ba/deliircf.frm b/ba/deliircf.frm index 26f528381..39f1a2e02 100755 --- a/ba/deliircf.frm +++ b/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" diff --git a/ba/delritcf.frm b/ba/delritcf.frm index b8f2d70f2..b74161a91 100755 --- a/ba/delritcf.frm +++ b/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" diff --git a/ba/disgen.frm b/ba/disgen.frm index 206ffcaf6..dc86ff5d9 100755 --- a/ba/disgen.frm +++ b/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" diff --git a/ba/disiircf.frm b/ba/disiircf.frm index 1d22b082c..8efb9be61 100755 --- a/ba/disiircf.frm +++ b/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" diff --git a/ba/disivacf.frm b/ba/disivacf.frm index dd9f0cbef..0d8659d17 100755 --- a/ba/disivacf.frm +++ b/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" diff --git a/ba/disritcf.frm b/ba/disritcf.frm index e1608cba2..0b7b53043 100755 --- a/ba/disritcf.frm +++ b/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"