Príklad 13 - Vytvorenie bankového výpisu

Príklad zakladá platbu pre faktúru vydanú. Položka Typ je nastavená na hodnotu "Kredit". V prípade požiadaviek na spracovanie viacerých riadkov pre jeden bankový bude nutné vložiť zakladanie riadkov do cyklu. Ďalej je nutné vyhľadať a nahradiť identifikátor strediska (Division_ID), ktorý je v príklade nastavený na pevnú hodnotu.

Sub BankovniVypis()
    Set mApplication = CreateObject("AbraOLE.Application")

    Set mBStatement_Object = mApplication.CreateObject("@BankStatement")
    Set mBStatementRow_Object = mApplication.CreateObject("@BankStatementRow")
    Set mBStatement_Data = mApplication.CreateValues("@BankStatement")
    mBStatement_Object.PrefillValues mBStatement_Data

    ' Založenie riadka a jeho naplnenie dátami
    Set mBSRow_Coll = mBStatement_Data.ValueByName("Rows")
    Set mBSRow_Data = mApplication.CreateValues("@BankStatementRow")
    mBStatementRow_Object.PrefillValues mBSRow_Data
    ' ! Nutné doplniť vlastné ID strediska
    mBSRow_Data.ValueByName("Division_ID") = "1000000101"
    ' ! Nutné doplniť požadovaný dátum
    mBSRow_Data.ValueByName("DocDate$DATE") = Now
    ' ! Nutné zadať vlastný text
    mBSRow_Data.ValueByName("Text") = "Text"
    ' ! Nutné doplniť vlastný variabilný symbol
    mBSRow_Data.ValueByName("VarSymbol") = "10131"
    mBSRow_Data.ValueByName("Credit") = 1
    mBSRow_Coll.Add mBSRow_Data
    
    ' Zistíme číslo novo uloženého dokladu
    New_ID = mBStatement_Object.CreateNewFromValues(mBStatement_Data)
    Set mBStatement_Data = mBStatement_Object.GetValues(New_ID)
    mDocumentNr = mBStatement_Data.ValueByName("DisplayName")
    Set mApplication = Nothing
End Sub