campo-sirio/m770/77qgd.frm

USE 101
JOIN  6 TO  101  ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 216@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END

DESCRIPTION
BEGIN
  62->* "770 Quadro G distinta"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  113@->* "Comuni"
  213@->* "Comuni"
  216@->* "Anagrafica persone fisiche e giuridiche"
  218@->* "Anagrafica persone giuridiche"
  313@->* "Comuni"
  413@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier 17cpi"
  SIZE 10
  CA "X"           
  IN 3 2
  FI 131
END

SECTION HEADER FIRST 28

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

END

SECTION BODY ODD 8

LISTA 100
BEGIN
 KEY "Tipo anagrafica"
 FIELD 216@->TIPOA
 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
 ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END

STRINGA 1
BEGIN
  KEY "COD.FIS"
  PROMPT 10 2 ""
  FIELD 216@->COFI
END

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

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

STRING 102
BEGIN
  KEY "RAGSOC GIURIDICHE"
  PROMPT 54 2 ""
  FIELD 216@->RAGSOC
  GROUP 2
END

STRING 4
BEGIN   
  KEY "DATA NASCITA"
  PROMPT 114 2 ""
  FIELD 218@->DATANASC
END

STRING 5
BEGIN   
  KEY "SESSO"
  PROMPT 129 2 ""
  FIELD 218@->SESSO
END

STRING 6
BEGIN
  KEY "COMUNE DI NASCITA"
  PROMPT 10 4 ""
  FIELD 313@->DENCOM
  GROUP 1
END

STRING 101
BEGIN
  KEY "COMUNE DI RESIDENZA GIURIDICHE"
  PROMPT 10 4 ""
  FIELD 413@->DENCOM
  GROUP 2
END

STRING 7
BEGIN
  KEY "PROV DI NASCITA"
  PROMPT 47 4 ""
  FIELD 313@->PROVCOM
  GROUP 1
END

STRING 8
BEGIN
  KEY "COMUNE DI RESIDENZA"
  PROMPT 53 4 ""
  FIELD 413@->DENCOM
  GROUP 1
END

STRING 9
BEGIN
  KEY "PROV. RESIDENZA"
  PROMPT 88 4 ""
  FIELD 413@->PROVCOM
END

STRING 106
BEGIN
  KEY "PROV. RESIDENZA GIURIDICHE"
  PROMPT 61 4 ""
  FIELD 413@->PROVCOM
  GROUP 2
END

STRING 10
BEGIN
  KEY "VIA RES."
  PROMPT 94 4 ""
  FIELD 216@->INDRES[1,18]
  FLAGS "H"
  MESSAGE COPY,12|COPY,107
END

STRING 11
BEGIN
  KEY "NUM.CIV"
  PROMPT 93 4 ""
  FLAGS "H"
  FIELD 216@->CIVRES
  MESSAGE APPEND,12|APPEND,107
END

STRING 12
BEGIN
  KEY "VIA RES. + numcivres"
  PROMPT 95 4 ""
  GROUP 1
END

STRING 107
BEGIN
  KEY "VIA RES GIURIDICHE"
  PROMPT 69 4 ""
  GROUP 2
END

STRING 19
BEGIN
  KEY "NUMERO QUOTE"
  PROMPT 128 4 ""
  FIELD 101->NUMQUOTE
  PICTURE "####^^^"
END

STRING 20
BEGIN
  KEY "UTILI SPETTANTI"
  PROMPT 55 5 ""
  FIELD 101->UTSPETT
  PICTURE "#########^^^"  
END

STRING 21
BEGIN
  KEY "UTILI PAGATI"
  PROMPT 75 5 ""
  FIELD 101->UTPAG
  PICTURE "#########^^^"  
END

STRING 22
BEGIN
  KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
  PROMPT 88 5 ""
  FIELD 101->ROPE
  PICTURE "###@@"
END

STRING 23
BEGIN
  KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
  PROMPT 100 5 ""
  FIELD 101->ROPESPET
  PICTURE "#########^^^"  
END

END

SECTION BODY EVEN 2

NUMBER 1
BEGIN
  KEY "TOTALE UT.SPETT."
  PROMPT 36 1 ""
END

NUMBER 2
BEGIN
  KEY "TOTALE R.OPE.SU UT.SPETT."
  PROMPT 55 1 ""
END

NUMBER 3
BEGIN
  KEY "TOTALE UTILI PAGATI"
  PROMPT 75 1 ""
END

NUMBER 4
BEGIN
  KEY "TOTALE R.OPE.SU UT.SPETT."
  PROMPT 101 1 ""
END

END