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 "Courier New"
  SIZE 7
END

SECTION BODY ODD 24

GRUPPO 1
BEGIN
 KEY "Prima sezione"
END

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

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

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

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

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

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

STRINGA 8
BEGIN
 KEY "Concessione di"
 PROMPT 13 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 9 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 9 6 ""
 GROUP  1
END

NUMERO 10
BEGIN
 KEY "Codice Concessione"
 PROMPT 14 9 ""
 FIELD 6->UFFCONC
 FIELD 14@->CODTAB
END

STRINGA 11
BEGIN
 KEY "Codice fiscale"
 PROMPT 19 9 ""
 FIELD 6->COFI
END

STRINGA 12
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 16 11 ""
 FIELD S6
END

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

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

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

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

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

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

GRUPPO 14
BEGIN
 KEY "Seconda sezione"
END

NUMERO 15
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 57 13 ""
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 16
BEGIN
 KEY "INTERESSI"
 PROMPT 70 13 ""
 PICTURE "###.###.###^^^"
 FIELD R1
END

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

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

NUMERO 19 44 1
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 60 3 ""
 GROUP  10
 PICTURE "(*,*)LETTERE"
END

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

STRINGA 21
BEGIN
 KEY "Concessione di"
 PROMPT 69 5 ""
 FIELD 14@->S0
END

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

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

STRINGA 32
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 64 6 ""
 GROUP  1
END

NUMERO 23
BEGIN
 KEY "Codice Concessione"
 PROMPT 68 9 ""
 FIELD 6->UFFCONC
 FIELD 14@->CODTAB
END

STRINGA 24
BEGIN
 KEY "Codice fiscale"
 PROMPT 76 9 ""
 FIELD 6->COFI
END

STRINGA 25
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 71 11 ""
 FIELD S6
END

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

DATA 38
BEGIN
 KEY "Data del versamento"
 PROMPT 64 19 ""
 FIELD D0
 FORMAT "1444-"
END

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

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

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

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

GRUPPO 27
BEGIN
 KEY "Terza sezione"
END

NUMERO 28 58 1
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 117 3 ""
 GROUP  10
 PICTURE "(*,*)LETTERE"
END

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

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

STRINGA 31
BEGIN
 KEY "Concessione di"
 PROMPT 127 5 ""
 FIELD 14@->S0
END

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

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

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

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

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

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

STRINGA 51
BEGIN
 KEY "COMUNE (o Stato estero) DI COSTITUZIONE (PG)"
 PROMPT 148 8 ""
 GROUP  2
 FLAGS "D"
 FIELD 413@->DENCOM
END

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

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

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

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

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

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

STRINGA 42
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 112 13 ""
 PICTURE "#  #   #  #"
 FIELD S6
END

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

NUMERO 44
BEGIN
 KEY "Codice Concessione"
 PROMPT 154 13 ""
 PICTURE "@  @  @"
 FIELD 6->UFFCONC
 FIELD 14@->CODTAB
END

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

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

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

NUMERO 47
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 181 17 ""
 PICTURE "(*  )#  #  #   #  #   #  #   #^^^"
 FIELD R0
END

NUMERO 48
BEGIN
 KEY "INTERESSI"
 PROMPT 181 19 ""
 PICTURE "(*  )#  #  #   #  #   #  #   #^^^"
 FIELD R1
END

END

END