ProductionPlanFromID(ProductionBOM_ID As Long,ProductionPlan_ID As Long) As IProductionPlan ( PropertyGet )
План производства позиции ТП по идентификаторам плана
Синтаксис:
objectvariable.ProductionPlanFromID( ProductionBOM_ID, ProductionPlan_ID )
objectvariable -
ITcs_Manufacturing2
ProductionBOM_ID - идентификатор производственной спецификации (ПСп) (свойство PRODUCTIONBOM_ID)
ProductionPlan_ID - идентификатор позиции плана ПСп (свойство ID)
Возвращает: указатель на
ProductionPlan
Пример на VB Script:
Sub Test()
Dim I, Id1, Id2
Dim ProductionPlan
Id1 = theApp.InputBox( "Ввод значения", "Введите идентификатор производственной спецификации:", Id1 )
If Len(Id1) > 0 Then
Id2 = theApp.InputBox( "Ввод значения", "Введите идентификатор позиции плана:", Id2 )
If Len(Id2) > 0 Then
Set ProductionPlan = theApp.Manufacturing.ProductionPlanFromID( Id1, Id2 )
I = ProductionPlan.ShowModal("План производства позиции ТП")
Set ProductionPlan = Nothing
End If
End If
End Sub