• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

Вырезать или удалить объект

Автор Daiver, 02.02.12, 08:24:49

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Daiver

Здравствуйте! Я работаю в Лоцмане 9.0.
Столкнулся с маленькой проблемкой.
Я создаю связь между объектами (т.е. копирую в другую папку), после этого меняю состояние "на утверждение".
Дальше мне надо удалить или вырезать этот объект (который скопирован). 
У меня не получаеться удалить объект. Использую функцию Uplink, но что-то она неработает.
Ставлю True, чтобы удалить - не срабатывает, а когда False - работатет.
Подскажите какие-нибудь способы решение этой проблемы, заранее спасибо.

Chaa

Чтобы удалить связь необходимо в UpLink передавать идентификатор связи в inIdLink и True в boDel.
Например:
RunMethod('UpLink', ['', '', '', '', '', '', LinkID, 0, 0, '', True, '']);

Daiver

А как вытащить идентификатор связи LinkID, поделитесь скриптом.

Chaa

Используйте GetLinkedObjects, GetLinkedObjectsEx, GetLinkedFast или GetTree.
Например:
DataSet := TClientDataSet.Create(nil);
try
    DataSet.Data := RunMethod('GetLinkedFast', [FolderVersionID,
        'Документы', False]);
    while not DataSet.Eof do
    begin
        LinkId := DataSet['_ID_LINK'];
        if LinkId <> NewLinkId then
        begin
            RunMethod('UpLink', ['', '', '', '', '', '', LinkId,
                0.0, 0.0, '', True, 'Документы']);
        end;
        DataSet.Next;
    end;
finally
    DataSet.Free;
end;

Daiver