// Distinte di versamento Quadro K 7xx

USE %SKX

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