Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Stampa tessere associative: aggiunto selezione per data ultima donazione


git-svn-id: svn://10.65.10.50/trunk@6686 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-05-25 13:15:44 +00:00
parent 1b5d640384
commit 66dd053a34
3 changed files with 19 additions and 17 deletions

View File

@ -12,12 +12,9 @@
#include "at4500a.h" #include "at4500a.h"
#include "at4500.h" #include "at4500.h"
//#define ALIAS_COMRES 300 #define ALIAS_COMDOM 501
//#define ALIAS_COMNAS 400 #define ALIAS_COMNAS 500
//#define ALIAS_CTN1 500
//#define ALIAS_CTN2 600
#define ALIAS_LCP 100 #define ALIAS_LCP 100
//#define ALIAS_CTD 800
// definizione form per tessere associative // definizione form per tessere associative
class TTessere_form : public TForm class TTessere_form : public TForm
@ -42,7 +39,7 @@ class TStampaTessere : public TPrintapp
int _numdon; int _numdon;
bool _aggiorna; bool _aggiorna;
int _cur; int _cur;
TDate _data_stampa; TDate _data_stampa, _datault;
TString _riepilogodon; TString _riepilogodon;
static bool filter_func_auto(const TRelation* rel); static bool filter_func_auto(const TRelation* rel);
@ -128,6 +125,8 @@ bool TStampaTessere::filter_func_auto(const TRelation* rel)
filtrato = !(sog.get_bool(SOG_T_STAMPATA)); filtrato = !(sog.get_bool(SOG_T_STAMPATA));
if (filtrato) if (filtrato)
filtrato = (sog.get_int(SOG_TOTDON) >= app()._numdon); filtrato = (sog.get_int(SOG_TOTDON) >= app()._numdon);
if (filtrato)
filtrato = (sog.get_date(SOG_DATAULTDON) > app()._datault);
if (filtrato) if (filtrato)
{ {
// filtro per categorie // filtro per categorie
@ -174,6 +173,7 @@ bool TStampaTessere::set_print(int m)
filtra_sezioni(); filtra_sezioni();
_numdon = _msk->get_int(F_NUMDON); _numdon = _msk->get_int(F_NUMDON);
_aggiorna = _msk->get_bool(F_AGGIORNA); _aggiorna = _msk->get_bool(F_AGGIORNA);
_datault = _msk->get_date(F_DATAULT);
//const char* filtro = format("(NUM(TOTDON>=%i)) && (T_STAMPATA!=\"X\")",_numdon); //const char* filtro = format("(NUM(TOTDON>=%i)) && (T_STAMPATA!=\"X\")",_numdon);
//const char* filtro = format("T_STAMPATA!=\"X\""); //const char* filtro = format("T_STAMPATA!=\"X\"");
//const char* filtro = format("TOTDON>=%i",_numdon); //const char* filtro = format("TOTDON>=%i",_numdon);
@ -208,14 +208,11 @@ bool TStampaTessere::set_print(int m)
bool TStampaTessere::user_create() bool TStampaTessere::user_create()
{ {
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
//_rel->add(LF_COMUNI, "COM==COMNASC",1,0,ALIAS_COMNAS); _rel->add(LF_COMUNI, "COM==DOM_CODCOM",1,0,ALIAS_COMDOM);
_rel->add(LF_COMUNI, "COM==DOM_CODCOM"); _rel->add(LF_COMUNI, "COM==COMNASC",1,0,ALIAS_COMNAS);
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
//_rel->add("CTN", "CODTAB==CATNOND1",1,0,ALIAS_CTN1);
//_rel->add("CTN", "CODTAB==CATNOND2",1,0,ALIAS_CTN2);
//_rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD);
//cursore ordinamento per sezione+sottogruppo+cognome+nome //cursore ordinamento per sezione+sottogruppo+cognome+nome
_cur = add_cursor(new TCursor(_rel, "", 3)); _cur = add_cursor(new TCursor(_rel, "", 3));
_msk = new TMask("at4500a"); _msk = new TMask("at4500a");

View File

@ -24,7 +24,7 @@
#define F_D_CAT6 212 #define F_D_CAT6 212
#define F_NUMDON 301 #define F_NUMDON 301
#define F_AGGIORNA 302 #define F_DATAULT 302
#define F_AGGIORNA 303
#define F_PRINTER 401 #define F_PRINTER 401

View File

@ -263,19 +263,24 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 3 GROUPBOX DLG_NULL 77 5
BEGIN BEGIN
PROMPT 1 10 "Opzioni per la stampa tessere" PROMPT 1 10 "Opzioni per la stampa tessere"
END END
NUMBER F_NUMDON 3 NUMBER F_NUMDON 3
BEGIN BEGIN
PROMPT 2 11 "Numero minimo di donazioni " PROMPT 2 11 "Numero minimo di donazioni "
END
DATE F_DATAULT
BEGIN
PROMPT 2 12 "Ultima donazione successiva al "
END END
BOOLEAN F_AGGIORNA BOOLEAN F_AGGIORNA
BEGIN BEGIN
PROMPT 40 11 "Aggiornare archivio soggetti" PROMPT 2 13 "Aggiornare archivio soggetti"
END END
ENDPAGE ENDPAGE