Příklad 6 - Práce se sledovanými změnami v Adresáři v rámci externí synchronizace Adresáře

Následující příklad demonstruje práci se sledovanými změnami v rámci externí synchronizace adresáře prováděný nad objekty Firm.

m.FirmObject = This.Application.CreateObject("@Firm")
m.LogList = m.FirmObject.GetChanges()
* Natažení logu do kurzoru
create cursor cLog (Order N(8,0), ChangeType N(2), AdrID C(10), LinkID C(10))
if m.LogList.Count > 0
  for i = 0 to m.LogList.Count -1
    m.OneRec = m.LogList.Strings[i]
    p1 = at(';', m.OneRec)
    p2 = at(';', m.OneRec, 2)
    p3 = at(';', m.OneRec, 3)
    select cLog
    append blank
    replace Order with val(left(m.OneRec, p1-1))
    replace ChangeType with val(substr(m.OneRec, p1+1, p2-p1-1))
    replace AdrID with substr(m.OneRec, p2+1, p3-p2-1)
    replace LinkID with substr(m.OneRec, p3+1)
    if LinkID = '0000000000'
      replace LinkID with ''
    endif
  endfor
endif