Azzerati anche flag di stampato su LIM

git-svn-id: svn://10.65.10.50/trunk@1028 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-02-23 12:51:12 +00:00
parent d322fce7a1
commit 7b9189fd6b

View File

@ -140,6 +140,19 @@ bool TRipristina_stampa::reg_restore(const TString& regist,
reg.put("I4", mese); // Ultimo mese di stampa liquidazione
if (reg.get_int("I8") >= mese)
reg.zero("I8"); // Mese di ultima stampa credito precedente
TTable lim("LIM"); // Azzera i flag di stampa liquidazione
lim.put("CODTAB", format("%04d%02d", year, mese+1));
for (int err = lim.read(_isgteq); err == NOERR; err = lim.next())
{
if (atoi(lim.get("CODTAB").left(4)) != year) break;
const bool stampato = lim.get_bool("B1");
if (stampato)
{
lim.zero("B1");
lim.rewrite();
}
}
}
}
else