USE 90
JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT
JOIN 97 INTO CODMED==CODMED
JOIN CTD ALIAS 700 INTO CODTAB==CATDON
JOIN TCS ALIAS 200 INTO CODTAB==STATO
JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC
JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE
JOIN 92 INTO CODICE==CODICE
JOIN LDN TO 92 ALIAS 401 INTO CODTAB==LUOGODON
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
100@->* "Localita' postali"
200@->* "TCS"
300@->* "GAZ"
400@->* "LDN preferito"
401@->* "LDN per donazione"
500@->* "Comune di nascita"
501@->* "Comuni di domicilio"
600@->* "Tabella benemerenze"
96->* "Sezioni AVIS"
97->* "Medici"
92->* "Donazioni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
GRID ""
END
SECTION BODY ODD
SECTION INIZIO 1 1 17 FLAG "N"
STRINGA 1 50
BEGIN
KEY "Intestazione della scheda + data del giorno"
PROMPT 1 1 "DETTAGLIO DONAZIONI PER SOGGETTO stampato il "
MESSAGE _TODAY
END
STRINGA 1 35
BEGIN
KEY "Denominazione sezione"
PROMPT 1 2 "Sezione "
FIELD 96->DENSEZ
END
STRINGA 3 35
BEGIN
KEY "Denominazione sottogruppo"
PROMPT 40 2 "Sottog. "
FIELD 96->DENSOT
END
STRINGA 4 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,6|COPY,6
FIELD 90->COGNOME
END
STRINGA 5 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,6
FIELD 90->NOME
END
STRINGA 6 51 1
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 7 30 1
BEGIN
KEY "Indirizzo"
PROMPT 1 6 ""
FIELD 90->DOM_INDIR
END
STRINGA 8 4
BEGIN
KEY "Codice localita'"
PROMPT 0 0 ""
FLAGS "H"
FIELD 90->DOM_CODLOC
END
STRINGA 9 5
BEGIN
KEY "CAP"
PROMPT 1 7 ""
FIELD 100@->S6
FIELD 501@->CAPCOM
END
STRINGA 10 30
BEGIN
KEY "Denominazione localita' o comune"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,12|COPY,12
FIELD 100@->S0
FIELD 501@->DENCOM
END
STRINGA 11 5
BEGIN
KEY "Provincia"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,12
FIELD 501@->PROVCOM
END
STRINGA 12 44 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 7 ""
END
STRINGA 12 50
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,14|COPY,14
FIELD 500@->DENCOM
END
STRINGA 13 5
BEGIN
KEY "Provincia di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,14
FIELD 500@->PROVCOM
END
STRINGA 14 55
BEGIN
KEY "Comune e provincia di nascita"
PROMPT 1 9 "Nato a "
END
DATA 15 18
BEGIN
KEY "Data nascita"
PROMPT 55 4 "Nato il "
FIELD 90->DATANASC
FORMAT "1444-"
END
LISTA 16
BEGIN
KEY "Sesso"
PROMPT 55 6 "Sesso "
FIELD 90->SESSO
ITEM "0|Sesso ?"
ITEM "1|Maschio"
ITEM "2|Femmina"
ITEM "9|Sesso ?"
END
STRINGA 17 25
BEGIN
KEY "Telefono abitazione"
PROMPT 55 7 "Tel.abi. "
FIELD 90->TELABI
END
STRINGA 18 25
BEGIN
KEY "Telefono lavoro"
PROMPT 55 8 "Tel.lav. "
FIELD 90->TELLAV
END
STRINGA 19 25
BEGIN
KEY "Telefono altri"
PROMPT 55 9 "Altro    "
FIELD 90->TELALT
END
NUMERO 20 20
BEGIN
KEY "Codice soggetto"
PROMPT 1 11 "Codice     "
FIELD 90->CODICE
END
STRINGA 22 20
BEGIN
KEY "Tessera AVIS"
PROMPT 1 12 "Tessera    "
FIELD 90->TESSAVIS
END
STRINGA 23 30
BEGIN
KEY "Categoria"
PROMPT 1 13 "Categoria  "
FIELD 700@->S0
END
STRINGA 25 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 35 11 "Gruppo     "
FIELD 90->GRUPPOAB0
END
STRINGA 26 15
BEGIN
KEY "Rh/AntiD"
PROMPT 35 12 "Rh/AntiD   "
FIELD 90->RHANTID
END
STRINGA 27 15
BEGIN
KEY "Fenotipo Rh"
PROMPT 35 13 "Fenotipo   "
FIELD 90->FENOTIPORH
END
STRINGA 28 15
BEGIN
KEY "Kell"
PROMPT 35 14 "Kell       "
FIELD 90->KELL
END
STRINGA 29 15
BEGIN
KEY "Du"
PROMPT 35 15 "Du         "
FIELD 90->DU
END
STRINGA 30 25
BEGIN
KEY "Stato "
PROMPT 55 11 "Stato att.  "
FIELD 200@->S0[1,15]
END
DATA 31 25
BEGIN
KEY "Data stato"
PROMPT 55 12 "Data stato  "
FIELD 90->DATASTATO
END
DATA 31 25
BEGIN
KEY "Data fine sospensione"
PROMPT 55 13 "Data fine   "
FIELD 90->DATA_PROS
END
DATA 32 25
BEGIN
KEY "Data iscrizione"
PROMPT 55 14 "Data iscr.  "
FIELD 90->DATAISC
END
DATA 33 25
BEGIN
KEY "Data ult. agg. "
PROMPT 55 15 "Ultimo agg. "
FIELD 90->DATAULTAGG
END
DATA 41 25
BEGIN
KEY "Data ultima donazione"
PROMPT 1 14 "Ultima don. "
FIELD 90->DATAULTDON
END
STRINGA 42 2
BEGIN
KEY "Tipo ultima donazione"
PROMPT 24 14 ""
FIELD 90->TIPOULTDON
END
NUMERO 43 15
BEGIN
KEY "Totale donazioni"
PROMPT 1 15 "Totale don. "
FIELD 90->TOTDON
END
STRINGA 44 25
BEGIN
KEY "TEsto"
PROMPT 1 17 "DETTAGLIO DONAZIONI"
END
STRINGA 45 50
BEGIN
KEY "Testo"
PROMPT 1 17 "Data       Tipo  Punto di Prelievo"
END
END 
SECTION DONAZIONI 1 1 1 FILE 92
DATA 1
BEGIN
KEY "Data donazione "
PROMPT 1 1 ""
FIELD 92->DATADON
END
STRINGA 2 10
BEGIN
KEY "Tipo donazione"
PROMPT 13 1 ""
FIELD 92->TIPODON
END
STRINGA 3 25
BEGIN
KEY "Punto di prelievo"
PROMPT 18 1 ""
FIELD 401@->S0
END
END 
END 
END