Удалить ДО

[galover]

Знает ли кто как удалить программно ДО на снабжение? Ну т.е. нужно удалить так, как это делает Галактика. Есть ли стандартные функции?

[galover]

Нашел вот это:
L_BASEDOC::BaseDocDeleterObj
--Методы
Function DoSpStepDelete : Boolean;
Функция удаления позиции спецификации
Procedure DeleteBaseDoc (pRec : Comp; pTipDO : Word);
Процедура удаления ДО

Кто использовал? Есть подводные камни?

[galover]

Выкладываю, может пригодится кому

Код: Выделить всё

var pDeleter : L_BaseDoc::BaseDocDeleterObj;

case tblSelActsData.BaseDocType of
   101: GetVipRef(pDeleter, 'L_BaseDoc::VSchetB');// ДО на закупку
   201: GetVipRef(pDeleter, 'L_BaseDoc::VSchet'); // ДО на продажу
   else pDeleter := nullRef;
end;

if (pDeleter <> nullRef)
    pDeleter.DeleteBaseDoc(tblSelActsData.BaseDocNRec, tblSelActsData.BaseDocType);