Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunti nuovi form per etichette, lettere, stampe varie git-svn-id: svn://10.65.10.50/trunk@9002 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
9fead56850
commit
43ba94b692
257
at/atcartbo.frm
Executable file
257
at/atcartbo.frm
Executable file
@ -0,0 +1,257 @@
|
||||
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 24
|
||||
|
||||
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 100@->S6
|
||||
//FIELD 501@->CAPCOM
|
||||
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"
|
||||
//FIELD 115->TIPO
|
||||
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 102@->S6
|
||||
//FIELD 503@->CAPCOM
|
||||
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
|
||||
175
at/atcarto2.frm
Executable file
175
at/atcarto2.frm
Executable file
@ -0,0 +1,175 @@
|
||||
USE 90
|
||||
JOIN 13 INTO COM==DOM_CODCOM
|
||||
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
13->* "COMUNI"
|
||||
100@->* "Localita' postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Roman"
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 24
|
||||
|
||||
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 25 2
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 56 16 ""
|
||||
END
|
||||
|
||||
STRINGA 4 20 2
|
||||
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 100@->S6
|
||||
FIELD 13->CAPCOM
|
||||
PROMPT 56 19 ""
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Denominazione localita' o comune"
|
||||
FIELD 100@->S0
|
||||
FIELD 13->DENCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE RESET,9|COPY,9
|
||||
END
|
||||
|
||||
STRINGA 8 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
FIELD 13->PROVCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,9
|
||||
END
|
||||
|
||||
STRINGA 9 22 3
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 62 19 ""
|
||||
END
|
||||
|
||||
STRINGA 10 25
|
||||
BEGIN
|
||||
KEY "Invito per"
|
||||
PROMPT 11 4 ""
|
||||
END
|
||||
|
||||
STRINGA 11 25
|
||||
BEGIN
|
||||
KEY "Data convocazione"
|
||||
PROMPT 37 2 ""
|
||||
END
|
||||
|
||||
STRINGA 12 25
|
||||
BEGIN
|
||||
KEY "Presso: riga 1"
|
||||
PROMPT 11 5 ""
|
||||
END
|
||||
|
||||
STRINGA 13 25
|
||||
BEGIN
|
||||
KEY "Presso: riga 2"
|
||||
PROMPT 11 6 ""
|
||||
END
|
||||
|
||||
STRINGA 14 25
|
||||
BEGIN
|
||||
KEY "Presso: riga 3"
|
||||
PROMPT 11 7 ""
|
||||
END
|
||||
|
||||
STRINGA 15 25
|
||||
BEGIN
|
||||
KEY "Presso: riga 4"
|
||||
PROMPT 11 8 ""
|
||||
END
|
||||
|
||||
STRINGA 16 14
|
||||
BEGIN
|
||||
KEY "Orario"
|
||||
PROMPT 11 9 ""
|
||||
END
|
||||
|
||||
STRINGA 17 10
|
||||
BEGIN
|
||||
KEY "Data cartolina"
|
||||
PROMPT 18 21 ""
|
||||
END
|
||||
|
||||
STRINGA 18 25
|
||||
BEGIN
|
||||
KEY "Note"
|
||||
PROMPT 3 23 ""
|
||||
END
|
||||
|
||||
STRINGA 19 20
|
||||
BEGIN
|
||||
KEY "Intestazione 1"
|
||||
PROMPT 15 5 ""
|
||||
END
|
||||
|
||||
STRINGA 20 20
|
||||
BEGIN
|
||||
KEY "Intestazione 2"
|
||||
PROMPT 15 6 ""
|
||||
END
|
||||
|
||||
STRINGA 21 20
|
||||
BEGIN
|
||||
KEY "Intestazione 3"
|
||||
PROMPT 15 7 ""
|
||||
END
|
||||
|
||||
STRINGA 22 20
|
||||
BEGIN
|
||||
KEY "Intestazione 4"
|
||||
PROMPT 15 8 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
140
at/atesezio.frm
Executable file
140
at/atesezio.frm
Executable file
@ -0,0 +1,140 @@
|
||||
USE 96
|
||||
JOIN 13 INTO COM==COM
|
||||
JOIN LCP INTO CODTAB==LOCALITA
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
96->* "Sezioni"
|
||||
13->* "COMUNI"
|
||||
LCP->* "Località postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Arial"
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 9
|
||||
|
||||
STRINGA 1 25
|
||||
BEGIN
|
||||
KEY "Sezione"
|
||||
FIELD 96->DENSEZ
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE RESET,4|COPY,4|"/",2
|
||||
END
|
||||
|
||||
STRINGA 13 25
|
||||
BEGIN
|
||||
KEY "/"
|
||||
FIELD 96->DENSOT
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE EMPTY RESET,2
|
||||
END
|
||||
|
||||
STRINGA 2 1
|
||||
BEGIN
|
||||
KEY "/"
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,4
|
||||
END
|
||||
|
||||
STRINGA 3 25
|
||||
BEGIN
|
||||
KEY "Sottogruppo"
|
||||
FIELD 96->DENSOT
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,4
|
||||
END
|
||||
|
||||
STRINGA 4 33 3
|
||||
BEGIN
|
||||
KEY "Denominazione"
|
||||
PROMPT 1 2 ""
|
||||
END
|
||||
|
||||
STRINGA 5 33 2
|
||||
BEGIN
|
||||
KEY "Indirizzo"
|
||||
PROMPT 1 5 ""
|
||||
FIELD 96->INDIRIZZO
|
||||
END
|
||||
|
||||
STRINGA 6 4
|
||||
BEGIN
|
||||
KEY "Codice localita'"
|
||||
PROMPT 0 0 ""
|
||||
FLAG "H"
|
||||
FIELD 96->LOCALITA
|
||||
MESSAGE ENABLE,1@|DISABLE,2@
|
||||
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
|
||||
END
|
||||
|
||||
STRINGA 7 5
|
||||
BEGIN
|
||||
KEY "CAP loc."
|
||||
PROMPT 1 7 ""
|
||||
FIELD LCP->S6
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 8 30
|
||||
BEGIN
|
||||
KEY "Localita'"
|
||||
PROMPT 0 0 ""
|
||||
FIELD LCP->S0
|
||||
GROUP 1
|
||||
FLAG "H"
|
||||
MESSAGE RESET,12|COPY,12
|
||||
END
|
||||
|
||||
STRINGA 9 5
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 1 7 ""
|
||||
FIELD 13->CAPCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRINGA 10 50
|
||||
BEGIN
|
||||
KEY "Comune"
|
||||
PROMPT 0 0 ""
|
||||
FIELD 13->DENCOM
|
||||
GROUP 2
|
||||
FLAG "H"
|
||||
MESSAGE RESET,12|COPY,12
|
||||
END
|
||||
|
||||
STRINGA 11 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
PROMPT 0 0 ""
|
||||
FIELD 13->PROVCOM
|
||||
FLAG "H"
|
||||
MESSAGE APPEND,12
|
||||
END
|
||||
|
||||
STRINGA 12 27 2
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 7 7 ""
|
||||
END
|
||||
|
||||
STRINGA 13 15
|
||||
BEGIN
|
||||
KEY "Spett.le"
|
||||
PROMPT 1 1 "Spett.le AVIS "
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
120
at/atesezpr.frm
Executable file
120
at/atesezpr.frm
Executable file
@ -0,0 +1,120 @@
|
||||
USE 96
|
||||
JOIN 13 INTO COM==COM
|
||||
JOIN LCP INTO CODTAB==LOCALITA
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
96->* "Sezioni"
|
||||
13->* "COMUNI"
|
||||
LCP->* "Località postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT ""
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 6
|
||||
|
||||
STRINGA 1 15
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "H"
|
||||
MESSAGE RESET,3|"Spett.le AVIS",3
|
||||
END
|
||||
|
||||
STRINGA 2 50
|
||||
BEGIN
|
||||
KEY "Denominazione"
|
||||
PROMPT 0 0 ""
|
||||
FIELD 96->DENOMINAZ
|
||||
FLAG "H"
|
||||
MESSAGE APPEND,3
|
||||
END
|
||||
|
||||
STRINGA 3 40 2
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
STRINGA 4 40 2
|
||||
BEGIN
|
||||
KEY "Indirizzo"
|
||||
PROMPT 1 3 ""
|
||||
FIELD 96->INDIRIZZO
|
||||
END
|
||||
|
||||
STRINGA 5 1
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "H"
|
||||
END
|
||||
|
||||
STRINGA 6 4
|
||||
BEGIN
|
||||
KEY "Codice localita'"
|
||||
PROMPT 0 0 ""
|
||||
FLAG "H"
|
||||
FIELD 96->LOCALITA
|
||||
MESSAGE ENABLE,1@|DISABLE,2@
|
||||
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
|
||||
END
|
||||
|
||||
STRINGA 7 5
|
||||
BEGIN
|
||||
KEY "CAP loc."
|
||||
PROMPT 1 4 ""
|
||||
FIELD LCP->S6
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 8 30
|
||||
BEGIN
|
||||
KEY "Localita'"
|
||||
PROMPT 0 0 ""
|
||||
FIELD LCP->S0
|
||||
GROUP 1
|
||||
FLAG "H"
|
||||
MESSAGE RESET,12|COPY,12
|
||||
END
|
||||
|
||||
STRINGA 9 5
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 1 4 ""
|
||||
FIELD 13->CAPCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRINGA 10 50
|
||||
BEGIN
|
||||
KEY "Comune"
|
||||
PROMPT 0 0 ""
|
||||
FIELD 13->DENCOM
|
||||
GROUP 2
|
||||
FLAG "H"
|
||||
MESSAGE RESET,12|COPY,12
|
||||
END
|
||||
|
||||
STRINGA 11 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
PROMPT 0 0 ""
|
||||
FIELD 13->PROVCOM
|
||||
FLAG "H"
|
||||
MESSAGE APPEND,12
|
||||
END
|
||||
|
||||
STRINGA 12 27 2
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 7 4 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
128
at/atet10bo.frm
Executable file
128
at/atet10bo.frm
Executable file
@ -0,0 +1,128 @@
|
||||
USE 90
|
||||
JOIN 13 INTO COM==DOM_CODCOM
|
||||
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
13->* "COMUNI"
|
||||
100@->* "Localita' postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT ""
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 9
|
||||
|
||||
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 40 1
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 1 2 ""
|
||||
END
|
||||
|
||||
STRINGA 4 30
|
||||
BEGIN
|
||||
KEY "Indirizzo"
|
||||
FIELD 90->DOM_INDIR
|
||||
PROMPT 1 3 ""
|
||||
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 100@->S6
|
||||
//FIELD 13->CAPCOM
|
||||
FIELD 90->DOM_CAP
|
||||
PROMPT 1 5 ""
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Denominazione localita' o comune"
|
||||
FIELD 100@->S0
|
||||
FIELD 13->DENCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE RESET,9|COPY,9
|
||||
END
|
||||
|
||||
STRINGA 8 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
FIELD 13->PROVCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,9
|
||||
END
|
||||
|
||||
STRINGA 9 33 1
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 7 5 ""
|
||||
END
|
||||
|
||||
STRINGA 10 2
|
||||
BEGIN
|
||||
KEY "Categoria"
|
||||
FIELD 90->CATDON
|
||||
FIELD 90->CATNOND1
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
STRINGA 11 2
|
||||
BEGIN
|
||||
KEY "Cartella clinica"
|
||||
FIELD 90->CODCL
|
||||
PROMPT 7 1 ""
|
||||
END
|
||||
|
||||
STRINGA 12 10
|
||||
BEGIN
|
||||
KEY "Tessera"
|
||||
FIELD 90->TESSAVIS
|
||||
PROMPT 9 1 ""
|
||||
END
|
||||
|
||||
STRINGA 13 30
|
||||
BEGIN
|
||||
KEY "Presso"
|
||||
FIELD 90->DOM_DISTRI
|
||||
PROMPT 1 4 ""
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
128
at/atet90bo.frm
Executable file
128
at/atet90bo.frm
Executable file
@ -0,0 +1,128 @@
|
||||
USE 90
|
||||
JOIN 13 INTO COM==DOM_CODCOM
|
||||
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
13->* "COMUNI"
|
||||
100@->* "Localita' postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT ""
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 6
|
||||
|
||||
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 1
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 1 2 ""
|
||||
END
|
||||
|
||||
STRINGA 4 30
|
||||
BEGIN
|
||||
KEY "Indirizzo"
|
||||
FIELD 90->DOM_INDIR
|
||||
PROMPT 1 3 ""
|
||||
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 100@->S6
|
||||
//FIELD 13->CAPCOM
|
||||
FIELD 90->DOM_CAP
|
||||
PROMPT 1 5 ""
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Denominazione localita' o comune"
|
||||
FIELD 100@->S0
|
||||
FIELD 13->DENCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE RESET,9|COPY,9
|
||||
END
|
||||
|
||||
STRINGA 8 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
FIELD 13->PROVCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,9
|
||||
END
|
||||
|
||||
STRINGA 9 45 1
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 7 5 ""
|
||||
END
|
||||
|
||||
STRINGA 10 2
|
||||
BEGIN
|
||||
KEY "Categoria"
|
||||
FIELD 90->CATDON
|
||||
FIELD 90->CATNOND1
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
STRINGA 11 2
|
||||
BEGIN
|
||||
KEY "Cartella clinica"
|
||||
FIELD 90->CODCL
|
||||
PROMPT 7 1 ""
|
||||
END
|
||||
|
||||
STRINGA 12 10
|
||||
BEGIN
|
||||
KEY "Tessera"
|
||||
FIELD 90->TESSAVIS
|
||||
PROMPT 9 1 ""
|
||||
END
|
||||
|
||||
STRINGA 13 30
|
||||
BEGIN
|
||||
KEY "Presso"
|
||||
FIELD 90->DOM_DISTRI
|
||||
PROMPT 1 4 ""
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
97
at/atetirn1.frm
Executable file
97
at/atetirn1.frm
Executable file
@ -0,0 +1,97 @@
|
||||
USE 90
|
||||
JOIN 13 INTO COM==DOM_CODCOM
|
||||
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
13->* "COMUNI"
|
||||
100@->* "Localita' postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT ""
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 9
|
||||
|
||||
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 33 2
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
STRINGA 4 30
|
||||
BEGIN
|
||||
KEY "Indirizzo"
|
||||
FIELD 90->DOM_INDIR
|
||||
PROMPT 1 3 ""
|
||||
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 100@->S6
|
||||
FIELD 13->CAPCOM
|
||||
PROMPT 1 5 ""
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Denominazione localita' o comune"
|
||||
FIELD 100@->S0
|
||||
FIELD 13->DENCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE RESET,9|COPY,9
|
||||
END
|
||||
|
||||
STRINGA 8 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
FIELD 13->PROVCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,9
|
||||
END
|
||||
|
||||
STRINGA 9 27 2
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 7 5 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
257
at/atlecobo.frm
Executable file
257
at/atlecobo.frm
Executable file
@ -0,0 +1,257 @@
|
||||
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 100@->S6
|
||||
//FIELD 501@->CAPCOM
|
||||
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"
|
||||
//FIELD 115->TIPO
|
||||
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 102@->S6
|
||||
//FIELD 503@->CAPCOM
|
||||
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
|
||||
132
at/atletter.frm
Executable file
132
at/atletter.frm
Executable file
@ -0,0 +1,132 @@
|
||||
USE 90
|
||||
JOIN 13 INTO COM==DOM_CODCOM
|
||||
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
13->* "COMUNI"
|
||||
100@->* "Localita' postali"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT ""
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION BODY ODD 63
|
||||
|
||||
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 33 2
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 48 11 ""
|
||||
END
|
||||
|
||||
STRINGA 4 30
|
||||
BEGIN
|
||||
KEY "Indirizzo"
|
||||
FIELD 90->DOM_INDIR
|
||||
PROMPT 48 13 ""
|
||||
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 100@->S6
|
||||
FIELD 13->CAPCOM
|
||||
PROMPT 48 15 ""
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Denominazione localita' o comune"
|
||||
FIELD 100@->S0
|
||||
FIELD 13->DENCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE RESET,9|COPY,9
|
||||
END
|
||||
|
||||
STRINGA 8 5
|
||||
BEGIN
|
||||
KEY "Provincia"
|
||||
FIELD 13->PROVCOM
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,9
|
||||
END
|
||||
|
||||
STRINGA 9 27 2
|
||||
BEGIN
|
||||
KEY "Loc./Com. e Prov."
|
||||
PROMPT 54 15 ""
|
||||
END
|
||||
|
||||
STRINGA 10 2
|
||||
BEGIN
|
||||
KEY "Sezione"
|
||||
FIELD 90->CODSEZ
|
||||
PROMPT 5 22 ""
|
||||
END
|
||||
|
||||
STRINGA 11 2
|
||||
BEGIN
|
||||
KEY "Sezione"
|
||||
FIELD 90->CODSOT
|
||||
PROMPT 7 22 "/"
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "Tessera"
|
||||
FIELD 90->TESSAVIS
|
||||
PROMPT 12 22 ""
|
||||
END
|
||||
|
||||
DATA 13
|
||||
BEGIN
|
||||
KEY "Data fine sospensione"
|
||||
FIELD 90->DATA_PROS
|
||||
PROMPT 35 30 ""
|
||||
END
|
||||
|
||||
STRINGA 14 2
|
||||
BEGIN
|
||||
KEY "Prossimo controllo"
|
||||
FIELD 90->PROS_STATO
|
||||
PROMPT 11 63 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
169
at/atrubrsa.frm
Executable file
169
at/atrubrsa.frm
Executable file
@ -0,0 +1,169 @@
|
||||
USE 90
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT ""
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 3
|
||||
|
||||
STRINGA 1 6
|
||||
BEGIN
|
||||
KEY "Cartella clinica"
|
||||
PROMPT 1 2 "N.Car."
|
||||
END
|
||||
|
||||
STRINGA 2 2
|
||||
BEGIN
|
||||
KEY "Categoria"
|
||||
PROMPT 8 2 "C."
|
||||
END
|
||||
|
||||
STRINGA 3 15
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 11 2 "Cognome e nome"
|
||||
END
|
||||
|
||||
STRINGA 4 7
|
||||
BEGIN
|
||||
KEY "Nato il"
|
||||
PROMPT 63 2 "Nato il"
|
||||
END
|
||||
|
||||
STRINGA 5 9
|
||||
BEGIN
|
||||
KEY "Gruppo AB0"
|
||||
PROMPT 74 2 " AB0 "
|
||||
END
|
||||
|
||||
STRINGA 6 9
|
||||
BEGIN
|
||||
KEY "Rh/AntiD"
|
||||
PROMPT 84 2 " Rh "
|
||||
END
|
||||
|
||||
STRINGA 7 9
|
||||
BEGIN
|
||||
KEY "Kell"
|
||||
PROMPT 94 2 " Kell "
|
||||
END
|
||||
|
||||
STRINGA 8 9
|
||||
BEGIN
|
||||
KEY "Du"
|
||||
PROMPT 104 2 " Du "
|
||||
END
|
||||
|
||||
STRINGA 9 11
|
||||
BEGIN
|
||||
KEY "Fenotipo"
|
||||
PROMPT 114 2 " Fenotipo Rh "
|
||||
END
|
||||
|
||||
END // END SECTION HEADER
|
||||
|
||||
SECTION BODY ODD 3
|
||||
|
||||
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 11 1 ""
|
||||
END
|
||||
|
||||
STRINGA 4 6
|
||||
BEGIN
|
||||
KEY "Cartella clinica"
|
||||
PROMPT 1 1 ""
|
||||
FIELD 90->CODCL
|
||||
END
|
||||
|
||||
STRINGA 5 2
|
||||
BEGIN
|
||||
KEY "Categoria"
|
||||
PROMPT 8 1 ""
|
||||
FIELD 90->CATDON
|
||||
END
|
||||
|
||||
DATA 6 10
|
||||
BEGIN
|
||||
KEY "Data nascita"
|
||||
PROMPT 63 1 ""
|
||||
FIELD 90->DATANASC
|
||||
END
|
||||
|
||||
STRINGA 7 3
|
||||
BEGIN
|
||||
KEY "Gruppo AB0"
|
||||
PROMPT 77 1 ""
|
||||
FIELD 90->GRUPPOAB0
|
||||
END
|
||||
|
||||
STRINGA 8 3
|
||||
BEGIN
|
||||
KEY "Rh/AntiD"
|
||||
PROMPT 87 1 ""
|
||||
FIELD 90->RHANTID
|
||||
END
|
||||
|
||||
STRINGA 9 3
|
||||
BEGIN
|
||||
KEY "Kell"
|
||||
PROMPT 97 1 ""
|
||||
FIELD 90->KELL
|
||||
END
|
||||
|
||||
STRINGA 10 3
|
||||
BEGIN
|
||||
KEY "Du"
|
||||
PROMPT 107 1 ""
|
||||
FIELD 90->DU
|
||||
END
|
||||
|
||||
STRINGA 11 6
|
||||
BEGIN
|
||||
KEY "Fenotipo"
|
||||
PROMPT 115 1 ""
|
||||
FIELD 90->FENOTIPORH
|
||||
END
|
||||
|
||||
END // END SECTION BODY
|
||||
|
||||
SECTION FOOTER ODD 3
|
||||
|
||||
STRINGA 1 10
|
||||
BEGIN
|
||||
KEY "Niente"
|
||||
PROMPT 1 1 "---"
|
||||
END
|
||||
|
||||
END // END SECTION FOOTER
|
||||
|
||||
END // END FORM
|
||||
307
at/atscadbo.frm
Executable file
307
at/atscadbo.frm
Executable file
@ -0,0 +1,307 @@
|
||||
USE 90
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
90->* "Soggetti Sezioni AVIS"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Roman"
|
||||
SIZE 12
|
||||
GRID ""
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 4
|
||||
|
||||
STRINGA 1 15
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 1 2 "Cognome e nome"
|
||||
END
|
||||
|
||||
STRINGA 2 10
|
||||
BEGIN
|
||||
KEY "Data nascita"
|
||||
PROMPT 37 2 "Data nasc."
|
||||
END
|
||||
|
||||
STRINGA 3 6
|
||||
BEGIN
|
||||
KEY "Tessera"
|
||||
PROMPT 48 2 "Tess."
|
||||
END
|
||||
|
||||
STRINGA 4 2
|
||||
BEGIN
|
||||
KEY "Cat.don."
|
||||
PROMPT 50 3 "Ca"
|
||||
END
|
||||
|
||||
STRINGA 5 10
|
||||
BEGIN
|
||||
KEY "Data ult. don."
|
||||
PROMPT 58 2 "Ult. don."
|
||||
END
|
||||
|
||||
STRINGA 6 4
|
||||
BEGIN
|
||||
KEY "Totale donazioni"
|
||||
PROMPT 69 2 "Tot."
|
||||
END
|
||||
|
||||
STRINGA 7 4
|
||||
BEGIN
|
||||
KEY "Totale donazioni"
|
||||
PROMPT 69 3 "don."
|
||||
END
|
||||
|
||||
STRINGA 8 6
|
||||
BEGIN
|
||||
KEY "Int. SI"
|
||||
PROMPT 73 2 "Int.SI"
|
||||
END
|
||||
|
||||
STRINGA 9 6
|
||||
BEGIN
|
||||
KEY "Int. AF"
|
||||
PROMPT 73 3 "Int.AF"
|
||||
END
|
||||
|
||||
STRINGA 10 4
|
||||
BEGIN
|
||||
KEY "Gruppo AB0"
|
||||
PROMPT 80 2 "Grup"
|
||||
END
|
||||
|
||||
STRINGA 11 3
|
||||
BEGIN
|
||||
KEY "Rh/AntiD"
|
||||
PROMPT 80 3 "Rh"
|
||||
END
|
||||
|
||||
STRINGA 12 14
|
||||
BEGIN
|
||||
KEY "Telefono abitazione"
|
||||
PROMPT 85 2 "Tel. abitaz."
|
||||
END
|
||||
|
||||
STRINGA 13 14
|
||||
BEGIN
|
||||
KEY "Telefono lavoro"
|
||||
PROMPT 85 3 "Tel. lavoro"
|
||||
END
|
||||
|
||||
STRINGA 14 14
|
||||
BEGIN
|
||||
KEY "Telefono altro"
|
||||
PROMPT 100 2 "Tel. altro"
|
||||
END
|
||||
|
||||
STRINGA 15 15
|
||||
BEGIN
|
||||
KEY "Data prosssima SI"
|
||||
PROMPT 115 2 "Data pross.SI"
|
||||
END
|
||||
|
||||
STRINGA 16 35
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 1 4 "-----------------------------------"
|
||||
END
|
||||
|
||||
STRINGA 17 10
|
||||
BEGIN
|
||||
KEY "Data nascita"
|
||||
PROMPT 37 4 "----------"
|
||||
END
|
||||
|
||||
STRINGA 18 6
|
||||
BEGIN
|
||||
KEY "Tessera"
|
||||
PROMPT 48 4 "------"
|
||||
END
|
||||
|
||||
STRINGA 19 10
|
||||
BEGIN
|
||||
KEY "Data ult. don."
|
||||
PROMPT 58 4 "----------"
|
||||
END
|
||||
|
||||
STRINGA 20 3
|
||||
BEGIN
|
||||
KEY "Totale donazioni"
|
||||
PROMPT 69 4 "---"
|
||||
END
|
||||
|
||||
STRINGA 21 6
|
||||
BEGIN
|
||||
KEY "Int. SI"
|
||||
PROMPT 73 4 "------"
|
||||
END
|
||||
|
||||
STRINGA 22 4
|
||||
BEGIN
|
||||
KEY "Gruppo AB0"
|
||||
PROMPT 80 4 "----"
|
||||
END
|
||||
|
||||
STRINGA 23 14
|
||||
BEGIN
|
||||
KEY "Telefono abitazione"
|
||||
PROMPT 85 4 "--------------"
|
||||
END
|
||||
|
||||
STRINGA 24 14
|
||||
BEGIN
|
||||
KEY "Telefono altro"
|
||||
PROMPT 100 4 "--------------"
|
||||
END
|
||||
|
||||
STRINGA 15 15
|
||||
BEGIN
|
||||
KEY "Data prosssima SI"
|
||||
PROMPT 115 4 "-------------"
|
||||
END
|
||||
|
||||
END // END SECTION HEADER
|
||||
|
||||
SECTION BODY ODD 3
|
||||
|
||||
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 35 2
|
||||
BEGIN
|
||||
KEY "Cognome e nome"
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
DATA 4 10
|
||||
BEGIN
|
||||
KEY "Data nascita"
|
||||
PROMPT 37 1 ""
|
||||
FIELD 90->DATANASC
|
||||
END
|
||||
|
||||
STRINGA 5 6
|
||||
BEGIN
|
||||
KEY "Tessera"
|
||||
PROMPT 48 1 ""
|
||||
FIELD 90->TESSAVIS
|
||||
END
|
||||
|
||||
STRINGA 6 2
|
||||
BEGIN
|
||||
KEY "Cat.don."
|
||||
PROMPT 50 2 ""
|
||||
FIELD 90->CATDON
|
||||
END
|
||||
|
||||
DATA 7
|
||||
BEGIN
|
||||
KEY "Data ult. don."
|
||||
PROMPT 58 1 ""
|
||||
FIELD 90->DATAULTDON
|
||||
END
|
||||
|
||||
STRINGA 8 2
|
||||
BEGIN
|
||||
KEY "Tipo ult. don."
|
||||
PROMPT 61 2 ""
|
||||
FIELD 90->TIPOULTDON
|
||||
END
|
||||
|
||||
NUMERO 9 3
|
||||
BEGIN
|
||||
KEY "Totale donaz."
|
||||
PROMPT 69 1 ""
|
||||
FIELD 90->TOTDON
|
||||
END
|
||||
|
||||
NUMERO 10 3
|
||||
BEGIN
|
||||
KEY "Int. SI"
|
||||
PROMPT 76 1 ""
|
||||
FIELD 90->INTSI
|
||||
END
|
||||
|
||||
NUMERO 11 3
|
||||
BEGIN
|
||||
KEY "Int. AF"
|
||||
PROMPT 76 2 ""
|
||||
FIELD 90->INTAF
|
||||
END
|
||||
|
||||
STRINGA 12 3
|
||||
BEGIN
|
||||
KEY "Gruppo AB0"
|
||||
PROMPT 80 1 ""
|
||||
FIELD 90->GRUPPOAB0
|
||||
END
|
||||
|
||||
STRINGA 13 3
|
||||
BEGIN
|
||||
KEY "Rh/AntiD"
|
||||
PROMPT 80 2 ""
|
||||
FIELD 90->RHANTID
|
||||
END
|
||||
|
||||
STRINGA 14 14
|
||||
BEGIN
|
||||
KEY "Telefono abitazione"
|
||||
PROMPT 85 1 ""
|
||||
FIELD 90->TELABI
|
||||
END
|
||||
|
||||
STRINGA 15 14
|
||||
BEGIN
|
||||
KEY "Telefono lavoro"
|
||||
PROMPT 85 2 ""
|
||||
FIELD 90->TELLAV
|
||||
END
|
||||
|
||||
STRINGA 16 14
|
||||
BEGIN
|
||||
KEY "Telefono altro"
|
||||
PROMPT 100 1 ""
|
||||
FIELD 90->TELALT
|
||||
END
|
||||
|
||||
DATA 17
|
||||
BEGIN
|
||||
KEY "Data prosssima SI"
|
||||
PROMPT 115 1 ""
|
||||
FIELD 90->DATAPROSSI
|
||||
END
|
||||
|
||||
END // END SECTION BODY
|
||||
|
||||
SECTION FOOTER ODD 3
|
||||
|
||||
STRINGA 1 10
|
||||
BEGIN
|
||||
KEY "Niente"
|
||||
PROMPT 1 1 "---"
|
||||
END
|
||||
|
||||
END // END SECTION FOOTER
|
||||
|
||||
END // END FORM
|
||||
Loading…
x
Reference in New Issue
Block a user