Заказ звонка

Закрыть

*
*
*

Добавление операции в тех процесс ПСп

Страницы: 1
RSS
Добавление операции в тех процесс ПСп
Здравствуйте. Проблема в следующем, в ПСп подгружены тех процессы, необходимо добавить в один из тех процессов операцию с помощью API.
Пробовал у позиции состава через ChildModules ( OrderNmkTechnology ) получать тех процесс. С помощью ShowModal открываю тех процесс и могу редактировать и добавлять операции вручную, но при программном вызове CreateNew выходит ошибка, что модуль не допускает редактирования. Через коллекцию тех процессов не получается позиционироваться по дереву тех процессов. Есть ли способ программно добавить операцию?
Покопался в закромах, кое-чего нашел, надеюсь будет полезным:

Код
Sub FormMacro_TECHNO3(TCSActiveModule)'Создать операцию   
T_class=21 '21 - Класс операций                                    
          'Добавляем операцию 
          Set NMks = TCSApp.Nomenclatures(T_class)
          If NMks.ShowModal("Выберите классификатор") = 1 Then            'Теперь выбираем классификатор для операции
              NewID = TCSActiveModule.AddNMkToTechnology( T_class,NMks.Properties( "ID" ).AsInteger, 0 ) 'Добавляем саму операцию
          End If      
          Set NMksTA = TCSActiveModule.Properties("TechnologyAttributes").AsIDispatch
           If TCSApp.PlantDepartments.RunModuleForSelect("Выберите цех/участок для операции: " & Chr(10) & Chr(13)& TCSActiveModule.Properties("NMK_NAME").AsString, False) Then
              Call NMksTA.Edit       
              NMksTA.Properties("PlantDepatment_ID").value=TCSApp.PlantDepartments.Properties("ID").AsInteger
              Call NMksTA.SaveChanges
              Call TCSActiveModule.Refresh     'Обновляем данные
          End If
End Sub
Я так понял что данный пример позволяет добавлять операцию в тех процесс номенклатуры. У нас проблема с добавлением операции в ПСп.
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)