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 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

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 64

STRINGA 1
BEGIN
 KEY "CONCESSIONE DI"
 PROMPT 64 5 ""
 FIELD 14@->S0
END

STRINGA 2
BEGIN
 KEY "COD. CONCESS."
 PROMPT 16 11 ""
 FIELD 14@->CODTAB
END

STRINGA 3
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 26 11 ""
 FIELD 6->COFI
END

STRINGA 4
BEGIN
 KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
 PROMPT 4 15 ""
 FIELD 6->RAGSOC[1,30]
END

STRINGA 5
BEGIN
 KEY "NOME"
 PROMPT 95 15 ""
 FIELD 6->RAGSOC[31,-1]
END

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

GRUPPO 7
BEGIN
 KEY "Persone fisiche"
 PROMPT 0 0 ""
 GROUP  1
 FLAGS "DH"
END

DATA 8
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 4 17 ""
 GROUP  1
 FLAGS "DH"
 PICTURE "# # ^ # # ^^ # # #"
 FIELD 8->DATANASC
 FORMAT "1444-"
END

STRINGA 9
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 34 17 ""
 GROUP  1
 FLAGS "DH"
 FIELD 8->SESSO
END

STRINGA 10
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 42 17 ""
 GROUP  1
 FLAGS "DH"
 FIELD 113@->DENCOM
END

STRINGA 11
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 120 17 ""
 GROUP  1
 FLAGS "DH"
 FIELD 113@->PROVCOM
END

STRINGA 12
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 14 19 ""
 FIELD 213@->DENCOM
END

STRINGA 13
BEGIN
 KEY "DOMICILIO FISCALE: PROV. (sigla)"
 PROMPT 64 19 ""
 FIELD 213@->PROVCOM
END

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

STRINGA 15
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 124 19 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

STRINGA 16
BEGIN
 KEY "PARTITA IVA"
 PROMPT 25 47 ""
 FIELD 6->PAIV
END

NUMERO 17
BEGIN
 KEY "ANNO"
 PROMPT 26 51 ""
 PICTURE "^^@@"
 FIELD CODTAB[6,9]
END

NUMERO 18
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 50 51 ""
 MESSAGE COPY,10@
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 19
BEGIN
 KEY "INTERESSI"
 PROMPT 76 51 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###^^^"
 FIELD R1
END

NUMERO 20
BEGIN
 KEY "TOTALE"
 PROMPT 115 51 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO 21
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 9 55 ""
 GROUP  10
 PICTURE "LETTERE"
END

NUMERO 22
BEGIN
 KEY "TOTALE (in cifre)"
 PROMPT 115 55 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

DATA 23
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 22 60 ""
 PICTURE "@@  ^ @@^ ^^@@"
 FIELD D0
 FORMAT "1444-"
END

END

END