USE 59
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR

END
DESCRIPTION
BEGIN
  59->* "Quadro B 770"
  45->* "Anagrafica dei dipendenti"
  9->* "Ditte"
  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARATTERE "X"
  INIZIO 3 3
  FINE 130
END

SECTION GRAPHICS FIRST 66

FIGURA 1 130 65
BEGIN
  PROMPT 1 5 "770_B_1.BMP"
END

END

SECTION GRAPHICS EVEN 66

FIGURA 1 130 61
BEGIN
  PROMPT 1 4 "770_B_2.BMP"
END

END

SECTION GRAPHICS ODD 66

FIGURA 1 130 61
BEGIN
  PROMPT 1 4 "770_B_3.BMP"
END

END

SECTION GRAPHICS LAST 66

FIGURA 1 130 58
BEGIN
  PROMPT 1 4 "770_B_4.BMP"
END

END

SECTION HEADER FIRST 22

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

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

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

END

SECTION HEADER ODD 5
// Header pagina 2 e successive
END

SECTION BODY ODD 12

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

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

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

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

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

STRINGA 6
BEGIN
 KEY "COMUNE DI NASCITA"
 PROMPT 9 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 "PROV. RESIDENZA"
 PROMPT 86 3 ""
 FIELD 45->PROVRES
END

STRINGA 10
BEGIN
 KEY "INDIRIZZO RES."
 PROMPT 92 3 ""
 FIELD 45->INDRES
END

DATA 11
BEGIN
 KEY "DATA INIZIO RAPPORTO"
 PROMPT 10 5 ""
 PICTURE "## ^ ## ^ ^^ ##"
 FIELD DATAINI
END

DATA 12
BEGIN
 KEY "DATA FINE RAPPORTO"
 PROMPT 29 5 ""
 PICTURE "## ^ ## ^ ^^ ##"
 FIELD DATAFIN
END

NUMERO 131
BEGIN
 KEY "ANNI COMMISURAZIONE"
 PROMPT 48 5 ""
 FIELD ANNICOMM
END

NUMERO 132
BEGIN
 KEY "MESI COMMISURAZIONE"
 PROMPT 54 5 ""
 FIELD MESICOMM
END

NUMERO 141
BEGIN
 KEY "ANNI CONVENZIONALI"
 PROMPT 59 5 ""
 FIELD ANNICONV
END

NUMERO 142
BEGIN
 KEY "MESI CONVENZIONALI"
 PROMPT 64 5 ""
 FIELD MESICONV
END

NUMERO 151
BEGIN
 KEY "ANNI PARZIALI"
 PROMPT 70 5 ""
 FIELD ANNIPARZ
 PICTURE "##"
END

NUMERO 152
BEGIN
 KEY "MESI PARZIALI"
 PROMPT 75 5 ""
 FIELD MESIPARZ
 PICTURE "##"
END

NUMERO 153
BEGIN
 KEY "PERCENTUALE TEMPO PARZIALE"
 PROMPT 80 5 ""
 PICTURE "##@,@@"
 FIELD PERCPARZ
END

NUMERO 16
BEGIN
 KEY "QUOTA ECCEDENTE"
 PROMPT 88 5 ""
 PICTURE "###.###.###^^^"
 FIELD QUOTAECC
END

NUMERO 17
BEGIN
 KEY "MESE EROGAZIONE"
 PROMPT 102 5 ""
 FIELD MESEEROG
END

STRINGA 18
BEGIN
 KEY "TITOLO EROGAZIONE"
 PROMPT 108 5 ""
 FIELD TITEROG
END

NUMERO 19
BEGIN
 KEY "PERCENTUALE ABBATTIMENTO"
 PROMPT 110 5 ""
 PICTURE "##@,@@"
 FIELD PERCABB
END

NUMERO 20
BEGIN
 KEY "AMMONTARE NETTO"
 PROMPT 117 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD AMMNETTO
END

NUMERO 21
BEGIN
 KEY "MESE EROGAZIONE"
 PROMPT 9 7 ""
 FIELD MESEEROG2
END

STRINGA 22
BEGIN
 KEY "TITOLO EROGAZIONE"
 PROMPT 14 7 ""
 FIELD TITEROG2
END

NUMERO 23
BEGIN
 KEY "ABBATTIMENTO"
 PROMPT 20 7 ""
 PICTURE "###.###.###^^^"
 FIELD ABBATT
END

NUMERO 24
BEGIN
 KEY "AMMONTARE NETTO"
 PROMPT 34 7 ""
 PICTURE "###.###.###^^^"
 FIELD AMMNETTO2
END

NUMERO 25
BEGIN
 KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
 PROMPT 48 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD CONTLAV
END

NUMERO 26
BEGIN
 KEY "T.F.R."
 PROMPT 65 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD TFR7494
END

NUMERO 27
BEGIN
 KEY "ALTRE INDENNITA'"
 PROMPT 82 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD INDEN7494
END

NUMERO 28
BEGIN
 KEY "TOTALE INDENNITA'"
 PROMPT 102 7 ""
 PICTURE "###.###.###^^^"
 FIELD TIND7494
END

NUMERO 29
BEGIN
 KEY "TOTALE RIDUZIONI"
 PROMPT 115 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD TRID
END

NUMERO 30
BEGIN
 KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
 PROMPT 9 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD TFRIND
END

NUMERO 31
BEGIN
 KEY "ALIQUOTA"
 PROMPT 25 9 ""
 PICTURE "##@,@@"
 FIELD ALIQUOTA
END

NUMERO 32
BEGIN
 KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE"
 PROMPT 31 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD RETRMEDIA
END

NUMERO 33
BEGIN
 KEY "ALIQUOTA"
 PROMPT 47 9 ""
 PICTURE "##@,@@"
 FIELD ALIQUOTA2
END

NUMERO 34
BEGIN
 KEY "IMPONIBILE T.F.R."
 PROMPT 57 9 ""
 PICTURE "###.###.###^^^"
 FIELD IMPTFR
END

NUMERO 35
BEGIN
 KEY "IMPONIBILE ALTRE INDENNITA'"
 PROMPT 70 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD IMPIND
END

NUMERO 36
BEGIN
 KEY "IMPONIBILE DELL'ANNO"
 PROMPT 86 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD IMPANNO
END

NUMERO 37
BEGIN
 KEY "TOTALE REDDITO IMPONIBILE"
 PROMPT 101 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD TOTIMP
END

NUMERO 38
BEGIN
 KEY "RITENUTE OPERATE"
 PROMPT 117 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD ROPEACC
END

NUMERO 39
BEGIN
 KEY "IMPOSTA DOVUTA"
 PROMPT 9 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD IMPDOV
END

NUMERO 40
BEGIN
 KEY "RITENUTE FISCALI"
 PROMPT 26 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD RITECC
END

STRINGA 41
BEGIN
 KEY "Art.2122 - Tipo"
 PROMPT 43 11 ""
 FIELD QB2122TIPO
END

NUMERO 42
BEGIN
 KEY "QUOTA SPETTANTE"
 PROMPT 50 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD QUOTASPET
END

NUMERO 43
BEGIN
 KEY "INDENNITA' SPETTANTE"
 PROMPT 67 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD INDSPETT
END

NUMERO 44
BEGIN
 KEY "RITENUTE OPERATE"
 PROMPT 84 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD ROPE
END

NUMERO 45
BEGIN
 KEY "IMPONIBILE C.S.S.N."
 PROMPT 101 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD IMPOCSSN
END

END

SECTION FOOTER LAST 8

STRINGA 2
BEGIN
 KEY "FIRMA"
 PROMPT 83 8 ""
 FIELD 106@->RAGSOC
END

END