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;