Aggiornamento dei form all versione del 06/02/98

git-svn-id: svn://10.65.10.50/trunk@6138 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-02-06 10:33:38 +00:00
parent 6bc8a90848
commit a4b08ded75
10 changed files with 1950 additions and 1 deletions

View File

@ -35,7 +35,7 @@ BEGIN
GRID ""
END
SECTION BODY ODD 30
SECTION BODY ODD 60
STRINGA 1 50
BEGIN

547
at/at_pagpr.frm Executable file
View File

@ -0,0 +1,547 @@
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 "Courier New"
SIZE 12
GRID ""
END
SECTION BODY ODD 26
STRINGA 1 50
BEGIN
KEY "Intestazione della scheda + data del giorno"
PROMPT 1 1 "SCHEDA ANAGRAFICA SOGGETTO stampata il "
MESSAGE _TODAY
END
STRINGA 2 35
BEGIN
KEY "Denominazione sezione"
PROMPT 1 2 "Sezione "
FIELD 96->DENSEZ
END
STRINGA 3 35
BEGIN
KEY "Denominazione sottogruppo"
PROMPT 40 2 "Sottog. "
FIELD 96->DENSOT
END
STRINGA 4 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,6|COPY,6
FIELD 90->COGNOME
END
STRINGA 5 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,6
FIELD 90->NOME
END
STRINGA 6 51 1
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 7 30 1
BEGIN
KEY "Indirizzo"
PROMPT 1 6 ""
FIELD 90->DOM_INDIR
END
STRINGA 8 4
BEGIN
KEY "Codice localita'"
PROMPT 0 0 ""
FLAGS "H"
FIELD 90->DOM_CODLOC
END
STRINGA 9 5
BEGIN
KEY "CAP"
PROMPT 1 7 ""
FIELD 100@->S6
FIELD 501@->CAPCOM
END
STRINGA 10 30
BEGIN
KEY "Denominazione localita' o comune"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,12|COPY,12
FIELD 100@->S0
FIELD 501@->DENCOM
END
STRINGA 11 5
BEGIN
KEY "Provincia"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,12
FIELD 501@->PROVCOM
END
STRINGA 12 44 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 7 ""
END
STRINGA 12 50
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,14|COPY,14
FIELD 500@->DENCOM
END
STRINGA 13 5
BEGIN
KEY "Provincia di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,14
FIELD 500@->PROVCOM
END
STRINGA 14 55
BEGIN
KEY "Comune e provincia di nascita"
PROMPT 1 9 "Nato a "
END
DATA 15 18
BEGIN
KEY "Data nascita"
PROMPT 55 4 "Nato il "
FIELD 90->DATANASC
FORMAT "1444-"
END
LISTA 16
BEGIN
KEY "Sesso"
PROMPT 55 6 "Sesso "
FIELD 90->SESSO
ITEM "0|Sesso ?"
ITEM "1|Maschio"
ITEM "2|Femmina"
ITEM "9|Sesso ?"
END
STRINGA 17 25
BEGIN
KEY "Telefono abitazione"
PROMPT 55 7 "Tel.abi. "
FIELD 90->TELABI
END
STRINGA 18 25
BEGIN
KEY "Telefono lavoro"
PROMPT 55 8 "Tel.lav. "
FIELD 90->TELLAV
END
STRINGA 19 25
BEGIN
KEY "Telefono altri"
PROMPT 55 9 "Altro "
FIELD 90->TELALT
END
NUMERO 20 20
BEGIN
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
END
STRINGA 21 20
BEGIN
KEY "Cartella clinica"
PROMPT 1 12 "Cart.clin. "
FIELD 90->CODCL
END
STRINGA 22 20
BEGIN
KEY "Tessera AVIS"
PROMPT 1 13 "Tessera "
FIELD 90->TESSAVIS
END
STRINGA 23 31
BEGIN
KEY "Documento identita'"
PROMPT 1 14 "Doc.ident. "
FIELD 90->DOCID
END
STRINGA 24 25
BEGIN
KEY "Codice fiscale"
PROMPT 1 15 "Cod. fisc. "
FIELD 90->CF
END
STRINGA 25 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 35 11 "Gruppo "
FIELD 90->GRUPPOAB0
END
STRINGA 26 15
BEGIN
KEY "Rh/AntiD"
PROMPT 35 12 "Rh/AntiD "
FIELD 90->RHANTID
END
STRINGA 27 15
BEGIN
KEY "Fenotipo Rh"
PROMPT 35 13 "Fenotipo "
FIELD 90->FENOTIPORH
END
STRINGA 28 15
BEGIN
KEY "Kell"
PROMPT 35 14 "Kell "
FIELD 90->KELL
END
STRINGA 29 15
BEGIN
KEY "Du"
PROMPT 35 15 "Du "
FIELD 90->DU
END
STRINGA 30 25
BEGIN
KEY "Stato "
PROMPT 55 11 "Stato att. "
FIELD 200@->S0[1,15]
END
DATA 31 25
BEGIN
KEY "Data stato"
PROMPT 55 12 "Data stato "
FIELD 90->DATASTATO
END
DATA 31 25
BEGIN
KEY "Data fine sospensione"
PROMPT 55 13 "Data fine "
FIELD 90->DATA_PROS
END
DATA 32 25
BEGIN
KEY "Data iscrizione"
PROMPT 55 14 "Data iscr. "
FIELD 90->DATAISC
END
DATA 33 25
BEGIN
KEY "Data ult. agg. "
PROMPT 55 15 "Ultimo agg. "
FIELD 90->DATAULTAGG
END
STRINGA 34 25
BEGIN
KEY "Cognome medico"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,36|COPY,36
FIELD 97->COGNOME
END
STRINGA 35 25
BEGIN
KEY "Nome medico"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,36
FIELD 97->NOME
END
STRINGA 36 51 1
BEGIN
KEY "Cognome e nome medico"
PROMPT 1 17 "Medico "
END
STRINGA 37 25
BEGIN
KEY "Telefono ambulatorio"
PROMPT 1 18 "Tel.amb. "
FIELD 97->TELAMB
END
STRINGA 38 25
BEGIN
KEY "Numero libretto sanitario"
PROMPT 1 19 "Tess.SSN "
END
NUMERO 39 15
BEGIN
KEY "Numero cartolina"
PROMPT 55 17 "Num. convoc. "
FIELD 90->NUMCONV
END
DATA 40 25
BEGIN
KEY "Data ultima cartolina "
PROMPT 55 18 "Data ultima "
FIELD 90->DATACONV
END
DATA 41 25
BEGIN
KEY "Data ultima donazione"
PROMPT 1 21 "Ultima don. "
FIELD 90->DATAULTDON
END
STRINGA 42 2
BEGIN
KEY "Tipo ultima donazione"
PROMPT 24 21 ""
FIELD 90->TIPOULTDON
END
NUMERO 43 15
BEGIN
KEY "Totale donazioni"
PROMPT 1 22 "Totale don. "
FIELD 90->TOTDON
END
STRINGA 44 15
BEGIN
KEY "Idoneita' 1"
PROMPT 35 21 "Idoneita' "
FIELD 90->IDON1
END
STRINGA 45 2
BEGIN
KEY "Idoneita' 2"
PROMPT 48 21 ""
FIELD 90->IDON2
END
STRINGA 46 2
BEGIN
KEY "Idoneita' 3"
PROMPT 51 21 ""
FIELD 90->IDON3
END
STRINGA 47 2
BEGIN
KEY "Idoneita' 4"
PROMPT 54 21 ""
FIELD 90->IDON4
END
NUMERO 48 15
BEGIN
KEY "Intervallo SI"
PROMPT 35 22 "Interv. SI "
FIELD 90->INTSI
END
NUMERO 49 15
BEGIN
KEY "Intervallo AF"
PROMPT 35 23 "Interv. AF "
FIELD 90->INTAF
END
DATA 49
BEGIN
KEY "Data prossima SI"
PROMPT 1 23 "Prossima SI "
FIELD 90->DATAPROSSI
END
DATA 49
BEGIN
KEY "Data prossima AF"
PROMPT 1 24 "Prossima AF "
FIELD 90->DATAPROSAF
END
STRINGA 50 12
BEGIN
KEY "Testo"
PROMPT 55 19 "Mod.convoc. "
END
LISTA 51 12
BEGIN
KEY "Modalita' di convocazione"
PROMPT 67 19 ""
FIELD 90->MODCONV
ITEM " | "
ITEM "PO|Postale"
ITEM "T1|Tel. abitaz."
ITEM "T2|Tel. lavoro"
ITEM "T3|Tel. altro"
ITEM "TE|Telefonica"
ITEM "IN|Indifferente"
END
STRINGA 52 19
BEGIN
KEY "Codice punto di racolta"
PROMPT 0 0 ""
FLAGS "H"
FIELD 90->PUNTORACC
END
STRINGA 53 25
BEGIN
KEY "Descrizione punto di raccolta"
PROMPT 55 20 "Punto prel. "
FIELD 400@->S0
END
STRINGA 54 25
BEGIN
KEY "Testo"
PROMPT 55 21 "Giorni pr.: L M M G V S D"
END
STRINGA 55 2
BEGIN
KEY "Lu"
PROMPT 67 22 ""
FIELD 90->GIOPREDON[1,1]
END
STRINGA 56 2
BEGIN
KEY "Ma"
PROMPT 69 22 ""
FIELD 90->GIOPREDON[2,2]
END
STRINGA 57 2
BEGIN
KEY "Me"
PROMPT 71 22 ""
FIELD 90->GIOPREDON[3,3]
END
STRINGA 58 2
BEGIN
KEY "Gi"
PROMPT 73 22 ""
FIELD 90->GIOPREDON[4,4]
END
STRINGA 59 2
BEGIN
KEY "Ve"
PROMPT 75 22 ""
FIELD 90->GIOPREDON[5,5]
END
STRINGA 60 2
BEGIN
KEY "Sa"
PROMPT 77 22 ""
FIELD 90->GIOPREDON[6,6]
END
STRINGA 61 2
BEGIN
KEY "Do"
PROMPT 79 22 ""
FIELD 90->GIOPREDON[7,7]
END
STRINGA 62 25
BEGIN
KEY "Testo"
PROMPT 35 24 "B E N E M E R E N Z E"
END
SECTION BENEMERENZE 25 1 1 FILE 94
STRINGA 1 25
BEGIN
KEY "Benemerenza "
PROMPT 35 1 ""
FIELD 600@->S0[1,25]
END
DATA 2 10
BEGIN
KEY "Data attribuzione"
PROMPT 62 1 ""
FIELD 94->DATABEN
END
END // FINE SECTION BENEMERENZE
END // FINE SECTION BODY
END // END FORM

175
at/atcarto1.frm Executable file
View 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 32 13 ""
END
STRINGA 4 20 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 32 15 ""
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 32 17 ""
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 38 17 ""
END
STRINGA 10 25
BEGIN
KEY "Invito per"
PROMPT 3 9 ""
END
STRINGA 11 25
BEGIN
KEY "Data convocazione"
PROMPT 3 12 ""
END
STRINGA 12 25
BEGIN
KEY "Presso: riga 1"
PROMPT 3 14 ""
END
STRINGA 13 25
BEGIN
KEY "Presso: riga 2"
PROMPT 3 15 ""
END
STRINGA 14 25
BEGIN
KEY "Presso: riga 3"
PROMPT 3 16 ""
END
STRINGA 15 25
BEGIN
KEY "Presso: riga 4"
PROMPT 3 17 ""
END
STRINGA 16 14
BEGIN
KEY "Orario"
PROMPT 14 19 ""
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

224
at/atconvoc.frm Executable file
View File

@ -0,0 +1,224 @@
USE 115
JOIN 116 INTO NUMERO==NUMERO
JOIN 90 TO 116 INTO CODICE==CODICE
END
DESCRIPTION
BEGIN
115->* "Convocazioni AVIS"
116->* "Righe di convocazione AVIS"
90->* "Soggetti sezioni AVIS"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
GRID ""
END
SECTION BODY ODD
SECTION CONVOCAZIONE 1 1 9 FLAG "N"
STRINGA 1 70
BEGIN
KEY "Testo"
PROMPT 1 1 "STAMPA DI CONTROLLO CONVOCAZIONE stampata il "
MESSAGE _TODAY
END
DATA 2
BEGIN
KEY "Data convocazione"
PROMPT 1 3 "Data convocazione "
FIELD DATA
END
STRINGA 3 25
BEGIN
KEY "Punto"
PROMPT 40 3 "Punto di prelievo "
FIELD PUNTO
END
STRINGA 4 25
BEGIN
KEY "Tipo"
PROMPT 1 4 "Tipo donazione "
FIELD TIPO
END
STRINGA 5 25
BEGIN
KEY "Sezione"
PROMPT 40 4 "Sezione/Sottog. "
FIELD CODSEZ
END
STRINGA 6 2
BEGIN
KEY "Sottog"
PROMPT 61 4 ""
FIELD CODSOT
END
DATA 7
BEGIN
KEY "Data iniziale"
PROMPT 1 5 "Data inizio conv. "
FIELD DATAINI
END
NUMERO 8 25
BEGIN
KEY "Numero convocati"
PROMPT 1 6 "Num. convocati "
FIELD NUMCONV
END
NUMERO 9 25
BEGIN
KEY "Numero sollecitati"
PROMPT 25 6 "Num. sollecitati "
FIELD NUMSOLL
END
NUMERO 10 25
BEGIN
KEY "Numero ritardatari"
PROMPT 50 6 "Num. ritardatari "
FIELD NUMRIT
END
STRINGA 11 70 2
BEGIN
KEY "Note"
PROMPT 1 7 "Note "
FIELD NOTE
END
STRINGA 12 20
BEGIN
KEY "Intestazione"
PROMPT 1 9 "Cognome e nome"
END
STRINGA 13 20
BEGIN
KEY "Intestazione"
PROMPT 32 9 "C."
END
STRINGA 14 20
BEGIN
KEY "Intestazione"
PROMPT 35 9 "Se/So"
END
STRINGA 15 20
BEGIN
KEY "Intestazione"
PROMPT 41 9 "Tessera"
END
STRINGA 17 20
BEGIN
KEY "Intestazione"
PROMPT 49 9 "Ult. don."
END
STRINGA 18 20
BEGIN
KEY "Intestazione"
PROMPT 60 9 "Data conv."
END
STRINGA 19 20
BEGIN
KEY "Intestazione"
PROMPT 71 9 "Tipo"
END
END
SECTION CONVOCATI 1 1 1 FILE 116
STRINGA 1 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
FIELD 90->COGNOME
END
STRINGA 2 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
FIELD 90->NOME
END
STRINGA 3 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 2
BEGIN
KEY "Categoria"
PROMPT 32 1 ""
FIELD 90->CATDON
END
STRINGA 5 2
BEGIN
KEY "Sezione"
PROMPT 35 1 ""
FIELD 90->CODSEZ
END
STRINGA 6 2
BEGIN
KEY "Sottog."
PROMPT 38 1 ""
FIELD 90->CODSOT
END
STRINGA 7 6
BEGIN
KEY "Tessera"
PROMPT 41 1 ""
FIELD 90->TESSAVIS
END
DATA 8
BEGIN
KEY "Data ultima donazione"
PROMPT 49 1 ""
FIELD 90->DATAULTDON
END
DATA 9
BEGIN
KEY "Data convocazione"
PROMPT 60 1 ""
FIELD 116->DATACONV
END
STRINGA 10 1
BEGIN
KEY "Tipo convocazione"
PROMPT 71 1 ""
FIELD 116->CHIAMATA
END
END
END
END

354
at/atddonaz.frm Executable file
View File

@ -0,0 +1,354 @@
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 92 INTO CODICE==CODICE
JOIN LDN TO 92 ALIAS 401 INTO CODTAB==LUOGODON
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
100@->* "Localita' postali"
200@->* "TCS"
300@->* "GAZ"
400@->* "LDN preferito"
401@->* "LDN per donazione"
500@->* "Comune di nascita"
501@->* "Comuni di domicilio"
600@->* "Tabella benemerenze"
96->* "Sezioni AVIS"
97->* "Medici"
92->* "Donazioni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
GRID ""
END
SECTION BODY ODD
SECTION INIZIO 1 1 17 FLAG "N"
STRINGA 1 50
BEGIN
KEY "Intestazione della scheda + data del giorno"
PROMPT 1 1 "DETTAGLIO DONAZIONI PER SOGGETTO stampato il "
MESSAGE _TODAY
END
STRINGA 1 35
BEGIN
KEY "Denominazione sezione"
PROMPT 1 2 "Sezione "
FIELD 96->DENSEZ
END
STRINGA 3 35
BEGIN
KEY "Denominazione sottogruppo"
PROMPT 40 2 "Sottog. "
FIELD 96->DENSOT
END
STRINGA 4 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,6|COPY,6
FIELD 90->COGNOME
END
STRINGA 5 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,6
FIELD 90->NOME
END
STRINGA 6 51 1
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 7 30 1
BEGIN
KEY "Indirizzo"
PROMPT 1 6 ""
FIELD 90->DOM_INDIR
END
STRINGA 8 4
BEGIN
KEY "Codice localita'"
PROMPT 0 0 ""
FLAGS "H"
FIELD 90->DOM_CODLOC
END
STRINGA 9 5
BEGIN
KEY "CAP"
PROMPT 1 7 ""
FIELD 100@->S6
FIELD 501@->CAPCOM
END
STRINGA 10 30
BEGIN
KEY "Denominazione localita' o comune"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,12|COPY,12
FIELD 100@->S0
FIELD 501@->DENCOM
END
STRINGA 11 5
BEGIN
KEY "Provincia"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,12
FIELD 501@->PROVCOM
END
STRINGA 12 44 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 7 ""
END
STRINGA 12 50
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,14|COPY,14
FIELD 500@->DENCOM
END
STRINGA 13 5
BEGIN
KEY "Provincia di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,14
FIELD 500@->PROVCOM
END
STRINGA 14 55
BEGIN
KEY "Comune e provincia di nascita"
PROMPT 1 9 "Nato a "
END
DATA 15 18
BEGIN
KEY "Data nascita"
PROMPT 55 4 "Nato il "
FIELD 90->DATANASC
FORMAT "1444-"
END
LISTA 16
BEGIN
KEY "Sesso"
PROMPT 55 6 "Sesso "
FIELD 90->SESSO
ITEM "0|Sesso ?"
ITEM "1|Maschio"
ITEM "2|Femmina"
ITEM "9|Sesso ?"
END
STRINGA 17 25
BEGIN
KEY "Telefono abitazione"
PROMPT 55 7 "Tel.abi. "
FIELD 90->TELABI
END
STRINGA 18 25
BEGIN
KEY "Telefono lavoro"
PROMPT 55 8 "Tel.lav. "
FIELD 90->TELLAV
END
STRINGA 19 25
BEGIN
KEY "Telefono altri"
PROMPT 55 9 "Altro "
FIELD 90->TELALT
END
NUMERO 20 20
BEGIN
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
END
STRINGA 22 20
BEGIN
KEY "Tessera AVIS"
PROMPT 1 12 "Tessera "
FIELD 90->TESSAVIS
END
STRINGA 23 30
BEGIN
KEY "Categoria"
PROMPT 1 13 "Categoria "
FIELD 700@->S0
END
STRINGA 25 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 35 11 "Gruppo "
FIELD 90->GRUPPOAB0
END
STRINGA 26 15
BEGIN
KEY "Rh/AntiD"
PROMPT 35 12 "Rh/AntiD "
FIELD 90->RHANTID
END
STRINGA 27 15
BEGIN
KEY "Fenotipo Rh"
PROMPT 35 13 "Fenotipo "
FIELD 90->FENOTIPORH
END
STRINGA 28 15
BEGIN
KEY "Kell"
PROMPT 35 14 "Kell "
FIELD 90->KELL
END
STRINGA 29 15
BEGIN
KEY "Du"
PROMPT 35 15 "Du "
FIELD 90->DU
END
STRINGA 30 25
BEGIN
KEY "Stato "
PROMPT 55 11 "Stato att. "
FIELD 200@->S0[1,15]
END
DATA 31 25
BEGIN
KEY "Data stato"
PROMPT 55 12 "Data stato "
FIELD 90->DATASTATO
END
DATA 31 25
BEGIN
KEY "Data fine sospensione"
PROMPT 55 13 "Data fine "
FIELD 90->DATA_PROS
END
DATA 32 25
BEGIN
KEY "Data iscrizione"
PROMPT 55 14 "Data iscr. "
FIELD 90->DATAISC
END
DATA 33 25
BEGIN
KEY "Data ult. agg. "
PROMPT 55 15 "Ultimo agg. "
FIELD 90->DATAULTAGG
END
DATA 41 25
BEGIN
KEY "Data ultima donazione"
PROMPT 1 14 "Ultima don. "
FIELD 90->DATAULTDON
END
STRINGA 42 2
BEGIN
KEY "Tipo ultima donazione"
PROMPT 24 14 ""
FIELD 90->TIPOULTDON
END
NUMERO 43 15
BEGIN
KEY "Totale donazioni"
PROMPT 1 15 "Totale don. "
FIELD 90->TOTDON
END
STRINGA 44 25
BEGIN
KEY "TEsto"
PROMPT 1 17 "DETTAGLIO DONAZIONI"
END
STRINGA 45 50
BEGIN
KEY "Testo"
PROMPT 1 17 "Data Tipo Punto di Prelievo"
END
END // SECTION INIZIO
SECTION DONAZIONI 1 1 1 FILE 92
DATA 1
BEGIN
KEY "Data donazione "
PROMPT 1 1 ""
FIELD 92->DATADON
END
STRINGA 2 10
BEGIN
KEY "Tipo donazione"
PROMPT 13 1 ""
FIELD 92->TIPODON
END
STRINGA 3 25
BEGIN
KEY "Punto di prelievo"
PROMPT 18 1 ""
FIELD 401@->S0
END
END // FINE SECTION DONAZIONI
END // FINE SECTION BODY
END // END FORM

111
at/ate10x36.frm Executable file
View File

@ -0,0 +1,111 @@
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
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 7 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 7 "/"
END
END
END

97
at/ate70x37.frm Executable file
View 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 25 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 25 2
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 19 3
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

97
at/ate90x24.frm Executable file
View 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 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 33 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 33 2
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 4 ""
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 4 ""
END
END
END

111
at/ateticbz.frm Executable file
View File

@ -0,0 +1,111 @@
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
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 4 ""
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 50
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
STRINGA 10 4
BEGIN
KEY "Gruppo aziendale"
PROMPT 40 1 ""
FIELD 90->GRUPPOAZIE
END
NUMERO 11 8
BEGIN
KEY "Codice"
PROMPT 45 1 ""
FIELD 90->CODICE
END
END
END

233
at/attesser.frm Executable file
View File

@ -0,0 +1,233 @@
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 16 3 ""
END
STRINGA 2 20
BEGIN
KEY "Intestazione 2"
FIELD 96->INTESTAZ2
PROMPT 16 4 ""
END
STRINGA 3 20
BEGIN
KEY "Intestazione 3"
FIELD 96->INTESTAZ3
PROMPT 16 5 ""
END
STRINGA 4 20
BEGIN
KEY "Intestazione 4"
FIELD 96->INTESTAZ4
PROMPT 16 6 ""
END
NUMERO 5 8
BEGIN
KEY "Codice soggetto"
FIELD 90->CODICE
PROMPT 20 8 "Codice "
END
STRINGA 6 6
BEGIN
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 22 12 ""
END
DATA 7
BEGIN
KEY "Data rilascio "
MESSAGE _TODAY
PROMPT 25 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 4 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 6 18 ""
END
DATA 13
BEGIN
KEY "Data di nascita"
FIELD 90->DATANASC
PROMPT 27 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 7 20 ""
END
STRINGA 18 11 2
BEGIN
KEY "Telefono abitazione"
FIELD 90->TELABI
PROMPT 27 20 ""
END
STRINGA 19 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 22 ""
END
STRINGA 20 16
BEGIN
KEY "Codice fiscale"
FIELD 90->CF
PROMPT 6 24 ""
END
STRINGA 21 3
BEGIN
KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0
PROMPT 3 28 ""
END
STRINGA 22 3
BEGIN
KEY "RhAntiD"
FIELD 90->RHANTID
PROMPT 10 28 ""
END
STRINGA 23 6
BEGIN
KEY "FenotipoRh"
FIELD 90->FENOTIPORH
PROMPT 17 28 ""
END
STRINGA 24 3
BEGIN
KEY "Kell"
FIELD 90->KELL
PROMPT 28 28 ""
END
STRINGA 25 3
BEGIN
KEY "Du"
FIELD 90->DU
PROMPT 34 28 ""
END
STRINGA 26 20
BEGIN
KEY "Documento di riconoscimento"
FIELD 90->DOCID
PROMPT 3 32 ""
END
DATA 27 30
BEGIN
KEY "Data ultima donazione"
FIELD 90->DATAULTDON
PROMPT 2 42 "Donazioni fino al "
END
NUMERO 28 3
BEGIN
KEY "Totale donazioni"
FIELD 90->TOTDON
PROMPT 31 42 "n. "
END
END
END