[DA_NEAL]

Ну в качестве бесплатной консультации одну подскажу

// Удаление операций трассировки
ItemTrackEntry.RESET;
ItemTrackEntry.SETCURRENTKEY("Item Entry No.");
ItemTrackEntry.SETRANGE("Item Entry No.", ItemLedgEntry_."Entry No.");
IF ItemTrackEntry.FIND('-') THEN
REPEAT
Record_Ref.GETTABLE(ReservEntry);
SaveRecordToLog(Record_Ref, RecordSpecification."Operation Type" :: Deletion);
UNTIL ItemTrackEntry.NEXT = 0;
ItemTrackEntry.DELETEALL; //(TRUE);