USE 43
JOIN  9 TO  43 INTO CODDITTA=CODDITTA
JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
END

DESCRIPTION
BEGIN
  43->* "Quadro H 770"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  116@->* "Anagrafica persone fisiche e giuridiche"
  214@->* "Tabella Enti previdenziali"
END

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

SECTION GRAPHICS FIRST 66

FIGURA 1 130 63
BEGIN
  PROMPT 1 5 "770_H_1.BMP"
END

END

SECTION GRAPHICS LAST 66

FIGURA 1 130 56
BEGIN
  PROMPT 1 3 "770_H_2.BMP"
END

END

SECTION HEADER FIRST 17

STRINGA 1 
BEGIN
  KEY "CODICE FISCALE DICHIARANTE"
  PROMPT 54 8  ""
  FIELD 116@->COFI
  SPECIAL STRINGA DYLOG "AN,3,16" ""
END

STRINGA 13
BEGIN
  KEY "CODICE FISCALE DEL SOSTITUTO D'IMPOSTA"
  PROMPT 88 8  ""
  SPECIAL STRINGA DYLOG "AN,19,16" ""
END

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

END

SECTION HEADER ODD 9
// Header pagina 2
END

SECTION BODY ODD 2

STRINGA 11
BEGIN
  KEY "ENTE PREVIDENZIALE"
  PROMPT 10 1 ""
  FIELD 214@->S0
  SPECIAL STRINGA DYLOG "AN,35,60" ""
END

NUMBER 12
BEGIN
  KEY "CONTR.OBB. CARICO DATORE LAVORO"
  PROMPT 86 1 ""  
  PICTURE "###.###.###^^^"    
  FIELD 43->H1DAT
  SPECIAL STRINGA DYLOG "NU,95,11" ""
END

NUMBER 13
BEGIN
  KEY "CONTR.OBB. CARICO DIPENDENTE"
  PROMPT 119 1 ""    
  PICTURE "###.###.###^^^"  
  FIELD 43->H1LAV         
  SPECIAL STRINGA DYLOG "NU,106,11" ""
END

END

SECTION FOOTER LAST 5

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

END