Страница 1 из 1
Удалить ДО
Добавлено: 08 сен 2009, 19:37
galover
Знает ли кто как удалить программно ДО на снабжение? Ну т.е. нужно удалить так, как это делает Галактика. Есть ли стандартные функции?
Добавлено: 08 сен 2009, 19:52
galover
Нашел вот это:
L_BASEDOC::BaseDocDeleterObj
--Методы
Function DoSpStepDelete : Boolean;
Функция удаления позиции спецификации
Procedure DeleteBaseDoc (pRec : Comp; pTipDO : Word);
Процедура удаления ДО
Кто использовал? Есть подводные камни?
Добавлено: 09 сен 2009, 19:59
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);