SingleNmkFromUniquePar(ParCode As String,ParValue As String) As ISingleNomenclature ( PropertyGet )

Получить номенклатуру по значению уникального параметра

Синтаксис:

objectvariable.SingleNmkFromUniquePar( ParCode, ParValue )

objectvariable - ITcs_Application

ParCode - уникальный код параметра

ParValue - значение уникального параметра

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


Пример на VB:
Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim Nmk As CSDN.SingleNomenclature
Dim vl As String
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.Login
If App.Parameters.RunModuleForSelect("Выберите параметр", False) Then
    If App.Parameters.Properties("PAR_UNIQUE").AsBoolean Then
        vl = InputBox("Укажите значение параметра")
                
        Set Nmk = App.SingleNmkFromUniquePar(App.Parameters.Properties("PAR_CODE").AsString, vl)
    
        ...
                
        Set Nmk = Nothing
    Else
    
        MsgBox "Значения данного параметра не являются уникальными!"
    
    End If
End If
Set App = Nothing
Set TcsObj = Nothing