Инициировать создание XML : Супермаг Плюс (Супермаг 2000)

CrazyWolf · █ 24.10.2011 08:33

Можно ли программно заставить СуперМаг выгрузить документ с указанным номером и типом в XML - фильтр?

Mtirt · █ 24.10.2011 08:43

Добавить объект в smpostquery с указанием базы данных, куда надо разослать?

CrazyWolf · █ 24.10.2011 08:49

А как правильно указать базу для рассылки XML, если в таблице SMPostLocMap магазина прописана отсылка только в центральную базу, но сама выгрузка XML работает.

CrazyWolf · █ 24.10.2011 08:56

Кажется разобрался.

Mtirt · █ 24.10.2011 08:57

По моему, ты не туда смотришь, тебе нужен id из smpostlocations.

Mtirt · █ 24.10.2011 08:58

Цитата:

CrazyWolf ➤ Кажется разобрался.

Напиши, как.

CrazyWolf · █ 24.10.2011 09:11

Пока просто так вот сделал для скорости.

Код:

declare
   core_result pls_integer;
   vID varchar2(10) := :vID;
   vTypeDoc varchar2(2) := :vDocId;
   nTargetDb number(3,0);
begin
   if supermag.core.getproc is null then
      Core_Result := supermag.Core.StartSMApp();
   end if;
   Select smpl.dbaseid into nTargetDb From Supermag.SMPostLocMap smpl Where lower(smpl.title) = 'xml'
   Supermag.SMPostObject(nTargetDb, vTypeDoc, vID, 0, null, 0, null);
Exception
When NO_DATA_FOUND Then null;
When Others Then
RAISE_APPLICATION_ERROR (-20000, 'Процедура PostDocument, документ: место хранения: ', True);
end;

Mtirt · █ 24.10.2011 09:19

Мне второй раз кажется, что id надо выбирать из SMPOSTLOCATIONS, а не из SMPostLocMap.

CrazyWolf · █ 24.10.2011 09:29

Цитата:

Mtirt ➤ Мне второй раз кажется, что id надо выбирать из SMPOSTLOCATIONS, а не из SMPostLocMap.

Миль пардон, конечно же должно вместо

Код:

Select smpl.dbaseid into nTargetDb From Supermag.SMPostLocMap smpl Where lower(smpl.title) = 'xml'

быть

Код:

Select smpl.id into nTargetDb From Supermag.SMPostLocations smpl Where lower(smpl.title) = 'xml'

А редактировать посты нельзя?