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

Corretto MI2379, relativo al settaggio di B0 sulle LIM nel caso

Browse Source 
di ditta trimestrale per forzare il ricalcolo.


git-svn-id: svn://10.65.10.50/trunk@5621 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-14 11:16:13 +00:00
parent fe1fc557d9
commit 75cff05943
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cg/cg5300.cpp
View File

@ -251,8 +251,9 @@ int TParaliq_app::rewrite(const TMask& m)
static int oldyear;
TSheet_field& sf = (TSheet_field&)m.field(F_SHEET_PLA);
const long firm = m.get_long(F_CODDITTA);
const int year = m.get_int(F_YEAR);
const long firm = m.get_long(F_CODDITTA);
const int year = m.get_int(F_YEAR);
const char freq = m.get(F_FREQ_VERS)[0];
int err = NOERR;
bool was = FALSE;
@ -299,10 +300,11 @@ int TParaliq_app::rewrite(const TMask& m)
TTable lim("LIM");
TRecfield lim_anno(lim.curr(),"CODTAB",0,3);
TRecfield lim_mese(lim.curr(),"CODTAB",4,5);
for (lim.first(); !lim.eof(); lim.next())
{
if (year == atoi(lim_anno))
if (year == atoi(lim_anno) && (freq == 'M' || (freq == 'T' && atoi(lim_mese) == 3)))
{
lim.put("B0","");
lim.rewrite();