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