Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
Call Login
I = App.Inventory.BalanceDocuments.ShowModal("Учетные документы")
End Sub
Sub Login()
If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
If App Is Nothing Then Set App = TCS.Login
End Sub