BalanceNmkCards(DepartmentID As Long,NMkId As Long) As IBalanceNmkCards ( PropertyGet )

Получить интерфейс "Учетные карточки"

Синтаксис:

objectvariable.BalanceNmkCards( DepartmentID, NMkId )

objectvariable - ITcs_Inventory

DepartmentID - идентификатор цеха/участка

NMkID - идентификатор номенклатуры

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


Пример на VB Script:
Sub Test()
    Dim NMks
    Dim NMkId
    Dim DepartmentID
    Dim BalanceNmkCards
    Dim I
    If TCSApp.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = TCSApp.Nomenclatures(TCSApp.NmkClasses.Properties("ID").AsInteger)
        
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
            NMkId = NMks.Properties("ID").AsInteger
    
            If TCSApp.PlantDepartments.RunModuleForSelect("Выберите цех/участок", False) Then
                DepartmentID = TCSApp.PlantDepartments.Properties("ID").AsInteger
                
                Set BalanceNmkCards = TCSApp.Inventory.BalanceNmkCards( DepartmentID, NMkId )
                I = BalanceNmkCards.ShowModal("Учетные карточки")
                Set BalanceNmkCards = Nothing
            
            End If
        
        End If
    End If
End Sub