diff --git a/ba/disgen.frm b/ba/disgen.frm index 16ff49c9f..33f0069be 100755 --- a/ba/disgen.frm +++ b/ba/disgen.frm @@ -2,12 +2,12 @@ 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 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 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 +JOIN 13 TO 18@ ALIAS 313 INTO COM==COMNASC JOIN %UCC ALIAS 14 INTO CODTAB=S9 END diff --git a/ba/disivacf.frm b/ba/disivacf.frm index dafea8fc2..3c383e901 100755 --- a/ba/disivacf.frm +++ b/ba/disivacf.frm @@ -41,7 +41,7 @@ END STRINGA 2 BEGIN KEY "COD. CONCESS." - PROMPT 16 11 "" + PROMPT 16 10 "" FIELD 6->UFFCONC FIELD 14@->CODTAB END @@ -57,7 +57,7 @@ END STRINGA 3 BEGIN KEY "CODICE FISCALE" - PROMPT 26 11 "" + PROMPT 26 10 "" PICTURE "# # # # # # # # # # # # # # # #" FIELD 6->COFI END @@ -65,7 +65,7 @@ END STRINGA 4 BEGIN KEY "COGNOME" - PROMPT 3 15 "" + PROMPT 3 14 "" GROUP 1 FIELD 6->RAGSOC[1,30] END @@ -73,7 +73,7 @@ END STRINGA 5 BEGIN KEY "NOME" - PROMPT 91 15 "" + PROMPT 91 14 "" GROUP 1 FIELD 6->RAGSOC[31,-1] END @@ -81,7 +81,7 @@ END STRINGA 25 BEGIN KEY "DENOMINAZIONE O RAGIONE SOCIALE" - PROMPT 3 15 "" + PROMPT 3 14 "" GROUP 2 FIELD 6->RAGSOC END @@ -97,7 +97,7 @@ END DATA 8 BEGIN KEY "DATA DI NASCITA" - PROMPT 3 17 "" + PROMPT 3 16 "" GROUP 1 FLAGS "DH" PICTURE "# # ^ # # ^^ # # #" @@ -108,7 +108,7 @@ END DATA BEGIN KEY "DATA DI COSTITUZIONE" - PROMPT 3 17 "" + PROMPT 3 16 "" GROUP 2 FLAGS "DH" PICTURE "# # ^ # # ^^ # # #" @@ -119,7 +119,7 @@ END STRINGA 9 BEGIN KEY "SESSO (M o F)" - PROMPT 33 17 "" + PROMPT 33 16 "" GROUP 1 FLAGS "DH" FIELD 8->SESSO @@ -128,7 +128,7 @@ END STRINGA 10 BEGIN KEY "COMUNE (o Stato estero) DI NASCITA" - PROMPT 41 17 "" + PROMPT 41 16 "" GROUP 1 FLAGS "DH" FIELD 113@->DENCOM @@ -137,7 +137,7 @@ END STRINGA BEGIN KEY "COMUNE (o Stato estero) DI COSTITUZIONE" - PROMPT 41 17 "" + PROMPT 41 16 "" GROUP 2 FLAGS "DH" FIELD 413@->DENCOM @@ -146,7 +146,7 @@ END STRINGA 11 BEGIN KEY "PROV. DI NASCITA (sigla)" - PROMPT 120 17 "" + PROMPT 120 16 "" GROUP 1 FLAGS "DH" FIELD 113@->PROVCOM @@ -155,7 +155,7 @@ END STRINGA BEGIN KEY "PROV. DI COSTITUZIONE (sigla)" - PROMPT 120 17 "" + PROMPT 120 16 "" GROUP 2 FLAGS "DH" FIELD 413@->PROVCOM @@ -164,21 +164,21 @@ END STRINGA 12 BEGIN KEY "DOMICILIO FISCALE: COMUNE" - PROMPT 13 19 "" + PROMPT 13 18 "" FIELD 213@->DENCOM END STRINGA 13 BEGIN KEY "DOMICILIO FISCALE: PROV. (sigla)" - PROMPT 64 19 "" + PROMPT 64 18 "" FIELD 213@->PROVCOM END STRINGA 14 BEGIN KEY "DOMICILIO FISCALE: VIA" - PROMPT 70 19 "" + PROMPT 70 18 "" FIELD 6->INDRF FIELD 6->INDRES END @@ -186,7 +186,7 @@ END STRINGA 15 BEGIN KEY "DOMICILIO FISCALE: NUMERO CIVICO" - PROMPT 124 19 "" + PROMPT 124 18 "" FIELD 6->CIVRF FIELD 6->CIVRES END @@ -194,7 +194,7 @@ END STRINGA 16 BEGIN KEY "PARTITA IVA" - PROMPT 25 46 "" + PROMPT 25 45 "" PICTURE "# # # # # # # # # # #" FIELD 6->PAIV END @@ -202,14 +202,14 @@ END STRINGA 24 BEGIN KEY "CODICE TRIBUTO" - PROMPT 10 51 "" + PROMPT 10 50 "" FIELD S6 END STRINGA 17 BEGIN KEY "ANNO" - PROMPT 26 51 "" + PROMPT 26 50 "" PICTURE "^^@@" FIELD CODTAB[6,9] END @@ -217,7 +217,7 @@ END NUMERO 18 BEGIN KEY "IMPORTO TRIBUTO" - PROMPT 48 51 "" + PROMPT 48 50 "" MESSAGE COPY,10@ PICTURE "###.###.###^^^" FIELD R0 @@ -226,7 +226,7 @@ END NUMERO 19 BEGIN KEY "INTERESSI" - PROMPT 74 51 "" + PROMPT 74 50 "" MESSAGE ADD,10@ PICTURE "###.###.###^^^" END @@ -234,7 +234,7 @@ END NUMERO 20 BEGIN KEY "TOTALE" - PROMPT 111 51 "" + PROMPT 111 50 "" GROUP 10 PICTURE "###.###.###^^^" END @@ -242,7 +242,7 @@ END NUMERO 21 BEGIN KEY "TOTALE (in lettere)" - PROMPT 7 55 "" + PROMPT 7 54 "" GROUP 10 PICTURE "LETTERE" END @@ -250,7 +250,7 @@ END NUMERO 22 BEGIN KEY "TOTALE (in cifre)" - PROMPT 111 55 "" + PROMPT 111 54 "" GROUP 10 PICTURE "###.###.###^^^" END @@ -258,7 +258,7 @@ END DATA 23 BEGIN KEY "DATA: giorno - mese - anno" - PROMPT 21 59 "" + PROMPT 21 58 "" PICTURE "@@ ^ @@^ ^^@@" FIELD D0 FORMAT "1444-"