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

Errore MI3050 estrazione deleghe probabilmente corretto (se la traduzione

Browse Source 
italiana dal vladimirese e' giusta)


git-svn-id: svn://10.65.10.50/trunk@1406 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-05-29 10:40:50 +00:00
parent 4ca8e85e3b
commit 7409d3be97
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cg/cg4302.cpp
View File

@ -464,8 +464,10 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
if (!ok && create)
{
_del->zero();
_del->put("CODTAB",ctab);
_del->put("CODTAB",ctab);
}
if (create)
{
// codici ABI e CAB da anagrafica ditte
TString abi = _nditte->lfile().get("ABIBAN");
TString cab = _nditte->lfile().get("CABBAN");
@ -505,7 +507,9 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
ctri = _freqviva == "M" ? 6000 + month : 6030 + (month/3);
_del->put("S6", format("%d",ctri));
_del->write();
if (!ok) _del->write();
else _del->rewrite();
}
return ok;
}