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            :


git-svn-id: svn://10.65.10.50/trunk@19853 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-12-30 15:45:28 +00:00
parent fa58a9b356
commit dd926b6e6a
6 changed files with 243 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
at/at2600.cpp
View File

@ -13,6 +13,7 @@
#define ALIAS_LCPDOM 100 // localita' postale di domicilio #define ALIAS_LCPDOM 100 // localita' postale di domicilio
#define ALIAS_COMDOM 501 // comune di domicilio #define ALIAS_COMDOM 501 // comune di domicilio
#define ALIAS_CTD 700 // categoria donatori #define ALIAS_CTD 700 // categoria donatori
#define ALIAS_GAZ 300 // gruppi aziendale
#define ISCRITTI 'I' #define ISCRITTI 'I'
enum ts { undefined = 0, elenco = 1, etichette = 2, stampasufile = 3, completo = 4 }; enum ts { undefined = 0, elenco = 1, etichette = 2, stampasufile = 3, completo = 4 };
@ -43,6 +44,8 @@ class TStampaIscritti : public TPrintapp
ts _tipostampa; ts _tipostampa;
int _contatore, _totale; int _contatore, _totale;
TString16 _codsez, _codsot; TString16 _codsez, _codsot;
TString16 _gruppoazie, _gruppoold;
bool _pergruppo;
char _tipo_iscdim; // iscritti o dimessi char _tipo_iscdim; // iscritti o dimessi
TDate _dataini, _datafin; TDate _dataini, _datafin;
int _etlarghezza, _etcolonne; int _etlarghezza, _etcolonne;
@ -64,6 +67,8 @@ public:
void filtra_sezioni(); void filtra_sezioni();
void header_sezione(const TString16 codsez, const TString16 codsot); void header_sezione(const TString16 codsez, const TString16 codsot);
void footer_sezione(); void footer_sezione();
void header_gruppo(const TString16 gruppo);
void footer_gruppo();
void fine_stampa(); void fine_stampa();
TMask& app_mask() { return *_msk; } TMask& app_mask() { return *_msk; }
TStampaIscritti() : _data_stampa(TODAY), _cognome_nome("",25), _dencom("",30) {} TStampaIscritti() : _data_stampa(TODAY), _cognome_nome("",25), _dencom("",30) {}
@ -217,7 +222,21 @@ bool TStampaIscritti::preprocess_page(int file, int counter)
localita << ' ' << current_cursor()->curr(LF_COMUNI).get(COM_PROVCOM); localita << ' ' << current_cursor()->curr(LF_COMUNI).get(COM_PROVCOM);
localita.trim(); localita.trim();
_dencom = localita; _dencom = localita;
// salto pagina se cambio sezione // salto pagina se cambio sezione o gruppo
if (_pergruppo)
{
TString16 grupponew = current_cursor()->curr(LF_SOGGETTI).get(SOG_GRUPPOAZIE);
if (grupponew != _gruppoold )
{
if (_gruppoold != "**")
footer_gruppo();
_contatore = 0;
_gruppoold = grupponew;
header_gruppo(grupponew);
}
}
else
{
const TString16 codsez = recsog.get(SOG_CODSEZ); const TString16 codsez = recsog.get(SOG_CODSEZ);
const TString16 codsot = recsog.get(SOG_CODSOT); const TString16 codsot = recsog.get(SOG_CODSOT);
if ((_codsez!=codsez)||(_codsot!=codsot)) if ((_codsez!=codsez)||(_codsot!=codsot))
@ -230,6 +249,7 @@ bool TStampaIscritti::preprocess_page(int file, int counter)
header_sezione(codsez, codsot); header_sezione(codsez, codsot);
} }
} }
}
if (_tipostampa==etichette) if (_tipostampa==etichette)
if (printer().rows_left() < _form_eti->get_body().height()) if (printer().rows_left() < _form_eti->get_body().height())
printer().formfeed(); printer().formfeed();
@ -283,7 +303,12 @@ bool TStampaIscritti::preprocess_page(int file, int counter)
print_action TStampaIscritti::postprocess_print(int file, int counter) print_action TStampaIscritti::postprocess_print(int file, int counter)
{ {
if (_contatore > 0) if (_contatore > 0)
{
if (_pergruppo)
footer_gruppo();
else
footer_sezione(); footer_sezione();
}
fine_stampa(); fine_stampa();
return NEXT_PAGE; return NEXT_PAGE;
} }
@ -303,6 +328,22 @@ void TStampaIscritti::footer_sezione()
} }
} }
void TStampaIscritti::footer_gruppo()
{
// stampa totale soggetti appartenenti alla sezione
if (_tipostampa==elenco || _tipostampa==completo)
{
reset_footer();
TString sep(80);
sep.fill('-');
set_footer(2, (const char *) sep);
set_footer(3,"TOTALE SOGGETTI STAMPATI %d", _contatore);
printer().formfeed();
reset_footer();
}
}
void TStampaIscritti::fine_stampa() void TStampaIscritti::fine_stampa()
{ {
// stampa totale soggetti a fine stampa // stampa totale soggetti a fine stampa
@ -342,6 +383,19 @@ void TStampaIscritti::header_sezione(const TString16 codsez, const TString16 cod
return; return;
} }
void TStampaIscritti::header_gruppo(const TString16 gruppo)
{
TString intestazione(132);
intestazione = "GRUPPO AZIENDALE ";
intestazione << gruppo;
intestazione << " - ";
intestazione << current_cursor()->curr(-ALIAS_GAZ).get("S0");
intestazione.center_just(80);
set_header(1,"@0g%s", (const char*) intestazione);
return;
}
bool TStampaIscritti::set_print(int m) bool TStampaIscritti::set_print(int m)
{ {
TPrinter& p = printer(); TPrinter& p = printer();
@ -356,6 +410,7 @@ bool TStampaIscritti::set_print(int m)
_tipostampa = elenco; _tipostampa = elenco;
_codsez = "**"; _codsez = "**";
_codsot = "**"; _codsot = "**";
_gruppoold = "**";
_contatore = 0; _contatore = 0;
_totale = 0; _totale = 0;
} }
@ -365,6 +420,7 @@ bool TStampaIscritti::set_print(int m)
_tipostampa = completo; _tipostampa = completo;
_codsez = "**"; _codsez = "**";
_codsot = "**"; _codsot = "**";
_gruppoold = "**";
_contatore = 0; _contatore = 0;
_totale = 0; _totale = 0;
} }
@ -412,14 +468,30 @@ bool TStampaIscritti::set_print(int m)
_attuale = _msk->get_bool(F_ATTUALE); _attuale = _msk->get_bool(F_ATTUALE);
bool notiziario = _msk->get_bool(F_NOTIZIARIO); bool notiziario = _msk->get_bool(F_NOTIZIARIO);
_numdon = _msk->get_int(F_NUMDON); _numdon = _msk->get_int(F_NUMDON);
_pergruppo = _msk->get_bool(F_PERGRUPPO);
TString256 chiave = "";
if (_pergruppo)
{
_gruppoazie = _msk->get(F_GRUPPOAZIE);
if (_gruppoazie.empty())
chiave << "90->GRUPPOAZIE|UPPER(90->COGNOME)|UPPER(90->NOME)";
}
TString256 filtro = "";
if (_pergruppo)
{
if (_gruppoazie.not_empty())
filtro.format("(90->GRUPPOAZIE == \"%s\")",(const char*)_gruppoazie);
else
filtro.format("(90->GRUPPOAZIE != \"\")");
}
if (notiziario) if (notiziario)
{ {
TString80 filtro; if (filtro.not_empty())
filtro = "(90->NOTIZIARIO == \"X\")"; filtro = "(90->NOTIZIARIO == \"X\")";
current_cursor()->setfilter(filtro, TRUE);
} }
else current_cursor()->setfilter(filtro, FALSE);
current_cursor()->setfilter("", TRUE); ((TSorted_cursor*)current_cursor())->change_order(chiave);
current_cursor()->set_filterfunction(filter_func_iscritti, TRUE); current_cursor()->set_filterfunction(filter_func_iscritti, TRUE);
reset_print(); reset_print();
printer().footerlen(0); printer().footerlen(0);
@ -486,9 +558,9 @@ bool TStampaIscritti::user_create()
_rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD); _rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD);
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCPDOM); _rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCPDOM);
_rel->add("GAZ", "CODTAB==GRUPPOAZIE",1,0,ALIAS_GAZ);
_rel->add(LF_COMUNI, "COM==DOM_CODCOM",1,0,ALIAS_COMDOM); _rel->add(LF_COMUNI, "COM==DOM_CODCOM",1,0,ALIAS_COMDOM);
add_cursor(new TSorted_cursor(_rel,"SOG_CODSEZ|SOG_CODSOT","",3));
add_cursor(new TCursor(_rel, "", 3));
_msk = new TMask("at2600a"); _msk = new TMask("at2600a");
TConfig config(CONFIG_STUDIO); TConfig config(CONFIG_STUDIO);
TString16 etformato = config.get("EtFormato"); TString16 etformato = config.get("EtFormato");
@ -506,9 +578,8 @@ bool TStampaIscritti::user_create()
iscrtrr.ext("trr"); iscrtrr.ext("trr");
} }
_fileiscr = new TExternisamfile(iscrname, iscrtrr, false); _fileiscr = new TExternisamfile(iscrname, iscrtrr, FALSE);
return TRUE;
return true;
} }
bool TStampaIscritti::user_destroy() bool TStampaIscritti::user_destroy()

4
at/at2600a.h
View File

@ -29,6 +29,10 @@
#define F_ATTUALE 304 // flag per stampare solo soggetti che sono ancora attualmente nella situazione richiesta (i/d) #define F_ATTUALE 304 // flag per stampare solo soggetti che sono ancora attualmente nella situazione richiesta (i/d)
#define F_NUMDON 305 // soggetti che hanno almeno tot donazioni #define F_NUMDON 305 // soggetti che hanno almeno tot donazioni
#define F_NOTIZIARIO 306 // soggetti che vogliono il notiziario #define F_NOTIZIARIO 306 // soggetti che vogliono il notiziario
#define F_PERGRUPPO 307
#define F_GRUPPOAZIE 308
#define F_D_GRUPPOAZIE 309
#define F_ELENCO 401 #define F_ELENCO 401
#define F_COMPLETO 402 #define F_COMPLETO 402

50
at/at2600a.uml
View File

@ -13,10 +13,9 @@ BUTTON F_COMPLETO 2 2
BEGIN BEGIN
PROMPT 2 1 "~Completo" PROMPT 2 1 "~Completo"
MESSAGE EXIT,F_COMPLETO MESSAGE EXIT,F_COMPLETO
PICTURE TOOL_PRINTSCHEDE PICTURE TOOL_PRINTRUBRICA
END END
BUTTON F_ETICHETTE 2 2 BUTTON F_ETICHETTE 2 2
BEGIN BEGIN
PROMPT 3 1 "~Etichette" PROMPT 3 1 "~Etichette"
@ -24,11 +23,18 @@ BEGIN
PICTURE TOOL_PRINTETICH PICTURE TOOL_PRINTETICH
END END
BUTTON F_LETTERE 2 2
BEGIN
PROMPT 4 1 "~Lettere"
MESSAGE EXIT,F_LETTERE
PICTURE TOOL_PRINTSCHEDE
END
BUTTON F_FILE 2 2 BUTTON F_FILE 2 2
BEGIN BEGIN
PROMPT 4 1 "~File" PROMPT 5 1 "~File"
MESSAGE EXIT,F_FILE MESSAGE EXIT,F_FILE
PICTURE TOOL_EDIT PICTURE TOOL_NEWREC
END END
#include <helpbar.h> #include <helpbar.h>
@ -320,6 +326,42 @@ BEGIN
PROMPT 2 15 "Numero minimo donazioni " PROMPT 2 15 "Numero minimo donazioni "
END END
BOOLEAN F_PERGRUPPO
BEGIN
PROMPT 2 17 "Stampa per gruppo aziendale"
MESSAGE TRUE ENABLE,F_GRUPPOAZIE|ENABLE,F_D_GRUPPOAZIE
MESSAGE FALSE RESET,F_GRUPPOAZIE|RESET,F_D_GRUPPOAZIE|DISABLE,F_GRUPPOAZIE|DISABLE,F_D_GRUPPOAZIE
END
STRING F_GRUPPOAZIE 4
BEGIN
PROMPT 35 17 ""
FLAGS "U"
USE GAZ
INPUT CODTAB F_GRUPPOAZIE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_GRUPPOAZIE CODTAB
OUTPUT F_D_GRUPPOAZIE S0
CHECKTYPE NORMAL
WARNING "Codice gruppo aziendale non presente"
HELP "Gruppo aziendale di appartenenza"
END
STRING F_D_GRUPPOAZIE 30
BEGIN
PROMPT 43 17 ""
FLAGS "U"
USE GAZ KEY 2
INPUT S0 F_D_GRUPPOAZIE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
COPY OUTPUT F_GRUPPOAZIE
CHECKTYPE NORMAL
WARNING "Gruppo aziendale non presente"
HELP "Gruppo aziendale di appartenenza"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

102
at/at2700.cpp
View File

@ -88,13 +88,14 @@ class TStampaPerCategorie : public TPrintapp
int _schxpag, _lenpage, _etnlarghezza, _etncolonne; int _schxpag, _lenpage, _etnlarghezza, _etncolonne;
int _etlarghezza, _etcolonne, _etrighe, _etbordoini, _etbordofin, _netichette; int _etlarghezza, _etcolonne, _etrighe, _etbordoini, _etbordofin, _netichette;
int _caxpag, _cabordoini, _cabordofin, _ncartoline; int _caxpag, _cabordoini, _cabordofin, _ncartoline;
bool _stampa80, _etictot, _formfeed; bool _stampa80, _etictot;
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int m); virtual bool set_print(int m);
virtual void set_page(int file, int cnt); virtual void set_page(int file, int cnt);
bool filepers_put(const char* nomecampo, const char* valore);
virtual bool preprocess_page (int file, int counter); virtual bool preprocess_page (int file, int counter);
virtual print_action postprocess_print(int file, int counter); virtual print_action postprocess_print(int file, int counter);
ts dati_cartolina(); ts dati_cartolina();
@ -112,12 +113,28 @@ public:
TStampaPerCategorie() : _data_stampa(TODAY), _cognome_nome("",25), _dencom("",30), _benemerenza("",11) {} TStampaPerCategorie() : _data_stampa(TODAY), _cognome_nome("",25), _dencom("",30), _benemerenza("",11) {}
}; };
HIDDEN inline TStampaPerCategorie& app() { return (TStampaPerCategorie&) main_app(); } HIDDEN inline TStampaPerCategorie& app() { return (TStampaPerCategorie&) main_app(); }
TCursor* TEti_percat_form::cursor() const { return app().current_cursor(); } TCursor* TEti_percat_form::cursor() const { return app().current_cursor(); }
TRelation* TEti_percat_form::relation() const { return cursor()->relation(); } TRelation* TEti_percat_form::relation() const { return cursor()->relation(); }
static int compare_benem(const TObject** o1, const TObject** o2)
{
TRectype* r1 = (TRectype*)*o1;
TRectype* r2 = (TRectype*)*o2;
const TString b1(r1->get(BEN_TIPOBEN));
const TString b2(r2->get(BEN_TIPOBEN));
int b=0;
if (b1>b2) b=+1;
else
if (b1<b2) b=-1;
return b;
}
void TStampaPerCategorie::dati_sezione(const TString16 codsez, const TString16 codsot) void TStampaPerCategorie::dati_sezione(const TString16 codsez, const TString16 codsot)
{ {
_intest1 = current_cursor()->curr(LF_SEZIONI).get(SEZ_INTESTAZ1); _intest1 = current_cursor()->curr(LF_SEZIONI).get(SEZ_INTESTAZ1);
@ -653,6 +670,16 @@ void TStampaPerCategorie::header_sezione(const TString16 codsez, const TString16
return; return;
} }
bool TStampaPerCategorie::filepers_put(const char* nomecampo, const char* valore)
{
TRectype& curr_rec = _filepers->curr();
if (!curr_rec.exist(nomecampo))
return false;
curr_rec.put(nomecampo, valore);
return true;
}
bool TStampaPerCategorie::preprocess_page(int file, int counter) bool TStampaPerCategorie::preprocess_page(int file, int counter)
{ {
TRectype& recsog = current_cursor()->curr(); TRectype& recsog = current_cursor()->curr();
@ -675,9 +702,9 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
// cerco ultima benemerenza // cerco ultima benemerenza
TString80 benemerenza = ""; TString80 benemerenza = "";
const long codice = recsog.get_long(SOG_CODICE); const long codice = recsog.get_long(SOG_CODICE);
//TRectype* key = new TRectype(LF_BENEM);
TRectype key = TRectype(LF_BENEM); TRectype key = TRectype(LF_BENEM);
//key->put(BEN_CODICE,codice);
key.put(BEN_CODICE,codice); key.put(BEN_CODICE,codice);
const int err = _sbenemerenze->read(key); const int err = _sbenemerenze->read(key);
if (err == NOERR) if (err == NOERR)
@ -685,6 +712,10 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
const int ultima = _sbenemerenze->rows(); const int ultima = _sbenemerenze->rows();
if (ultima != 0) if (ultima != 0)
{ {
//sorting delle benemerenze (necessario in quanto alcuni stupidissimi volontari sono riusciti a mettere le benemerenze..
//..in ordine sparso!!!
_sbenemerenze->sort(compare_benem);
const TString16 codben = _sbenemerenze->row(ultima).get(BEN_TIPOBEN); const TString16 codben = _sbenemerenze->row(ultima).get(BEN_TIPOBEN);
benemerenza << cache().get("BNZ", codben).get("S0"); benemerenza << cache().get("BNZ", codben).get("S0");
} }
@ -860,6 +891,7 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
_file->put("COGNOME",recsog.get(SOG_COGNOME)); _file->put("COGNOME",recsog.get(SOG_COGNOME));
_file->put("NOME",recsog.get(SOG_NOME)); _file->put("NOME",recsog.get(SOG_NOME));
} }
_file->put("DATANASC", recsog.get_date(SOG_DATANASC));
_file->put("SPOSATA",recsog.get(SOG_COGNOME_SP)); _file->put("SPOSATA",recsog.get(SOG_COGNOME_SP));
_file->put("INDIRIZZO",recsog.get(SOG_DOM_INDIR)); _file->put("INDIRIZZO",recsog.get(SOG_DOM_INDIR));
_file->put("PRESSO",recsog.get(SOG_DOM_DISTRI)); _file->put("PRESSO",recsog.get(SOG_DOM_DISTRI));
@ -880,18 +912,19 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
if (_tipostampa==filepers) if (_tipostampa==filepers)
{ {
_filepers->zero(); _filepers->zero();
_filepers->put("ASSOCIAZ",current_cursor()->curr(LF_SEZIONI).get("DENSEZ")); filepers_put("ASSOCIAZ", current_cursor()->curr(LF_SEZIONI).get("DENSEZ"));
_filepers->put("DATANASC",recsog.get(SOG_DATANASC)); filepers_put("DATANASC",recsog.get(SOG_DATANASC));
_filepers->put("CATDON",recsog.get(SOG_CATDON)); filepers_put("CATDON",recsog.get(SOG_CATDON));
_filepers->put("TESSAVIS",recsog.get(SOG_TESSAVIS)); filepers_put("TESSAVIS",recsog.get(SOG_TESSAVIS));
_filepers->put("GRUPPOAB0",recsog.get(SOG_GRUPPOAB0)); filepers_put("GRUPPOAB0",recsog.get(SOG_GRUPPOAB0));
_filepers->put("KELL",recsog.get(SOG_KELL)); filepers_put("KELL",recsog.get(SOG_KELL));
_filepers->put("RHANTID",recsog.get(SOG_RHANTID)); filepers_put("RHANTID",recsog.get(SOG_RHANTID));
_filepers->put("SESSO", ((recsog.get(SOG_SESSO)[0] =='1') ? 'M' : 'F')); const char* sesso = recsog.get(SOG_SESSO)[0] =='1' ? "M" : "F";
_filepers->put("COGNOME",recsog.get(SOG_COGNOME)); filepers_put("SESSO", sesso);
_filepers->put("NOME",recsog.get(SOG_NOME)); filepers_put("COGNOME",recsog.get(SOG_COGNOME));
_filepers->put("INDIRIZZO",recsog.get(SOG_DOM_INDIR)); filepers_put("NOME",recsog.get(SOG_NOME));
_filepers->put("CAP",recsog.get(SOG_DOM_CAP)); filepers_put("INDIRIZZO",recsog.get(SOG_DOM_INDIR));
filepers_put("CAP",recsog.get(SOG_DOM_CAP));
TString80 localita = ""; TString80 localita = "";
if (recsog.get(SOG_DOM_CODLOC).not_empty()) if (recsog.get(SOG_DOM_CODLOC).not_empty())
localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0"); localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0");
@ -899,7 +932,7 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
localita << current_cursor()->curr(LF_COMUNI).get(COM_DENCOM); localita << current_cursor()->curr(LF_COMUNI).get(COM_DENCOM);
localita << ' ' << current_cursor()->curr(LF_COMUNI).get(COM_PROVCOM); localita << ' ' << current_cursor()->curr(LF_COMUNI).get(COM_PROVCOM);
localita.trim(); localita.trim();
_filepers->put("LOCALITA",localita); filepers_put("LOCALITA",localita);
_filepers->write(); _filepers->write();
do_events(); do_events();
} }
@ -975,7 +1008,6 @@ bool TStampaPerCategorie::set_print(int m)
_contatore = 0; _contatore = 0;
_netichette = 0; _netichette = 0;
_ncartoline = 0; _ncartoline = 0;
_formfeed = FALSE;
TString256 chiave = ""; TString256 chiave = "";
_pergruppo = _msk->get_bool(F_PERGRUPPO); _pergruppo = _msk->get_bool(F_PERGRUPPO);
_perfamiglie = _msk->get_bool(F_PERFAMIGLIE); _perfamiglie = _msk->get_bool(F_PERFAMIGLIE);
@ -1163,11 +1195,11 @@ void TStampaPerCategorie::crea_intestazione()
} }
TPrint_section& piede = _form_per->get_foot(); TPrint_section& piede = _form_per->get_foot();
piede.update(); piede.update();
for (word j = 0; j < piede.height(); j++) for (int i = 0; i < piede.height(); i++)
{ {
TPrintrow& riga = piede.row(j); TPrintrow& riga = piede.row(i);
TString256 riga1 = riga.row(); TString256 riga1 = riga.row();
set_footer(j + 1,riga1); set_footer(i+1,riga1);
} }
} }
if (_tipostampa==sintetico) if (_tipostampa==sintetico)
@ -1239,23 +1271,35 @@ bool TStampaPerCategorie::user_create()
add_cursor(new TSorted_cursor(_rel,"SOG_CODSEZ|SOG_CODSOT","",3)); add_cursor(new TSorted_cursor(_rel,"SOG_CODSEZ|SOG_CODSOT","",3));
_msk = new TMask("at2700a"); _msk = new TMask("at2700a");
TFilename filename = "at2700"; //attenzione: i files at2700a e at2700b, se si desiderano personalizzati, richiedono il tracciato record modificato..
//..in Custom; questo perchè le varie sezioni possono volere campi diversi; il max dei campi è quello che si trova..
//..nei trr ufficiali; la gestione dei campi mancanti è fatta dalla filepers_put() al momento della scrittura vera..
//..e propria dei files
//stampa indirizzi su file
TFilename filename = "at2700a";
filename.ext("dbf"); filename.ext("dbf");
TFilename filetrr = "at2700"; TFilename filetrr = "at2700a";
filetrr.ext("trr"); filetrr.ext("trr");
if (!filetrr.custom_path()) if (!filetrr.custom_path())
{ {
filetrr = "recdesc/at2700"; filetrr = "recdesc/at2700a";
filetrr.ext("trr"); filetrr.ext("trr");
} }
_file = new TExternisamfile(filename, filetrr, FALSE); _file = new TExternisamfile(filename, filetrr, false);
TFilename namepers("at2700"); //stampa file personalizzato
TFilename namepers = "at2700b";
namepers.ext("dbf"); namepers.ext("dbf");
if (namepers.exist()) TFilename perstrr = "at2700b";
_filepers = new TExternisamfile(namepers); perstrr.ext("trr");
else if (!perstrr.custom_path())
_filepers = NULL; {
perstrr = "recdesc/at2700b";
perstrr.ext("trr");
}
_filepers = new TExternisamfile(namepers, perstrr, false);
TConfig config(CONFIG_STUDIO); TConfig config(CONFIG_STUDIO);
TString16 etformato = config.get("EtFormato"); TString16 etformato = config.get("EtFormato");

23
at/at2900.cpp
View File

@ -47,7 +47,7 @@ class TFrequenza : public TPrintapp
int _cur; int _cur;
TParagraph_string _cognome_nome, _dencom, _numdonsog, _dataultdon; TParagraph_string _cognome_nome, _dencom, _numdonsog, _dataultdon;
TDate _data_stampa; TDate _data_stampa;
TDate _dataini,_datafin; TDate _dataini,_datafin, _dnini, _dnfin;
int _numdon; int _numdon;
TString16 _tipodon1, _tipodon2, _tipodon3, _tipodon4, _tipodon5, _tipodon; TString16 _tipodon1, _tipodon2, _tipodon3, _tipodon4, _tipodon5, _tipodon;
ts _tipostampa; ts _tipostampa;
@ -181,11 +181,29 @@ void TFrequenza::set_page(int file, int cnt)
bool TFrequenza::filter_func_freq(const TRelation* rel) bool TFrequenza::filter_func_freq(const TRelation* rel)
{ {
const TDate datanulla(NULLDATE);
bool filtrato = TRUE; bool filtrato = TRUE;
TLocalisamfile& sog = rel->lfile(); TLocalisamfile& sog = rel->lfile();
// filtro per sesso // filtro per sesso
if (app()._sesso != 'I') if (app()._sesso != 'I')
filtrato = (sog.get(SOG_SESSO)[0] == app()._sesso); filtrato = (sog.get(SOG_SESSO)[0] == app()._sesso);
// filtro per data nascita
if (filtrato)
{
if (app()._dnini != datanulla)
{
const TDate datanasc = sog.get_date(SOG_DATANASC);
filtrato = datanasc >= app()._dnini;
}
}
if (filtrato)
{
if (app()._dnfin != datanulla)
{
const TDate datanasc = sog.get_date(SOG_DATANASC);
filtrato = datanasc <= app()._dnfin;
}
}
// filtro per categorie // filtro per categorie
if (filtrato) if (filtrato)
{ {
@ -205,7 +223,6 @@ bool TFrequenza::filter_func_freq(const TRelation* rel)
numdon = sog.get_int(SOG_TOTDON); numdon = sog.get_int(SOG_TOTDON);
else else
{ {
const TDate datanulla(NULLDATE);
if (app()._dataini == datanulla) if (app()._dataini == datanulla)
numdon = sog.get_int(SOG_DONPRECSI) + sog.get_int(SOG_DONPRECAF); numdon = sog.get_int(SOG_DONPRECSI) + sog.get_int(SOG_DONPRECAF);
const long codice = sog.get_long(SOG_CODICE); const long codice = sog.get_long(SOG_CODICE);
@ -486,6 +503,8 @@ bool TFrequenza::set_print(int m)
if (catses.not_empty()) if (catses.not_empty())
_categorie.add((const char*) catses); _categorie.add((const char*) catses);
_sesso = _msk->get(F_SESSO)[0]; _sesso = _msk->get(F_SESSO)[0];
_dnini = _msk->get(F_DNINI);
_dnfin = _msk->get(F_DNFIN);
const char ordina = _msk->get(F_ORDINA)[0]; const char ordina = _msk->get(F_ORDINA)[0];
TString256 chiave = ""; TString256 chiave = "";
switch (ordina) switch (ordina)

4
at/at2900a.h
View File

@ -39,7 +39,9 @@
#define F_D_TIPODON5 314 #define F_D_TIPODON5 314
#define F_SESSO 351 #define F_SESSO 351
#define F_ORDINA 352 #define F_DNINI 352
#define F_DNFIN 353
#define F_ORDINA 354
#define F_ELENCO 401 #define F_ELENCO 401
#define F_ETICHETTE 402 #define F_ETICHETTE 402