Corretti forms deleghe

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

ba/dissd6.frm

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

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