Тема: Отчет по группе водителей
Добрый день! Нужен совет/помощь
Пишу на VBScript, подключение к виалону через ActiveX. Делаю это совсем недавно, методом проб и ошибок )).Подключиться удалось, удается получить данные со всех отчетов. Но недавно сделали новый отчет и я не могу получить с него данные - возвращается пустая строка. На сайте данные по отчету есть.На форуме нашла кучу подобных вопросов, но конкретных ответов не увидела.
Подключение не прерывается, список объектов и коллекцию отчетов получить могу. Что еще может быть?
Предполагаю, что все предыдущие отчеты были построены по объектам или группе объектов, а новый отчет построен по группе водителей.
и этой группы конечно нет в Units. Возможно тут нужно заходить с другого стороны?
Заранее спасибо за любое направление в нужную сторону
Привожу пример кода
Set Wialon = CreateObject("WialonActiveX64.WialonConnection")
If Wialon Is Nothing Then
MsgBox("No Object")
Return
End If
Set Units = Wialon.Login("activex-wln.sucden.ru", 80, "имя_пользователя", "пароль") If Units Is Nothing Then
MsgBox("Error = " + Err.Number.ToString() + ": " + Err.Source.ToString() + " (" + Err.Description.ToString() + ")") ErrStr = Wialon.GetLastError() MsgBox("Wialon error: " + ErrStr)
Return
End If
BeginTime = DateAdd("d", -1, Date) & " 00:00:00"
EndTime = DateAdd("d", -1, Date) & " 23:59:59"
CountOfUnits = Units.Count
For ii = 1 To CountOfUnits
set Unit = Units.Item(ii)
If Unit Is Nothing Then
MsgBox("Not unit")
Return
End If
Set Reports = Wialon.GetReportsList
If Reports Is Nothing Then
MsgBox ("No available list")
Else
Count = Reports.Count
end if
Unit.ResolveLocations (False)
TzOffset = GetTimeZoneForWialonFormatReport
ReportData = ""
ReportData = Wialon.GetReportById(DateDiff("s", "01/01/1970 00:00:00", BeginTime)-TzOffset , DateDiff("s", "01/01/1970 00:00:00", EndTime)-TzOffset , Unit.ID, TzOffset, "ru", "152", "114")
If Len(ReportData) < 1 Then
set Reports = Nothing
set Unit = Nothing
Else
Set xmlParser = CreateObject("Msxml2.DOMDocument")
xmlParser.async = False
xmlParser.loadxml(ReportData) и так далее