Objekt TKAPIndPrice

Pomocí objektu TKAPIndPrice lze zjišťovat vybrané informace o skladových kartách a individuálních cenách. Při vytvoření nové instance objektu se otevřou tabulky SKLADKAR, SKLADZAS a SKLADSSL a pomocí těchto tabulek pak program zjišťuje požadované informace. Doporučujeme proto nevytvářet současně mnoho instancí třídy TKAPIndPrice a v případě, že se objekty již nevyužívají, tak je uvolnit.

Objekt TKAPIndPrice

TKAPIndPrice = class
   constructor Create;
   function IndividualniCena(CenSkupina, AltCenSkupina, KodKarty: String; TypCeny, TypDokladu: Byte; Datum: TDateTime; PocetMJ: Double; var Cena: Double; var CenaSDPH: Double): Boolean;
   function PasmoPCNaTypCeny(PasmoPC: byte): byte;
   function TypCenyNaPasmoPC(TypCeny : byte) : byte;
   function TypCenyNaTypAdresy(TypCeny : byte) : byte;
   function TypAdresyNaTypCeny(TypAdr : byte) : byte;
   function KartaCena(KodKarty: string; TypCeny : byte; SDPH: Boolean) : Double;
   function KartaUrovenDPH(KodKarty: string) : byte;
   function CenaSDPH(Cena: Double; UrovenDPH: byte): Double;
   function ProcentoDPH(UrovenDPH: byte): Double;
   function AktivniUrovneDPH: byte;
end;

Funkce	Popis
constructor Create	vytvořené objekty nezapomeňte uvolnit pomocí metody Free
function IndividualniCena(CenSkupina, AltCenSkupina, KodKarty: String; TypCeny, TypDokladu: Byte; Datum: TDateTime; PocetMJ: Double; var Cena: Double; var CenaSDPH: Double): Boolean	Načte skladovou kartu dle KodKarty z tabulek SKLADKAR a SKLADZAS a vyhodnotí individuální cenu CenSkupina dle zadaných podmínek. TypCeny odpovídá definici cenových pásem ve skladovém programu a používá se pro určení, zda individuální cena je platná pro dané cenové pásmo. Typ dokladu je číslo typu dokladu. Pokud má hodnotu 0, tak se uplatní jen individuální ceny, které nejsou závislé na typu dokladu.
function PasmoPCNaTypCeny(PasmoPC: byte): byte	Funkce vrací hodnotu typu ceny pro prodejní cenová pásma (prodejní ceny 1 až 40)