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

Patch level : at

Browse Source 
Files correlati     : at2.ex at2900a.msk
Ricompilazione Demo : [ ]
Commento            : aggiunto ordinamento (per BZ) e scelta sesso (per BO)


git-svn-id: svn://10.65.10.50/trunk@10612 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-11-06 11:00:09 +00:00
parent e2ab75d3a5
commit 664bbb24bb
3 changed files with 37 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
at/at2900.cpp
View File

@ -55,7 +55,7 @@ class TFrequenza : public TPrintapp
int _etlarghezza, _etcolonne; int _etlarghezza, _etcolonne;
bool _stampa80, _ctrltotale; bool _stampa80, _ctrltotale;
int _contatore, _totale; int _contatore, _totale;
char _condizione; char _condizione, _sesso;
protected: protected:
virtual bool user_create(); virtual bool user_create();
@ -170,12 +170,18 @@ bool TFrequenza::filter_func_freq(const TRelation* rel)
{ {
bool filtrato = TRUE; bool filtrato = TRUE;
TLocalisamfile& sog = rel->lfile(); TLocalisamfile& sog = rel->lfile();
// filtro per sesso
if (app()._sesso != 'I')
filtrato = (sog.get(SOG_SESSO)[0] == app()._sesso);
// filtro per categorie // filtro per categorie
TAssoc_array& categorie = app()._categorie; if (filtrato)
if (categorie.items() != 0)
{ {
const TString16 cat = sog.get(SOG_CATDON); TAssoc_array& categorie = app()._categorie;
filtrato = categorie.is_key((const char*) cat); if (categorie.items() != 0)
{
const TString16 cat = sog.get(SOG_CATDON);
filtrato = categorie.is_key((const char*) cat);
}
} }
// filtro per numero donazioni nel periodo // filtro per numero donazioni nel periodo
if (filtrato) if (filtrato)
@ -452,6 +458,19 @@ bool TFrequenza::set_print(int m)
_categorie.add((const char*) catqui); _categorie.add((const char*) catqui);
if (catses.not_empty()) if (catses.not_empty())
_categorie.add((const char*) catses); _categorie.add((const char*) catses);
_sesso = _msk->get(F_SESSO)[0];
const char ordina = _msk->get(F_ORDINA)[0];
TString256 chiave = "";
switch (ordina)
{
case 'A':
chiave << "90->CODSEZ|90->CODSOT|UPPER(90->COGNOME)|UPPER(90->NOME)";
break;
case 'C':
chiave << "90->DOM_CAP|UPPER(90->COGNOME)|UPPER(90->NOME)";
break;
}
((TSorted_cursor*) current_cursor())->change_order(chiave);
current_cursor()->set_filterfunction (filter_func_freq); current_cursor()->set_filterfunction (filter_func_freq);
reset_print(); reset_print();
printer().footerlen(0); printer().footerlen(0);
@ -538,7 +557,7 @@ bool TFrequenza::user_create()
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCPDOM); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCPDOM);
_rel->add(LF_COMUNI, "COM==DOM_CODCOM"); _rel->add(LF_COMUNI, "COM==DOM_CODCOM");
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
_cur = add_cursor(new TCursor(_rel, "", 3)); add_cursor(new TSorted_cursor(_rel, "", "", 3));
_msk = new TMask("at2900a"); _msk = new TMask("at2900a");
_file = new TExternisamfile("$file"); _file = new TExternisamfile("$file");
_donaz = new TLocalisamfile(LF_DONAZ); _donaz = new TLocalisamfile(LF_DONAZ);

3
at/at2900a.h
View File

@ -38,7 +38,8 @@
#define F_TIPODON5 313 #define F_TIPODON5 313
#define F_D_TIPODON5 314 #define F_D_TIPODON5 314
#define F_ORDINA 351 #define F_SESSO 351
#define F_ORDINA 352
#define F_ELENCO 401 #define F_ELENCO 401
#define F_ETICHETTE 402 #define F_ETICHETTE 402

12
at/at2900a.uml
View File

@ -270,7 +270,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 8 GROUPBOX DLG_NULL 77 11
BEGIN BEGIN
PROMPT 1 10 "Opzioni di elaborazione" PROMPT 1 10 "Opzioni di elaborazione"
END END
@ -394,9 +394,17 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LISTBOX F_SESSO 12
BEGIN
PROMPT 2 17 "Sesso "
ITEM "I|Indifferente"
ITEM "1|Maschi"
ITEM "2|Femmine"
END
LISTBOX F_ORDINA 10 LISTBOX F_ORDINA 10
BEGIN BEGIN
PROMPT 2 17 "Ordinamento per sez./sott. e " PROMPT 2 18 "Ordinamento per sez./sott. e "
ITEM "A|Alfabetico" ITEM "A|Alfabetico"
ITEM "C|Cap" ITEM "C|Cap"
END END