SingleBalanceDocFromID(DocumentID As Long) As ISingleBalanceDocument ( PropertyGet )
Получить учетный документ по его идентификатору
Синтаксис:
objectvariable.SingleBalanceDocFromID( DocumentID )
objectvariable -
ITcs_Inventory
DocumentID - идентификатор учетного документа
Возвращает: указатель на
SingleBalanceDocument
Пример на VB Script:
Sub Test()
Dim I
Dim IDBalanceDocument
Dim SingleBalanceDocument
If TCSApp.Inventory.BalanceDocuments.RunModuleForSelect("Выберите учетный документ", False) Then
IDBalanceDocument = TCSApp.Inventory.BalanceDocuments.Properties("ID").AsInteger
Set SingleBalanceDocument = TCSApp.Inventory.SingleBalanceDocFromID( IDBalanceDocument )
I = SingleBalanceDocument.ShowModal("Учетный документ")
Set SingleBalanceDocument = Nothing
End If
End Sub