USE 36
JOIN 37 TO 36 INTO TIPOQUA=TIPOQUA CODDITTA=CODDITTA
END

DESCRIPTION
BEGIN
  36->* "Base 770"
  37->* "Basebis 770"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier 17cpi"
  SIZE 10
  CA "X"           
  IN 3 2
  FI 131
END

SECTION BODY EVEN 73

NUMERO 1
BEGIN
 KEY "I1-1"
 PROMPT 23 1 ""
 PICTURE "##.###"
 FIELD 36->A0NFCOM
END

NUMERO 2
BEGIN
 KEY "I1-2"
 PROMPT 41 1 ""
 PICTURE "##.###"
 FIELD 36->A0NLDIP
END

NUMERO 3
BEGIN
 KEY "I1-3"
 PROMPT 55 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0COBB
END

NUMERO 4
BEGIN
 KEY "I1-4"
 PROMPT 77 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CNET
END

NUMERO 5
BEGIN
 KEY "I1-5"
 PROMPT 99 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0IITRA
END

NUMERO 6
BEGIN
 KEY "I1-6"
 PROMPT 121 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0EPREV
END

NUMERO 7
BEGIN
 KEY "I2-7 Compensi da terzi"
 PROMPT 23 3 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CTER
END

NUMERO 8
BEGIN
 KEY "I2-8 Tot. imponibile"
 PROMPT 55 3 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0TIMP
END

NUMERO 9
BEGIN
 KEY "I2-9 Imposta lorda"
 PROMPT 77 3 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0ILOR
END

NUMERO 10
BEGIN
 KEY "I2-10 Tot. detrazioni"
 PROMPT 99 3 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0TDET
END

NUMERO 11
BEGIN
 KEY "I2-11 Incremento detrazioni"
 PROMPT 121 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0INCDET
END

NUMERO 12
BEGIN
 KEY "I3-12 Ritenute da terzi"
 PROMPT 23 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0RTER
END

NUMERO 13
BEGIN
 KEY "I3-13 Rit.datore di lavoro"
 PROMPT 55 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0RDAT
END

NUMERO 14
BEGIN
 KEY "I3-14 Eccedenza ritenute"
 PROMPT 77 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0ERIT
END

NUMERO 15
BEGIN
 KEY "I3-15 Contrib.arretrati"
 PROMPT 99 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CARR
END

NUMERO 16
BEGIN
 KEY "I3-16 Ammontare arretrati"
 PROMPT 121 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0AARR
END

NUMERO 17
BEGIN
 KEY "I4-17 Detrazioni arretrati"
 PROMPT 23 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0DARR
END

NUMERO 18
BEGIN
 KEY "I4-18 Rit.arretrati"
 PROMPT 55 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0RARR
END

NUMERO 19
BEGIN
 KEY "I4-19 Compensi ai fini contr.INPS"
 PROMPT 77 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CINPS
END

NUMERO 20
BEGIN
 KEY "I4-20 Rit.operate VA"
 PROMPT 99 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0RITOPEVA
END

NUMERO 21
BEGIN
 KEY "I4-21 Ritenute operate SA"
 PROMPT 121 7 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0RITOPESA
END

NUMERO 22
BEGIN
 KEY "I5-22 Rit.operate SI"
 PROMPT 23 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0RITSI
END

NUMERO 23
BEGIN
 KEY "I5-23 Credito d'imp.imprese d'autotrasporto"
 PROMPT 55 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CIIAUT
END

NUMERO 24
BEGIN
 KEY "I5-25 Credito d'imp.premio d'assun."
 PROMPT 77 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CRIMPRAS
END

NUMERO 25
BEGIN
 KEY "I5-25 Credito d'imp.L.85"
 PROMPT 99 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CRIMP85
END

NUMERO 26
BEGIN
 KEY "I5-26 Num.assistiti da datore di lavoro"
 PROMPT 121 9 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0NADLAV
END

NUMERO 27
BEGIN
 KEY "I6-27 Num.ass.CAAF"
 PROMPT 23 11 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0NACAAF
END

NUMERO 28
BEGIN
 KEY "I7-1 N.fogli"
 PROMPT 23 13 ""
 PICTURE "##.###"
 FIELD 36->A3NFCOM
END

NUMERO 29
BEGIN
 KEY "I7-2 N.percipienti"
 PROMPT 41 13 ""
 PICTURE "##.###"
 FIELD 36->A3NUMPER
END

NUMERO 30
BEGIN
 KEY "I7-3 Reddito corrisp(p.10)"
 PROMPT 55 13 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A3REPT10
END

NUMERO 31
BEGIN
 KEY "I7-4 Reddito corrisp(p.12)"
 PROMPT 77 13 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A3REPT12
END

NUMERO 32
BEGIN
 KEY "I8-1 N.fogli"
 PROMPT 23 15 ""
 PICTURE "##.###"
 FIELD 36->A0NFCOM
END

NUMERO 33
BEGIN
 KEY "I1-2 N.dip."
 PROMPT 41 15 ""
 PICTURE "##.###"
 FIELD 36->A0NLDIP
END

NUMERO 3
BEGIN
 KEY "I1-3"
 PROMPT 55 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0COBB
END

NUMERO 4
BEGIN
 KEY "I1-4"
 PROMPT 77 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0CNET
END

NUMERO 5
BEGIN
 KEY "I1-5"
 PROMPT 99 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0IITRA
END

NUMERO 6
BEGIN
 KEY "I1-6"
 PROMPT 121 1 ""
 PICTURE "###.###.###.###^^^"
 FIELD 36->A0EPREV
END

END

END