RunTableForSelectID(Caption As String) As Variant

RunTableForSelectID(Caption As String) As Variant ( Function )

Выбрать идентификатор значения таблицы

Синтаксис:

objectvariable.RunTableForSelectID( Caption )

objectvariable - ITCSNormTables2

Caption - заголовок окна диалога

Возвращает: идентификатор выбранного табличного значения, Null если не выбрано

Пример на VB Script:

Sub Test1()
    
    Dim RationingTables
    Dim TableValueID
    
    Set RationingTables = TCSApp.GetRationingTables
    
    If RationingTables.RunModuleForSelect("Выберите таблицу материального нормирования", False) Then
        
        TableValueID = RationingTables.RunTableForSelectID( "Выберите табличное значение" )
        Call TCSApp.ShowMessageBox("Сообщение", "Идентификатор выбранного табличного значения - " + cStr(TableValueID))
    
    End If
    
    Set RationingTables = Nothing
End Sub
Sub Test2()
    Dim NMks
    Dim NmkTech
    Dim TechnologyAttributes
    Dim NormSettingTables
    Dim TableValueID
    If TCSApp.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = TCSApp.Nomenclatures(TCSApp.NmkClasses.Properties("ID").AsInteger)
        
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
    
            Set NmkTech = TCSApp.NmkTechnology(NMks.Properties("ID").AsInteger, -1)
           
            NmkTech.Filter.Active = True
            NmkTech.ClassType = 2 'ctPereshod
            If NmkTech.RunModuleForSelect("Выберите переход для нормирования", False) Then
            
                Set TechnologyAttributes = NmkTech.Properties("TechnologyAttributes").AsIDispatch
                Set NormSettingTables = TechnologyAttributes.Properties("NormSettingTables").AsIDispatch
    
                If TCSApp.GetNormSettingTables.RunModuleForSelect("Выберите таблицу трудового нормирования", False) Then
                    TableValueID = TCSApp.GetNormSettingTables.RunTableForSelectID( "Выберите табличное значение" )
                    If Not IsNull(TableValueID) Then
                        Call NormSettingTables.CreateNew
                          NormSettingTables.Properties("TABLE_ID").Value = TCSApp.GetNormSettingTables.Properties("ID").Value
                          NormSettingTables.Properties("TABLE_VALUE_ID").Value = TableValueID
                          NormSettingTables.Properties("QUANTITY").Value = 1
                        Call NormSettingTables.SaveChanges
                    End If
                End If
                
                Set NormSettingTables = Nothing
                Set TechnologyAttributes = Nothing
            
            End If
            
            Set NmkTech = Nothing
    
        End If
        
        Set NMks = Nothing
    
    End If
End Sub