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            : Possibiltá di fare la stampa per gruppo aziendale + toolbar nella maschera


git-svn-id: svn://10.65.10.50/trunk@8977 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2000-05-04 14:52:26 +00:00
parent 867a668a77
commit e94b044ffe
3 changed files with 122 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
at/at6300.cpp
View File

@ -21,13 +21,13 @@ class TControlloDonazioni : public TPrintapp
TLocalisamfile* _contsan; TLocalisamfile* _contsan;
int _contatore, _totfinestampa; int _contatore, _totfinestampa;
TDate _dataold, _dataini, _datafin; TDate _dataold, _dataini, _datafin;
TString16 _tipodon, _luogodon, _luogoold, _sezold; TString16 _tipodon, _luogodon, _luogoold, _sezold, _gruppoold, _gruppoazie;
TString16 _sezini, _sotini, _sezfin, _sotfin; TString16 _sezini, _sotini, _sezfin, _sotfin;
TString16 _tipostampa, _ordinamento, _controllo, _prima; TString16 _tipostampa, _ordinamento, _controllo, _prima;
bool _stampa80, _primedon, _breve; bool _stampa80, _primedon, _breve;
TParagraph_string _cognome_nome; TParagraph_string _cognome_nome;
TArray _giorni, _mesi, _giornifinale; TArray _giorni, _mesi, _giornifinale;
bool _riepfinale; bool _riepfinale, _pergruppo;
protected: protected:
virtual bool user_create(); virtual bool user_create();
@ -39,7 +39,7 @@ protected:
public: public:
void crea_intestazione(); void crea_intestazione();
void header_stampa(const TDate data, const TString16 luogo, const TString16 sezione, const TString16 sottog); void header_stampa(const TDate data, const TString16 luogo, const TString16 sezione, const TString16 sottog, const TString16 gruppoazie);
void footer_stampa(); void footer_stampa();
void fine_stampa(); void fine_stampa();
TMask& app_mask() { return *_msk; } TMask& app_mask() { return *_msk; }
@ -137,7 +137,7 @@ bool TControlloDonazioni::preprocess_page(int file, int counter)
if (_dataold.ok()) if (_dataold.ok())
footer_stampa(); footer_stampa();
_dataold = datanew; _dataold = datanew;
header_stampa(datanew,"","",""); header_stampa(datanew,"","","","");
_contatore = 0; _contatore = 0;
} }
} }
@ -150,7 +150,7 @@ bool TControlloDonazioni::preprocess_page(int file, int counter)
if (_luogoold != "****") if (_luogoold != "****")
footer_stampa(); footer_stampa();
_luogoold = luogonew; _luogoold = luogonew;
header_stampa(NULLDATE,luogonew,"",""); header_stampa(NULLDATE,luogonew,"","","");
_contatore = 0; _contatore = 0;
} }
} }
@ -170,7 +170,20 @@ bool TControlloDonazioni::preprocess_page(int file, int counter)
if (_sezold != "****") if (_sezold != "****")
footer_stampa(); footer_stampa();
_sezold = seznew; _sezold = seznew;
header_stampa(NULLDATE,"",sezione,sottog); header_stampa(NULLDATE,"",sezione,sottog,"");
_contatore = 0;
}
}
break;
case 'G':
{
TString16 grupponew = current_cursor()->curr(LF_SOGGETTI).get(SOG_GRUPPOAZIE);
if (grupponew != _gruppoold )
{
if (_gruppoold != "****")
footer_stampa();
_gruppoold = grupponew;
header_stampa(NULLDATE,"","","",grupponew);
_contatore = 0; _contatore = 0;
} }
} }
@ -309,7 +322,7 @@ void TControlloDonazioni::fine_stampa()
reset_footer(); reset_footer();
} }
void TControlloDonazioni::header_stampa(const TDate data, const TString16 luogo, const TString16 sezione, const TString16 sottog) void TControlloDonazioni::header_stampa(const TDate data, const TString16 luogo, const TString16 sezione, const TString16 sottog, const TString16 gruppoazie)
{ {
TString intestazione(132); TString intestazione(132);
intestazione = "STAMPA DI CONTROLLO DONAZIONI "; intestazione = "STAMPA DI CONTROLLO DONAZIONI ";
@ -360,6 +373,19 @@ void TControlloDonazioni::header_stampa(const TDate data, const TString16 luogo,
} }
} }
break; break;
case 'G':
{
intestazione << "PER GRUPPO AZIENDALE ";
if (gruppoazie.not_empty())
{
intestazione << " ";
TTable gaz("GAZ");
gaz.put("CODTAB",gruppoazie);
if (gaz.read() == NOERR)
intestazione << gaz.get("S0");
}
}
break;
} }
if (_stampa80) if (_stampa80)
intestazione.center_just(80); intestazione.center_just(80);
@ -392,6 +418,9 @@ bool TControlloDonazioni::set_print(int m)
_breve = _msk->get_bool(F_BREVE); _breve = _msk->get_bool(F_BREVE);
if (_breve) if (_breve)
_cognome_nome.set_width(50); _cognome_nome.set_width(50);
_pergruppo = _msk->get_bool(F_PERGRUPPO);
if (_pergruppo)
_gruppoazie = _msk->get(F_GRUPPOAZIE);
_tipostampa = _msk->get(F_TIPOSTAMPA); _tipostampa = _msk->get(F_TIPOSTAMPA);
_ordinamento = _msk->get(F_ORDINAMENTO); _ordinamento = _msk->get(F_ORDINAMENTO);
_riepfinale = _msk->get_bool(F_RIEPFINALE); _riepfinale = _msk->get_bool(F_RIEPFINALE);
@ -402,14 +431,14 @@ bool TControlloDonazioni::set_print(int m)
chiave = "92->DATADON|"; chiave = "92->DATADON|";
break; break;
case 'L': case 'L':
//chiave = "92->LUOGODON|92->DATADON|";
chiave = "92->LUOGODON|"; chiave = "92->LUOGODON|";
break; break;
case 'S': case 'S':
//chiave = "90->CODSEZ|90->CODSOT|92->DATADON|";
//chiave = "92->CODSEZ|92->CODSOT|92->DATADON|";
chiave = "92->CODSEZ|92->CODSOT|"; chiave = "92->CODSEZ|92->CODSOT|";
break; break;
case 'G':
chiave = "90->GRUPPOAZIE|";
break;
} }
switch (_ordinamento[0]) switch (_ordinamento[0])
{ {
@ -433,60 +462,44 @@ bool TControlloDonazioni::set_print(int m)
break; break;
} }
TString256 filtro = ""; TString256 filtro = "";
TString80 filtrotmp ="";
// filtro per tipo donazione // filtro per tipo donazione
if (_tipodon.not_empty()) if (_tipodon.not_empty())
filtro = format("(TIPODON == \"%s\")",(const char*)_tipodon); filtro.format("(TIPODON == \"%s\")",(const char*)_tipodon);
// filtro per luogo donazione // filtro per luogo donazione
if (_luogodon.not_empty()) if (_luogodon.not_empty())
{ {
if (filtro.empty()) filtrotmp.format("(LUOGODON == \"%s\")",(const char*)_luogodon);
filtro = format("(LUOGODON == \"%s\")",(const char*)_luogodon); if (filtro.not_empty())
else
{
filtro << " && "; filtro << " && ";
filtro << format("(LUOGODON == \"%s\")",(const char*)_luogodon); filtro << filtrotmp;
}
} }
// filtro per prime donazioni
if (_primedon) if (_primedon)
{ {
if (filtro.empty()) filtrotmp.format("(PRIMADON == \"X\")");
filtro = format("(PRIMADON == \"X\")"); if (filtro.not_empty())
else
{
filtro << " && "; filtro << " && ";
filtro << format("(PRIMADON == \"X\")"); filtro << filtrotmp;
} }
} // filtro per gruppo aziendale
if (_pergruppo)
{
if (_gruppoazie.not_empty())
filtrotmp.format("(90->GRUPPOAZIE == \"%s\")",(const char*)_gruppoazie);
else
filtrotmp.format("(90->GRUPPOAZIE != \"\")");
if (filtro.not_empty())
filtro << " && ";
filtro << filtrotmp;
}
TString16 inizio = ""; TString16 inizio = "";
inizio << _sezini; inizio << _sezini;
inizio << _sotini; inizio << _sotini;
TString16 fine = ""; TString16 fine = "";
fine << _sezfin; fine << _sezfin;
fine << _sotfin; fine << _sotfin;
// filtro per sezione/sottogruppo
/*
if (inizio.not_empty())
{
if (filtro.empty())
filtro = format("(90->CODSEZ+90->CODSOT >= \"%s\")",(const char*)inizio);
else
{
filtro << " && ";
filtro << format("(90->CODSEZ+90->CODSOT >= \"%s\")",(const char*)inizio);
}
if (fine.not_empty())
{
if (filtro.empty())
filtro = format("(90->CODSEZ+90->CODSOT <= \"%s\")",(const char*)fine);
else
{
filtro << " && ";
filtro << format("(90->CODSEZ+90->CODSOT <= \"%s\")",(const char*)fine);
}
}
}
*/
if (inizio.not_empty()) if (inizio.not_empty())
{ {
if (filtro.empty()) if (filtro.empty())
@ -547,6 +560,7 @@ bool TControlloDonazioni::set_print(int m)
_dataold = NULLDATE; _dataold = NULLDATE;
_luogoold = "****"; _luogoold = "****";
_sezold = "****"; _sezold = "****";
_gruppoold = "****";
reset_files(); reset_files();
add_file(LF_DONAZ); add_file(LF_DONAZ);
reset_print(); reset_print();

7
at/at6300a.h
View File

@ -18,5 +18,8 @@
#define F_TIPOSTAMPA 115 #define F_TIPOSTAMPA 115
#define F_ORDINAMENTO 116 #define F_ORDINAMENTO 116
#define F_RIEPFINALE 117 #define F_RIEPFINALE 117
#define F_D_TIPODON 201 #define F_PERGRUPPO 118
#define F_D_LUOGODON 202 #define F_GRUPPOAZIE 119
#define F_D_GRUPPOAZIE 120
#define F_D_TIPODON 121
#define F_D_LUOGODON 122

68
at/at6300a.uml
View File

@ -1,5 +1,19 @@
#include "at6300a.h" #include "at6300a.h"
TOOLBAR "" 0 -3 0 3
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Stampa di controllo donazioni" -1 -1 78 20 PAGE "Stampa di controllo donazioni" -1 -1 78 20
GROUPBOX DLG_NULL 77 4 GROUPBOX DLG_NULL 77 4
@ -117,7 +131,7 @@ BEGIN
HELP "Sottogruppo finale" HELP "Sottogruppo finale"
END END
GROUPBOX DLG_NULL 77 7 GROUPBOX DLG_NULL 77 8
BEGIN BEGIN
PROMPT 1 4 "Opzioni per la stampa" PROMPT 1 4 "Opzioni per la stampa"
END END
@ -191,17 +205,55 @@ BEGIN
PROMPT 2 9 "Riepilogo mensile e annuale a fine pagina" PROMPT 2 9 "Riepilogo mensile e annuale a fine pagina"
END END
BOOLEAN F_PERGRUPPO
BEGIN
PROMPT 2 10 "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 10 ""
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 10 ""
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
RADIOBUTTON F_TIPOSTAMPA 25 RADIOBUTTON F_TIPOSTAMPA 25
BEGIN BEGIN
PROMPT 1 11 "Stampa per " PROMPT 1 12 "Stampa per "
ITEM "D|Data donazione" ITEM "D|Data donazione"
ITEM "L|Punto prelievo" ITEM "L|Punto prelievo"
ITEM "S|Sezione/Sottogruppo" ITEM "S|Sezione/Sottogruppo"
ITEM "G|Gruppo aziendale"
END END
RADIOBUTTON F_ORDINAMENTO 35 RADIOBUTTON F_ORDINAMENTO 35
BEGIN BEGIN
PROMPT 30 11 "Ordinamento per" PROMPT 30 12 "Ordinamento per"
ITEM "C|Data don. e cognome e nome" ITEM "C|Data don. e cognome e nome"
ITEM "I|Data don. e Inserimento" ITEM "I|Data don. e Inserimento"
ITEM "E|Data don. e etichetta sacca" ITEM "E|Data don. e etichetta sacca"
@ -210,15 +262,5 @@ BEGIN
ITEM "Z|Etichetta sacca e data don." ITEM "Z|Etichetta sacca e data don."
END END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK