Overview

Knihovna plně podporuje Delphi (přes COM/OleVariant, kompatibilní od Delphi 7 výše). 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 Delphi zachytit plnohodnotnou COM chybu včetně popisné zprávy přes try/except a EOleException. Doporučený způsob ošetření chyb je tedy try/except + EOleException.Message, nikoliv volání GetLastErrorCode() (to zůstává k dispozici pro zpětnou kompatibilitu / alternativní použití).

EET2.Client

Reprezentace EET klienta = pokladny.

Vlastnosti

Metody

Init(eicPopl: WideString; idJednotky: Integer; idPokl: WideString; isPlayground: WordBool)

Inicializace klienta před použitím

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

Příklad:

var
  Client: OleVariant;
begin
  Client := CreateOleObject('EET2.Client');
  Client.Init('CZ12345678', 3, 'KASA-001', False);
end;

LoadCert(pkcs12Path: WideString; password: WideString)

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:

var
  Client: OleVariant;
begin
  Client := CreateOleObject('EET2.Client');
  Client.Init('CZ12345678', 3, 'KASA-001', False);
  Client.LoadCert('CZ12345678.p12', 'tajne_heslo');
end;

Submit(transakce: IDispatch; prvniZaslani: WordBool): WideString

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

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

Příklad:

var
  Client, Tx: OleVariant;
  Pok: string;
begin
  Client := CreateOleObject('EET2.Client');
  Client.Init(...);
  Tx := CreateOleObject('EET2.Transaction');
  Tx.Init(...);
  Pok := Client.Submit(Tx, True);
end;

Ošetření chyb (doporučeno): try/except + EOleException

Metody knihovny vyhazují standardní COM chybu, kterou Delphi zachytí jako EOleException včetně popisné zprávy.

Příklad:

var
  Client: OleVariant;
begin
  try
    Client := CreateOleObject('EET2.Client');
    // Zavolani Submit() pred Init()
    Client.Submit(Tx, True);
  except
    on E: EOleException do
      ShowMessage('Chyba: ' + E.Message); // napr. "Objekt neni inicializovan"
  end;
end;

GetLastErrorCode(): Integer

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 Delphi kódu preferujte try/except + EOleException.Message výše.

Příklad:

var
  Client: OleVariant;
begin
  Client := CreateOleObject('EET2.Client');
  // Zavolani Submit() pred Init()
  Client.Submit(Tx, True);
  ShowMessage(IntToStr(Client.GetLastErrorCode)); // Vrati 200, tedy error NOT_INITIALIZED
end;

EET2.Transaction

Reprezentuje transakci k odeslání na server.

Pozn.: při práci přes OleVariant je vhodné předávat číselné hodnoty jako String explicitně, kvůli odlišnostem ve formátování podle regionálního nastavení.

Vlastnosti

Metody

Init(poradCis: WideString; datTrzby: TDateTime; celkTrzba: WideString)

Inicializace transakce

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

Příklad:

var
  Tx: OleVariant;
begin
  Tx := CreateOleObject('EET2.Transaction');
  // Inicializace platby ID 0001, ktera probehla "prave ted" o castce 150.00,-
  Tx.Init('0001', Now, '150.00');
end;

Ošetření chyb: stejně jako u EET2.Client doporučujeme try/except + EOleException.Message. GetLastErrorCode() zůstává jako alternativa.

Příklad:

var
  Tx: OleVariant;
begin
  try
    Tx := CreateOleObject('EET2.Transaction');
    Tx.Init(...);
    Tx.EicPoverujiciho := 'neplatne EIC';
  except
    on E: EOleException do
      ShowMessage('Chyba: ' + E.Message); // Vrati kod 3, tedy error INVALID_EIC_POVERUJICIHO
  end;
end;

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.

var
  Client, Tx: OleVariant;
  Pok: string;
begin
  try
    // Vytvoreni & inicializace klienta vcetne nacteni certifikatu
    Client := CreateOleObject('EET2.Client');
    Client.Init('CZ12345678', 3, 'KASA-001', False);
    Client.LoadCert('CZ12345678.p12', 'tajne_heslo');

    // Vytvoreni jednoduche transakce
    Tx := CreateOleObject('EET2.Transaction');
    Tx.Init('0556', Now, '323.56');

    // Prvni odeslani platby
    Pok := Client.Submit(Tx, True);
    ShowMessage('POK: ' + Pok);
  except
    on E: EOleException do
      ShowMessage('Chyba: ' + E.Message);
  end;
end;

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.

var
  Client, Tx: OleVariant;
  Pok: string;
begin
  // Vytvoreni & inicializace klienta vcetne nacteni certifikatu
  Client := CreateOleObject('EET2.Client');
  Client.Init('CZ12345678', 3, 'KASA-001', False);
  Client.LoadCert('CZ12345678.p12', 'tajne_heslo');

  // Vytvoreni jednoduche transakce
  Tx := CreateOleObject('EET2.Transaction');
  Tx.Init('0556', Now, '323.56');
  Tx.EicPoverujiciho := 'CZ00000019';

  // Prvni odeslani platby
  Pok := Client.Submit(Tx, True);
end;

Odeslání tržby na testovací server

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

var
  Client, Tx: OleVariant;
  Pok: string;
begin
  // Vytvoreni & inicializace klienta vcetne nacteni certifikatu
  Client := CreateOleObject('EET2.Client');
  Client.Init('CZ12345678', 3, 'KASA-001', True);
  Client.LoadCert('CZ12345678.p12', 'tajne_heslo');

  // Vytvoreni jednoduche transakce
  Tx := CreateOleObject('EET2.Transaction');
  Tx.Init('0556', Now, '323.56');

  // Prvni odeslani platby
  Pok := Client.Submit(Tx, True);
  // i testovaci server vraci potvrzovaci kod POK
  ShowMessage(Pok);
end;