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

Patch level : 2.2

Browse Source 
Files correlati     : ca2
Ricompilazione Demo : [ ]
Commento            :
Migliorata rigenerazione righe analitiche a partire da quelle contabili
nel caso di conti privi di ripartizione.
Se possibile vengono anche preservate commessa e fase.


git-svn-id: svn://10.65.10.50/trunk@13689 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2006-01-12 16:17:47 +00:00
parent b841ba91d7
commit 30350733cb
1 changed files with 107 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

139
ca/ca2100.cpp
View File

@ -21,6 +21,7 @@
class TMovanal_msk : public TAutomask
{
TAssoc_array _saldi;
bool _use_pdc;
protected:
virtual bool on_field_event(TOperable_field& o, TField_event fe, long jolly);
@ -39,6 +40,7 @@ protected:
int create_sheet_fields(int lf, int& y, short& dlg, bool required);
void create_sheet();
int get_constant_columns(TToken_string& tok) const;
public:
void reset_saldi();
@ -188,39 +190,48 @@ void TMovanal_msk::split_cg_row(const TRectype& row, const TRecord_array& rrip)
bool TMovanal_msk::is_ripartible_movcg()
{
const TString& numregcg = get(F_NUMREGCG);
TRecord_array cg(numregcg, LF_RMOV);
TString80 query;
for (int r = cg.last_row(); r > 0; r--)
bool ok = true;
if (!_use_pdc)
{
const TRectype& row = cg.row(r);
for (int i = 3; i > 0; i--)
{
query = "USE RIP SELECT";
query << " (GRUPPO=" << row.get(RMV_GRUPPO) << ')'; // Il gruppo c'e' sempre
const int conto = i > 1 ? row.get_int(RMV_CONTO) : 0; // Il conto c'e' per i = 2 o 3
query << "&&(CONTO=" << conto << ')';
if (conto > 0)
{
const long sotto = i > 2 ? row.get_long(RMV_SOTTOCONTO) : 0; // Il sottoconto c'e' per i = 3
query << "&&(SOTTOCONTO=" << sotto << ')';
}
query << "\nFROM TIPO='I'\nTO TIPO='I'";
const TString& numregcg = get(F_NUMREGCG);
TRecord_array cg(numregcg, LF_RMOV);
TISAM_recordset rs(query);
if (rs.items() > 0) // Ho trovato la ripartizione!
break;
}
if (i <= 0) // Non trovato la ripartizione
TString80 query;
for (int r = cg.last_row(); r > 0; r--)
{
return error_box("Non esiste una ripartizione del conto %d.%d.%ld\n"
"presente sulla riga %d del movimento %ld",
row.get_int(RMV_GRUPPO), row.get_int(RMV_CONTO), row.get_long(RMV_SOTTOCONTO),
r, atol(numregcg));
const TRectype& row = cg.row(r);
const TBill zio(row);
if (zio.is_analitico())
{
for (int i = 3; i > 0; i--)
{
query = "USE RIP SELECT";
query << " (GRUPPO=" << zio.gruppo() << ')'; // Il gruppo c'e' sempre
const int conto = i > 1 ? zio.conto() : 0; // Il conto c'e' per i = 2 o 3
query << "&&(CONTO=" << conto << ')';
if (conto > 0)
{
const long sotto = i > 2 ? zio.sottoconto() : 0; // Il sottoconto c'e' per i = 3
query << "&&(SOTTOCONTO=" << sotto << ')';
}
query << "\nFROM TIPO='I'\nTO TIPO='I'";
TISAM_recordset rs(query);
if (rs.items() > 0) // Ho trovato la ripartizione!
break;
}
if (i <= 0) // Non trovato la ripartizione
{
ok = error_box("Non esiste una ripartizione del conto %d.%d.%ld\n"
"presente sulla riga %d del movimento %ld",
zio.gruppo(), zio.conto(), zio.sottoconto(),
r, atol(numregcg));
break;
}
}
}
}
return true;
return ok;
}
void TMovanal_msk::load_cg_row(const TRectype& row)
@ -256,10 +267,21 @@ void TMovanal_msk::load_cg_row(const TRectype& row)
if (i == 0) // Non ho trovato nessuno schema di ripartizione valido
{
// Creo una riga nuova
TToken_string& riga = sfield(F_RIGHE).row(-1);
TSheet_field& sheet = sfield(F_RIGHE);
TToken_string& riga = sheet.row(-1);
const TImporto imp(row.get_char(RMV_SEZIONE), row.get_real(RMV_IMPORTO));
imp2row(imp, riga); // Ci copio l'importo
riga.add(row.get(RMV_DESCR), 2); // e la descrizione della riga contabile
if (_use_pdc)
{
TMask_field* f = sheet.sheet_mask().find_by_fieldname(RMOVANA_CODCONTO);
const int pos = sheet.cid2index(f->dlg());
TString8 str;
str = row.get(RMV_GRUPPO); str.right_just(3, '0'); riga.add(str, pos-2);
str = row.get(RMV_CONTO); str.right_just(3, '0'); riga.add(str, pos-1);
str = row.get(RMV_SOTTOCONTO); str.right_just(6, '0'); riga.add(str, pos);
}
}
}
@ -301,6 +323,44 @@ void TMovanal_msk::load_cg_mov()
set(F_SEZIONE, sez);
}
int TMovanal_msk::get_constant_columns(TToken_string& tok) const
{
int n = 0;
TSheet_field& sf = sfield(F_RIGHE);
const int items = sf.items();
if (items > 0)
{
TMask& m = sf.sheet_mask();
for (int f = 0; f < m.fields(); f++)
{
const TMask_field& mf = m.fld(f);
const TFieldref* fr = mf.field();
if (fr != NULL && !fr->name().starts_with(RMOVANA_CODCONTO))
{
const int i = sf.cid2index(mf.dlg());
if (i >= 2)
{
const TString campione = sf.row(0).get(i);
if (!campione.blank())
{
for (int j = items-1; j > 0; j--)
{
if (campione != sf.row(j).get(i))
break;
}
if (j == 0)
{
tok.add(campione, i);
n++;
}
}
}
}
}
}
return n;
}
bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
@ -394,9 +454,24 @@ bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
{
if (is_ripartible_movcg())
{
TToken_string constants;
const int cc = get_constant_columns(constants);
TSheet_field& sf = sfield(F_RIGHE);
sf.destroy();
load_cg_mov();
if (cc > 0) // Se ci sono colonne costanti le recupera da quelle vecchie salvate
{
TString campione;
FOR_EACH_SHEET_ROW(sf, i, row)
{
for (int i = constants.items()-1; i > 0; i--)
{
constants.get(i, campione);
if (!campione.blank())
row->add(campione, i);
}
}
}
sf.force_update();
}
else
@ -607,7 +682,7 @@ int TMovanal_msk::create_sheet_fields(int lf, int& y, short& dlg, bool required)
if (logic == LF_PCON)
{
const TFieldref* f = fld.field();
const TString16 fieldname = f->name();
const TString& fieldname = f->name();
if (fieldname == "GRUPPO")
fld.set_field("CODCONTO[1,3]"); else
@ -683,9 +758,9 @@ void TMovanal_msk::create_sheet()
if (fasinfo.levels() > 0 && fasinfo.parent() <= 0)
create_sheet_fields(LF_FASI, y, dlg, fsc_req);
const bool use_pdc = ini.get_bool("UsePdcc");
_use_pdc = ini.get_bool("UsePdcc");
const bool pdc_req = ini.get_bool("PdciRequired");
create_sheet_fields(use_pdc ? LF_PCON : LF_PCONANA, y, dlg, pdc_req);
create_sheet_fields(_use_pdc ? LF_PCON : LF_PCONANA, y, dlg, pdc_req);
for (short id = S_CON4+100; id >= S_CDC1+100; id--)
{