USE %IIR
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB==UFFCONC
JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
END

DESCRIPTION
BEGIN
  %IIR->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  113@->* "Comuni"
  213@->* "Comuni"
  14@->* "UCC"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARATTERE "X"
  INIZIALE 1 1
  FINALE   223  1
END

SECTION BODY ODD 24

GRUPPO 1
BEGIN
 KEY "Prima sezione"
END

NUMERO 2
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 5 13 ""
 MESSAGE COPY,10@
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 3
BEGIN
 KEY "INTERESSI"
 PROMPT 17 13 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO 4
BEGIN
 KEY "TOTALE (in basso)"
 PROMPT 36 13 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO 5
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 37 2 ""
 GROUP  10
 PICTURE "(*)###.###.###^^^"
END

NUMERO 6
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 8 3 ""
 GROUP  10
 PICTURE "(*,*)LETTERE@44"
END

STRINGA 7
BEGIN
 KEY "sul C/C n."
 PROMPT 12 4 ""
 FIELD 14@->S5
END

STRINGA 8
BEGIN
 KEY "Concessione di"
 PROMPT 16 5 ""
 FIELD 14@->S0
END

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

STRINGA 10
BEGIN
 KEY "Eseguito da (PG)"
 PROMPT 12 6 ""
 GROUP  2
 FIELD 6->RAGSOC[1,38]
END

STRINGA 11
BEGIN
 KEY "Eseguito da (PF PRIMA PARTE)"
 GROUP  1
 FLAGS "H"
 MESSAGE COPY,527
 FIELD 6->RAGSOC[1,22]
END

STRINGA 12
BEGIN
 KEY "Eseguito da (PF SECONDA PARTE)"
 GROUP  1
 FLAGS "H"
 MESSAGE APPEND,527
 FIELD 6->RAGSOC[31,50]
END

STRINGA 527
BEGIN
 KEY "Eseguita da (COMPLETO)"
 PROMPT 12 6 ""
 GROUP  1
END

STRINGA 13
BEGIN
 KEY "Codice Concessione"
 PROMPT 17 9 ""
 FIELD 14@->CODTAB
END

STRINGA 14
BEGIN
 KEY "Codice fiscale"
 PROMPT 22 9 ""
 FIELD 6->COFI
END

STRINGA 15
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 19 11 ""
 FIELD S1
END

STRINGA 16
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 38 11 ""
 FIELD S2
END

DATA 17
BEGIN
 KEY "Data del versamento"
 PROMPT 11 19 ""
 FIELD D0
 FORMAT "1444-"
END

STRINGA 18
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 8 20 ""
 FIELD 213@->DENCOM
END

STRINGA 19
BEGIN
 KEY "DOMICILIO FISCALE: Provincia"
 PROMPT 46 20 ""
 FIELD 213@->PROVCOM
END

STRINGA 20
BEGIN
 KEY "CAMPO PER MESSAGGIO RESIDENZA"
 PROMPT -1 -1 ""
 FLAGS "H"
 FIELD 6->INDRF
 MESSAGE EMPTY SHOW,18@|HIDE,17@
 MESSAGE SHOW,17@|HIDE,18@
END

STRINGA 21
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RF)"
 PROMPT 8 22 ""
 FIELD 6->INDRF
 GROUP 17
END

STRINGA 22
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RF)"
 PROMPT 47 22 ""
 FIELD 6->CIVRF
 GROUP 17
END

STRINGA 23
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RES)"
 FLAGS "H"
 PROMPT 8 22 ""
 GROUP 18
 FIELD 6->INDRES
END

STRINGA 24
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RES)"
 PROMPT 47 22 ""
 FLAGS "H"
 GROUP 18
 FIELD 6->CIVRES
END

GRUPPO 25
BEGIN
 KEY "Seconda sezione"
END

NUMERO 26
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 60 13 ""
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 27
BEGIN
 KEY "INTERESSI"
 PROMPT 73 13 ""
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO 28
BEGIN
 KEY "TOTALE (in basso)"
 PROMPT 91 13 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO 29
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 92 2 ""
 GROUP  10
 PICTURE "(*)###.###.###^^^"
END

NUMERO 30
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 63 3 ""
 GROUP  10
 PICTURE "(*,*)LETTERE@44"
END

STRINGA 31
BEGIN
 KEY "sul C/C n."
 PROMPT 68 4 ""
 FIELD 14@->S5
END

STRINGA 32
BEGIN
 KEY "Concessione di"
 PROMPT 72 5 ""
 FIELD 14@->S0
END

STRINGA 33
BEGIN
 KEY "Eseguito da (PG)"
 PROMPT 67 6 ""
 GROUP  2
 FIELD 6->RAGSOC[1,38]
END

STRINGA 34
BEGIN
 KEY "Eseguito da (PF PRIMA PARTE)"
 GROUP  1
 MESSAGE COPY,528
 FIELD 6->RAGSOC[1,22]
END

STRINGA 35
BEGIN
 KEY "Eseguito da (PF SECONDA PARTE)"
 GROUP  1
 MESSAGE APPEND,528
 FIELD 6->RAGSOC[31,50]
END

STRINGA 528
BEGIN
 KEY "Eseguita da (PF COMPLETO)"
 PROMPT 67 6 ""
 GROUP  1
END

STRINGA 36
BEGIN
 KEY "Codice Concessione"
 PROMPT 71 9 ""
 FIELD 14@->CODTAB
END

STRINGA 37
BEGIN
 KEY "Codice fiscale"
 PROMPT 79 9 ""
 FIELD 6->COFI
END

STRINGA 38
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 74 11 ""
 FIELD S1
END

STRINGA 39
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 95 11 ""
 PICTURE "^^@@"
 FIELD S2
END

DATA 40
BEGIN
 KEY "Data del versamento"
 PROMPT 67 19 ""
 FIELD D0
 FORMAT "1444-"
END

STRINGA 41
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 64 20 ""
 FIELD 213@->DENCOM
END

STRINGA 42
BEGIN
 KEY "DOMICILIO FISCALE: Provincia"
 PROMPT 102 20 ""
 FIELD 213@->PROVCOM
END

STRINGA 43
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RF)"
 PROMPT 64 22 ""
 GROUP 17
 FIELD 6->INDRF
END

STRINGA 44
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RF)"
 PROMPT 102 22 ""
 GROUP 17
 FIELD 6->CIVRF
END

STRINGA 45
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RES)"
 PROMPT 64 22 ""
 FLAGS "H"
 GROUP 18
 FIELD 6->INDRES
END

STRINGA 46
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RES)"
 PROMPT 102 22 ""
 FLAGS "H"
 GROUP 18
 FIELD 6->CIVRES
END

GRUPPO 47
BEGIN
 KEY "Terza sezione"
END

NUMERO 48
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 120 3 ""
 GROUP  10
 PICTURE "(*,*)LETTERE@52"
END

NUMERO 49
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 184 3 ""
 GROUP  10
 PICTURE "(*  )#  #  #   #  #  #   #  #^^^"
END

STRINGA 50
BEGIN
 KEY "sul C/C n."
 PROMPT 123 4 ""
 FIELD 14@->S5
END

STRINGA 51
BEGIN
 KEY "Concessione di"
 PROMPT 130 5 ""
 FIELD 14@->S0
END

STRINGA 52
BEGIN
 KEY "Eseguito da (PG)"
 PROMPT 130 6 ""
 GROUP 2
 FIELD 6->RAGSOC
END

STRINGA 53
BEGIN
 KEY "Eseguito da (PF Prima parte)"
 PROMPT 130 6 ""
 GROUP 1
 FIELD 6->RAGSOC[1,30]
END

STRINGA 54
BEGIN
 KEY "Eseguito da (PF Seconda parte)"
 PROMPT 183 6 ""
 GROUP 1
 FIELD 6->RAGSOC[31,50]
END

DATA 55
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 114 8 ""
 GROUP  1
 FLAGS "D"
 PICTURE "#  #^  #  #^ ^   #  #  #"
 FIELD 8->DATANASC
 FORMAT "1444-"
END

DATA 56
BEGIN
 KEY "DATA DI COSTITUZIONE (PG)"
 PROMPT 115 8 ""
 GROUP  2
 FLAGS "D"
 PICTURE "#  #^  #  #^ ^   #  #  #"
 FIELD 7->DATACOST
 FORMAT "1444-"
END

STRINGA 57
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 151 8 ""
 GROUP  1
 FLAGS "D"
 FIELD 113@->DENCOM
END

STRINGA 58
BEGIN
 KEY "COMUNE DI COSTITUZIONE"
 PROMPT 151 8 ""
 GROUP  2
 FLAGS "D"
 FIELD 413@->DENCOM
END

STRINGA 59
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 208 8 ""
 GROUP  1
 FLAGS "D"
 PICTURE "#  #"
 FIELD 113@->PROVCOM
END

STRINGA 60
BEGIN
 KEY "PROV. DI COSTITUZIONE (sigla)"
 PROMPT 208 8 ""
 GROUP  2
 FLAGS "D"
 PICTURE "#  #"
 FIELD 413@->PROVCOM
END

STRINGA 61
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 217 8 ""
 GROUP  1
 FLAGS "D"
 FIELD 8->SESSO
END

STRINGA 62
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 121 10 ""
 FIELD 213@->DENCOM
END

STRINGA 63
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RF)"
 PROMPT 153 10 ""
 GROUP 17
 FIELD 6->INDRF
END

STRINGA 64
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RF)"
 PROMPT 216 10 ""
 GROUP 17
 FIELD 6->CIVRF
END

STRINGA 65
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RES)"
 PROMPT 153 10 ""
 GROUP 18
 FLAGS "H"
 FIELD 6->INDRES
END

STRINGA 66
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RES)"
 PROMPT 216 10 ""
 GROUP 18
 FLAGS "H"
 FIELD 6->CIVRES
END

STRINGA 67
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 115 13 ""
 PICTURE "#  #   #  #"
 FIELD S1
END

STRINGA 68
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 143 13 ""
  PICTURE "^^#  @"
 FIELD S2
END

STRINGA 69
BEGIN
 KEY "Codice Concessione"
 PROMPT 157 13 ""
 PICTURE "@  @  @"
 FIELD 14@->CODTAB
END

STRINGA 70
BEGIN
 KEY "Codice fiscale (Persone fisiche)"
 PROMPT 167 13 ""
 GROUP  1
 FLAGS "D"
 PICTURE "#  #  #   #  #   #  #   #  #   #  #  #   #  #   #  #"
 FIELD 6->COFI
END

STRINGA 71
BEGIN
 KEY "Codice fiscale (Persone GIURIDICHE)"
 PROMPT 167 13 ""
 GROUP  2
 FLAGS "D"
 PICTURE "#  #  #   #  #  #   #  #  #   #  #"
 FIELD 6->COFI
END

STRINGA 72
BEGIN
 KEY "Partita IVA"
 PROMPT 184 15 ""
 PICTURE "#  #   #  #   #  #  #  #   #  #   #"
 FIELD 6->PAIV
END

NUMERO 73
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 184 17 ""
 PICTURE "#  #  #   #  #   #  #   #^^^"
 FIELD R0
END

NUMERO 74
BEGIN
 KEY "INTERESSI"
 PROMPT 184 19 ""
 PICTURE "#  #  #   #  #   #  #   #^^^"
 FIELD R7
END

END

END