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 10
BEGIN
	KEY "Data nascita"
        PROMPT 37 2 "Data nasc."
END

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

STRINGA 4 3
BEGIN
        KEY "Tot.don.Si"
        PROMPT 52 2 " SI"
END

STRINGA 5 3
BEGIN
        KEY "Tot.don.Af"
        PROMPT 56 2 " AF"
END

STRINGA 6 10
BEGIN
	KEY "Data ultima donazione"
        PROMPT 60 2 "Ult.donaz."
END

STRINGA 7 10
BEGIN
	KEY "Data stato"
        PROMPT 71 2 "Data stato"
END

STRINGA 8 2
BEGIN
	KEY "Stato attuale"
        PROMPT 82 2 "St"
END

STRINGA 9 10
BEGIN
	KEY "Data stato prossimo"
        PROMPT 85 2 "Fine sosp."
END

STRINGA 10 11
BEGIN
	KEY "Idoneita' alla doanzione"
        PROMPT 96 2 "Tipi donaz."
END

STRINGA 11 10
BEGIN
        KEY "Data prima SI"
        PROMPT 108 2 "Data pr.SI"
END

STRINGA 12 10
BEGIN
        KEY "Data prima AF"
        PROMPT 119 2 "Data pr.AF"
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

DATA 4 10
BEGIN
	KEY "Data nascita"
        PROMPT 37 1 ""
	FIELD 90->DATANASC
END

NUMERO 5 3
BEGIN
	KEY "Tot.don."
        PROMPT 48 1 ""
	FIELD 90->TOTDON
        PICTURE "###"
END

NUMERO 6 3
BEGIN
        KEY "Tot.don.SI"
        PROMPT 52 1 ""
        FIELD 90->TOTDONSI
        PICTURE "###"
END

NUMERO 7 3
BEGIN
        KEY "Tot.don.AF"
        PROMPT 56 1 ""
        FIELD 90->TOTDONAF
        PICTURE "###"
END

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

DATA 9 10
BEGIN
	KEY "Data stato"
        PROMPT 71 1 ""
	FIELD 90->DATASTATO
END

STRINGA 10 2
BEGIN
	KEY "Stato attuale"
        PROMPT 82 1 ""
	FIELD 90->STATO
END

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

STRINGA 12 2
BEGIN
	KEY "Idoneita' 1"
        PROMPT 96 1 ""
	FIELD 90->IDON1
END

STRINGA 13 2
BEGIN
	KEY "Idoneita' 2"
        PROMPT 99 1 ""
	FIELD 90->IDON2
END

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

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

DATA 16 10
BEGIN
        KEY "Data prima donazione SI"
        PROMPT 108 1 ""
        FIELD 90->DATAPRISI
END

DATA 17 10
BEGIN
        KEY "Data prima donazione AF"
        PROMPT 119 1 ""
        FIELD 90->DATAPRIAF
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