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