USE 71         
JOIN 98 INTO CODDITTA=CODDITTA
JOIN  9 TO  71 INTO CODDITTA=CODDITTA
JOIN  6 TO   9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
END

DESCRIPTION
BEGIN
  71->* "Quadro G1 770"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 10
  CA "X"
  IN 3 3
  FI 130
END

SECTION GRAPHICS FIRST 66

FIGURA 1 129 43
BEGIN
  PROMPT 3 5 "770_G1_1.BMP"
END

END

SECTION HEADER FIRST 18

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 BODY ODD 2
  
NUMBER 1
BEGIN
  KEY "Utili primo semestre"
  PROMPT 9 1 ""
  PICTURE "###.###.###^^^"
  FIELD UTILI1S
END  

NUMBER 2
BEGIN
  KEY "Utili secondo semestre"
  PROMPT 28 1 ""
  PICTURE "###.###.###^^^"
  FIELD UTILI2S
END  

NUMBER 3
BEGIN
  KEY "ALIQUOTA"
  PROMPT 45 1 ""
  PICTURE "##@,@@"
  FIELD ALIQUOTA
END  

NUMBER 4
BEGIN
  KEY "Ritenute anno prec 1 s"
  PROMPT 63 1 ""
  PICTURE "###.###.###^^^"
  FIELD RACCVER1S
END  

NUMBER 5
BEGIN
  KEY "Ritenute anno prec 2 s"
  PROMPT 82 1 ""
  PICTURE "###.###.###^^^"
  FIELD RACCVER2S
END  

NUMBER 6
BEGIN
  KEY "Ritenute primo semestre"
  PROMPT 100 1 ""
  PICTURE "###.###.###^^^"
  FIELD RIMPVER1S
END  

NUMBER 7
BEGIN
  KEY "Ritenute secondo semestre"
  PROMPT 119 1 ""
  PICTURE "###.###.###^^^"
  FIELD RIMPVER2S
END  

END

SECTION FOOTER LAST 1

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

END