1

Отчет по группе водителей

Topic: Отчет по группе водителей

Добрый день! Нужен совет/помощь

Пишу на 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) и так далее