Удаление всех данных из таблицы 6550

[randrews]

Здравствуйте. У кого версия объекта Form 6550 - 3.60 ?
Посмотрите ф-ю (у нас несколько раз удалялись все данные из таблицы 6550). Выяснилось - баг.
Советую поменять код, дабы не попасть в такую же ситуацию

RestoreInitialTrkgLine()
{ > EDITED 07.06.2007 }
// BUF FIX 216 00216  удаление всей таблицы 6550 (т.к. WhseItemTrkgLine2 - локальная переменная)
// SetFilters(WhseItemTrkgLine2,WhseItemTrkgLine2."Source Type");
SetFilters(WhseItemTrkgLine2,FormSourceType);
{ < EDITED 07.06.2007 }
WhseItemTrkgLine2.DELETEALL;
IF TempInitialTrkgLine.FIND('-') THEN
  REPEAT
	WhseItemTrkgLine2 := TempInitialTrkgLine;
	WhseItemTrkgLine2.INSERT;
  UNTIL TempInitialTrkgLine.NEXT = 0;