TS Code
Code: Select all
Private Function TS_GetCustomerId(ByVal pELObj As TSKITLib.IEasyLanguageObject) As Integer
Dim pELTSP As TSKITLib.ITradeStationPlatform = pELObj.Platform
Dim CustomerId As Integer = pELTSP.CustomerID
Return CustomerId
End Function
Code: Select all
Private Function MC_GetCustomerId(ByVal pELObj As PLKit.IEasyLanguageObject) As Integer
Dim pELTSP As PLKit.ITradeStationPlatform = pELObj.Platform
Dim CustomerId As Integer = pELTSP.CustomerID
Return CustomerId
End Function