USE %RIT
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 7 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 %BAN ALIAS 14 INTO CODTAB==S7
JOIN %BAN ALIAS 24 INTO CODTAB==S7+S8
JOIN 13 TO 24@ ALIAS 313 INTO COM==S5
JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST

END
DESCRIPTION
BEGIN
  %RIT->* " "
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  113@->* "Comuni"
  213@->* "Comuni"
  14@->* "BAN"
  24@->* "BAN"
  313@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARTATTERE "X"
  INIZIALE 3 3
END

SECTION BODY ODD 73

STRINGA 1
BEGIN
 KEY "Azienda di credito"
 PROMPT 74 9 ""
 FIELD 14@->S0
END

STRINGA 2
BEGIN
 KEY "Dipendenza"
 PROMPT 74 11 ""
 FIELD 24@->S0
END

STRINGA 3
BEGIN
 KEY "PROVINCIA Dipendenza"
 PROMPT 129 11 ""
 FIELD 313@->PROVCOM
END

STRINGA 4
BEGIN
 KEY "COD. CONCESS."
 PROMPT 16 14 ""
 FIELD S9
END

STRINGA 5
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 26 14 ""
 FIELD 6->COFI
END

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

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

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

GRUPPO 9
BEGIN
 KEY "Persone fisiche"
 PROMPT 0 0 ""
 GROUP  1
END

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

DATA 11
BEGIN
 KEY "DATA DI COSTITUZIONE"
 PROMPT 4 20 ""
 GROUP  2
 PICTURE "# #^   # #^ ^ # # #"
 FIELD 7->DATACOST
 FORMAT "1444-"
END

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

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

STRINGA 14
BEGIN
 KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
 PROMPT 42 20 ""
 GROUP  2
 FIELD 413@->DENCOM
END

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

STRINGA 16
BEGIN
 KEY "PROV. DI COSTITUZIONE (sigla)"
 PROMPT 120 20 ""
 GROUP  2
 FIELD 413@->PROVCOM
END

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

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

STRINGA 19
BEGIN
 KEY "CAMPO PER MESSAGGIO RESIDENZA"
 PROMPT -1 -1 ""
 FLAGS "H"
 FIELD 6->INDRF
 MESSAGE EMPTY SHOW,18@|HIDE,17@
 MESSAGE SHOW,17@|HIDE,18@
END

STRINGA 20
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RF)"
 PROMPT 72 22 ""
 FIELD 6->INDRF
 GROUP 17
END

STRINGA 21
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RF)"
 PROMPT 124 22 ""
 GROUP 17
 FIELD 6->CIVRF
END

STRINGA 22
BEGIN
 KEY "DOMICILIO FISCALE: VIA (RES)"
 PROMPT 72 22 ""
 GROUP 18
 FLAGS "H" 
 FIELD 6->INDRES
END

STRINGA 23
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO (RES)"
 PROMPT 124 22 ""
 FIELD 6->CIVRES
 GROUP 18
 FLAGS "H"
END

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

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

DATA 26
BEGIN
 KEY "OVVERO ALTRA DATA"
 PROMPT 113 29 ""
 PICTURE "# # ^ # #^  ^^# #"
 FIELD D1
 FORMAT "1444-"
END

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

NUMERO 28
BEGIN
 KEY "TRIBUTO 1001: INTERESSI"
 PROMPT 75 34 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO 29
BEGIN
 KEY "TRIBUTO 1001: TOTALE"
 PROMPT 112 34 ""
 GROUP  10
 MESSAGE COPY,9@
 PICTURE "###.###.###^^^"
END

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

NUMERO 31
BEGIN
 KEY "TRIBUTO 1040: INTERESSI"
 PROMPT 75 36 ""
 MESSAGE ADD,11@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO 32
BEGIN
 KEY "TRIBUTO 1040: TOTALE"
 PROMPT 112 36 ""
 GROUP  11
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 33
BEGIN
 KEY "TRIBUTO 3: CODICE"
 PROMPT 7 38 ""
 FIELD S2
END

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

NUMERO 35
BEGIN
 KEY "TRIBUTO 3: INTERESSI"
 PROMPT 75 38 ""
 MESSAGE ADD,12@
 PICTURE "###.###.###^^^"
 FIELD R8
END

NUMERO 36
BEGIN
 KEY "TRIBUTO 3: TOTALE"
 PROMPT 112 38 ""
 GROUP  12
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 37
BEGIN
 KEY "TRIBUTO 4: CODICE"
 PROMPT 7 40 ""
 FIELD S3
END

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

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

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

STRINGA 41
BEGIN
 KEY "TRIBUTO 5: CODICE"
 PROMPT 7 42 ""
 FIELD S4
END

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

NUMERO 43
BEGIN
 KEY "TRIBUTO 5: INTERESSI"
 PROMPT 75 42 ""
 MESSAGE ADD,14@
 PICTURE "###.###.###^^^"
 FIELD R10
END

NUMERO 44
BEGIN
 KEY "TRIBUTO 5: TOTALE"
 PROMPT 112 42 ""
 GROUP  14
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

STRINGA 45
BEGIN
 KEY "TRIBUTO 6: CODICE"
 PROMPT 7 44 ""
 FIELD S5
END

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

NUMERO 47
BEGIN
 KEY "TRIBUTO 6: INTERESSI"
 PROMPT 75 44 ""
 MESSAGE ADD,15@
 PICTURE "###.###.###^^^"
 FIELD R11
END

NUMERO 48
BEGIN
 KEY "TRIBUTO 6: TOTALE"
 PROMPT 112 44 ""
 GROUP  15
 MESSAGE ADD,9@
 PICTURE "###.###.###^^^"
END

NUMERO 49
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 9 58 ""
 GROUP  9
 PICTURE "LETTERE"
END

NUMERO 50
BEGIN
 KEY "TOTALE (in cifre)"
 PROMPT 112 58 ""
 GROUP  9
 PICTURE "###.###.###^^^"
END

DATA 51
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 79 63 ""
 PICTURE "@  @^  @  @^ ^^@  @"
 FIELD D0
 FORMAT "1444-"
END

STRINGA 52
BEGIN
 KEY "CODICE AZIENDA"
 PROMPT 102 63 ""
 FIELD S7
END

STRINGA 53
BEGIN
 KEY "CODICE DIPENDENZA"
 PROMPT 120 63 ""
 FIELD S8
END

END

END