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

SECTION BODY 0 64 0 0

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

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

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

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

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

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

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

DATA
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 2 17 ""
 GROUP  1
 FLAGS "DH"
 PICTURE "# # ~ # # ~ ~ # # #"
 FIELD 8->DATANASC
END

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

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

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

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

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

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

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

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

NUMERO
BEGIN
 KEY "ANNO"
 PROMPT 14 51 ""
 PICTURE "~~@@"
 FIELD CODTAB[6,9]
END

NUMERO
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 20 51 ""
 MESSAGE COPY,10@
 PICTURE "###.###.###~~~"
 FIELD R0
END

NUMERO
BEGIN
 KEY "INTERESSI"
 PROMPT 40 51 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###~~~"
 FIELD R1
END

NUMERO
BEGIN
 KEY "TOTALE"
 PROMPT 54 51 ""
 GROUP  10
 PICTURE "###.###.###~~~"
END

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

NUMERO
BEGIN
 KEY "TOTALE (in cifre)"
 PROMPT 54 55 ""
 GROUP  10
 PICTURE "###.###.###~~~"
END

DATA
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 12 60 ""
 PICTURE "@@ ~ @@~~~@@"
 FIELD D0
END

END

END