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/branches/R_10_00@21954 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-04-14 08:40:15 +00:00
parent a2824c7719
commit 9c2bde38ae
4 changed files with 44 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
at/at1500.cpp
View File

@ -29,7 +29,7 @@ class TControlloBenemerenze : public TPrintapp
TDate _data_stampa; TDate _data_stampa;
TString16 _lettini, _lettfin; TString16 _lettini, _lettfin;
TString16 _gruppoazie, _gruppoold; TString16 _gruppoazie, _gruppoold;
bool _pergruppo; bool _pergruppo,_soloprem;
int _contatore; int _contatore;
TString16 _codsez, _codsot; TString16 _codsez, _codsot;
TString256 _intestazione1, _intestazione2; TString256 _intestazione1, _intestazione2;
@ -220,7 +220,7 @@ bool TControlloBenemerenze::preprocess_page(int file, int counter)
key->put(BEN_CODICE,codice); key->put(BEN_CODICE,codice);
const int err = _sbenemerenze->read(key); const int err = _sbenemerenze->read(key);
const int items = _sbenemerenze->rows(); const int items = _sbenemerenze->rows();
if (items <= 0) if ((items <= 0) && (_soloprem))
return false; return false;
for (int r=1; r<=items; r++) for (int r=1; r<=items; r++)
{ {
@ -284,6 +284,8 @@ bool TControlloBenemerenze::set_print(int m)
_contatore = 0; _contatore = 0;
TString80 chiave = ""; TString80 chiave = "";
_pergruppo = _msk->get_bool(F_PERGRUPPO); _pergruppo = _msk->get_bool(F_PERGRUPPO);
_soloprem = _msk->get_bool(F_SOLOPREM);
const bool ordinealf = _msk->get_bool(F_ORDINEALF);
if (_pergruppo) if (_pergruppo)
{ {
_gruppoazie = _msk->get(F_GRUPPOAZIE); _gruppoazie = _msk->get(F_GRUPPOAZIE);
@ -292,7 +294,10 @@ bool TControlloBenemerenze::set_print(int m)
} }
else else
chiave << "90->CODSEZ|90->CODSOT|"; chiave << "90->CODSEZ|90->CODSOT|";
chiave << "90->TOTDON|90->COGNOME|90->NOME"; if (ordinealf)
chiave << "90->COGNOME|90->NOME";
else
chiave << "90->TOTDON|90->COGNOME|90->NOME";
_lettini = _msk->get(F_LETTINI); _lettini = _msk->get(F_LETTINI);
_lettini.left(15); _lettini.left(15);
_lettfin = _msk->get(F_LETTFIN); _lettfin = _msk->get(F_LETTFIN);

3
at/at1500a.h
View File

@ -28,3 +28,6 @@
#define F_D_GRUPPOAZIE 403 #define F_D_GRUPPOAZIE 403
#define F_LETTINI 405 #define F_LETTINI 405
#define F_LETTFIN 406 #define F_LETTFIN 406
#define F_SOLOPREM 407
#define F_ORDINEALF 408

12
at/at1500a.uml
View File

@ -247,7 +247,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 4 GROUPBOX DLG_NULL 77 5
BEGIN BEGIN
PROMPT 1 9 "Opzioni di stampa" PROMPT 1 9 "Opzioni di stampa"
END END
@ -303,5 +303,15 @@ BEGIN
FLAG "U" FLAG "U"
END END
BOOLEAN F_SOLOPREM
BEGIN
PROMPT 2 12 "Stampa solo donatori con almeno una benemerenza"
END
BOOLEAN F_ORDINEALF
BEGIN
PROMPT 40 12 "Ordine alfabetico"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

43
at/at7300.cpp
View File

@ -393,16 +393,16 @@ bool TStampeSingole::user_create()
_rel->add("LDN", "CODTAB==LUOGODON",1,LF_DONAZ, ALIAS_LDNDON); _rel->add("LDN", "CODTAB==LUOGODON",1,LF_DONAZ, ALIAS_LDNDON);
_rel->add(LF_BENEM, "CODICE==CODICE", 1); _rel->add(LF_BENEM, "CODICE==CODICE", 1);
_rel->add("BNZ", "CODTAB==TIPOBEN", 1, LF_BENEM, ALIAS_BNZ); _rel->add("BNZ", "CODTAB==TIPOBEN", 1, LF_BENEM, ALIAS_BNZ);
_rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD); _rel->add("CTD", "CODTAB==CATDON",1,LF_SOGGETTI, ALIAS_CTD);
_rel->add("CTN", "CODTAB==CATNOND1",1,0,ALIAS_CTN1); _rel->add("CTN", "CODTAB==CATNOND1",1, LF_SOGGETTI, ALIAS_CTN1);
_rel->add("CTN", "CODTAB==CATNOND2",1,0,ALIAS_CTN2); _rel->add("CTN", "CODTAB==CATNOND2",1, LF_SOGGETTI, ALIAS_CTN2);
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS); _rel->add("TCS", "CODTAB==STATO",1, LF_SOGGETTI, ALIAS_TCS);
_rel->add("LDN", "CODTAB==PUNTORACC",1,0,ALIAS_LDN); _rel->add("LDN", "CODTAB==PUNTORACC",1, LF_SOGGETTI, ALIAS_LDN);
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCPDOM); _rel->add("LCP", "CODTAB==DOM_CODLOC",1, LF_SOGGETTI, ALIAS_LCPDOM);
_rel->add(LF_COMUNI, "COM==DOM_CODCOM",1,0,ALIAS_COMDOM); _rel->add(LF_COMUNI, "COM==DOM_CODCOM",1, LF_SOGGETTI, ALIAS_COMDOM);
_rel->add(LF_COMUNI, "COM==COMNASC",1,0,ALIAS_COMNAS); _rel->add(LF_COMUNI, "COM==COMNASC",1, LF_SOGGETTI, ALIAS_COMNAS);
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT"); _rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT", 1, LF_SOGGETTI);
_rel->add(LF_MEDICI, "CODMED==CODMED"); _rel->add(LF_MEDICI, "CODMED==CODMED", 1, LF_SOGGETTI);
_donaz = new TLocalisamfile(LF_DONAZ); _donaz = new TLocalisamfile(LF_DONAZ);
_benem = new TLocalisamfile(LF_BENEM); _benem = new TLocalisamfile(LF_BENEM);
_sdonazioni = new TRecord_array(LF_DONAZ,DON_PROGDON); _sdonazioni = new TRecord_array(LF_DONAZ,DON_PROGDON);
@ -478,17 +478,18 @@ bool TStampeSingole::soggetti_notify(TSheet_field& s, int r, KEY k)
{ {
TToken_string& row = s.row(r); TToken_string& row = s.row(r);
const long codsog = row.get_long(0); const long codsog = row.get_long(0);
if (codsog != 0) //if (codsog != 0)
for (int i=s.items()-1; i>=0; i--) // for (int i=s.items()-1; i>=0; i--)
{ // {
if (i != r) // if (i != r)
{ // {
TToken_string& row = s.row(i); // TToken_string& row = s.row(i);
if (codsog == row.get_long(0)) // if (codsog == row.get_long(0))
return s.sheet_mask().field(F_S_CODICE).error_box("Soggetto gia' inserito"); // return s.sheet_mask().field(F_S_CODICE).error_box("Soggetto gia' inserito");
} // }
} // }
else //else
if (codsog==0)
{ {
const char* cognome = row.get(1); const char* cognome = row.get(1);
if ((cognome != NULL) && (cognome != "\0")) if ((cognome != NULL) && (cognome != "\0"))