BalanceNmkCardClassificator(DepartmentID As Long) As IBalanceNmkCardClassificator ( PropertyGet )

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

Синтаксис:

objectvariable.BalanceNmkCardClassificator( DepartmentID )

objectvariable - ITcs_Inventory

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

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


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