ProductionBOMStructure(ProductionBOM_ID As Long,ProductionBOMList_ID As Long,ProductionBOMStructureItem_ID As Long) As IProductionBOMStructure ( PropertyGet )

Состав производственной спецификации (ПСп)

Синтаксис:

objectvariable.ProductionBOMStructure( ProductionBOM_ID, ProductionBOMList_ID, ProductionBOMStructureItem_ID )

objectvariable - ITcs_Manufacturing2

ProductionBOM_ID - идентификатор производственной спецификации (ПСп) (свойство PRODUCTIONBOM_ID)

ProductionBOMList_ID - идентификатор позиции перечня ПСп (если -1, то состав всей ПСп или состав позиции состава ПСп, если указан ProductionBOMStructureItem_ID) (свойство PRODUCTIONBOM_LIST_ID)

ProductionBOMStructureItem_ID - идентификатор позиции состава ПСп (если -1, то состав всей ПСп или состав позиции перечня ПСп, если указан ProductionBOMList_ID) (свойство ID)

Возвращает: указатель на ProductionBOMStructure


Пример на VB Script:
Sub Test()
    Dim ProductionBOMStructure
    Dim ProductionBOM_ID, ProductionBOMList_ID, ProductionBOMStructureItem_ID
    Dim I
    ProductionBOM_ID = theApp.InputBox( "Ввод значения", "Введите идентификатор производственной спецификации:", ProductionBOM_ID )
    If Len(ProductionBOM_ID) > 0 Then
        ProductionBOMList_ID = theApp.InputBox( "Ввод значения", "Введите идентификатор позиции перечня ПСп (если -1, то состав всей ПСп):", ProductionBOMList_ID )
        If Len(ProductionBOMList_ID)  0 Then>
            ProductionBOMStructureItem_ID = theApp.InputBox( "Ввод значения", "Введите идентификатор позиции состава ПСп (если -1, то состав позиции перечня ПСп):", ProductionBOMStructureItem_ID )
            If Len(ProductionBOMStructureItem_ID) > 0 Then
                
                Set ProductionBOMStructure = theApp.Manufacturing.ProductionBOMStructure( ProductionBOM_ID, ProductionBOMList_ID, ProductionBOMStructureItem_ID )
            
                I = ProductionBOMStructure.ShowModal("Состав производственной спецификации (ПСп)")
            
                Set ProductionBOMStructure = Nothing
            
            End If
        End If
    End If
End Sub