Overview

Knihovna plně podporuje VB6. Názvy vlastností jsou odvozeny od oficiálních názvů používaných Finanční správou ČR dostupných zde na straně 21. Bližší popis chybových kódů vracených serverem je dostupý zde na straně 30.

Pozn. k chybám: na rozdíl od VFP dokáže VB6 zachytit plnohodnotnou COM chybu včetně popisné zprávy přes Err objekt. Doporučený způsob ošetření chyb je tedy On Error + Err.Description, volání GetLastErrorCode() pro získání chybového kódu.

EET2.Client

Reprezentace EET klienta = pokladny.

Vlastnosti

Metody

Init(eicPopl As String, idJednotky As Long, idPokl As String, isPlayground As Boolean)

Inicializace klienta před použitím

Vyhodí chybu při nevalidních hodnotách nebo pokud již byl klient inicializován.

Příklad:

Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
objClient.Init "CZ12345678", 3, "KASA-001", False

LoadCert(pkcs12Path As String, password As String)

Načte podpisový certifikát (.p12). Musí být zavoláno před odesíláním dat.

Vyhodí chybu pokud je certifikát neplatný nebo heslo není správné.

Příklad:

Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
objClient.Init "CZ12345678", 3, "KASA-001", False
objClient.LoadCert "CZ12345678.p12", "tajne_heslo"

Submit(transakce As Object, prvniZaslani As Boolean) As String

Odešle transakci na server a vrátí potvrzovací kód POK

Vrací server vrácený POK nebo případnou chybu.

Příklad:

Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
objClient.Init ...
Dim objTx As Object
Set objTx = CreateObject("EET2.Transaction")
objTx.Init ...
Dim strPok As String
strPok = objClient.Submit(objTx, True)

Ošetření chyb (doporučeno): On Error + Err

Metody knihovny vyhazují standardní COM chybu, kterou VB6 zachytí přes Err objekt včetně popisné zprávy.

Příklad:

On Error Resume Next

Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
' Zavolani Submit() pred Init()
objClient.Submit objTx, True

If Err.Number <> 0 Then
    Debug.Print "Chyba: " & Err.Number & " - " & Err.Description
    ' napr. "Chyba: 200 - Objekt neni inicializovan"
End If

On Error GoTo 0

GetLastErrorCode() As Long

Alternativní/starší způsob zjištění posledního chybového kódu — vrátí kód posledního erroru nebo 0, pokud poslední zavolaná funkce proběhla bez chyby. V běžném VB6 kódu preferujte Err.Number/Err.Description výše.

Příklad:

Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
' Zavolani Submit() pred Init()
objClient.Submit objTx, True
Debug.Print objClient.GetLastErrorCode() ' Vrati 200, tedy error NOT_INITIALIZED

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

Metody

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

Inicializace transakce

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

EET2_E Errory

Ukázky

Odeslání jednoduché platby

Celý proces odeslání jednoduché platby o částce 323.56,- včetně ošetření případné chyby.

On Error Resume Next

' Vytvoreni & inicializace klienta vcetne nacteni certifikatu
Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
objClient.Init "CZ12345678", 3, "KASA-001", False
objClient.LoadCert "CZ12345678.p12", "tajne_heslo"

' Vytvoreni jednoduche transakce
Dim objTx As Object
Set objTx = CreateObject("EET2.Transaction")
objTx.Init "0556", Now, "323.56"

' Prvni odeslani platby
Dim strPok As String
strPok = objClient.Submit(objTx, True)

If Err.Number <> 0 Then
    Debug.Print "Chyba: " & Err.Number & " - " & Err.Description
Else
    Debug.Print "POK: " & strPok
End If

On Error GoTo 0

Evidence platby v pověření jiného poplatníka

Ukázka odeslání tržby, která plyne jinému poplatníkovi než evidujícímu. V ukázce má evidující poplatník EIČ CZ12345678 a poplatník, kterému tržba plyne CZ00000019.

' Vytvoreni & inicializace klienta vcetne nacteni certifikatu
Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
objClient.Init "CZ12345678", 3, "KASA-001", False
objClient.LoadCert "CZ12345678.p12", "tajne_heslo"

' Vytvoreni jednoduche transakce
Dim objTx As Object
Set objTx = CreateObject("EET2.Transaction")
objTx.Init "0556", Now, "323.56"
objTx.EicPoverujiciho = "CZ00000019"

' Prvni odeslani platby
Dim strPok As String
strPok = objClient.Submit(objTx, True)

Odeslání tržby na testovací server

Jednoduchá ukázka odeslání tržby na testovací server.

' Vytvoreni & inicializace klienta vcetne nacteni certifikatu
Dim objClient As Object
Set objClient = CreateObject("EET2.Client")
objClient.Init "CZ12345678", 3, "KASA-001", True
objClient.LoadCert "CZ12345678.p12", "tajne_heslo"

' Vytvoreni jednoduche transakce
Dim objTx As Object
Set objTx = CreateObject("EET2.Transaction")
objTx.Init "0556", Now, "323.56"

' Prvni odeslani platby
Dim strPok As String
strPok = objClient.Submit(objTx, True)
' i testovaci server vraci potvrzovaci kod POK
Debug.Print strPok