USE 65
JOIN  9                     INTO CODDITTA=CODDITTA
JOIN  6 TO   9    ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  6           ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  8 TO 216@   ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@   ALIAS 313 INTO STATO=="" COM==COMNASC
JOIN 13 TO 216@   ALIAS 413 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 216@   ALIAS 513 INTO STATO=="" COM==COMRF
JOIN 89 ALIAS 189 INTO CODDITTA==CODDITTA CODCAUS=="C"
JOIN 89 ALIAS 289 INTO CODDITTA==CODDITTA CODCAUS=="D"
END

DESCRIPTION
BEGIN
  65->* "Quadro SQ 770 ex E1"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  216@->* "Anagrafica persone fisiche e giuridiche"
  218@->* "Anagrafica persone fisiche"
  313@->* "Comune nascita"
  413@->* "Comune residenza"
  189->* "Riga 1 del prospetto e1"
  289->* "Riga 2 del prospetto e1"
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 61
BEGIN
  PROMPT 1 5 "770_E1_1.BMP"
END

END

SECTION GRAPHICS EVEN 66

FIGURA 1 130 58
BEGIN
  PROMPT 1 3 "770_E1_2.BMP"
END

END

SECTION GRAPHICS ODD 66

FIGURA 1 130 58
BEGIN
  PROMPT 1 3 "770_E1_3.BMP"
END

END

SECTION GRAPHICS LAST 66

FIGURA 1 130 58
BEGIN
  PROMPT 1 3 "770_E1_4.BMP"
END

END

SECTION HEADER FIRST 18

STRINGA 1 
BEGIN
  KEY "CODICE FISCALE"
  PROMPT 55 8  ""
  FIELD 106@->COFI
  SPECIAL STRING "TRASFER" "SQ0101" ""
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 pagina 2 e successive
END


SECTION BODY ODD 8

LISTA 99
BEGIN
  KEY "Tipo anagrafica"
  PROMPT 1 1 ""
  FIELD TIPOA
  ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
  ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
END

STRINGA 1
BEGIN
  KEY "COD.FIS"
  PROMPT 9 1 ""
  FIELD 216@->COFI
  SPECIAL STRING "TRASFER" "SQ0201" ""
END

STRINGA 2
BEGIN   
  KEY "COGNOME"
  PROMPT 42 1 ""
  FIELD 216@->RAGSOC[1,30]
  GROUP 1
  SPECIAL STRING "TRASFER" "SQ0202" ""
END          

STRINGA 3
BEGIN   
  KEY "NOME"
  PROMPT 21 3 ""
  FIELD 216@->RAGSOC[31,50]
  GROUP 1
  SPECIAL STRING "TRASFER" "SQ0203" ""
END

STRINGA 102
BEGIN
  KEY "RAGSOC GIURIDICHE"
  PROMPT 42 1 ""
  FIELD 216@->RAGSOC
  GROUP 2
  SPECIAL STRING "TRASFER" "SQ0202" ""
END

STRINGA 4
BEGIN   
  KEY "SESSO"
  PROMPT 57 3 ""
  FIELD 218@->SESSO
  GROUP 1
  SPECIAL STRING "TRASFER" "SQ0204" ""
END

STRINGA 5
BEGIN   
  KEY "DATA NASCITA"
  PROMPT 63 3 ""
  FIELD 218@->DATANASC
  PICTURE "##^ ##^ ####"
  GROUP 1
  SPECIAL STRING "TRASFER" "SQ0205" ""
END

STRINGA 6
BEGIN
  KEY "COMUNE DI NASCITA"
  PROMPT 79 3 ""
  FIELD 313@->DENCOM
  GROUP 1
  SPECIAL STRING "TRASFER" "SQ0206" ""
END

STRINGA 7
BEGIN
  KEY "PROV DI NASCITA"
  PROMPT 126 3 ""
  FIELD 313@->PROVCOM
  GROUP 1
  SPECIAL STRING "TRASFER" "SQ0207" ""
END

STRINGA 8
BEGIN
  KEY "COMUNE DI RESIDENZA FISCALE"
  PROMPT 24 5 ""
  FIELD 513@->DENCOM
  MESSAGE EMPTY SHOW,3@|HIDE,4@
  MESSAGE SHOW,4@|HIDE,3@
  SPECIAL STRING "TRASFER" "SQ0208" ""
END

STRINGA 80
BEGIN
  KEY "COMUNE DI RESIDENZA"
  PROMPT 24 5 ""
  FIELD 413@->DENCOM
  GROUP 3
  SPECIAL STRING "TRASFER" "SQ0208" ""
END

STRINGA 9
BEGIN
  KEY "PROV. RESIDENZA"
  PROMPT 72 5 ""
  FIELD 513@->PROVCOM  
  FIELD 413@->PROVCOM  
  SPECIAL STRING "TRASFER" "SQ0209" ""
END

STRINGA 101
BEGIN
  KEY "VIA RES."
  FIELD 216@->INDRES[1,35]
  FLAGS "H"
  MESSAGE COPY,10 
END

STRINGA 102
BEGIN
  KEY "NUM.CIV DI RESIDENZA"
  FLAGS "H"
  FIELD 216@->CIVRES
  MESSAGE APPEND,10     
END

STRINGA 10
BEGIN
  KEY "VIA RES. + NUMCIVRES"
  PROMPT 78 5 ""
  GROUP 3
  SPECIAL STRING "TRASFER" "SQ0210" ""
END

STRINGA 103
BEGIN
  KEY "VIA RES."
  FIELD 216@->INDRF[1,35]
  FLAGS "H"
  MESSAGE COPY,100
END

STRINGA 104
BEGIN
  KEY "NUM.CIV DI RESIDENZA"
  FLAGS "H"
  FIELD 216@->CIVRF
  MESSAGE APPEND,100
END

STRINGA 100
BEGIN
  KEY "VIA RF + NUMCIVRF"
  PROMPT 78 5 ""
  GROUP 4
  SPECIAL STRING "TRASFER" "SQ0210" ""
END

STRING 11
BEGIN
  KEY "CAUSALE"
  PROMPT 13 7 ""
  FIELD CAUSALE
  SPECIAL STRING "TRASFER" "SQ0211" ""
END

NUMBER 12
BEGIN
  KEY "Somme"
  PROMPT 33 7 ""
  FIELD SOMME
  PICTURE "###.###.###^^^" 
  SPECIAL STRING "TRASFER" "SQ0212" ""
END

NUMBER 13
BEGIN
  KEY "Ammontare"
  PROMPT 56 7 ""
  FIELD AMMONTARE
  PICTURE "###.###.###^^^" 
  SPECIAL STRING "TRASFER" "SQ0213" ""
END

NUMBER 14
BEGIN
  KEY "ALIQUOTA"
  PROMPT 71 7 ""
  FIELD PERC
  PICTURE "##@,@@" 
  SPECIAL STRING "TRASFER" "SQ0214" ""
END

NUMBER 15
BEGIN
  KEY "Importo"
  PROMPT 95 7 ""
  FIELD IMPORTO
  PICTURE "###.###.###^^^" 
  SPECIAL STRING "TRASFER" "SQ0215" ""
END

NUMBER 16
BEGIN
  KEY "Netto"
  PROMPT 119 7 ""
  FIELD NETTO
  PICTURE "###.###.###^^^"  
  SPECIAL STRING "TRASFER" "SQ0216" ""
END

END

SECTION FOOTER LAST 15

STRINGA 11
BEGIN           
  KEY "CAUSALE"
  PROMPT 13 8 ""
  FIELD 189@->CODCAUS
END

NUMERO 12
BEGIN                 
  KEY "AMMONTARE COMPLESSIVO"
  PROMPT 36 8 ""
  FIELD 189@->COMPENSO
  PICTURE "###.###.###^^^"  
END

NUMERO 13
BEGIN
  KEY "IMPONIBILE"
  PROMPT 76 8 ""
  FIELD 189@->IMPONIBILE
  PICTURE "###.###.###^^^"  
END

NUMERO 14
BEGIN
  KEY "RITENUTE OPERATE"
  PROMPT 116 8 ""
  FIELD 189@->RITENUTA
  PICTURE "###.###.###^^^"  
END

STRINGA 21
BEGIN
  KEY "CAUSALE"
  PROMPT 13 10 ""
  FIELD 289@->CODCAUS
END

NUMERO 22
BEGIN
  KEY "AMMONTARE COMPLESSIVO"
  PROMPT 36 10 ""
  FIELD 289@->COMPENSO
  PICTURE "###.###.###^^^"  
END

NUMERO 23
BEGIN
  KEY "IMPONIBILE"
  PROMPT 76 10 ""
  FIELD 289@->IMPONIBILE
  PICTURE "###.###.###^^^"  
END

NUMERO 24
BEGIN
  KEY "RITENUTE OPERATE"
  PROMPT 116 10 ""
  FIELD 289@->RITENUTA
  PICTURE "###.###.###^^^"  
END

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

END