Objekt CashReceived

Okrem štandardne dostupných metód sú na tomto objekte pre účely práce cez otvorené rozhranie k dispozícii taktiež nasledujúce:

Vybrané metódy a vlastnosti:

procedure Fiscalize(const OBJID: WideString; FiscalizationMode: NxFiscalizationMode);
Popis:
Procedura fiskalizuje doklad (pokladní příjem) určený parametrem OBJID. FiscalizationMode (typ fiskalizace) může nabývat hodnot 1 až 3.
procedure FiscalizeOnMacAddress(const OBJID: WideString; FiscalizationMode: NxFiscalizationMode; const MacAddress: WideString);
Popis:
Procedura fiskalizuje doklad (pokladní příjem) určený parametrem OBJID s konfigurací pro počítač identifikovaný pomocí MacAddress. Je zapotřebí nastavit konfiguraci fiskální tiskárny na každém počítači, na kterém se mají doklady fiskalizovat. FiscalizationMode (typ fiskalizace) může nabývat hodnot 1 až 3, 5 nebo 6.

V terminálovém provozu (kdy mají všichni uživatelé stejnou fyzickou MAC adresu) je nutné používání této procedury v kombinaci s nastavením parametru spuštění -macaddress.

property IsFiscalized[OBJID: WideString]: WordBool;
Popis:
Informace, zda je doklad (pokladní příjem) identifikovaný pomocí OBJID fiskalizovaný. Vlastnost IsFiscalized je přístupná pouze pro čtení, nastavuje se voláním procedury Fiscalize nebo FiscalizeOnMacAddress (změna je možná pouze z hodnoty false na hodnotu true ).

Stejné metody a vlastnost jsou k dispozici také pro objekty RefundedCashReceived (vrácení pokladního příjmu), CashPaid (pokladní výdej) a RefundedCashPaid (vrácení pokladního výdeje).

Typy fiskalizace:

1 = Příjem do/Výdej z pokladny - v hotovosti
2 = Úhrada faktury - v hotovosti
3 = Vklad/Výběr hotovosti
5 = Příjem do pokladny - kartou
6 = Úhrada faktury - kartou

Procedury Fiscalize a FiscalizeOnMacAddress nekontrolují, zda byl doklad již fiskalizovaný (zavolání procedury na již fiskalizovaný doklad provede fiskalizaci znovu). Otestování stavu dokladu je plně v kompetenci autora skriptu.

Příklad fiskalizace dokladů (ve VBScriptu):

Dim CashPaidObject
Dim CashReceivedObject
Dim RefundedCashPaidObject
Dim RefundedCashReceivedObject

Set mApplication = CreateObject("AbraOLE.Application")
Call mApplication.Connect("@DataSK")

If mApplication.Login("Supervisor", "") Then
  Set CashPaidObject = mApplication.CreateObject("@CashPaid")
  Set CashReceivedObject = mApplication.CreateObject("@CashReceived")
  Set RefundedCashPaidObject = mApplication.CreateObject("@RefundedCashPaid")
  Set RefundedCashReceivedObject = mApplication.CreateObject("@RefundedCashReceived")

  Set CashPaidData = CashPaidObject.GetValues("3100000101")
  Wscript.Echo CashPaidData.ValueByName("IsFiscalized")
  
  Wscript.Echo "CashPaid"
  CashPaidObject.FiscalizeOnMacAddress "3100000101", 1, "XX000001234A"
  CashPaidObject.FiscalizeOnMacAddress "4100000101", 2, "XX000001234A"
  CashPaidObject.FiscalizeOnMacAddress "5100000101", 2, "XX000001234A"

  Wscript.Echo "CashReceived"
  CashReceivedObject.FiscalizeOnMacAddress "2500000101", 1, "XX000001234A"
  CashReceivedObject.FiscalizeOnMacAddress "3500000101", 1, "XX000001234A"

  Wscript.Echo "RefundedCashPaid"
  RefundedCashPaidObject.FiscalizeOnMacAddress "3000000101", 1, "XX000001234A"
  RefundedCashPaidObject.FiscalizeOnMacAddress "6000000101", 1, "XX000001234A"

  Wscript.Echo "RefundedCashReceived"
  RefundedCashReceivedObject.FiscalizeOnMacAddress "3000000101", 1, "XX000001234A"
  RefundedCashReceivedObject.FiscalizeOnMacAddress "6000000101", 1, "XX000001234A"

  Set CashPaidData = CashPaidObject.GetValues("3100000101")
  Wscript.Echo CashPaidData.ValueByName("IsFiscalized")
End If 
Set mApplication = nothing