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

158
at/at2800.cpp
View File

@ -50,7 +50,7 @@ class TStampaNonDon : public TPrintapp
ts _tipostampa;
TString16 _codsez, _codsot;
int _etlarghezza, _etcolonne;
bool _stampa80;
bool _stampa80, _solotot;
protected:
virtual bool user_create();
@ -128,58 +128,63 @@ void TStampaNonDon::set_page(int file, int cnt)
break;
case elenco:
{
if (_stampa80)
{
set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
set_row(2,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_TESSAVIS));
set_row(3,"@6g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(4,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_CODCL));
set_row(1,"@9g#a", &_cognome_nome);
set_row(3,"@9g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
set_row(1,"@44g@S", FLD(LF_SOGGETTI,SOG_TELABI));
set_row(2,"@44g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
set_row(3,"@44g@S", FLD(LF_SOGGETTI,SOG_TELALT));
set_row(1,"@60g@S", FLD(LF_SOGGETTI,SOG_TIPOULTDON));
set_row(1,"@63g@ld", FLD(LF_SOGGETTI,SOG_DATAULTDON));
set_row(1,"@74g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
set_row(2,"@60g@S", FLD(LF_SOGGETTI,SOG_STATO));
set_row(2,"@63g@ld", FLD(LF_SOGGETTI,SOG_DATASTATO));
set_row(2,"@74g@S", FLD(LF_SOGGETTI,SOG_GRUPPOAB0));
set_row(3,"@71g@S", FLD(LF_SOGGETTI,SOG_PROS_STATO));
set_row(3,"@63g@ld", FLD(LF_SOGGETTI,SOG_DATA_PROS));
set_row(3,"@74g@S", FLD(LF_SOGGETTI,SOG_RHANTID));
set_row(4,"@66g@S", FLD(LF_SOGGETTI,SOG_STATOSI));
set_row(4,"@71g@S", FLD(LF_SOGGETTI,SOG_STATOAF));
set_row(5,"@9g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
set_row(5,"@40g#a", &_dencom);
set_row(6,"");
}
if (_solotot)
set_row(1,"");
else
{
set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
set_row(2,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_TESSAVIS));
set_row(3,"@0g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(4,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_CODCL));
set_row(1,"@9g#a", &_cognome_nome);
set_row(1,"@35g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
set_row(1,"@46g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
set_row(2,"@46g#a", &_dencom);
set_row(1,"@97g@S", FLD(LF_SOGGETTI,SOG_TELABI));
set_row(2,"@97g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
set_row(3,"@97g@S", FLD(LF_SOGGETTI,SOG_TELALT));
set_row(1,"@113g@ld", FLD(LF_SOGGETTI,SOG_DATAULTDON));
set_row(1,"@124g@S", FLD(LF_SOGGETTI,SOG_TIPOULTDON));
set_row(2,"@113g@ld", FLD(LF_SOGGETTI,SOG_DATASTATO));
set_row(2,"@124g@S", FLD(LF_SOGGETTI,SOG_STATO));
set_row(3,"@113g@ld", FLD(LF_SOGGETTI,SOG_DATA_PROS));
set_row(3,"@124g@S", FLD(LF_SOGGETTI,SOG_PROS_STATO));
set_row(1,"@127g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
set_row(2,"@129g@S", FLD(LF_SOGGETTI,SOG_GRUPPOAB0));
set_row(3,"@129g@S", FLD(LF_SOGGETTI,SOG_RHANTID));
set_row(4,"@119g@S", FLD(LF_SOGGETTI,SOG_STATOSI));
set_row(4,"@124g@S", FLD(LF_SOGGETTI,SOG_STATOAF));
set_row(5,"");
}
if (_stampa80)
{
set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
set_row(2,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_TESSAVIS));
set_row(3,"@6g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(4,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_CODCL));
set_row(1,"@9g#a", &_cognome_nome);
set_row(3,"@9g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
set_row(1,"@44g@S", FLD(LF_SOGGETTI,SOG_TELABI));
set_row(2,"@44g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
set_row(3,"@44g@S", FLD(LF_SOGGETTI,SOG_TELALT));
set_row(1,"@60g@S", FLD(LF_SOGGETTI,SOG_TIPOULTDON));
set_row(1,"@63g@ld", FLD(LF_SOGGETTI,SOG_DATAULTDON));
set_row(1,"@74g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
set_row(2,"@60g@S", FLD(LF_SOGGETTI,SOG_STATO));
set_row(2,"@63g@ld", FLD(LF_SOGGETTI,SOG_DATASTATO));
set_row(2,"@74g@S", FLD(LF_SOGGETTI,SOG_GRUPPOAB0));
set_row(3,"@71g@S", FLD(LF_SOGGETTI,SOG_PROS_STATO));
set_row(3,"@63g@ld", FLD(LF_SOGGETTI,SOG_DATA_PROS));
set_row(3,"@74g@S", FLD(LF_SOGGETTI,SOG_RHANTID));
set_row(4,"@66g@S", FLD(LF_SOGGETTI,SOG_STATOSI));
set_row(4,"@71g@S", FLD(LF_SOGGETTI,SOG_STATOAF));
set_row(5,"@9g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
set_row(5,"@40g#a", &_dencom);
set_row(6,"");
}
else
{
set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
set_row(2,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_TESSAVIS));
set_row(3,"@0g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(4,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_CODCL));
set_row(1,"@9g#a", &_cognome_nome);
set_row(1,"@35g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
set_row(1,"@46g@S", FLD(LF_SOGGETTI,SOG_DOM_INDIR));
set_row(2,"@46g#a", &_dencom);
set_row(1,"@97g@S", FLD(LF_SOGGETTI,SOG_TELABI));
set_row(2,"@97g@S", FLD(LF_SOGGETTI,SOG_TELLAV));
set_row(3,"@97g@S", FLD(LF_SOGGETTI,SOG_TELALT));
set_row(1,"@113g@ld", FLD(LF_SOGGETTI,SOG_DATAULTDON));
set_row(1,"@124g@S", FLD(LF_SOGGETTI,SOG_TIPOULTDON));
set_row(2,"@113g@ld", FLD(LF_SOGGETTI,SOG_DATASTATO));
set_row(2,"@124g@S", FLD(LF_SOGGETTI,SOG_STATO));
set_row(3,"@113g@ld", FLD(LF_SOGGETTI,SOG_DATA_PROS));
set_row(3,"@124g@S", FLD(LF_SOGGETTI,SOG_PROS_STATO));
set_row(1,"@127g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
set_row(2,"@129g@S", FLD(LF_SOGGETTI,SOG_GRUPPOAB0));
set_row(3,"@129g@S", FLD(LF_SOGGETTI,SOG_RHANTID));
set_row(4,"@119g@S", FLD(LF_SOGGETTI,SOG_STATOSI));
set_row(4,"@124g@S", FLD(LF_SOGGETTI,SOG_STATOAF));
set_row(5,"");
}
}
}
break;
}
@ -310,7 +315,14 @@ bool TStampaNonDon::preprocess_page(int file, int counter)
if (printer().rows_left() < _form_eti->get_body().height())
printer().formfeed();
_contatore++;
_totale++;
_totale++;
if (_solotot)
{
if (_contatore == 1)
return TRUE;
else
return FALSE;
}
return TRUE;
}
@ -352,6 +364,7 @@ bool TStampaNonDon::set_print(int m)
_data = _msk->get(F_DATA);
_data2 = _msk->get(F_DATA2);
bool sospesi = _msk->get_bool(F_SOSPESI);
_solotot = _msk->get_bool(F_SOLOTOT);
if (sospesi)
current_cursor()->setfilter("");
else
@ -410,26 +423,29 @@ void TStampaNonDon::crea_intestazione()
else
set_header(2, "@110g%s", (const char*) sep);
set_header(3, "");
if (_stampa80)
{
set_header(4,"@0gCodice@9gCognome e nome@44gTelefono abit.@60gUltima donaz.@74gN.don.");
set_header(5,"@0gTessera@44gTelefono lavoro@60gStato attuale@74gGr.AB0");
set_header(6,"@0gCateg.@9gNato il@44gTelefono altro@60gStato pross.@74gRh");
set_header(7,"@0gCod. CL@60gStato SI - Aferesi");
set_header(8,"@0g--------@9g----------------------------------@44g--------------@60g-- ----------@74g-----");
_cognome_nome.set_width(35);
_dencom.set_width(40);
}
else
if (!_solotot)
{
set_header(4,"@0gCodice@9gCognome e nome@35gNato il@46gIndirizzo@97gTelefono abit.@113gUlt.don.@127gTotD");
set_header(5,"@0gTessera@46gCAP/Località/Comune/Prov.@97gTelefono lavoro@113gStato attuale@129gGr.");
set_header(6,"@0gCat.@97gTelefono altro@113gStato pross.@129gRh");
set_header(7,"@0gCod. CL@113gStato SI - Aferesi");
set_header(8,"@0g--------@9g-------------------------@35g----------@46g--------------------------------------------------@97g---------------@113g---------- --@127g---");
_cognome_nome.set_width(25);
_dencom.set_width(50);
}
if (_stampa80)
{
set_header(4,"@0gCodice@9gCognome e nome@44gTelefono abit.@60gUltima donaz.@74gN.don.");
set_header(5,"@0gTessera@44gTelefono lavoro@60gStato attuale@74gGr.AB0");
set_header(6,"@0gCateg.@9gNato il@44gTelefono altro@60gStato pross.@74gRh");
set_header(7,"@0gCod. CL@60gStato SI - Aferesi");
set_header(8,"@0g--------@9g----------------------------------@44g--------------@60g-- ----------@74g-----");
_cognome_nome.set_width(35);
_dencom.set_width(40);
}
else
{
set_header(4,"@0gCodice@9gCognome e nome@35gNato il@46gIndirizzo@97gTelefono abit.@113gUlt.don.@127gTotD");
set_header(5,"@0gTessera@46gCAP/Località/Comune/Prov.@97gTelefono lavoro@113gStato attuale@129gGr.");
set_header(6,"@0gCat.@97gTelefono altro@113gStato pross.@129gRh");
set_header(7,"@0gCod. CL@113gStato SI - Aferesi");
set_header(8,"@0g--------@9g-------------------------@35g----------@46g--------------------------------------------------@97g---------------@113g---------- --@127g---");
_cognome_nome.set_width(25);
_dencom.set_width(50);
}
}
}
}

1
at/at2800a.h
View File

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

7
at/at2800a.uml
View File

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

165
at/at_etcar.frm
View File

@ -1,175 +1,148 @@
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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Roman"
SIZE 12
GRID ""
END
SECTION BODY ODD 24
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
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
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 33 2
BEGIN
KEY "Cognome e nome"
PROMPT 32 13 ""
KEY "Cognome e nome"
PROMPT 32 13 ""
END
STRINGA 4 33 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 32 15 ""
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 32 15 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 32 17 ""
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 32 17 ""
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
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
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 38 17 ""
KEY "Loc./Com. e Prov."
PROMPT 38 17 ""
END
STRINGA 10 25
BEGIN
KEY "Invito per"
PROMPT 3 9 ""
KEY "Invito per"
PROMPT 3 9 ""
END
STRINGA 11 25
BEGIN
KEY "Data convocazione"
PROMPT 3 12 ""
KEY "Data convocazione"
PROMPT 3 12 ""
END
STRINGA 12 25
BEGIN
KEY "Presso: riga 1"
PROMPT 3 14 ""
KEY "Presso: riga 1"
PROMPT 3 14 ""
END
STRINGA 13 25
BEGIN
KEY "Presso: riga 2"
PROMPT 3 15 ""
KEY "Presso: riga 2"
PROMPT 3 15 ""
END
STRINGA 14 25
BEGIN
KEY "Presso: riga 3"
PROMPT 3 16 ""
KEY "Presso: riga 3"
PROMPT 3 16 ""
END
STRINGA 15 25
BEGIN
KEY "Presso: riga 4"
PROMPT 3 17 ""
KEY "Presso: riga 4"
PROMPT 3 17 ""
END
STRINGA 16 14
BEGIN
KEY "Orario"
PROMPT 14 19 ""
KEY "Orario"
PROMPT 14 19 ""
END
STRINGA 17 10
BEGIN
KEY "Data cartolina"
PROMPT 18 21 ""
KEY "Data cartolina"
PROMPT 18 21 ""
END
STRINGA 18 25
BEGIN
KEY "Note"
PROMPT 3 23 ""
KEY "Note"
PROMPT 3 23 ""
END
STRINGA 19 20
BEGIN
KEY "Intestazione 1"
PROMPT 15 4 ""
KEY "Intestazione 1"
PROMPT 15 4 ""
END
STRINGA 20 20
BEGIN
KEY "Intestazione 2"
PROMPT 15 5 ""
KEY "Intestazione 2"
PROMPT 15 5 ""
END
STRINGA 21 20
BEGIN
KEY "Intestazione 3"
PROMPT 15 6 ""
KEY "Intestazione 3"
PROMPT 15 6 ""
END
STRINGA 22 20
BEGIN
KEY "Intestazione 4"
PROMPT 15 7 ""
KEY "Intestazione 4"
PROMPT 15 7 ""
END
END
END

126
at/at_etmed.frm
View File

@ -1,117 +1,101 @@
USE 97
JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA
END
DESCRIPTION
BEGIN
97->* "Medici"
13->* "COMUNI"
LCP->* "Località postali"
97->* "Medici"
13->* "COMUNI"
LCP->* "Località postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Arial"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Arial"
SIZE 12
GRID ""
END
SECTION BODY ODD 9
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 97->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
KEY "Cognome"
FIELD 97->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 97->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
KEY "Nome"
FIELD 97->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 33 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 33 2
BEGIN
KEY "Indirizzo"
PROMPT 1 3 ""
FIELD 97->INDIRIZZO
KEY "Indirizzo"
PROMPT 1 3 ""
FIELD 97->INDIRIZZO
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
PROMPT 0 0 ""
FLAG "H"
FIELD 97->LOCALITA
MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
KEY "Codice localita'"
PROMPT 0 0 ""
FLAG "H"
FIELD 97->LOCALITA
MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END
STRINGA 6 5
BEGIN
KEY "CAP loc."
PROMPT 1 5 ""
FIELD LCP->S6
GROUP 1
KEY "CAP loc."
PROMPT 1 5 ""
FIELD LCP->S6
GROUP 1
END
STRINGA 7 30
BEGIN
KEY "Localita'"
PROMPT 0 0 ""
FIELD LCP->S0
GROUP 1
FLAG "H"
MESSAGE RESET,11|COPY,11
KEY "Localita'"
PROMPT 0 0 ""
FIELD LCP->S0
GROUP 1
FLAG "H"
MESSAGE RESET,11|COPY,11
END
STRINGA 8 5
BEGIN
KEY "CAP"
PROMPT 1 5 ""
FIELD 13->CAPCOM
GROUP 2
KEY "CAP"
PROMPT 1 5 ""
FIELD 13->CAPCOM
GROUP 2
END
STRINGA 9 50
BEGIN
KEY "Comune"
PROMPT 0 0 ""
FIELD 13->DENCOM
GROUP 2
FLAG "H"
MESSAGE RESET,11|COPY,11
KEY "Comune"
PROMPT 0 0 ""
FIELD 13->DENCOM
GROUP 2
FLAG "H"
MESSAGE RESET,11|COPY,11
END
STRINGA 10 5
BEGIN
KEY "Provincia"
PROMPT 0 0 ""
FIELD 13->PROVCOM
FLAG "H"
MESSAGE APPEND,11
KEY "Provincia"
PROMPT 0 0 ""
FIELD 13->PROVCOM
FLAG "H"
MESSAGE APPEND,11
END
STRINGA 11 27 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

20
at/at_etsez.frm
View File

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

100
at/at_etsog.frm
View File

@ -1,97 +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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Arial"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Arial"
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
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
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 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 33 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
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 ""
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
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
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 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END

874
at/at_pag02.frm
View File

File diff suppressed because it is too large Load Diff

577
at/at_pagin.frm
View File

@ -10,546 +10,469 @@ 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"
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 ""
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
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
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
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
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
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 ""
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 7 30 1
BEGIN
KEY "Indirizzo"
PROMPT 1 6 ""
FIELD 90->DOM_INDIR
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
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
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
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
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 ""
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
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
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 "
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-"
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 ?"
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
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
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
KEY "Telefono altri"
PROMPT 55 9 "Altro "
FIELD 90->TELALT
END
NUMERO 20 20
BEGIN
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
END
STRINGA 21 20
BEGIN
KEY "Cartella clinica"
PROMPT 1 12 "Cart.clin. "
FIELD 90->CODCL
KEY "Cartella clinica"
PROMPT 1 12 "Cart.clin. "
FIELD 90->CODCL
END
STRINGA 22 20
BEGIN
KEY "Tessera AVIS"
PROMPT 1 13 "Tessera "
FIELD 90->TESSAVIS
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
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
KEY "Codice fiscale"
PROMPT 1 15 "Cod. fisc. "
FIELD 90->CF
END
STRINGA 25 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 35 11 "Gruppo "
FIELD 90->GRUPPOAB0
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
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
KEY "Fenotipo Rh"
PROMPT 35 13 "Fenotipo "
FIELD 90->FENOTIPORH
END
STRINGA 28 15
BEGIN
KEY "Kell"
PROMPT 35 14 "Kell "
FIELD 90->KELL
KEY "Kell"
PROMPT 35 14 "Kell "
FIELD 90->KELL
END
STRINGA 29 15
BEGIN
KEY "Du"
PROMPT 35 15 "Du "
FIELD 90->DU
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]
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
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
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
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
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
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
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 "
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
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 "
KEY "Numero libretto sanitario"
PROMPT 1 19 "Tess.SSN "
END
NUMERO 39 15
BEGIN
KEY "Numero cartolina"
PROMPT 55 17 "Num. convoc. "
FIELD 90->NUMCONV
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
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
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
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
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
KEY "Idoneita' 1"
PROMPT 35 21 "Idoneita' "
FIELD 90->IDON1
END
STRINGA 45 2
BEGIN
KEY "Idoneita' 2"
PROMPT 48 21 ""
FIELD 90->IDON2
KEY "Idoneita' 2"
PROMPT 48 21 ""
FIELD 90->IDON2
END
STRINGA 46 2
BEGIN
KEY "Idoneita' 3"
PROMPT 51 21 ""
FIELD 90->IDON3
KEY "Idoneita' 3"
PROMPT 51 21 ""
FIELD 90->IDON3
END
STRINGA 47 2
BEGIN
KEY "Idoneita' 4"
PROMPT 54 21 ""
FIELD 90->IDON4
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
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
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
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
KEY "Data prossima AF"
PROMPT 1 24 "Prossima AF "
FIELD 90->DATAPROSAF
END
STRINGA 50 12
BEGIN
KEY "Testo"
PROMPT 55 19 "Mod.convoc. "
KEY "Testo"
PROMPT 55 19 "Mod.convoc. "
END
LISTA 51 12
BEGIN
KEY "Modalita' di convocazione"
PROMPT 67 19 ""
FIELD 90->MODCONV
#include "modalita.h"
//ITEM " | "
//ITEM "PO|Postale"
//ITEM "T1|Tel. abitaz."
//ITEM "T2|Tel. lavoro"
//ITEM "T3|Tel. altro"
//ITEM "TE|Telefonica"
//ITEM "IN|Indifferente"
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
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
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"
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]
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]
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]
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]
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]
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]
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]
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
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"
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]
KEY "Benemerenza "
PROMPT 35 1 ""
FIELD 600@->S0[1,25]
END
DATA 2 10
BEGIN
KEY "Data attribuzione"
PROMPT 62 1 ""
FIELD 94->DATABEN
KEY "Data attribuzione"
PROMPT 62 1 ""
FIELD 94->DATABEN
END
END // FINE SECTION BENEMERENZE
END // FINE SECTION BODY
END // END FORM
END
END
END

26
at/at_pagpr.frm
View File

@ -30,8 +30,8 @@ END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
FONT ""
SIZE
GRID ""
END
@ -298,21 +298,21 @@ END
DATA 31 25
BEGIN
KEY "Data fine sospensione"
PROMPT 55 13 "Data fine "
PROMPT 55 14 "Data fine "
FIELD 90->DATA_PROS
END
DATA 32 25
BEGIN
KEY "Data iscrizione"
PROMPT 55 14 "Data iscr. "
PROMPT 55 15 "Data iscr. "
FIELD 90->DATAISC
END
DATA 33 25
BEGIN
KEY "Data ult. agg. "
PROMPT 55 15 "Ultimo agg. "
PROMPT 55 16 "Ultimo agg. "
FIELD 90->DATAULTAGG
END
@ -541,7 +541,21 @@ BEGIN
FIELD 90->DATAPRISI
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
KEY "Testo"
PROMPT 35 24 "B E N E M E R E N Z E"

261
at/atcartbo.frm
View File

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

18
at/atcarto1.frm
View File

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

54
at/atcarto2.frm
View File

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

222
at/atconvoc.frm
View File

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

367
at/atddonaz.frm
View File

@ -10,345 +10,294 @@ JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC
JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE
JOIN 92 INTO CODICE==CODICE
JOIN LDN TO 92 ALIAS 401 INTO CODTAB==LUOGODON
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
100@->* "Localita' postali"
200@->* "TCS"
300@->* "GAZ"
400@->* "LDN preferito"
401@->* "LDN per donazione"
500@->* "Comune di nascita"
501@->* "Comuni di domicilio"
600@->* "Tabella benemerenze"
96->* "Sezioni AVIS"
97->* "Medici"
92->* "Donazioni"
90->* "Soggetti Sezioni AVIS"
100@->* "Localita' postali"
200@->* "TCS"
300@->* "GAZ"
400@->* "LDN preferito"
401@->* "LDN per donazione"
500@->* "Comune di nascita"
501@->* "Comuni di domicilio"
600@->* "Tabella benemerenze"
96->* "Sezioni AVIS"
97->* "Medici"
92->* "Donazioni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Courier New"
SIZE 12
GRID ""
END
SECTION BODY ODD
SECTION INIZIO 1 1 17 FLAG "N"
STRINGA 1 50
BEGIN
KEY "Intestazione della scheda + data del giorno"
PROMPT 1 1 "DETTAGLIO DONAZIONI PER SOGGETTO stampato il "
MESSAGE _TODAY
KEY "Intestazione della scheda + data del giorno"
PROMPT 1 1 "DETTAGLIO DONAZIONI PER SOGGETTO stampato il "
MESSAGE _TODAY
END
STRINGA 1 35
BEGIN
KEY "Denominazione sezione"
PROMPT 1 2 "Sezione "
FIELD 96->DENSEZ
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
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
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
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 ""
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 7 30 1
BEGIN
KEY "Indirizzo"
PROMPT 1 6 ""
FIELD 90->DOM_INDIR
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
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
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
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
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 ""
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
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
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 "
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-"
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 ?"
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
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
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
KEY "Telefono altri"
PROMPT 55 9 "Altro "
FIELD 90->TELALT
END
NUMERO 20 20
BEGIN
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
KEY "Codice soggetto"
PROMPT 1 11 "Codice "
FIELD 90->CODICE
END
STRINGA 22 20
BEGIN
KEY "Tessera AVIS"
PROMPT 1 12 "Tessera "
FIELD 90->TESSAVIS
KEY "Tessera AVIS"
PROMPT 1 12 "Tessera "
FIELD 90->TESSAVIS
END
STRINGA 23 30
BEGIN
KEY "Categoria"
PROMPT 1 13 "Categoria "
FIELD 700@->S0
KEY "Categoria"
PROMPT 1 13 "Categoria "
FIELD 700@->S0
END
STRINGA 25 15
BEGIN
KEY "Gruppo sanguigno"
PROMPT 35 11 "Gruppo "
FIELD 90->GRUPPOAB0
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
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
KEY "Fenotipo Rh"
PROMPT 35 13 "Fenotipo "
FIELD 90->FENOTIPORH
END
STRINGA 28 15
BEGIN
KEY "Kell"
PROMPT 35 14 "Kell "
FIELD 90->KELL
KEY "Kell"
PROMPT 35 14 "Kell "
FIELD 90->KELL
END
STRINGA 29 15
BEGIN
KEY "Du"
PROMPT 35 15 "Du "
FIELD 90->DU
KEY "Du"
PROMPT 35 15 "Du "
FIELD 90->DU
END
STRINGA 30 25
BEGIN
KEY "Stato "
PROMPT 55 11 "Stato att. "
FIELD 200@->S0[1,15]
KEY "Stato "
PROMPT 55 11 "Stato att. "
FIELD 200@->S0[1,15]
END
DATA 31 25
BEGIN
KEY "Data stato"
PROMPT 55 12 "Data stato "
FIELD 90->DATASTATO
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
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
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
KEY "Data ult. agg. "
PROMPT 55 15 "Ultimo agg. "
FIELD 90->DATAULTAGG
END
DATA 41 25
BEGIN
KEY "Data ultima donazione"
PROMPT 1 14 "Ultima don. "
FIELD 90->DATAULTDON
KEY "Data ultima donazione"
PROMPT 1 14 "Ultima don. "
FIELD 90->DATAULTDON
END
STRINGA 42 2
BEGIN
KEY "Tipo ultima donazione"
PROMPT 24 14 ""
FIELD 90->TIPOULTDON
KEY "Tipo ultima donazione"
PROMPT 24 14 ""
FIELD 90->TIPOULTDON
END
NUMERO 43 15
BEGIN
KEY "Totale donazioni"
PROMPT 1 15 "Totale don. "
FIELD 90->TOTDON
KEY "Totale donazioni"
PROMPT 1 15 "Totale don. "
FIELD 90->TOTDON
END
STRINGA 44 25
BEGIN
KEY "TEsto"
PROMPT 1 17 "DETTAGLIO DONAZIONI"
KEY "TEsto"
PROMPT 1 17 "DETTAGLIO DONAZIONI"
END
STRINGA 45 50
BEGIN
KEY "Testo"
PROMPT 1 17 "Data Tipo Punto di Prelievo"
KEY "Testo"
PROMPT 1 17 "Data Tipo Punto di Prelievo"
END
END // SECTION INIZIO
END
SECTION DONAZIONI 1 1 1 FILE 92
DATA 1
BEGIN
KEY "Data donazione "
PROMPT 1 1 ""
FIELD 92->DATADON
KEY "Data donazione "
PROMPT 1 1 ""
FIELD 92->DATADON
END
STRINGA 2 10
BEGIN
KEY "Tipo donazione"
PROMPT 13 1 ""
FIELD 92->TIPODON
KEY "Tipo donazione"
PROMPT 13 1 ""
FIELD 92->TIPODON
END
STRINGA 3 25
BEGIN
KEY "Punto di prelievo"
PROMPT 18 1 ""
FIELD 401@->S0
KEY "Punto di prelievo"
PROMPT 18 1 ""
FIELD 401@->S0
END
END // FINE SECTION DONAZIONI
END // FINE SECTION BODY
END // END FORM
END
END
END

114
at/ate10x36.frm
View File

@ -1,111 +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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
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
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
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 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
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 ""
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
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
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 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
STRINGA 10 2
BEGIN
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 7 ""
KEY "Sezione"
FIELD 90->CODSEZ
PROMPT 30 7 ""
END
STRINGA 11 2
BEGIN
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 7 "/"
KEY "Sezione"
FIELD 90->CODSOT
PROMPT 32 7 "/"
END
END
END

109
at/ate70x37.frm
View File

@ -1,97 +1,88 @@
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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
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
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
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 25 2
STRINGA 3 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 25 2
STRINGA 4 30 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
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 ""
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 6 ""
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
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
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 19 3
STRINGA 9 24 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
KEY "Loc./Com. e Prov."
PROMPT 7 6 ""
END
STRINGA 10 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 5 ""
END
END

100
at/ate90x24.frm
View File

@ -1,97 +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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
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
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 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 33 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 1 4 ""
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 1 4 ""
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
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
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 27 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 4 ""
KEY "Loc./Com. e Prov."
PROMPT 7 4 ""
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

151
at/atesezio.frm
View File

@ -1,140 +1,121 @@
USE 96
JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA
END
DESCRIPTION
BEGIN
96->* "Sezioni"
13->* "COMUNI"
LCP->* "Località postali"
96->* "Sezioni"
13->* "COMUNI"
LCP->* "Località postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Arial"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Arial"
SIZE 12
GRID ""
END
SECTION BODY ODD 9
STRINGA 1 25
BEGIN
KEY "Sezione"
FIELD 96->DENSEZ
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,4|COPY,4|"/",2
KEY "Sezione"
FIELD 96->DENSEZ
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,4|COPY,4|"/",2
END
STRINGA 13 25
BEGIN
KEY "/"
FIELD 96->DENSOT
PROMPT 0 0 ""
FLAGS "H"
MESSAGE EMPTY RESET,2
KEY "/"
FIELD 96->DENSOT
PROMPT 0 0 ""
FLAGS "H"
MESSAGE EMPTY RESET,2
END
STRINGA 2 1
BEGIN
KEY "/"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,4
KEY "/"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,4
END
STRINGA 3 25
BEGIN
KEY "Sottogruppo"
FIELD 96->DENSOT
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,4
KEY "Sottogruppo"
FIELD 96->DENSOT
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,4
END
STRINGA 4 33 3
BEGIN
KEY "Denominazione"
PROMPT 1 2 ""
KEY "Denominazione"
PROMPT 1 2 ""
END
STRINGA 5 33 2
BEGIN
KEY "Indirizzo"
PROMPT 1 5 ""
FIELD 96->INDIRIZZO
KEY "Indirizzo"
PROMPT 1 5 ""
FIELD 96->INDIRIZZO
END
STRINGA 6 4
BEGIN
KEY "Codice localita'"
PROMPT 0 0 ""
FLAG "H"
FIELD 96->LOCALITA
MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
KEY "Codice localita'"
PROMPT 0 0 ""
FLAG "H"
FIELD 96->LOCALITA
MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END
STRINGA 7 5
BEGIN
KEY "CAP loc."
PROMPT 1 7 ""
FIELD LCP->S6
GROUP 1
KEY "CAP loc."
PROMPT 1 7 ""
FIELD LCP->S6
GROUP 1
END
STRINGA 8 30
BEGIN
KEY "Localita'"
PROMPT 0 0 ""
FIELD LCP->S0
GROUP 1
FLAG "H"
MESSAGE RESET,12|COPY,12
KEY "Localita'"
PROMPT 0 0 ""
FIELD LCP->S0
GROUP 1
FLAG "H"
MESSAGE RESET,12|COPY,12
END
STRINGA 9 5
BEGIN
KEY "CAP"
PROMPT 1 7 ""
FIELD 13->CAPCOM
GROUP 2
KEY "CAP"
PROMPT 1 7 ""
FIELD 13->CAPCOM
GROUP 2
END
STRINGA 10 50
BEGIN
KEY "Comune"
PROMPT 0 0 ""
FIELD 13->DENCOM
GROUP 2
FLAG "H"
MESSAGE RESET,12|COPY,12
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
KEY "Provincia"
PROMPT 0 0 ""
FIELD 13->PROVCOM
FLAG "H"
MESSAGE APPEND,12
END
STRINGA 12 27 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 7 ""
KEY "Loc./Com. e Prov."
PROMPT 7 7 ""
END
STRINGA 13 15
BEGIN
KEY "Spett.le"
PROMPT 1 1 "Spett.le AVIS "
KEY "Spett.le"
PROMPT 1 1 "Spett.le AVIS "
END
END
END

125
at/atesezpr.frm
View File

@ -1,120 +1,103 @@
USE 96
JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA
END
DESCRIPTION
BEGIN
96->* "Sezioni"
13->* "COMUNI"
LCP->* "Località postali"
96->* "Sezioni"
13->* "COMUNI"
LCP->* "Località postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 15
BEGIN
PROMPT 0 0 ""
FLAG "H"
MESSAGE RESET,3|"Spett.le AVIS",3
PROMPT 0 0 ""
FLAG "H"
MESSAGE RESET,3|"Spett.le AVIS",3
END
STRINGA 2 50
BEGIN
KEY "Denominazione"
PROMPT 0 0 ""
FIELD 96->DENOMINAZ
FLAG "H"
MESSAGE APPEND,3
KEY "Denominazione"
PROMPT 0 0 ""
FIELD 96->DENOMINAZ
FLAG "H"
MESSAGE APPEND,3
END
STRINGA 3 40 2
BEGIN
PROMPT 1 1 ""
PROMPT 1 1 ""
END
STRINGA 4 40 2
BEGIN
KEY "Indirizzo"
PROMPT 1 3 ""
FIELD 96->INDIRIZZO
KEY "Indirizzo"
PROMPT 1 3 ""
FIELD 96->INDIRIZZO
END
STRINGA 5 1
BEGIN
PROMPT 0 0 ""
FLAG "H"
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@
KEY "Codice localita'"
PROMPT 0 0 ""
FLAG "H"
FIELD 96->LOCALITA
MESSAGE ENABLE,1@|DISABLE,2@
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END
STRINGA 7 5
BEGIN
KEY "CAP loc."
PROMPT 1 4 ""
FIELD LCP->S6
GROUP 1
KEY "CAP loc."
PROMPT 1 4 ""
FIELD LCP->S6
GROUP 1
END
STRINGA 8 30
BEGIN
KEY "Localita'"
PROMPT 0 0 ""
FIELD LCP->S0
GROUP 1
FLAG "H"
MESSAGE RESET,12|COPY,12
KEY "Localita'"
PROMPT 0 0 ""
FIELD LCP->S0
GROUP 1
FLAG "H"
MESSAGE RESET,12|COPY,12
END
STRINGA 9 5
BEGIN
KEY "CAP"
PROMPT 1 4 ""
FIELD 13->CAPCOM
GROUP 2
KEY "CAP"
PROMPT 1 4 ""
FIELD 13->CAPCOM
GROUP 2
END
STRINGA 10 50
BEGIN
KEY "Comune"
PROMPT 0 0 ""
FIELD 13->DENCOM
GROUP 2
FLAG "H"
MESSAGE RESET,12|COPY,12
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
KEY "Provincia"
PROMPT 0 0 ""
FIELD 13->PROVCOM
FLAG "H"
MESSAGE APPEND,12
END
STRINGA 12 27 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 4 ""
KEY "Loc./Com. e Prov."
PROMPT 7 4 ""
END
END
END

131
at/atet10bo.frm
View File

@ -1,128 +1,107 @@
USE 90
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
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
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
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 40 1
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 ""
KEY "Cognome e nome"
PROMPT 1 2 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
//FIELD 100@->S6
//FIELD 13->CAPCOM
FIELD 90->DOM_CAP
PROMPT 1 5 ""
KEY "CAP"
FIELD 90->DOM_CAP
PROMPT 1 5 ""
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
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 13->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 33 1
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
STRINGA 10 2
BEGIN
KEY "Categoria"
FIELD 90->CATDON
FIELD 90->CATNOND1
PROMPT 1 1 ""
KEY "Categoria"
FIELD 90->CATDON
FIELD 90->CATNOND1
PROMPT 1 1 ""
END
STRINGA 11 2
BEGIN
KEY "Cartella clinica"
FIELD 90->CODCL
PROMPT 7 1 ""
KEY "Cartella clinica"
FIELD 90->CODCL
PROMPT 7 1 ""
END
STRINGA 12 10
BEGIN
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 9 1 ""
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 9 1 ""
END
STRINGA 13 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 4 ""
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 4 ""
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

131
at/atet90bo.frm
View File

@ -1,128 +1,107 @@
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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
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
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 51 1
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 ""
KEY "Cognome e nome"
PROMPT 1 2 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
//FIELD 100@->S6
//FIELD 13->CAPCOM
FIELD 90->DOM_CAP
PROMPT 1 5 ""
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
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
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 45 1
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
STRINGA 10 2
BEGIN
KEY "Categoria"
FIELD 90->CATDON
FIELD 90->CATNOND1
PROMPT 1 1 ""
KEY "Categoria"
FIELD 90->CATDON
FIELD 90->CATNOND1
PROMPT 1 1 ""
END
STRINGA 11 2
BEGIN
KEY "Cartella clinica"
FIELD 90->CODCL
PROMPT 7 1 ""
KEY "Cartella clinica"
FIELD 90->CODCL
PROMPT 7 1 ""
END
STRINGA 12 10
BEGIN
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 9 1 ""
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 9 1 ""
END
STRINGA 13 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 4 ""
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 4 ""
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

105
at/ateticbz.frm
View File

@ -1,107 +1,90 @@
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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 1 1 ""
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 1 1 ""
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 1 2 ""
KEY "Nome"
FIELD 90->NOME
PROMPT 1 2 ""
END
STRINGA 3 25
BEGIN
KEY "Cognomne da sposata"
FIELD 90->COGNOME_SP
PROMPT 1 3 ""
KEY "Cognomne da sposata"
FIELD 90->COGNOME_SP
PROMPT 1 3 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 4 ""
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"
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 ""
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
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 30 5 ""
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 30 5 ""
END
STRINGA 9 50
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
STRINGA 10 4
BEGIN
KEY "Gruppo aziendale"
PROMPT 27 2 ""
FIELD 90->GRUPPOAZIE
KEY "Gruppo aziendale"
PROMPT 27 2 ""
FIELD 90->GRUPPOAZIE
END
NUMERO 11 8
BEGIN
KEY "Codice"
PROMPT 27 1 ""
FIELD 90->CODICE
KEY "Codice"
PROMPT 27 1 ""
FIELD 90->CODICE
END
END
END

114
at/ateticrn.frm
View File

@ -1,111 +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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
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
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 30
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 ""
KEY "Cognome e nome"
PROMPT 1 2 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 1 4 ""
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 1 4 ""
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
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
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 50 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 4 ""
KEY "Loc./Com. e Prov."
PROMPT 7 4 ""
END
STRINGA 10 4
BEGIN
KEY "Categoria"
PROMPT 1 1 ""
FIELD 90->CATDON
KEY "Categoria"
PROMPT 1 1 ""
FIELD 90->CATDON
END
STRINGA 11 6
BEGIN
KEY "Tessera"
PROMPT 5 1 ""
FIELD 90->TESSAVIS
KEY "Tessera"
PROMPT 5 1 ""
FIELD 90->TESSAVIS
END
END
END

100
at/atetirn1.frm
View File

@ -1,97 +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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
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
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
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 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 3 ""
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"
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 ""
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
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
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 ""
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
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
OFFSET 0 0
FONT ""
SIZE 10
SIZE 12
GRID ""
END
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

261
at/atlecobo.frm
View File

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

135
at/atletter.frm
View File

@ -1,132 +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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
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
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
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 ""
KEY "Cognome e nome"
PROMPT 48 11 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 48 13 ""
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"
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 ""
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
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
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 ""
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

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.

323
at/atrubrpr.frm
View File

@ -1,332 +1,279 @@
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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Roman"
SIZE 12
GRID ""
END
SECTION HEADER ODD 3
STRINGA 1 15
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome"
KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome"
END
STRINGA 2 15
BEGIN
KEY "Indirizzo"
PROMPT 37 2 "Indirizzo"
KEY "Indirizzo"
PROMPT 37 2 "Indirizzo"
END
STRINGA 3 15
BEGIN
KEY "Indirizzo"
PROMPT 59 2 "Localita'"
KEY "Indirizzo"
PROMPT 59 2 "Localita'"
END
STRINGA 4 14
BEGIN
KEY "Telefono abit."
PROMPT 96 2 "Telefono abit."
KEY "Telefono abit."
PROMPT 96 2 "Telefono abit."
END
STRINGA 5 10
BEGIN
KEY "Data nascita"
PROMPT 111 2 "Data nasc."
KEY "Data nascita"
PROMPT 111 2 "Data nasc."
END
STRINGA 6 3
BEGIN
KEY "Gruppo AB0"
PROMPT 122 2 "AB0"
KEY "Gruppo AB0"
PROMPT 122 2 "AB0"
END
STRINGA 7 3
BEGIN
KEY "Rh/AntiD"
PROMPT 126 2 "Rh"
KEY "Rh/AntiD"
PROMPT 126 2 "Rh"
END
STRINGA 8 6
BEGIN
KEY "Fenotipo"
PROMPT 130 2 "Fen.Rh"
END
KEY "Fenotipo"
PROMPT 130 2 "Fen.Rh"
END
STRINGA 9 3
BEGIN
KEY "Kell"
PROMPT 137 2 "Kel"
KEY "Kell"
PROMPT 137 2 "Kel"
END
STRINGA 10 3
BEGIN
KEY "Du"
PROMPT 141 2 "Du"
KEY "Du"
PROMPT 141 2 "Du"
END
STRINGA 11 5
BEGIN
KEY "Tessera"
PROMPT 145 2 "Tess."
KEY "Tessera"
PROMPT 145 2 "Tess."
END
STRINGA 12 3
BEGIN
KEY "Tot.don."
PROMPT 152 2 "Don."
KEY "Tot.don."
PROMPT 152 2 "Don."
END
STRINGA 13 10
BEGIN
KEY "Data ultima donazione"
PROMPT 156 2 "Ult.donaz."
KEY "Data ultima donazione"
PROMPT 156 2 "Ult.donaz."
END
STRINGA 14 10
BEGIN
KEY "Data stato"
PROMPT 167 2 "Data stato"
KEY "Data stato"
PROMPT 167 2 "Data stato"
END
STRINGA 15 2
BEGIN
KEY "Stato attuale"
PROMPT 178 2 "St"
KEY "Stato attuale"
PROMPT 178 2 "St"
END
STRINGA 16 10
BEGIN
KEY "Data stato prossimo"
PROMPT 181 2 "Fine sosp."
KEY "Data stato prossimo"
PROMPT 181 2 "Fine sosp."
END
STRINGA 17 11
BEGIN
KEY "Idoneita' alla doanzione"
PROMPT 192 2 "Tipi donaz."
KEY "Idoneita' alla doanzione"
PROMPT 192 2 "Tipi donaz."
END
END // END SECTION HEADER
END
SECTION BODY ODD 1
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
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
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 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 20 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 37 1 ""
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"
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 ""
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
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
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 ""
KEY "Loc./Com. e Prov."
PROMPT 65 1 ""
END
STRINGA 10 14
BEGIN
KEY "Telefono abitazione"
PROMPT 96 1 ""
FIELD 90->TELABI
KEY "Telefono abitazione"
PROMPT 96 1 ""
FIELD 90->TELABI
END
DATA 11 10
BEGIN
KEY "Data nascita"
PROMPT 111 1 ""
FIELD 90->DATANASC
KEY "Data nascita"
PROMPT 111 1 ""
FIELD 90->DATANASC
END
STRINGA 12 3
BEGIN
KEY "Gruppo AB0"
PROMPT 122 1 ""
FIELD 90->GRUPPOAB0
KEY "Gruppo AB0"
PROMPT 122 1 ""
FIELD 90->GRUPPOAB0
END
STRINGA 13 3
BEGIN
KEY "Rh/AntiD"
PROMPT 126 1 ""
FIELD 90->RHANTID
KEY "Rh/AntiD"
PROMPT 126 1 ""
FIELD 90->RHANTID
END
STRINGA 14 6
BEGIN
KEY "Fenotipo"
PROMPT 130 1 ""
FIELD 90->FENOTIPORH
KEY "Fenotipo"
PROMPT 130 1 ""
FIELD 90->FENOTIPORH
END
STRINGA 15 3
BEGIN
KEY "Kell"
PROMPT 137 1 ""
FIELD 90->KELL
KEY "Kell"
PROMPT 137 1 ""
FIELD 90->KELL
END
STRINGA 16 3
BEGIN
KEY "Du"
PROMPT 141 1 ""
FIELD 90->DU
KEY "Du"
PROMPT 141 1 ""
FIELD 90->DU
END
STRINGA 17 6
BEGIN
KEY "Tessera"
PROMPT 145 1 ""
FIELD 90->TESSAVIS
KEY "Tessera"
PROMPT 145 1 ""
FIELD 90->TESSAVIS
END
NUMERO 18 3
BEGIN
KEY "Tot.don."
PROMPT 152 1 ""
FIELD 90->TOTDON
KEY "Tot.don."
PROMPT 152 1 ""
FIELD 90->TOTDON
END
DATA 18 10
BEGIN
KEY "Data ultima donazione"
PROMPT 156 1 ""
FIELD 90->DATAULTDON
KEY "Data ultima donazione"
PROMPT 156 1 ""
FIELD 90->DATAULTDON
END
DATA 19 10
BEGIN
KEY "Data stato"
PROMPT 167 1 ""
FIELD 90->DATASTATO
KEY "Data stato"
PROMPT 167 1 ""
FIELD 90->DATASTATO
END
STRINGA 20 2
BEGIN
KEY "Stato attuale"
PROMPT 178 1 ""
FIELD 90->STATO
KEY "Stato attuale"
PROMPT 178 1 ""
FIELD 90->STATO
END
DATA 21 10
BEGIN
KEY "Data stato prossimo"
PROMPT 181 1 ""
FIELD 90->DATA_PROS
KEY "Data stato prossimo"
PROMPT 181 1 ""
FIELD 90->DATA_PROS
END
STRINGA 22 2
BEGIN
KEY "Idoneita' 1"
PROMPT 192 1 ""
FIELD 90->IDON1
KEY "Idoneita' 1"
PROMPT 192 1 ""
FIELD 90->IDON1
END
STRINGA 23 2
BEGIN
KEY "Idoneita' 2"
PROMPT 195 1 ""
FIELD 90->IDON2
KEY "Idoneita' 2"
PROMPT 195 1 ""
FIELD 90->IDON2
END
STRINGA 24 2
BEGIN
KEY "Idoneita' 3"
PROMPT 198 1 ""
FIELD 90->IDON3
KEY "Idoneita' 3"
PROMPT 198 1 ""
FIELD 90->IDON3
END
STRINGA 25 2
BEGIN
KEY "Idoneita' 4"
PROMPT 201 1 ""
FIELD 90->IDON4
KEY "Idoneita' 4"
PROMPT 201 1 ""
FIELD 90->IDON4
END
END // END SECTION BODY
END
SECTION FOOTER ODD 3
STRINGA 1 10
BEGIN
KEY "Niente"
PROMPT 1 1 "---"
KEY "Niente"
PROMPT 1 1 "---"
END
END // END SECTION FOOTER
END // END FORM
END
END

227
at/atrubrrn.frm
View File

@ -1,236 +1,197 @@
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"
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman"
SIZE 12
GRID ""
OFFSET 0 0
FONT "Roman"
SIZE 12
GRID ""
END
SECTION HEADER ODD 3
STRINGA 1 15
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome"
KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome"
END
STRINGA 2 10
BEGIN
KEY "Data nascita"
PROMPT 37 2 "Data nasc."
KEY "Data nascita"
PROMPT 37 2 "Data nasc."
END
STRINGA 3 3
BEGIN
KEY "Tot.don."
PROMPT 48 2 "Don."
KEY "Tot.don."
PROMPT 48 2 "Don."
END
STRINGA 4 3
BEGIN
KEY "Tot.don.Si"
PROMPT 52 2 " SI"
KEY "Tot.don.Si"
PROMPT 52 2 " SI"
END
STRINGA 5 3
BEGIN
KEY "Tot.don.Af"
PROMPT 56 2 " AF"
KEY "Tot.don.Af"
PROMPT 56 2 " AF"
END
STRINGA 6 10
BEGIN
KEY "Data ultima donazione"
PROMPT 60 2 "Ult.donaz."
KEY "Data ultima donazione"
PROMPT 60 2 "Ult.donaz."
END
STRINGA 7 10
BEGIN
KEY "Data stato"
PROMPT 71 2 "Data stato"
KEY "Data stato"
PROMPT 71 2 "Data stato"
END
STRINGA 8 2
BEGIN
KEY "Stato attuale"
PROMPT 82 2 "St"
KEY "Stato attuale"
PROMPT 82 2 "St"
END
STRINGA 9 10
BEGIN
KEY "Data stato prossimo"
PROMPT 85 2 "Fine sosp."
KEY "Data stato prossimo"
PROMPT 85 2 "Fine sosp."
END
STRINGA 10 11
BEGIN
KEY "Idoneita' alla doanzione"
PROMPT 96 2 "Tipi donaz."
KEY "Idoneita' alla doanzione"
PROMPT 96 2 "Tipi donaz."
END
STRINGA 11 10
BEGIN
KEY "Data prima SI"
PROMPT 108 2 "Data pr.SI"
KEY "Data prima SI"
PROMPT 108 2 "Data pr.SI"
END
STRINGA 12 10
BEGIN
KEY "Data prima AF"
PROMPT 119 2 "Data pr.AF"
KEY "Data prima AF"
PROMPT 119 2 "Data pr.AF"
END
END // END SECTION HEADER
END
SECTION BODY ODD 1
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
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
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 ""
KEY "Cognome e nome"
PROMPT 1 1 ""
END
DATA 4 10
BEGIN
KEY "Data nascita"
PROMPT 37 1 ""
FIELD 90->DATANASC
KEY "Data nascita"
PROMPT 37 1 ""
FIELD 90->DATANASC
END
NUMERO 5 3
BEGIN
KEY "Tot.don."
PROMPT 48 1 ""
FIELD 90->TOTDON
PICTURE "###"
KEY "Tot.don."
PROMPT 48 1 ""
FIELD 90->TOTDON
PICTURE "###"
END
NUMERO 6 3
BEGIN
KEY "Tot.don.SI"
PROMPT 52 1 ""
FIELD 90->TOTDONSI
PICTURE "###"
KEY "Tot.don.SI"
PROMPT 52 1 ""
FIELD 90->TOTDONSI
PICTURE "###"
END
NUMERO 7 3
BEGIN
KEY "Tot.don.AF"
PROMPT 56 1 ""
FIELD 90->TOTDONAF
PICTURE "###"
KEY "Tot.don.AF"
PROMPT 56 1 ""
FIELD 90->TOTDONAF
PICTURE "###"
END
DATA 8 10
BEGIN
KEY "Data ultima donazione"
PROMPT 60 1 ""
FIELD 90->DATAULTDON
KEY "Data ultima donazione"
PROMPT 60 1 ""
FIELD 90->DATAULTDON
END
DATA 9 10
BEGIN
KEY "Data stato"
PROMPT 71 1 ""
FIELD 90->DATASTATO
KEY "Data stato"
PROMPT 71 1 ""
FIELD 90->DATASTATO
END
STRINGA 10 2
BEGIN
KEY "Stato attuale"
PROMPT 82 1 ""
FIELD 90->STATO
KEY "Stato attuale"
PROMPT 82 1 ""
FIELD 90->STATO
END
DATA 11 10
BEGIN
KEY "Data stato prossimo"
PROMPT 85 1 ""
FIELD 90->DATA_PROS
KEY "Data stato prossimo"
PROMPT 85 1 ""
FIELD 90->DATA_PROS
END
STRINGA 12 2
BEGIN
KEY "Idoneita' 1"
PROMPT 96 1 ""
FIELD 90->IDON1
KEY "Idoneita' 1"
PROMPT 96 1 ""
FIELD 90->IDON1
END
STRINGA 13 2
BEGIN
KEY "Idoneita' 2"
PROMPT 99 1 ""
FIELD 90->IDON2
KEY "Idoneita' 2"
PROMPT 99 1 ""
FIELD 90->IDON2
END
STRINGA 14 2
BEGIN
KEY "Idoneita' 3"
PROMPT 102 1 ""
FIELD 90->IDON3
KEY "Idoneita' 3"
PROMPT 102 1 ""
FIELD 90->IDON3
END
STRINGA 15 2
BEGIN
KEY "Idoneita' 4"
PROMPT 105 1 ""
FIELD 90->IDON4
KEY "Idoneita' 4"
PROMPT 105 1 ""
FIELD 90->IDON4
END
DATA 16 10
BEGIN
KEY "Data prima donazione SI"
PROMPT 108 1 ""
FIELD 90->DATAPRISI
KEY "Data prima donazione SI"
PROMPT 108 1 ""
FIELD 90->DATAPRISI
END
DATA 17 10
BEGIN
KEY "Data prima donazione AF"
PROMPT 119 1 ""
FIELD 90->DATAPRIAF
KEY "Data prima donazione AF"
PROMPT 119 1 ""
FIELD 90->DATAPRIAF
END
END // END SECTION BODY
END
SECTION FOOTER ODD 3
STRINGA 1 10
BEGIN
KEY "Niente"
PROMPT 1 1 "---"
KEY "Niente"
PROMPT 1 1 "---"
END
END // END SECTION FOOTER
END // END FORM
END
END

175
at/atrubrsa.frm
View File

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

282
at/atscadbo.frm
View File

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

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

235
at/attesser.frm
View File

@ -3,231 +3,198 @@ 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"
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 ""
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 72
STRINGA 1 20
BEGIN
KEY "Intestazione 1"
FIELD 96->INTESTAZ1
PROMPT 16 3 ""
KEY "Intestazione 1"
FIELD 96->INTESTAZ1
PROMPT 16 3 ""
END
STRINGA 2 20
BEGIN
KEY "Intestazione 2"
FIELD 96->INTESTAZ2
PROMPT 16 4 ""
KEY "Intestazione 2"
FIELD 96->INTESTAZ2
PROMPT 16 4 ""
END
STRINGA 3 20
BEGIN
KEY "Intestazione 3"
FIELD 96->INTESTAZ3
PROMPT 16 5 ""
KEY "Intestazione 3"
FIELD 96->INTESTAZ3
PROMPT 16 5 ""
END
STRINGA 4 20
BEGIN
KEY "Intestazione 4"
FIELD 96->INTESTAZ4
PROMPT 16 6 ""
KEY "Intestazione 4"
FIELD 96->INTESTAZ4
PROMPT 16 6 ""
END
NUMERO 5 8
BEGIN
KEY "Codice soggetto"
FIELD 90->CODICE
PROMPT 20 8 "Codice "
KEY "Codice soggetto"
FIELD 90->CODICE
PROMPT 20 8 "Codice "
END
STRINGA 6 6
BEGIN
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 22 12 ""
KEY "Tessera"
FIELD 90->TESSAVIS
PROMPT 22 12 ""
END
DATA 7
BEGIN
KEY "Data rilascio "
MESSAGE _TODAY
PROMPT 25 14 ""
KEY "Data rilascio "
MESSAGE _TODAY
PROMPT 25 14 ""
END
STRINGA 8 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,10|COPY,10
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
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,10
END
STRINGA 10 33 2
BEGIN
KEY "Cognome e nome"
PROMPT 4 16 ""
KEY "Cognome e nome"
PROMPT 4 16 ""
END
STRINGA 11 33 2
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
KEY "Comune di nascita"
PROMPT 0 0 ""
END
STRINGA 12 19 2
BEGIN
KEY "Comune di nascita"
FIELD 500@->DENCOM
PROMPT 6 18 ""
KEY "Comune di nascita"
FIELD 500@->DENCOM
PROMPT 6 18 ""
END
DATA 13
BEGIN
KEY "Data di nascita"
FIELD 90->DATANASC
PROMPT 27 18 ""
KEY "Data di nascita"
FIELD 90->DATANASC
PROMPT 27 18 ""
END
STRINGA 14 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
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
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
KEY "Provincia"
FIELD 501@->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17 18 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 20 ""
KEY "Loc./Com. e Prov."
PROMPT 7 20 ""
END
STRINGA 18 11 2
BEGIN
KEY "Telefono abitazione"
FIELD 90->TELABI
PROMPT 27 20 ""
KEY "Telefono abitazione"
FIELD 90->TELABI
PROMPT 27 20 ""
END
STRINGA 19 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 22 ""
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 22 ""
END
STRINGA 20 16
BEGIN
KEY "Codice fiscale"
FIELD 90->CF
PROMPT 6 24 ""
KEY "Codice fiscale"
FIELD 90->CF
PROMPT 6 24 ""
END
STRINGA 21 3
BEGIN
KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0
PROMPT 3 28 ""
KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0
PROMPT 3 28 ""
END
STRINGA 22 3
BEGIN
KEY "RhAntiD"
FIELD 90->RHANTID
PROMPT 10 28 ""
KEY "RhAntiD"
FIELD 90->RHANTID
PROMPT 10 28 ""
END
STRINGA 23 6
BEGIN
KEY "FenotipoRh"
FIELD 90->FENOTIPORH
PROMPT 17 28 ""
KEY "FenotipoRh"
FIELD 90->FENOTIPORH
PROMPT 17 28 ""
END
STRINGA 24 3
BEGIN
KEY "Kell"
FIELD 90->KELL
PROMPT 28 28 ""
KEY "Kell"
FIELD 90->KELL
PROMPT 28 28 ""
END
STRINGA 25 3
BEGIN
KEY "Du"
FIELD 90->DU
PROMPT 34 28 ""
KEY "Du"
FIELD 90->DU
PROMPT 34 28 ""
END
STRINGA 26 20
BEGIN
KEY "Documento di riconoscimento"
FIELD 90->DOCID
PROMPT 3 32 ""
KEY "Documento di riconoscimento"
FIELD 90->DOCID
PROMPT 3 32 ""
END
DATA 27 30
BEGIN
KEY "Data ultima donazione"
FIELD 90->DATAULTDON
PROMPT 2 42 "Donazioni fino al "
KEY "Data ultima donazione"
FIELD 90->DATAULTDON
PROMPT 2 42 "Donazioni fino al "
END
NUMERO 28 3
BEGIN
KEY "Totale donazioni"
FIELD 90->TOTDON
PROMPT 31 42 "n. "
KEY "Totale donazioni"
FIELD 90->TOTDON
PROMPT 31 42 "n. "
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
1|@0g%s|Codice
1|@7g%s|Descrizione
[Rows]
1|CODTAB|@0g@4s
1|S0|@7g@40,ls

36
at/ctbo2at.ini
View File

@ -55,7 +55,6 @@ LENGTH(1) = 2
NAME(2) = CODICE SOGGETTO
TYPE(2) = NUMERO
FIELD(2) = 90->CODICE
POSITION(2) = 4
LENGTH(2) = 8
@ -252,3 +251,38 @@ POSITION(33) = 320
LENGTH(33) = 6
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 "NEG|NEG"