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