root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 706

Browse Source 
Files correlati     : sc2.exe
Ricompilazione Demo : [ ]
Commento            :

analitica


git-svn-id: svn://10.65.10.50/trunk@20340 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-04-15 11:37:19 +00:00
parent 144b559cd7
commit 54300466e0
2 changed files with 21 additions and 15 deletions

13
sc/sc2100.cpp

@ -390,6 +390,7 @@ void TEC_row::export_to(TEC_recordset& r)
class TEC_array : public TArray
{
TArray _scaduto; // Array di importi scaduti
TDecoder _anal;
const TEC_form* _form; // Form che contiene l'array di righe
@ -575,7 +576,9 @@ void TEC_array::add_row(const TRiga_partite& row)
if (main_app().has_module(CAAUT))
{
const long numreg = row.get_long(PART_NREG);
const TString & numregcg = row.get(PART_NREG);
const long numreg = atol(_anal.decode(numregcg));
if (numreg > 0)
{
TAnal_mov anal_mov(numreg);
@ -731,7 +734,7 @@ void TEC_array::arrange_scaduto(const TPartita& game)
}
TEC_array::TEC_array(const TPartita& game, const TEC_form* f)
: _form(f)
: _form(f), _anal(LF_MOVANA, "NUMREG", 3)
{
int r;
for (r = game.last(); r > 0; r = game.pred(r))
@ -2008,9 +2011,9 @@ void TStampaEC_application::main_loop()
if (excel)
{
TFilename slk; slk.tempdir(); slk.add("ec.slk");
_form->recordset().save_as(slk, fmt_silk);
xvt_sys_goto_url(slk, "open");
TFilename xls; xls.tempdir(); xls.add("ec.xls");
_form->recordset().save_as(xls, fmt_html);
xvt_sys_goto_url(xls, "open");
}
delete _form;

23
sc/sc2600.cpp

@ -226,6 +226,9 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
real res_pagati;
real esposto;
if (p.anno() == 2009 && p.numero() == "032")
int i = 1;
compute_unassigned(p, _limbf);
esposto = _unsesp;
for (int r = p.last(); r > 0; r = p.pred(r)) // Browse all rows (partite)
@ -333,7 +336,7 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
{
if (_nsinfasce)
{
for (int i = _nsfasce + 1; i >= 0; i--)
for (int i = _nsfasce - 1; i >= 0; i--)
{
const TDate & limdate = (TDate&)_ns_date[i];
if (limdate.ok() && d > limdate)
@ -350,7 +353,7 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
{
if (_sinfasce)
{
for (int i = _sfasce + 1; i >= 0; i--)
for (int i = _sfasce - 1; i >= 0; i--)
{
const TDate & limdate = (TDate&)_s_date[i];
if (limdate.ok() && d <= limdate)
@ -632,9 +635,9 @@ void TProspettoScadenze::postclose_print()
{
if (_excel)
{
TFilename slk; slk.tempdir(); slk.add("prosscad.slk");
_recset->save_as(slk, fmt_silk);
xvt_sys_goto_url(slk, "open");
TFilename xls; xls.tempdir(); xls.add("prosscad.xls");
_recset->save_as(xls, fmt_html);
xvt_sys_goto_url(xls, "open");
delete _recset;
_recset = NULL;
}
@ -754,7 +757,7 @@ void TProspettoScadenze::print_totali_rows(int nriga, bool what)
TString value;
TLineTotal& v = (TLineTotal&)xassoc[k];
real tot = ZERO;
int pos = 40;
int pos = 49;
TString rw(255);
rw = "";
@ -892,7 +895,7 @@ void TProspettoScadenze::export_totali_rows()
if (_sinfasce)
{
for (int i = _sfasce; i >= 0; i--)
for (int i = _sfasce - 1; i >= 0; i--)
{
_recset->set(_colnames.row(col++), v._s[i]);
tot += v._s[i];
@ -906,7 +909,7 @@ void TProspettoScadenze::export_totali_rows()
if (_nsinfasce)
{
for (int i = 0; i <= _nsfasce; i++)
for (int i = 0; i < _nsfasce; i++)
{
_recset->set(_colnames.row(col++), v._ns[i]);
tot += v._ns[i];
@ -982,7 +985,7 @@ void TProspettoScadenze::print_header()
meno.fill('-', last_column);
set_header(soh++,(const char *)meno);
set_header(soh,"CODICE@8gC O G N O M E E N O M E ");
int pos = 40;
int pos = 49;
rw.cut(0);
if (_sinfasce)
@ -994,7 +997,7 @@ void TProspettoScadenze::print_header()
rw << format("@%dg <= %3d gg", pos, _limiti[i] * 30);
pos += 12;
}
set_header(soh, format("@%dg%s", 40+((pos-40)/2), "SCADUTO"));
set_header(soh, format("@%dg%s", 49+((pos-49)/2), "SCADUTO"));
}
else
{