Форумы Интермех - Удаление аутентичного файла средствами API 1573 page 0

Форумы Интермех / Search, ImProject / Удаление аутентичного файла средствами API

Автор	Сообщение
vova_king Участник АО Атоммашэкспорт, Волгодонск, Ростовская область	Дата: 4 Окт 2022 11:22:48 Доброе время суток. Имеется на борку Search v15.0.0.3236 Возникла ситуация при направлении по процессу исключать из доп. файлов созданный на определенном шаге аутентичный файл. В документации по Search или в whatsnew.txt нет описания о удалении аутентичного файла. Подскажите пожалуйста как произвести удаление файла средствами API vbs
vova_king Участник АО Атоммашэкспорт, Волгодонск, Ростовская область	Дата: 5 Окт 2022 15:03:32 Все спасибо, вопрос снят, разобрался сам. (спасибо Никифорову за наводку) Set s4Ap = CreateObject("S4.TS4App") s4Ap.QuietMode = 0 For i = 0 to Activity.Attachments.count-1 Set Att = Activity.Attachments.Items(i) Set Doc = AppServer.GetDocument (Att.DocID, Att.Version) Set Params = Doc.GetParamsList ver_dok = Params.GetParamByName("VERSION_ID").Value ' версия документа doc_ids = Att.DocID ' получем ID документа s4Ap.OpenQuery("SELECT * FROM S4LINKED WHERE FILE_ID ="& doc_ids &" AND VERSION_ID = "& Params.GetParamByName("VERSION_ID").Value &" AND linktype=4 ORDER BY FLNAME ASC") s4Ap.QueryGoFirst Do Until s4ap.QueryEOF ver_doc = s4Ap.QueryFieldByName("VERSION_ID") ver_name = s4Ap.QueryFieldByName("FLNAME") s4Ap.OpenDocument(Att.DocID) s4Ap.RemoveAdvanFile(ver_name) s4Ap.CloseDocument s4Ap.QueryGoNext Loop