USE 90
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
96->* "Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
501@->* "Comune di domicilio"
500@->* "Comune di nascita"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 72
STRINGA 1 20
BEGIN
KEY "Intestazione 1"
FIELD 96->INTESTAZ1
PROMPT 21 3 ""
END
STRINGA 2 20
BEGIN
KEY "Intestazione 2"
FIELD 96->INTESTAZ2
PROMPT 21 4 ""
END
STRINGA 3 20
BEGIN
KEY "Intestazione 3"
FIELD 96->INTESTAZ3
PROMPT 21 5 ""
END
STRINGA 4 20
BEGIN
KEY "Intestazione 4"
FIELD 96->INTESTAZ4
PROMPT 21 6 ""
END
STRINGA 29 20
BEGIN
KEY "Codice provinciale"
FIELD 90->CODCL
PROMPT 25 8 "Cod.prov. "
END
NUMERO 5 8
BEGIN
KEY "Codice soggetto"
FIELD 90->CODICE
PROMPT 25 9 "Cod.com.  "
END
STRINGA 6 6
BEGIN
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 27 12 ""
END
DATA 7
BEGIN
KEY "Data rilascio "
MESSAGE _TODAY
PROMPT 30 14 ""
END
STRINGA 8 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,10|COPY,10
END
STRINGA 9 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,10
END
STRINGA 10 33 2
BEGIN
KEY "Cognome e nome"
PROMPT 9 16 ""
END
STRINGA 11 33 2
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
END
STRINGA 12 19 2
BEGIN
KEY "Comune di nascita"
FIELD 500@->DENCOM
PROMPT 11 18 ""
END
DATA 13
BEGIN
KEY "Data di nascita"
FIELD 90->DATANASC
PROMPT 32 18 ""
END
STRINGA 14 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 15 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 501@->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,17|COPY,17
END
STRINGA 16 5
BEGIN
KEY "Provincia"
FIELD 501@->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17 18 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 12 20 ""
END
STRINGA 18 11 2
BEGIN
KEY "Telefono abitazione"
FIELD 90->TELABI
PROMPT 32 20 ""
END
STRINGA 19 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 6 22 ""
END
STRINGA 20 16
BEGIN
KEY "Codice fiscale"
FIELD 90->CF
PROMPT 11 24 ""
END
STRINGA 21 3
BEGIN
KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0
PROMPT 8 28 ""
END
STRINGA 22 3
BEGIN
KEY "RhAntiD"
FIELD 90->RHANTID
PROMPT 15 28 ""
END
STRINGA 23 6
BEGIN
KEY "FenotipoRh"
FIELD 90->FENOTIPORH
PROMPT 22 28 ""
END
STRINGA 24 3
BEGIN
KEY "Kell"
FIELD 90->KELL
PROMPT 33 28 ""
END
STRINGA 25 3
BEGIN
KEY "Du"
FIELD 90->DU
PROMPT 39 28 ""
END
STRINGA 26 20
BEGIN
KEY "Documento di riconoscimento"
FIELD 90->DOCID
PROMPT 8 32 ""
END
DATA 27 30
BEGIN
KEY "Data ultima donazione"
FIELD 90->DATAULTDON
PROMPT 7 42 "Donazioni fino al "
END
NUMERO 28 3
BEGIN
KEY "Totale donazioni"
FIELD 90->TOTDON
PROMPT 36 42 "n. "
END
END
END