Corrette ed aggiunte deleghe per gli Automatici

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

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

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

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
 

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

ba/dissdi.frm

@@ -7,6 +7,7 @@ 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
 

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

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
 

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