USE 119
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 36 INTO CODDITTA=CODDITTA

END
DESCRIPTION
BEGIN
  119->* "Quadro Abis 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
END

SECTION GRAPHICS FIRST 66

FIGURA 1 130 66
BEGIN
  PROMPT 2 5 "770_AB_1.BMP"
END

END

SECTION GRAPHICS EVEN 66

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

END

SECTION GRAPHICS ODD 66

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

END

SECTION GRAPHICS LAST 66

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

END

SECTION HEADER FIRST 23

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

END

SECTION HEADER ODD 5
// Header pagine successive
END


SECTION BODY ODD 12

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 112 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 48 3 ""
 FIELD 45->PROVNA
END

STRINGA 8
BEGIN
 KEY "ASSISTENZA 1996 - CONGUAGLI NON EFFETTUATI"
 PROMPT 11 5 ""
 FIELD CONEFF
END

NUMERO 9
BEGIN
 KEY "SECONDA RATA ACCONTO IRPEF 1996 - IMPOSTA TRATTENUTA"
 PROMPT 14 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD IMPVERS
END   

NUMERO 10
BEGIN
 KEY "SECONDA RATA ACCONTO IRPEF 1996 - INTERESSI"
 PROMPT 28 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD INTERE
END   

NUMERO 11
BEGIN
 KEY "SECONDA RATA ACCONTO CSSN 1996 - CONTRIBUTO TRATTNEUTO"
 PROMPT 42 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD CSSN95CV
END   

NUMERO 12
BEGIN
 KEY "SECONDA RATA ACCONTO CSSN 1996 - INTERESSI"
 PROMPT 56 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD INTERE2
END   

STRINGA 13
BEGIN
 KEY "ASSISTENZA 1997 - CONGUAGLI NON EFFETTUATI"
 PROMPT 72 5 ""
 FIELD CNEFF
END

STRINGA 14
BEGIN
 KEY "ASSISTENZA 1997 - RETTIFICA CONGUAGLIO"
 PROMPT 79 5 ""
 FIELD RETCON
END

NUMERO 15
BEGIN
 KEY "ASSISTENZA 1997 - MOD730/97 NON LIQUIDABILE"
 PROMPT 85 5 ""
 FIELD M730NLIQ
END   

NUMERO 16
BEGIN
 KEY "SALDO IRPEF PER IL 1996 - IMPOSTA RIMBORSATA"
 PROMPT 90 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD IMPRIMB
END   

NUMERO 17
BEGIN
 KEY "SALDO IRPEF PER IL 1996 - IMPOSTA TRATTENUTA"
 PROMPT 104 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD IMPVER
END

NUMERO 18
BEGIN
 KEY "SALDO IRPEF PER IL 1996 - INTERESSI"
 PROMPT 118 5 ""
 PICTURE "#.###.###.###^^^"
 FIELD INTIRPEF
END

NUMERO 19
BEGIN
 KEY "PRIMA RATA ACCONTO IRPEF 1997 - IMPOSTA TRATTENUTA"
 PROMPT 8 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD IMPVER2
END

NUMERO 20
BEGIN
 KEY "PRIMA RATA ACCONTO IRPEF 1997 - INTERESSI"
 PROMPT 21 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD INTER
END

NUMERO 21
BEGIN
 KEY "SOPRATTASSE SU IRPEF SALDO 1996 E PRIMA RATA ACCONTO 1997"
 PROMPT 35 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD STSIRPEF
END

NUMERO 22
BEGIN
 KEY "SALDO CSSN PER IL 1996 - CONTRIBUTO A RIMBORSO"
 PROMPT 49 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD CONRIMB
END

NUMERO 23
BEGIN
 KEY "SALDO CSSN PER IL 1996 - CONTRIBUTO TRATTENUTO"
 PROMPT 63 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD CONVER
END

NUMERO 24
BEGIN
 KEY "SALDO CSSN PER IL 1996 - INTERESSI"
 PROMPT 76 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD INTER2
END

NUMERO 25
BEGIN
 KEY "PRIMA RATA ACCONTO CSSN PER IL 1997 - CONTRIBUTO TRATTENUTO"
 PROMPT 90 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD CONVER2
END

NUMERO 26
BEGIN
 KEY "PRIMA RATA ACCONTO CSSN PER IL 1997 - INTERESSI"
 PROMPT 104 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD INTER3
END

NUMERO 27
BEGIN
 KEY "SOPRATTASSE SU CSSN SALDO 1996 e PRIMA RATA ACCONTO 1997"
 PROMPT 118 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD STSCSSN70
END

NUMERO 28
BEGIN
 KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO RIMBORSATO"
 PROMPT 8 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABEURIMB
END

NUMERO 29
BEGIN
 KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO TRATTENUTO"
 PROMPT 21 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABEUTRAT
END

NUMERO 30
BEGIN
 KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - INTERESSI"
 PROMPT 35 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABEUINTE
END

NUMERO 31
BEGIN
 KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - SOPRATTASSE"
 PROMPT 49 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABEUSOPR
END

NUMERO 32
BEGIN
 KEY "TASSAZIONE SEPARATA - ACCONTO TRATTENUTO"
 PROMPT 63 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABTSTRAT
END

NUMERO 33
BEGIN
 KEY "TASSAZIONE SEPARATA - INTERESSI"
 PROMPT 76 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABTSINTE
END

NUMERO 34
BEGIN
 KEY "TASSAZIONE SEPARATA - SOPRATTASSE"
 PROMPT 90 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABTSSOPR
END

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

STRINGA 36
BEGIN
 KEY "DENOMINAZIONE CAAF"
 PROMPT 44 11 ""
 FIELD 104@->S0
END

NUMERO 37
BEGIN
 KEY "NUMERO ISCRIZIONE ALBO"
 PROMPT 125 11 ""            
 PICTURE "#####"
 FIELD 104@->I1
END

STRINGA 101
BEGIN
 KEY "14 - ASSISTENZA 1997 - RETTIFICA CONGUAGLIO (B FISSA)"
 PROMPT 79 5 "B"
END

NUMERO 102
BEGIN
 KEY "19 - PRIMA RATA ACCONTO IRPEF 1997 - IMPOSTA TRATTENUTA (CONGUAGLIO)"
 PROMPT 8 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB19
END

NUMERO 103
BEGIN
 KEY "20 - PRIMA RATA ACCONTO IRPEF 1997 - INTERESSI (CONGUAGLIO)"
 PROMPT 21 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB20
END

NUMERO 104
BEGIN
 KEY "21 - SOPRATTASSE SU IRPEF SALDO 1996 E PRIMA RATA ACCONTO 1997 (CONGUAGLIO)"
 PROMPT 35 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB21
END

NUMERO 105
BEGIN
 KEY "22 - SALDO CSSN PER IL 1996 - CONTRIBUTO A RIMBORSO (CONGUAGLIO)"
 PROMPT 49 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB22
END

NUMERO 106
BEGIN
 KEY "23 - SALDO CSSN PER IL 1996 - CONTRIBUTO TRATTENUTO (CONGUAGLIO)"
 PROMPT 63 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB23
END

NUMERO 107
BEGIN
 KEY "24 - SALDO CSSN PER IL 1996 - INTERESSI (CONGUAGLIO)"
 PROMPT 76 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB24
END

NUMERO 108
BEGIN
 KEY "25 - PRIMA RATA ACCONTO CSSN PER IL 1997 - CONTRIBUTO TRATTENUTO (CONGUAGLIO)"
 PROMPT 90 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB25
END

NUMERO 109
BEGIN
 KEY "26 - PRIMA RATA ACCONTO CSSN PER IL 1997 - INTERESSI (CONGUAGLIO)"
 PROMPT 104 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB26
END

NUMERO 110
BEGIN
 KEY "27 - SOPRATTASSE SU CSSN SALDO 1996 e PRIMA RATA ACCONTO 1997 (CONGUAGLIO)"
 PROMPT 118 7 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB27
END

NUMERO 111
BEGIN
 KEY "28 - CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO RIMBORSATO (CONGUAGLIO)"
 PROMPT 8 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB28
END

NUMERO 112
BEGIN
 KEY "29 - CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO TRATTENUTO (CONGUAGLIO)"
 PROMPT 21 9 ""
 PICTURE "#.###.###.###^^^"
 FIELD QABRCB29
END

END

SECTION FOOTER LAST 8

NUMERO 730
BEGIN
 KEY "NUMERO MOD.730"
 PROMPT 22 4 ""
 PICTURE "######"
 FIELD 36->N730ALLA
END                

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

END

END