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
217 lines
3.0 KiB
Plaintext
Executable File
217 lines
3.0 KiB
Plaintext
Executable File
USE 116
|
|
JOIN 90 INTO CODICE==CODICE
|
|
JOIN 115 INTO NUMERO==NUMERO
|
|
JOIN LCP TO 90 ALIAS 100 INTO CODTAB==DOM_CODLOC
|
|
JOIN LDN TO 90 ALIAS 400 INTO CODTAB==PUNTORACC
|
|
JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM
|
|
JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT
|
|
JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7
|
|
JOIN 13 TO 400@ ALIAS 503 INTO COM==S6
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
116->* "Righe convocazioni"
|
|
115->* "Convocazioni"
|
|
90->* "Soggetti Sezioni AVIS"
|
|
13->* "COMUNI"
|
|
100@->* "Localita' postali"
|
|
400@->* "Punti di prelievo"
|
|
96->* "Sezioni associative"
|
|
END
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 12cpi"
|
|
SIZE 12
|
|
GRID ""
|
|
END
|
|
SECTION BODY ODD 70
|
|
STRINGA 1 25
|
|
BEGIN
|
|
KEY "Cognome"
|
|
FIELD 90->COGNOME
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,3|COPY,3
|
|
END
|
|
STRINGA 2 25
|
|
BEGIN
|
|
KEY "Nome"
|
|
FIELD 90->NOME
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,3
|
|
END
|
|
STRINGA 3 51
|
|
BEGIN
|
|
KEY "Cognome e nome"
|
|
PROMPT 56 16 ""
|
|
END
|
|
STRINGA 4 30
|
|
BEGIN
|
|
KEY "Indirizzo"
|
|
FIELD 90->DOM_INDIR
|
|
PROMPT 56 17 ""
|
|
END
|
|
STRINGA 5 4
|
|
BEGIN
|
|
KEY "Codice localita'"
|
|
FIELD 90->DOM_CODLOC
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
END
|
|
STRINGA 6 5
|
|
BEGIN
|
|
KEY "CAP"
|
|
FIELD 90->DOM_CAP
|
|
PROMPT 56 19 ""
|
|
END
|
|
STRINGA 7 30
|
|
BEGIN
|
|
KEY "Denominazione localita' o comune"
|
|
FIELD 100@->S0
|
|
FIELD 501@->DENCOM
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,9|COPY,9
|
|
END
|
|
STRINGA 8 5
|
|
BEGIN
|
|
KEY "Provincia"
|
|
FIELD 501@->PROVCOM
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,9
|
|
END
|
|
STRINGA 9 50 2
|
|
BEGIN
|
|
KEY "Loc./Com. e Prov."
|
|
PROMPT 62 19 ""
|
|
END
|
|
STRINGA 10 25
|
|
BEGIN
|
|
KEY "Invito per"
|
|
PROMPT 11 4 "per DONAZIONE SANGUE"
|
|
END
|
|
STRINGA 11 25
|
|
BEGIN
|
|
KEY "Data convocazione"
|
|
PROMPT 37 2 ""
|
|
FIELD 116->DATACONV
|
|
END
|
|
STRINGA 12 10
|
|
BEGIN
|
|
KEY "TESTO"
|
|
PROMPT 11 5 "Presso"
|
|
END
|
|
STRINGA 13 50
|
|
BEGIN
|
|
KEY "Presso: denominazione punto di prelievo"
|
|
PROMPT 11 6 ""
|
|
FIELD 400@->S0
|
|
END
|
|
STRINGA 14 50
|
|
BEGIN
|
|
KEY "Presso: indirizzo punto di prelievo"
|
|
PROMPT 11 7 ""
|
|
FIELD 400@->S1
|
|
END
|
|
STRINGA 15 4
|
|
BEGIN
|
|
KEY "Codice localita'"
|
|
FIELD 400@->S7
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
END
|
|
STRINGA 16 5
|
|
BEGIN
|
|
KEY "CAP"
|
|
FIELD 400@->S8
|
|
PROMPT 11 8 ""
|
|
END
|
|
STRINGA 17 30
|
|
BEGIN
|
|
KEY "Denominazione localita' o comune"
|
|
FIELD 102@->S0
|
|
FIELD 503@->DENCOM
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,20|COPY,20
|
|
END
|
|
STRINGA 18 5
|
|
BEGIN
|
|
KEY "Provincia"
|
|
FIELD 503@->PROVCOM
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,20
|
|
END
|
|
STRINGA 19 20
|
|
BEGIN
|
|
KEY "telefoni"
|
|
PROMPT 0 0 "-"
|
|
FIELD 400@->S4
|
|
FLAGS "H"
|
|
MESSAGE APPEND,20
|
|
END
|
|
STRINGA 20 50 2
|
|
BEGIN
|
|
KEY "Loc./Com. e Prov."
|
|
PROMPT 17 8 ""
|
|
END
|
|
STRINGA 21 50
|
|
BEGIN
|
|
KEY "orario"
|
|
PROMPT 11 9 ""
|
|
FIELD 400@->S2
|
|
END
|
|
STRING 22 2
|
|
BEGIN
|
|
KEY "Sezione"
|
|
PROMPT 20 16 ""
|
|
FIELD 90->CODSEZ
|
|
END
|
|
STRING 23 2
|
|
BEGIN
|
|
KEY "Sottogruppo"
|
|
FIELD 90->CODSOT
|
|
PROMPT 22 16 ""
|
|
END
|
|
STRING 24 2
|
|
BEGIN
|
|
KEY "Categoria"
|
|
FIELD 90->CATDON
|
|
PROMPT 30 16 ""
|
|
END
|
|
STRINGA 25 2
|
|
BEGIN
|
|
KEY "Cartella clinica"
|
|
FIELD 90->CODCL
|
|
PROMPT 35 16 ""
|
|
END
|
|
STRINGA 26 6
|
|
BEGIN
|
|
KEY "Tessera"
|
|
FIELD 90->TESSAVIS
|
|
PROMPT 37 16 ""
|
|
END
|
|
STRINGA 27 25
|
|
BEGIN
|
|
KEY ""
|
|
PROMPT 20 19 "Presentarsi a digiuno"
|
|
END
|
|
STRING 28 4
|
|
BEGIN
|
|
KEY "Gruppo az."
|
|
PROMPT 15 16 ""
|
|
FIELD 90->GRUPPOAZIE
|
|
END
|
|
STRING 29 30
|
|
BEGIN
|
|
KEY "Gruppo az."
|
|
PROMPT 56 18 ""
|
|
FIELD 90->DOM_DISTRI
|
|
END
|
|
END
|
|
END
|