USE 60
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR

END
DESCRIPTION
BEGIN
  60->* "Quadro B1 770"
  45->* "Anagrafica dei dipendenti"
  104@->* "Tabella CAAF"
  9->* "Ditte"
  206@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARATTERE "X"
  INIZIO_POS 3 3
  FINE_POS 130
  GRID "+++++++++-|"
END

SECTION HEADER FIRST 20

STRINGA 1 
BEGIN
  KEY "CODICE FISCALE"
  PROMPT 55 8  ""
  FIELD 206@->COFI
END

STRINGA 13
BEGIN
  KEY "CODICE FISCALE DICHIARANTE"
  PROMPT 88 8  ""
END

NUMBER 14
BEGIN
  KEY "NUM. FOGLIO"
  PROMPT 123 8  ""
END 

NUMBER 15
BEGIN
  KEY "ANNO"
  PROMPT 90 10 "1996"
END

END

SECTION HEADER ODD 5
// Header pagine successive
END


SECTION BODY ODD 6

STRINGA 1
BEGIN
 KEY "COD.FIS"
 PROMPT 10 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 113 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 10 3 ""
 FIELD 45->COMUNENA
END

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

STRINGA 8
BEGIN
 KEY "COMUNE DI RESIDENZA"
 PROMPT 52 3 "" 
 FIELD 45->COMRES
END

STRINGA 9
BEGIN
 KEY "PROVINCIA DI RESIDENZA"
 PROMPT 88 3 ""
 FIELD 45->PROVRES
END

STRINGA 10
BEGIN
 KEY "VIA E NUMERO CIVICO"
 PROMPT 93 3 ""
 FIELD 45->INDRES
END

NUMERO 11
BEGIN
 KEY "INDENNITA"
 PROMPT 12 5 ""
 PICTURE "###.###.###^^^"
 FIELD INDEN
END

NUMERO 12
BEGIN
 KEY "AMMONTARE IMPONIBILE"
 PROMPT 24 5 ""
 PICTURE "###.###.###^^^"
 FIELD AMMIMP
END    

NUMERO 13
BEGIN
 KEY "IMPONIBILE 4%"
 PROMPT 36 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMP4
END

NUMERO 14
BEGIN
 KEY "IMPONIBILE 8%"
 PROMPT 48 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMP8
END

NUMERO 15
BEGIN
 KEY "IMPONIBILE 10%"
 PROMPT 60 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMP10
END

NUMERO 16
BEGIN
 KEY "IMPONIBILE 12%"
 PROMPT 72 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMP12
END

NUMERO 17
BEGIN
 KEY "IMPONIBILE AL 15%"
 PROMPT 84 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMP15
END

NUMERO 18
BEGIN
 KEY "IMPONIBILE NETTO"
 PROMPT 96 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMPNETTO
END

NUMERO 19
BEGIN
 KEY "IMPONIBILE COMPLEMENTARE 1,5%"
 PROMPT 108 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMPO15
END

NUMERO 20
BEGIN
 KEY "IMPONIBILE COMPLEMENTARE 4%"
 PROMPT 120 5 ""
 PICTURE "###.###.###^^^"
 FIELD IMPO4
END

END

SECTION FOOTER LAST 5

STRINGA 2
BEGIN
 KEY "FIRMA"
 PROMPT 83 5 ""
 FIELD 206@->RAGSOC
END

END

END