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:
parent
6bc8a90848
commit
a4b08ded75
@ -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
547
at/at_pagpr.frm
Executable 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
175
at/atcarto1.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 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
224
at/atconvoc.frm
Executable 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
354
at/atddonaz.frm
Executable 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
111
at/ate10x36.frm
Executable 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
97
at/ate70x37.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 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
97
at/ate90x24.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 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
111
at/ateticbz.frm
Executable 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
233
at/attesser.frm
Executable 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
|
Loading…
x
Reference in New Issue
Block a user