EET2.Transaction

Reprezentuje transakci k odeslání na server.

Pozn.: VB6 automaticky převede číselné hodnoty na String, ovšem z důvodů odlišností ve formátování podle regionálního nastavení je lepší předávat hodnoty jako String explicitně.

Vlastnosti

Vlastnost	Typ	Popis
CelkTrzba	String	Celková částka tržby
PoradCis	String	Pořadové číslo tržby
DatTrzby	Date	Datum a čas uskutečnění tržby
EicPoverujiciho	String	EIČ pověřujícího poplatníka
PovereniVicePopl	Boolean	Pověření více poplatníků
UrcenoCerpZuct	String	Celková částka určená k následnému čerpání
CerpZuct	String	Celková částka plateb, které jsou následným čerpáním

Metody

Init(poradCis As String, datTrzby As Date, celkTrzba As String)

Inicializace transakce

Parametr	Typ	Popis
poradCis	String	Pořadové číslo tržby, max 25 znaků
datTrzby	Date	Datum tržby
celkTrzba	String	Celková částka tržby

Vyhodí chybu při nevalidních hodnotách nebo pokud již byla transakce inicializována.

Příklad:

Dim objTx As Object
Set objTx = CreateObject("EET2.Transaction")
' Inicializace platby ID 0001, ktera probehla "prave ted" o castce 150.00,-
objTx.Init "0001", Now, "150.00"

Ošetření chyb: stejně jako u EET2.Client doporučujeme On Error + Err.Number/Err.Description. GetLastErrorCode() zůstává jako alternativa.

Příklad:

On Error Resume Next

Dim objTx As Object
Set objTx = CreateObject("EET2.Transaction")
objTx.Init ...
objTx.EicPoverujiciho = "neplatne EIC"

If Err.Number <> 0 Then
    Debug.Print "Chyba: " & Err.Number & " - " & Err.Description
    ' Vrati kod 3, tedy error INVALID_EIC_POVERUJICIHO
End If

On Error GoTo 0