Objekt TKAPDocument - Historie editací

Greplová Alena: /* Objekt TKAPDocument */

2025-11-19T17:23:05Z

Objekt TKAPDocument

Grepl: /* Objekt TKAPDocument */

2015-05-21T21:24:46Z

Objekt TKAPDocument

Grepl v 20. 4. 2015, 16:34

2015-04-20T16:34:14Z

Grepl: /* Objekt TKAPDocItem */

2015-04-20T16:27:59Z

Objekt TKAPDocItem

Grepl: /* Objekt TKAPDocItem */

2015-04-20T16:06:24Z

Objekt TKAPDocItem

Grepl: /* Objekt TKAPDocument */

2015-04-20T16:02:26Z

Objekt TKAPDocument

Grepl: /* Objekt TKAPDocument */

2015-04-20T15:41:24Z

Objekt TKAPDocument

Grepl v 20. 4. 2015, 15:25

2015-04-20T15:25:23Z

Grepl v 20. 4. 2015, 15:11

2015-04-20T15:11:38Z

Grepl: /* Objekt TKAPDocument */

2015-04-20T14:45:17Z

Objekt TKAPDocument

@@ Řádek 103: / Řádek 103: @@
      function CheckItemsBeforeSave(var ErrItemNo: longint): Boolean;
      function SaveDocument: Boolean;
    end;
@@ Řádek 152: / Řádek 153: @@
 |-valign=top
 |''function SaveDocument: Boolean'' ||Funkce uloží hlavičku dokladu (u nových dokladů přidělí číslo dle číselné řady), operace a poznámky uložené v Memo1, Memo2 a MemoExp. Pokud je vrácena hodnota true, tak je doklad uložen do databáze. Může se ale stát, že se uloží doklad s operacemi, ale poznámky se nepodaří uložit (podrobnosti je v tomto případě možné zjistit z pole LastError). Pokud je vrácena hodnota false, tak se doklad nepovedlo uložit (a není uložena ani hlavička, ani operace). Ukládat lze jen nové doklady nebo doklady, které byly kompletně načteny včetně operací.
 |}

@@ Řádek 93: / Řádek 93: @@
      function LoadDocumentByDocNo(Sklad: word; Prijem: Boolean; Rok : Word; TypDokladu : byte;
                                   CisloDokladu: longint; LoadItems: Boolean): Boolean;
      function GetCPYIndexesFromExchangeFile(FileName, Fields: String; GetCPYDoc, GetCPYReadedDoc: Boolean): TDataset; {vrací objekt TClientDataset}
      function LoadDocumentFromExchangeFile(FileName, ProtocolFileName: String; IndexCPY: longint;
@@ Řádek 99: / Řádek 100: @@
                        SaveRecommendedPrices, SaveBarCodes, SaveLocations, SaveDocMemo1 : Boolean; LogText: String) : longint;
      function SaveDocumentHeaderToClientDataset(Fields: String): TDataset; {vrací objekt TClientDataset}
      function CheckItemsBeforeSave(var ErrItemNo: longint): Boolean;
      function SaveDocument: Boolean;
@@ Řádek 134: / Řádek 136: @@
 |-valign=top
 |''function LoadDocumentByDocNo(Sklad: word; Prijem: Boolean; Rok : Word; TypDokladu : byte; CisloDokladu: longint; LoadItems: Boolean): Boolean'' ||Funkce načte z databáze doklad určený číslem skladu, příjmem, rokem, typem a číslem dokladu. Parametr Prijem nastavte na true pro příjmové doklady a false pro dodací doklady. Parametr LoadItems určuje, zda načtou i operace dokladu. Funkce vrací true, pokud je doklad nalezena a načtena.
 |-valign=top
 |''function GetCPYIndexesFromExchangeFile(FileName, Fields: String; GetCPYDoc, GetCPYReadedDoc: Boolean): TDataset;'' ||Funkce načte z přenosového souboru seznam hlaviček dokladů, které přenosový soubor obsahuje. Pole Fields určuje seznam polí ze struktury DOKLAD, které mají být vráceny ve výsledném datasetu. Navíc je možné vyžádat pole CPYIndex (index uloženého dokladu pro případné načtení), CPYState pro stav dokladu (0=nezpracovaný; 1=načtený doklad), CPYDate, CPYTime (datum a čas zpracování). Pokud je pole Fields prázdné, tak jsou vrácena všechna možná pole. GetCPYDoc=true vrací záznamy jen pro dosud nezpracované doklady, GetCPYReadedDoc=true vrací záznamy pro dříve zpracované (načtené) doklady. Výsledný dataset na závěr nezapomeňte uvolnit pomocí metody Free.
@@ Řádek 144: / Řádek 148: @@
 |-valign=top
 |''function CheckItemsBeforeSave(var ErrItemNo: longint): Boolean'' ||Provede standardní kontroly operací před evidováním dokladu na základně nastavení typu dokladu a přístupových práv uživatele. V případě chyby je číslo problematické operce vráceno v parametru ErrItemNo a popis chyby je v LastError.
 |-valign=top
 |''function SaveDocument: Boolean'' ||Funkce uloží hlavičku dokladu (u nových dokladů přidělí číslo dle číselné řady), operace a poznámky uložené v Memo1, Memo2 a MemoExp. Pokud je vrácena hodnota true, tak je doklad uložen do databáze. Může se ale stát, že se uloží doklad s operacemi, ale poznámky se nepodaří uložit (podrobnosti je v tomto případě možné zjistit z pole LastError). Pokud je vrácena hodnota false, tak se doklad nepovedlo uložit (a není uložena ani hlavička, ani operace). Ukládat lze jen nové doklady nebo doklady, které byly kompletně načteny včetně operací.

@@ Řádek 176: / Řádek 176: @@
      property SpecialProductName: String; {speciální název karty}
      property XCode: String; {speciální kód karty}
    end;

@@ Řádek 154: / Řádek 154: @@
   TKAPDocItem = class
      constructor Create;   {objekt není možné přímo vytvářet - k objektu se lze dostat pomocí TKAPDocument.Items[Index] }
-     property ProductCode: string; {Kód zboží}
+     property ProductCode: string; {Kód zboží - max. 16 znaků}
      property Quantity: Double; {Počet MJ}
      property Price: Double; {Cena za MJ bez DPH}
@@ Řádek 164: / Řádek 164: @@
      property DeliveryDate: longint; {datum dodávky}
      property Flags: word; {jen pro čtení - příznaky operace}
    end;

@@ Řádek 153: / Řádek 153: @@
   TKAPDocItem = class
-     constructor Create;   {objekt není možné přímo vytvářet - k objektu se lze dostat pomocí TKAPOrder.Items[Index] }
+     constructor Create;   {objekt není možné přímo vytvářet - k objektu se lze dostat pomocí TKAPDocument.Items[Index] }
      property ProductCode: string; {Kód zboží}
      property Quantity: Double; {Počet MJ}

@@ Řádek 93: / Řádek 93: @@
      function LoadDocumentByDocNo(Sklad: word; Prijem: Boolean; Rok : Word; TypDokladu : byte;
                                   CisloDokladu: longint; LoadItems: Boolean): Boolean;
-     function GetCPYIndexesFromExchangeFile(FileName, Fields: String; GetCPYDoc, GetCPYReadedDoc: Boolean): TClientDataset;
+     function GetCPYIndexesFromExchangeFile(FileName, Fields: String; GetCPYDoc, GetCPYReadedDoc: Boolean): TDataset; {vrací objekt TClientDataset}
      function LoadDocumentFromExchangeFile(FileName, ProtocolFileName: String; IndexCPY: longint;
                        ReadDocHeader, ReadDocMemo1, ReadBarCodes, ReadNewProducts, UpdateProducts, UpdatePurchasePrices, DeleteCPY: Boolean; LogText: String): Boolean;
@@ Řádek 121: / Řádek 121: @@
 |''function LoadDocItemsFromDataset(Dataset: TDataset; var ErrorOnRow: longint): Boolean'' ||Funkce načte z tabulky určené parametrem Dataset položky objednávky. Jména polí mohou být následující: Autokod nebo GUID (nepovinné jednoznačné označení záznamu), Kod nebo ProductCode (kód zboží z tabulky skladových karet), Pocet nebo Quantity (počet MJ), Cena nebo Price (cena bez DPH za MJ; pokud je nastavena automatická aktualizace cen, tak se toto pole ignoruje), DPH nebo VAT (hodnota DPH za celý řádek). Pokud některá položka dokladu nejde importovat, tak je do údaje ErrorOnRow uloženo pořadové číslo řádku, kde nastala chyba (od 1). Předchozí řádky zůstávají načteny.
 |-valign=top
-|''procedure ClearItems'' ||Tato procedura vymaže seznam položek objednávky.
+|''procedure AddPayment(PaymentDate: TDateTime; Payment : Double)'' ||Přidá platbu k dokladu
 |-valign=top
-|''procedure DeleteItem(Index: integer)'' ||Tato procedura vymaže jednu položku objednávky (číslováno od 0).
+|''procedure ClearItems'' ||Tato procedura vymaže seznam operací dokladu.
 |-valign=top
-|''function ItemsCount: integer'' ||Funkce vrací počet položek objednávky.
+|''procedure DeleteItem(Index: integer)'' ||Tato procedura vymaže jednu operaci dokladu(číslováno od 0).
 |-valign=top
-|''property Items(Index: integer): TKAPOrderItem'' ||Funkce vrací objekt typu TKAPOrderItem umožňující číst a měnit hodnoty jedné položky objednávky.
+|''function ItemsCount: integer'' ||Funkce vrací počet operací (položek) dokladu
 |-valign=top
-|''function AddOrderItem(Kod: String; Pocet, PocetBal: Double; AutoPocetBal: Boolean; Cena: Double; Identifikace: String): Boolean'' ||Funkce přidá jednu položku objednávky. Krta určená kódem zboží musí existovat v seznamu skladových karet, počet musí být nenulový. Pokud je nastavena automatická aktualizace cen, tak se parametr Cena ignoruje a cena je určena automaticky programem se zohledněním individuální ceny odběratele. Pokud je parametr AutoPocetBal nastaven na true, tak se parametr PocetBal ignouje a počet balení je určen automaticky.
+|''property Items[Index: integer]: TKAPDocItem'' ||Funkce vrací objekt typu TKAPDocItem umožňující číst a měnit hodnoty jedné operace dokladu.
 |-valign=top
-|''function LoadOrderByOrderNo(Sklad: word; Prijem: Boolean; CisloObjednavky: longint; LoadItems: Boolean): Boolean'' ||Funkce načte z databáze objednávku určenou číslem skladu a číslem objednávky. Parametr Prijem nastavte na false (čili požadavky); Pokud údaj Sklad bude mít hodnotu 0, tak se použije aktuální číslo skladu. Parametr LoadItems určuje, zda načtou i položky objednávky. Funkce vrací true, pokud je objednávka nalezena a načtena.
+|''function AddDocItem(ProductCode: string; Quantity, Price, VATtotal: Double): Boolean'' ||Funkce přidá jednu operaci dokladu. Karta určená kódem zboží musí existovat v seznamu skladových karet, počet musí být nenulový. Pokud je nastavena automatická aktualizace cen, tak se parametr Cena ignoruje a cena je určena automaticky programem se zohledněním individuální ceny partnera. VATTotal vyjadřuje celkovou hodnotu DPH za celou operaci dokladu.
 |-valign=top
-|''function LoadOrderByGUID(GUID: AnsiString; LoadItems: Boolean): Boolean'' ||Funkce dohledá GUID a pokud je nalezen, tak načte odpovídající objednávku. GUID se ukládá jen pro externí objednávky a je uložen ve formě textu GUID=hodnota v tabulce MEMO ve vazbě na danou objednávku. Pro použití této funkce je nutné mít aktuální (rozšířenou) verzi indexů pro tabulku MEMO.
+|''function LoadDocumentByDocNo(Sklad: word; Prijem: Boolean; Rok : Word; TypDokladu : byte; CisloDokladu: longint; LoadItems: Boolean): Boolean'' ||Funkce načte z databáze doklad určený číslem skladu, příjmem, rokem, typem a číslem dokladu. Parametr Prijem nastavte na true pro příjmové doklady a false pro dodací doklady. Parametr LoadItems určuje, zda načtou i operace dokladu. Funkce vrací true, pokud je doklad nalezena a načtena.
 |-valign=top
 |''function SaveOrder: Boolean'' ||Funkce uloží hlavičku objednávky (u nových objednávek přidělí číslo dle číselné řady požadavků), položky a poznámky uložené v MemoA, memoB a MemoI. Pokud je vrácena hodnota true, tak je objednávka uložena do databáze. Může se ale stát, že se uloží objednávka s položkami, ale poznámky se nepodaří uložit (podrobnosti je v tomto případě možné zjistit z pole LastError). Pokud je vrácena hodnota false, tak se objednávku nepovedlo uložit (a není uložena ani hlavička, ani položky). Ukládat lze jen nové objednávky nebo objednávky, které byly kompletně načteny včetně požadavků.

@@ Řádek 109: / Řádek 109: @@
 |''constructor Create(UpdatePrices: Boolean)'' ||Parametr UpdatePrices určuje, zda mají být ceny v dokladu počítány automaticky se zohledněním individuálních cen odběratele/dodavatele nebo budou určeny skriptem při přidávání jednotlivých položek. Vytvořené objekty nezapomeňte uvolnit pomocí metody Free.
 |-valign=top
-|''procedure InitNewOrder'' ||Reinicializuje objekt pro zpracování nové objednávky (tj. vynuluje se objednávka, smažou se požadavky i poznámky k objednávce). Tuto metoda se volá automaticky v rámci vytvoření objektu TKAPOrder.
+|''procedure ClearLastError'' ||Vymazání informace o poslední detekované chybě (LastError).
 |-valign=top
-|''function SetCustomer(ICO: String): Boolean'' ||Podle údaje IČO dohledá zákazníka a naplní hlavičku objednávky podle fakturačního místa z adresy. Pokud odběratel není nalezen, tak je odběratel v objednávce vynulován. Podle zákazníka jsou určeny i individuální ceny pro případ automatické aktualizace cen. Funkce vrací true, pokud je zákazník nalezen.
+|''function InitNewDocument'' ||Reinicializuje objekt pro zpracování nového dokladu (tj. vynuluje se hlavička dokladu, smažou se operace i poznámky k dokaldu). Tuto metoda se volá automaticky v rámci vytvoření objektu TKAPDocument.
 |-valign=top
-|''function LoadOrderHeaderFromDataset(Dataset: TDataset): Boolean'' ||Funkce načte z tabulky určené parametrem Dataset hlavičku objednávky. Struktura vstupní tabulky (jména polí) musí odpovídat struktuře tabulky SkladOBJ ze skladového programu. Pokud tabulka obsahuje pole MEMOA nebo MEMOB, tak jsou informace z tohoto pole přeneseny do vlastností MemoA, popř. MemoB (typu StringList). Pole EMAIL, RESPPERSON, PHONE, GUID, FAX, MOBILE, CONTACTEMAIL, SENDINFO jsou uložena ve formátu JménoPole=Hodnota do údaje MemoI. Pokud je ve vstupní tabulce definováno pole Mena a toto pole obsahuje cizí měnu, tak je automaticky dohledán v kurzovém lístku kurz a nastaví se příznaky pro používání cizí měny. Při přidávání položek jsou pak ceny uváděny v cizí měně.
+|''function SetDocType(Prijem: Boolean; TypDokladu: byte): Boolean'' ||Nastaví typ dokladu pro daný doklad. Vrací false, pokud typ dokladu nebyl nalezen
 |-valign=top
-|''function LoadOrderItemsFromDataset(Dataset: TDataset; var ErrorOnRow: longint): Boolean'' ||Funkce načte z tabulky určené parametrem Dataset položky objednávky. Jména polí mohou být následující: Autokod nebo GUID (nepovinné jednoznačné označení záznamu), Kod nebo ProductCode (kód zboží z tabulky skladových karet), Pocet nebo Quantity (objednaný počet MJ), BaleniX nebo QuantityP (objednaný počet balení - důležité pro výpočet vázaných obalů; pokud pole není definováno, tak se počet balení určí automaticky), Cena nebo Price (cena bez DPH za MJ; pokud je nastavena automatická aktualizace cen, tak se toto pole ignoruje), Identifik nebo Comment (nepovinné pole, max. 30 znakový komentář k položce). Pokud některá položka objednávky nejde importovat, tak je do údaje ErrorOnRow uloženo pořadové číslo řádku, kde nastala chyba (od 1). Předchozí řádky zůstávají načteny.
+|''function SetPartner(ICO: String): Boolean'' ||Podle údaje IČO dohledá odběratele nebo dodavatele a naplní hlavičku dokladu podle fakturačního místa z adresy. Pokud partner není nalezen, tak je partner v dokladu vynulován. Podle partnera jsou určeny i individuální ceny pro případ automatické aktualizace cen. Funkce vrací true, pokud je partner nalezen.
 |-valign=top
 |''procedure ClearItems'' ||Tato procedura vymaže seznam položek objednávky.

@@ Řádek 4: / Řádek 4: @@
   TKAPDocument = class
-     property Sklad: word;  {vlastnosti Sklad, Prijem, Rok a Typ dokladu jsou pouze pro čtení - inicializují se při vytvoření TKAPDocument nebo při načtení dokladu}
+     property Sklad: word;  {doklady lze evidovat pouze v aktuálním skladu; načíst lze ale i doklady z jiných skladů}
-    property Prijem: Boolean;
+    property Prijem: Boolean; {vlastnosti Prijem a Typ dokladu jsou pouze pro čtení - lze je nastavit pomocí SetDocType}
-     property Rok : integer read;
+     property Rok : integer; { Vlastnost Rok odpovídá roku z data odeslání dokladu }
      property TypDokladu : byte;
      property CisloDokladu: longint;
@@ Řádek 70: / Řádek 70: @@
      property MemoExp       : TStringList;
      property LastError: String; {pouze pro čtení}
      property IgnoreRights  : Boolean; {určuje, zda jsou při evidování dokladu ignorována některá omezení daná přístupovými právy}
      property AutoNumber    : Boolean; {automatické číslování dokladu}
-     property AktualizaceCen: Boolean; {automatická aktualizace cen při přidání položky pomocí AddDocItem}
+     property UpdatePrices  : Boolean; {automatická aktualizace cen při přidání položky pomocí AddDocItem}
      property Items[Index: integer]: TKAPDocItem;  {pole objektů zpřístupňující jednotlivé operace dokladu}
-     constructor Create(AAktualizaceCen: Boolean);
+     constructor Create(UpdatePrices: Boolean);
      destructor Destroy;
      function InitNewDocument(Prijem: Boolean; TypDokladu: byte): Boolean;
      function SetDocType(Prijem: Boolean; TypDokladu: byte): Boolean;
      function SetPartner(ICO: String): Boolean;
      function LoadDocHeaderFromDataset(Dataset: TDataset): Boolean;
-     function LoadDocItemsFromDataset(Dataset: TDataset; var ChybaNaRadku: longint): Boolean;
+     function LoadDocItemsFromDataset(Dataset: TDataset; var ErrorOnRow: longint): Boolean;
-     procedure AddPayment(Datum: TDateTime; Castka : Double);
+     procedure AddPayment(PaymentDate: TDateTime; Payment : Double);
      procedure ClearItems;
      procedure DeleteItem(Index: longint);
      function ItemsCount: longint;
-     function AddDocItem(Kod: String; Pocet, Cena, DPH: Double): Boolean;
+     function AddDocItem(ProductCode: string; Quantity, Price, VATtotal: Double): Boolean;
      function LoadDocumentByDocNo(Sklad: word; Prijem: Boolean; Rok : Word; TypDokladu : byte;
                                   CisloDokladu: longint; LoadItems: Boolean): Boolean;
@@ Řádek 93: / Řádek 98: @@
      function SaveDocumentToExchangeFile(FileName: String;
                        SaveRecommendedPrices, SaveBarCodes, SaveLocations, SaveDocMemo1 : Boolean; LogText: String) : longint;
-     function SaveDocumentHeaderToClientDataset(Fields: String): TClientDataset;
+     function SaveDocumentHeaderToClientDataset(Fields: String): TDataset; {vrací objekt TClientDataset}
      function SaveDocument: Boolean;
    end;