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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Corretto ordine nella destroy(); se la stampa non e' per sezione, l'ordinamento e' alfabetico e non sezione+alfabetico


git-svn-id: svn://10.65.10.50/trunk@6915 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-08-07 09:41:03 +00:00
parent 564a22eb4a
commit 06df1556ff
1 changed files with 34 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
at/at0700.cpp
View File

@ -12,6 +12,7 @@
#define ALIAS_TCS 200
#define ALIAS_CTD 700
#define FINE_SOSPENSIONE "FS"
#define SOSPENSIONE "SO"
// nomi campi maschera
#include "at0700a.h"
@ -297,19 +298,26 @@ bool TSbloccoSospesi::filter_func_sbloccosospesi(const TRelation* rel)
const TString16 statopros = recsog.get(SOG_PROS_STATO);
const TString16 statosi = recsog.get(SOG_STATOSI);
const TString16 statoaf = recsog.get(SOG_STATOAF);
TDate datafine(NULLDATE);
if (statopros == FINE_SOSPENSIONE)
datafine = recsog.get_date(SOG_DATA_PROS);
TDate datafinesi(NULLDATE);
TDate datafineaf(NULLDATE);
if (statosi == "SO")
datafinesi = recsog.get_date(SOG_FINESOSSI);
if (statoaf == "SO")
datafineaf = recsog.get_date(SOG_FINESOSAF);
filtrato = (datafine.ok()) && (datafine <= app()._data_sblocco) && (statopros == FINE_SOSPENSIONE);
if ((!filtrato) && (datafinesi.ok() || datafineaf.ok()))
filtrato = ((datafinesi.ok() && (datafinesi <= app()._data_sblocco)) || (datafineaf.ok() && (datafineaf <= app()._data_sblocco)));
filtrato = ((statosi == SOSPENSIONE) || (statoaf == SOSPENSIONE));
if (app()._tiposo.not_empty())
filtrato = filtrato || ((stato == app()._tiposo) && (statopros == FINE_SOSPENSIONE));
else
filtrato = filtrato || ((rel->lfile(-ALIAS_TCS).get("S6") == "S") && (statopros == FINE_SOSPENSIONE));
if (filtrato)
{
TDate datafine(NULLDATE);
if (statopros == FINE_SOSPENSIONE)
datafine = recsog.get_date(SOG_DATA_PROS);
TDate datafinesi(NULLDATE);
TDate datafineaf(NULLDATE);
if (statosi == "SO")
datafinesi = recsog.get_date(SOG_FINESOSSI);
if (statoaf == "SO")
datafineaf = recsog.get_date(SOG_FINESOSAF);
filtrato = (datafine.ok()) && (datafine <= app()._data_sblocco) && (statopros == FINE_SOSPENSIONE);
if ((!filtrato) && (datafinesi.ok() || datafineaf.ok()))
filtrato = ((datafinesi.ok() && (datafinesi <= app()._data_sblocco)) || (datafineaf.ok() && (datafineaf <= app()._data_sblocco)));
}
}
return filtrato;
}
@ -352,11 +360,16 @@ bool TSbloccoSospesi::set_print(int)
_anchedimessi = _msk->get_bool(F_ANCHEDIMESSI);
_persezione = _msk->get_bool(F_PERSEZIONE);
_contatore = 0;
_totale = 0;
_totale = 0;
filtra_sezioni();
if (_persezione)
((TSorted_cursor*)current_cursor())->change_order("90->CODSEZ|90->CODSOT|90->COGNOME|90->NOME|90->DATANASC");
else
((TSorted_cursor*)current_cursor())->change_order("90->COGNOME|90->NOME|90->DATANASC");
reset_files();
add_file(LF_SOGGETTI);
filtra_sezioni();
// filtro per tipo sospensione
/*
TString256 filtro = "";
if (_tiposo.not_empty())
filtro.format("(((STATO == \"%s\") && (PROS_STATO == \"FS\"))",(const char*)_tiposo);
@ -364,6 +377,7 @@ bool TSbloccoSospesi::set_print(int)
filtro << "(((TCS->S6 == \"S\") && (PROS_STATO == \"FS\"))";
filtro << " || (STATOSI == \"SO\") || (STATOAF == \"SO\"))";
current_cursor()->setfilter(filtro, TRUE);
*/
current_cursor()->set_filterfunction(filter_func_sbloccosospesi,TRUE);
reset_print();
crea_intestazione();
@ -410,7 +424,7 @@ bool TSbloccoSospesi::user_create()
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD);
//cursore ordinamento per sezione+sottogruppo+cognome+nome
_cur = add_cursor(new TCursor(_rel, "", 3));
add_cursor(new TSorted_cursor(_rel,"","",3));
_contsan = new TLocalisamfile(LF_CONTSAN);
_idoneita = new TLocalisamfile(LF_IDONEITA);
_scontrolli = new TRecord_array(LF_CONTSAN, CON_PROGCON);
@ -427,12 +441,12 @@ bool TSbloccoSospesi::user_create()
bool TSbloccoSospesi::user_destroy()
{
delete _sidoneita;
delete _scontrolli;
delete _idoneita;
delete _contsan;
delete _rel;
delete _msk;
delete _contsan;
delete _idoneita;
delete _scontrolli;
delete _sidoneita;
return TRUE;
}