Objekt TKAPOrder: Porovnání verzí

Z K.A.P.
Skočit na navigaciSkočit na vyhledávání
m (Nová stránka: Pomocí objektu TKAPOrder lze pracovat s požadavky (čili objednávkami zákazníků). Objekt je dostupný pouze ve skladovém programu. Při vytvoření nové instance objektu se o...)
 
m
Řádek 4: Řádek 4:
  
 
  TKAPOrder = class
 
  TKAPOrder = class
−
     property Sklad: word read Objednavka.Sklad;
+
     property Sklad: word;
−
     property Prijem: Boolean read Objednavka.Prijem;
+
     property Prijem: Boolean;
−
     property CisloObjednavky: longint read Objednavka.CisloObjednavky;
+
     property CisloObjednavky: longint;
−
     property Pozadovano: TDateTime read GetPozadovano write SetPozadovano;
+
     property Pozadovano: TDateTime;
−
     property Zalozeno: TDateTime read GetZalozeno write SetZalozeno;
+
     property Zalozeno: TDateTime;
−
     property Podnik: byte read Objednavka.Podnik write Objednavka.Podnik;
+
     property Podnik: byte;
−
     property Jmeno: AnsiString read GetJmeno write SetJmeno;
+
     property Jmeno: String;
−
     property Jmeno2: AnsiString read GetJmeno2 write SetJmeno2;
+
     property Jmeno2: String;
−
     property Ulice: AnsiString read GetUlice write SetUlice;
+
     property Ulice: String;
−
     property Mesto: AnsiString read GetMesto write SetMesto;
+
     property Mesto: String;
−
     property Telefon: AnsiString read GetTelefon write SetTelefon;
+
     property Telefon: String;
−
     property PSC: AnsiString read GetPSC write SetPSC;
+
     property PSC: String;
−
     property ICO: AnsiString read GetICO write SetICO;
+
     property ICO: String;
−
     property DIC: AnsiString read GetDIC write SetDIC;
+
     property DIC: String;
−
     property Radek1: AnsiString read GetRadek1 write SetRadek1;
+
     property Radek1: String;
−
     property Radek2: AnsiString read GetRadek2 write SetRadek2;
+
     property Radek2: String;
−
     property Osoba: AnsiString read GetOsoba write SetOsoba;
+
     property Osoba: String;
−
     property Uhrada: byte read Objednavka.Uhrada write Objednavka.Uhrada;
+
     property Uhrada: byte;
−
     property Prevedeno: byte read Objednavka.Prevedeno write Objednavka.Prevedeno;
+
     property Prevedeno: byte;
−
     property Doprava: byte read Objednavka.Doprava write Objednavka.Doprava;
+
     property Doprava: byte;
−
     property Zakazka: AnsiString read GetZakazka write SetZakazka;
+
     property Zakazka: String;
−
     property Vystavil: AnsiString read GetVystavil write SetVystavil;
+
     property Vystavil: String;
−
     property CelkemBezDPH: Double read GetCelkemBezDPH;
+
     property CelkemBezDPH: Double;
−
     property CelkemSDPH : Double read GetCelkemSDPH;
+
     property CelkemSDPH : Double;
−
     property ProcVykrKc    : Double read GetProcVykrKc;
+
     property ProcVykrKc    : Double;
−
     property ProcVykrytiMj : Double read GetProcVykrytiMj;
+
     property ProcVykrytiMj : Double;
−
     property Sleva        : Double read GetSleva write SetSleva;
+
     property Sleva        : Double;
−
     property MaxDatumDodani: TDateTime read GetMaxDatumDodani write SetMaxDatumDodani;
+
     property MaxDatumDodani: TDateTime;
−
     property PocetPalet    : Double read GetPocetPalet;
+
     property PocetPalet    : Double;
−
     property CelkHmotnost  : Double read GetCelkHmotnost;
+
     property CelkHmotnost  : Double;
−
     property ExtCisloObj  : AnsiString read GetExtCisloObj write SetExtCisloObj;
+
     property ExtCisloObj  : String;
−
     property CasDodani    : AnsiString read GetCasDodani write SetCasDodani;
+
     property CasDodani    : String;
−
     property TypDokladuSkl : byte read Objednavka.TypDokladuSkl write Objednavka.TypDokladuSkl;
+
     property TypDokladuSkl : byte;
−
     property PASIdObj      : longint read Objednavka.PASIdObj write Objednavka.PASIdObj;
+
     property PASIdObj      : longint;
−
     property IndivCena    : AnsiString read GetIndivCena write SetIndivCena;
+
     property IndivCena    : String;
−
     property PocetTisku    : byte read Objednavka.PocetTisku;
+
     property PocetTisku    : byte;
−
     property PocetOprav    : byte read Objednavka.PocetOprav;
+
     property PocetOprav    : byte;
−
     property Priznaky      : byte read Objednavka.Priznaky write Objednavka.Priznaky;
+
     property Priznaky      : byte;
−
     property Mena          : AnsiString read GetMena write SetMena;
+
     property Mena          : String;
−
     property Kurz          : Double read GetKurz write SetKurz;
+
     property Kurz          : Double;
−
     property Priznaky2    : byte read Objednavka.Priznaky2 write Objednavka.Priznaky2;
+
     property Priznaky2    : byte;
−
     property Priznaky3    : byte read Objednavka.Priznaky3 write Objednavka.Priznaky3;
+
     property Priznaky3    : byte;
−
     property MemoA        : Classes.TStringList read FMemoA;
+
     property MemoA        : TStringList;
−
     property MemoB        : Classes.TStringList read FMemoB;
+
     property MemoB        : TStringList;
−
     property MemoI        : Classes.TStringList read FMemoI;
+
     property MemoI        : TStringList;
−
     property LastError: AnsiString read FLastError;
+
     property LastError: String;
−
     constructor Create(AAktualizaceCen: Boolean; BtrADR, BtrMEM: _SBtrieveFilePtr);
+
     constructor Create(AktualizaceCen: Boolean);
−
     destructor Destroy; override;
+
     destructor Destroy;
−
     function SetCustomer(ICO: AnsiString): Boolean;
+
     function SetCustomer(ICO: String): Boolean;
 
     function LoadOrderHeaderFromDataset(Dataset: TDataset): Boolean;
 
     function LoadOrderHeaderFromDataset(Dataset: TDataset): Boolean;
 
     function LoadOrderItemsFromDataset(Dataset: TDataset; var ChybaNaRadku: longint): Boolean;
 
     function LoadOrderItemsFromDataset(Dataset: TDataset; var ChybaNaRadku: longint): Boolean;
 
     procedure ClearItems;
 
     procedure ClearItems;
−
     function AddOrderItem(Kod: AnsiString; Pocet, PocetBal: Double; AutoPocetBal: Boolean; Cena: Double; Identifikace: AnsiString): Boolean;
+
     function AddOrderItem(Kod: String; Pocet, PocetBal: Double; AutoPocetBal: Boolean; Cena: Double; Identifikace: String): Boolean;
 
     function SaveNewOrder: Boolean;
 
     function SaveNewOrder: Boolean;
 
  end;
 
  end;
−
 
−
Při použití metod IndividualniCena, KartaCena či KartaUrovenDPH se informace o kartě uloží do paměti objektu a při volání jiné metody pro stejný kód se využije již dříve načtená skladová karta.
 
  
 
{| border=1 style="background:#ddddff; color:black" class = "wikitable"
 
{| border=1 style="background:#ddddff; color:black" class = "wikitable"

Verze z 11. 2. 2015, 19:16

Pomocí objektu TKAPOrder lze pracovat s požadavky (čili objednávkami zákazníků). Objekt je dostupný pouze ve skladovém programu. Při vytvoření nové instance objektu se otevřou tabulky SKLADKAR, SKLADZAS a MEMO a pomocí těchto tabulek pak program zjišťuje požadované informace. Doporučujeme proto nevytvářet současně mnoho instancí třídy TKAPOrder a v případě, že se objekty již nevyužívají, tak je uvolnit.

Objekt TKAPOrder

TKAPOrder = class
   property Sklad: word;
   property Prijem: Boolean;
   property CisloObjednavky: longint;
   property Pozadovano: TDateTime;
   property Zalozeno: TDateTime;
   property Podnik: byte;
   property Jmeno: String;
   property Jmeno2: String;
   property Ulice: String;
   property Mesto: String;
   property Telefon: String;
   property PSC: String;
   property ICO: String;
   property DIC: String;
   property Radek1: String;
   property Radek2: String;
   property Osoba: String;
   property Uhrada: byte;
   property Prevedeno: byte;
   property Doprava: byte;
   property Zakazka: String;
   property Vystavil: String;
   property CelkemBezDPH: Double;
   property CelkemSDPH : Double;
   property ProcVykrKc    : Double;
   property ProcVykrytiMj : Double;
   property Sleva         : Double;
   property MaxDatumDodani: TDateTime;
   property PocetPalet    : Double;
   property CelkHmotnost  : Double;
   property ExtCisloObj   : String;
   property CasDodani     : String;
   property TypDokladuSkl : byte;
   property PASIdObj      : longint;
   property IndivCena     : String;
   property PocetTisku    : byte;
   property PocetOprav    : byte;
   property Priznaky      : byte;
   property Mena          : String;
   property Kurz          : Double;
   property Priznaky2     : byte;
   property Priznaky3     : byte;
   property MemoA         : TStringList;
   property MemoB         : TStringList;
   property MemoI         : TStringList;
   property LastError: String;
   constructor Create(AktualizaceCen: Boolean);
   destructor Destroy;
   function SetCustomer(ICO: String): Boolean;
   function LoadOrderHeaderFromDataset(Dataset: TDataset): Boolean;
   function LoadOrderItemsFromDataset(Dataset: TDataset; var ChybaNaRadku: longint): Boolean;
   procedure ClearItems;
   function AddOrderItem(Kod: String; Pocet, PocetBal: Double; AutoPocetBal: Boolean; Cena: Double; Identifikace: String): Boolean;
   function SaveNewOrder: Boolean;
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. Pokud parametr Datum nastavíte na hodnotu 0 nebo v systému nemáte zapnuté sledování individuálních cen na základě data dokladu, tak se použije dnešní datum. Parametr PocetMJ se uplatňuje jen u individuálních cen, které jsou závislé na množství. Parametr Cena musí být před voláním funkce inicializován, protože Cena zároveň funguje jako vstupní parametr (použije se pro individuální ceny typu "běžná cena"). Parametr CenaSDPH je nastaven i v případě, že individuální cena není vyhodnocena (čili výsledek funkce je false).
function PasmoPCNaTypCeny(PasmoPC: byte): byte Funkce vrací hodnotu typu ceny pro prodejní cenová pásma (prodejní ceny 1 až 40). Typ ceny má tyto hodnoty: 0,1:PC1, 2:PC2, 3:PC3, 4:PC4, 5:PC5, 6:PC6, 7:NC, 8:Doh.NC, 9:Prům.NC, 10 až 18:PC7 až PC15, 19: Spec.NC, 20 až 44: PC16 až PC40
function AktivniUrovneDPH: byte Funkce vrací počet aktivních úrovní DPH
Citováno z „https://wiki.kapsw.cz/index.php?title=Objekt_TKAPOrder&oldid=15715“