USE 56
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)

END
DESCRIPTION
BEGIN
  56->* "Quadro A1 770"
  45->* "Anagrafica dei dipendenti"
  104@->* "Tabella CAAF"
  9->* "Ditte"
  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
  108@->* "Anagrafica persone fisiche (ditta)"
  113@->* "Comuni DITTA (nascita)"
  213@->* "Comuni DITTA (residenza)"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier New"
  SIZE 11
  CARATTERE "X"
  INIZIO_POS 3 2
  FINE_POS 131
  GRID "+++++++++-|"
END

SECTION HEADER FIRST 28

LISTA 1
BEGIN
 KEY "Tipo anagrafica"
 FLAGS "H"
 FIELD 106@->TIPOA
 ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
 ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END

STRINGA 2
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 3 13 ""
 FIELD 106@->COFI
END

STRINGA 3
BEGIN
 KEY "RAGIONE SOCIALE"
 PROMPT 40 13 ""
 GROUP  2
 FIELD 106@->RAGSOC
END

STRINGA 4
BEGIN
 KEY "COGNOME"
 PROMPT 40 13 ""
 GROUP  1
 FIELD 106@->RAGSOC[1,30]
END

STRINGA 5
BEGIN
 KEY "NOME"
 PROMPT 17 15 ""
 GROUP  1
 FIELD 106@->RAGSOC[31,50]
END

STRINGA 6
BEGIN
 KEY "SESSO"
 PROMPT 59 15 ""
 GROUP  1
 FIELD 108@->SESSO
END

STRINGA 7
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 64 15 ""
 GROUP  1
 FIELD 108@->DATANASC
END

STRINGA 8
BEGIN
 KEY "COMUNE DI NASCITA"
 PROMPT 86 15 ""
 GROUP  1
 FIELD 113@->DENCOM
END

STRINGA 9
BEGIN
 KEY "PROV. DI NASCITA"
 PROMPT 128 15 ""
 GROUP  1
 FIELD 113@->PROVCOM
END

STRINGA 10
BEGIN
 KEY "COMUNE DI RES.FISCALE"
 PROMPT 17 17 ""
 FIELD 213@->DENCOM
END

STRINGA 11
BEGIN
 KEY "PROV DI RES.FISCALE"
 PROMPT 59 17 ""
 FIELD 213@->PROVCOM
END

STRINGA 12
BEGIN
 KEY "VIA di RES."
 PROMPT 68 17 ""
 FIELD 106@->INDRF
END

STRINGA 15
BEGIN
 KEY "NUM. CIVICO di RES."
 PROMPT 104 17 ""
 FIELD 106@->CIVRF
END

STRINGA 16
BEGIN
 KEY "CAP"
 PROMPT 125 17 ""
 FIELD 106@->CAPRF
END

STRINGA 13
BEGIN
 KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
 PROMPT 87 20 ""
END

NUMERO 14
BEGIN
 KEY "NUM. FOGLIO"
 PROMPT 125 24 ""
END

END

SECTION BODY ODD 10

STRINGA 1
BEGIN
 KEY "COD.FIS"
 PROMPT 11 1 ""
 FIELD 45->CODFI
END

STRINGA 2
BEGIN
 KEY "COGNOME"
 PROMPT 43 1 ""
 FIELD 45->COGNOME
END

STRINGA 3
BEGIN
 KEY "NOME"
 PROMPT 80 1 ""
 FIELD 45->NOME
END

DATA 4
BEGIN
 KEY "DATA NASCITA"
 PROMPT 114 1 ""
 FIELD 45->DATANA
 FORMAT "1444-"
END

STRINGA 5
BEGIN
 KEY "SESSO"
 PROMPT 128 1 ""
 FIELD 45->SESSO
END

STRINGA 6
BEGIN
 KEY "COMUNE DI NASCITA"
 PROMPT 11 3 ""
 FIELD 45->COMUNENA
END

STRINGA 7
BEGIN
 KEY "PROV DI NASCITA"
 PROMPT 51 3 ""
 FIELD 45->PROVNA
END

NUMERO 8
BEGIN
 KEY "MESE DI RIFERIMENTO"
 PROMPT 11 5 ""
 FIELD 56->MESERIF
END

NUMERO 9
BEGIN
 KEY "IMPOSTA RIMBORSATA"
 PROMPT 23 5 ""
 PICTURE "###.###.###^^^"
 FIELD 56->IMPRIMB9
 MESSAGE ADD,FL->9
END

NUMERO 10
BEGIN
 KEY "IMPOSTA VERSATA"
 PROMPT 42 5 ""
 PICTURE "###.###.###^^^"
 FIELD 56->IMPVERS10
 MESSAGE ADD,FL->10
END    

NUMERO 11
BEGIN
 KEY "INTERESSI"
 PROMPT 61 5 ""
 PICTURE "###.###.###^^^"
 FIELD 56->INTER11
 MESSAGE ADD,FL->11
END

NUMERO 12
BEGIN
 KEY "IMPOSTA VERSATA"
 PROMPT 79 5 ""
 PICTURE "###.###.###^^^"
 FIELD 56->IMPVERS12
 MESSAGE ADD,FL->12
END

NUMERO 13
BEGIN
 KEY "INTERESSI"
 PROMPT 98 5 ""
 PICTURE "###.###.###^^^"
 FIELD 56->INTER13
 MESSAGE ADD,FL->13
END

NUMERO 14
BEGIN
 KEY "SOPRATTASSA SU IRPEF"
 PROMPT 117 5 ""
 PICTURE "###.###.###^^^"
 FIELD 56->STASSA14
 MESSAGE ADD,FL->14
END

NUMERO 15
BEGIN
 KEY "CONTRIBUTO A RIMBORSO"
 PROMPT 11 7 ""
 PICTURE "###.###.###^^^"
 FIELD 56->CONTRIMB15
 MESSAGE ADD,FL->15
END

NUMERO 16
BEGIN
 KEY "CONTRIBUTO VERSATO"
 PROMPT 28 7 ""
 PICTURE "###.###.###^^^"
 FIELD 56->CONTVERS16
 MESSAGE ADD,FL->16
END

NUMERO 17
BEGIN
 KEY "INTERESSI"
 PROMPT 47 7 ""
 PICTURE "###.###.###^^^"
 FIELD 56->INTER17
 MESSAGE ADD,FL->17
END

NUMERO 18
BEGIN
 KEY "CONTRIBUTO VERSATO"
 PROMPT 66 7 ""
 PICTURE "###.###.###^^^"
 FIELD 56->CONTVER18
 MESSAGE ADD,FL->18
END

NUMERO 19
BEGIN
 KEY "INTERESSI"
 PROMPT 84 7 ""
 PICTURE "###.###.###^^^"
 FIELD 56->INTER19
 MESSAGE ADD,FL->19
END

NUMERO 20
BEGIN
 KEY "SOPRATTASSA SU IRPEF"
 PROMPT 102 7 ""
 PICTURE "###.###.###^^^"
 FIELD 56->STASSA20
 MESSAGE ADD,FL->20
END

STRINGA 21
BEGIN
 KEY "CONGUAGLI NON EFFETTUATI"
 PROMPT 121 7 ""
 FIELD 56->CONNEFF21
END

STRINGA 22
BEGIN
 KEY "TIPO CONGUAGLIO"
 PROMPT 128 7 ""
 FIELD 56->TIPOCONG22
END

STRINGA 23
BEGIN
 KEY "CODICE FISCALE CAAF"
 PROMPT 11 9 ""
 FIELD 104@->S1
END

STRINGA 24
BEGIN
 KEY "DENOMINAZIONE CAAF"
 PROMPT 42 9 ""
 FIELD 104@->S0
END

NUMERO 25
BEGIN
 KEY "NUMERO ISCRIZIONE ALBO"
 PROMPT 98 9 ""
 FIELD 104@->I1
END

DATA 26
BEGIN
 KEY "DATA RICEZIONE MOD.730-5"
 PROMPT 115 9 ""      
 FORMAT "1444-"    
 PICTURE "## ^ ##^^^^^"
 FIELD 56->DATARIC26 
END

END

SECTION FOOTER LAST 4

NUMERO 9
BEGIN
 KEY "IMPOSTA RIMBORSATA"
 PROMPT 23 1 ""
 PICTURE "###.###.###^^^"
END

NUMERO 10
BEGIN
 KEY "IMPOSTA VERSATA"
 PROMPT 42 1 ""
 PICTURE "###.###.###^^^"
END    

NUMERO 11
BEGIN
 KEY "INTERESSI"
 PROMPT 61 1 ""
 PICTURE "###.###.###^^^"
END

NUMERO 12
BEGIN
 KEY "IMPOSTA VERSATA"
 PROMPT 79 1 ""
 PICTURE "###.###.###^^^"
END

NUMERO 13
BEGIN
 KEY "INTERESSI"
 PROMPT 98 1 ""
 PICTURE "###.###.###^^^"
END

NUMERO 14
BEGIN
 KEY "SOPRATTASSA SU IRPEF"
 PROMPT 117 1 ""
 PICTURE "###.###.###^^^"
END

NUMERO 15
BEGIN
 KEY "CONTRIBUTO A RIMBORSO"
 PROMPT 11 3 ""
 PICTURE "###.###.###^^^"
END

NUMERO 16
BEGIN
 KEY "CONTRIBUTO VERSATO"
 PROMPT 28 3 ""
 PICTURE "###.###.###^^^"
END

NUMERO 17
BEGIN
 KEY "INTERESSI"
 PROMPT 47 3 ""
 PICTURE "###.###.###^^^"
END

NUMERO 18
BEGIN
 KEY "CONTRIBUTO VERSATO"
 PROMPT 66 3 ""
 PICTURE "###.###.###^^^"
END

NUMERO 19
BEGIN
 KEY "INTERESSI"
 PROMPT 84 3 ""
 PICTURE "###.###.###^^^"
END

NUMERO 20
BEGIN
 KEY "SOPRATTASSA SU IRPEF"
 PROMPT 102 3 ""
 PICTURE "###.###.###^^^"
END

END

END