Corretti forms deleghe

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

ba/dissd6.frm

@@ -1,13 +1,10 @@
-// Distinta di versamento: IRPEG/ILOR (PERSONE GIURIDICHE)
+USE %SD6
-
-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
@@ -35,20 +32,20 @@ JOIN 13 TO 6 INTO COM=COMRF(COMRES)
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"
  PROMPT 16 12 ""
-  FIELD 213@->DENCOM
+ FIELD 13->DENCOM
 END
 
 STRINGA
 BEGIN
  KEY "DOMICILIO FISCALE: PROV. (sigla)"
  PROMPT 36 12 ""
-  FIELD 213@->PROVCOM
+ FIELD 13->PROVCOM
 END
 
 STRINGA
 BEGIN
  KEY "DOMICILIO FISCALE: VIA"
-  PROMPT 41 21 ""
+ PROMPT 41 12 ""
  FIELD 6->INDRF
  FIELD 6->INDRES
 END
@@ -56,12 +53,11 @@ JOIN 13 TO 6 INTO COM=COMRF(COMRES)
 STRINGA
 BEGIN
  KEY "DOMICILIO FISCALE: NUMERO CIVICO"
-  PROMPT 70 21 ""
+ PROMPT 70 12 ""
  FIELD 6->CIVRF
  FIELD 6->CIVRES
 END
 
-
 GRUPPO
 BEGIN
  KEY "DISTINTA VERSAMENTO IRPEG"
@@ -104,12 +100,11 @@ JOIN 13 TO 6 INTO COM=COMRF(COMRES)
 BEGIN
  KEY "IRPEG 2100 GRUPPO 4: TOTALE"
  PROMPT 62 18 ""
-  PICTURE "###.###.###~~~"
  GROUP  1
  MESSAGE COPY,5@
+ PICTURE "###.###.###~~~"
 END
 
-  
 NUMERO
 BEGIN
  KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
@@ -146,9 +141,15 @@ JOIN 13 TO 6 INTO COM=COMRF(COMRES)
 BEGIN
  KEY "IRPEG 2110 GRUPPO 10: TOTALE"
  PROMPT 62 23 ""
-  PICTURE "###.###.###~~~"
  GROUP  2
  MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
+END
+
+GRUPPO
+BEGIN
+ KEY "DISTINTA VERSAMENTO ILOR"
+ PROMPT 0 0 ""
 END
 
 NUMERO
@@ -187,9 +188,9 @@ JOIN 13 TO 6 INTO COM=COMRF(COMRES)
 BEGIN
  KEY "ILOR 3000 GRUPPO 06: TOTALE"
  PROMPT 62 33 ""
-  PICTURE "###.###.###~~~"
  GROUP  3
  MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
 END
 
 NUMERO
@@ -228,31 +229,32 @@ JOIN 13 TO 6 INTO COM=COMRF(COMRES)
 BEGIN
  KEY "ILOR 3110 GRUPPO 11: TOTALE"
  PROMPT 62 38 ""
-  PICTURE "###.###.###~~~"
  GROUP  4
  MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
 END
 
 NUMERO
 BEGIN
  KEY "TOTALE DA VERSARE"
  PROMPT 62 44 ""
-  PICTURE "###.###.###~~~"
  GROUP  5
+ PICTURE "###.###.###~~~"
 END
 
 STRINGA
 BEGIN
  KEY "CODICE CONTRIBUENTE"
-  PROMPT 2 51 "# # # # # # # # # # # # # # #"
+ PROMPT 2 51 ""
-  FIELD 6@->CODCONTR
+ PICTURE "# # # # # # # # # # # # # # #"
+ FIELD 6->CODCONTR
 END
 
 STRINGA
 BEGIN
  KEY "CENTRO SERVIZI: Provincia e Denominazione"
  PROMPT 42 52 ""
-  MESSAGE _CENSERoUFFIMP,6@,13@
+ MESSAGE _CENSERoUFFIMP,6,13
 END
 
 DATA

ba/disskx.frm

@@ -1,6 +1,6 @@
 // Distinte di versamento Quadro K 7xx
 
-USE %SII
+USE %SKX
 
 JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR