Corrette ed aggiunte deleghe per gli Automatici

git-svn-id: svn://10.65.10.50/trunk@1290 c028cbd2-c16b-5b4b-a496-9718f37d4682
1995-04-21 12:39:07 +00:00 · 1995-04-21 12:39:07 +00:00 · ee6fd84c6b
commit ee6fd84c6b
parent 9e27cb419a
9 changed files with 763 additions and 187 deletions
--- a/ba/del.frm
+++ b/ba/del.frm
@ -12,343 +12,343 @@ END
 SECTION BODY 0 66
 STRINGA
 BEGIN
- KEY "Sede Azienda"
- PROMPT 34 10 ""
- FIELD 1@->S0
+KEY "Sede Azienda"
+PROMPT 34 10 ""
+FIELD 1@->S0
 END

 STRINGA
 BEGIN
- KEY "Sede Filiale"
- PROMPT 34 12 ""
- FIELD 1@->S1
+KEY "Sede Filiale"
+PROMPT 34 12 ""
+FIELD 1@->S1
 END

 STRINGA
 BEGIN
- KEY "Provicia Banca"
- PROMPT 73 12 ""
- FIELD 11@->PROVCOM
+KEY "Provicia Banca"
+PROMPT 73 12 ""
+FIELD 11@->PROVCOM
 END

 LISTA
 BEGIN
- KEY "Tipo anagrafica"
- FIELD 6->TIPOA
- ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
- ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+KEY "Tipo anagrafica"
+FIELD 6->TIPOA
+ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
 END

 GRUPPO
 BEGIN
- KEY "Persone fisiche"
- PROMPT 0 0 ""
- GROUP  1
+KEY "Persone fisiche"
+PROMPT 0 0 ""
+GROUP  1
 END

 LISTA
 BEGIN
- KEY "Sesso"
- PROMPT 19 20 "X  X"
- GROUP  1
- FIELD 8->SESSO
- ITEM "M| " MESSAGE SHOW,3|HIDE,4
- ITEM "F| " MESSAGE SHOW,4|HIDE,3
+KEY "Sesso"
+PROMPT 19 20 "X  X"
+GROUP  1
+FIELD 8->SESSO
+ITEM "M| " MESSAGE SHOW,3|HIDE,4
+ITEM "F| " MESSAGE SHOW,4|HIDE,3
 END

 GRUPPO
 BEGIN
- KEY "Sesso maschile"
- PROMPT 0 0 ""
- GROUP  3
+KEY "Sesso maschile"
+PROMPT 0 0 ""
+GROUP  3
 END

 STRINGA
 BEGIN
- KEY "Il sottoscritto"
- PROMPT 2 14 "I              o"
- GROUP  1 3
+KEY "Il sottoscritto"
+PROMPT 2 14 "I              o"
+GROUP  1 3
 END

 GRUPPO
 BEGIN
- KEY "Sesso Femminile"
- PROMPT 0 0 ""
- GROUP  4
+KEY "Sesso Femminile"
+PROMPT 0 0 ""
+GROUP  4
 END

 STRINGA
 BEGIN
- KEY "La sottoscritta"
- PROMPT 2 14 "  a            a"
- GROUP  1 4
+KEY "La sottoscritta"
+PROMPT 2 14 "  a            a"
+GROUP  1 4
 END

 STRINGA
 BEGIN
- KEY "Cognome"
- PROMPT 5 17 ""
- GROUP  1
- FIELD 6->RAGSOC[1,30]
+KEY "Cognome"
+PROMPT 5 17 ""
+GROUP  1
+FIELD 6->RAGSOC[1,30]
 END

 STRINGA
 BEGIN
- KEY "Nome"
- PROMPT 35 17 ""
- GROUP  1
- FIELD 6->RAGSOC[31,-1]
+KEY "Nome"
+PROMPT 35 17 ""
+GROUP  1
+FIELD 6->RAGSOC[31,-1]
 END

 NUMERO
 BEGIN
- KEY "Giorno di nascita"
- PROMPT 1 20 ""
- GROUP  1
- PICTURE "@ @"
- FIELD 8->DATANASC[1,2]
+KEY "Giorno di nascita"
+PROMPT 1 20 ""
+GROUP  1
+PICTURE "@ @"
+FIELD 8->DATANASC[1,2]
 END

 NUMERO
 BEGIN
- KEY "Mese di nascita"
- PROMPT 5 20 ""
- GROUP  1
- PICTURE "@ @"
- FIELD 8->DATANASC[4,5]
+KEY "Mese di nascita"
+PROMPT 5 20 ""
+GROUP  1
+PICTURE "@ @"
+FIELD 8->DATANASC[4,5]
 END

 NUMERO
 BEGIN
- KEY "Anno di nascita"
- PROMPT 9 20 ""
- GROUP  1
- PICTURE "@ @"
- FIELD 8->DATANASC[9,10]
+KEY "Anno di nascita"
+PROMPT 9 20 ""
+GROUP  1
+PICTURE "@ @"
+FIELD 8->DATANASC[9,10]
 END

 STRINGA
 BEGIN
- KEY "Comune di nascita"
- PROMPT 30 20 ""
- GROUP  1
- FIELD 13@->DENCOM
+KEY "Comune di nascita"
+PROMPT 30 20 ""
+GROUP  1
+FIELD 13@->DENCOM
 END

 STRINGA
 BEGIN
- KEY "Provincia di nascita"
- PROMPT 78 20 ""
- GROUP  1
- FIELD 13@->PROVCOM
+KEY "Provincia di nascita"
+PROMPT 78 20 ""
+GROUP  1
+FIELD 13@->PROVCOM
 END

 GRUPPO
 BEGIN
- KEY "Persone giuridiche"
- PROMPT 0 0 ""
- GROUP  2
+KEY "Persone giuridiche"
+PROMPT 0 0 ""
+GROUP  2
 END

 STRINGA
 BEGIN
- KEY "Ragione Sociale"
- PROMPT 3 24 ""
- GROUP  2
- FIELD 6->RAGSOC
+KEY "Ragione Sociale"
+PROMPT 3 24 ""
+GROUP  2
+FIELD 6->RAGSOC
 END

 STRINGA
 BEGIN
- KEY "Natura Giuridica"
- PROMPT 77 24 ""
- GROUP  2
- FIELD 7->NATGIU
+KEY "Natura Giuridica"
+PROMPT 77 24 ""
+GROUP  2
+FIELD 7->NATGIU
 END

 STRINGA
 BEGIN
- KEY "Via Indirizzo Fiscale"
- FLAGS "H"
- MESSAGE COPY,527
- FIELD 6->INDRF
+KEY "Via Indirizzo Fiscale"
+FLAGS "H"
+MESSAGE COPY,527
+FIELD 6->INDRF
 END

 STRINGA
 BEGIN
- KEY "Numero Civico Indirizzo Fiscale"
- FLAGS "H"
- MESSAGE APPEND,527
- FIELD 6->INDRF
+KEY "Numero Civico Indirizzo Fiscale"
+FLAGS "H"
+MESSAGE APPEND,527
+FIELD 6->INDRF
 END

 STRINGA 527 35
 BEGIN
- KEY "Indirizzo Fiscale"
- PROMPT 5 27 ""
+KEY "Indirizzo Fiscale"
+PROMPT 5 27 ""
 END

 STRINGA
 BEGIN
- KEY "CAP fiscale"
- PROMPT 45 27 ""
- FIELD 6->CAPRF
+KEY "CAP fiscale"
+PROMPT 45 27 ""
+FIELD 6->CAPRF
 END

 STRINGA
 BEGIN
- KEY "Comune di residenza fiscale"
- PROMPT 56 27 ""
- FIELD 12@->DENCOM
+KEY "Comune di residenza fiscale"
+PROMPT 56 27 ""
+FIELD 12@->DENCOM
 END

 STRINGA
 BEGIN
- KEY "Provincia di residenza fiscale"
- PROMPT 75 27 ""
- FIELD 12@->PROVCOM
+KEY "Provincia di residenza fiscale"
+PROMPT 75 27 ""
+FIELD 12@->PROVCOM
 END

 STRINGA
 BEGIN
- KEY "Partita IVA"
- PROMPT 12 30 ""
- PICTURE "# # # # # # # ~ ~ ~ #"
- FIELD 6->PAIV
+KEY "Partita IVA"
+PROMPT 12 30 ""
+PICTURE "# # # # # # # ~ ~ ~ #"
+FIELD 6->PAIV
 END

 STRINGA
 BEGIN
- KEY "Codice fiscale"
- PROMPT 42 30 ""
- PICTURE "# # # # # # # # # # # # # # # #"
- FIELD 6->COFI
+KEY "Codice fiscale"
+PROMPT 42 30 ""
+PICTURE "# # # # # # # # # # # # # # # #"
+FIELD 6->COFI
 END

 NUMERO
 BEGIN
- KEY "Anno di versamento"
- PROMPT 40 35 ""
- PICTURE "~ ~ @ @"
- FIELD CODTAB[6,9]
+KEY "Anno di versamento"
+PROMPT 40 35 ""
+PICTURE "~ ~ @ @"
+FIELD CODTAB[6,9]
 END

 LISTA
 BEGIN
- KEY "Periodo di versamento"
- PROMPT 50 35 ""
- FIELD CODTAB[10,11]
- ITEM "01|Gennaio"
- ITEM "02|Febbraio"
- ITEM "03|Marzo"
- ITEM "04|Aprile"
- ITEM "05|Maggio"
- ITEM "06|Giugno"
- ITEM "07|Luglio"
- ITEM "08|Agosto"
- ITEM "09|Settembre"
- ITEM "10|Ottobre"
- ITEM "11|Novembre"
- ITEM "12|Dicembre"
- ITEM "13|Annuale"
+KEY "Periodo di versamento"
+PROMPT 50 35 ""
+FIELD CODTAB[10,11]
+ITEM "01|Gennaio"
+ITEM "02|Febbraio"
+ITEM "03|Marzo"
+ITEM "04|Aprile"
+ITEM "05|Maggio"
+ITEM "06|Giugno"
+ITEM "07|Luglio"
+ITEM "08|Agosto"
+ITEM "09|Settembre"
+ITEM "10|Ottobre"
+ITEM "11|Novembre"
+ITEM "12|Dicembre"
+ITEM "13|Annuale"
 END

 LISTA
 BEGIN
- KEY "X sul mese"
- PROMPT 40 40 ""
- GROUP  6
- FIELD CODTAB[10,11]
- ITEM "01|X"
- ITEM "02|  X"
- ITEM "03|    X"
- ITEM "04|      X"
- ITEM "05|        X"
- ITEM "06|          X"
- ITEM "07|            X"
- ITEM "08|              X"
- ITEM "09|                X"
- ITEM "10|                  X"
- ITEM "11|                    X"
- ITEM "12|                      X"
- ITEM "13|                        X"
+KEY "X sul mese"
+PROMPT 40 40 ""
+GROUP  6
+FIELD CODTAB[10,11]
+ITEM "01|X"
+ITEM "02|  X"
+ITEM "03|    X"
+ITEM "04|      X"
+ITEM "05|        X"
+ITEM "06|          X"
+ITEM "07|            X"
+ITEM "08|              X"
+ITEM "09|                X"
+ITEM "10|                  X"
+ITEM "11|                    X"
+ITEM "12|                      X"
+ITEM "13|                        X"
 END

 LISTA
 BEGIN
- KEY "X sul trimestre"
- PROMPT 4 33 ""
- GROUP  6
- FIELD CODTAB[10,11]
- ITEM "01|X" 
- ITEM "02|X"
- ITEM "03|X" 
- ITEM "04|  X"
- ITEM "05|  X" 
- ITEM "06|  X" 
- ITEM "07|    X"
- ITEM "08|    X" 
- ITEM "09|    X" 
- ITEM "10|      X"
- ITEM "11|      X"
- ITEM "12|      X"
- ITEM "13|        X"
+KEY "X sul trimestre"
+PROMPT 4 33 ""
+GROUP  6
+FIELD CODTAB[10,11]
+ITEM "01|X" 
+ITEM "02|X"
+ITEM "03|X" 
+ITEM "04|  X"
+ITEM "05|  X" 
+ITEM "06|  X" 
+ITEM "07|    X"
+ITEM "08|    X" 
+ITEM "09|    X" 
+ITEM "10|      X"
+ITEM "11|      X"
+ITEM "12|      X"
+ITEM "13|        X"
 END

 NUMERO
 BEGIN
- KEY "Importo in cifre"
- PROMPT 20 52 ""
- PICTURE "###.###.###~~~"
- FIELD R0
+KEY "Importo in cifre"
+PROMPT 20 52 ""
+PICTURE "###.###.###~~~"
+FIELD R0
 END

 NUMERO
 BEGIN
- KEY "Importo in lettere"
- PROMPT 40 52 ""
- PICTURE "LETTERE"
- FIELD R0
+KEY "Importo in lettere"
+PROMPT 40 52 ""
+PICTURE "LETTERE"
+FIELD R0
 END

 NUMERO
 BEGIN
- KEY "Giorno del versamento"
- PROMPT 30 60 ""
- PICTURE "# #"
- FIELD D0
+KEY "Giorno del versamento"
+PROMPT 30 60 ""
+PICTURE "# #"
+FIELD D0
 END

 NUMERO
 BEGIN
- KEY "Mese del versamento"
- PROMPT 34 60 ""
- PICTURE "# #"
- FIELD D0
+KEY "Mese del versamento"
+PROMPT 34 60 ""
+PICTURE "# #"
+FIELD D0
 END

 NUMERO
 BEGIN
- KEY "Anno del versamento"
- PROMPT 38 60 ""
- PICTURE "# #"
- FIELD D0
+KEY "Anno del versamento"
+PROMPT 38 60 ""
+PICTURE "# #"
+FIELD D0
 END

 STRINGA
 BEGIN
- KEY "Codice Azienda"
- PROMPT 60 62 ""
- PICTURE "@ @ @ @"
- FIELD S8
+KEY "Codice Azienda"
+PROMPT 60 62 ""
+PICTURE "@ @ @ @"
+FIELD S8
 END

 STRINGA
 BEGIN
- KEY "Codice Filiale"
- PROMPT 70 62 ""
- PICTURE "~ ~ @ @"
- FIELD S8
+KEY "Codice Filiale"
+PROMPT 70 62 ""
+PICTURE "~ ~ @ @"
+FIELD S8
 END

 END
--- a/ba/delsdi.frm
+++ b/ba/delsdi.frm
@ -9,6 +9,8 @@ JOIN %BAN ALIAS 14 INTO CODTAB=S7
 JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
 JOIN 13 TO 24@ ALIAS 313 INTO COM=S5

+END
+
 SECTION BODY 0 66 0 0

 STRINGA
--- a/ba/delsdr.frm
+++ b/ba/delsdr.frm
@ -9,6 +9,8 @@ JOIN %BAN ALIAS 14 INTO CODTAB=S7
 JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
 JOIN 13 TO 24@ ALIAS 313 INTO COM=S5

+END
+
 SECTION BODY 0 66 0 0

 STRINGA
--- a/ba/delsii.frm
+++ b/ba/delsii.frm
@ -18,7 +18,7 @@ JOIN 13 TO 24@ ALIAS 413 INTO COM=S5
 JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB=CENSER
 JOIN 13 TO 34@ ALIAS 513 INTO COM=S6

-
+END

 SECTION BODY 0 66 0 0

--- a/ba/dissd6.frm
+++ b/ba/dissd6.frm
@ -0,0 +1,268 @@
+// Distinta di versamento: IRPEG/ILOR (PERSONE GIURIDICHE)
+
+USE %SDI
+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 13 TO 6 INTO COM=COMRF(COMRES)
+
+  END     
+  
+  SECTION BODY 0 66 0 0
+
+  STRINGA
+  BEGIN
+  KEY "CONCESSIONE DI"
+  PROMPT 28 4 ""
+  FIELD 14@->S0
+  END
+
+  STRINGA
+  BEGIN
+  KEY "DENOMINAZIONE"
+  PROMPT 2 10 ""
+  FIELD 6->RAGSOC
+  END
+
+  STRINGA
+  BEGIN
+  KEY "CODICE FISCALE"
+  PROMPT 55 10 ""
+  FIELD 6->COFI
+  END
+
+  STRINGA
+  BEGIN
+  KEY "DOMICILIO FISCALE: COMUNE"
+  PROMPT 16 12 ""
+  FIELD 213@->DENCOM
+  END
+
+  STRINGA
+  BEGIN
+  KEY "DOMICILIO FISCALE: PROV. (sigla)"
+  PROMPT 36 12 ""
+  FIELD 213@->PROVCOM
+  END
+
+  STRINGA
+  BEGIN
+  KEY "DOMICILIO FISCALE: VIA"
+  PROMPT 41 21 ""
+  FIELD 6->INDRF
+  FIELD 6->INDRES
+  END
+
+  STRINGA
+  BEGIN
+  KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+  PROMPT 70 21 ""
+  FIELD 6->CIVRF
+  FIELD 6->CIVRES
+  END   
+
+
+  GRUPPO
+  BEGIN
+  KEY "DISTINTA VERSAMENTO IRPEG"
+  PROMPT 0 0 ""
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
+  PROMPT 20 18 ""
+  FIELD I0
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
+  PROMPT 27 18 ""
+  FIELD I1
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
+  PROMPT 32 18 ""
+  MESSAGE COPY,1@
+  PICTURE "###.###.###~~~"
+  FIELD R0
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
+  PROMPT 48 18 ""
+  MESSAGE ADD,1@
+  PICTURE "###.###.###~~~"
+  FIELD R4
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2100 GRUPPO 4: TOTALE"
+  PROMPT 62 18 ""
+  PICTURE "###.###.###~~~"
+  GROUP 1
+  MESSAGE COPY,5@
+  END
+
+  
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
+  PROMPT 20 23 ""
+  FIELD I2
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
+  PROMPT 27 23 ""
+  FIELD I3
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
+  PROMPT 32 23 ""
+  MESSAGE COPY,2@
+  PICTURE "###.###.###~~~"
+  FIELD R1
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
+  PROMPT 48 23 ""
+  MESSAGE ADD,2@
+  PICTURE "###.###.###~~~"
+  FIELD R5
+  END
+
+  NUMERO
+  BEGIN
+  KEY "IRPEG 2110 GRUPPO 10: TOTALE"
+  PROMPT 62 23 ""
+  PICTURE "###.###.###~~~"
+  GROUP 2
+  MESSAGE ADD,5@
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3000 GRUPPO 06: DA ANNO"
+  PROMPT 20 33 ""
+  FIELD I4
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3000 GRUPPO 06: AD ANNO"
+  PROMPT 27 33 ""
+  FIELD I5
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
+  PROMPT 32 33 ""
+  MESSAGE COPY,3@
+  PICTURE "###.###.###~~~"
+  FIELD R2
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3000 GRUPPO 06: INTERESSI"
+  PROMPT 48 33 ""
+  MESSAGE ADD,3@
+  PICTURE "###.###.###~~~"
+  FIELD R6
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3000 GRUPPO 06: TOTALE"
+  PROMPT 62 33 ""
+  PICTURE "###.###.###~~~"
+  GROUP 3
+  MESSAGE ADD,5@
+  END 
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3110 GRUPPO 11: DA ANNO"
+  PROMPT 20 38 ""
+  FIELD I6
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3110 GRUPPO 11: AD ANNO"
+  PROMPT 27 38 ""
+  FIELD I7
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
+  PROMPT 32 38 ""
+  MESSAGE COPY,4@
+  PICTURE "###.###.###~~~"
+  FIELD R3
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3110 GRUPPO 11: INTERESSI"
+  PROMPT 48 38 ""
+  MESSAGE ADD,4@
+  PICTURE "###.###.###~~~"
+  FIELD R7
+  END
+
+  NUMERO
+  BEGIN
+  KEY "ILOR 3110 GRUPPO 11: TOTALE"
+  PROMPT 62 38 ""
+  PICTURE "###.###.###~~~"
+  GROUP 4
+  MESSAGE ADD,5@
+  END
+
+  NUMERO
+  BEGIN
+  KEY "TOTALE DA VERSARE"
+  PROMPT 62 44 ""
+  PICTURE "###.###.###~~~"
+  GROUP 5
+  END
+
+  STRINGA
+  BEGIN
+  KEY "CODICE CONTRIBUENTE"
+  PROMPT 2 51 "# # # # # # # # # # # # # # #"
+  FIELD 6@->CODCONTR
+  END
+
+  STRINGA
+  BEGIN
+  KEY "CENTRO SERVIZI: Provincia e Denominazione"
+  PROMPT 42 52 ""
+  MESSAGE _CENSERoUFFIMP,6@,13@
+  END
+
+  DATA
+  BEGIN
+  KEY "DATA: giorno - mese - anno"
+  PROMPT 12 56 ""
+  PICTURE "@@ ~ @@~~~@@"
+  FIELD D0
+  END
+
+  END
+
+  END
--- a/ba/dissdi.frm
+++ b/ba/dissdi.frm
@ -7,7 +7,8 @@ JOIN 8 TO 6 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)

-
+END     
+     
 SECTION BODY 0 66 0 0

 STRINGA
--- a/ba/dissdr.frm
+++ b/ba/dissdr.frm
@ -7,6 +7,8 @@ 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

+END
+
 SECTION BODY 0 66 0 0

 STRINGA
--- a/ba/dissii.frm
+++ b/ba/dissii.frm
@ -13,6 +13,7 @@ JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC

 JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC

+END

 SECTION BODY 0 66 0 0

--- a/ba/disskx.frm
+++ b/ba/disskx.frm
@ -0,0 +1,300 @@
+// Distinte di versamento Quadro K 7xx
+
+USE %SII
+
+JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
+JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
+JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
+
+JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
+JOIN 8 TO 6 ALIAS 28 INTO CODANAGR=CODANAGR
+JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC
+
+JOIN %UCC ALIAS 14 INTO CODTAB=S9
+
+END
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 40 5 ""
+ FIELD 14->S0
+END
+
+GRUPPO
+BEGIN
+  KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME"
+ PROMPT 5 10 ""
+ FIELD 16->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 36 10 ""
+ FIELD 16->RAGSOC[31,0]
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 56 10 ""
+ PICTURE "# #~# #~~ # # #"
+ FIELD 18->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 69 12 ""
+ FIELD 18->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "STATO CIVILE"
+ PROMPT 74 12 ""
+ FIELD 18->STATCIV
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 5 12 ""
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 41 12 ""
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 46 12 ""
+ FIELD 16->COFI
+ PICTURE "# # # # # # # # # # # # # # #"
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: COMUNE"
+ PROMPT 14 14 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: PROV. (sigla)"
+ PROMPT 41 14 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: VIA"
+ PROMPT 46 14 ""
+ FIELD 16->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: NUMERO CIVICO"
+ PROMPT 72 14 ""
+ FIELD 16->CIVRES
+END   
+
+GRUPPO
+BEGIN
+  KEY "DATI CONIUGE (ALIAS 26 e 28)"
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME"
+ PROMPT 5 17 ""
+ FIELD 26->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 36 17 ""
+ FIELD 26->RAGSOC[31,0]
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 56 17 ""
+ PICTURE "# #~# #~~ # # #"
+ FIELD 28->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 69 17 ""
+ FIELD 28->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "STATO CIVILE"
+ PROMPT 74 17 ""
+ FIELD 28->STATCIV
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 5 19 ""
+ FIELD 313@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 42 19 ""
+ FIELD 313@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 46 19 ""
+ FIELD 26->COFI
+ PICTURE "# # # # # # # # # # # # # # #"
+END
+
+NUMERO
+BEGIN
+  KEY "PERIODO DI RIFERIMENTO 1"
+  PROMPT 43 25 ""
+  FIELD I0   
+  PICTURE "# #"
+END
+
+NUMERO
+BEGIN
+  KEY "PERIODO DI RIFERIMENTO 2"
+  PROMPT 53 25 ""
+  FIELD I1
+  PICTURE "# #"
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE TRIBUTO"
+  PROMPT 5 29 ""
+  FIELD S2
+END
+
+NUMERO
+BEGIN
+  KEY "GRUPPO"
+  PROMPT 16 29 ""
+  FIELD I2
+END
+
+NUMERO
+BEGIN
+  KEY "IMPORTO TRIBUTO"
+  PROMPT 27 29 ""
+  FIELD R0
+  PICTURE "###.###.###.###~~~"
+  MESSAGE COPY,1@
+END
+
+NUMERO
+BEGIN
+  KEY "INTERESSI"
+  PROMPT 44 29 ""
+  FIELD R1
+  PICTURE "###.###.###.###~~~"
+  MESSAGE ADD,1@
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE (a)"
+  PROMPT 62 29 ""
+  PICTURE "###.###.###.###~~~"
+  MESSAGE COPY,2@
+  GROUP 1
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE TRIBUTO SOPRATASSA"
+  PROMPT 5 35 ""
+  FIELD S3
+END
+
+NUMERO
+BEGIN
+  KEY "GRUPPO SOPRATASSA"
+  PROMPT 12 35 ""
+  FIELD I3
+END
+
+NUMERO
+BEGIN
+  KEY "IMPORTO (b)"
+  PROMPT 22 35 ""
+  FIELD R2
+  PICTURE "###.###.###.###~~~"
+  MESSAGE ADD,2@
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE DA VERSARE (a+b)"
+  PROMPT 62 40 ""
+  PICTURE "###.###.###.###~~~"
+  GROUP 2
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE CONTRIBUENTE Dichiarante"
+  PROMPT 2 53 "# # # # # # # # # # # # # # #"
+  FIELD 16@->CODCONTR
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE CONTRIBUENTE Coniuge"
+  PROMPT 2 56 "# # # # # # # # # # # # # # #"
+  FIELD 26@->CODCONTR
+END
+
+STRINGA
+BEGIN
+  KEY "CENTRO SERVIZI: Provincia e Denominazione"
+  PROMPT 42 56 ""
+  MESSAGE _CENSERoUFFIMP,16@,213@
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 60 ""
+ PICTURE "@ @~@ @~~~@ @"
+ FIELD D0
+END
+
+END
+
+END