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
208 lines
2.8 KiB
Plaintext
Executable File
208 lines
2.8 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 70
|
|
|
|
STRINGA 1 50
|
|
BEGIN
|
|
KEY "Intestazione della scheda + data del giorno"
|
|
PROMPT 15 12 ""
|
|
MESSAGE _TODAY
|
|
END
|
|
|
|
STRINGA 2 25
|
|
BEGIN
|
|
KEY "Cognome"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,4|COPY,4
|
|
FIELD 90->COGNOME
|
|
END
|
|
|
|
STRINGA 3 25
|
|
BEGIN
|
|
KEY "Nome"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,4
|
|
FIELD 90->NOME
|
|
END
|
|
|
|
STRINGA 4 51 1
|
|
BEGIN
|
|
KEY "Cognome e nome"
|
|
PROMPT 15 18 ""
|
|
END
|
|
|
|
NUMERO 5 8
|
|
BEGIN
|
|
KEY "Codice soggetto"
|
|
PROMPT 15 20 ""
|
|
FIELD 90->CODICE
|
|
END
|
|
|
|
STRINGA 6 2
|
|
BEGIN
|
|
KEY "Categoria"
|
|
PROMPT 67 20 ""
|
|
FIELD 90->CATDON
|
|
END
|
|
|
|
STRINGA 7 50
|
|
BEGIN
|
|
KEY "Comune di nascita"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,9|COPY,9
|
|
FIELD 500@->DENCOM
|
|
END
|
|
|
|
STRINGA 8 5
|
|
BEGIN
|
|
KEY "Provincia di nascita"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,9
|
|
FIELD 500@->PROVCOM
|
|
END
|
|
|
|
STRINGA 9 55
|
|
BEGIN
|
|
KEY "Comune e provincia di nascita"
|
|
PROMPT 15 22 ""
|
|
END
|
|
|
|
DATA 10 18
|
|
BEGIN
|
|
KEY "Data nascita"
|
|
PROMPT 67 22 ""
|
|
FIELD 90->DATANASC
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 11 30 1
|
|
BEGIN
|
|
KEY "Indirizzo"
|
|
PROMPT 15 24 ""
|
|
FIELD 90->DOM_INDIR
|
|
END
|
|
|
|
STRINGA 12 4
|
|
BEGIN
|
|
KEY "Codice localita'"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
FIELD 90->DOM_CODLOC
|
|
END
|
|
|
|
STRINGA 13 30
|
|
BEGIN
|
|
KEY "Denominazione localita' o comune"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,15|COPY,15
|
|
FIELD 100@->S0
|
|
FIELD 501@->DENCOM
|
|
END
|
|
|
|
STRINGA 14 5
|
|
BEGIN
|
|
KEY "Provincia"
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,15
|
|
FIELD 501@->PROVCOM
|
|
END
|
|
|
|
STRINGA 15 50 1
|
|
BEGIN
|
|
KEY "Loc./Com. e Prov."
|
|
PROMPT 15 26 ""
|
|
END
|
|
|
|
STRINGA 16 25
|
|
BEGIN
|
|
KEY "Codice fiscale"
|
|
PROMPT 15 28 ""
|
|
FIELD 90->CF
|
|
END
|
|
|
|
STRINGA 17 15
|
|
BEGIN
|
|
KEY "Gruppo sanguigno"
|
|
PROMPT 45 28 ""
|
|
FIELD 90->GRUPPOAB0
|
|
END
|
|
|
|
STRINGA 18 15
|
|
BEGIN
|
|
KEY "Rh/AntiD"
|
|
PROMPT 66 28 ""
|
|
FIELD 90->RHANTID
|
|
END
|
|
|
|
LISTA 19
|
|
BEGIN
|
|
KEY "Sesso"
|
|
PROMPT 67 18 ""
|
|
FIELD 90->SESSO
|
|
ITEM "0|?"
|
|
ITEM "1|M"
|
|
ITEM "2|F"
|
|
ITEM "9|?"
|
|
END
|
|
|
|
STRINGA 20
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
END
|
|
STRINGA 21
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
END
|
|
STRINGA 22
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
END
|
|
|
|
END // FINE SECTION BODY
|
|
|
|
END // END FORM
|