EET2.Client

Reprezentace EET klienta = pokladny.

Vlastnosti

Vlastnost	Typ	Popis
EicPoplatnika	String	EIČ Poplatníka, formát CZ + 8-10 číslic
IdJednotky	Integer	ID Provozovny (1–999999999)
IdPokl	String	ID Pokladny, max 20 znaků
Endpoint	String	Nastavená URL adresu serveru (playground/ostré prostředí)
CertPath	String	Lokální cesta k aktuálně používanému .p12 certifikátu

Metody

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

Inicializace klienta před použitím

Parametr	Typ	Popis
eicPopl	String	EIČ poplatníka, formát CZ + 8-10 číslic
idJednotky	Long	ID provozovny (1–999999999)
idPokl	String	ID pokladny, max 20 znaků
isPlayground	Boolean	True = testovací prostředí, False = ostré prostředí

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.

Parametr	Typ	Popis
pkcs12Path	String	Cesta k .p12 souboru
password	String	Heslo od .p12 certifikátu

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

Parametr	Typ	Popis
transakce	Object	Objekt typu EET2.Transaction reprezentující odesílanou transakci
prvniZaslani	Boolean	True pokud se jedná o první pokus o zaslání, jinak False

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