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            : Se la categoria e' vuota la statistica e' complessiva per tutte le categorie non di dimissione


git-svn-id: svn://10.65.10.50/trunk@7740 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1999-02-02 14:43:55 +00:00
parent 725ef771e3
commit 9500565e6a
4 changed files with 117 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
at/at3100.cpp
View File

@ -237,16 +237,19 @@ void TStatSogxEta::crea_intestazione()
row.put("@>", 1); row.put("@>", 1);
row.put("Pag. @#", 105); row.put("Pag. @#", 105);
printer().setheaderline(2, row); printer().setheaderline(2, row);
sep = ""; sep = "";
sep << "Categoria "; if (_catdon.not_empty())
sep << _catdon; {
sep << " "; sep << "Categoria " << _catdon << ' ';
TTable ctd("CTD"); TTable ctd("CTD");
ctd.zero(); ctd.zero();
ctd.put("CODTAB", _catdon); ctd.put("CODTAB", _catdon);
ctd.read(); ctd.read();
if (ctd.good()) if (ctd.good())
sep << ctd.get("S0"); sep << ctd.get("S0");
}
else
sep << "Tutte le categorie non dimessi";
sep.center_just(120); sep.center_just(120);
row.reset(); row.reset();
row.put(sep); row.put(sep);
@ -541,31 +544,47 @@ bool TStatSogxEta::riepilogo()
catcoll = ""; catcoll = "";
dataisc = NULLDATE; dataisc = NULLDATE;
datadim = NULLDATE; datadim = NULLDATE;
ok = FALSE; ok = FALSE;
if (catdon.not_empty()) if (catdon.not_empty())
{ {
if (catdim) if (_catdon.not_empty())
{ {
datadim = recsog.get_date(SOG_DATADIM); if (catdim)
ok = ((catdon == _catdon) && (datadim <= _data)); {
} datadim = recsog.get_date(SOG_DATADIM);
else ok = ((catdon == _catdon) && (datadim <= _data));
{ }
dataisc = recsog.get_date(SOG_DATAISC); else
ok = ((catdon == _catdon) && (dataisc <= _data)); {
if (!ok) dataisc = recsog.get_date(SOG_DATAISC);
{ ok = ((catdon == _catdon) && (dataisc <= _data));
ctd.put("CODTAB", catdon); if (!ok)
if (ctd.read() == NOERR)
{ {
catcoll = ctd.get("S6"); ctd.put("CODTAB", catdon);
datadim = recsog.get_date(SOG_DATADIM); if (ctd.read() == NOERR)
ok = ((catcoll == _catdon) && (dataisc <= _data) && (datadim > _data)); {
} catcoll = ctd.get("S6");
// se la categoria collegata è vuota occorre esaminare lo storico datadim = recsog.get_date(SOG_DATADIM);
} ok = ((catcoll == _catdon) && (dataisc <= _data) && (datadim > _data));
} }
} // se la categoria collegata è vuota occorre esaminare lo storico
}
}
}
else
{
ctd.put("CODTAB", catdon);
dataisc = recsog.get_date(SOG_DATAISC);
datadim = recsog.get_date(SOG_DATADIM);
if (ctd.read() == NOERR)
{
if (ctd.get_bool("B0"))
ok = ((dataisc <= _data) && (datadim > _data));
else
ok = (dataisc <= _data);
}
}
}
if (ok) if (ok)
{ {
codsez = recsog.get(SOG_CODSEZ); codsez = recsog.get(SOG_CODSEZ);

10
at/at3100a.uml
View File

@ -148,6 +148,16 @@ BEGIN
PROMPT 45 6 "Data elaborazione " PROMPT 45 6 "Data elaborazione "
END END
TEXT DLG_NULL
BEGIN
PROMPT 25 8 "Se la categoria e' vuota, la statistica vale"
END
TEXT DLG_NULL
BEGIN
PROMPT 25 9 "per tutte le categorie non di dimissione"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "Fascie di eta'" PROMPT 2 7 "Fascie di eta'"

67
at/at3700.cpp
View File

@ -1,5 +1,4 @@
#include <applicat.h> #include <applicat.h>
//#include <execp.h>
#include <mask.h> #include <mask.h>
#include <printer.h> #include <printer.h>
#include <progind.h> #include <progind.h>
@ -251,8 +250,18 @@ void TStatisticaSog::crea_intestazione()
row.put("Pag. @#", 70); row.put("Pag. @#", 70);
printer().setheaderline(2, row); printer().setheaderline(2, row);
sep = ""; sep = "";
sep << "Categoria "; if (_catdon.not_empty())
sep << _catdon; {
sep << "Categoria " << _catdon << ' ';
TTable ctd("CTD");
ctd.zero();
ctd.put("CODTAB", _catdon);
ctd.read();
if (ctd.good())
sep << ctd.get("S0");
}
else
sep << "Tutte le categorie non dimessi";
sep.center_just(80); sep.center_just(80);
row.reset(); row.reset();
row.put(sep); row.put(sep);
@ -536,28 +545,44 @@ bool TStatisticaSog::riepilogo()
datadim = NULLDATE; datadim = NULLDATE;
ok = FALSE; ok = FALSE;
if (catdon.not_empty()) if (catdon.not_empty())
{ {
if (catdim) if (_catdon.not_empty())
{ {
datadim = recsog.get_date(SOG_DATADIM); if (catdim)
ok = ((catdon == _catdon) && (datadim <= _data)); {
datadim = recsog.get_date(SOG_DATADIM);
ok = ((catdon == _catdon) && (datadim <= _data));
}
else
{
dataisc = recsog.get_date(SOG_DATAISC);
ok = ((catdon == _catdon) && (dataisc <= _data));
if (!ok)
{
ctd.put("CODTAB", catdon);
if (ctd.read() == NOERR)
{
catcoll = ctd.get("S6");
datadim = recsog.get_date(SOG_DATADIM);
ok = ((catcoll == _catdon) && (dataisc <= _data) && (datadim > _data));
}
// se la categoria collegata è vuota occorre esaminare lo storico
}
}
} }
else else
{ {
ctd.put("CODTAB", catdon);
dataisc = recsog.get_date(SOG_DATAISC); dataisc = recsog.get_date(SOG_DATAISC);
ok = ((catdon == _catdon) && (dataisc <= _data)); datadim = recsog.get_date(SOG_DATADIM);
if (!ok) if (ctd.read() == NOERR)
{ {
ctd.put("CODTAB", catdon); if (ctd.get_bool("B0"))
if (ctd.read() == NOERR) ok = ((dataisc <= _data) && (datadim > _data));
{ else
catcoll = ctd.get("S6"); ok = (dataisc <= _data);
datadim = recsog.get_date(SOG_DATADIM); }
ok = ((catcoll == _catdon) && (dataisc <= _data) && (datadim > _data)); }
}
// se la categoria collegata è vuota occorre esaminare lo storico
}
}
} }
if (ok) if (ok)
{ {

11
at/at3700a.uml
View File

@ -117,7 +117,7 @@ BEGIN
HELP "Sottogruppo finale" HELP "Sottogruppo finale"
END END
GROUPBOX DLG_NULL 77 3 GROUPBOX DLG_NULL 77 5
BEGIN BEGIN
PROMPT 1 5 "Opzioni per la statistica" PROMPT 1 5 "Opzioni per la statistica"
END END
@ -148,6 +148,15 @@ BEGIN
PROMPT 45 6 "Data elaborazione " PROMPT 45 6 "Data elaborazione "
END END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "Se la categoria e' vuota, la statistica vale"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "per tutte le categorie non di dimissione"
END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN