f2185ee347
Files correlati : un casino Ricompilazione Demo : [ ] Commento : allineato versione git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
233 lines
3.2 KiB
Plaintext
Executable File
233 lines
3.2 KiB
Plaintext
Executable File
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 94 INTO CODICE==CODICE
|
|
JOIN BNZ TO 94 ALIAS 600 INTO CODTAB==TIPOBEN
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
90->* "Soggetti Sezioni AVIS"
|
|
100@->* "Localita' postali"
|
|
200@->* "TCS"
|
|
300@->* "GAZ"
|
|
100@->* "LCP"
|
|
500@->* "Comune di nascita"
|
|
501@->* "Comuni di domicilio"
|
|
600@->* "Tabella benemerenze"
|
|
96->* "Sezioni AVIS"
|
|
97->* "Medici"
|
|
94->* "Benemerenze"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT ""
|
|
SIZE
|
|
GRID ""
|
|
END
|
|
|
|
SECTION BODY ODD 24
|
|
|
|
STRINGA 1 25
|
|
BEGIN
|
|
KEY "Cognome"
|
|
PROMPT 3 1 "Cognome "
|
|
FIELD 90->COGNOME
|
|
END
|
|
|
|
STRINGA 2 25
|
|
BEGIN
|
|
KEY "Nome"
|
|
PROMPT 41 1 "Nome "
|
|
FIELD 90->NOME
|
|
END
|
|
|
|
STRINGA 3 50
|
|
BEGIN
|
|
KEY "Comune di nascita"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,5|COPY,5
|
|
FIELD 500@->DENCOM
|
|
END
|
|
|
|
STRINGA 4 5
|
|
BEGIN
|
|
KEY "Provincia di nascita"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,5
|
|
FIELD 500@->PROVCOM
|
|
END
|
|
|
|
STRINGA 5 55
|
|
BEGIN
|
|
KEY "Comune e provincia di nascita"
|
|
PROMPT 3 3 "Nato a "
|
|
END
|
|
|
|
DATA 6 18
|
|
BEGIN
|
|
KEY "Data nascita"
|
|
PROMPT 48 3 "Data di nascita "
|
|
FIELD 90->DATANASC
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 7 15
|
|
BEGIN
|
|
PROMPT 3 5 "Professione "
|
|
END
|
|
|
|
STRINGA 26 6
|
|
BEGIN
|
|
KEY "Prompt sesso"
|
|
PROMPT 66 5 "Sesso "
|
|
END
|
|
|
|
LISTA 8
|
|
BEGIN
|
|
KEY "Sesso"
|
|
PROMPT 72 5 "Sesso "
|
|
FIELD 90->SESSO
|
|
ITEM "0|?"
|
|
ITEM "1|M"
|
|
ITEM "2|F"
|
|
ITEM "9|?"
|
|
END
|
|
|
|
STRINGA 9 30
|
|
BEGIN
|
|
KEY "Comune"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,11|COPY,11
|
|
FIELD 501@->DENCOM
|
|
END
|
|
|
|
STRINGA 10 5
|
|
BEGIN
|
|
KEY "Provincia"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,11
|
|
FIELD 501@->PROVCOM
|
|
END
|
|
|
|
STRINGA 11 55
|
|
BEGIN
|
|
KEY "Com. e Prov."
|
|
PROMPT 3 7 "Residente a "
|
|
END
|
|
|
|
STRINGA 12 30
|
|
BEGIN
|
|
KEY "Indirizzo"
|
|
PROMPT 3 9 "Indirizzo "
|
|
FIELD 90->DOM_INDIR
|
|
END
|
|
|
|
STRINGA 13 25
|
|
BEGIN
|
|
KEY "Telefono abitazione"
|
|
PROMPT 3 11 "Tel.: ab. "
|
|
FIELD 90->TELABI
|
|
END
|
|
|
|
STRINGA 14 25
|
|
BEGIN
|
|
KEY "Telefono lavoro"
|
|
PROMPT 30 11 "lav. "
|
|
FIELD 90->TELLAV
|
|
END
|
|
|
|
STRINGA 15 25
|
|
BEGIN
|
|
KEY "Telefono altri"
|
|
PROMPT 51 11 "altro "
|
|
FIELD 90->TELALT
|
|
END
|
|
|
|
STRINGA 16 12
|
|
BEGIN
|
|
KEY "Sezione"
|
|
PROMPT 3 13 "Sez./Sot. "
|
|
FIELD 90->CODSEZ
|
|
END
|
|
|
|
STRINGA 17 3
|
|
BEGIN
|
|
KEY "Sottogruppo"
|
|
PROMPT 15 13 "/"
|
|
FIELD 90->CODSOT
|
|
END
|
|
|
|
NUMERO 18 8
|
|
BEGIN
|
|
KEY "Codice soggetto"
|
|
PROMPT 50 13 "Cod. sezione"
|
|
FIELD 90->CODICE
|
|
END
|
|
|
|
STRINGA 19 25
|
|
BEGIN
|
|
KEY "Numero libretto sanitario"
|
|
PROMPT 3 15 "Tessera SSN "
|
|
FIELD 90->TESSSSN
|
|
END
|
|
|
|
STRINGA 20 25
|
|
BEGIN
|
|
KEY "Codice fiscale"
|
|
PROMPT 35 15 "Codice fiscale "
|
|
FIELD 90->CF
|
|
END
|
|
|
|
STRINGA 21 15
|
|
BEGIN
|
|
KEY "Gruppo sanguigno"
|
|
PROMPT 3 17 "AB0 "
|
|
FIELD 90->GRUPPOAB0
|
|
END
|
|
|
|
STRINGA 22 15
|
|
BEGIN
|
|
KEY "Rh/AntiD"
|
|
PROMPT 17 17 "Rh "
|
|
FIELD 90->RHANTID
|
|
END
|
|
|
|
STRINGA 23 15
|
|
BEGIN
|
|
KEY "Fenotipo Rh"
|
|
PROMPT 29 17 "Fenotipo Rh "
|
|
FIELD 90->FENOTIPORH
|
|
END
|
|
|
|
STRINGA 24 15
|
|
BEGIN
|
|
KEY "Kell"
|
|
PROMPT 52 17 "Kell "
|
|
FIELD 90->KELL
|
|
END
|
|
|
|
STRINGA 25 15
|
|
BEGIN
|
|
KEY "Du"
|
|
PROMPT 64 17 "Du "
|
|
FIELD 90->DU
|
|
END
|
|
|
|
END // FINE SECTION BODY
|
|
|
|
END // END FORM
|