Tieto príklady sú napísané v jazyku Visual Basic.
Rozúčtovanie záznamu do dvoch záznamov
Dim Gx
Set Gx = CreateObject("AbraOLE.Application")
' Do konštanty je potrebné uviesť ID nejakej existujúcej účtovnej žiadosti
Const cID = "7D20000101"
Dim mEntry, mBook, mEntry2
Set mEntry = Gx.CreateValues("@BookEntry")
Set mBook = Gx.CreateObject("@BookEntry")
Set mEntry = mBook.GetValues(cID)
mAmount = mEntry.ValueByName("Amount")
mAmountInCurrency = mEntry.ValueByName("AmountInCurrency")
' Rozúčtovanie 30% na prvý text
' Je samozrejme možné upravovať i iné údaje - napr. Creditdivision_ID, DebitDivision_ID a pod.
mEntry.ValueByName("Amount") = mAmount * 0.3
mEntry.ValueByName("AmountInCurrency") = mAmountInCurrency * 0.3
mEntry.ValueByName("Text") = "prvý text"
' Rozúčtovanie zvyšku na druhý text
Set mEntry2 = Gx.CreateValues("@BookEntry")
Set mEntry2 = mBook.GetValues(cID)
mEntry2.ValueByName("Amount") = mAmount - mEntry.ValueByName("Amount")
mEntry2.ValueByName("AmountInCurrency") = mAmountInCurrency - mEntry.ValueByName("AmountInCurrency")
mEntry2.ValueByName("Text") = "druhý text"
' Vyrobenie a naplnenie kolekcie
Set mCol = Gx.CreateCollection()
mCol.Add mEntry
mCol.Add mEntry2
' Zaúčtovanie
mBook.DoBooking cID, mCol
Gx.Logout
Gx.Disconnect
Set Gx = Nothing