root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : at 1.7

Browse Source 
Files correlati     : un casino
Ricompilazione Demo : [ ]
Commento            : allineato versione


git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2005-10-12 15:31:36 +00:00
parent d901a81c55
commit f2185ee347
67 changed files with 6646 additions and 3296 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
at/at2800.cpp
View File

@ -50,7 +50,7 @@ class TStampaNonDon : public TPrintapp
ts _tipostampa; ts _tipostampa;
TString16 _codsez, _codsot; TString16 _codsez, _codsot;
int _etlarghezza, _etcolonne; int _etlarghezza, _etcolonne;
bool _stampa80; bool _stampa80, _solotot;
protected: protected:
virtual bool user_create(); virtual bool user_create();
@ -127,6 +127,10 @@ void TStampaNonDon::set_page(int file, int cnt)
} }
break; break;
case elenco: case elenco:
{
if (_solotot)
set_row(1,"");
else
{ {
if (_stampa80) if (_stampa80)
{ {
@ -181,6 +185,7 @@ void TStampaNonDon::set_page(int file, int cnt)
set_row(5,""); set_row(5,"");
} }
} }
}
break; break;
} }
} }
@ -311,6 +316,13 @@ bool TStampaNonDon::preprocess_page(int file, int counter)
printer().formfeed(); printer().formfeed();
_contatore++; _contatore++;
_totale++; _totale++;
if (_solotot)
{
if (_contatore == 1)
return TRUE;
else
return FALSE;
}
return TRUE; return TRUE;
} }
@ -352,6 +364,7 @@ bool TStampaNonDon::set_print(int m)
_data = _msk->get(F_DATA); _data = _msk->get(F_DATA);
_data2 = _msk->get(F_DATA2); _data2 = _msk->get(F_DATA2);
bool sospesi = _msk->get_bool(F_SOSPESI); bool sospesi = _msk->get_bool(F_SOSPESI);
_solotot = _msk->get_bool(F_SOLOTOT);
if (sospesi) if (sospesi)
current_cursor()->setfilter(""); current_cursor()->setfilter("");
else else
@ -410,6 +423,8 @@ void TStampaNonDon::crea_intestazione()
else else
set_header(2, "@110g%s", (const char*) sep); set_header(2, "@110g%s", (const char*) sep);
set_header(3, ""); set_header(3, "");
if (!_solotot)
{
if (_stampa80) if (_stampa80)
{ {
set_header(4,"@0gCodice@9gCognome e nome@44gTelefono abit.@60gUltima donaz.@74gN.don."); set_header(4,"@0gCodice@9gCognome e nome@44gTelefono abit.@60gUltima donaz.@74gN.don.");
@ -432,6 +447,7 @@ void TStampaNonDon::crea_intestazione()
} }
} }
} }
}
bool TStampaNonDon::user_create() bool TStampaNonDon::user_create()
{ {

1
at/at2800a.h
View File

@ -26,6 +26,7 @@
#define F_DATA 301 #define F_DATA 301
#define F_DATA2 302 #define F_DATA2 302
#define F_SOSPESI 303 #define F_SOSPESI 303
#define F_SOLOTOT 304
#define F_ELENCO 401 #define F_ELENCO 401
#define F_ETICHETTE 402 #define F_ETICHETTE 402

7
at/at2800a.uml
View File

@ -264,7 +264,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 4 GROUPBOX DLG_NULL 77 5
BEGIN BEGIN
PROMPT 1 10 "Opzioni di elaborazione" PROMPT 1 10 "Opzioni di elaborazione"
END END
@ -286,5 +286,10 @@ BEGIN
PROMPT 2 12 "Anche sospesi" PROMPT 2 12 "Anche sospesi"
END END
BOOLEAN F_SOLOTOT
BEGIN
PROMPT 2 13 "Stampa solo totale donatori per sezione"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

27
at/at_etcar.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 24 SECTION BODY ODD 24
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 32 13 "" PROMPT 32 13 ""
END END
STRINGA 4 33 2 STRINGA 4 33 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 32 15 "" PROMPT 32 15 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 32 17 "" PROMPT 32 17 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,91 +74,75 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 27 2 STRINGA 9 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 38 17 "" PROMPT 38 17 ""
END END
STRINGA 10 25 STRINGA 10 25
BEGIN BEGIN
KEY "Invito per" KEY "Invito per"
PROMPT 3 9 "" PROMPT 3 9 ""
END END
STRINGA 11 25 STRINGA 11 25
BEGIN BEGIN
KEY "Data convocazione" KEY "Data convocazione"
PROMPT 3 12 "" PROMPT 3 12 ""
END END
STRINGA 12 25 STRINGA 12 25
BEGIN BEGIN
KEY "Presso: riga 1" KEY "Presso: riga 1"
PROMPT 3 14 "" PROMPT 3 14 ""
END END
STRINGA 13 25 STRINGA 13 25
BEGIN BEGIN
KEY "Presso: riga 2" KEY "Presso: riga 2"
PROMPT 3 15 "" PROMPT 3 15 ""
END END
STRINGA 14 25 STRINGA 14 25
BEGIN BEGIN
KEY "Presso: riga 3" KEY "Presso: riga 3"
PROMPT 3 16 "" PROMPT 3 16 ""
END END
STRINGA 15 25 STRINGA 15 25
BEGIN BEGIN
KEY "Presso: riga 4" KEY "Presso: riga 4"
PROMPT 3 17 "" PROMPT 3 17 ""
END END
STRINGA 16 14 STRINGA 16 14
BEGIN BEGIN
KEY "Orario" KEY "Orario"
PROMPT 14 19 "" PROMPT 14 19 ""
END END
STRINGA 17 10 STRINGA 17 10
BEGIN BEGIN
KEY "Data cartolina" KEY "Data cartolina"
PROMPT 18 21 "" PROMPT 18 21 ""
END END
STRINGA 18 25 STRINGA 18 25
BEGIN BEGIN
KEY "Note" KEY "Note"
PROMPT 3 23 "" PROMPT 3 23 ""
END END
STRINGA 19 20 STRINGA 19 20
BEGIN BEGIN
KEY "Intestazione 1" KEY "Intestazione 1"
PROMPT 15 4 "" PROMPT 15 4 ""
END END
STRINGA 20 20 STRINGA 20 20
BEGIN BEGIN
KEY "Intestazione 2" KEY "Intestazione 2"
PROMPT 15 5 "" PROMPT 15 5 ""
END END
STRINGA 21 20 STRINGA 21 20
BEGIN BEGIN
KEY "Intestazione 3" KEY "Intestazione 3"
PROMPT 15 6 "" PROMPT 15 6 ""
END END
STRINGA 22 20 STRINGA 22 20
BEGIN BEGIN
KEY "Intestazione 4" KEY "Intestazione 4"
PROMPT 15 7 "" PROMPT 15 7 ""
END END
END END
END END

16
at/at_etmed.frm
View File

@ -1,7 +1,6 @@
USE 97 USE 97
JOIN 13 INTO COM==COM JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA JOIN LCP INTO CODTAB==LOCALITA
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
LCP->* "Località postali" LCP->* "Località postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 33 2 STRINGA 4 33 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
PROMPT 1 3 "" PROMPT 1 3 ""
FIELD 97->INDIRIZZO FIELD 97->INDIRIZZO
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -60,7 +52,6 @@ BEGIN
MESSAGE ENABLE,1@|DISABLE,2@ MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@ MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP loc." KEY "CAP loc."
@ -68,7 +59,6 @@ BEGIN
FIELD LCP->S6 FIELD LCP->S6
GROUP 1 GROUP 1
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Localita'" KEY "Localita'"
@ -78,7 +68,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,11|COPY,11 MESSAGE RESET,11|COPY,11
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -86,7 +75,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
GROUP 2 GROUP 2
END END
STRINGA 9 50 STRINGA 9 50
BEGIN BEGIN
KEY "Comune" KEY "Comune"
@ -96,7 +84,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,11|COPY,11 MESSAGE RESET,11|COPY,11
END END
STRINGA 10 5 STRINGA 10 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -105,13 +92,10 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,11 MESSAGE APPEND,11
END END
STRINGA 11 27 2 STRINGA 11 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
END END
END END

20
at/at_etsez.frm
View File

@ -18,19 +18,19 @@ BEGIN
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 17
STRINGA 1 33 2 STRINGA 1 45 2
BEGIN BEGIN
KEY "Denominazione" KEY "Denominazione"
PROMPT 1 2 "" PROMPT 1 6 ""
FIELD 96->DENOMINAZ FIELD 96->DENOMINAZ
END END
STRINGA 2 33 2 STRINGA 2 45 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
PROMPT 1 4 "" PROMPT 1 10 ""
FIELD 96->INDIRIZZO FIELD 96->INDIRIZZO
END END
@ -65,7 +65,7 @@ END
STRINGA 7 5 STRINGA 7 5
BEGIN BEGIN
KEY "CAP loc." KEY "CAP loc."
PROMPT 1 6 "" PROMPT 1 14 ""
FIELD LCP->S6 FIELD LCP->S6
GROUP 1 GROUP 1
END END
@ -83,7 +83,7 @@ END
STRINGA 9 5 STRINGA 9 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 1 6 "" PROMPT 1 14 ""
FIELD 13->CAPCOM FIELD 13->CAPCOM
GROUP 2 GROUP 2
END END
@ -107,16 +107,16 @@ BEGIN
MESSAGE APPEND,12 MESSAGE APPEND,12
END END
STRINGA 12 27 2 STRINGA 12 38 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 6 "" PROMPT 7 14 ""
END END
STRINGA 13 15 STRINGA 13 15
BEGIN BEGIN
KEY "Spett.le" KEY "Spett.le"
PROMPT 1 1 "Spett.le AVIS " PROMPT 1 4 "Spett.le AVIS "
END END
END END

14
at/at_etsog.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 33 2 STRINGA 4 33 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 1 5 "" PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,13 +74,10 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 27 2 STRINGA 9 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
END END
END END

112
at/at_pag02.frm
View File

@ -11,9 +11,7 @@ JOIN 13 ALIAS 510 INTO COM==DOM_CODCOM
JOIN 13 ALIAS 520 INTO COM==COMNASC JOIN 13 ALIAS 520 INTO COM==COMNASC
JOIN 96 INTO CODSEZ==CODSEZ JOIN 96 INTO CODSEZ==CODSEZ
JOIN 97 INTO CODMED==CODMED JOIN 97 INTO CODMED==CODMED
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
90->* "Soggetti Sezioni AVIS" 90->* "Soggetti Sezioni AVIS"
@ -26,7 +24,6 @@ BEGIN
96->* "Sezioni AVIS" 96->* "Sezioni AVIS"
97->* "Medici" 97->* "Medici"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -34,37 +31,31 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 33 SECTION BODY ODD 33
NUMERO 1 15 NUMERO 1 15
BEGIN BEGIN
KEY "Codice" KEY "Codice"
FIELD 90->CODICE FIELD 90->CODICE
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
END END
STRINGA 2 33 STRINGA 2 33
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
FIELD 90->COGNOME FIELD 90->COGNOME
PROMPT 17 1 "Cognome " PROMPT 17 1 "Cognome "
END END
STRINGA 3 30 STRINGA 3 30
BEGIN BEGIN
KEY "Nome" KEY "Nome"
FIELD 90->NOME FIELD 90->NOME
PROMPT 52 1 "Nome " PROMPT 52 1 "Nome "
END END
DATA 4 18 DATA 4 18
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
FIELD 90->DATANASC FIELD 90->DATANASC
PROMPT 1 2 "Nato il " PROMPT 1 2 "Nato il "
END END
STRINGA 5 30 STRINGA 5 30
BEGIN BEGIN
KEY "Comune di nascita" KEY "Comune di nascita"
@ -73,7 +64,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,7|COPY,7 MESSAGE RESET,7|COPY,7
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "Provincia di nascita" KEY "Provincia di nascita"
@ -82,19 +72,16 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,7 MESSAGE APPEND,7
END END
STRINGA 7 40 STRINGA 7 40
BEGIN BEGIN
KEY "Comune e provincia di nascita" KEY "Comune e provincia di nascita"
PROMPT 20 2 "Nato a " PROMPT 20 2 "Nato a "
END END
STRINGA 8 6 STRINGA 8 6
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 62 2 "Sesso " PROMPT 62 2 "Sesso "
END END
LISTA 9 LISTA 9
BEGIN BEGIN
KEY "Sesso" KEY "Sesso"
@ -105,104 +92,89 @@ BEGIN
ITEM "2|Femmina" ITEM "2|Femmina"
ITEM "9|Non specif." ITEM "9|Non specif."
END END
STRINGA 10 7 STRINGA 10 7
BEGIN BEGIN
KEY "Codice sezione" KEY "Codice sezione"
FIELD 90->CODSEZ FIELD 90->CODSEZ
PROMPT 1 4 "Sez. " PROMPT 1 4 "Sez. "
END END
STRINGA 11 25 STRINGA 11 25
BEGIN BEGIN
KEY "Denominazione sezione" KEY "Denominazione sezione"
FIELD 96->DENSEZ FIELD 96->DENSEZ
PROMPT 9 4 "" PROMPT 9 4 ""
END END
STRINGA 12 7 STRINGA 12 7
BEGIN BEGIN
KEY "Codice sottog." KEY "Codice sottog."
FIELD 90->CODSOT FIELD 90->CODSOT
PROMPT 41 4 "Sot. " PROMPT 41 4 "Sot. "
END END
STRINGA 13 25 STRINGA 13 25
BEGIN BEGIN
KEY "Denominazione sottog." KEY "Denominazione sottog."
FIELD 96->DENSOT FIELD 96->DENSOT
PROMPT 49 4 "" PROMPT 49 4 ""
END END
STRINGA 14 7 STRINGA 14 7
BEGIN BEGIN
KEY "Categoria don." KEY "Categoria don."
FIELD 90->CATDON FIELD 90->CATDON
PROMPT 1 5 "Cat. " PROMPT 1 5 "Cat. "
END END
STRINGA 15 25 STRINGA 15 25
BEGIN BEGIN
KEY "Descrizione categoria" KEY "Descrizione categoria"
FIELD 100@->S0 FIELD 100@->S0
PROMPT 9 5 "" PROMPT 9 5 ""
END END
DATA 16 21 DATA 16 21
BEGIN BEGIN
KEY "Data iscrizione" KEY "Data iscrizione"
FIELD 90->DATAISC FIELD 90->DATAISC
PROMPT 36 5 "Data iscr. " PROMPT 36 5 "Data iscr. "
END END
DATA 17 20 DATA 17 20
BEGIN BEGIN
KEY "Data dimissione" KEY "Data dimissione"
FIELD 90->DATADIM FIELD 90->DATADIM
PROMPT 59 5 "Data dim. " PROMPT 59 5 "Data dim. "
END END
STRINGA 18 16 STRINGA 18 16
BEGIN BEGIN
KEY "Tessera AVIS" KEY "Tessera AVIS"
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
PROMPT 1 7 "Tess.AVIS " PROMPT 1 7 "Tess.AVIS "
END END
STRINGA 19 13 STRINGA 19 13
BEGIN BEGIN
KEY "Codice Centro Trasfusionale" KEY "Codice Centro Trasfusionale"
FIELD 90->CODCT FIELD 90->CODCT
PROMPT 18 7 "Cod.CT " PROMPT 18 7 "Cod.CT "
END END
STRINGA 20 16 STRINGA 20 16
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
FIELD 90->CODCL FIELD 90->CODCL
PROMPT 33 7 "Car.clin. " PROMPT 33 7 "Car.clin. "
END END
STRINGA 21 28 STRINGA 21 28
BEGIN BEGIN
KEY "Documento di identita'" KEY "Documento di identita'"
FIELD 90->DOCID FIELD 90->DOCID
PROMPT 51 7 "Doc.id. " PROMPT 51 7 "Doc.id. "
END END
STRINGA 22 26 STRINGA 22 26
BEGIN BEGIN
KEY "Codice fiscale" KEY "Codice fiscale"
FIELD 90->CF FIELD 90->CF
PROMPT 1 8 "Cod.fisc. " PROMPT 1 8 "Cod.fisc. "
END END
STRINGA 23 10 STRINGA 23 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 10 "Domicilio:" PROMPT 1 10 "Domicilio:"
END END
STRINGA 24 30 STRINGA 24 30
BEGIN BEGIN
KEY "Domicilio: indirizzo" KEY "Domicilio: indirizzo"
@ -210,7 +182,6 @@ BEGIN
PROMPT 1 11 "" PROMPT 1 11 ""
MESSAGE RESET,30 MESSAGE RESET,30
END END
STRINGA 25 4 STRINGA 25 4
BEGIN BEGIN
KEY "Domicilio: codice localita'" KEY "Domicilio: codice localita'"
@ -218,7 +189,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAG "H" FLAG "H"
END END
STRINGA 26 5 STRINGA 26 5
BEGIN BEGIN
KEY "Domicilio: CAP" KEY "Domicilio: CAP"
@ -228,7 +198,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,30 MESSAGE APPEND,30
END END
STRINGA 27 30 STRINGA 27 30
BEGIN BEGIN
KEY "Domicilio: localita'" KEY "Domicilio: localita'"
@ -237,7 +206,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,30 MESSAGE APPEND,30
END END
STRINGA 28 50 STRINGA 28 50
BEGIN BEGIN
KEY "Domicilio: comune" KEY "Domicilio: comune"
@ -246,7 +214,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,30 MESSAGE APPEND,30
END END
STRINGA 29 5 STRINGA 29 5
BEGIN BEGIN
KEY "Domicilio: provincia" KEY "Domicilio: provincia"
@ -255,19 +222,16 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,30 MESSAGE APPEND,30
END END
STRINGA 30 39 3 STRINGA 30 39 3
BEGIN BEGIN
KEY "Domicilio: Loc/Com/Prov" KEY "Domicilio: Loc/Com/Prov"
PROMPT 1 12 "" PROMPT 1 12 ""
END END
STRINGA 31 10 STRINGA 31 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 41 10 "Residenza:" PROMPT 41 10 "Residenza:"
END END
STRINGA 32 30 STRINGA 32 30
BEGIN BEGIN
KEY "Residenza: indirizzo" KEY "Residenza: indirizzo"
@ -275,7 +239,6 @@ BEGIN
PROMPT 41 11 "" PROMPT 41 11 ""
MESSAGE RESET,38 MESSAGE RESET,38
END END
STRINGA 33 4 STRINGA 33 4
BEGIN BEGIN
KEY "Residenza: codice localita'" KEY "Residenza: codice localita'"
@ -283,7 +246,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAG "H" FLAG "H"
END END
STRINGA 34 5 STRINGA 34 5
BEGIN BEGIN
KEY "Residenza: CAP" KEY "Residenza: CAP"
@ -293,7 +255,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,38 MESSAGE APPEND,38
END END
STRINGA 35 30 STRINGA 35 30
BEGIN BEGIN
KEY "Residenza: localita'" KEY "Residenza: localita'"
@ -302,7 +263,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,38 MESSAGE APPEND,38
END END
STRINGA 36 50 STRINGA 36 50
BEGIN BEGIN
KEY "Residenza: comune" KEY "Residenza: comune"
@ -311,7 +271,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,38 MESSAGE APPEND,38
END END
STRINGA 37 5 STRINGA 37 5
BEGIN BEGIN
KEY "Residenza: provincia" KEY "Residenza: provincia"
@ -320,40 +279,34 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,38 MESSAGE APPEND,38
END END
STRINGA 38 39 3 STRINGA 38 39 3
BEGIN BEGIN
KEY "Residenza: Loc/Com/Prov" KEY "Residenza: Loc/Com/Prov"
PROMPT 41 12 "" PROMPT 41 12 ""
END END
STRINGA 39 23 STRINGA 39 23
BEGIN BEGIN
KEY "Telefono abitazione" KEY "Telefono abitazione"
FIELD 90->TELABI FIELD 90->TELABI
PROMPT 1 15 "Tel.abi. " PROMPT 1 15 "Tel.abi. "
END END
STRINGA 40 23 STRINGA 40 23
BEGIN BEGIN
KEY "Telefono lavoro" KEY "Telefono lavoro"
FIELD 90->TELLAV FIELD 90->TELLAV
PROMPT 25 15 "Tel.lav. " PROMPT 25 15 "Tel.lav. "
END END
STRINGA 41 25 STRINGA 41 25
BEGIN BEGIN
KEY "Telefono altro" KEY "Telefono altro"
FIELD 90->TELALT FIELD 90->TELALT
PROMPT 49 15 "Tel.altro " PROMPT 49 15 "Tel.altro "
END END
STRINGA 42 STRINGA 42
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 16 "Escluso " PROMPT 1 16 "Escluso "
END END
LISTA 43 LISTA 43
BEGIN BEGIN
KEY "Esclusione" KEY "Esclusione"
@ -363,238 +316,203 @@ BEGIN
ITEM "TD|T. determinato" ITEM "TD|T. determinato"
PROMPT 10 16 "Escluso " PROMPT 10 16 "Escluso "
END END
DATA 44 18 DATA 44 18
BEGIN BEGIN
KEY "Data termine esclusione" KEY "Data termine esclusione"
FIELD 90->TERMESCL FIELD 90->TERMESCL
PROMPT 27 16 "Termine " PROMPT 27 16 "Termine "
END END
STRINGA 45 35 STRINGA 45 35
BEGIN BEGIN
KEY "Motivo esclusione" KEY "Motivo esclusione"
FIELD 90->MOTESCL FIELD 90->MOTESCL
PROMPT 46 16 "Per " PROMPT 46 16 "Per "
END END
STRINGA 46 26 STRINGA 46 26
BEGIN BEGIN
KEY "Descrizione stato" KEY "Descrizione stato"
FIELD 200@->S3 FIELD 200@->S3
PROMPT 1 17 "Stato " PROMPT 1 17 "Stato "
END END
DATA 47 15 DATA 47 15
BEGIN BEGIN
KEY "Data stato" KEY "Data stato"
FIELD 90->DATASTATO FIELD 90->DATASTATO
PROMPT 28 17 "Data " PROMPT 28 17 "Data "
END END
STRINGA 48 11 STRINGA 48 11
BEGIN BEGIN
KEY "Tipo ultima idoneita'" KEY "Tipo ultima idoneita'"
FIELD 90->TIPOULTID FIELD 90->TIPOULTID
PROMPT 45 17 "Ult. id. " PROMPT 45 17 "Ult. id. "
END END
DATA 49 10 DATA 49 10
BEGIN BEGIN
KEY "Data ultima idoneita'" KEY "Data ultima idoneita'"
FIELD 90->DATAULTID FIELD 90->DATAULTID
PROMPT 58 17 "" PROMPT 58 17 ""
END END
STRINGA 50 2 STRINGA 50 2
BEGIN BEGIN
KEY "Idoneita' alla donazione 1" KEY "Idoneita' alla donazione 1"
FIELD 90->IDON1 FIELD 90->IDON1
PROMPT 70 17 "" PROMPT 70 17 ""
END END
STRINGA 51 2 STRINGA 51 2
BEGIN BEGIN
KEY "Idoneita' alla donazione 2" KEY "Idoneita' alla donazione 2"
FIELD 90->IDON2 FIELD 90->IDON2
PROMPT 73 17 "" PROMPT 73 17 ""
END END
STRINGA 52 2 STRINGA 52 2
BEGIN BEGIN
KEY "Idoneita' alla donazione 3" KEY "Idoneita' alla donazione 3"
FIELD 90->IDON3 FIELD 90->IDON3
PROMPT 76 17 "" PROMPT 76 17 ""
END END
STRINGA 53 2 STRINGA 53 2
BEGIN BEGIN
KEY "Idoneita' alla donazione 4" KEY "Idoneita' alla donazione 4"
FIELD 90->IDON4 FIELD 90->IDON4
PROMPT 79 17 "" PROMPT 79 17 ""
END END
STRINGA 54 STRINGA 54
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 19 "Situazione donazioni:" PROMPT 1 19 "Situazione donazioni:"
END END
NUMERO 55 8 NUMERO 55 8
BEGIN BEGIN
KEY "Totale donazioni" KEY "Totale donazioni"
FIELD 90->TOTDON FIELD 90->TOTDON
PROMPT 1 20 "Tot. " PROMPT 1 20 "Tot. "
END END
STRINGA 56 11 STRINGA 56 11
BEGIN BEGIN
KEY "Tipo ultima donazione" KEY "Tipo ultima donazione"
FIELD 90->TIPOULTDON FIELD 90->TIPOULTDON
PROMPT 1 21 "Ult.don. " PROMPT 1 21 "Ult.don. "
END END
DATA 57 10 DATA 57 10
BEGIN BEGIN
KEY "Data ultima donazione" KEY "Data ultima donazione"
FIELD 90->DATAULTDON FIELD 90->DATAULTDON
PROMPT 13 21 "" PROMPT 13 21 ""
END END
STRINGA 58 13 STRINGA 58 13
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 26 20 "Donazioni SI:" PROMPT 26 20 "Donazioni SI:"
END END
STRINGA 59 13 STRINGA 59 13
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 26 21 "Donazioni AF:" PROMPT 26 21 "Donazioni AF:"
END END
STRINGA 60 4 STRINGA 60 4
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 42 19 "Tot." PROMPT 42 19 "Tot."
END END
STRINGA 61 10 STRINGA 61 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 48 19 "Ultima" PROMPT 48 19 "Ultima"
END END
STRINGA 62 4 STRINGA 62 4
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 60 19 "Int." PROMPT 60 19 "Int."
END END
STRINGA 63 10 STRINGA 63 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 66 19 "Prossima" PROMPT 66 19 "Prossima"
END END
NUMERO 64 3 NUMERO 64 3
BEGIN BEGIN
KEY "Totale donazioni SI" KEY "Totale donazioni SI"
FIELD 90->TOTDONSI FIELD 90->TOTDONSI
PROMPT 42 20 "" PROMPT 42 20 ""
END END
NUMERO 65 3 NUMERO 65 3
BEGIN BEGIN
KEY "Totale donazioni AF" KEY "Totale donazioni AF"
FIELD 90->TOTDONAF FIELD 90->TOTDONAF
PROMPT 42 21 "" PROMPT 42 21 ""
END END
DATA 66 10 DATA 66 10
BEGIN BEGIN
KEY "Data ultima donazione SI" KEY "Data ultima donazione SI"
FIELD 90->DATAULTSI FIELD 90->DATAULTSI
PROMPT 48 20 "" PROMPT 48 20 ""
END END
DATA 67 10 DATA 67 10
BEGIN BEGIN
KEY "Data ultima donazione AF" KEY "Data ultima donazione AF"
FIELD 90->DATAULTAF FIELD 90->DATAULTAF
PROMPT 48 21 "" PROMPT 48 21 ""
END END
NUMERO 68 4 NUMERO 68 4
BEGIN BEGIN
KEY "Intervallo SI" KEY "Intervallo SI"
FIELD 90->INTSI FIELD 90->INTSI
PROMPT 60 20 "" PROMPT 60 20 ""
END END
NUMERO 69 4 NUMERO 69 4
BEGIN BEGIN
KEY "Intervallo AF" KEY "Intervallo AF"
FIELD 90->INTAF FIELD 90->INTAF
PROMPT 60 21 "" PROMPT 60 21 ""
END END
DATA 70 10 DATA 70 10
BEGIN BEGIN
KEY "Data prossima SI" KEY "Data prossima SI"
FIELD 90->DATAPROSSI FIELD 90->DATAPROSSI
PROMPT 66 20 "" PROMPT 66 20 ""
END END
DATA 71 10 DATA 71 10
BEGIN BEGIN
KEY "Data prossima AF" KEY "Data prossima AF"
FIELD 90->DATAPROSAF FIELD 90->DATAPROSAF
PROMPT 66 21 "" PROMPT 66 21 ""
END END
STRINGA 72 14 STRINGA 72 14
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0 FIELD 90->GRUPPOAB0
PROMPT 1 23 "Gruppo AB0 " PROMPT 1 23 "Gruppo AB0 "
END END
STRINGA 73 12 STRINGA 73 12
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
FIELD 90->RHANTID FIELD 90->RHANTID
PROMPT 16 23 "Rh/AntiD " PROMPT 16 23 "Rh/AntiD "
END END
STRINGA 74 8 STRINGA 74 8
BEGIN BEGIN
KEY "Kell" KEY "Kell"
FIELD 90->KELL FIELD 90->KELL
PROMPT 30 23 "Kell " PROMPT 30 23 "Kell "
END END
STRINGA 75 18 STRINGA 75 18
BEGIN BEGIN
KEY "Fenotipo Rh" KEY "Fenotipo Rh"
FIELD 90->FENOTIPORH FIELD 90->FENOTIPORH
PROMPT 40 23 "Fenotipo Rh " PROMPT 40 23 "Fenotipo Rh "
END END
STRINGA 76 12 STRINGA 76 12
BEGIN BEGIN
KEY "Du" KEY "Du"
FIELD 90->DU FIELD 90->DU
PROMPT 60 23 "Du " PROMPT 60 23 "Du "
END END
NUMERO 77 13 NUMERO 77 13
BEGIN BEGIN
KEY "Codice medico" KEY "Codice medico"
FIELD 90->CODMED FIELD 90->CODMED
PROMPT 1 24 "Medico " PROMPT 1 24 "Medico "
END END
STRINGA 78 25 STRINGA 78 25
BEGIN BEGIN
KEY "Cognome medico" KEY "Cognome medico"
@ -602,7 +520,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,80|COPY,80 MESSAGE RESET,80|COPY,80
END END
STRINGA 79 25 STRINGA 79 25
BEGIN BEGIN
KEY "Nome medico" KEY "Nome medico"
@ -610,19 +527,16 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,80 MESSAGE APPEND,80
END END
STRINGA 80 51 STRINGA 80 51
BEGIN BEGIN
KEY "Cognome e nome medico" KEY "Cognome e nome medico"
PROMPT 15 24 "" PROMPT 15 24 ""
END END
STRINGA 81 10 STRINGA 81 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 25 "Mod.conv. " PROMPT 1 25 "Mod.conv. "
END END
LISTA 83 22 LISTA 83 22
BEGIN BEGIN
KEY "Modalita' di convocazione" KEY "Modalita' di convocazione"
@ -636,143 +550,122 @@ BEGIN
ITEM "TE|Telefonica" ITEM "TE|Telefonica"
ITEM "IN|Indifferente" ITEM "IN|Indifferente"
END END
STRINGA 84 19 STRINGA 84 19
BEGIN BEGIN
KEY "Codice punto di racolta" KEY "Codice punto di racolta"
FIELD 90->PUNTORACC FIELD 90->PUNTORACC
PROMPT 35 25 "Punto di racc. " PROMPT 35 25 "Punto di racc. "
END END
STRINGA 85 25 STRINGA 85 25
BEGIN BEGIN
KEY "Descrizione punto di raccolta" KEY "Descrizione punto di raccolta"
FIELD 300@->S0 FIELD 300@->S0
PROMPT 56 25 "" PROMPT 56 25 ""
END END
STRINGA 86 27 STRINGA 86 27
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 26 "Giorni pref.: L M M G V S D" PROMPT 1 26 "Giorni pref.: L M M G V S D"
END END
STRINGA 87 13 STRINGA 87 13
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 27 " Donazione" PROMPT 1 27 " Donazione"
END END
STRINGA 88 2 STRINGA 88 2
BEGIN BEGIN
KEY "Lu" KEY "Lu"
FIELD 90->GIOPREDON[1,1] FIELD 90->GIOPREDON[1,1]
PROMPT 15 27 "" PROMPT 15 27 ""
END END
STRINGA 89 2 STRINGA 89 2
BEGIN BEGIN
KEY "Ma" KEY "Ma"
FIELD 90->GIOPREDON[2,2] FIELD 90->GIOPREDON[2,2]
PROMPT 17 27 "" PROMPT 17 27 ""
END END
STRINGA 90 2 STRINGA 90 2
BEGIN BEGIN
KEY "Me" KEY "Me"
FIELD 90->GIOPREDON[3,3] FIELD 90->GIOPREDON[3,3]
PROMPT 19 27 "" PROMPT 19 27 ""
END END
STRINGA 91 2 STRINGA 91 2
BEGIN BEGIN
KEY "Gi" KEY "Gi"
FIELD 90->GIOPREDON[4,4] FIELD 90->GIOPREDON[4,4]
PROMPT 21 27 "" PROMPT 21 27 ""
END END
STRINGA 92 2 STRINGA 92 2
BEGIN BEGIN
KEY "Ve" KEY "Ve"
FIELD 90->GIOPREDON[5,5] FIELD 90->GIOPREDON[5,5]
PROMPT 23 27 "" PROMPT 23 27 ""
END END
STRINGA 93 2 STRINGA 93 2
BEGIN BEGIN
KEY "Sa" KEY "Sa"
FIELD 90->GIOPREDON[6,6] FIELD 90->GIOPREDON[6,6]
PROMPT 25 27 "" PROMPT 25 27 ""
END END
STRINGA 94 2 STRINGA 94 2
BEGIN BEGIN
KEY "Do" KEY "Do"
FIELD 90->GIOPREDON[7,7] FIELD 90->GIOPREDON[7,7]
PROMPT 27 27 "" PROMPT 27 27 ""
END END
STRINGA 95 13 STRINGA 95 13
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 1 28 " Controlli" PROMPT 1 28 " Controlli"
END END
STRINGA 96 2 STRINGA 96 2
BEGIN BEGIN
KEY "Lu" KEY "Lu"
FIELD 90->GIOPRECON[1,1] FIELD 90->GIOPRECON[1,1]
PROMPT 15 28 "" PROMPT 15 28 ""
END END
STRINGA 97 2 STRINGA 97 2
BEGIN BEGIN
KEY "Ma" KEY "Ma"
FIELD 90->GIOPRECON[2,2] FIELD 90->GIOPRECON[2,2]
PROMPT 17 28 "" PROMPT 17 28 ""
END END
STRINGA 98 2 STRINGA 98 2
BEGIN BEGIN
KEY "Me" KEY "Me"
FIELD 90->GIOPRECON[3,3] FIELD 90->GIOPRECON[3,3]
PROMPT 19 28 "" PROMPT 19 28 ""
END END
STRINGA 99 2 STRINGA 99 2
BEGIN BEGIN
KEY "Gi" KEY "Gi"
FIELD 90->GIOPRECON[4,4] FIELD 90->GIOPRECON[4,4]
PROMPT 21 28 "" PROMPT 21 28 ""
END END
STRINGA 100 2 STRINGA 100 2
BEGIN BEGIN
KEY "Ve" KEY "Ve"
FIELD 90->GIOPRECON[5,5] FIELD 90->GIOPRECON[5,5]
PROMPT 23 28 "" PROMPT 23 28 ""
END END
STRINGA 101 2 STRINGA 101 2
BEGIN BEGIN
KEY "Sa" KEY "Sa"
FIELD 90->GIOPRECON[6,6] FIELD 90->GIOPRECON[6,6]
PROMPT 25 28 "" PROMPT 25 28 ""
END END
STRINGA 102 2 STRINGA 102 2
BEGIN BEGIN
KEY "Do" KEY "Do"
FIELD 90->GIOPRECON[7,7] FIELD 90->GIOPRECON[7,7]
PROMPT 27 28 "" PROMPT 27 28 ""
END END
STRINGA 103 10 STRINGA 103 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 33 26 "Cond.occ. " PROMPT 33 26 "Cond.occ. "
END END
LISTA 104 19 LISTA 104 19
BEGIN BEGIN
KEY "Condizione occupazionale" KEY "Condizione occupazionale"
@ -788,13 +681,11 @@ BEGIN
ITEM "99|Altro" ITEM "99|Altro"
PROMPT 44 26 "" PROMPT 44 26 ""
END END
STRINGA 105 10 STRINGA 105 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 33 27 "Pos.prof. " PROMPT 33 27 "Pos.prof. "
END END
LISTA 106 19 LISTA 106 19
BEGIN BEGIN
KEY "Posizione professionale" KEY "Posizione professionale"
@ -808,13 +699,11 @@ BEGIN
ITEM "99|Altro" ITEM "99|Altro"
PROMPT 44 27 "" PROMPT 44 27 ""
END END
STRINGA 107 10 STRINGA 107 10
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 33 28 "Ramo att. " PROMPT 33 28 "Ramo att. "
END END
LISTA 108 30 LISTA 108 30
BEGIN BEGIN
KEY "Ramo di attivita'" KEY "Ramo di attivita'"
@ -832,5 +721,4 @@ BEGIN
ITEM "99|Altro" ITEM "99|Altro"
PROMPT 44 28 "" PROMPT 44 28 ""
END END
END END

99
at/at_pagin.frm
View File

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

26
at/at_pagpr.frm
View File

@ -30,8 +30,8 @@ END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier New" FONT ""
SIZE 12 SIZE
GRID "" GRID ""
END END
@ -298,21 +298,21 @@ END
DATA 31 25 DATA 31 25
BEGIN BEGIN
KEY "Data fine sospensione" KEY "Data fine sospensione"
PROMPT 55 13 "Data fine " PROMPT 55 14 "Data fine "
FIELD 90->DATA_PROS FIELD 90->DATA_PROS
END END
DATA 32 25 DATA 32 25
BEGIN BEGIN
KEY "Data iscrizione" KEY "Data iscrizione"
PROMPT 55 14 "Data iscr. " PROMPT 55 15 "Data iscr. "
FIELD 90->DATAISC FIELD 90->DATAISC
END END
DATA 33 25 DATA 33 25
BEGIN BEGIN
KEY "Data ult. agg. " KEY "Data ult. agg. "
PROMPT 55 15 "Ultimo agg. " PROMPT 55 16 "Ultimo agg. "
FIELD 90->DATAULTAGG FIELD 90->DATAULTAGG
END END
@ -541,7 +541,21 @@ BEGIN
FIELD 90->DATAPRISI FIELD 90->DATAPRISI
END END
STRINGA 63 25 STRINGA 63 11
BEGIN
KEY "Stato SI"
PROMPT 55 13 "Stato SI "
FIELD 90->STATOSI
END
STRINGA 64 11
BEGIN
KEY "Stato SI"
PROMPT 68 13 "Stato AF "
FIELD 90->STATOAF
END
STRINGA 65 25
BEGIN BEGIN
KEY "Testo" KEY "Testo"
PROMPT 35 24 "B E N E M E R E N Z E" PROMPT 35 24 "B E N E M E R E N Z E"

41
at/atcartbo.frm
View File

@ -7,7 +7,6 @@ JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM
JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT
JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7 JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7
JOIN 13 TO 400@ ALIAS 503 INTO COM==S6 JOIN 13 TO 400@ ALIAS 503 INTO COM==S6
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -19,7 +18,6 @@ BEGIN
400@->* "Punti di prelievo" 400@->* "Punti di prelievo"
96->* "Sezioni associative" 96->* "Sezioni associative"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -27,9 +25,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 24 SECTION BODY ODD 24
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -38,7 +34,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -47,20 +42,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 51 STRINGA 3 51
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 56 16 "" PROMPT 56 16 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 56 17 "" PROMPT 56 17 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -68,16 +60,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
//FIELD 100@->S6
//FIELD 501@->CAPCOM
FIELD 90->DOM_CAP FIELD 90->DOM_CAP
PROMPT 56 19 "" PROMPT 56 19 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -87,7 +75,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -96,47 +83,39 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 50 2 STRINGA 9 50 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 62 19 "" PROMPT 62 19 ""
END END
STRINGA 10 25 STRINGA 10 25
BEGIN BEGIN
KEY "Invito per" KEY "Invito per"
PROMPT 11 4 "per DONAZIONE SANGUE" PROMPT 11 4 "per DONAZIONE SANGUE"
//FIELD 115->TIPO
END END
STRINGA 11 25 STRINGA 11 25
BEGIN BEGIN
KEY "Data convocazione" KEY "Data convocazione"
PROMPT 37 2 "" PROMPT 37 2 ""
FIELD 116->DATACONV FIELD 116->DATACONV
END END
STRINGA 12 10 STRINGA 12 10
BEGIN BEGIN
KEY "TESTO" KEY "TESTO"
PROMPT 11 5 "Presso" PROMPT 11 5 "Presso"
END END
STRINGA 13 50 STRINGA 13 50
BEGIN BEGIN
KEY "Presso: denominazione punto di prelievo" KEY "Presso: denominazione punto di prelievo"
PROMPT 11 6 "" PROMPT 11 6 ""
FIELD 400@->S0 FIELD 400@->S0
END END
STRINGA 14 50 STRINGA 14 50
BEGIN BEGIN
KEY "Presso: indirizzo punto di prelievo" KEY "Presso: indirizzo punto di prelievo"
PROMPT 11 7 "" PROMPT 11 7 ""
FIELD 400@->S1 FIELD 400@->S1
END END
STRINGA 15 4 STRINGA 15 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -144,16 +123,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 16 5 STRINGA 16 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
//FIELD 102@->S6
//FIELD 503@->CAPCOM
FIELD 400@->S8 FIELD 400@->S8
PROMPT 11 8 "" PROMPT 11 8 ""
END END
STRINGA 17 30 STRINGA 17 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -163,7 +138,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,20|COPY,20 MESSAGE RESET,20|COPY,20
END END
STRINGA 18 5 STRINGA 18 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -172,7 +146,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,20 MESSAGE APPEND,20
END END
STRINGA 19 20 STRINGA 19 20
BEGIN BEGIN
KEY "telefoni" KEY "telefoni"
@ -181,77 +154,63 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,20 MESSAGE APPEND,20
END END
STRINGA 20 50 2 STRINGA 20 50 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 17 8 "" PROMPT 17 8 ""
END END
STRINGA 21 50 STRINGA 21 50
BEGIN BEGIN
KEY "orario" KEY "orario"
PROMPT 11 9 "" PROMPT 11 9 ""
FIELD 400@->S2 FIELD 400@->S2
END END
STRING 22 2 STRING 22 2
BEGIN BEGIN
KEY "Sezione" KEY "Sezione"
PROMPT 20 16 "" PROMPT 20 16 ""
FIELD 90->CODSEZ FIELD 90->CODSEZ
END END
STRING 23 2 STRING 23 2
BEGIN BEGIN
KEY "Sottogruppo" KEY "Sottogruppo"
FIELD 90->CODSOT FIELD 90->CODSOT
PROMPT 22 16 "" PROMPT 22 16 ""
END END
STRING 24 2 STRING 24 2
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
FIELD 90->CATDON FIELD 90->CATDON
PROMPT 30 16 "" PROMPT 30 16 ""
END END
STRINGA 25 2 STRINGA 25 2
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
FIELD 90->CODCL FIELD 90->CODCL
PROMPT 35 16 "" PROMPT 35 16 ""
END END
STRINGA 26 6 STRINGA 26 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
PROMPT 37 16 "" PROMPT 37 16 ""
END END
STRINGA 27 25 STRINGA 27 25
BEGIN BEGIN
KEY "" KEY ""
PROMPT 20 19 "Presentarsi a digiuno" PROMPT 20 19 "Presentarsi a digiuno"
END END
STRING 28 4 STRING 28 4
BEGIN BEGIN
KEY "Gruppo az." KEY "Gruppo az."
PROMPT 15 16 "" PROMPT 15 16 ""
FIELD 90->GRUPPOAZIE FIELD 90->GRUPPOAZIE
END END
STRING 29 30 STRING 29 30
BEGIN BEGIN
KEY "Gruppo az." KEY "Gruppo az."
PROMPT 56 18 "" PROMPT 56 18 ""
FIELD 90->DOM_DISTRI FIELD 90->DOM_DISTRI
END END
END END
END END

18
at/atcarto1.frm
View File

@ -13,8 +13,8 @@ END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Roman" FONT ""
SIZE 12 SIZE
GRID "" GRID ""
END END
@ -51,6 +51,14 @@ BEGIN
PROMPT 32 15 "" PROMPT 32 15 ""
END END
STRINGA 23 20 2
BEGIN
KEY "Presso indirizzo"
FIELD 90->DOM_DISTRI
PROMPT 32 17 ""
END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -64,7 +72,7 @@ BEGIN
KEY "CAP" KEY "CAP"
FIELD 100@->S6 FIELD 100@->S6
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 32 17 "" PROMPT 32 19 ""
END END
STRINGA 7 30 STRINGA 7 30
@ -86,10 +94,10 @@ BEGIN
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 22 3 STRINGA 9 19 3
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 38 17 "" PROMPT 38 19 ""
END END
STRINGA 10 25 STRINGA 10 25

54
at/atcarto2.frm
View File

@ -13,12 +13,12 @@ END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Roman" FONT ""
SIZE 12 SIZE
GRID "" GRID ""
END END
SECTION BODY ODD 24 SECTION BODY ODD 23
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
@ -38,19 +38,27 @@ BEGIN
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 25 2 STRINGA 3 35 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 56 16 "" PROMPT 57 13 ""
END END
STRINGA 4 20 2 STRINGA 4 35 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 56 17 "" PROMPT 57 15 ""
END END
STRINGA 23 35 2
BEGIN
KEY "Presso indirizzo"
FIELD 90->DOM_DISTRI
PROMPT 57 17 ""
END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -64,7 +72,7 @@ BEGIN
KEY "CAP" KEY "CAP"
FIELD 100@->S6 FIELD 100@->S6
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 56 19 "" PROMPT 57 19 ""
END END
STRINGA 7 30 STRINGA 7 30
@ -86,88 +94,88 @@ BEGIN
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 22 3 STRINGA 9 30 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 62 19 "" PROMPT 63 19 ""
END END
STRINGA 10 25 STRINGA 10 25
BEGIN BEGIN
KEY "Invito per" KEY "Invito per"
PROMPT 11 4 "" PROMPT 20 8 ""
END END
STRINGA 11 25 STRINGA 11 25
BEGIN BEGIN
KEY "Data convocazione" KEY "Data convocazione"
PROMPT 37 2 "" PROMPT 20 10 ""
END END
STRINGA 12 25 STRINGA 12 25
BEGIN BEGIN
KEY "Presso: riga 1" KEY "Presso: riga 1"
PROMPT 11 5 "" PROMPT 20 12 ""
END END
STRINGA 13 25 STRINGA 13 25
BEGIN BEGIN
KEY "Presso: riga 2" KEY "Presso: riga 2"
PROMPT 11 6 "" PROMPT 20 13 ""
END END
STRINGA 14 25 STRINGA 14 25
BEGIN BEGIN
KEY "Presso: riga 3" KEY "Presso: riga 3"
PROMPT 11 7 "" PROMPT 20 14 ""
END END
STRINGA 15 25 STRINGA 15 25
BEGIN BEGIN
KEY "Presso: riga 4" KEY "Presso: riga 4"
PROMPT 11 8 "" PROMPT 20 15 ""
END END
STRINGA 16 14 STRINGA 16 14
BEGIN BEGIN
KEY "Orario" KEY "Orario"
PROMPT 11 9 "" PROMPT 20 18 ""
END END
STRINGA 17 10 STRINGA 17 10
BEGIN BEGIN
KEY "Data cartolina" KEY "Data cartolina"
PROMPT 18 21 "" PROMPT 20 20 ""
END END
STRINGA 18 25 STRINGA 18 25
BEGIN BEGIN
KEY "Note" KEY "Note"
PROMPT 3 23 "" PROMPT 20 22 ""
END END
STRINGA 19 20 STRINGA 19 20
BEGIN BEGIN
KEY "Intestazione 1" KEY "Intestazione 1"
PROMPT 15 5 "" PROMPT 20 3 ""
END END
STRINGA 20 20 STRINGA 20 20
BEGIN BEGIN
KEY "Intestazione 2" KEY "Intestazione 2"
PROMPT 15 6 "" PROMPT 20 4 ""
END END
STRINGA 21 20 STRINGA 21 20
BEGIN BEGIN
KEY "Intestazione 3" KEY "Intestazione 3"
PROMPT 15 7 "" PROMPT 20 5 ""
END END
STRINGA 22 20 STRINGA 22 20
BEGIN BEGIN
KEY "Intestazione 4" KEY "Intestazione 4"
PROMPT 15 8 "" PROMPT 20 6 ""
END END
END END

175
at/atcartra.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 ""
SIZE
GRID ""
END
SECTION BODY ODD 23
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 57 13 ""
END
STRINGA 4 35 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 57 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 57 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 30 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 63 17 ""
END
STRINGA 10 25
BEGIN
KEY "Invito per"
PROMPT 20 7 ""
END
STRINGA 11 25
BEGIN
KEY "Data convocazione"
PROMPT 20 9 ""
END
STRINGA 12 25
BEGIN
KEY "Presso: riga 1"
PROMPT 20 12 ""
END
STRINGA 13 25
BEGIN
KEY "Presso: riga 2"
PROMPT 20 13 ""
END
STRINGA 14 25
BEGIN
KEY "Presso: riga 3"
PROMPT 20 14 ""
END
STRINGA 15 25
BEGIN
KEY "Presso: riga 4"
PROMPT 20 15 ""
END
STRINGA 16 14
BEGIN
KEY "Orario"
PROMPT 20 17 ""
END
STRINGA 17 10
BEGIN
KEY "Data cartolina"
PROMPT 20 19 ""
END
STRINGA 18 25
BEGIN
KEY "Note"
PROMPT 20 21 ""
END
STRINGA 19 20
BEGIN
KEY "Intestazione 1"
PROMPT 20 3 ""
END
STRINGA 20 20
BEGIN
KEY "Intestazione 2"
PROMPT 20 4 ""
END
STRINGA 21 20
BEGIN
KEY "Intestazione 3"
PROMPT 20 5 ""
END
STRINGA 22 20
BEGIN
KEY "Intestazione 4"
PROMPT 20 6 ""
END
END
END

40
at/atconvoc.frm
View File

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

59
at/atddonaz.frm
View File

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

16
at/ate10x36.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 1 5 "" PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,27 +74,22 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 27 2 STRINGA 9 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
STRINGA 10 2 STRINGA 10 2
BEGIN BEGIN
KEY "Sezione" KEY "Sezione"
FIELD 90->CODSEZ FIELD 90->CODSEZ
PROMPT 30 7 "" PROMPT 30 7 ""
END END
STRINGA 11 2 STRINGA 11 2
BEGIN BEGIN
KEY "Sezione" KEY "Sezione"
FIELD 90->CODSOT FIELD 90->CODSOT
PROMPT 32 7 "/" PROMPT 32 7 "/"
END END
END END
END END

31
at/ate70x37.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 30 2
STRINGA 3 25 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 30 2
STRINGA 4 25 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,15 +50,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
FIELD 100@->S6 FIELD 90->DOM_CAP
FIELD 13->CAPCOM PROMPT 1 6 ""
PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +65,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,13 +73,16 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 24 2
STRINGA 9 19 3
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 6 ""
END END
STRINGA 10 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 5 ""
END END
END END

14
at/ate90x24.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 33 2 STRINGA 4 33 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 1 4 "" PROMPT 1 4 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,13 +74,10 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 27 2 STRINGA 9 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 4 "" PROMPT 7 4 ""
END END
END END
END END

115
at/atefprla.frm Executable file
View File

@ -0,0 +1,115 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 16 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 16 "/"
END
END
END

99
at/atefsals.frm Executable file
View File

@ -0,0 +1,99 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
STRINGA 1 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
END
END

101
at/atefsant.frm Executable file
View File

@ -0,0 +1,101 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 16
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
END
END

95
at/atelaser.frm Executable file
View File

@ -0,0 +1,95 @@
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 14
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

152
at/atelenpr.frm Executable file
View File

@ -0,0 +1,152 @@
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 "Courier New"
SIZE 10
GRID ""
END
SECTION HEADER ODD 3
STRINGA 1 15
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome"
END
STRINGA 2 15
BEGIN
KEY "Indirizzo"
PROMPT 37 2 "Indirizzo"
END
STRINGA 3 15
BEGIN
KEY "Indirizzo"
PROMPT 59 2 "Localita'"
END
STRINGA 4 14
BEGIN
KEY "Telefono abit."
PROMPT 96 2 "Telefono abit."
END
STRINGA 5 10
BEGIN
KEY "Data nascita"
PROMPT 111 2 "Data nasc."
END
STRINGA 6 10
BEGIN
KEY "Cat.don."
PROMPT 122 2 "Categorie"
END
END
SECTION BODY ODD 1
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
STRINGA 4 20 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 37 1 ""
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 59 1 ""
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 30 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 65 1 ""
END
STRINGA 10 14
BEGIN
KEY "Telefono abitazione"
PROMPT 96 1 ""
FIELD 90->TELABI
END
DATA 11 10
BEGIN
KEY "Data nascita"
PROMPT 111 1 ""
FIELD 90->DATANASC
END
STRINGA 12 2
BEGIN
KEY "Cat. don."
PROMPT 122 1 ""
FIELD 90->CATDON
END
STRINGA 13 2
BEGIN
KEY "Cat. NON don. 1"
PROMPT 125 1 ""
FIELD 90->CATNOND1
END
STRINGA 14 2
BEGIN
KEY "Cat. NON don. 2"
PROMPT 128 1 ""
FIELD 90->CATNOND2
END
END
SECTION FOOTER ODD 3
STRINGA 1 10
BEGIN
KEY "Niente"
PROMPT 1 1 "---"
END
END
END

119
at/atern3x8.frm Executable file
View File

@ -0,0 +1,119 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
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 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
END
STRINGA 7 16
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0[1,16]
FIELD 13->DENCOM[1,16]
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 8 14
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0[17,30]
FIELD 13->DENCOM[17,30]
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,10|COPY,10
END
STRINGA 13 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,10
END
STRINGA 9 16
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
STRINGA 10 14
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 14 ""
END
END
END

19
at/atesezio.frm
View File

@ -1,7 +1,6 @@
USE 96 USE 96
JOIN 13 INTO COM==COM JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA JOIN LCP INTO CODTAB==LOCALITA
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
LCP->* "Località postali" LCP->* "Località postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Sezione" KEY "Sezione"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,4|COPY,4|"/",2 MESSAGE RESET,4|COPY,4|"/",2
END END
STRINGA 13 25 STRINGA 13 25
BEGIN BEGIN
KEY "/" KEY "/"
@ -37,7 +32,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE EMPTY RESET,2 MESSAGE EMPTY RESET,2
END END
STRINGA 2 1 STRINGA 2 1
BEGIN BEGIN
KEY "/" KEY "/"
@ -45,7 +39,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,4 MESSAGE APPEND,4
END END
STRINGA 3 25 STRINGA 3 25
BEGIN BEGIN
KEY "Sottogruppo" KEY "Sottogruppo"
@ -54,20 +47,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,4 MESSAGE APPEND,4
END END
STRINGA 4 33 3 STRINGA 4 33 3
BEGIN BEGIN
KEY "Denominazione" KEY "Denominazione"
PROMPT 1 2 "" PROMPT 1 2 ""
END END
STRINGA 5 33 2 STRINGA 5 33 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
PROMPT 1 5 "" PROMPT 1 5 ""
FIELD 96->INDIRIZZO FIELD 96->INDIRIZZO
END END
STRINGA 6 4 STRINGA 6 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -77,7 +67,6 @@ BEGIN
MESSAGE ENABLE,1@|DISABLE,2@ MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@ MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END END
STRINGA 7 5 STRINGA 7 5
BEGIN BEGIN
KEY "CAP loc." KEY "CAP loc."
@ -85,7 +74,6 @@ BEGIN
FIELD LCP->S6 FIELD LCP->S6
GROUP 1 GROUP 1
END END
STRINGA 8 30 STRINGA 8 30
BEGIN BEGIN
KEY "Localita'" KEY "Localita'"
@ -95,7 +83,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,12|COPY,12 MESSAGE RESET,12|COPY,12
END END
STRINGA 9 5 STRINGA 9 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -103,7 +90,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
GROUP 2 GROUP 2
END END
STRINGA 10 50 STRINGA 10 50
BEGIN BEGIN
KEY "Comune" KEY "Comune"
@ -113,7 +99,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,12|COPY,12 MESSAGE RESET,12|COPY,12
END END
STRINGA 11 5 STRINGA 11 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -122,19 +107,15 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,12 MESSAGE APPEND,12
END END
STRINGA 12 27 2 STRINGA 12 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 7 "" PROMPT 7 7 ""
END END
STRINGA 13 15 STRINGA 13 15
BEGIN BEGIN
KEY "Spett.le" KEY "Spett.le"
PROMPT 1 1 "Spett.le AVIS " PROMPT 1 1 "Spett.le AVIS "
END END
END END
END END

17
at/atesezpr.frm
View File

@ -1,7 +1,6 @@
USE 96 USE 96
JOIN 13 INTO COM==COM JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA JOIN LCP INTO CODTAB==LOCALITA
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
LCP->* "Località postali" LCP->* "Località postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,16 +15,13 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
STRINGA 1 15 STRINGA 1 15
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAG "H" FLAG "H"
MESSAGE RESET,3|"Spett.le AVIS",3 MESSAGE RESET,3|"Spett.le AVIS",3
END END
STRINGA 2 50 STRINGA 2 50
BEGIN BEGIN
KEY "Denominazione" KEY "Denominazione"
@ -35,25 +30,21 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 40 2 STRINGA 3 40 2
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 40 2 STRINGA 4 40 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
PROMPT 1 3 "" PROMPT 1 3 ""
FIELD 96->INDIRIZZO FIELD 96->INDIRIZZO
END END
STRINGA 5 1 STRINGA 5 1
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAG "H" FLAG "H"
END END
STRINGA 6 4 STRINGA 6 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -63,7 +54,6 @@ BEGIN
MESSAGE ENABLE,1@|DISABLE,2@ MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@ MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END END
STRINGA 7 5 STRINGA 7 5
BEGIN BEGIN
KEY "CAP loc." KEY "CAP loc."
@ -71,7 +61,6 @@ BEGIN
FIELD LCP->S6 FIELD LCP->S6
GROUP 1 GROUP 1
END END
STRINGA 8 30 STRINGA 8 30
BEGIN BEGIN
KEY "Localita'" KEY "Localita'"
@ -81,7 +70,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,12|COPY,12 MESSAGE RESET,12|COPY,12
END END
STRINGA 9 5 STRINGA 9 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -89,7 +77,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
GROUP 2 GROUP 2
END END
STRINGA 10 50 STRINGA 10 50
BEGIN BEGIN
KEY "Comune" KEY "Comune"
@ -99,7 +86,6 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE RESET,12|COPY,12 MESSAGE RESET,12|COPY,12
END END
STRINGA 11 5 STRINGA 11 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -108,13 +94,10 @@ BEGIN
FLAG "H" FLAG "H"
MESSAGE APPEND,12 MESSAGE APPEND,12
END END
STRINGA 12 27 2 STRINGA 12 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 4 "" PROMPT 7 4 ""
END END
END END
END END

21
at/atet10bo.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 40 1 STRINGA 3 40 1
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 2 "" PROMPT 1 2 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,16 +50,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
//FIELD 100@->S6
//FIELD 13->CAPCOM
FIELD 90->DOM_CAP FIELD 90->DOM_CAP
PROMPT 1 5 "" PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -77,7 +65,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -86,13 +73,11 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 33 1 STRINGA 9 33 1
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
STRINGA 10 2 STRINGA 10 2
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
@ -100,29 +85,23 @@ BEGIN
FIELD 90->CATNOND1 FIELD 90->CATNOND1
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 11 2 STRINGA 11 2
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
FIELD 90->CODCL FIELD 90->CODCL
PROMPT 7 1 "" PROMPT 7 1 ""
END END
STRINGA 12 10 STRINGA 12 10
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
PROMPT 9 1 "" PROMPT 9 1 ""
END END
STRINGA 13 30 STRINGA 13 30
BEGIN BEGIN
KEY "Presso" KEY "Presso"
FIELD 90->DOM_DISTRI FIELD 90->DOM_DISTRI
PROMPT 1 4 "" PROMPT 1 4 ""
END END
END END
END END

83
at/atet7036.frm Executable file
View File

@ -0,0 +1,83 @@
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 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 30 1
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 23 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

21
at/atet90bo.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 51 1 STRINGA 3 51 1
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 2 "" PROMPT 1 2 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,16 +50,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
//FIELD 100@->S6
//FIELD 13->CAPCOM
FIELD 90->DOM_CAP FIELD 90->DOM_CAP
PROMPT 1 5 "" PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -77,7 +65,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -86,13 +73,11 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 45 1 STRINGA 9 45 1
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
STRINGA 10 2 STRINGA 10 2
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
@ -100,29 +85,23 @@ BEGIN
FIELD 90->CATNOND1 FIELD 90->CATNOND1
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 11 2 STRINGA 11 2
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
FIELD 90->CODCL FIELD 90->CODCL
PROMPT 7 1 "" PROMPT 7 1 ""
END END
STRINGA 12 10 STRINGA 12 10
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
PROMPT 9 1 "" PROMPT 9 1 ""
END END
STRINGA 13 30 STRINGA 13 30
BEGIN BEGIN
KEY "Presso" KEY "Presso"
FIELD 90->DOM_DISTRI FIELD 90->DOM_DISTRI
PROMPT 1 4 "" PROMPT 1 4 ""
END END
END END
END END

232
at/atetcart.frm Executable file
View File

@ -0,0 +1,232 @@
USE 90
JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT
JOIN 97 INTO CODMED==CODMED
JOIN CTD ALIAS 700 INTO CODTAB==CATDON
JOIN TCS ALIAS 200 INTO CODTAB==STATO
JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC
JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE
JOIN 94 INTO CODICE==CODICE
JOIN BNZ TO 94 ALIAS 600 INTO CODTAB==TIPOBEN
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
100@->* "Localita' postali"
200@->* "TCS"
300@->* "GAZ"
100@->* "LCP"
500@->* "Comune di nascita"
501@->* "Comuni di domicilio"
600@->* "Tabella benemerenze"
96->* "Sezioni AVIS"
97->* "Medici"
94->* "Benemerenze"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 24
STRINGA 1 25
BEGIN
KEY "Cognome"
PROMPT 3 1 "Cognome "
FIELD 90->COGNOME
END
STRINGA 2 25
BEGIN
KEY "Nome"
PROMPT 41 1 "Nome "
FIELD 90->NOME
END
STRINGA 3 50
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,5|COPY,5
FIELD 500@->DENCOM
END
STRINGA 4 5
BEGIN
KEY "Provincia di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,5
FIELD 500@->PROVCOM
END
STRINGA 5 55
BEGIN
KEY "Comune e provincia di nascita"
PROMPT 3 3 "Nato a "
END
DATA 6 18
BEGIN
KEY "Data nascita"
PROMPT 48 3 "Data di nascita "
FIELD 90->DATANASC
FORMAT "1444-"
END
STRINGA 7 15
BEGIN
PROMPT 3 5 "Professione "
END
STRINGA 26 6
BEGIN
KEY "Prompt sesso"
PROMPT 66 5 "Sesso "
END
LISTA 8
BEGIN
KEY "Sesso"
PROMPT 72 5 "Sesso "
FIELD 90->SESSO
ITEM "0|?"
ITEM "1|M"
ITEM "2|F"
ITEM "9|?"
END
STRINGA 9 30
BEGIN
KEY "Comune"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,11|COPY,11
FIELD 501@->DENCOM
END
STRINGA 10 5
BEGIN
KEY "Provincia"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,11
FIELD 501@->PROVCOM
END
STRINGA 11 55
BEGIN
KEY "Com. e Prov."
PROMPT 3 7 "Residente a "
END
STRINGA 12 30
BEGIN
KEY "Indirizzo"
PROMPT 3 9 "Indirizzo "
FIELD 90->DOM_INDIR
END
STRINGA 13 25
BEGIN
KEY "Telefono abitazione"
PROMPT 3 11 "Tel.: ab. "
FIELD 90->TELABI
END
STRINGA 14 25
BEGIN
KEY "Telefono lavoro"
PROMPT 30 11 "lav. "
FIELD 90->TELLAV
END
STRINGA 15 25
BEGIN
KEY "Telefono altri"
PROMPT 51 11 "altro "
FIELD 90->TELALT
END
STRINGA 16 12
BEGIN
KEY "Sezione"
PROMPT 3 13 "Sez./Sot. "
FIELD 90->CODSEZ
END
STRINGA 17 3
BEGIN
KEY "Sottogruppo"
PROMPT 15 13 "/"
FIELD 90->CODSOT
END
NUMERO 18 8
BEGIN
KEY "Codice soggetto"
PROMPT 50 13 "Cod. sezione"
FIELD 90->CODICE
END
STRINGA 19 25
BEGIN
KEY "Numero libretto sanitario"
PROMPT 3 15 "Tessera SSN "
FIELD 90->TESSSSN
END
STRINGA 20 25
BEGIN
KEY "Codice fiscale"
PROMPT 35 15 "Codice fiscale "
FIELD 90->CF
END
STRINGA 21 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 3 17 "AB0 "
FIELD 90->GRUPPOAB0
END
STRINGA 22 15
BEGIN
KEY "Rh/AntiD"
PROMPT 17 17 "Rh "
FIELD 90->RHANTID
END
STRINGA 23 15
BEGIN
KEY "Fenotipo Rh"
PROMPT 29 17 "Fenotipo Rh "
FIELD 90->FENOTIPORH
END
STRINGA 24 15
BEGIN
KEY "Kell"
PROMPT 52 17 "Kell "
FIELD 90->KELL
END
STRINGA 25 15
BEGIN
KEY "Du"
PROMPT 64 17 "Du "
FIELD 90->DU
END
END // FINE SECTION BODY
END // END FORM

133
at/atetcbor.frm Executable file
View File

@ -0,0 +1,133 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
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 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
END
STRINGA 7 16
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0[1,16]
FIELD 13->DENCOM[1,16]
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 8 14
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0[17,30]
FIELD 13->DENCOM[17,30]
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,10|COPY,10
END
STRINGA 13 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,10
END
STRINGA 9 16
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
STRINGA 10 14
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 14 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 16 ""
END
STRINGA 12 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 16 "/"
END
END
END

17
at/ateticbz.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,37 +15,31 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
FIELD 90->COGNOME FIELD 90->COGNOME
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
FIELD 90->NOME FIELD 90->NOME
PROMPT 1 2 "" PROMPT 1 2 ""
END END
STRINGA 3 25 STRINGA 3 25
BEGIN BEGIN
KEY "Cognomne da sposata" KEY "Cognomne da sposata"
FIELD 90->COGNOME_SP FIELD 90->COGNOME_SP
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 4 "" PROMPT 1 4 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -55,7 +47,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -63,7 +54,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 1 5 "" PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -73,35 +63,28 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
FIELD 13->PROVCOM FIELD 13->PROVCOM
PROMPT 30 5 "" PROMPT 30 5 ""
END END
STRINGA 9 50 STRINGA 9 50
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
STRINGA 10 4 STRINGA 10 4
BEGIN BEGIN
KEY "Gruppo aziendale" KEY "Gruppo aziendale"
PROMPT 27 2 "" PROMPT 27 2 ""
FIELD 90->GRUPPOAZIE FIELD 90->GRUPPOAZIE
END END
NUMERO 11 8 NUMERO 11 8
BEGIN BEGIN
KEY "Codice" KEY "Codice"
PROMPT 27 1 "" PROMPT 27 1 ""
FIELD 90->CODICE FIELD 90->CODICE
END END
END END
END END

16
at/ateticrn.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 30 STRINGA 3 30
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 2 "" PROMPT 1 2 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 1 4 "" PROMPT 1 4 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,27 +74,22 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 50 2 STRINGA 9 50 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 4 "" PROMPT 7 4 ""
END END
STRINGA 10 4 STRINGA 10 4
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
PROMPT 1 1 "" PROMPT 1 1 ""
FIELD 90->CATDON FIELD 90->CATDON
END END
STRINGA 11 6 STRINGA 11 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
PROMPT 5 1 "" PROMPT 5 1 ""
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
END END
END END
END END

14
at/atetirn1.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 3 "" PROMPT 1 3 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 1 5 "" PROMPT 1 5 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,13 +74,10 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 27 2 STRINGA 9 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 5 "" PROMPT 7 5 ""
END END
END END
END END

104
at/atetirn2.frm Executable file
View File

@ -0,0 +1,104 @@
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"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 9
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 40 3
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
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 27 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

104
at/atetirn3.frm Executable file
View File

@ -0,0 +1,104 @@
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"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 42 3
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
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 37 1
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

101
at/atetlang.frm Executable file
View File

@ -0,0 +1,101 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 16
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
END
END

111
at/atetlapr.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
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 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 3 3 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 3 5 ""
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 3 7 ""
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 35 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 9 7 ""
END
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 32 9 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 34 9 "/"
END
END
END

2
at/atetluzz.frm
View File

@ -12,7 +12,7 @@ GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "" FONT ""
SIZE 10 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 9 SECTION BODY ODD 9

117
at/atetprla.frm Executable file
View File

@ -0,0 +1,117 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
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 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 16 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 16 "/"
END
END
END

103
at/atetsals.frm Executable file
View File

@ -0,0 +1,103 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
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 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
END
END

96
at/atetsant.frm Executable file
View File

@ -0,0 +1,96 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 8
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 45 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 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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

104
at/atf10x36.frm Executable file
View File

@ -0,0 +1,104 @@
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 "Courier New"
SIZE 8
GRID ""
END
SECTION BODY ODD 29
STRINGA 10 30
BEGIN
KEY "Presso"
PROMPT 1 11 ""
FIELD 90->DOM_DISTRI
END
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 35 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 3 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 14 ""
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 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 8 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 35 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 1 18 ""
END
END
END

104
at/atf70x37.frm Executable file
View File

@ -0,0 +1,104 @@
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 "Courier New"
SIZE 8
GRID ""
END
SECTION BODY ODD 8
STRINGA 10 45
BEGIN
KEY "Presso"
PROMPT 1 4 ""
FIELD 90->DOM_DISTRI
END
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 33 3
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 5 ""
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 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 8 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 45 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 1 6 ""
END
END
END

115
at/atfaprla.frm Executable file
View File

@ -0,0 +1,115 @@
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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 17
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 16 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 16 "/"
END
END
END

114
at/atlebebo.frm Executable file
View File

@ -0,0 +1,114 @@
USE 94
JOIN 90 TO 94 INTO CODICE==CODICE
JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP TO 90 ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN BEN TO 94 ALIAS 600 INTO CODTAB==TIPOBEN
END
DESCRIPTION
BEGIN
94->* "Benemerenze"
90->* "Soggetti Sezioni AVIS"
501@->* "Comune di domicilio"
100@->* "Localita' postali"
600@->* "Benemerenze"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
GRID ""
END
SECTION BODY ODD 67
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 51 11 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 51 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 90->DOM_CAP
PROMPT 51 15 ""
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 27 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 57 15 ""
END
STRINGA 10 30
BEGIN
KEY "Benemerenza"
FIELD 600@->S0
PROMPT 20 35 ""
END
STRING 11 30
BEGIN
KEY "Presso"
PROMPT 51 14 ""
FIELD 90->DOM_DISTRI
END
END
END

41
at/atlecobo.frm
View File

@ -7,7 +7,6 @@ JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM
JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT
JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7 JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7
JOIN 13 TO 400@ ALIAS 503 INTO COM==S6 JOIN 13 TO 400@ ALIAS 503 INTO COM==S6
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -19,7 +18,6 @@ BEGIN
400@->* "Punti di prelievo" 400@->* "Punti di prelievo"
96->* "Sezioni associative" 96->* "Sezioni associative"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -27,9 +25,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 70 SECTION BODY ODD 70
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -38,7 +34,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -47,20 +42,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 51 STRINGA 3 51
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 56 16 "" PROMPT 56 16 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 56 17 "" PROMPT 56 17 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -68,16 +60,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
//FIELD 100@->S6
//FIELD 501@->CAPCOM
FIELD 90->DOM_CAP FIELD 90->DOM_CAP
PROMPT 56 19 "" PROMPT 56 19 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -87,7 +75,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -96,47 +83,39 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 50 2 STRINGA 9 50 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 62 19 "" PROMPT 62 19 ""
END END
STRINGA 10 25 STRINGA 10 25
BEGIN BEGIN
KEY "Invito per" KEY "Invito per"
PROMPT 11 4 "per DONAZIONE SANGUE" PROMPT 11 4 "per DONAZIONE SANGUE"
//FIELD 115->TIPO
END END
STRINGA 11 25 STRINGA 11 25
BEGIN BEGIN
KEY "Data convocazione" KEY "Data convocazione"
PROMPT 37 2 "" PROMPT 37 2 ""
FIELD 116->DATACONV FIELD 116->DATACONV
END END
STRINGA 12 10 STRINGA 12 10
BEGIN BEGIN
KEY "TESTO" KEY "TESTO"
PROMPT 11 5 "Presso" PROMPT 11 5 "Presso"
END END
STRINGA 13 50 STRINGA 13 50
BEGIN BEGIN
KEY "Presso: denominazione punto di prelievo" KEY "Presso: denominazione punto di prelievo"
PROMPT 11 6 "" PROMPT 11 6 ""
FIELD 400@->S0 FIELD 400@->S0
END END
STRINGA 14 50 STRINGA 14 50
BEGIN BEGIN
KEY "Presso: indirizzo punto di prelievo" KEY "Presso: indirizzo punto di prelievo"
PROMPT 11 7 "" PROMPT 11 7 ""
FIELD 400@->S1 FIELD 400@->S1
END END
STRINGA 15 4 STRINGA 15 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -144,16 +123,12 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 16 5 STRINGA 16 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
//FIELD 102@->S6
//FIELD 503@->CAPCOM
FIELD 400@->S8 FIELD 400@->S8
PROMPT 11 8 "" PROMPT 11 8 ""
END END
STRINGA 17 30 STRINGA 17 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -163,7 +138,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,20|COPY,20 MESSAGE RESET,20|COPY,20
END END
STRINGA 18 5 STRINGA 18 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -172,7 +146,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,20 MESSAGE APPEND,20
END END
STRINGA 19 20 STRINGA 19 20
BEGIN BEGIN
KEY "telefoni" KEY "telefoni"
@ -181,77 +154,63 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,20 MESSAGE APPEND,20
END END
STRINGA 20 50 2 STRINGA 20 50 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 17 8 "" PROMPT 17 8 ""
END END
STRINGA 21 50 STRINGA 21 50
BEGIN BEGIN
KEY "orario" KEY "orario"
PROMPT 11 9 "" PROMPT 11 9 ""
FIELD 400@->S2 FIELD 400@->S2
END END
STRING 22 2 STRING 22 2
BEGIN BEGIN
KEY "Sezione" KEY "Sezione"
PROMPT 20 16 "" PROMPT 20 16 ""
FIELD 90->CODSEZ FIELD 90->CODSEZ
END END
STRING 23 2 STRING 23 2
BEGIN BEGIN
KEY "Sottogruppo" KEY "Sottogruppo"
FIELD 90->CODSOT FIELD 90->CODSOT
PROMPT 22 16 "" PROMPT 22 16 ""
END END
STRING 24 2 STRING 24 2
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
FIELD 90->CATDON FIELD 90->CATDON
PROMPT 30 16 "" PROMPT 30 16 ""
END END
STRINGA 25 2 STRINGA 25 2
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
FIELD 90->CODCL FIELD 90->CODCL
PROMPT 35 16 "" PROMPT 35 16 ""
END END
STRINGA 26 6 STRINGA 26 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
PROMPT 37 16 "" PROMPT 37 16 ""
END END
STRINGA 27 25 STRINGA 27 25
BEGIN BEGIN
KEY "" KEY ""
PROMPT 20 19 "Presentarsi a digiuno" PROMPT 20 19 "Presentarsi a digiuno"
END END
STRING 28 4 STRING 28 4
BEGIN BEGIN
KEY "Gruppo az." KEY "Gruppo az."
PROMPT 15 16 "" PROMPT 15 16 ""
FIELD 90->GRUPPOAZIE FIELD 90->GRUPPOAZIE
END END
STRING 29 30 STRING 29 30
BEGIN BEGIN
KEY "Gruppo az." KEY "Gruppo az."
PROMPT 56 18 "" PROMPT 56 18 ""
FIELD 90->DOM_DISTRI FIELD 90->DOM_DISTRI
END END
END END
END END

83
at/atlecopr.frm Executable file
View File

@ -0,0 +1,83 @@
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
END
END

113
at/atlesobo.frm Executable file
View File

@ -0,0 +1,113 @@
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

101
at/atletsos.frm Executable file
View File

@ -0,0 +1,101 @@
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
DATA 12
BEGIN
KEY "Data fine sospensione"
FIELD 90->DATA_PROS
PROMPT 35 30 ""
END
END
END

49
at/atletter.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,9 +15,7 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 63 SECTION BODY ODD 63
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -28,7 +24,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -37,20 +32,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 33 2 STRINGA 3 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 48 11 "" PROMPT 48 11 ""
END END
STRINGA 4 30 STRINGA 4 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 48 13 "" PROMPT 48 13 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -58,7 +50,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -66,7 +57,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 48 15 "" PROMPT 48 15 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -76,7 +66,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -85,48 +74,10 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 27 2 STRINGA 9 27 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 54 15 "" PROMPT 54 15 ""
END END
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 5 22 ""
END 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 END

207
at/atmodint.frm Executable file
View File

@ -0,0 +1,207 @@
USE 90
JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT
JOIN 97 INTO CODMED==CODMED
JOIN CTD ALIAS 700 INTO CODTAB==CATDON
JOIN TCS ALIAS 200 INTO CODTAB==STATO
JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC
JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE
JOIN 94 INTO CODICE==CODICE
JOIN BNZ TO 94 ALIAS 600 INTO CODTAB==TIPOBEN
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
100@->* "Localita' postali"
200@->* "TCS"
300@->* "GAZ"
100@->* "LCP"
500@->* "Comune di nascita"
501@->* "Comuni di domicilio"
600@->* "Tabella benemerenze"
96->* "Sezioni AVIS"
97->* "Medici"
94->* "Benemerenze"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 70
STRINGA 1 50
BEGIN
KEY "Intestazione della scheda + data del giorno"
PROMPT 15 12 ""
MESSAGE _TODAY
END
STRINGA 2 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,4|COPY,4
FIELD 90->COGNOME
END
STRINGA 3 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,4
FIELD 90->NOME
END
STRINGA 4 51 1
BEGIN
KEY "Cognome e nome"
PROMPT 15 18 ""
END
NUMERO 5 8
BEGIN
KEY "Codice soggetto"
PROMPT 15 20 ""
FIELD 90->CODICE
END
STRINGA 6 2
BEGIN
KEY "Categoria"
PROMPT 67 20 ""
FIELD 90->CATDON
END
STRINGA 7 50
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
FIELD 500@->DENCOM
END
STRINGA 8 5
BEGIN
KEY "Provincia di nascita"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
FIELD 500@->PROVCOM
END
STRINGA 9 55
BEGIN
KEY "Comune e provincia di nascita"
PROMPT 15 22 ""
END
DATA 10 18
BEGIN
KEY "Data nascita"
PROMPT 67 22 ""
FIELD 90->DATANASC
FORMAT "1444-"
END
STRINGA 11 30 1
BEGIN
KEY "Indirizzo"
PROMPT 15 24 ""
FIELD 90->DOM_INDIR
END
STRINGA 12 4
BEGIN
KEY "Codice localita'"
PROMPT 0 0 ""
FLAGS "H"
FIELD 90->DOM_CODLOC
END
STRINGA 13 30
BEGIN
KEY "Denominazione localita' o comune"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,15|COPY,15
FIELD 100@->S0
FIELD 501@->DENCOM
END
STRINGA 14 5
BEGIN
KEY "Provincia"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,15
FIELD 501@->PROVCOM
END
STRINGA 15 50 1
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 15 26 ""
END
STRINGA 16 25
BEGIN
KEY "Codice fiscale"
PROMPT 15 28 ""
FIELD 90->CF
END
STRINGA 17 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 45 28 ""
FIELD 90->GRUPPOAB0
END
STRINGA 18 15
BEGIN
KEY "Rh/AntiD"
PROMPT 66 28 ""
FIELD 90->RHANTID
END
LISTA 19
BEGIN
KEY "Sesso"
PROMPT 67 18 ""
FIELD 90->SESSO
ITEM "0|?"
ITEM "1|M"
ITEM "2|F"
ITEM "9|?"
END
STRINGA 20
BEGIN
PROMPT 0 0 ""
FLAG "H"
END
STRINGA 21
BEGIN
PROMPT 0 0 ""
FLAG "H"
END
STRINGA 22
BEGIN
PROMPT 0 0 ""
FLAG "H"
END
END // FINE SECTION BODY
END // END FORM

485
at/atpaluzz.frm Executable file
View File

@ -0,0 +1,485 @@
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 60
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 8
BEGIN
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
END
STRINGA 21 20
BEGIN
KEY "Cartella clinica"
PROMPT 1 12 "Cod.prov. "
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 64 25
BEGIN
KEY "Codice CT"
PROMPT 1 16 "Cod. CT "
FIELD 90->CODCT
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@->S3[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 "
FIELD 90->TESSSSN
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 "SP|Spontanea"
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
DATA 62 25
BEGIN
KEY "Data prima donazione"
PROMPT 1 20 "Prima don. "
FIELD 90->DATAPRISI
END
STRINGA 63 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
END
END

BIN
at/atprassi.hlp
View File

Binary file not shown.

61
at/atrubrpr.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,115 +15,94 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION HEADER ODD 3 SECTION HEADER ODD 3
STRINGA 1 15 STRINGA 1 15
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome" PROMPT 1 2 "Cognome e nome"
END END
STRINGA 2 15 STRINGA 2 15
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
PROMPT 37 2 "Indirizzo" PROMPT 37 2 "Indirizzo"
END END
STRINGA 3 15 STRINGA 3 15
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
PROMPT 59 2 "Localita'" PROMPT 59 2 "Localita'"
END END
STRINGA 4 14 STRINGA 4 14
BEGIN BEGIN
KEY "Telefono abit." KEY "Telefono abit."
PROMPT 96 2 "Telefono abit." PROMPT 96 2 "Telefono abit."
END END
STRINGA 5 10 STRINGA 5 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 111 2 "Data nasc." PROMPT 111 2 "Data nasc."
END END
STRINGA 6 3 STRINGA 6 3
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 122 2 "AB0" PROMPT 122 2 "AB0"
END END
STRINGA 7 3 STRINGA 7 3
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
PROMPT 126 2 "Rh" PROMPT 126 2 "Rh"
END END
STRINGA 8 6 STRINGA 8 6
BEGIN BEGIN
KEY "Fenotipo" KEY "Fenotipo"
PROMPT 130 2 "Fen.Rh" PROMPT 130 2 "Fen.Rh"
END END
STRINGA 9 3 STRINGA 9 3
BEGIN BEGIN
KEY "Kell" KEY "Kell"
PROMPT 137 2 "Kel" PROMPT 137 2 "Kel"
END END
STRINGA 10 3 STRINGA 10 3
BEGIN BEGIN
KEY "Du" KEY "Du"
PROMPT 141 2 "Du" PROMPT 141 2 "Du"
END END
STRINGA 11 5 STRINGA 11 5
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
PROMPT 145 2 "Tess." PROMPT 145 2 "Tess."
END END
STRINGA 12 3 STRINGA 12 3
BEGIN BEGIN
KEY "Tot.don." KEY "Tot.don."
PROMPT 152 2 "Don." PROMPT 152 2 "Don."
END END
STRINGA 13 10 STRINGA 13 10
BEGIN BEGIN
KEY "Data ultima donazione" KEY "Data ultima donazione"
PROMPT 156 2 "Ult.donaz." PROMPT 156 2 "Ult.donaz."
END END
STRINGA 14 10 STRINGA 14 10
BEGIN BEGIN
KEY "Data stato" KEY "Data stato"
PROMPT 167 2 "Data stato" PROMPT 167 2 "Data stato"
END END
STRINGA 15 2 STRINGA 15 2
BEGIN BEGIN
KEY "Stato attuale" KEY "Stato attuale"
PROMPT 178 2 "St" PROMPT 178 2 "St"
END END
STRINGA 16 10 STRINGA 16 10
BEGIN BEGIN
KEY "Data stato prossimo" KEY "Data stato prossimo"
PROMPT 181 2 "Fine sosp." PROMPT 181 2 "Fine sosp."
END END
STRINGA 17 11 STRINGA 17 11
BEGIN BEGIN
KEY "Idoneita' alla doanzione" KEY "Idoneita' alla doanzione"
PROMPT 192 2 "Tipi donaz." PROMPT 192 2 "Tipi donaz."
END END
END
END // END SECTION HEADER
SECTION BODY ODD 1 SECTION BODY ODD 1
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -134,7 +111,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -143,20 +119,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 35 2 STRINGA 3 35 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
STRINGA 4 20 2 STRINGA 4 20 2
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 37 1 "" PROMPT 37 1 ""
END END
STRINGA 5 4 STRINGA 5 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -164,7 +137,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 6 5 STRINGA 6 5
BEGIN BEGIN
KEY "CAP" KEY "CAP"
@ -172,7 +144,6 @@ BEGIN
FIELD 13->CAPCOM FIELD 13->CAPCOM
PROMPT 59 1 "" PROMPT 59 1 ""
END END
STRINGA 7 30 STRINGA 7 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -182,7 +153,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,9|COPY,9 MESSAGE RESET,9|COPY,9
END END
STRINGA 8 5 STRINGA 8 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -191,142 +161,119 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,9 MESSAGE APPEND,9
END END
STRINGA 9 30 2 STRINGA 9 30 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 65 1 "" PROMPT 65 1 ""
END END
STRINGA 10 14 STRINGA 10 14
BEGIN BEGIN
KEY "Telefono abitazione" KEY "Telefono abitazione"
PROMPT 96 1 "" PROMPT 96 1 ""
FIELD 90->TELABI FIELD 90->TELABI
END END
DATA 11 10 DATA 11 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 111 1 "" PROMPT 111 1 ""
FIELD 90->DATANASC FIELD 90->DATANASC
END END
STRINGA 12 3 STRINGA 12 3
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 122 1 "" PROMPT 122 1 ""
FIELD 90->GRUPPOAB0 FIELD 90->GRUPPOAB0
END END
STRINGA 13 3 STRINGA 13 3
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
PROMPT 126 1 "" PROMPT 126 1 ""
FIELD 90->RHANTID FIELD 90->RHANTID
END END
STRINGA 14 6 STRINGA 14 6
BEGIN BEGIN
KEY "Fenotipo" KEY "Fenotipo"
PROMPT 130 1 "" PROMPT 130 1 ""
FIELD 90->FENOTIPORH FIELD 90->FENOTIPORH
END END
STRINGA 15 3 STRINGA 15 3
BEGIN BEGIN
KEY "Kell" KEY "Kell"
PROMPT 137 1 "" PROMPT 137 1 ""
FIELD 90->KELL FIELD 90->KELL
END END
STRINGA 16 3 STRINGA 16 3
BEGIN BEGIN
KEY "Du" KEY "Du"
PROMPT 141 1 "" PROMPT 141 1 ""
FIELD 90->DU FIELD 90->DU
END END
STRINGA 17 6 STRINGA 17 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
PROMPT 145 1 "" PROMPT 145 1 ""
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
END END
NUMERO 18 3 NUMERO 18 3
BEGIN BEGIN
KEY "Tot.don." KEY "Tot.don."
PROMPT 152 1 "" PROMPT 152 1 ""
FIELD 90->TOTDON FIELD 90->TOTDON
END END
DATA 18 10 DATA 18 10
BEGIN BEGIN
KEY "Data ultima donazione" KEY "Data ultima donazione"
PROMPT 156 1 "" PROMPT 156 1 ""
FIELD 90->DATAULTDON FIELD 90->DATAULTDON
END END
DATA 19 10 DATA 19 10
BEGIN BEGIN
KEY "Data stato" KEY "Data stato"
PROMPT 167 1 "" PROMPT 167 1 ""
FIELD 90->DATASTATO FIELD 90->DATASTATO
END END
STRINGA 20 2 STRINGA 20 2
BEGIN BEGIN
KEY "Stato attuale" KEY "Stato attuale"
PROMPT 178 1 "" PROMPT 178 1 ""
FIELD 90->STATO FIELD 90->STATO
END END
DATA 21 10 DATA 21 10
BEGIN BEGIN
KEY "Data stato prossimo" KEY "Data stato prossimo"
PROMPT 181 1 "" PROMPT 181 1 ""
FIELD 90->DATA_PROS FIELD 90->DATA_PROS
END END
STRINGA 22 2 STRINGA 22 2
BEGIN BEGIN
KEY "Idoneita' 1" KEY "Idoneita' 1"
PROMPT 192 1 "" PROMPT 192 1 ""
FIELD 90->IDON1 FIELD 90->IDON1
END END
STRINGA 23 2 STRINGA 23 2
BEGIN BEGIN
KEY "Idoneita' 2" KEY "Idoneita' 2"
PROMPT 195 1 "" PROMPT 195 1 ""
FIELD 90->IDON2 FIELD 90->IDON2
END END
STRINGA 24 2 STRINGA 24 2
BEGIN BEGIN
KEY "Idoneita' 3" KEY "Idoneita' 3"
PROMPT 198 1 "" PROMPT 198 1 ""
FIELD 90->IDON3 FIELD 90->IDON3
END END
STRINGA 25 2 STRINGA 25 2
BEGIN BEGIN
KEY "Idoneita' 4" KEY "Idoneita' 4"
PROMPT 201 1 "" PROMPT 201 1 ""
FIELD 90->IDON4 FIELD 90->IDON4
END END
END
END // END SECTION BODY
SECTION FOOTER ODD 3 SECTION FOOTER ODD 3
STRINGA 1 10 STRINGA 1 10
BEGIN BEGIN
KEY "Niente" KEY "Niente"
PROMPT 1 1 "---" PROMPT 1 1 "---"
END END
END
END // END SECTION FOOTER END
END // END FORM

47
at/atrubrrn.frm
View File

@ -1,7 +1,6 @@
USE 90 USE 90
JOIN 13 INTO COM==DOM_CODCOM JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -9,7 +8,6 @@ BEGIN
13->* "COMUNI" 13->* "COMUNI"
100@->* "Localita' postali" 100@->* "Localita' postali"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -17,85 +15,69 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION HEADER ODD 3 SECTION HEADER ODD 3
STRINGA 1 15 STRINGA 1 15
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome" PROMPT 1 2 "Cognome e nome"
END END
STRINGA 2 10 STRINGA 2 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 37 2 "Data nasc." PROMPT 37 2 "Data nasc."
END END
STRINGA 3 3 STRINGA 3 3
BEGIN BEGIN
KEY "Tot.don." KEY "Tot.don."
PROMPT 48 2 "Don." PROMPT 48 2 "Don."
END END
STRINGA 4 3 STRINGA 4 3
BEGIN BEGIN
KEY "Tot.don.Si" KEY "Tot.don.Si"
PROMPT 52 2 " SI" PROMPT 52 2 " SI"
END END
STRINGA 5 3 STRINGA 5 3
BEGIN BEGIN
KEY "Tot.don.Af" KEY "Tot.don.Af"
PROMPT 56 2 " AF" PROMPT 56 2 " AF"
END END
STRINGA 6 10 STRINGA 6 10
BEGIN BEGIN
KEY "Data ultima donazione" KEY "Data ultima donazione"
PROMPT 60 2 "Ult.donaz." PROMPT 60 2 "Ult.donaz."
END END
STRINGA 7 10 STRINGA 7 10
BEGIN BEGIN
KEY "Data stato" KEY "Data stato"
PROMPT 71 2 "Data stato" PROMPT 71 2 "Data stato"
END END
STRINGA 8 2 STRINGA 8 2
BEGIN BEGIN
KEY "Stato attuale" KEY "Stato attuale"
PROMPT 82 2 "St" PROMPT 82 2 "St"
END END
STRINGA 9 10 STRINGA 9 10
BEGIN BEGIN
KEY "Data stato prossimo" KEY "Data stato prossimo"
PROMPT 85 2 "Fine sosp." PROMPT 85 2 "Fine sosp."
END END
STRINGA 10 11 STRINGA 10 11
BEGIN BEGIN
KEY "Idoneita' alla doanzione" KEY "Idoneita' alla doanzione"
PROMPT 96 2 "Tipi donaz." PROMPT 96 2 "Tipi donaz."
END END
STRINGA 11 10 STRINGA 11 10
BEGIN BEGIN
KEY "Data prima SI" KEY "Data prima SI"
PROMPT 108 2 "Data pr.SI" PROMPT 108 2 "Data pr.SI"
END END
STRINGA 12 10 STRINGA 12 10
BEGIN BEGIN
KEY "Data prima AF" KEY "Data prima AF"
PROMPT 119 2 "Data pr.AF" PROMPT 119 2 "Data pr.AF"
END END
END
END // END SECTION HEADER
SECTION BODY ODD 1 SECTION BODY ODD 1
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -104,7 +86,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -113,20 +94,17 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 35 2 STRINGA 3 35 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
DATA 4 10 DATA 4 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 37 1 "" PROMPT 37 1 ""
FIELD 90->DATANASC FIELD 90->DATANASC
END END
NUMERO 5 3 NUMERO 5 3
BEGIN BEGIN
KEY "Tot.don." KEY "Tot.don."
@ -134,7 +112,6 @@ BEGIN
FIELD 90->TOTDON FIELD 90->TOTDON
PICTURE "###" PICTURE "###"
END END
NUMERO 6 3 NUMERO 6 3
BEGIN BEGIN
KEY "Tot.don.SI" KEY "Tot.don.SI"
@ -142,7 +119,6 @@ BEGIN
FIELD 90->TOTDONSI FIELD 90->TOTDONSI
PICTURE "###" PICTURE "###"
END END
NUMERO 7 3 NUMERO 7 3
BEGIN BEGIN
KEY "Tot.don.AF" KEY "Tot.don.AF"
@ -150,87 +126,72 @@ BEGIN
FIELD 90->TOTDONAF FIELD 90->TOTDONAF
PICTURE "###" PICTURE "###"
END END
DATA 8 10 DATA 8 10
BEGIN BEGIN
KEY "Data ultima donazione" KEY "Data ultima donazione"
PROMPT 60 1 "" PROMPT 60 1 ""
FIELD 90->DATAULTDON FIELD 90->DATAULTDON
END END
DATA 9 10 DATA 9 10
BEGIN BEGIN
KEY "Data stato" KEY "Data stato"
PROMPT 71 1 "" PROMPT 71 1 ""
FIELD 90->DATASTATO FIELD 90->DATASTATO
END END
STRINGA 10 2 STRINGA 10 2
BEGIN BEGIN
KEY "Stato attuale" KEY "Stato attuale"
PROMPT 82 1 "" PROMPT 82 1 ""
FIELD 90->STATO FIELD 90->STATO
END END
DATA 11 10 DATA 11 10
BEGIN BEGIN
KEY "Data stato prossimo" KEY "Data stato prossimo"
PROMPT 85 1 "" PROMPT 85 1 ""
FIELD 90->DATA_PROS FIELD 90->DATA_PROS
END END
STRINGA 12 2 STRINGA 12 2
BEGIN BEGIN
KEY "Idoneita' 1" KEY "Idoneita' 1"
PROMPT 96 1 "" PROMPT 96 1 ""
FIELD 90->IDON1 FIELD 90->IDON1
END END
STRINGA 13 2 STRINGA 13 2
BEGIN BEGIN
KEY "Idoneita' 2" KEY "Idoneita' 2"
PROMPT 99 1 "" PROMPT 99 1 ""
FIELD 90->IDON2 FIELD 90->IDON2
END END
STRINGA 14 2 STRINGA 14 2
BEGIN BEGIN
KEY "Idoneita' 3" KEY "Idoneita' 3"
PROMPT 102 1 "" PROMPT 102 1 ""
FIELD 90->IDON3 FIELD 90->IDON3
END END
STRINGA 15 2 STRINGA 15 2
BEGIN BEGIN
KEY "Idoneita' 4" KEY "Idoneita' 4"
PROMPT 105 1 "" PROMPT 105 1 ""
FIELD 90->IDON4 FIELD 90->IDON4
END END
DATA 16 10 DATA 16 10
BEGIN BEGIN
KEY "Data prima donazione SI" KEY "Data prima donazione SI"
PROMPT 108 1 "" PROMPT 108 1 ""
FIELD 90->DATAPRISI FIELD 90->DATAPRISI
END END
DATA 17 10 DATA 17 10
BEGIN BEGIN
KEY "Data prima donazione AF" KEY "Data prima donazione AF"
PROMPT 119 1 "" PROMPT 119 1 ""
FIELD 90->DATAPRIAF FIELD 90->DATAPRIAF
END END
END
END // END SECTION BODY
SECTION FOOTER ODD 3 SECTION FOOTER ODD 3
STRINGA 1 10 STRINGA 1 10
BEGIN BEGIN
KEY "Niente" KEY "Niente"
PROMPT 1 1 "---" PROMPT 1 1 "---"
END END
END
END // END SECTION FOOTER END
END // END FORM

43
at/atrubrsa.frm
View File

@ -1,11 +1,9 @@
USE 90 USE 90
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
90->* "Soggetti Sezioni AVIS" 90->* "Soggetti Sezioni AVIS"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -13,82 +11,64 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION HEADER ODD 3 SECTION HEADER ODD 3
STRINGA 1 6 STRINGA 1 6
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
PROMPT 1 3 "N.Car." PROMPT 1 3 "N.Car."
END END
STRINGA 2 2 STRINGA 2 2
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
PROMPT 8 3 "C." PROMPT 8 3 "C."
END END
STRINGA 3 15 STRINGA 3 15
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 11 3 "Cognome e nome" PROMPT 11 3 "Cognome e nome"
END END
STRINGA 4 7 STRINGA 4 7
BEGIN BEGIN
KEY "Nato il" KEY "Nato il"
PROMPT 63 3 "Nato il" PROMPT 63 3 "Nato il"
END END
STRINGA 5 9 STRINGA 5 9
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 74 3 " AB0 " PROMPT 74 3 " AB0 "
END END
STRINGA 6 9 STRINGA 6 9
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
PROMPT 84 3 " Rh " PROMPT 84 3 " Rh "
END END
STRINGA 7 9 STRINGA 7 9
BEGIN BEGIN
KEY "Kell" KEY "Kell"
PROMPT 94 3 " Kell " PROMPT 94 3 " Kell "
END END
STRINGA 8 9 STRINGA 8 9
BEGIN BEGIN
KEY "Du" KEY "Du"
PROMPT 104 3 " Du " PROMPT 104 3 " Du "
END END
STRINGA 9 13 STRINGA 9 13
BEGIN BEGIN
KEY "Fenotipo" KEY "Fenotipo"
PROMPT 114 3 " Fenotipo Rh " PROMPT 114 3 " Fenotipo Rh "
END END
STRINGA 10 10 STRINGA 10 10
BEGIN BEGIN
KEY "Data" KEY "Data"
PROMPT 1 2 "Data " PROMPT 1 2 "Data "
MESSAGE _TODAY MESSAGE _TODAY
END END
NUMERO 11 7 NUMERO 11 7
BEGIN BEGIN
KEY "Nr. pagina" KEY "Nr. pagina"
//PROMPT 115 2 "Pag. "
//MESSAGE _PAGENO
END END
END
END // END SECTION HEADER
SECTION BODY ODD 3 SECTION BODY ODD 3
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -97,7 +77,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -106,79 +85,65 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 51 STRINGA 3 51
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 11 1 "" PROMPT 11 1 ""
END END
STRINGA 4 6 STRINGA 4 6
BEGIN BEGIN
KEY "Cartella clinica" KEY "Cartella clinica"
PROMPT 1 1 "" PROMPT 1 1 ""
FIELD 90->CODCL FIELD 90->CODCL
END END
STRINGA 5 2 STRINGA 5 2
BEGIN BEGIN
KEY "Categoria" KEY "Categoria"
PROMPT 8 1 "" PROMPT 8 1 ""
FIELD 90->CATDON FIELD 90->CATDON
END END
DATA 6 10 DATA 6 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 63 1 "" PROMPT 63 1 ""
FIELD 90->DATANASC FIELD 90->DATANASC
END END
STRINGA 7 3 STRINGA 7 3
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 77 1 "" PROMPT 77 1 ""
FIELD 90->GRUPPOAB0 FIELD 90->GRUPPOAB0
END END
STRINGA 8 3 STRINGA 8 3
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
PROMPT 87 1 "" PROMPT 87 1 ""
FIELD 90->RHANTID FIELD 90->RHANTID
END END
STRINGA 9 3 STRINGA 9 3
BEGIN BEGIN
KEY "Kell" KEY "Kell"
PROMPT 97 1 "" PROMPT 97 1 ""
FIELD 90->KELL FIELD 90->KELL
END END
STRINGA 10 3 STRINGA 10 3
BEGIN BEGIN
KEY "Du" KEY "Du"
PROMPT 107 1 "" PROMPT 107 1 ""
FIELD 90->DU FIELD 90->DU
END END
STRINGA 11 6 STRINGA 11 6
BEGIN BEGIN
KEY "Fenotipo" KEY "Fenotipo"
PROMPT 115 1 "" PROMPT 115 1 ""
FIELD 90->FENOTIPORH FIELD 90->FENOTIPORH
END END
END
END // END SECTION BODY
SECTION FOOTER ODD 3 SECTION FOOTER ODD 3
STRINGA 1 10 STRINGA 1 10
BEGIN BEGIN
KEY "Niente" KEY "Niente"
PROMPT 1 1 "---" PROMPT 1 1 "---"
END END
END
END // END SECTION FOOTER END
END // END FORM

60
at/atscadbo.frm
View File

@ -1,11 +1,9 @@
USE 90 USE 90
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
90->* "Soggetti Sezioni AVIS" 90->* "Soggetti Sezioni AVIS"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -13,163 +11,134 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION HEADER ODD 4 SECTION HEADER ODD 4
STRINGA 1 15 STRINGA 1 15
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome" PROMPT 1 2 "Cognome e nome"
END END
STRINGA 2 10 STRINGA 2 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 37 2 "Data nasc." PROMPT 37 2 "Data nasc."
END END
STRINGA 3 6 STRINGA 3 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
PROMPT 48 2 "Tess." PROMPT 48 2 "Tess."
END END
STRINGA 4 2 STRINGA 4 2
BEGIN BEGIN
KEY "Cat.don." KEY "Cat.don."
PROMPT 50 3 "Ca" PROMPT 50 3 "Ca"
END END
STRINGA 5 10 STRINGA 5 10
BEGIN BEGIN
KEY "Data ult. don." KEY "Data ult. don."
PROMPT 58 2 "Ult. don." PROMPT 58 2 "Ult. don."
END END
STRINGA 6 4 STRINGA 6 4
BEGIN BEGIN
KEY "Totale donazioni" KEY "Totale donazioni"
PROMPT 69 2 "Tot." PROMPT 69 2 "Tot."
END END
STRINGA 7 4 STRINGA 7 4
BEGIN BEGIN
KEY "Totale donazioni" KEY "Totale donazioni"
PROMPT 69 3 "don." PROMPT 69 3 "don."
END END
STRINGA 8 6 STRINGA 8 6
BEGIN BEGIN
KEY "Int. SI" KEY "Int. SI"
PROMPT 73 2 "Int.SI" PROMPT 73 2 "Int.SI"
END END
STRINGA 9 6 STRINGA 9 6
BEGIN BEGIN
KEY "Int. AF" KEY "Int. AF"
PROMPT 73 3 "Int.AF" PROMPT 73 3 "Int.AF"
END END
STRINGA 10 4 STRINGA 10 4
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 80 2 "Grup" PROMPT 80 2 "Grup"
END END
STRINGA 11 3 STRINGA 11 3
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
PROMPT 80 3 "Rh" PROMPT 80 3 "Rh"
END END
STRINGA 12 14 STRINGA 12 14
BEGIN BEGIN
KEY "Telefono abitazione" KEY "Telefono abitazione"
PROMPT 85 2 "Tel. abitaz." PROMPT 85 2 "Tel. abitaz."
END END
STRINGA 13 14 STRINGA 13 14
BEGIN BEGIN
KEY "Telefono lavoro" KEY "Telefono lavoro"
PROMPT 85 3 "Tel. lavoro" PROMPT 85 3 "Tel. lavoro"
END END
STRINGA 14 14 STRINGA 14 14
BEGIN BEGIN
KEY "Telefono altro" KEY "Telefono altro"
PROMPT 100 2 "Tel. altro" PROMPT 100 2 "Tel. altro"
END END
STRINGA 15 15 STRINGA 15 15
BEGIN BEGIN
KEY "Data prosssima SI" KEY "Data prosssima SI"
PROMPT 115 2 "Data pross.SI" PROMPT 115 2 "Data pross.SI"
END END
STRINGA 16 35 STRINGA 16 35
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 4 "-----------------------------------" PROMPT 1 4 "-----------------------------------"
END END
STRINGA 17 10 STRINGA 17 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 37 4 "----------" PROMPT 37 4 "----------"
END END
STRINGA 18 6 STRINGA 18 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
PROMPT 48 4 "------" PROMPT 48 4 "------"
END END
STRINGA 19 10 STRINGA 19 10
BEGIN BEGIN
KEY "Data ult. don." KEY "Data ult. don."
PROMPT 58 4 "----------" PROMPT 58 4 "----------"
END END
STRINGA 20 3 STRINGA 20 3
BEGIN BEGIN
KEY "Totale donazioni" KEY "Totale donazioni"
PROMPT 69 4 "---" PROMPT 69 4 "---"
END END
STRINGA 21 6 STRINGA 21 6
BEGIN BEGIN
KEY "Int. SI" KEY "Int. SI"
PROMPT 73 4 "------" PROMPT 73 4 "------"
END END
STRINGA 22 4 STRINGA 22 4
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 80 4 "----" PROMPT 80 4 "----"
END END
STRINGA 23 14 STRINGA 23 14
BEGIN BEGIN
KEY "Telefono abitazione" KEY "Telefono abitazione"
PROMPT 85 4 "--------------" PROMPT 85 4 "--------------"
END END
STRINGA 24 14 STRINGA 24 14
BEGIN BEGIN
KEY "Telefono altro" KEY "Telefono altro"
PROMPT 100 4 "--------------" PROMPT 100 4 "--------------"
END END
STRINGA 15 15 STRINGA 15 15
BEGIN BEGIN
KEY "Data prosssima SI" KEY "Data prosssima SI"
PROMPT 115 4 "-------------" PROMPT 115 4 "-------------"
END END
END
END // END SECTION HEADER
SECTION BODY ODD 3 SECTION BODY ODD 3
STRINGA 1 25 STRINGA 1 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -178,7 +147,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,3|COPY,3 MESSAGE RESET,3|COPY,3
END END
STRINGA 2 25 STRINGA 2 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -187,121 +155,101 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,3 MESSAGE APPEND,3
END END
STRINGA 3 35 2 STRINGA 3 35 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 1 1 "" PROMPT 1 1 ""
END END
DATA 4 10 DATA 4 10
BEGIN BEGIN
KEY "Data nascita" KEY "Data nascita"
PROMPT 37 1 "" PROMPT 37 1 ""
FIELD 90->DATANASC FIELD 90->DATANASC
END END
STRINGA 5 6 STRINGA 5 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
PROMPT 48 1 "" PROMPT 48 1 ""
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
END END
STRINGA 6 2 STRINGA 6 2
BEGIN BEGIN
KEY "Cat.don." KEY "Cat.don."
PROMPT 50 2 "" PROMPT 50 2 ""
FIELD 90->CATDON FIELD 90->CATDON
END END
DATA 7 DATA 7
BEGIN BEGIN
KEY "Data ult. don." KEY "Data ult. don."
PROMPT 58 1 "" PROMPT 58 1 ""
FIELD 90->DATAULTDON FIELD 90->DATAULTDON
END END
STRINGA 8 2 STRINGA 8 2
BEGIN BEGIN
KEY "Tipo ult. don." KEY "Tipo ult. don."
PROMPT 61 2 "" PROMPT 61 2 ""
FIELD 90->TIPOULTDON FIELD 90->TIPOULTDON
END END
NUMERO 9 3 NUMERO 9 3
BEGIN BEGIN
KEY "Totale donaz." KEY "Totale donaz."
PROMPT 69 1 "" PROMPT 69 1 ""
FIELD 90->TOTDON FIELD 90->TOTDON
END END
NUMERO 10 3 NUMERO 10 3
BEGIN BEGIN
KEY "Int. SI" KEY "Int. SI"
PROMPT 76 1 "" PROMPT 76 1 ""
FIELD 90->INTSI FIELD 90->INTSI
END END
NUMERO 11 3 NUMERO 11 3
BEGIN BEGIN
KEY "Int. AF" KEY "Int. AF"
PROMPT 76 2 "" PROMPT 76 2 ""
FIELD 90->INTAF FIELD 90->INTAF
END END
STRINGA 12 3 STRINGA 12 3
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
PROMPT 80 1 "" PROMPT 80 1 ""
FIELD 90->GRUPPOAB0 FIELD 90->GRUPPOAB0
END END
STRINGA 13 3 STRINGA 13 3
BEGIN BEGIN
KEY "Rh/AntiD" KEY "Rh/AntiD"
PROMPT 80 2 "" PROMPT 80 2 ""
FIELD 90->RHANTID FIELD 90->RHANTID
END END
STRINGA 14 14 STRINGA 14 14
BEGIN BEGIN
KEY "Telefono abitazione" KEY "Telefono abitazione"
PROMPT 85 1 "" PROMPT 85 1 ""
FIELD 90->TELABI FIELD 90->TELABI
END END
STRINGA 15 14 STRINGA 15 14
BEGIN BEGIN
KEY "Telefono lavoro" KEY "Telefono lavoro"
PROMPT 85 2 "" PROMPT 85 2 ""
FIELD 90->TELLAV FIELD 90->TELLAV
END END
STRINGA 16 14 STRINGA 16 14
BEGIN BEGIN
KEY "Telefono altro" KEY "Telefono altro"
PROMPT 100 1 "" PROMPT 100 1 ""
FIELD 90->TELALT FIELD 90->TELALT
END END
DATA 17 DATA 17
BEGIN BEGIN
KEY "Data prosssima SI" KEY "Data prosssima SI"
PROMPT 115 1 "" PROMPT 115 1 ""
FIELD 90->DATAPROSSI FIELD 90->DATAPROSSI
END END
END
END // END SECTION BODY
SECTION FOOTER ODD 3 SECTION FOOTER ODD 3
STRINGA 1 10 STRINGA 1 10
BEGIN BEGIN
KEY "Niente" KEY "Niente"
PROMPT 1 1 "---" PROMPT 1 1 "---"
END END
END
END // END SECTION FOOTER END
END // END FORM

124
at/atsezio1.frm Executable file
View File

@ -0,0 +1,124 @@
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 9
STRINGA 1 33 2
BEGIN
KEY "Denominazione"
PROMPT 1 2 ""
FIELD 96->DENOMINAZ
END
STRINGA 2 33 2
BEGIN
KEY "Indirizzo"
PROMPT 1 4 ""
FIELD 96->INDIRIZZO
END
STRINGA 3 1
BEGIN
PROMPT 0 0 ""
FLAG "H"
END
STRINGA 4 1
BEGIN
PROMPT 0 0 ""
FLAG "H"
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 6 ""
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 6 ""
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 6 ""
END
STRINGA 13 15
BEGIN
KEY "Spett.le"
PROMPT 1 1 "Spett.le AVIS "
END
END
END

111
at/atsogge1.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
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

206
at/atteluzz.frm Executable file
View File

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

33
at/attesser.frm
View File

@ -3,7 +3,6 @@ JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN 13 ALIAS 500 INTO COM==COMNASC JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ JOIN 96 INTO CODSEZ==CODSEZ
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
@ -14,7 +13,6 @@ BEGIN
501@->* "Comune di domicilio" 501@->* "Comune di domicilio"
500@->* "Comune di nascita" 500@->* "Comune di nascita"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
@ -22,58 +20,49 @@ BEGIN
SIZE 12 SIZE 12
GRID "" GRID ""
END END
SECTION BODY ODD 72 SECTION BODY ODD 72
STRINGA 1 20 STRINGA 1 20
BEGIN BEGIN
KEY "Intestazione 1" KEY "Intestazione 1"
FIELD 96->INTESTAZ1 FIELD 96->INTESTAZ1
PROMPT 16 3 "" PROMPT 16 3 ""
END END
STRINGA 2 20 STRINGA 2 20
BEGIN BEGIN
KEY "Intestazione 2" KEY "Intestazione 2"
FIELD 96->INTESTAZ2 FIELD 96->INTESTAZ2
PROMPT 16 4 "" PROMPT 16 4 ""
END END
STRINGA 3 20 STRINGA 3 20
BEGIN BEGIN
KEY "Intestazione 3" KEY "Intestazione 3"
FIELD 96->INTESTAZ3 FIELD 96->INTESTAZ3
PROMPT 16 5 "" PROMPT 16 5 ""
END END
STRINGA 4 20 STRINGA 4 20
BEGIN BEGIN
KEY "Intestazione 4" KEY "Intestazione 4"
FIELD 96->INTESTAZ4 FIELD 96->INTESTAZ4
PROMPT 16 6 "" PROMPT 16 6 ""
END END
NUMERO 5 8 NUMERO 5 8
BEGIN BEGIN
KEY "Codice soggetto" KEY "Codice soggetto"
FIELD 90->CODICE FIELD 90->CODICE
PROMPT 20 8 "Codice " PROMPT 20 8 "Codice "
END END
STRINGA 6 6 STRINGA 6 6
BEGIN BEGIN
KEY "Tessera" KEY "Tessera"
FIELD 90->TESSAVIS FIELD 90->TESSAVIS
PROMPT 22 12 "" PROMPT 22 12 ""
END END
DATA 7 DATA 7
BEGIN BEGIN
KEY "Data rilascio " KEY "Data rilascio "
MESSAGE _TODAY MESSAGE _TODAY
PROMPT 25 14 "" PROMPT 25 14 ""
END END
STRINGA 8 25 STRINGA 8 25
BEGIN BEGIN
KEY "Cognome" KEY "Cognome"
@ -82,7 +71,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,10|COPY,10 MESSAGE RESET,10|COPY,10
END END
STRINGA 9 25 STRINGA 9 25
BEGIN BEGIN
KEY "Nome" KEY "Nome"
@ -91,33 +79,28 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,10 MESSAGE APPEND,10
END END
STRINGA 10 33 2 STRINGA 10 33 2
BEGIN BEGIN
KEY "Cognome e nome" KEY "Cognome e nome"
PROMPT 4 16 "" PROMPT 4 16 ""
END END
STRINGA 11 33 2 STRINGA 11 33 2
BEGIN BEGIN
KEY "Comune di nascita" KEY "Comune di nascita"
PROMPT 0 0 "" PROMPT 0 0 ""
END END
STRINGA 12 19 2 STRINGA 12 19 2
BEGIN BEGIN
KEY "Comune di nascita" KEY "Comune di nascita"
FIELD 500@->DENCOM FIELD 500@->DENCOM
PROMPT 6 18 "" PROMPT 6 18 ""
END END
DATA 13 DATA 13
BEGIN BEGIN
KEY "Data di nascita" KEY "Data di nascita"
FIELD 90->DATANASC FIELD 90->DATANASC
PROMPT 27 18 "" PROMPT 27 18 ""
END END
STRINGA 14 4 STRINGA 14 4
BEGIN BEGIN
KEY "Codice localita'" KEY "Codice localita'"
@ -125,7 +108,6 @@ BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 15 30 STRINGA 15 30
BEGIN BEGIN
KEY "Denominazione localita' o comune" KEY "Denominazione localita' o comune"
@ -135,7 +117,6 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE RESET,17|COPY,17 MESSAGE RESET,17|COPY,17
END END
STRINGA 16 5 STRINGA 16 5
BEGIN BEGIN
KEY "Provincia" KEY "Provincia"
@ -144,90 +125,76 @@ BEGIN
FLAGS "H" FLAGS "H"
MESSAGE APPEND,17 MESSAGE APPEND,17
END END
STRINGA 17 18 2 STRINGA 17 18 2
BEGIN BEGIN
KEY "Loc./Com. e Prov." KEY "Loc./Com. e Prov."
PROMPT 7 20 "" PROMPT 7 20 ""
END END
STRINGA 18 11 2 STRINGA 18 11 2
BEGIN BEGIN
KEY "Telefono abitazione" KEY "Telefono abitazione"
FIELD 90->TELABI FIELD 90->TELABI
PROMPT 27 20 "" PROMPT 27 20 ""
END END
STRINGA 19 30 STRINGA 19 30
BEGIN BEGIN
KEY "Indirizzo" KEY "Indirizzo"
FIELD 90->DOM_INDIR FIELD 90->DOM_INDIR
PROMPT 1 22 "" PROMPT 1 22 ""
END END
STRINGA 20 16 STRINGA 20 16
BEGIN BEGIN
KEY "Codice fiscale" KEY "Codice fiscale"
FIELD 90->CF FIELD 90->CF
PROMPT 6 24 "" PROMPT 6 24 ""
END END
STRINGA 21 3 STRINGA 21 3
BEGIN BEGIN
KEY "Gruppo AB0" KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0 FIELD 90->GRUPPOAB0
PROMPT 3 28 "" PROMPT 3 28 ""
END END
STRINGA 22 3 STRINGA 22 3
BEGIN BEGIN
KEY "RhAntiD" KEY "RhAntiD"
FIELD 90->RHANTID FIELD 90->RHANTID
PROMPT 10 28 "" PROMPT 10 28 ""
END END
STRINGA 23 6 STRINGA 23 6
BEGIN BEGIN
KEY "FenotipoRh" KEY "FenotipoRh"
FIELD 90->FENOTIPORH FIELD 90->FENOTIPORH
PROMPT 17 28 "" PROMPT 17 28 ""
END END
STRINGA 24 3 STRINGA 24 3
BEGIN BEGIN
KEY "Kell" KEY "Kell"
FIELD 90->KELL FIELD 90->KELL
PROMPT 28 28 "" PROMPT 28 28 ""
END END
STRINGA 25 3 STRINGA 25 3
BEGIN BEGIN
KEY "Du" KEY "Du"
FIELD 90->DU FIELD 90->DU
PROMPT 34 28 "" PROMPT 34 28 ""
END END
STRINGA 26 20 STRINGA 26 20
BEGIN BEGIN
KEY "Documento di riconoscimento" KEY "Documento di riconoscimento"
FIELD 90->DOCID FIELD 90->DOCID
PROMPT 3 32 "" PROMPT 3 32 ""
END END
DATA 27 30 DATA 27 30
BEGIN BEGIN
KEY "Data ultima donazione" KEY "Data ultima donazione"
FIELD 90->DATAULTDON FIELD 90->DATAULTDON
PROMPT 2 42 "Donazioni fino al " PROMPT 2 42 "Donazioni fino al "
END END
NUMERO 28 3 NUMERO 28 3
BEGIN BEGIN
KEY "Totale donazioni" KEY "Totale donazioni"
FIELD 90->TOTDON FIELD 90->TOTDON
PROMPT 31 42 "n. " PROMPT 31 42 "n. "
END END
END END
END END

200
at/attesspr.frm Executable file
View File

@ -0,0 +1,200 @@
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 68
STRINGA 1 20
BEGIN
KEY "Intestazione 1"
FIELD 96->INTESTAZ1
PROMPT 22 3 ""
END
STRINGA 2 20
BEGIN
KEY "Intestazione 2"
FIELD 96->INTESTAZ2
PROMPT 22 4 ""
END
STRINGA 3 20
BEGIN
KEY "Intestazione 3"
FIELD 96->INTESTAZ3
PROMPT 22 5 ""
END
STRINGA 4 20
BEGIN
KEY "Intestazione 4"
FIELD 96->INTESTAZ4
PROMPT 22 6 ""
END
NUMERO 5 8
BEGIN
KEY "Codice soggetto"
FIELD 90->CODICE
PROMPT 23 8 "Codice "
END
STRINGA 6 6
BEGIN
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 26 11 ""
END
DATA 7
BEGIN
KEY "Data rilascio "
MESSAGE _TODAY
PROMPT 30 13 ""
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 40 2
BEGIN
KEY "Cognome e nome"
PROMPT 6 15 ""
END
STRINGA 11 33 2
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
END
STRINGA 12 20 2
BEGIN
KEY "Comune di nascita"
FIELD 500@->DENCOM
PROMPT 8 17 ""
END
DATA 13
BEGIN
KEY "Data di nascita"
FIELD 90->DATANASC
PROMPT 33 17 ""
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 20 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 9 19 ""
END
STRINGA 18 12 2
BEGIN
KEY "Telefono abitazione"
FIELD 90->TELABI
PROMPT 33 19 ""
END
STRINGA 19 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 3 21 ""
END
STRINGA 20 16
BEGIN
KEY "Codice fiscale"
FIELD 90->CF
PROMPT 8 23 ""
END
STRINGA 21 3
BEGIN
KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0
PROMPT 4 27 "@b"
END
STRINGA 22 3
BEGIN
KEY "RhAntiD"
FIELD 90->RHANTID
PROMPT 13 27 "@b"
END
STRINGA 23 6
BEGIN
KEY "FenotipoRh"
FIELD 90->FENOTIPORH
PROMPT 21 27 "@b"
END
STRINGA 24 3
BEGIN
KEY "Kell"
FIELD 90->KELL
PROMPT 36 27 "@b"
END
STRINGA 25 3
BEGIN
KEY "Du"
FIELD 90->DU
PROMPT 43 27 "@b"
END
STRINGA 26 20
BEGIN
KEY "Documento di riconoscimento"
FIELD 90->DOCID
PROMPT 16 30 ""
END
DATA 27 30
BEGIN
KEY "Data ultima donazione"
FIELD 90->DATAULTDON
PROMPT 3 39 "Donazioni fino al "
END
NUMERO 28 3
BEGIN
KEY "Totale donazioni"
FIELD 90->TOTDON
PROMPT 32 39 "n."
END
END
END

1
at/batbprf.rpt
View File

@ -3,7 +3,6 @@
Tabella professioni Tabella professioni
1|@0g%s|Codice 1|@0g%s|Codice
1|@7g%s|Descrizione 1|@7g%s|Descrizione
[Rows] [Rows]
1|CODTAB|@0g@4s 1|CODTAB|@0g@4s
1|S0|@7g@40,ls 1|S0|@7g@40,ls

36
at/ctbo2at.ini
View File

@ -55,7 +55,6 @@ LENGTH(1) = 2
NAME(2) = CODICE SOGGETTO NAME(2) = CODICE SOGGETTO
TYPE(2) = NUMERO TYPE(2) = NUMERO
FIELD(2) = 90->CODICE
POSITION(2) = 4 POSITION(2) = 4
LENGTH(2) = 8 LENGTH(2) = 8
@ -252,3 +251,38 @@ POSITION(33) = 320
LENGTH(33) = 6 LENGTH(33) = 6
MESSAGE(33) = _UPPERCASE MESSAGE(33) = _UPPERCASE
NAME(34) = MOTIVO SOSPENSIONE
TYPE(34) = STRINGA
POSITION(34) = 326
LENGTH(34) = 8
NAME(35) = DATA INIZIO SOS
TYPE(35) = DATA
POSITION(35) = 334
LENGTH(35) = 8
NAME(36) = DATA FINE SOS
TYPE(36) = DATA
POSITION(36) = 342
LENGTH(36) = 8
NAME(37) = EMOCOMPONENTE 1
TYPE(37) = STRINGA
POSITION(37) = 350
LENGTH(37) = 8
NAME(38) = EMOCOMPONENTE 2
TYPE(38) = STRINGA
POSITION(38) = 358
LENGTH(38) = 8
NAME(39) = EMOCOMPONENTE 3
TYPE(39) = STRINGA
POSITION(39) = 366
LENGTH(39) = 8
NAME(40) = EMOCOMPONENTE 4
TYPE(40) = STRINGA
POSITION(40) = 374
LENGTH(40) = 8

2
at/rh.h
View File

@ -1,4 +1,4 @@
// listbox per Rh, Kell, Du, CMV // listbox per Rh, Du, CMV
ITEM " |" ITEM " |"
ITEM "NEG|NEG" ITEM "NEG|NEG"