Příklad 13 - Vytvoření bankovního výpisu

Příklad zakládá platbu pro fakturu vydanou. Položka Typ je nastavena na hodnotu "Kredit". V případě požadavků na zpracování více řádků pro jeden bankovní bude nutné vložit zakládání řádků do cyklu. Dále je nutné dohledat a nahradit identifikátor střediska (Division_ID), který je v příkladu nastaven na pevnou 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žení řádku a jeho naplnění daty
    Set mBSRow_Coll = mBStatement_Data.ValueByName("Rows")
    Set mBSRow_Data = mApplication.CreateValues("@BankStatementRow")
    mBStatementRow_Object.PrefillValues mBSRow_Data
    ' ! Nutno doplnit vlastní ID střediska
    mBSRow_Data.ValueByName("Division_ID") = "1000000101"
    ' ! Nutno doplnit požadované datum
    mBSRow_Data.ValueByName("DocDate$DATE") = Now
    ' ! Nutno zadat vlastní text
    mBSRow_Data.ValueByName("Text") = "Text"
    ' ! Nutno doplnit vlastní variabilní symbol
    mBSRow_Data.ValueByName("VarSymbol") = "10131"
    mBSRow_Data.ValueByName("Credit") = 1
    mBSRow_Coll.Add mBSRow_Data
    
    ' Zjistíme číslo nově 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