Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : stampa iscritti/dimessi: possibilitá di selezionare solo che é ancora della stessa categoria, per stampare chi si é iscritto in un periodo ed é ancora iscritto (prima stampava anche chi era giá dimesso)


git-svn-id: svn://10.65.10.50/trunk@9434 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2001-01-05 09:59:47 +00:00
parent 4ae44008da
commit 9bd426eaf9
3 changed files with 12 additions and 2 deletions

View File

@ -44,6 +44,7 @@ class TStampaIscritti : public TPrintapp
char _tipo_iscdim; // iscritti o dimessi
TDate _dataini, _datafin;
int _etlarghezza, _etcolonne;
bool _attuale;
static bool filter_func_iscritti(const TRelation* rel);
@ -145,7 +146,7 @@ bool TStampaIscritti::filter_func_iscritti(const TRelation * rel)
{
const TString16 cat = sog.get(SOG_CATDON);
filtrato = categorie.is_key((const char*) cat);
if (!filtrato)
if ((!filtrato) && (!app()._attuale))
{
const TString16 catcoll = rel->lfile(-ALIAS_CTD).get("S6");
filtrato = categorie.is_key((const char*) catcoll);
@ -156,7 +157,7 @@ bool TStampaIscritti::filter_func_iscritti(const TRelation * rel)
{
if (app()._tipo_iscdim == ISCRITTI)
{
const TDate dataisc = sog.get(SOG_DATAISC);
const TDate dataisc = sog.get_date(SOG_DATAISC);
filtrato = (dataisc >= app()._dataini && dataisc <= app()._datafin);
}
else
@ -312,6 +313,7 @@ bool TStampaIscritti::set_print(int m)
_tipo_iscdim = _msk->get(F_TIPO)[0];
_dataini = _msk->get(F_DATAINI);
_datafin = _msk->get(F_DATAFIN);
_attuale = _msk->get_bool(F_ATTUALE);
current_cursor()->set_filterfunction(filter_func_iscritti, TRUE);
reset_print();
printer().footerlen(0);

View File

@ -26,6 +26,7 @@
#define F_TIPO 301 // iscritti o dimessi
#define F_DATAINI 302
#define F_DATAFIN 303
#define F_ATTUALE 304 // flag per stampare solo soggetti che sono ancora attualmente nella situazione richiesta (i/d)
#define F_ELENCO 401
#define F_ETICHETTE 402

View File

@ -289,5 +289,12 @@ BEGIN
PROMPT 60 11 "Al "
HELP "Data iscrizione o dimissione finale"
END
BOOLEAN F_ATTUALE
BEGIN
PROMPT 2 13 "Stampa solo soggetti ancora nella situazione scelta (iscritti o dimessi)"
HELP "Stampa solo i soggetti che sono ancora nella situazione scelta"
END
ENDPAGE
ENDMASK