USE 90
JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC

END
DESCRIPTION
BEGIN
   90->* "Soggetti Sezioni AVIS"
   13->* "COMUNI"
   100@->* "Localita' postali"
END

GENERAL
BEGIN
   OFFSET 0 0
   FONT "Roman"
   SIZE 12
   GRID ""
END

SECTION HEADER ODD 3

STRINGA 1 15
BEGIN
	KEY "Cognome e nome"
	PROMPT 1 2 "Cognome e nome"
END

STRINGA 2 15
BEGIN
   KEY "Indirizzo"
   PROMPT 37 2 "Indirizzo"
END

STRINGA 3 15
BEGIN
   KEY "Indirizzo"
   PROMPT 59 2 "Localita'"
END

STRINGA 4 14
BEGIN
	KEY "Telefono abit."
	PROMPT 96 2 "Telefono abit."
END

STRINGA 5 10
BEGIN
	KEY "Data nascita"
	PROMPT 111 2 "Data nasc."
END

STRINGA 6 3
BEGIN
	KEY "Gruppo AB0"
	PROMPT 122 2 "AB0"
END

STRINGA 7 3
BEGIN
	KEY "Rh/AntiD"
	PROMPT 126 2 "Rh"
END

STRINGA 8 6
BEGIN
	KEY "Fenotipo"
	PROMPT 130 2 "Fen.Rh"
END          

STRINGA 9 3
BEGIN
	KEY "Kell"
	PROMPT 137 2 "Kel"
END

STRINGA 10 3
BEGIN
	KEY "Du"
	PROMPT 141 2 "Du"
END

STRINGA 11 5
BEGIN
	KEY "Tessera"
	PROMPT 145 2 "Tess."
END

STRINGA 12 3
BEGIN
	KEY "Tot.don."
	PROMPT 152 2 "Don."
END

STRINGA 13 10
BEGIN
	KEY "Data ultima donazione"
	PROMPT 156 2 "Ult.donaz."
END

STRINGA 14 10
BEGIN
	KEY "Data stato"
	PROMPT 167 2 "Data stato"
END

STRINGA 15 2
BEGIN
	KEY "Stato attuale"
	PROMPT 178 2 "St"
END

STRINGA 16 10
BEGIN
	KEY "Data stato prossimo"
	PROMPT 181 2 "Fine sosp."
END

STRINGA 17 11
BEGIN
	KEY "Idoneita' alla doanzione"
	PROMPT 192 2 "Tipi donaz."
END

END // END SECTION HEADER

SECTION BODY ODD 1

STRINGA 1 25
BEGIN
   KEY "Cognome"
   FIELD 90->COGNOME
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE RESET,3|COPY,3
END

STRINGA 2 25
BEGIN
   KEY "Nome"
   FIELD 90->NOME
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE APPEND,3
END

STRINGA 3 35 2
BEGIN
   KEY "Cognome e nome"
   PROMPT 1 1 ""
END

STRINGA 4 20 2
BEGIN
   KEY "Indirizzo"
   FIELD 90->DOM_INDIR
   PROMPT 37 1 ""
END

STRINGA 5 4
BEGIN
   KEY "Codice localita'"
   FIELD 90->DOM_CODLOC
   PROMPT 0 0 ""
   FLAGS "H"
END

STRINGA 6 5
BEGIN
   KEY "CAP"
   FIELD 100@->S6
   FIELD 13->CAPCOM
   PROMPT 59 1 ""
END

STRINGA 7 30
BEGIN
   KEY "Denominazione localita' o comune"
   FIELD 100@->S0
   FIELD 13->DENCOM
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE RESET,9|COPY,9
END

STRINGA 8 5
BEGIN
   KEY "Provincia"
   FIELD 13->PROVCOM
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE APPEND,9
END

STRINGA 9 30 2
BEGIN
   KEY "Loc./Com. e Prov."
   PROMPT 65 1 ""
END

STRINGA 10 14
BEGIN
	KEY "Telefono abitazione"
	PROMPT 96 1 ""
	FIELD 90->TELABI
END

DATA 11 10
BEGIN
	KEY "Data nascita"
	PROMPT 111 1 ""
	FIELD 90->DATANASC
END

STRINGA 12 3
BEGIN
	KEY "Gruppo AB0"
	PROMPT 122 1 ""
	FIELD 90->GRUPPOAB0
END

STRINGA 13 3
BEGIN
	KEY "Rh/AntiD"
	PROMPT 126 1 ""
	FIELD 90->RHANTID
END

STRINGA 14 6
BEGIN
	KEY "Fenotipo"
	PROMPT 130 1 ""
	FIELD 90->FENOTIPORH
END

STRINGA 15 3
BEGIN
	KEY "Kell"
	PROMPT 137 1 ""
	FIELD 90->KELL
END

STRINGA 16 3
BEGIN
	KEY "Du"
	PROMPT 141 1 ""
	FIELD 90->DU
END

STRINGA 17 6
BEGIN
	KEY "Tessera"
	PROMPT 145 1 ""
	FIELD 90->TESSAVIS
END

NUMERO 18 3
BEGIN
	KEY "Tot.don."
	PROMPT 152 1 ""
	FIELD 90->TOTDON
END

DATA 18 10
BEGIN
	KEY "Data ultima donazione"
	PROMPT 156 1 ""
	FIELD 90->DATAULTDON
END

DATA 19 10
BEGIN
	KEY "Data stato"
	PROMPT 167 1 ""
	FIELD 90->DATASTATO
END

STRINGA 20 2
BEGIN
	KEY "Stato attuale"
	PROMPT 178 1 ""
	FIELD 90->STATO
END

DATA 21 10
BEGIN
	KEY "Data stato prossimo"
	PROMPT 181 1 ""
	FIELD 90->DATA_PROS
END

STRINGA 22 2
BEGIN
	KEY "Idoneita' 1"
	PROMPT 192 1 ""
	FIELD 90->IDON1
END

STRINGA 23 2
BEGIN
	KEY "Idoneita' 2"
	PROMPT 195 1 ""
	FIELD 90->IDON2
END

STRINGA 24 2
BEGIN
	KEY "Idoneita' 3"
	PROMPT 198 1 ""
	FIELD 90->IDON3
END

STRINGA 25 2
BEGIN
	KEY "Idoneita' 4"
	PROMPT 201 1 ""
	FIELD 90->IDON4
END

END // END SECTION BODY

SECTION FOOTER ODD 3

STRINGA 1 10
BEGIN
	KEY "Niente"
	PROMPT 1 1 "---"
END

END // END SECTION FOOTER

END // END FORM