USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 7 TO 9 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
  %DEL->* "DEL"
  9->* "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 "###.###.###^^^"
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 34
BEGIN
 KEY "Tipo anagrafica"
 FIELD 6->TIPOA
 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
 ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END

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

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

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

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

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

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

STRINGA 14
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 19 11 ""
 FIELD S6
END

STRINGA 15
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 38 11 ""
 FIELD CODTAB[6,9]
END

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

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

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

STRINGA 19
BEGIN
 KEY "DOMICILIO FISCALE: VIA"
 PROMPT 8 22 ""
 FIELD 6->INDRF
 FIELD 6->INDRES
END

STRINGA 20
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 47 22 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

GRUPPO 21
BEGIN
 KEY "Seconda sezione"
END

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

NUMERO 23
BEGIN
 KEY "INTERESSI"
 PROMPT 73 13 ""
 PICTURE "###.###.###^^^"
END

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

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

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

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

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

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

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

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

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

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

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

STRINGA 34
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 74 11 ""
 FIELD S6
END

STRINGA 35
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 95 11 ""
 PICTURE "^^@@"
 FIELD CODTAB[6,9]
END

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

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

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

STRINGA 39
BEGIN
 KEY "DOMICILIO FISCALE: VIA"
 PROMPT 64 22 ""
 FIELD 6->INDRF
 FIELD 6->INDRES
END

STRINGA 40
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 102 22 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

GRUPPO 41
BEGIN
 KEY "Terza sezione"
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

STRINGA 57
BEGIN
 KEY "DOMICILIO FISCALE: VIA"
 PROMPT 153 10 ""
 FIELD 6->INDRF
 FIELD 6->INDRES
END

STRINGA 58
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 216 10 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

STRINGA 59
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 115 13 ""
 PICTURE "#  #   #  #"
 FIELD S6
END

STRINGA 60
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 143 13 ""
 PICTURE "^^#  @"
 FIELD CODTAB[6,9]
END

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

STRINGA 62
BEGIN
 KEY "Codice fiscale"
 PROMPT 167 13 ""
 GROUP  1
 PICTURE "#  #  #   #  #   #  #   #  #   #  #  #   #  #   #  #"
 FIELD 6->COFI
END

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

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

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

NUMERO 66
BEGIN
 KEY "INTERESSI"
 PROMPT 184 19 ""
 PICTURE "#  #  #   #  #   #  #   #^^^"
END

END

END
