Почему то не на всех БД отрабатывает по нормальному 7.12 и 8.00 . Разбираться не стал.
Исправил траблу так (на свой страх и риск):
Код: Выделить всё
.Form TabelTruble
.Ard
.Create View vT
As Select
*
From
Variance,
Lstab,
UoWRrTabel uTabel
Where
((
'СС' == uTabel.NUM And //в видах отклонений типа свой счет
uTabel.Nrec == Variance.CUO And
Variance.CLstab == Lstab.Nrec
))
;
.Begin
var i:integer;
if(GetFirst uTabel=tsOk)
_loop Variance
if((Variance.WORKINGHOURS=0) And (GetFirst Lstab=tsOk))
{
for(i:=Variance.BEGINNING;i<=Variance.ENDING;i:=i+1)
{
Lstab.DAYCHF[i]:=251; // цыфирь вырируетс
}
LogStrToFile('Truble.log', Lstab.TabN +' '+ Lstab.MesN +' '+ Lstab.YearN+' '+ Variance.BEGINNING+'-'+ Variance.ENDING );
Update Current Lstab;
}
End.
.EndForm
Кто поставил последние патчи!!! обратите внимание на наличие вида отклонения "В" в классификаторе.. Этого зверя по идее вообще не должно быть!