USE %RIT
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 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 ALIAS 14 INTO CODTAB=S9

END
DESCRIPTION
BEGIN
  %RIT->* "RIT"
  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 66

STRINGA 1
BEGIN
 KEY "CONCESSIONE DI"
 PROMPT 70 7 ""
 FIELD 14@->S0
END

STRINGA 2
BEGIN
 KEY "COD. CONCESS."
 PROMPT 16 13 ""
 FIELD S9
END

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

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

STRINGA 5
BEGIN
 KEY "NOME"
 PROMPT 95 17 ""
 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
END

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

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

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

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

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

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

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

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

NUMERO 16
BEGIN
 KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
 PROMPT 53 28 ""
 FIELD I0
END

NUMERO 17
BEGIN
 KEY "AL PERIODO DI RIFERIMENTO (anno)"
 PROMPT 60 28 ""
 FIELD I1
END

DATA 18
BEGIN
 KEY "OVVERO ALTRA DATA"
 PROMPT 114 28 ""
 PICTURE "# # ^ # #^^^# #"
 FIELD D1
 FORMAT "1444-"
END

NUMERO 19
BEGIN
 KEY "TRIBUTO 1001: IMPORTO"
 PROMPT 44 33 ""
 MESSAGE COPY,10@
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 20
BEGIN
 KEY "TRIBUTO 1001: INTERESSI"
 PROMPT 76 33 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO 21
BEGIN
 KEY "TRIBUTO 1001: TOTALE"
 PROMPT 114 33 ""
 GROUP  10
 MESSAGE COPY,9@
 PICTURE "###.###.###^^^"
END

NUMERO 22
BEGIN
 KEY "TRIBUTO 1040: IMPORTO"
 PROMPT 44 35 ""
 MESSAGE COPY,11@
 PICTURE "###.###.###^^^"
 FIELD R1
END

NUMERO 23
BEGIN
 KEY "TRIBUTO 1040: INTERESSI"
 PROMPT 76 35 ""
 MESSAGE ADD,11@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO 24
BEGIN
 KEY "TRIBUTO 1040: TOTALE"
 PROMPT 114 35 ""
 GROUP  11
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 25
BEGIN
 KEY "TRIBUTO 3: CODICE"
 PROMPT 11 37 ""
 FIELD S2
END

NUMERO 26
BEGIN
 KEY "TRIBUTO 3: IMPORTO"
 PROMPT 44 37 ""
 MESSAGE COPY,12@
 PICTURE "###.###.###^^^"
 FIELD R2
END

NUMERO 27
BEGIN
 KEY "TRIBUTO 3: INTERESSI"
 PROMPT 76 37 ""
 MESSAGE ADD,12@
 PICTURE "###.###.###^^^"
 FIELD R8
END

NUMERO 28
BEGIN
 KEY "TRIBUTO 3: TOTALE"
 PROMPT 114 37 ""
 GROUP  12
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 29
BEGIN
 KEY "TRIBUTO 4: CODICE"
 PROMPT 11 39 ""
 FIELD S3
END

NUMERO 30
BEGIN
 KEY "TRIBUTO 4: IMPORTO"
 PROMPT 44 39 ""
 MESSAGE COPY,13@
 PICTURE "###.###.###^^^"
 FIELD R3
END

NUMERO 31
BEGIN
 KEY "TRIBUTO 4: INTERESSI"
 PROMPT 76 39 ""
 MESSAGE ADD,13@
 PICTURE "###.###.###^^^"
 FIELD R9
END

NUMERO 32
BEGIN
 KEY "TRIBUTO 4: TOTALE"
 PROMPT 114 39 ""
 GROUP  13
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 33
BEGIN
 KEY "TRIBUTO 5: CODICE"
 PROMPT 11 41 ""
 FIELD S4
END

NUMERO 34
BEGIN
 KEY "TRIBUTO 5: IMPORTO"
 PROMPT 44 41 ""
 MESSAGE COPY,14@
 PICTURE "###.###.###^^^"
 FIELD R4
END

NUMERO 35
BEGIN
 KEY "TRIBUTO 5: INTERESSI"
 PROMPT 76 41 ""
 MESSAGE ADD,14@
 PICTURE "###.###.###^^^"
 FIELD R10
END

NUMERO 36
BEGIN
 KEY "TRIBUTO 5: TOTALE"
 PROMPT 114 41 ""
 GROUP  14
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 37
BEGIN
 KEY "TRIBUTO 6: CODICE"
 PROMPT 11 43 ""
 FIELD S5
END

NUMERO 38
BEGIN
 KEY "TRIBUTO 6: IMPORTO"
 PROMPT 44 43 ""
 MESSAGE COPY,15@
 PICTURE "###.###.###^^^"
 FIELD R5
END

NUMERO 39
BEGIN
 KEY "TRIBUTO 6: INTERESSI"
 PROMPT 76 43 ""
 MESSAGE ADD,15@
 PICTURE "###.###.###^^^"
 FIELD R11
END

NUMERO 40
BEGIN
 KEY "TRIBUTO 6: TOTALE"
 PROMPT 114 43 ""
 GROUP  15
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

NUMERO 41
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 9 57 ""
 GROUP  9
 PICTURE "LETTERE"
END

NUMERO 42
BEGIN
 KEY "TOTALE (in cifre)"
 PROMPT 115 57 ""
 GROUP  9
 PICTURE "###.###.###^^^"
END

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

END

END