USE 100
JOIN  9 TO  100 INTO CODDITTA=CODDITTA
JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
END

DESCRIPTION
BEGIN
  100->* "Righe F2 770"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  116@->* "Anagrafica persone fisiche e giuridiche"
END

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

SECTION GRAPHICS FIRST 60
  
FIGURA 1 132 55
BEGIN
  PROMPT 1 5 "770_F2_1.BMP"
END
  
END

SECTION HEADER FIRST 16

STRINGA 1 
BEGIN
  KEY "CODICE FISCALE DICHIARANTE"
  PROMPT 54 8  ""
  FIELD 116@->COFI
END

STRINGA 13
BEGIN
  KEY "CODICE FISCALE DEL SOSTITUTO D'IMPOSTA"
  PROMPT 88 8  ""
END

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

END

SECTION BODY ODD 2

STRINGA 11
BEGIN
  KEY "Denominazione del fondo"
  PROMPT 10 1 ""  
  FIELD 100->DENCAUS
END

NUMBER 12
BEGIN
  KEY "Somme soggette a ritenuta"
  PROMPT 83 1 ""    
  PICTURE "###.###.###^^^"  
  FIELD 100->SOGRIT
END

NUMBER 13
BEGIN
  KEY "Aliquota"
  PROMPT 103 1 ""    
  PICTURE "##@,@@"  
  FIELD 100->ALIQUOTA
END

NUMBER 14
BEGIN
  KEY "Ritenute operate"
  PROMPT 120 1 ""    
  PICTURE "###.###.###^^^"  
  FIELD 100->ROPE
END

END

SECTION FOOTER LAST 8

STRINGA 2
BEGIN
  KEY "FIRMA"
  PROMPT 85 8 ""
  FIELD 116@->RAGSOC
END

END