USE 101              
JOIN 70 INTO CODDITTA==CODDITTA
JOIN  9 TO 101 INTO CODDITTA==CODDITTA
JOIN  6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  8 TO 216@ ALIAS 208 INTO CODANAGR=CODANAGR
JOIN 13 TO 208@ ALIAS 313 INTO COM==COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM==COMRF
END

DESCRIPTION
BEGIN
  101->* "770 Quadro G distinta"
  70->* "770 Quadro G"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  216@->* "Anagrafica persone fisiche e giuridiche"
  218@->* "Anagrafica persone giuridiche"
  313@->* "Comune nascita"
  413@->* "Comune residenza"
  513@->* "Comune residenza fiscale"
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 56
BEGIN
  PROMPT 3 5 "770_G_1.BMP"
END

END

SECTION GRAPHICS EVEN 66

FIGURA 1 131 31
BEGIN
  PROMPT 1 3 "770_G_2.BMP"
END

END

SECTION GRAPHICS ODD 66

FIGURA 1 129 58
BEGIN
  PROMPT 3 3 "770_G_3.BMP"
END

END

SECTION GRAPHICS LAST 66

FIGURA 1 129 64
BEGIN
  PROMPT 3 3 "770_G_4.BMP"
END

END

SECTION HEADER FIRST 17

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

// PROSPETTO 1 - SEZIONE 1
SECTION HEADER ODD 2

STRING 1
BEGIN
  KEY "Data della deliberazione"
  PROMPT 5 1 ""
  FIELD DATADEL
  PICTURE "##  ^  ##^   ####"
END

NUMERO 2
BEGIN
  KEY "Importo imputabile a ciascuna azione o quota"
  PROMPT 41 1 ""
  FIELD UTILI1S
  PICTURE "###.###.###.###"   
END

NUMERO 3
BEGIN
  KEY "Numero azioni o quote"
  PROMPT 73 1 ""
  FIELD NUMQUOTE
  PICTURE "###.###.###"
END

NUMERO 4
BEGIN
  KEY "Ammontare complessivo"
  PROMPT 119 1 ""
  FIELD UTILI2S
  PICTURE "###.###.###^^^"   
END

END

// PRIMA RIGA PROSPETTO 1 - SEZIONE 2
SECTION BODY FIRST 4
  
STRING 1
BEGIN
  KEY "Data della deliberazione"
  PROMPT 31 1 ""
  FIELD 70->P2DATADE
  PICTURE "## ^   ##^   ####"
END

NUMERO 2
BEGIN
  KEY "Importo imputabile a ciascuna azione o quota"
  PROMPT 115 1 ""
  FIELD 70->P2IMPQ
  PICTURE "###.###.###.###"   
END
  
END

// PROSPETTO 1 - SEZIONE 2
SECTION HEADER EVEN 2

STRINGA 1
BEGIN
  KEY "Descrizione dei beni distribuiti"
  PROMPT 4 1 ""
  FIELD DESCRBENI
END

NUMERO 2
BEGIN        
  KEY "Valore dei beni"
  PROMPT 119 1 ""
  FIELD UTILI1S
  PICTURE "###.###.###^^^"   
END

END

// PROSPETTO 2 - SEZIONE 1 e 2
SECTION FOOTER ODD 1

NUMBER 1 
BEGIN          
  KEY "Utili anno precendete"
  PROMPT 9 1 ""
  PICTURE "###.###.###^^^"   
END

NUMBER 2
BEGIN          
  KEY "Utili"
  PROMPT 28 1 ""
  PICTURE "###.###.###^^^"   
END 

NUMBER 3
BEGIN          
  KEY "Utili primo semestre"
  PROMPT 47 1 ""
  FIELD UTILI1S
  PICTURE "###.###.###^^^"   
END 

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

NUMBER 5
BEGIN          
  KEY "Aliquota"
  PROMPT 79 1 ""
  FIELD ALIQUOTA
  PICTURE "##@,@@"   
END 

STRINGA 6
BEGIN
  KEY "Titolo della ritenuta"
  PROMPT 90 1 ""  
  FIELD TITOLO
END

NUMBER 7
BEGIN          
  KEY "Ritenute operate"
  PROMPT 100 1 ""
  FIELD ROPE
  PICTURE "###.###.###^^^"   
END

NUMBER 8
BEGIN          
  KEY "Utili anno corrente"
  PROMPT 119 1 ""
  PICTURE "###.###.###^^^"   
END

END

// DISTINTA
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
END

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

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

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

STRINGA 4
BEGIN   
  KEY "SESSO"
  PROMPT 57 3 ""
  FIELD 208@->SESSO
END

STRINGA 5
BEGIN   
  KEY "DATA NASCITA"
  PROMPT 64 3 ""
  FIELD 208@->DATANASC
  PICTURE "##^##^####"
END

STRINGA 6
BEGIN
  KEY "COMUNE DI NASCITA"
  PROMPT 77 3 ""
  FIELD 313@->DENCOM
  GROUP 1
END

STRINGA 7
BEGIN
  KEY "PROV DI NASCITA"
  PROMPT 126 3 ""
  FIELD 313@->PROVCOM
  GROUP 1
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@
END

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

STRINGA 9
BEGIN
  KEY "PROV. RESIDENZA"
  PROMPT 73 5 ""
  FIELD 513@->PROVCOM  
  FIELD 413@->PROVCOM  
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 79 5 ""
  GROUP 3
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 79 5 ""
  GROUP 4
END

NUMBER 11
BEGIN
  KEY "NUMERO QUOTE"
  PROMPT 21 7 ""
  FIELD 101->NUMQUOTE   
  PICTURE "##@,@@"
END

NUMBER 12
BEGIN
  KEY "UTILI SPETTANTI"
  PROMPT 41 7 ""
  FIELD 101->UTSPETT
  PICTURE "###.###.###^^^"   
END

NUMBER 13
BEGIN
  KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
  PROMPT 67 7 ""
  FIELD 101->ROPESPET
  PICTURE "###.###.###^^^"  
END

NUMBER 14
BEGIN
  KEY "UTILI PAGATI"
  PROMPT 93 7 ""
  FIELD 101->UTPAG
  PICTURE "###.###.###^^^"   
END

NUMBER 15
BEGIN
  KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
  PROMPT 118 7 ""
  FIELD 101->ROPE
  PICTURE "###.###.###^^^"   
END

END

SECTION FOOTER LAST 5

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

END

// PROSPETTO 3
SECTION BODY EVEN 25

NUMERO 1   
BEGIN
  KEY "SEZ.1 IMPORTO VERSATO"
  PROMPT 118 1 ""
  FIELD 70->P31
  PICTURE "###.###.###^^^"
END

NUMERO 2   
BEGIN
  KEY "SEZ.2 MAGG. RIT. VERS. PRIMO SEM. 96"
  PROMPT 39 5 ""
  FIELD 70->P32AT
  PICTURE "###.###.###^^^"
  MESSAGE COPY,4
END

NUMERO 3
BEGIN
  KEY "SEZ.2 RECUPERI PRIMO SEM. 96"
  PROMPT 84 5 ""
  FIELD 70->P32AR
  PICTURE "###.###.###^^^"
  MESSAGE SUB,4
END

NUMERO 4
BEGIN
  KEY "SEZ.1 IMPORTO VERSATO"
  PROMPT 118 5 ""
  PICTURE "###.###.###^^^"
END

NUMERO 5
BEGIN
  KEY "SEZ.2 MAGG. RIT. VERS. SECONDO SEM. 96"
  PROMPT 39 8 ""
  FIELD 70->P32BT
  PICTURE "###.###.###^^^"
  MESSAGE COPY,7
END

NUMERO 6
BEGIN
  KEY "SEZ.2 RECUPERI SECONDO SEM. 96"
  PROMPT 84 8 ""
  FIELD 70->P32BR
  PICTURE "###.###.###^^^"
  MESSAGE SUB,7
END

NUMERO 7
BEGIN
  KEY "SEZ.2 IMPORTO VERSATO"
  PROMPT 118 8 ""
  PICTURE "###.###.###^^^"
END

NUMERO 8
BEGIN
  KEY "SEZ.3 IMPORTO VERSATO PRIMO SEM. 96"
  PROMPT 118 13 ""
  FIELD 70->P33A
  PICTURE "###.###.###^^^"
END

NUMERO 9
BEGIN
  KEY "SEZ.3 IMPORTO VERSATO SECONDO SEM. 96"
  PROMPT 118 16 ""
  FIELD 70->P33B
  PICTURE "###.###.###^^^"
END

NUMERO 10
BEGIN
  KEY "SEZ.4 IMPORTO VERSATO PRIMO SEM. 96"
  PROMPT 118 21 ""
  FIELD 70->P34A
  PICTURE "###.###.###^^^"
END

NUMERO 11
BEGIN
  KEY "SEZ.4 IMPORTO VERSATO SECONDO SEM. 96"
  PROMPT 118 24 ""
  FIELD 70->P34B
  PICTURE "###.###.###^^^"
END

END