• Sad Alex
  • Участник
  • Неактивен
  • На форуме с 2 апреля 2009
  • Сообщений: 20

Тема: Создание плана изготовления ПСп

Доброго времени суток, Уважаемые Господа!

Необходимо программно сгенерить план изготовления на ПСп, что соответствует экшну "DoOrdMoveAction".
Думаю, что это должно выглядеть примерно вот так:

Set PSp_TP = SingleProductionBOM.ChildModules.ModuleByName("...").AsIDispatch
Set get_PSp_Plan = PSp_TP.ActionList.ActionByName("DoOrdMoveAction")
If Not get_PSp_Plan Is Nothing Then get_PSp_Plan.Execute

Всвязи с чем возникает два вопроса:
1. Как узнать имя модуля, который соответствует вкладке "Работа с ПСп" -> "Техпроцесс" ?
2. Как грамотно выделить все позиции ТП на этой вкладке ?

Прошу прощения, если глупые вопросы (ибо я дундук), не дайте погибнуть во цвете лет..

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Создание плана изготовления ПСп

Здравствуйте!

Ну видимо что то типа этого

Sub FormMacro_Test123(TCSActiveModule) 
    If TcsApp.Manufacturing.ProductionBOM.RunModuleForSelect( "Выберите ПсП", False )>0 Then 
       Set Sostav = TcsApp.Manufacturing.ProductionBOM.Properties( "ProductionBOMStructure").AsIDispatch
       Call Sostav.First
       While Not Sostav.Eof
          Set Tp = Sostav.Properties("ProductionBOMProcess").AsIDispatch
          Call Tp.First
          While Not Tp.Eof
            Tp.CurrentRowSelected = True
            Call Tp.Next            
          Wend
          If Tp.SelectedRowsCount>0 Then 
            If Tp.ActionList.ActionByName( "DoOrdMoveAction" ).Enabled Then  
              Tp.ActionList.ActionByName( "DoOrdMoveAction" ).Execute
            Else
               R = Tp.ShowModal("А вот здесь нет ПРАВ!!!" )
            End If
          End If
          Call Sostav.Next
       WEnd       
    End If
End Sub

А вообще в случае проблем используйте TCSAPIExplorer. Его можно вызвать и в скрипте таким образом

  Set  Module = 'Здесь задаем что надо исследовать.
 LogObject.ShowPropExplorer( Module )

  • Sad Alex
  • Участник
  • Неактивен
  • На форуме с 2 апреля 2009
  • Сообщений: 20

Re: Создание плана изготовления ПСп

Огромное спасибо, всё работает.
А как запретить вывод подтверждений ("Вы хотите сформировать.....") ?
Т. е. либо не спрашивать вообще, либо автоматом отвечать "да"?

Была надежда на "WScript.Interactive", но похоже этот объект нельзя использовать в контексте TCS API..