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

Patch level : 4.0

Browse Source 
Files correlati     : ca2.exe
Ricompilazione Demo : [ ]
Commento            :
Corretto collegamento da primanota a movimenti analitici preesistenti


git-svn-id: svn://10.65.10.50/trunk@14234 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2006-08-07 10:01:25 +00:00
parent b36c28e91e
commit d8f1c7a2f8
1 changed files with 25 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ca/ca2100.cpp
View File

@ -893,18 +893,21 @@ void TMovanal_app::init_modify_mode(TMask& m)
void TMovanal_app::ini2sheet(TConfig& ini, TSheet_field& sheet) void TMovanal_app::ini2sheet(TConfig& ini, TSheet_field& sheet)
{ {
TRectype rec(LF_RMOVANA); // Crea una riga di appoggio
TString8 para; TString8 para;
para.format("%d,1", LF_RMOVANA);
sheet.destroy(); if (ini.set_paragraph(para)) // Esiste la prima riga?
_msk->reset_saldi(); {
TRectype rec(LF_RMOVANA); // Crea una riga di appoggio
sheet.destroy(); // Azzera lo sheet
_msk->reset_saldi(); // Azzera i saldi
for (int r = 1; ; r++) for (int r = 1; ; r++)
{ {
para.cut(0) << LF_RMOVANA << ',' << r; para.format("%d,%d", LF_RMOVANA, r);
if (!ini.set_paragraph(para)) if (!ini.set_paragraph(para))
break; break;
// Riempie il record temporaneo coi dati del .ini
rec.zero(); rec.zero();
for (int i = 0; i < rec.items(); i++) for (int i = 0; i < rec.items(); i++)
{ {
@ -913,12 +916,14 @@ void TMovanal_app::ini2sheet(TConfig& ini, TSheet_field& sheet)
if (str.full()) if (str.full())
rec.put(field, str); rec.put(field, str);
} }
_msk->rec2row(rec, r-1); _msk->rec2row(rec, r-1); // Riempie la riga dello sheet a partire da record
// Aggiorna saldo in base all'importo della riga
TImporto imp; _msk->row2imp(r-1, imp); TImporto imp; _msk->row2imp(r-1, imp);
TImporto& sld = _msk->saldo(rec); TImporto& sld = _msk->saldo(rec);
sld -= imp; sld -= imp;
} }
}
} }
void TMovanal_app::sheet2ini(TSheet_field& sheet,TConfig& ini) void TMovanal_app::sheet2ini(TSheet_field& sheet,TConfig& ini)