207 lines
2.7 KiB
Plaintext
207 lines
2.7 KiB
Plaintext
|
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
|