Prvni verze na Git

.gitignore

@@ -30,8 +30,8 @@
 # Default Delphi compiler directories
 # Content of this directories are generated with each Compile/Construct of a project.
 # Most of the time, files here have not there place in a code repository.
-#Win32/
-#Win64/
+Win32/
+Win64/
 #OSX64/
 #OSXARM64/
 #Android/
@@ -81,3 +81,26 @@ __recovery/
 # Boss dependency manager vendor folder https://github.com/HashLoad/boss
 modules/
 
+
+
+# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
+*.stat
+.gitignore
+*.log
+*.dxsettings
+
+*.7z
+*.zip
+*.skincfg
+*.json
+
+SumatraPDF*
+
+*.mes
+*.tmp
+x/
+xx/
+bak/
+oldDLL/
+Resources/
+.git/

Globalni.pas

@@ -0,0 +1,347 @@
+unit Globalni;
+
+interface
+
+uses System.SysUtils, System.Win.ComObj, ddPlugin_TLB;
+
+const strLov = '40755509  LOVATO spol.s r.o.';
+      CRLF = #13#10;
+      sklVyroba = '200';
+
+//vytvoøeno 10.6.2022// z funkce ExportKoopObj v ComObject upravené 6.5.2020
+function ExportKoopObjXls(const Helios: IHelios; idKObj: integer; ZobrTypKooObj: boolean; NadpisTypuKoopObj: string; vlastTbl: string; Cesta: string; Nazev: string; ZobrazInfoKonec: Integer): string;   safecall;
+
+
+implementation
+
+uses Vcl.Controls, System.Win.ComServ, Vcl.Graphics, Vcl.Forms, System.Variants, System.StrUtils, Vcl.Dialogs,
+     Vcl.Clipbrd, System.Classes, Winapi.Windows, System.DateUtils, Vcl.StdActns, Winapi.ShlObj, Vcl.StdCtrls,
+     Vcl.ComCtrls, myUtils, helUtils, XLSReadWriteII5, XLSSheetData5, Xc12DataStyleSheet5, Xc12Utils5//, // nExcel,
+;
+
+//procedure ExportKoopObj(const Helios: IHelios; idKObj: integer; ZobrTypKooObj: boolean; NadpisTypuKoopObj: string; vlastTbl: string);   safecall; // upraveno 6.5.2020
+
+// upraveno 6.5.2020
+function ExportKoopObjXls (const Helios: IHelios; idKObj: integer; ZobrTypKooObj: boolean; NadpisTypuKoopObj: string; vlastTbl: string; Cesta: string; Nazev: string; ZobrazInfoKonec: Integer): string;
+  var lSQL, fld: string;
+      jCena: Extended;
+      xls: TXLSReadWriteII5;
+      wSheet1, wSheet2: TXLSWorksheet;
+      poz: IHeQuery;
+      idPolKObj, idKZ, idx, idDZCenik: integer;
+      cObj, cOrg, dodav, dat, datKO: string;
+      listSumace: boolean;
+      VybranyAdresar: boolean; // pøidáno 10.6.2022
+      NazevSouboru: String; // pøidáno 10.6.2022
+      Vysledek: String;  // pøidáno 10.6.2022
+  begin
+
+ //   Helios.Info('ID: "' + IntToStr(idKObj) + '", ZobrTypKooObj:"' + BoolToStr(ZobrTypKooObj) + '", NadpisTypuKoopObj"' + NadpisTypuKoopObj + '", Zarovnani: "' + vlastTbl  + '", cesta: "' + Cesta + '", Nazev: "' + Nazev  + '", ZobrazInfoKonec: "'+  IntToStr(ZobrazInfoKonec) + '"');
+
+   listSumace:= false;
+
+   Vysledek := '**_CHYBA_**';
+   if (idKObj>0) then
+     begin
+
+//      lSQL:= 'SELECT p.Polozka,p.Kusy,p.PozadTerDod_X,k.RegCis FROM ' + tblPKObj + ' p INNER JOIN ' + tblPrikaz + ' pr ON (p.IDPrikaz=pr.id)';
+//      lSQL:= lSQL + ' INNER JOIN ' + tblKZ + ' k ON (pr.IdTabKmen=k.id) WHERE p.IDObjednavky=' + IntToStr(idKObj);
+//      lSQL:= lSQL + ' ORDER BY p.Polozka';
+
+     // lSQL:= 'SELECT DISTINCT(kz.RegCis),pko.PozadTerDod,SUM(pko.Kusy) FROM ' + tblPKObj + ' pko';        // zakomentováno 6.5.2020
+       lSQL:= 'SELECT DISTINCT(kz.RegCis), pko.PozadTerDod,SUM(pko.Kusy), dbo._ef_NTS_TypObjednavkyKZKooP(kz.id, pko.id) FROM ' + tblPKObj + ' pko';        // pøidáno 6.5.2020
+      lSQL:= lSQL + ' INNER JOIN ' + tblPrikaz + ' p ON (pko.IDPrikaz=p.id) INNER JOIN ' + tblKZ + ' kz ON (p.IDTabKmen=kz.id)';
+      lSQL:= lSQL + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj) + ' GROUP BY kz.RegCis,pko.PozadTerDod, dbo._ef_NTS_TypObjednavkyKZKooP(kz.id, pko.id) ORDER BY pko.PozadTerDod'; // kz.RegCis';     // pøidáno 6.5.2020
+    //  lSQL:= lSQL + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj) + ' GROUP BY kz.RegCis,pko.PozadTerDod ORDER BY pko.PozadTerDod'; // kz.RegCis';  // zakomentováno 6.5.2020
+
+      poz:= Helios.OpenSQL(lSQL);
+      if (poz.RecordCount>0) then
+        begin
+          cOrg:= '';
+          datKO:= '';
+
+          lSQL:= 'SELECT c.CisloOrg, k.TerminOdeslani FROM ' + tblKObj + ' k INNER JOIN ' + tblCOrg + ' c ON (k.IDOrganizace=c.id) WHERE k.id=' + IntToStr(idKObj);
+          with Helios.OpenSQL(lSQL) do
+           if (RecordCount=1) then
+            begin
+             if not(VarIsNull(FieldByNameValues('CisloOrg'))) then
+              cOrg:= VarToStr(FieldByNameValues('CisloOrg'));
+             if not(VarIsNull(FieldByNameValues('TerminOdeslani'))) then
+              datKO:= VarToStr(FieldByNameValues('TerminOdeslani'));
+            end;
+
+          idDZCenik:= 0;
+          if (cOrg<>'') and (datKO<>'') then
+           begin
+            lSQL:= 'DECLARE @dat DATETIME, @cnt INT' + CRLF + 'SET @dat=CONVERT(datetime,N' + datKO.QuotedString + ', 104)' + CRLF
+                 + 'SELECT COUNT(d.ID) AS Pocet FROM ' + tblDZ + ' d INNER JOIN ' + tblDZe + ' de ON (de.ID=d.ID)'
+                 + ' WHERE d.IDSklad=N' + sklVyroba.QuotedString + ' AND d.CisloOrg=' + cOrg + ' AND d.RadaDokladu=N''220'' AND d.DruhPohybuZbo=11'
+                 + ' AND @dat BETWEEN d.Splatnost AND d.DatUhrady AND dbo.hfx_SD_AktualniUrovenSchvalovani(d.ID, 0)=9999';
+            with Helios.OpenSQL(lSQL) do
+             if (RecordCount>0) then
+              if (VarToStr(FieldByNameValues('Pocet')).ToInteger)>1 then
+               begin
+                Helios.Error('Pro daného dodavatele existuje víc platných Nabídkových ceníkù !' + CRLF + 'Export nebude proveden');
+                Exit;
+               end;
+
+            lSQL:= 'DECLARE @idDZ INT=0, @dat DATETIME' + CRLF
+                 + 'SET @dat=CONVERT(datetime,N' + datKO.QuotedString + ', 104)' + CRLF
+                 + 'IF EXISTS(SELECT 1 FROM ' + tblDZ + ' d INNER JOIN ' + tblDZe + ' de ON (de.ID=d.ID)'
+                 + ' WHERE d.IDSklad=N' + sklVyroba.QuotedString + ' AND d.CisloOrg=' + cOrg + ' AND d.RadaDokladu=N''220'' AND d.DruhPohybuZbo=11'
+                 + ' AND @dat BETWEEN d.Splatnost AND d.DatUhrady AND dbo.hfx_SD_AktualniUrovenSchvalovani(d.ID, 0)=9999)' + CRLF
+                 + ' SET @idDZ=(SELECT d.ID FROM ' + tblDZ + ' d INNER JOIN ' + tblDZe + ' de ON (de.ID=d.ID)'
+                 + ' WHERE d.IDSklad=N' + sklVyroba.QuotedString + ' AND d.CisloOrg=' + cOrg + ' AND d.RadaDokladu=N''220'' AND d.DruhPohybuZbo=11'
+                 + ' AND @dat BETWEEN d.Splatnost AND d.DatUhrady AND dbo.hfx_SD_AktualniUrovenSchvalovani(d.ID, 0)=9999)' + CRLF + 'SELECT @idDZ AS idDoklad';
+            with Helios.OpenSQL(lSQL) do
+             idDZCenik:= VarToStr(FieldByNameValues('idDoklad')).ToInteger;
+           end;
+
+
+           // pøidáno 10.6.2022
+           VybranyAdresar := false;
+
+           if trim(cesta) <> '' then
+             begin
+              fld := cesta;
+              VybranyAdresar := true;
+             end
+            else
+             begin
+//               fld:= GetEnvironmentVariable('USERPROFILE') + '\Desktop';
+               VybranyAdresar := VyberAdresar(fld, 'Umístìní exportního souboru');
+             end;
+           // konec pøidání 10.6.2022
+
+           cObj:= '';
+           dodav:= '';
+
+          // if VyberAdresar(fld, 'Umístìní exportního souboru') then       // zakomentováno 10.6.2022
+           if VybranyAdresar then         // pøidáno 10.6.202
+            begin
+               lSQL:= 'SELECT k.Objednavka, (c.ICO + N' + QuotedStr('   ') + ' + c.Nazev) AS Nazev, k.TerminOdeslani FROM ' + tblKObj;
+               lSQL:= lSQL + ' k INNER JOIN ' + tblCOrg + ' c ON (k.IDOrganizace=c.id) WHERE k.id=' + IntToStr(idKObj);
+               with Helios.OpenSQL(lSQL) do
+                begin
+                 cObj:= VarToStr(FieldByNameValues('Objednavka'));
+                 dodav:= VarToStr(FieldByNameValues('Nazev'));
+                 datKO:= VarToStr(FieldByNameValues('TerminOdeslani'));
+                end;
+               cObj:= StringReplace(cObj,'/','',[rfReplaceAll]);
+
+               xls:= TXLSReadWriteII5.Create(nil);
+               try
+                  xls.Version:= xvExcel97;
+                  if (listSumace) then
+                   begin
+                    wSheet2:= xls.Sheets[0];
+                    wSheet2.Name:= 'Sumace';
+      //              xls[1].InsertRows(0,poz.RecordCount);
+      //              xls[1].InsertColumns(0,7);
+                    wSheet2.AsString[0,0]:= 'Objednavatel';
+                    wSheet2.AsString[2,0]:= strLov;
+                    wSheet2.AsString[0,2]:= 'Dodavatel:';
+                    wSheet2.AsString[2,2]:= dodav;
+                    wSheet2.AsString[0,4]:= 'Datum vystavení:';
+                    wSheet2.AsString[2,4]:= datKO;
+                    wSheet2.AsString[0,6]:= 'Èís.obj.';
+                    wSheet2.AsString[1,6]:= 'Poø.è.';
+                    wSheet2.Columns.Items[1].NumberFormat:= '##0';
+                    wSheet2.Columns.Items[1].HorizAlignment:= chaCenter;
+                    wSheet2.AsString[2,6]:= 'Èíslo výrobku';
+                    wSheet2.AsString[3,6]:= 'Množství';
+                    wSheet2.Columns.Items[3].NumberFormat:= '###,##0.###';
+                    wSheet2.AsString[4,6]:= 'Splnit do';
+                    wSheet2.Columns.Items[4].NumberFormat:= 'DD.MM.YYYY';
+                    wSheet2.Columns.Items[4].HorizAlignment:= chaCenter;
+
+                    // pøidáno 6.5.2020
+                    if ZobrTypKooObj then
+                     begin
+                      wSheet2.AsString[5,6]:= NadpisTypuKoopObj;
+                      if (vlastTbl='NaStred') then
+                       wSheet2.Columns.Items[5].HorizAlignment:= chaCenter;
+                      if (vlastTbl='Vpravo') then
+                       wSheet2.Columns.Items[5].HorizAlignment:= chaRight;
+                     end;
+                    //  konec pøidáno 6.5.2020
+
+                    idx:= 7;
+                    poz.First;
+                    while not(poz.EOF) do
+                     begin
+                      wSheet2.AsString[0, idx]:= cObj;
+                      wSheet2.AsInteger[1, idx]:= idx-6; // VarToStr(poz.FieldValues(0));
+                      wSheet2.AsString[2, idx]:= VarToStr(poz.FieldValues(0)); // RegCis
+                      wSheet2.AsFloat[3, idx]:= StrToFloat(VarToStr(poz.FieldValues(2))); // mnozstvi
+
+                      dat:= VarToStr(poz.FieldValues(1));
+                      if (dat<>'') then
+                       wSheet2.AsString[4, idx]:= dat;
+
+                      //  pøidáno 6.5.2020
+                      if ZobrTypKooObj then
+                       wSheet2.AsString[5, idx]:= VarToStr(poz.FieldValues(3)); // Typ objednávky - poznámka z kmenové karty
+                      //  konec pøidáno 6.5.2020
+
+                      Inc(idx);
+                      poz.Next;
+                     end;
+                    wSheet2.AutoWidthCols(0, 4);
+                   end;
+
+
+    //              if Helios.YesNo('Mám pøerovnat položky objednávky podle datumu a reg.èísla ?',false) then
+    //               PrerovnejPolozkyKoopObj(Helios,idKObj);
+
+                 // lSQL:= 'SELECT pko.Polozka,kz.RegCis,pko.Kusy,pko.PozadTerDod_X FROM ' + tblPKObj + ' pko';    // zakomentováno 6.5.2020
+                  lSQL:= 'SELECT pko.Polozka, kz.RegCis, pko.Kusy, pko.PozadTerDod_X, dbo._ef_NTS_TypObjednavkyKZKooP(kz.id, pko.id), kz.ID AS IDKmen'
+                       + ' FROM ' + tblPKObj + ' pko'      // pøidáno 6.5.2020
+                       + ' INNER JOIN ' + tblPrikaz + ' p ON (pko.IdPrikaz=p.id)'
+                       + ' INNER JOIN ' + tblKZ + ' kz ON (p.IdTabKmen=kz.id)'
+                       + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj);
+
+    {
+                  lSQL:= 'CREATE TABLE #Vystup (Pozice INT IDENTITY(1,1),RegCis NVARCHAR(20),Polozka INT,Kusu NUMERIC(19,6)) ' + CRLF;
+                  lSQL:= lSQL + 'INSERT INTO #Vystup (RegCis,Polozka,Kusu) ';
+                  lSQL:= lSQL + 'SELECT DISTINCT(kz.RegCis),pko.Polozka,SUM(pko.Kusy) FROM ' + tblPKObj + ' pko';
+                  lSQL:= lSQL + ' INNER JOIN ' + tblPrikaz + ' p ON (pko.IDPrikaz=p.id) INNER JOIN ' + tblKZ + ' kz ON (p.IDTabKmen=kz.id)';
+                  lSQL:= lSQL + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj) + ' GROUP BY kz.RegCis,pko.Polozka ORDER BY pko.Polozka' + CRLF;
+                  lSQL:= lSQL + 'SELECT * FROM #Vystup';
+    }
+                  poz:= Helios.OpenSQL(lSQL);
+                  if (poz.RecordCount>0) then
+                   begin
+                    poz.First;
+                    idx:= 7;
+                    if (listSumace) then
+                      wSheet1:= xls.Add
+                     else
+                      wSheet1:= xls.Sheets[0];
+                    wSheet1.Name:= 'Detail';
+                    wSheet1.AsString[0,0]:= 'Objednavatel';
+                    wSheet1.AsString[2,0]:= strLov;
+                    wSheet1.AsString[0,2]:= 'Dodavatel:';
+                    wSheet1.AsString[2,2]:= dodav;
+                    wSheet1.AsString[0,4]:= 'Datum vystavení:';
+                    wSheet1.AsString[2,4]:= datKO;
+                    wSheet1.AsString[0,6]:= 'Èís.obj.';
+                    wSheet1.AsString[1,6]:= 'Poø.è.';
+                    wSheet1.Columns.Items[1].NumberFormat:= '##0';
+                    wSheet1.Columns.Items[1].HorizAlignment:= chaCenter;
+                    wSheet1.AsString[2,6]:= 'Èíslo výrobku';
+                    wSheet1.AsString[3,6]:= 'Množství';
+                    wSheet1.Columns.Items[3].NumberFormat:= '###,##0.###';
+                    wSheet1.AsString[4,6]:= 'Splnit do';
+                    wSheet1.Columns.Items[4].NumberFormat:= 'DD.MM.YYYY';
+                    wSheet1.Columns.Items[4].HorizAlignment:= chaCenter;
+
+                    // pøidáno 6.5.2020
+                    if ZobrTypKooObj then
+                      begin
+                       wSheet1.AsString[5,6]:= NadpisTypuKoopObj;
+                       if (vlastTbl='NaStred') then
+                        wSheet1.Columns.Items[5].HorizAlignment:= chaCenter;
+                       if (vlastTbl='Vpravo') then
+                        wSheet1.Columns.Items[5].HorizAlignment:= chaRight;
+
+                       wSheet1.AsString[6,6]:= 'JCena';
+                       wSheet1.Columns.Items[6].NumberFormat:= '###,##0.###';
+                      end
+                    //  konec pøidáno 6.5.2020
+                     else
+                      begin
+                       wSheet1.AsString[5,6]:= 'JCena';
+                       wSheet1.Columns.Items[5].NumberFormat:= '###,##0.###';
+                      end;
+
+
+                    while not(poz.EOF) do
+                     begin
+                      wSheet1.AsString[0, idx]:= cObj;
+                      wSheet1.AsInteger[1, idx]:= VarToStr(poz.FieldByNameValues('Polozka')).ToInteger; // polozka
+                      wSheet1.AsString[2, idx]:= VarToStr(poz.FieldByNameValues('RegCis')); // RegCis
+                      wSheet1.AsFloat[3, idx]:= StrToFloat(VarToStr(poz.FieldByNameValues('Kusy'))); // mnozstvi
+
+                      dat:= '';
+                      if not(VarIsNull(poz.FieldByNameValues('PozadTerDod_X'))) then
+                       dat:= VarToStr(poz.FieldByNameValues('PozadTerDod_X'));
+                      if (dat<>'') then
+                       wSheet1.AsString[4, idx]:= dat;
+
+                      idKZ:= VarToStr(poz.FieldByNameValues('IDKmen')).ToInteger;
+                      jCena:= 0;
+                      if (idDZCenik>0) then
+                       begin
+                        lSQL:= 'SELECT TOP(1) CASE WHEN d.Mena=N''CZK'' THEN pz.JCbezDaniKcPoS ELSE pz.JCBezDaniValPoS END AS JCPolozky FROM '
+                             + tblPZ + ' pz INNER JOIN ' + tblSS + ' ss ON (ss.ID=pz.IDZboSklad) INNER JOIN ' + tblDZ
+                             + ' d ON (d.ID=pz.IDDoklad) WHERE d.ID=' + idDZCenik.ToString + ' AND ss.IDKmenZbozi=' + idKZ.ToString;
+                        with Helios.OpenSQL (lSQL) do
+                         if (RecordCount>0) then
+                          jCena:= VarToStr(FieldByNameValues('JCPolozky')).ToDouble;
+                       end;
+
+                      //  pøidáno 6.5.2020
+                      if ZobrTypKooObj then
+                        begin
+                         wSheet1.AsString[5, idx]:= VarToStr(poz.FieldValues(4)); // Typ objednávky - poznámka z kmenové karty
+                         if (jCena>0) then
+                          wSheet1.AsFloat[6, idx]:= jCena;
+                        end
+                      //  konec pøidáno 6.5.2020
+                       else
+                        if (jCena>0) then
+                         wSheet1.AsFloat[5, idx]:= jCena;
+
+
+                      Inc(idx);
+                      poz.Next;
+                     end;
+                    wSheet1.AutoWidthCols(0, 4);
+                   end;
+
+                  if (listSumace) then
+                   begin
+                    xls.Sheets[0].Rows.Items[6].FontStyle:= [xfsBold];
+                    xls.Sheets[0].Columns.Items[1].HorizAlignment:= chaCenter;
+                    xls.Sheets[0].Columns.Items[3].HorizAlignment:= chaCenter;
+                    xls.Sheets[0].Columns.Items[4].HorizAlignment:= chaCenter;
+                   end;
+
+                  if not(listSumace) then
+                    xls.Sheets[0].Rows.Items[6].FontStyle:= [xfsBold]
+                   else
+                    xls.Sheets[1].Rows.Items[6].FontStyle:= [xfsBold];
+
+                  //pøidáno 10.6.2022
+                  if (Nazev.Trim<>'') then
+                    NazevSouboru:= Nazev.Trim
+                   else
+                    NazevSouboru:= 'Obj-' + cObj + '.xls';
+                  //konec pøidání 10.6.2022
+
+                  //xls.SaveToFile(fld + '\Obj-' + cObj + '.xls'); // zakomentováno 10.6.2022
+                  xls.SaveToFile(fld + '\' + NazevSouboru);   // pøidáno 10.6.2022
+                  Vysledek:= NazevSouboru; // pøidáno 10.6.2022
+
+                 finally
+                  xls.Free;
+                end;
+
+              if (ZobrazInfoKonec=1) then
+               Helios.Info('Export souboru ukonèen.');
+           end;
+        end
+       else
+        Helios.Error(#1'Kooperaèní objednávka neobsahuje žádnou položku.'#1);
+     end
+    else
+     Helios.Error(#1'Nelze identifikovat Kooperaèní objednávku.'#1);
+
+   ExportKoopObjXls := Vysledek;
+
+  end;
+
+
+
+end.

IEGate_Impl.pas

@@ -0,0 +1,203 @@
+unit IEGate_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF LCL}LResources,{$ENDIF}
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} libPPL_Intf;
+
+type
+  { TIEGate }
+  TIEGate = class(TRORemoteDataModule, IIEGate)
+  private
+  protected
+    { IIEGate methods }
+    function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse;
+    function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse;
+    function GetCities(const parameters: GetCities): GetCitiesResponse;
+    function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse;
+    function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse;
+    function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse;
+    function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse;
+    function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse;
+    function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse;
+    function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse;
+    function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse;
+    function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse;
+    function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse;
+    function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse;
+    function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse;
+    function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse;
+    function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse;
+    function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse;
+    function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse;
+    function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse;
+    function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse;
+  end;
+
+implementation
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+uses
+  {Generated:} libPPL_Invk;
+
+procedure Create_IEGate(out anInstance : IUnknown);
+begin
+  anInstance := TIEGate.Create(nil);
+end;
+
+{ IEGate }
+function TIEGate.ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.GetCities(const parameters: GetCities): GetCitiesResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportPackages(const parameters: ImportPackages): ImportPackagesResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportOrders(const parameters: ImportOrders): ImportOrdersResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+function TIEGate.ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse;
+begin
+  {$Message Hint 'is not implemented yet!'}
+  Result := nil;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+{$IFDEF LCL}
+  {$I IEGate_Impl.lrs}
+{$ENDIF}
+  fClassFactory := TROClassFactory.Create('IEGate', {$IFDEF FPC}@{$ENDIF}Create_IEGate, TIEGate_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_IEGate_rosdk._tcp.');
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+
+end.

frmBaliciListy.dfm

@@ -0,0 +1,524 @@
+object formBaliciListy: TformBaliciListy
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = '  Balic'#237' listy'
+  ClientHeight = 589
+  ClientWidth = 589
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 13
+  object lblVerze: TLabel
+    Left = 12
+    Top = 572
+    Width = 3
+    Height = 11
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -9
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Visible = False
+  end
+  object GroupBox2: TGroupBox
+    Left = 7
+    Top = 46
+    Width = 574
+    Height = 493
+    Caption = '  Obsah  '
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 12
+      Top = 150
+      Width = 205
+      Height = 16
+      Caption = 'Obsah bal'#237'c'#237'ho listu (boxu, krabice):'
+    end
+    object Label4: TLabel
+      Left = 267
+      Top = 47
+      Width = 42
+      Height = 16
+      Caption = 'Datum:'
+    end
+    object Label5: TLabel
+      Left = 17
+      Top = 22
+      Width = 53
+      Height = 16
+      Caption = 'Na sklad:'
+    end
+    object GroupBox3: TGroupBox
+      Left = 9
+      Top = 62
+      Width = 546
+      Height = 88
+      Caption = ' Polo'#382'ka '
+      TabOrder = 0
+      object Label2: TLabel
+        Left = 10
+        Top = 18
+        Width = 61
+        Height = 16
+        Caption = 'Skup.zbo'#382#237
+      end
+      object Label3: TLabel
+        Left = 78
+        Top = 18
+        Width = 51
+        Height = 16
+        Caption = 'Reg.'#269#237'slo'
+      end
+      object Label7: TLabel
+        Left = 220
+        Top = 18
+        Width = 49
+        Height = 16
+        Caption = 'Mno'#382'stv'#237
+      end
+      object Label9: TLabel
+        Left = 318
+        Top = 18
+        Width = 58
+        Height = 16
+        Caption = #268#237'slo boxu'
+      end
+      object lblKarta: TLabel
+        Left = 13
+        Top = 62
+        Width = 4
+        Height = 14
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label6: TLabel
+        Left = 390
+        Top = 18
+        Width = 81
+        Height = 16
+        Caption = 'V'#253'robn'#237' p'#345#237'kaz'
+      end
+      object selSZ: TRzButtonEdit
+        Left = 11
+        Top = 36
+        Width = 55
+        Height = 24
+        Text = ''
+        Alignment = taCenter
+        TabOrder = 0
+        OnKeyUp = selSZKeyUp
+        AltBtnNumGlyphs = 1
+        ButtonNumGlyphs = 1
+        OnButtonClick = selSZButtonClick
+      end
+      object selRegCis: TRzButtonEdit
+        Left = 78
+        Top = 38
+        Width = 131
+        Height = 24
+        Text = ''
+        CharCase = ecUpperCase
+        TabOrder = 1
+        OnExit = selRegCisExit
+        OnKeyUp = selRegCisKeyUp
+        AltBtnNumGlyphs = 1
+        ButtonNumGlyphs = 1
+        OnButtonClick = selRegCisButtonClick
+      end
+      object edtKS: TRzNumericEdit
+        Left = 220
+        Top = 36
+        Width = 81
+        Height = 24
+        Alignment = taCenter
+        CharCase = ecUpperCase
+        TabOrder = 2
+        OnExit = edtKSExit
+        CalculatorVisible = True
+        DisplayFormat = '###,###0;-###,###0'
+      end
+      object edtBox: TRzNumericEdit
+        Left = 318
+        Top = 36
+        Width = 55
+        Height = 24
+        TabOrder = 3
+        DisplayFormat = ',0;(,0)'
+      end
+      object btnAddPol: TBitBtn
+        Left = 323
+        Top = 61
+        Width = 47
+        Height = 25
+        Caption = 'V'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 4
+        OnClick = btnAddPolClick
+      end
+      object edtPrikaz: TRzNumericEdit
+        Left = 392
+        Top = 36
+        Width = 74
+        Height = 24
+        MaxLength = 10
+        TabOrder = 5
+        DisplayFormat = ',0;(,0)'
+      end
+    end
+    object edtDat: TRzDateTimeEdit
+      Left = 313
+      Top = 44
+      Width = 100
+      Height = 24
+      CalendarElements = [ceYear, ceMonth, ceArrows, ceDaysOfWeek, ceFillDays, ceTodayButton]
+      CaptionTodayBtn = 'Dnes'
+      CaptionClearBtn = 'Smazat'
+      FirstDayOfWeek = fdowMonday
+      EditType = etDate
+      Format = 'd.m.yyyy'
+      Alignment = taCenter
+      TabOrder = 1
+    end
+    object cbOrg: TRzComboBox
+      Left = 91
+      Top = 19
+      Width = 159
+      Height = 24
+      Style = csDropDownList
+      TabOrder = 2
+      OnChange = cbOrgChange
+      OnEnter = cbOrgEnter
+      Items.Strings = (
+        'LOVATO It'#225'lie'
+        'VD Otava Strakonice'
+        'Pikl Protiv'#237'n')
+    end
+    object cbVratka: TCheckBox
+      Left = 263
+      Top = 20
+      Width = 144
+      Height = 17
+      Caption = 'vratka od kooperanta'
+      Enabled = False
+      TabOrder = 3
+      OnClick = cbVratkaClick
+    end
+    object cbTypDokl: TRzComboBox
+      Left = 91
+      Top = 44
+      Width = 139
+      Height = 24
+      Style = csDropDownList
+      TabOrder = 4
+      OnChange = cbTypDoklChange
+      OnEnter = cbTypDoklEnter
+      Items.Strings = (
+        'FIN'#193'LN'#205' PRODUKTY'
+        'NEBALEN'#201' V'#221'ROBKY'
+        'MATERI'#193'LY'
+        'REKLAMACE')
+    end
+    object cbReklamace: TCheckBox
+      Left = 423
+      Top = 21
+      Width = 97
+      Height = 17
+      Caption = ' REKLAMACE'
+      Enabled = False
+      TabOrder = 5
+      Visible = False
+    end
+    object grd: TJvDBGrid
+      Left = 6
+      Top = 169
+      Width = 561
+      Height = 302
+      DataSource = dsBL
+      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+      PopupMenu = pMenu
+      TabOrder = 6
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -13
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+      OnDblClick = grdDblClick
+      ScrollBars = ssVertical
+      SelectColumnsDialogStrings.Caption = 'Select columns'
+      SelectColumnsDialogStrings.OK = '&OK'
+      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+      EditControls = <>
+      RowsHeight = 20
+      TitleRowHeight = 20
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'idKZ'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'idSS'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'idPZ'
+          Visible = False
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'SkupZbo'
+          Title.Alignment = taCenter
+          Title.Caption = 'SK'
+          Width = 38
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'RegCis'
+          Width = 150
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'Mnoz'
+          Title.Alignment = taCenter
+          Title.Caption = 'Mno'#382'stv'#237
+          Width = 60
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'Box'
+          Title.Alignment = taCenter
+          Width = 80
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CelkHmot'
+          Title.Alignment = taCenter
+          Title.Caption = 'Hmotnost'
+          Width = 60
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'Prikaz'
+          Width = 0
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'IdBLPol'
+          Visible = False
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'IDSklad'
+          Title.Alignment = taCenter
+          Title.Caption = 'Sklad zdroj'
+          Width = 70
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'idSSCil'
+          Visible = False
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'IDSkladCil'
+          Title.Alignment = taCenter
+          Title.Caption = 'Sklad c'#237'l'
+          Width = 70
+          Visible = True
+        end>
+    end
+    object statBar: TJvStatusBar
+      Left = 2
+      Top = 472
+      Width = 570
+      Height = 19
+      Panels = <
+        item
+          Width = 205
+        end
+        item
+          Alignment = taRightJustify
+          Width = 60
+        end
+        item
+          Width = 80
+        end
+        item
+          Alignment = taRightJustify
+          Width = 60
+        end
+        item
+          Width = 100
+        end>
+    end
+  end
+  object btnOK: TButton
+    Left = 202
+    Top = 556
+    Width = 75
+    Height = 25
+    Caption = '&OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ModalResult = 1
+    ParentFont = False
+    TabOrder = 1
+    OnClick = btnOKClick
+    OnMouseDown = btnOKMouseDown
+  end
+  object btnCancel: TButton
+    Left = 381
+    Top = 556
+    Width = 75
+    Height = 25
+    Caption = '&Zru'#353'it'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ModalResult = 2
+    ParentFont = False
+    TabOrder = 2
+    OnClick = btnCancelClick
+  end
+  object vTabBL: TFDMemTable
+    Active = True
+    AfterPost = vTabBLAfterPost
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 496
+    Top = 96
+    object vTabBLidKZ: TIntegerField
+      FieldName = 'idKZ'
+      Visible = False
+    end
+    object vTabBLidSS: TIntegerField
+      FieldName = 'idSS'
+      Visible = False
+    end
+    object vTabBLidPZ: TIntegerField
+      FieldName = 'idPZ'
+      Visible = False
+    end
+    object vTabBLSkupZbo: TStringField
+      FieldName = 'SkupZbo'
+      Size = 3
+    end
+    object vTabBLRegCis: TStringField
+      FieldName = 'RegCis'
+      Size = 30
+    end
+    object vTabBLBox: TStringField
+      FieldName = 'Box'
+    end
+    object vTabBLMnoz: TFloatField
+      FieldName = 'Mnoz'
+      DisplayFormat = '#,##0.###'
+    end
+    object vTabBLCelkHmot: TFloatField
+      FieldName = 'CelkHmot'
+      DisplayFormat = '#,##0.##'
+    end
+    object vTabBLPrikaz: TIntegerField
+      FieldName = 'Prikaz'
+      Visible = False
+    end
+    object vTabBLIdBLPol: TIntegerField
+      FieldName = 'IdBLPol'
+      Visible = False
+    end
+    object vTabBLIDSklad: TStringField
+      FieldName = 'IDSklad'
+      Size = 30
+    end
+    object vTabBLidSSCil: TIntegerField
+      FieldName = 'idSSCil'
+      Visible = False
+    end
+    object vTabBLIDSkladCil: TStringField
+      FieldName = 'IDSkladCil'
+      Size = 30
+    end
+  end
+  object dsBL: TDataSource
+    DataSet = vTabBL
+    Left = 540
+    Top = 98
+  end
+  object pMenu: TPopupMenu
+    Left = 154
+    Top = 304
+    object pmDelPol: TMenuItem
+      Caption = '&Smazat polo'#382'ku'
+      OnClick = pmDelPolClick
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object pmObnovNeulozene: TMenuItem
+      Caption = '&Obnovit neulo'#382'en'#233' polo'#382'ky'
+      OnClick = pmObnovNeulozeneClick
+    end
+    object N2: TMenuItem
+      Caption = '-'
+    end
+    object pmSmazNeulozene: TMenuItem
+      Caption = 'Sma&zat neulo'#382'en'#233' polo'#382'ky'
+      OnClick = pmSmazNeulozeneClick
+    end
+    object N3: TMenuItem
+      Caption = '-'
+    end
+    object pmImpReader: TMenuItem
+      Caption = '&Import dat ze '#269'te'#269'ky'
+      OnClick = pmImpReaderClick
+    end
+  end
+end

frmDemontaz.dfm

@@ -0,0 +1,695 @@
+object formDemontaz: TformDemontaz
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = '  Demont'#225#382' d'#237'lce/polosestavy'
+  ClientHeight = 547
+  ClientWidth = 622
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 16
+  object Label7: TLabel
+    Left = 5
+    Top = 86
+    Width = 84
+    Height = 16
+    Caption = 'V'#253'dejka do IT:'
+  end
+  object lblVerze: TLabel
+    Left = 7
+    Top = 530
+    Width = 3
+    Height = 11
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -9
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Visible = False
+  end
+  object lblZpracovavam: TLabel
+    Left = 244
+    Top = 521
+    Width = 87
+    Height = 13
+    Caption = 'Zpracov'#225'v'#225'm...'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    Visible = False
+  end
+  object Label3: TLabel
+    Left = 232
+    Top = 86
+    Width = 81
+    Height = 16
+    Caption = 'Zam'#283'stnanec:'
+  end
+  object lblZamest: TLabel
+    Left = 407
+    Top = 85
+    Width = 204
+    Height = 16
+    AutoSize = False
+  end
+  object GroupBox1: TGroupBox
+    Left = 13
+    Top = 110
+    Width = 600
+    Height = 121
+    Caption = ' D'#237'lce / polosestavy '
+    TabOrder = 0
+    object Label4: TLabel
+      Left = 11
+      Top = 18
+      Width = 56
+      Height = 16
+      Caption = 'Reg.'#269#237'slo:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lblNazev: TLabel
+      Left = 74
+      Top = 40
+      Width = 53
+      Height = 16
+      Caption = 'lblNazev'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 401
+      Top = 19
+      Width = 54
+      Height = 16
+      Caption = 'Mno'#382'stv'#237':'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object btnRozeber: TSpeedButton
+      Left = 547
+      Top = 13
+      Width = 33
+      Height = 32
+      Glyph.Data = {
+        42080000424D4208000000000000420000002800000020000000200000000100
+        10000300000000080000202E0000202E00000000000000000000007C0000E003
+        00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7F9D77B556FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7F4E3A8000D65AFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FD556E0016002E104F862FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        1863C2098002E102C00104119D77FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F7B6F
+        C1058002A1028102C102C0016821BF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9D77E71D
+        4002A10281028102A102C00240018B31FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FE8212002
+        A1028102810281028102A102C00240011042FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6F3E0002A102
+        810281028102810281028102A102A002E000734EFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6F3EE001C002A102
+        A102A102A102A102A102A102A102C1028002E000F966FF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF65AE001A002A102A102
+        A102A102A102A102A102A102A102A102E102400225155C73FF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF75EC105A002A102A102A102
+        A102A102A102A102A102A102A102A102A102E102E00105199F7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9B6F020A8002C002C002A102A102
+        A102A102A102A102A102A102A102A102C002C002E002C001CA29BD77FF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6B2E200282066206430AA106A102
+        A102A102A102A102A102A102A102A106630E630A6206A2068001914AFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F796739675B6B5B6B3C6FA61EA002
+        A102A102A102A102A102A102C0026002B24A5C6F5B6B5B6B59679B6FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FA722A002
+        C102C102C102C102C102C10201032002B34EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
+        C102C102C102C102C102C102E1022002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
+        C102C102C102C102C102C102E1024002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
+        C102C102C102C102C102C102E1022002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EC002
+        C102C102C102C102C102C102E1022002B14AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
+        E102E102E102E102E102E10201034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
+        E102E102E102E102E102E10221034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
+        E102E102E102E102E102E10201034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
+        E102E102E102E102E102E10201034002B14AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EE002
+        E102E102E102E102E102E10201034002924AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EE002
+        E102E102E102E102E102E10200034002934EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71E0003
+        01030103010301030103010320034002934EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71E0003
+        01030103010301030103010340036002924EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA412C002
+        C002C002C002C002C002E00200034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF24ACF3E
+        F042F042F042F042F0420F3FF042CF3E5863FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+        FF7FFF7FFF7F}
+      OnClick = btnRozeberClick
+    end
+    object selRegCis: TRzButtonEdit
+      Left = 74
+      Top = 16
+      Width = 184
+      Height = 24
+      Text = ''
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      MaxLength = 30
+      ParentFont = False
+      TabOrder = 0
+      OnExit = selRegCisExit
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+      OnButtonClick = selRegCisButtonClick
+    end
+    object edtMnoz: TRzNumericEdit
+      Left = 463
+      Top = 16
+      Width = 65
+      Height = 24
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 1
+      OnKeyDown = edtMnozKeyDown
+      DisplayFormat = '##,##0.##;-##,##0.##'
+    end
+    object cbMaxRozpad: TCheckBox
+      Left = 271
+      Top = 45
+      Width = 183
+      Height = 17
+      Caption = 'Rozpad na z'#225'kladn'#237' MAT'
+      Checked = True
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      State = cbChecked
+      TabOrder = 2
+    end
+    object selSZ: TRzButtonEdit
+      Left = 21
+      Top = 36
+      Width = 35
+      Height = 24
+      Text = ''
+      MaxLength = 3
+      TabOrder = 3
+      Visible = False
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+    end
+    object cbTiskRozp: TCheckBox
+      Left = 475
+      Top = 46
+      Width = 109
+      Height = 17
+      Caption = 'Tisk rozpisky'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 4
+    end
+    object grdDilce: TJvDBGrid
+      Left = 11
+      Top = 66
+      Width = 528
+      Height = 50
+      DataSource = dsDilce
+      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+      PopupMenu = popMenu
+      TabOrder = 5
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -13
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+      OnDblClick = grdDilceDblClick
+      ScrollBars = ssVertical
+      SelectColumnsDialogStrings.Caption = 'Select columns'
+      SelectColumnsDialogStrings.OK = '&OK'
+      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+      EditControls = <>
+      RowsHeight = 20
+      TitleRowHeight = 20
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'idKZ'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'idSS'
+          Visible = False
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'SZ'
+          Title.Alignment = taCenter
+          Title.Caption = 'SK'
+          Width = 42
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'RegCis'
+          Title.Alignment = taCenter
+          Title.Caption = 'Reg. '#269#237'slo'
+          Width = 130
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'Nazev'
+          Title.Alignment = taCenter
+          Title.Caption = 'N'#225'zev'
+          Width = 265
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'Mnozstvi'
+          Title.Alignment = taCenter
+          Title.Caption = 'Mno'#382'stv'#237
+          Width = 62
+          Visible = True
+        end>
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 14
+    Top = 243
+    Width = 594
+    Height = 262
+    Caption = ' Materi'#225'ly '
+    TabOrder = 1
+    object grdMat: TJvDBGrid
+      Left = 1
+      Top = 18
+      Width = 590
+      Height = 240
+      DataSource = dsMat
+      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
+      PopupMenu = popMat
+      TabOrder = 0
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -13
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+      OnDblClick = grdMatDblClick
+      ScrollBars = ssVertical
+      SelectColumnsDialogStrings.Caption = 'Select columns'
+      SelectColumnsDialogStrings.OK = '&OK'
+      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+      EditControls = <>
+      RowsHeight = 20
+      TitleRowHeight = 20
+      Columns = <
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'SZ'
+          Title.Alignment = taCenter
+          Title.Caption = 'SK'
+          Width = 40
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'RegCis'
+          Title.Alignment = taCenter
+          Title.Caption = 'Reg. '#269#237'slo'
+          Width = 100
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'Nazev'
+          Title.Alignment = taCenter
+          Title.Caption = 'N'#225'zev'
+          Width = 220
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'Mnozstvi'
+          Title.Alignment = taCenter
+          Title.Caption = 'Mno'#382'stv'#237
+          Width = 60
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'CilSklad'
+          Title.Alignment = taCenter
+          Title.Caption = 'C'#237'l materi'#225'lu'
+          Width = 86
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'MnozstviIT'
+          Title.Alignment = taCenter
+          Title.Caption = 'V'#253'voz IT'
+          Width = 62
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'idKZ'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'idSSold'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'idSS'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'CilSkladCislo'
+          Visible = False
+        end>
+    end
+  end
+  object btnOK: TButton
+    Left = 421
+    Top = 516
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    TabOrder = 2
+    OnClick = btnOKClick
+  end
+  object btnStorno: TButton
+    Left = 533
+    Top = 516
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    TabOrder = 3
+    OnClick = btnStornoClick
+  end
+  object GroupBox3: TGroupBox
+    Left = 5
+    Top = 4
+    Width = 605
+    Height = 69
+    Caption = ' Sklady '
+    TabOrder = 4
+    object Label1: TLabel
+      Left = 11
+      Top = 16
+      Width = 87
+      Height = 16
+      Caption = 'Zdrojov'#253' sklad:'
+    end
+    object Label2: TLabel
+      Left = 25
+      Top = 45
+      Width = 71
+      Height = 16
+      Caption = 'C'#237'lov'#253' sklad:'
+    end
+    object selSrcSkl: TRzButtonEdit
+      Left = 107
+      Top = 13
+      Width = 113
+      Height = 24
+      Text = ''
+      Alignment = taCenter
+      Enabled = False
+      TabOrder = 0
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+      OnButtonClick = selSrcSklButtonClick
+    end
+    object selDstSkl: TRzButtonEdit
+      Left = 107
+      Top = 42
+      Width = 113
+      Height = 24
+      Text = ''
+      Alignment = taCenter
+      Enabled = False
+      TabOrder = 1
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+      OnButtonClick = selDstSklButtonClick
+    end
+    object selSrcSklNazev: TRzButtonEdit
+      Left = 225
+      Top = 13
+      Width = 228
+      Height = 24
+      Text = ''
+      Enabled = False
+      TabOrder = 2
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+    end
+    object selDstSklNazev: TRzButtonEdit
+      Left = 225
+      Top = 42
+      Width = 228
+      Height = 24
+      Text = ''
+      Enabled = False
+      TabOrder = 3
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+    end
+    object dtDatum: TRzDateTimePicker
+      Left = 475
+      Top = 26
+      Width = 106
+      Height = 24
+      Date = 41411.000000000000000000
+      Format = 'dd.MM.yyyy'
+      Time = 0.458783750000293400
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 4
+    end
+  end
+  object selVydejIT: TRzButtonEdit
+    Left = 96
+    Top = 82
+    Width = 112
+    Height = 24
+    Text = ''
+    Alignment = taCenter
+    TabOrder = 5
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selVydejITButtonClick
+  end
+  object selCisZam: TRzButtonEdit
+    Left = 325
+    Top = 82
+    Width = 68
+    Height = 24
+    Text = ''
+    Alignment = taCenter
+    TabOrder = 6
+    OnExit = selCisZamExit
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selCisZamButtonClick
+  end
+  object dsDilce: TDataSource
+    DataSet = tabDilce
+    Left = 228
+    Top = 174
+  end
+  object dsMat: TDataSource
+    DataSet = tabMat
+    Left = 122
+    Top = 462
+  end
+  object popMenu: TPopupMenu
+    Left = 290
+    Top = 174
+    object pmOprav: TMenuItem
+      Caption = '&Oprav mno'#382'stv'#237
+      OnClick = pmOpravClick
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object pmSmazat: TMenuItem
+      Caption = '&Smazat polo'#382'ku'
+      OnClick = pmSmazatClick
+    end
+  end
+  object tabMat: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 65
+    Top = 462
+    object colMidKZ: TIntegerField
+      FieldName = 'idKZ'
+    end
+    object colMidSSold: TIntegerField
+      FieldName = 'idSSold'
+      Visible = False
+    end
+    object colMidSS: TIntegerField
+      FieldName = 'idSS'
+    end
+    object colMSZ: TStringField
+      FieldName = 'SZ'
+      Size = 3
+    end
+    object colMRegCis: TStringField
+      FieldName = 'RegCis'
+      Size = 30
+    end
+    object colMNazev: TStringField
+      FieldName = 'Nazev'
+      Size = 100
+    end
+    object colMMnoz: TFloatField
+      FieldName = 'Mnozstvi'
+      DisplayFormat = '#,##0.###'
+    end
+    object colMMnozIT: TFloatField
+      FieldName = 'MnozstviIT'
+      DisplayFormat = '#,##0.###'
+    end
+    object colMCilSklad: TStringField
+      FieldName = 'CilSklad'
+      Size = 30
+    end
+    object tabMatCilSkladCislo: TStringField
+      FieldName = 'CilSkladCislo'
+      Size = 30
+    end
+  end
+  object tabDilce: TFDMemTable
+    Active = True
+    AfterPost = tabDilceAfterPost
+    AfterDelete = tabDilceAfterDelete
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 164
+    Top = 174
+    object colDidKZ: TIntegerField
+      FieldName = 'idKZ'
+    end
+    object colDidSS: TIntegerField
+      FieldName = 'idSS'
+    end
+    object colDSZ: TStringField
+      FieldName = 'SZ'
+      Size = 3
+    end
+    object colDRegCis: TStringField
+      FieldName = 'RegCis'
+      Size = 30
+    end
+    object colDNazev: TStringField
+      FieldName = 'Nazev'
+      Size = 100
+    end
+    object colDMnoz: TFloatField
+      FieldName = 'Mnozstvi'
+      DisplayFormat = '#,##0'
+    end
+  end
+  object popMat: TPopupMenu
+    Left = 178
+    Top = 460
+    object pmAll2IT: TMenuItem
+      Caption = '&V'#353'e do IT'
+      OnClick = pmAll2ITClick
+    end
+    object N2: TMenuItem
+      Caption = '-'
+    end
+    object pmDel2IT: TMenuItem
+      Caption = 'Smazat v'#353'e z IT'
+      OnClick = pmDel2ITClick
+    end
+  end
+end

frmKanbanBox.dfm

@@ -0,0 +1,196 @@
+object formKanbanBox: TformKanbanBox
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = 'Definice kanban box'#367
+  ClientHeight = 220
+  ClientWidth = 544
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 22
+    Top = 50
+    Width = 135
+    Height = 16
+    Caption = 'V'#253'robek / polosestava :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 22
+    Top = 20
+    Width = 114
+    Height = 16
+    Caption = 'Unik'#225'tn'#237' '#269#237'slo boxu :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblPopis: TLabel
+    Left = 22
+    Top = 77
+    Width = 499
+    Height = 16
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label3: TLabel
+    Left = 23
+    Top = 103
+    Width = 63
+    Height = 16
+    Caption = 'Ks v boxu :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label4: TLabel
+    Left = 19
+    Top = 134
+    Width = 67
+    Height = 16
+    Caption = 'Pozn'#225'mka :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object selCisloZbozi: TRzButtonEdit
+    Left = 172
+    Top = 47
+    Width = 175
+    Height = 24
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    OnExit = selCisloZboziExit
+    AltBtnWidth = 15
+    ButtonWidth = 15
+    OnButtonClick = selCisloZboziButtonClick
+  end
+  object lblID: TEdit
+    Left = 144
+    Top = 15
+    Width = 76
+    Height = 24
+    Alignment = taCenter
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    NumbersOnly = True
+    ParentFont = False
+    TabOrder = 1
+  end
+  object edtKs: TEdit
+    Left = 99
+    Top = 100
+    Width = 48
+    Height = 24
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    NumbersOnly = True
+    ParentFont = False
+    TabOrder = 2
+    OnExit = edtKsExit
+  end
+  object btnOK: TButton
+    Left = 336
+    Top = 180
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+    OnClick = btnOKClick
+  end
+  object btnZrus: TButton
+    Left = 446
+    Top = 180
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnClick = btnZrusClick
+  end
+  object edtPozn: TEdit
+    Left = 99
+    Top = 131
+    Width = 422
+    Height = 24
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 255
+    ParentFont = False
+    TabOrder = 5
+    OnExit = edtPoznExit
+  end
+  object colBarva1: TPanel
+    Left = 364
+    Top = 46
+    Width = 29
+    Height = 25
+    ParentBackground = False
+    TabOrder = 6
+  end
+  object colBarva2: TPanel
+    Left = 410
+    Top = 46
+    Width = 29
+    Height = 25
+    TabOrder = 7
+  end
+end

frmKanbanBox.pas

@@ -0,0 +1,228 @@
+unit frmKanbanBox;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.StrUtils,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, RzEdit, RzBtnEdt, ddPlugin_TLB,
+  Vcl.ExtCtrls;
+
+const
+    tblKanBox = '[dbo].[_TabKanbanBox]';
+    tblKmen = '[dbo].[TabKmenZbozi]';
+
+type
+  TformKanbanBox = class(TForm)
+    selCisloZbozi: TRzButtonEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    lblID: TEdit;
+    lblPopis: TLabel;
+    edtKs: TEdit;
+    Label3: TLabel;
+    btnOK: TButton;
+    btnZrus: TButton;
+    Label4: TLabel;
+    edtPozn: TEdit;
+    colBarva1: TPanel;
+    colBarva2: TPanel;
+    procedure FormShow(Sender: TObject);
+    procedure btnZrusClick(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure selCisloZboziButtonClick(Sender: TObject);
+    procedure edtPoznExit(Sender: TObject);
+    procedure edtKsExit(Sender: TObject);
+    procedure selCisloZboziExit(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+   private
+    procedure NactiKmen(idKZx: Integer); safecall;
+   public
+    Helios: IHelios;
+    idBox: integer;
+  end;
+
+var
+  formKanbanBox: TformKanbanBox;
+  idKZ: integer;
+  edit: boolean;
+  mnoz: integer;
+
+implementation
+
+{$R *.dfm}
+
+ procedure TformKanbanBox.btnOKClick(Sender: TObject);
+  var lSQL: string;
+      jeOK: boolean;
+  begin
+   jeOK:= true;
+   if (edit) then
+     begin
+      lSQL:= 'Zmenil=SUSER_SNAME(), DatZmeny=GETDATE(), Poznamka=' + Ifthen(edtPozn.Text='','null','N' + QuotedStr(edtPozn.Text));
+      jeOK:= true;
+     end
+    else
+     begin
+      if (idKZ=0) then
+       begin
+        jeOK:= false;
+        selCisloZbozi.SetFocus;
+       end;
+      lSQL:= 'idKmenZbozi=' + IntToStr(idKZ) + ',Mnozstvi=' + edtKs.Text + ',Poznamka=' + Ifthen(edtPozn.Text='','null','N' + QuotedStr(edtPozn.Text));
+     end;
+
+   if (jeOK) then
+     begin
+      lSQL:= 'UPDATE ' + tblKanBox + ' SET ' + lSQL  + ' WHERE id=' + IntToStr(idBox);
+      try
+        Helios.ExecSQL(lSQL);
+        Helios.Refresh(true);
+        Close;
+       except on E:Exception do
+        Helios.Error(#1'Chyba box ' + IntToStR(idBox) + ': '#1 + E.Message);
+      end;
+     end
+    else
+     Helios.Error(#1'Vyplòte všechny potøebné údaje...'#1);
+  end;
+
+
+ procedure TformKanbanBox.btnZrusClick(Sender: TObject);
+  begin
+   with Helios.OpenSQL('SELECT id FROM ' + tblKanBox + ' WHERE Id=' + IntToStr(idBox) + ' AND IdKmenZbozi=0') do
+    if (RecordCount=1) then
+     Helios.ExecSQL('DELETE FROM ' + tblKanBox + ' WHERE Id=' + IntToStr(idBox));
+   with Helios.OpenSQL('SELECT ISNULL(MAX(id),1) FROM ' + tblKanBox) do
+    Helios.ExecSQL('DBCC CHECKIDENT(_TabKanbanBox, reseed, ' + VarToStr(FieldValues(0)) + ')');
+   Close;
+  end;
+
+
+ procedure TformKanbanBox.edtKsExit(Sender: TObject);
+  begin
+   edtKs.Text:= Trim(edtKs.Text);
+  end;
+
+
+ procedure TformKanbanBox.edtPoznExit(Sender: TObject);
+  begin
+   edtPozn.Text:= Trim(edtPozn.Text);
+  end;
+
+
+ procedure TformKanbanBox.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+  end;
+
+
+
+ function RGBtoTColor(strRGB: string): TColor;
+  var sR,sG,sB: string;
+      r,g,b: byte;
+  begin
+   result:= 0;
+   strRGB:= StringOfChar('0', 6-Length(strRGB)) + strRGB;
+   sR:= LeftStr(strRGB,2);
+   r:= StrToInt('$'+sR);
+   sG:= MidStr(strRGB,3,2);
+   g:= StrToInt('$'+sG);
+   sB:= RightStr(strRGB,2);
+   b:= StrToInt('$'+sB);
+   result:= RGB(r,g,b);
+  end;
+
+
+ procedure TformKanbanBox.FormShow(Sender: TObject);
+  var lSQL: string;
+  begin
+   edit:= false;
+   selCisloZbozi.Enabled:= false;
+   edtKs.Enabled:= false;
+   mnoz:= 0;
+   if (idBox>0) then
+     begin
+      edit:= true;
+      lSQL:= 'SELECT kz.CisloZbozi, kz.Nazev1, kz.Id, kze._KanbanMnozstvi, b.Poznamka, kze._KanbanBarva,';
+      lSQL:= lSQL + ' kze._KanbanBarva2 FROM ' + tblKanBox + ' b INNER JOIN ' + tblKmen + ' kz ON (kz.Id=b.IdKmenZbozi) INNER JOIN';
+      lSQL:= lSQL + ' dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) WHERE b.Id=' + IntToStr(idBox);
+      with Helios.OpenSQL(lSQL) do
+       if (RecordCount>0) then
+        begin
+         lblID.Text:= IntToStr(idBox);
+         selCisloZbozi.Text:= VarToStr(FieldValues(0));
+         lblPopis.Caption:= VarToStr(FieldValues(1));
+         idKZ:= StrToInt(VarToStr(FieldValues(2)));
+         edtKs.Text:= VarToStr(FieldValues(3));
+         if not(VarIsNull(FieldValues(4))) then
+          edtPozn.Text:= Trim(VarToStr(FieldValues(4)));
+         if not(VarIsNull(FieldValues(5))) then
+//          colBarva1.Color:= RGBtoTColor(IntToHex(StrToInt(VarToStr(FieldValues(5))),2));
+          colBarva1.Color:= StrToInt(VarToStr(FieldValues(5)));
+         if not(VarIsNull(FieldValues(6))) then
+//          colBarva2.Color:= RGBtoTColor(IntToHex(StrToInt(VarToStr(FieldValues(6))),2));
+          colBarva2.Color:= StrToInt(VarToStr(FieldValues(6)));
+        end;
+     end
+    else
+     begin
+      idBox:= 0;
+      with Helios.OpenSQL('INSERT ' + tblKanBox + ' (Mnozstvi) VALUES (0); SELECT SCOPE_IDENTITY();') do
+       begin
+        lblID.Text:= VarToStr(FieldValues(0));
+        idBox:= StrToInt(lblID.Text);
+       end;
+      idKZ:= 0;
+      lblPopis.Caption:= '';
+      selCisloZbozi.Enabled:= true;
+      selCisloZbozi.Text:= '';
+     end;
+  end;
+
+
+ procedure TformKanbanBox.NactiKmen(idKZx: Integer);
+  var lSQL: string;
+  begin
+   lSQL:= 'SELECT kz.RegCis, kz.Nazev1, kze._KanbanBarva, kze._KanbanBarva2, kze._KanbanMnozstvi FROM ' + tblKmen + ' kz';
+   lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) WHERE kz.Id=' + IntToStr(idKZx);
+   with Helios.OpenSQL(lSQL) do
+    begin
+     selCisloZbozi.Text:= VarToStr(FieldValues(0));
+     lblPopis.Caption:= VarToStr(FieldValues(1));
+     if not VarIsNull(FieldValues(2)) then
+      colBarva1.Color:= StrToInt(VarToStr(FieldValues(2)));
+     if not VarIsNull(FieldValues(3)) then
+      colBarva1.Color:= StrToInt(VarToStr(FieldValues(3)));
+     if not VarIsNull(FieldValues(4)) then
+      edtKs.Text:= VarToStr(FieldValues(4));
+    end;
+  end;
+
+
+ procedure TformKanbanBox.selCisloZboziButtonClick(Sender: TObject);
+  var oVar: OleVariant;
+  begin
+   if Helios.Prenos(2,'TabKmenZbozi.id',oVar,'TabKmenZbozi.Blokovano=0','Vyberte položku',true) then
+    begin
+     idKZ:= StrToInt(VarToStr(oVar));
+     NactiKmen(idKZ);
+    end;
+  end;
+
+
+ procedure TformKanbanBox.selCisloZboziExit(Sender: TObject);
+  begin
+   selCisloZbozi.Text:= Trim(selCisloZbozi.Text);
+   if (selCisloZbozi.Text<>'') and (idKZ=0) then
+    begin
+     with Helios.OpenSQL('SELECT id FROM ' + tblKmen + ' WHERE RegCis=N' + QuotedStr(selCisloZbozi.Text)) do
+      if (RecordCount=1) then
+       begin
+        idKZ:= StrToInt(VarToStr(FieldValues(0)));
+        NactiKmen(idKZ);
+       end;
+    end;
+
+  end;
+
+end.

frmKanbanObj.dfm

@@ -0,0 +1,283 @@
+object formKanbanObj: TformKanbanObj
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = 'Kanban objedn'#225'vka'
+  ClientHeight = 626
+  ClientWidth = 737
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 391
+    Top = 19
+    Width = 87
+    Height = 16
+    Caption = 'Po'#269'et polo'#382'ek :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblPocetPol: TLabel
+    Left = 489
+    Top = 4
+    Width = 24
+    Height = 45
+    Caption = '0'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -37
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 26
+    Top = 24
+    Width = 65
+    Height = 16
+    Caption = 'Dodavatel :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblDodavatel: TLabel
+    Left = 102
+    Top = 19
+    Width = 7
+    Height = 25
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -21
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label3: TLabel
+    Left = 26
+    Top = 66
+    Width = 75
+    Height = 16
+    Caption = 'Kanban box :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblWork: TLabel
+    Left = 444
+    Top = 606
+    Width = 285
+    Height = 13
+    Alignment = taRightJustify
+    AutoSize = False
+    Caption = 'lblWork'
+  end
+  object btnStorno: TButton
+    Left = 638
+    Top = 565
+    Width = 75
+    Height = 25
+    Caption = 'Zru'#353'it'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    OnClick = btnStornoClick
+  end
+  object btnOK: TButton
+    Left = 490
+    Top = 565
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+    OnClick = btnOKClick
+  end
+  object btnGenObj: TButton
+    Left = 558
+    Top = 12
+    Width = 155
+    Height = 29
+    Caption = 'Generuj v'#253'dejku obal'#367
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 2
+    OnClick = btnGenObjClick
+  end
+  object btnGenKoopOrVPr: TButton
+    Left = 558
+    Top = 8
+    Width = 155
+    Height = 29
+    Caption = 'Generuj v'#253'dejku obal'#367
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 6
+    OnClick = btnGenKoopOrVPrClick
+  end
+  object mLog: TMemo
+    Left = 26
+    Top = 538
+    Width = 401
+    Height = 75
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Lines.Strings = (
+      '')
+    ParentFont = False
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object edtBox: TEdit
+    Left = 107
+    Top = 63
+    Width = 121
+    Height = 24
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    NumbersOnly = True
+    ParentFont = False
+    TabOrder = 4
+    OnKeyUp = edtBoxKeyUp
+  end
+  object grdPolozky: TJvDBGrid
+    Left = 25
+    Top = 90
+    Width = 687
+    Height = 440
+    DataSource = ds
+    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
+    TabOrder = 5
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnKeyUp = grdPolozkyKeyUp
+    ScrollBars = ssVertical
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 17
+    TitleRowHeight = 17
+    Columns = <
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'IdKanbanBox'
+        Title.Alignment = taCenter
+        Title.Caption = #268#237'slo boxu'
+        Width = 84
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'RegCis'
+        Title.Alignment = taCenter
+        Title.Caption = 'Reg. '#269#237'slo'
+        Width = 126
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Nazev'
+        Title.Caption = 'Popis'
+        Width = 373
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'Mnozstvi'
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'stv'#237
+        Width = 73
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'IdPohybu'
+        Visible = False
+      end>
+  end
+  object ds: TDataSource
+    DataSet = vTable
+    Left = 282
+    Top = 8
+  end
+  object vTable: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 328
+    Top = 10
+    object vTableIdPohybu: TIntegerField
+      FieldName = 'IdPohybu'
+    end
+    object vTableIdKanbanBox: TIntegerField
+      FieldName = 'IdKanbanBox'
+      Required = True
+    end
+    object vTableRegCis: TStringField
+      FieldName = 'RegCis'
+      Required = True
+      Size = 30
+    end
+    object vTableNazev: TStringField
+      FieldName = 'Nazev'
+      Required = True
+      Size = 50
+    end
+    object vTableMnozstvi: TSmallintField
+      FieldName = 'Mnozstvi'
+      Required = True
+      DisplayFormat = '#,##0'
+    end
+  end
+end

frmKanbanObj.pas

@@ -0,0 +1,590 @@
+unit frmKanbanObj;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, FireDAC.Comp.Client, ddPlugin_TLB,
+  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
+  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
+  FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid;
+
+const
+    KLF_ACTIVATE = $00000001;
+    KLF_SETFORPROCESS = $00000100;
+    CRLF = #13#10;
+
+type
+  TformKanbanObj = class(TForm)
+    Label1: TLabel;
+    lblPocetPol: TLabel;
+    Label2: TLabel;
+    lblDodavatel: TLabel;
+    ds: TDataSource;
+    vTable: TFDMemTable;
+    vTableIdPohybu: TIntegerField;
+    vTableIdKanbanBox: TIntegerField;
+    vTableNazev: TStringField;
+    vTableMnozstvi: TSmallintField;
+    btnStorno: TButton;
+    btnOK: TButton;
+    btnGenObj: TButton;
+    btnGenKoopOrVPr: TButton;   // pøidáno 18.3.2021
+    vTableRegCis: TStringField;
+    mLog: TMemo;
+    Label3: TLabel;
+    edtBox: TEdit;
+    lblWork: TLabel;
+    grdPolozky: TJvDBGrid;
+    procedure FormShow (Sender: TObject);
+    procedure edtBoxKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure btnStornoClick (Sender: TObject);
+    procedure FormClose (Sender: TObject; var Action: TCloseAction);
+    procedure btnGenObjClick (Sender: TObject);
+    procedure btnGenKoopOrVPrClick(Sender: TObject);        //     pøidáno 18.3.2021
+    procedure btnOKClick (Sender: TObject);
+    procedure grdPolozkyKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
+   private
+    function IDPol2Str: string;
+   public
+    Helios: IHelios;
+    idObj: integer;
+    btnGenVPrOrKoopText: string; // pøidáno 18.3.2021
+    PoslatEmail: integer; // pøidáno 10.6.2022
+    TypKooObj: boolean; // pøidáno 10.6.2022
+    NadpisTypuKoopObj: String; // pøidáno 10.6.2022
+    Zarovnani: string; // pøidáno 10.6.2022
+    Cesta: string;   // pøidáno 10.6.2022
+    Nazev: string  // pøidáno 10.6.2022
+  end;
+
+var
+  formKanbanObj: TformKanbanObj;
+  cOrg: integer;
+  jeGenVydej, jeKoopObj, primaObj: Boolean;
+  layName: array[0..KL_NAMELENGTH+1] of Char;
+
+  jsouGenVPr: Boolean; // pøidáno 18.3.2021
+
+implementation
+
+uses
+ System.StrUtils,
+ Globalni;
+
+{$R *.dfm}
+
+ function TformKanbanObj.IDPol2Str: string;
+  var tmp: string;
+      x: integer;
+  begin
+   x:= vTable.RecNo;
+   grdPolozky.LockDrawing;
+   vTable.First;
+   tmp:= '';
+   while not(vTable.Eof) do
+    begin
+     if (vTable.Fields.FieldByName('IdPohybu').AsString<>'') then
+      tmp:= tmp + vTable.Fields.FieldByName('IdPohybu').AsString + ',';
+     vTable.Next;
+    end;
+   if (RightStr(tmp,1)=',') then
+    SetLength(tmp, Length(tmp)-1);
+   vTable.RecNo:= x;
+   grdPolozky.UnlockDrawing;
+   result:= tmp;
+  end;
+
+
+
+
+
+ procedure TformKanbanObj.grdPolozkyKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if (jeGenVydej) then
+     Helios.Error(#1'Z objednávky byla vytvoøena výdejka obalù, záznamy nelze mazat.'#1)
+    else
+     begin
+    // pøidáno 18.3.2021
+      if (jsouGenVPr) then
+       Helios.Error(#1'Z objednávky byly vygenerovány výrobní pøíkazy nebo kooperaèní objednávka, záznamy nelze mazat.'#1)
+       else
+        begin
+      //   konec pøidáno 18.3.2021
+         if (Key=VK_DELETE) and (vTable.RecordCount>0) then
+          if Helios.YesNo('Opravdu chcete z objednávky smazat tento box ?',false) then
+           begin
+            vTable.Delete;
+            lblPocetPol.Caption:= IntToStr(StrToInt(lblPocetPol.Caption)-1);
+            grdPolozky.Refresh;
+            edtBox.SetFocus;
+           end;
+        end;
+     end; // pøidáno 18.3.2021
+  end;
+
+
+
+ procedure TformKanbanObj.btnStornoClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+
+
+
+ procedure TformKanbanObj.btnOKClick(Sender: TObject);
+  var lSQL, idcka, idKZobal: string;
+      x: integer;
+  begin
+   lblWork.Visible:= true;
+   lblWork.Caption:= 'Ukládám položky...';
+
+   lSQL:= 'DECLARE @i INT; SELECT @i=ISNULL(MAX(id),0) FROM dbo._TabKanbanPohyby;DBCC CHECKIDENT(_TabKanbanPohyby,reseed,@i);';
+   Helios.ExecSQL(lSQL);
+
+   idcka:= IDPol2Str;
+   if (idObj>0) then
+     begin
+      Helios.ExecSQL('DELETE FROM dbo._TabKanbanPohyby WHERE IdKanbanObj=' + IntToStr(idObj) + ' AND Id NOT IN (' + IfThen(idcka='','0',idcka) + ')');
+
+      x:= vTable.RecNo;
+      grdPolozky.BeginUpdate;
+      vTable.First;
+      while not(vTable.Eof) do
+       begin
+        if (vTable.Fields.FieldByName('IdPohybu').AsString='') then
+         begin
+          idKZobal:= '';
+          lSQL:= 'SELECT kzO.Id FROM dbo._TabKanbanBox b INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
+          lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) LEFT JOIN dbo.TabKmenZbozi kzO ON';
+          lSQL:= lSQL + ' (kzO.CisloZbozi=kze._KanbanObal) WHERE b.Id=' + vTable.Fields.FieldByName('IdKanbanBox').AsString;
+          with Helios.OpenSQL(lSQL) do
+           if (RecordCount=1) then
+            if not VarIsNull(FieldValues(0)) then
+             idKZobal:= VarToStr(FieldValues(0));
+
+          lSQL:= 'INSERT dbo._TabKanbanPohyby (IDKanbanObj, IDKanbanBox, IdKmenZboziObal) VALUES (';
+          lSQL:= lSQL + IntToStr(idObj) + ',' + vTable.Fields.FieldByName('IdKanbanBox').AsString + ',';
+          lSQL:= lSQL + IfThen(idKZobal='','null',idKZobal) + ')';
+          Helios.ExecSQL(lSQL);
+         end;
+        vTable.Next;
+       end;
+      vTable.RecNo:= x;
+      grdPolozky.EndUpdate;
+      Close;
+
+     end
+    else
+     begin
+        if (cOrg >=0) then
+         begin     // pøidáno 18.3.2021
+          lSQL:= 'DECLARE @i INT; SELECT @i=ISNULL(MAX(id),0) FROM dbo._TabKanbanObj; DBCC CHECKIDENT(_TabKanbanObj,reseed,@i);';
+          Helios.ExecSQL(lSQL);
+          lSQL:= 'INSERT dbo._TabKanbanObj (CisloOrgKoop) VALUES (' + IntToStr(cOrg) + '); SELECT SCOPE_IDENTITY()';
+          with Helios.OpenSQL(lSQL) do
+           if (RecordCount=1) then
+            begin
+             idObj:= StrToInt(VarToStr(FieldValues(0)));
+
+             x:= vTable.RecNo;
+             grdPolozky.BeginUpdate;
+             vTable.First;
+             while not(vTable.Eof) do
+              begin
+               idKZobal:= '';
+               lSQL:= 'SELECT kzO.Id FROM dbo._TabKanbanBox b INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
+               lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) LEFT JOIN dbo.TabKmenZbozi kzO ON';
+               lSQL:= lSQL + ' (kzO.CisloZbozi=kze._KanbanObal) WHERE b.Id=' + vTable.Fields.FieldByName('IdKanbanBox').AsString;
+               with Helios.OpenSQL(lSQL) do
+                if (RecordCount=1) then
+                 if not VarIsNull(FieldValues(0)) then
+                  idKZobal:= VarToStr(FieldValues(0));
+
+               lSQL:= 'INSERT dbo._TabKanbanPohyby (IDKanbanObj, IDKanbanBox, IdKmenZboziObal) VALUES (';
+               lSQL:= lSQL + IntToStr(idObj) + ',' + vTable.Fields.FieldByName('IdKanbanBox').AsString + ',';
+               lSQL:= lSQL + IfThen(idKZobal='','null',idKZobal) + ')';
+               Helios.ExecSQL(lSQL);
+               vTable.Next;
+              end;
+             vTable.RecNo:= x;
+             grdPolozky.EndUpdate;
+             Close;
+            end;
+        end
+       else
+        begin
+         Close;
+        end;     // pøidáno 18.3.2021
+     end;
+   lblWork.Visible:= false;
+  end;
+
+
+
+
+ procedure TformKanbanObj.btnGenObjClick (Sender: TObject);
+  begin
+   btnGenObj.Caption:= 'Probíhá generování...';
+   if (primaObj) then
+    btnOKClick(Sender);
+   try
+     Helios.ExecSQL('EXEC dbo.ep_KanbanGenVydejObalu @idKanObj=' + IntToStr(idObj));
+     btnGenObj.Caption:= 'Generuj výdejku obalù';
+     with Helios.OpenSQL('SELECT IdVydejObalu FROM dbo._TabKanbanObj WHERE Id=' + IntToStr(idObj)) do
+      if (RecordCount=1) then
+       if not VarIsNull(FieldValues(0)) then
+        Helios.PrintForm3(18, 2, 'TabDokladyZbozi.Id=' + VarToStr(FieldValues(0)));
+     Close;
+    except on E:Exception do
+     Helios.Error(#1'Chyba pøi generování výdejky kanban boxù'#1#13#10 + E.Message);
+   end;
+  end;
+
+
+
+  // pøidáno 18.3.2021
+ procedure TformKanbanObj.btnGenKoopOrVPrClick (Sender: TObject);
+  var
+      IDKoopObj, JeGenKoop : integer;
+      Sql : string;
+      JmenoSouboruVyg: String;
+  begin
+
+   //if (primaObj) then
+   btnOKClick (Sender);
+
+     with Helios.OpenSQL('SELECT CASE WHEN EXISTS (SELECT 1 FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ' AND IDPrikaz IS NULL) OR NOT EXISTS (SELECT 1 FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ') THEN 1 ELSE 0 END' ) do
+    begin
+       if VarIsNull(FieldValues(0)) or (VarToStr(FieldValues(0))='0') or (VarToStr(FieldValues(0))='') then  begin
+          Helios.Error('Výrobní pøíkazy již byly vygenerovány. Nelze je vygenerovat znovu');
+          exit;
+       end;
+    end;
+
+    with Helios.OpenSQL('SELECT CASE WHEN EXISTS (SELECT 1 FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ') THEN 1 ELSE 0 END' ) do
+    begin
+       if VarIsNull(FieldValues(0)) or (VarToStr(FieldValues(0))='0') or (VarToStr(FieldValues(0))='') then  begin
+          Helios.Error('Nejsou zadány žádné položky');
+          exit;
+       end;
+    end;
+
+    btnGenKoopOrVPr.Caption:= 'Probíhá generování...';
+
+   try
+     //Helios.ExecSQL('EXEC dbo.hpx_NTS_Kanban_GenerujKoopObjNeboVPr @idKanObj=' + IntToStr(idObj)); // zakomentováno 10.6.2022
+
+     // pøidáno 10.6.2022
+     Sql := 'DECLARE @IDKoopObj INT, @VzniklaKoopObj INT; ';
+     Sql := Sql + ' EXEC dbo.hpx_NTS_Kanban_GenerujKoopObjNeboVPr_Plugin @idKanObj=' + IntToStr(idObj) + ', @IDKoopObj = @IDKoopObj OUT, @VzniklaKoopObj = @VzniklaKoopObj OUT;';
+     Sql := Sql + ' SELECT @IDKoopObj AS IDKoopObj, @VzniklaKoopObj AS VzniklaKoopObj';
+
+
+     with Helios.OpenSQL(Sql) do
+    begin
+       if not VarIsNull(FieldValues(0)) then  IDKoopObj :=  FieldValues(0) else IDKoopObj := -99;
+       if not VarIsNull(FieldValues(1)) then  JeGenKoop :=  FieldValues(1) else JeGenKoop := 0;
+
+
+    end;
+     // konec pøidání 10.6.2022
+
+     btnGenKoopOrVPr.Caption:= btnGenVPrOrKoopText;
+
+
+     //Close;         // zakomentováno 10.6.2022
+    except on E:Exception do  begin
+       Helios.Error(#1'Chyba pøi generování kooperaèní objednávky nebo VPø'#1#13#10 + E.Message);
+       btnGenKoopOrVPr.Caption:= btnGenVPrOrKoopText; // pøidáno 10.6.2022
+       exit;     // pøidáno 10.6.2022
+     end;
+
+      end;
+
+
+   // pøidáno 10.6.2022
+   if (PoslatEmail = 1) and (IDKoopObj > 0) and (JeGenKoop > 0) then  begin
+        btnGenKoopOrVPr.Caption:= 'Export do xls...';
+
+       // export do xls
+       with Helios.OpenSQL('SELECT id FROM dbo.TabKoopObj WHERE realizovano=0 AND id=' + IntToStr(IDKoopObj)) do   begin
+          if (RecordCount=0) then  begin
+
+              JmenoSouboruVyg:= ExportKoopObjXls (Helios, IDKoopObj, TypKooObj, NadpisTypuKoopObj, Zarovnani, Cesta, Nazev, 0) ;
+
+           end else   begin
+            Helios.Error(#1'Kooperaèní objednávka není realizována, nelze exportovat.'#1 + CRLF + 'Realizujte jí a zkuste to znovu.');
+           end;
+        end;
+
+
+       // zavolání procedury na poslání e-mailu
+        btnGenKoopOrVPr.Caption:= 'Generování e-mailu...';
+
+        Sql := 'DECLARE @IDExtKom INT = ' + IntToStr(Helios.ExtKomID) + ', @Soubor NVARCHAR(255) = N''' + JmenoSouboruVyg + ''', @Cesta NVARCHAR(255) = N''' + Cesta + ''',	@Chyba NVARCHAR(500);';
+        Sql := Sql + ' EXEC dbo.hpx_OdeslatKooperacniObjednavkuEmailem_Plugin @IDExtKom , @Soubor = @Soubor, @Cesta = @Cesta,	@Chyba = @Chyba OUT, 	@IDKoopObj = ' + IntToStr(IDKoopObj) + ';' ;
+        Sql := Sql + ' SELECT @Chyba; ' ;
+
+       // Helios.Info(sql);
+
+         with Helios.OpenSQL(Sql) do
+          begin
+             if (Not VarIsNull(FieldValues(0))) and (trim(VarToStr(FieldValues(0)))<>'') then  begin
+                Helios.Error(VarToStr(FieldValues(0)));
+
+             end;
+          end;
+
+        btnGenKoopOrVPr.Caption:= btnGenVPrOrKoopText;
+   end;
+
+
+   Close;
+   // konec pøidání 10.6.2022
+
+  end;
+  // konec pøidání 18.3.2021
+
+
+
+ procedure TformKanbanObj.edtBoxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  var lSQL: string;
+      idx, idKZ: Integer;
+      PridatPolozku: boolean; // pøidáno 18.3.2021
+  begin
+   edtBox.Text:= Trim(edtBox.Text);
+   if (jeKoopObj) then
+    begin
+     Helios.Error(#1'Byla vytvoøena Kooperaèní objednávka, položky nelze pøidávat.'#1);
+     Exit;
+    end;
+
+    //    pøidáno 18.3.2021
+    if (jsouGenVPr) then
+    begin
+     Helios.Error(#1'Byly vytvoøeny výrobní pøíkazy, položky nelze pøidávat.'#1);
+     Exit;
+    end;
+    //   konec pøidání 18.3.2021
+
+   if (jeGenVydej) then
+    begin
+     Helios.Error(#1'Byla vytvoøena výdejka na obaly, položky nelze pøidávat.'#1);
+     Exit;
+    end;
+   if ((Key=VK_TAB) or (Key=VK_RETURN)) and (edtBox.Text<>'') then
+    begin
+     idx:= vTable.RecNo;
+     if not(vTable.Locate('IdKanbanBox', VarArrayOf([edtBox.Text]),[loCaseInsensitive])) then
+       begin
+        PridatPolozku := true; //pøidáno 18.3.2021
+        vTable.RecNo:= idx;
+        with Helios.OpenSQL('SELECT id FROM dbo._TabKanbanBox WHERE Id=' + edtBox.Text) do
+         if (RecordCount=1) then
+           begin
+            lSQL:= 'SELECT kz.RegCis, kz.Nazev1, kze._KanbanMnozstvi, kz.Id FROM dbo._TabKanbanBox b';
+            lSQL:= lSQL + ' INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
+            lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) WHERE b.Id=' + edtBox.Text;
+            with Helios.OpenSQL(lSQL) do
+             begin
+              if (cOrg=-99) then    // upraveno 18.3.2021
+               begin
+                idKZ:= StrToInt(VarToStr(FieldValues(3)));
+                lSQL:= 'SELECT se._CisloOrg, co.Nazev FROM dbo.TabKmenZbozi kz INNER JOIN dbo.TabStrom s ON (s.Cislo=kz.KmenoveStredisko)';
+                lSQL:= lSQL + ' INNER JOIN dbo.TabStrom_EXT se ON (se.Id=s.Id) INNER JOIN dbo.TabCisOrg co ON (co.CisloOrg=se._CisloOrg)';
+                lSQL:= lSQL + ' WHERE kz.Id=' + IntToStr(idKZ);
+                with Helios.OpenSQL(lSQL) do
+                 if (RecordCount=1) then
+                  begin
+                   cOrg:= StrToInt(VarToStr(FieldValues(0)));
+                   lblDodavatel.Caption:= VarToStr(FieldValues(1));
+                  end;
+
+               //  pøidáno 18.3.2021
+               end else begin
+                idKZ:= StrToInt(VarToStr(FieldValues(3)));
+                lSQL:= 'SELECT se._CisloOrg, co.Nazev FROM dbo.TabKmenZbozi kz INNER JOIN dbo.TabStrom s ON (s.Cislo=kz.KmenoveStredisko)';
+                lSQL:= lSQL + ' INNER JOIN dbo.TabStrom_EXT se ON (se.Id=s.Id) INNER JOIN dbo.TabCisOrg co ON (co.CisloOrg=se._CisloOrg)';
+                lSQL:= lSQL + ' WHERE kz.Id=' + IntToStr(idKZ);
+                with Helios.OpenSQL(lSQL) do
+                 if (RecordCount=1) then
+                  begin
+                   if (cOrg <> StrToInt(VarToStr(FieldValues(0)))) then begin
+                        PridatPolozku := false;
+                        Helios.Error('Tento kanbanbox patøí jiné organizaci. Nelze pøidat na objednávku.')  ;
+                        if (mLog.Lines.Count=0) then
+                          mLog.Lines.Append('Kanbanbox patøí jiné organizaci: ' + edtBox.Text)
+                         else
+                          mLog.Lines.Insert(0, 'Kanbanbox patøí jiné organizaci: ' + edtBox.Text);
+                   end;
+
+                  end;
+               //  konec pøidáno 18.3.2021
+               end;
+
+               if (PridatPolozku) then begin  // pøidáno 18.3.2021
+
+                vTable.Append;
+                 vTable.Fields.FieldByName('IdKanbanBox').AsString:= edtBox.Text;
+                 vTable.Fields.FieldByName('RegCis').AsString:= VarToStr(FieldValues(0));
+                 vTable.Fields.FieldByName('Nazev').AsString:= VarToStr(FieldValues(1));
+                 vTable.Fields.FieldByName('Mnozstvi').AsInteger:= StrToInt(VarToStr(FieldValues(2)));
+                vTable.Post;
+                lblPocetPol.Caption:= IntToStr(1 + StrToInt(lblPocetPol.Caption));
+               end;   // pøidáno 18.3.2021
+             end;
+           end
+          else
+           begin
+            if (mLog.Lines.Count=0) then
+              mLog.Lines.Append('Nebyl nalezen kanban box: ' + edtBox.Text)
+             else
+              mLog.Lines.Insert(0, 'Nebyl nalezen kanban box: ' + edtBox.Text);
+           end;
+       end
+      else
+       if (mLog.Lines.Count=0) then
+         mLog.Lines.Append('Kanban box je již zadán: ' + edtBox.Text)
+        else
+         mLog.Lines.Insert(0, 'Kanban box je již zadán: ' + edtBox.Text);
+     edtBox.Text:= '';
+     edtBox.SetFocus;
+    end;
+  end;
+
+
+
+
+ procedure TformKanbanObj.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   if (layName[0]<>'') then
+    LoadKeyboardLayout(@layName, KLF_ACTIVATE or KLF_SETFORPROCESS);
+   if (vTable.Active) then
+    vTable.Close;
+   Action:= caFree;
+  end;
+
+
+
+
+ procedure TformKanbanObj.FormShow(Sender: TObject);
+  var lSQL: string;
+  begin
+
+   if GetKeyboardLayoutName(@layName) then
+    LoadKeyboardLayout('00020409', KLF_ACTIVATE or KLF_SETFORPROCESS);
+
+   lblWork.Visible:= false;
+   cOrg:= -99;       // upraveno 18.3.2021
+   jeGenVydej:= false;
+   jeKoopObj:= false;
+   jsouGenVPr := false; // pøidáno 18.3.2021
+   primaObj:= true;
+   if not(vTable.Active) then
+    vTable.Open;
+   vTable.EmptyDataSet;
+   Self.Caption:= 'Kanban objednávka';
+   edtBox.SetFocus;
+   edtBox.Color:= clWindow;
+   btnGenObj.Enabled:= true;
+   btnGenKoopOrVPr.Enabled:= true;      // pøidáno 18.3.2021
+
+   //pøidáno 18.3.2021
+    with Helios.OpenSQL('EXEC dbo.hpx_NTS_Kanban_TextButonuGenVPrNeboKoop') do
+      begin
+          btnGenVPrOrKoopText:=VarToStr(FieldValues(0));
+           btnGenKoopOrVPr.Width := StrToInt(VarToStr(FieldValues(1))) ;
+           btnGenKoopOrVPr.Height := StrToInt(VarToStr(FieldValues(2))) ;
+           btnGenKoopOrVPr.Top := StrToInt(VarToStr(FieldValues(3))) ;
+           btnGenKoopOrVPr.Left := StrToInt(VarToStr(FieldValues(4))) ;
+           btnGenKoopOrVPr.Font.Height := StrToInt(VarToStr(FieldValues(5))) ;
+      end;
+   btnGenKoopOrVPr.Caption := btnGenVPrOrKoopText;
+   // konec pøidání 18.3.2021
+
+   if (idObj>0) then
+    begin
+     primaObj:= false;
+     with Helios.OpenSQL('SELECT CisloOrgKoop, IdVydejObalu, IdKoopObj FROM dbo._TabKanbanObj WHERE Id=' + IntToStr(idObj)) do
+      begin
+       cOrg:= StrToInt(VarToStr(FieldValues(0)));
+       if not VarIsNull(FieldValues(1)) and (VarToStr(FieldValues(1))<>'0') and (VarToStr(FieldValues(1))<>'') then
+        jeGenVydej:= true;
+       if not VarIsNull(FieldValues(2)) and (VarToStr(FieldValues(2))<>'0') and (VarToStr(FieldValues(2))<>'') then
+        jeKoopObj:= true;
+      end;
+
+      //   pøidáno 18.3.2021
+       with Helios.OpenSQL('SELECT COUNT(1) FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ' AND IDPrikaz IS NOT NULL' ) do
+      begin
+         if not VarIsNull(FieldValues(0)) and (VarToStr(FieldValues(0))<>'0') and (VarToStr(FieldValues(0))<>'') then
+            jsouGenVPr:= true else jsouGenVPr := false;
+      end;
+      //   konec pøidání 18.3.2021
+
+     if (jeKoopObj) or (jeGenVydej) or (jsouGenVPr) then // upraveno 18.3.2021
+      begin
+       btnGenObj.Enabled:= false;
+       edtBox.Enabled:= false;
+       edtBox.Color:= clBtnFace;
+       btnStorno.SetFocus;
+       if ((jeKoopObj) or (jeGenVydej)) then  btnGenKoopOrVPr.Enabled := false;
+
+      end;
+     if (jeKoopObj) then
+       begin
+        Self.Caption:= Self.Caption + ' (odeslána)';
+        mLog.Lines.Insert(0, 'Objednávka byla již odeslána...');
+       end
+      else
+       begin
+        if (jeGenVydej) then
+          begin
+           Self.Caption:= Self.Caption + ' (výdejka obalù)';
+           mLog.Lines.Insert(0, 'Byla již vygenerována výdejka obalù...');
+          end
+         else
+          begin
+           // pøidáno 18.3.2021
+           if (jsouGenVPr) then
+            begin
+             Self.Caption:= Self.Caption + ' (výrobní pøíkaz)';
+             mLog.Lines.Insert(0, 'Byl již vygenerován výrobní pøíkaz...');
+            end;
+           // konec pøidání 18.3.2021
+          end;
+       end;
+
+     with Helios.OpenSQL('SELECT Nazev FROM dbo.TabCisOrg WHERE CisloOrg=' + IntToStr(cOrg)) do
+      lblDodavatel.Caption:= VarToStr(FieldValues(0));
+
+     lSQL:= 'SELECT p.Id, b.Id, kz.RegCis, kz.Nazev1, kze._KanbanMnozstvi FROM dbo._TabKanbanPohyby p';
+     lSQL:= lSQL + ' INNER JOIN dbo._TabKanbanBox b ON (p.IdKanbanBox=b.Id)';
+     lSQL:= lSQL + ' INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
+     lSQL:= lSQL + ' INNER JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id)';
+     lSQL:= lSQL + ' WHERE p.IdKanbanObj=' + IntToStr(idObj) + ' ORDER BY p.Id';
+     with Helios.OpenSQL(lSQL) do
+      begin
+       lblPocetPol.Caption:= IntToStr(RecordCount);
+       grdPolozky.BeginUpdate;
+       First;
+       while not(EOF) do
+        begin
+         vTable.Append;
+          vTable.Fields.FieldByName('IdPohybu').AsString:= VarToStr(FieldValues(0));
+          vTable.Fields.FieldByName('IdKanbanBox').AsString:= VarToStr(FieldValues(1));
+          vTable.Fields.FieldByName('RegCis').AsString:= VarToStr(FieldValues(2));
+          vTable.Fields.FieldByName('Nazev').AsString:= VarToStr(FieldValues(3));
+          vTable.Fields.FieldByName('Mnozstvi').AsInteger:= StrToInt(VarToStr(FieldValues(4)));
+         vTable.Post;
+         Next;
+        end;
+       grdPolozky.EndUpdate;
+      end;
+    end;
+  end;
+
+
+end.

frmKanbanObj_bak_do210318.dfm

@@ -0,0 +1,307 @@
+object formKanbanObj: TformKanbanObj
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = 'Kanban objedn'#225'vka'
+  ClientHeight = 624
+  ClientWidth = 737
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 391
+    Top = 19
+    Width = 87
+    Height = 16
+    Caption = 'Po'#269'et polo'#382'ek :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblPocetPol: TLabel
+    Left = 489
+    Top = 4
+    Width = 24
+    Height = 45
+    Caption = '0'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -37
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 26
+    Top = 24
+    Width = 65
+    Height = 16
+    Caption = 'Dodavatel :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblDodavatel: TLabel
+    Left = 102
+    Top = 19
+    Width = 7
+    Height = 25
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -21
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label3: TLabel
+    Left = 26
+    Top = 66
+    Width = 75
+    Height = 16
+    Caption = 'Kanban box :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblWork: TLabel
+    Left = 444
+    Top = 606
+    Width = 285
+    Height = 13
+    Alignment = taRightJustify
+    AutoSize = False
+    Caption = 'lblWork'
+  end
+  object gPolozky: TcxGrid
+    Left = 26
+    Top = 93
+    Width = 687
+    Height = 439
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    object vgPolozky: TcxGridDBTableView
+      OnKeyUp = vgPolozkyKeyUp
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = ds
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = vgPolozkyMnozstvi
+        end>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsCustomize.ColumnHidingOnGrouping = False
+      OptionsCustomize.ColumnHorzSizing = False
+      OptionsCustomize.ColumnMoving = False
+      OptionsCustomize.GroupBySorting = True
+      OptionsData.Deleting = False
+      OptionsData.Editing = False
+      OptionsData.Inserting = False
+      OptionsSelection.CellSelect = False
+      OptionsView.GroupByBox = False
+      object vgPolozkyIdPohybu: TcxGridDBColumn
+        DataBinding.FieldName = 'IdPohybu'
+        Visible = False
+      end
+      object vgPolozkyIdKanbanBox: TcxGridDBColumn
+        Caption = #268#237'slo boxu'
+        DataBinding.FieldName = 'IdKanbanBox'
+        PropertiesClassName = 'TcxLabelProperties'
+        Properties.Alignment.Horz = taCenter
+        HeaderAlignmentHorz = taCenter
+        MinWidth = 84
+        Options.Editing = False
+        Options.Filtering = False
+        Options.AutoWidthSizable = False
+        Options.Grouping = False
+        Options.HorzSizing = False
+        Options.Moving = False
+        Width = 84
+      end
+      object vgPolozkyRegCis: TcxGridDBColumn
+        Caption = 'Reg. '#269#237'slo'
+        DataBinding.FieldName = 'RegCis'
+        PropertiesClassName = 'TcxLabelProperties'
+        Properties.Alignment.Horz = taCenter
+        HeaderAlignmentHorz = taCenter
+        MinWidth = 126
+        Options.Editing = False
+        Options.Filtering = False
+        Options.HorzSizing = False
+        Options.Moving = False
+        Width = 126
+      end
+      object vgPolozkyNazev: TcxGridDBColumn
+        Caption = 'Popis'
+        DataBinding.FieldName = 'Nazev'
+        PropertiesClassName = 'TcxLabelProperties'
+        MinWidth = 373
+        Options.Editing = False
+        Options.Filtering = False
+        Options.AutoWidthSizable = False
+        Options.HorzSizing = False
+        Options.Moving = False
+        Options.Sorting = False
+        Width = 373
+      end
+      object vgPolozkyMnozstvi: TcxGridDBColumn
+        Caption = 'Mno'#382'stv'#237
+        DataBinding.FieldName = 'Mnozstvi'
+        PropertiesClassName = 'TcxLabelProperties'
+        Properties.Alignment.Horz = taCenter
+        HeaderAlignmentHorz = taCenter
+        MinWidth = 73
+        Options.Editing = False
+        Options.Filtering = False
+        Options.AutoWidthSizable = False
+        Options.Grouping = False
+        Options.HorzSizing = False
+        Options.Moving = False
+        Options.Sorting = False
+        Width = 73
+      end
+    end
+    object lvlgPolozky: TcxGridLevel
+      GridView = vgPolozky
+    end
+  end
+  object btnStorno: TButton
+    Left = 638
+    Top = 565
+    Width = 75
+    Height = 25
+    Caption = 'Zru'#353'it'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+    OnClick = btnStornoClick
+  end
+  object btnOK: TButton
+    Left = 490
+    Top = 565
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 2
+    OnClick = btnOKClick
+  end
+  object btnGenObj: TButton
+    Left = 558
+    Top = 12
+    Width = 155
+    Height = 29
+    Caption = 'Generuj v'#253'dejku obal'#367
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+    OnClick = btnGenObjClick
+  end
+  object mLog: TMemo
+    Left = 26
+    Top = 538
+    Width = 401
+    Height = 75
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Lines.Strings = (
+      '')
+    ParentFont = False
+    ScrollBars = ssVertical
+    TabOrder = 4
+  end
+  object edtBox: TEdit
+    Left = 107
+    Top = 63
+    Width = 121
+    Height = 24
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    NumbersOnly = True
+    ParentFont = False
+    TabOrder = 5
+    OnKeyUp = edtBoxKeyUp
+  end
+  object ds: TDataSource
+    DataSet = vTable
+    Left = 282
+    Top = 8
+  end
+  object vTable: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 328
+    Top = 10
+    object vTableIdPohybu: TIntegerField
+      FieldName = 'IdPohybu'
+    end
+    object vTableIdKanbanBox: TIntegerField
+      FieldName = 'IdKanbanBox'
+      Required = True
+    end
+    object vTableRegCis: TStringField
+      FieldName = 'RegCis'
+      Required = True
+      Size = 30
+    end
+    object vTableNazev: TStringField
+      FieldName = 'Nazev'
+      Required = True
+      Size = 50
+    end
+    object vTableMnozstvi: TSmallintField
+      FieldName = 'Mnozstvi'
+      Required = True
+    end
+  end
+end

frmMain.dfm

@@ -0,0 +1,22 @@
+object formMain: TformMain
+  Left = 0
+  Top = 0
+  Caption = 'formMain'
+  ClientHeight = 202
+  ClientWidth = 447
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object imgList: TImageList
+    Height = 24
+    Width = 24
+    Left = 18
+    Top = 16
+  end
+end

frmMain.pas

@@ -0,0 +1,25 @@
+unit frmMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ImgList;
+
+type
+  TformMain = class(TForm)
+    imgList: TImageList;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  formMain: TformMain;
+
+implementation
+
+{$R *.dfm}
+
+end.

frmMaterial.dfm

@@ -0,0 +1,65 @@
+object formMaterial: TformMaterial
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = 'formMaterial'
+  ClientHeight = 382
+  ClientWidth = 570
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 13
+  object treeMat: TTreeView
+    Left = 0
+    Top = 0
+    Width = 568
+    Height = 380
+    Indent = 19
+    TabOrder = 0
+  end
+  object ds: TDataSource
+    DataSet = vTab
+    Left = 514
+    Top = 326
+  end
+  object vTab: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 444
+    Top = 328
+    object vTabId: TIntegerField
+      FieldName = 'Id'
+      Visible = False
+    end
+    object vTabParentId: TIntegerField
+      FieldName = 'ParentId'
+      Visible = False
+    end
+    object vTabSZ: TStringField
+      FieldName = 'SZ'
+      Size = 3
+    end
+    object vTabRegCis: TStringField
+      FieldName = 'RegCis'
+      Size = 30
+    end
+    object vTabNazev: TStringField
+      FieldName = 'Nazev'
+      Size = 100
+    end
+    object vTabMnoz: TFloatField
+      FieldName = 'Mnoz'
+    end
+  end
+end

frmMaterial.pas

@@ -0,0 +1,87 @@
+unit frmMaterial;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, ddPlugin_TLB, Data.DB, FireDAC.Comp.Client,
+  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,
+  FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet;
+
+type
+  TformMaterial = class(TForm)
+    ds: TDataSource;
+    vTab: TFDMemTable;
+    vTabId: TIntegerField;
+    vTabParentId: TIntegerField;
+    vTabSZ: TStringField;
+    vTabRegCis: TStringField;
+    vTabNazev: TStringField;
+    vTabMnoz: TFloatField;
+    treeMat: TTreeView;
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+   private
+    procedure NactiTree;
+   public
+    Helios: IHelios;
+    idMat: integer;
+  end;
+
+var
+  formMaterial: TformMaterial;
+
+implementation
+uses helUtils;
+
+{$R *.dfm}
+
+ procedure TformMaterial.NactiTree;
+  var lSQL: string;
+      id: integer;
+      root,uzel: TTreeNode;
+      cont: boolean;
+  begin
+   with Helios.OpenSQL('SELECT SkupZbo,RegCis,Nazev1 FROM ' + tblKZ + ' WHERE id=' + IntToStr(idMat)) do
+    begin
+     treeMat.Items.AddFirst(nil, VarToStr(FieldValues(0)) + ' ' + VarToStr(FieldValues(1)) + '   ' + VarToStr(FieldValues(2)));
+     root:= treeMat.Items.GetFirstNode;
+    end;
+   id:= idMat;
+   lSQL:= 'SELECT kz.id, kz.SkupZbo, kz.RegCis, kz.Nazev1, v.MnozstviSeZtratou/v.DavkaTPV FROM ' + tblKVaz;
+   lSQL:= lSQL + ' v INNER JOIN ' + tblKZ + ' kz ON (kz.id=v.vyssi)';
+   lSQL:= lSQL + ' LEFT JOIN ' + tblParKZ + ' p ON (p.IdKmenZbozi=kz.id) WHERE v.nizsi=';
+   cont:= true;
+   while (cont) do
+    begin
+     with Helios.OpenSQL(lSQL + IntToStr(id)) do
+      if (RecordCount=0) then
+        cont:= false
+       else
+        begin
+         First;
+         while not(EOF) do
+          begin
+           treeMat.Items.AddChild(root, VarToStr(FieldValues(1)) + ' ' + VarToStr(FieldValues(2)) + '   ' + VarToStr(FieldValues(3)));
+           Next;
+          end;
+         cont:= false;
+        end;
+    end;
+  end;
+
+ procedure TformMaterial.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+  end;
+
+ procedure TformMaterial.FormShow(Sender: TObject);
+  begin
+   Self.Icon.Handle:= Helios.MainApplicationIconHandle;
+   Self.Font.Name:= Helios.Font;
+   Self.Font.Height:= Helios.FontHeight;
+
+   NactiTree;
+  end;
+
+end.

frmOdvedPrikaz - kopie (2).dfm

@@ -0,0 +1,864 @@
+object formOdvedeniPrikazu: TformOdvedeniPrikazu
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  ClientHeight = 577
+  ClientWidth = 724
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnKeyUp = FormKeyUp
+  OnResize = FormResize
+  OnShow = FormShow
+  DesignSize = (
+    724
+    577)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 272
+    Width = 121
+    Height = 17
+    Caption = 'Odv'#225'd'#283'n'#253'ch kus'#367' :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label10: TLabel
+    Left = 10
+    Top = 231
+    Width = 51
+    Height = 17
+    Caption = 'Sm'#283'na :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label4: TLabel
+    Left = 11
+    Top = 185
+    Width = 51
+    Height = 17
+    Caption = 'Datum :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label5: TLabel
+    Left = 205
+    Top = 185
+    Width = 91
+    Height = 17
+    Caption = 'Zam'#283'stnanec :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblZamest: TLabel
+    Left = 400
+    Top = 183
+    Width = 275
+    Height = 20
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object lblDilec: TLabel
+    Left = 8
+    Top = 38
+    Width = 404
+    Height = 20
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label11: TLabel
+    Left = 13
+    Top = 74
+    Width = 95
+    Height = 17
+    Caption = 'V'#253'robn'#237' p'#345#237'kaz :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label12: TLabel
+    Left = 8
+    Top = 11
+    Width = 101
+    Height = 17
+    Caption = 'D'#237'lec / v'#253'robek :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label13: TLabel
+    Left = 11
+    Top = 146
+    Width = 37
+    Height = 17
+    Caption = 'Sklad:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label15: TLabel
+    Left = 10
+    Top = 111
+    Width = 87
+    Height = 17
+    Caption = 'Fronta pr'#225'ce :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Visible = False
+  end
+  object gOperace: TNextGrid6
+    Left = 15
+    Top = 318
+    Width = 701
+    Height = 208
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentColor = False
+    ParentFont = False
+    PopupMenu = pOperace
+    TabOrder = 12
+    TabStop = True
+    Touch.InteractiveGestures = [igPan, igPressAndTap]
+    Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
+    ActiveView = gView
+    ActiveViewIndex = 0
+    ScrollBars = [sbHorizontal, sbVertical]
+    SelectFullRow = True
+    object gView: TNxReportGridView6
+      ColumnMoving = False
+      GridLines = True
+      HeaderHeight = 24
+      InsertRowHeight = 24
+    end
+    object colOper: TNxNumberColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Alignment = taCenter
+      Header.Caption = #268'.op.'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 0
+      PlaceholderText = '1742.50'
+      Position = 0
+      FormatMask = '0'
+      Precision = 0
+      Incrememnt = 1.000000000000000000
+      InsertString = '0'
+    end
+    object colEvid: TNxCheckBoxColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Alignment = taCenter
+      Header.Caption = 'Evid ?'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 1
+      PlaceholderText = 'True'
+      Position = 1
+      InsertString = 'False'
+    end
+    object colPopis: TNxTextColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'Popis'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 2
+      PlaceholderText = 'Text Text'
+      Position = 2
+    end
+    object colIdPostup: TNxNumberColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'idPostup'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 3
+      PlaceholderText = '1742.50'
+      Position = 3
+      Visible = False
+      Width = 8
+      FormatMask = '#,##0.00'
+      Precision = 0
+      Incrememnt = 1.000000000000000000
+      InsertString = '0'
+    end
+    object colNormCasS: TNxNumberColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'NormCasS'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 4
+      PlaceholderText = '1742.50'
+      Position = 4
+      Visible = False
+      Width = 8
+      FormatMask = '#,##0.00'
+      Precision = 0
+      Incrememnt = 1.000000000000000000
+      InsertString = '0'
+    end
+  end
+  object edtKusu: TRzNumericEdit
+    Left = 140
+    Top = 268
+    Width = 68
+    Height = 25
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 6
+    ParentFont = False
+    ParentShowHint = False
+    ShowHint = False
+    TabOrder = 5
+    OnEnter = edtKusuEnter
+    OnExit = edtKusuExit
+    OnKeyUp = edtKusuKeyUp
+    Max = 999999.000000000000000000
+    DisplayFormat = ',0;(,0)'
+  end
+  object GroupBox2: TGroupBox
+    Left = 488
+    Top = 8
+    Width = 225
+    Height = 109
+    Anchors = [akTop, akRight]
+    Caption = '   Kusy   '
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 13
+    object Label2: TLabel
+      Left = 8
+      Top = 22
+      Width = 86
+      Height = 17
+      Caption = 'Kusy zadan'#233' :'
+    end
+    object lblZadane: TLabel
+      Left = 171
+      Top = 21
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 8
+      Top = 53
+      Width = 95
+      Height = 17
+      Caption = 'Kusy zb'#253'vaj'#237'c'#237' :'
+    end
+    object lblZive: TLabel
+      Left = 171
+      Top = 52
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Color = clBtnFace
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentColor = False
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 8
+      Top = 83
+      Width = 74
+      Height = 17
+      Caption = 'Evidov'#225'no :'
+    end
+    object lblEvid: TLabel
+      Left = 171
+      Top = 81
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+  end
+  object btnSave: TBitBtn
+    Left = 155
+    Top = 537
+    Width = 92
+    Height = 32
+    Align = alCustom
+    Anchors = [akBottom]
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Glyph.Data = {
+      DE010000424DDE01000000000000760000002800000024000000120000000100
+      0400000000006801000000000000000000001000000000000000000000000000
+      80000080000000808000800000008000800080800000C0C0C000808080000000
+      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+      3333333333333333333333330000333333333333333333333333F33333333333
+      00003333344333333333333333388F3333333333000033334224333333333333
+      338338F3333333330000333422224333333333333833338F3333333300003342
+      222224333333333383333338F3333333000034222A22224333333338F338F333
+      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
+      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
+      0000333333333A222433333333333338F338F33300003333333333A222433333
+      333333338F338F33000033333333333A222433333333333338F338F300003333
+      33333333A222433333333333338F338F00003333333333333A22433333333333
+      3338F38F000033333333333333A223333333333333338F830000333333333333
+      333A333333333333333338330000333333333333333333333333333333333333
+      0000}
+    ModalResult = 1
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 7
+    OnClick = btnSaveClick
+  end
+  object btnSavetisk: TBitBtn
+    Left = 305
+    Top = 537
+    Width = 92
+    Height = 32
+    Align = alCustom
+    Anchors = [akBottom]
+    Caption = 'OK + Tisk'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Glyph.Data = {
+      DE010000424DDE01000000000000760000002800000024000000120000000100
+      0400000000006801000000000000000000001000000000000000000000000000
+      80000080000000808000800000008000800080800000C0C0C000808080000000
+      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+      3333333333333333333333330000333333333333333333333333F33333333333
+      00003333344333333333333333388F3333333333000033334224333333333333
+      338338F3333333330000333422224333333333333833338F3333333300003342
+      222224333333333383333338F3333333000034222A22224333333338F338F333
+      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
+      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
+      0000333333333A222433333333333338F338F33300003333333333A222433333
+      333333338F338F33000033333333333A222433333333333338F338F300003333
+      33333333A222433333333333338F338F00003333333333333A22433333333333
+      3338F38F000033333333333333A223333333333333338F830000333333333333
+      333A333333333333333338330000333333333333333333333333333333333333
+      0000}
+    ModalResult = 1
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 7
+    OnClick = btnSaveTiskClick
+  end
+  object btnCancel: TBitBtn
+    Left = 455
+    Top = 537
+    Width = 89
+    Height = 32
+    Anchors = [akBottom]
+    Caption = ' Storno'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Kind = bkCancel
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 8
+  end
+  object cbCasMzda: TCheckBox
+    Left = 238
+    Top = 228
+    Width = 184
+    Height = 17
+    Caption = 'Mzda dle skute'#269'n'#233'ho '#269'asu'
+    Checked = True
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    State = cbChecked
+    TabOrder = 11
+  end
+  object selSmena: TRzButtonEdit
+    Left = 68
+    Top = 228
+    Width = 75
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 2
+    ParentFont = False
+    TabOrder = 10
+    AltBtnWidth = 16
+    ButtonWidth = 16
+  end
+  object selZamest: TRzButtonEdit
+    Left = 303
+    Top = 181
+    Width = 84
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnEnter = selZamestEnter
+    OnExit = selZamestExit
+    OnKeyUp = selZamestKeyUp
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selZamestButtonClick
+  end
+  object selBarCode: TRzButtonEdit
+    Left = 256
+    Top = 69
+    Width = 131
+    Height = 25
+    Text = ''
+    CharCase = ecUpperCase
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 15
+    ParentFont = False
+    TabOrder = 2
+    Visible = False
+    OnExit = selBarCodeExit
+    OnKeyUp = selBarCodeKeyUp
+    ButtonGlyph.Data = {
+      AE060000424DAE0600000000000036000000280000001E000000120000000100
+      18000000000078060000C40E0000C40E00000000000000000000FBFCF8F0F1EE
+      FBFCF8FBFCF8FBFCF8CDCECAE3E4E0CACAC7DDDEDAC4C4C1E7E8E4DEDFDBECED
+      E9CFCFCBECEDE9F7F8F4CBCBC8E5E6E2DCDCD8F5F6F2DCDDD9E6E7E4CCCCC9E7
+      E8E5EAEAE7FBFCF8FBFCF8FBFCF8EFEFECF6F7F30000FAFBF7CDCECACBCCC9BA
+      BAB7D2D3CFB5B6B3BFBFBC949391BFBEBC9C9C9ACECFCBB1B0AEDCDDD99C9C9A
+      BFBFBCD1D1CF929290D2D3CF7F7E7CDDDEDAB1B2AFCECECB9B9B98E3E3E0B2B2
+      AFC5C5C2A4A4A2BFBFBCC8C9C6E8E9E50000FBFCF8E8E8E4A1A29F80807FAFAF
+      ACA8A8A6BABAB7959593AFB0ADADADABC0C1BEA8A9A6D8D9D5A8A8A5959694AB
+      ABA9C8C8C6D9D9D6959593C8C9C6A1A19FC9C9C7D5D6D2DADBD7B2B2AF959593
+      5857588A8A88D8D9D5F6F7F30000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
+      908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
+      A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
+      8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
+      3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
+      5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
+      E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
+      53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
+      908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
+      0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
+      7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
+      6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
+      F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
+      86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
+      D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
+      A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C
+      8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2
+      C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80
+      807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B484747
+      4B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5
+      B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAF
+      AC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C
+      8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B2989897
+      5857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
+      908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
+      A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
+      8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
+      3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
+      5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
+      E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
+      53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
+      908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
+      0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
+      7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
+      6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
+      F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
+      86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
+      D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
+      A2A2A081817FAFAFAD92929190908E3D3C3C555554A2A2A07E7E7D8787858D8D
+      8C4948484C4C4C8D8D8CA3A4A2A4A4A260605F9191907170706D6D6CD2D3D0C2
+      C3C0B4B5B39999975958598B8B89E8E9E5FBFCF80000FBFCF8FAFBF7D8D8D5CB
+      CBC8DDDDDAD1D2CFD0D1CEAFB0ADB9BAB7D8D9D5C9CAC7CDCDCACFD0CDB4B5B2
+      B5B5B3CFD0CDD8D9D6D8D9D5BDBEBBD2D3D0C7C7C5C4C4C1EBECE8E4E5E2DFE0
+      DCD4D4D1BABBB8CFCFCCF3F4F0FBFCF80000}
+    ButtonKind = bkCustom
+    AltBtnWidth = 16
+    ButtonWidth = 16
+  end
+  object selPrikaz: TRzButtonEdit
+    Left = 115
+    Top = 69
+    Width = 132
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 20
+    ParentFont = False
+    TabOrder = 1
+    OnExit = selPrikazExit
+    OnKeyUp = selPrikazKeyUp
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selPrikazButtonClick
+  end
+  object selDilec: TRzButtonEdit
+    Left = 122
+    Top = 6
+    Width = 183
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 22
+    ParentFont = False
+    TabOrder = 0
+    OnEnter = selDilecEnter
+    OnExit = selDilecExit
+    OnKeyDown = selDilecKeyDown
+    OnKeyUp = selDilecKeyUp
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selDilecButtonClick
+  end
+  object cbSklad: TComboBox
+    Left = 58
+    Top = 143
+    Width = 198
+    Height = 25
+    Style = csDropDownList
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ItemIndex = 0
+    ParentFont = False
+    TabOrder = 3
+    Text = '200 - V'#253'roba'
+    Items.Strings = (
+      '200 - V'#253'roba'
+      '210 - Sklad v'#253'robk'#367
+      '200.00105 - Nadv'#253'roba'
+      '100.00300 - Va'#269'ky')
+  end
+  object dtDatum: TRzDateTimePicker
+    Left = 70
+    Top = 182
+    Width = 121
+    Height = 26
+    Date = 41401.452400474540000000
+    Format = 'dd.MM.yyyy'
+    Time = 41401.452400474540000000
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -15
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MinDate = 41275.000000000000000000
+    ParentFont = False
+    TabOrder = 9
+    ShowToday = True
+    FirstDayOfWeek = dowMonday
+  end
+  object grpTampo: TGroupBox
+    Left = 238
+    Top = 262
+    Width = 294
+    Height = 31
+    TabOrder = 6
+    object Label6: TLabel
+      Left = 4
+      Top = 11
+      Width = 76
+      Height = 13
+      Caption = 'Evidovan'#253' '#269'as :'
+      OnMouseDown = Label6MouseDown
+    end
+    object Label7: TLabel
+      Left = 136
+      Top = 11
+      Width = 26
+      Height = 14
+      AutoSize = False
+      Caption = 'hod'
+    end
+    object Label8: TLabel
+      Left = 223
+      Top = 11
+      Width = 25
+      Height = 14
+      AutoSize = False
+      Caption = 'min'
+    end
+    object edtCasHod: TRzNumericEdit
+      Left = 96
+      Top = 4
+      Width = 32
+      Height = 25
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      MaxLength = 2
+      ParentFont = False
+      TabOrder = 0
+      OnKeyUp = edtCasHodKeyUp
+      DisplayFormat = ',0;(,0)'
+    end
+    object edtCasMin: TRzNumericEdit
+      Left = 179
+      Top = 4
+      Width = 39
+      Height = 25
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 1
+      OnKeyUp = edtCasMinKeyUp
+      DisplayFormat = ',0;(,0)'
+    end
+  end
+  object grpNadvyroba: TGroupBox
+    Left = 238
+    Top = 263
+    Width = 307
+    Height = 30
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 14
+    object Label14: TLabel
+      Left = 10
+      Top = 6
+      Width = 113
+      Height = 17
+      Caption = 'V'#253'dejka materi'#225'lu:'
+    end
+    object selVydejMat: TRzButtonEdit
+      Left = 140
+      Top = 4
+      Width = 161
+      Height = 25
+      Text = ''
+      Alignment = taCenter
+      TabOrder = 0
+      OnExit = selVydejMatExit
+      AltBtnWidth = 16
+      ButtonWidth = 16
+      OnButtonClick = selVydejMatButtonClick
+    end
+  end
+  object selFronta: TRzButtonEdit
+    Left = 103
+    Top = 106
+    Width = 132
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 20
+    ParentFont = False
+    TabOrder = 15
+    Visible = False
+    OnExit = selFrontaExit
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selFrontaButtonClick
+  end
+  object pOperace: TPopupMenu
+    Left = 510
+    Top = 347
+    object pOdznacVse: TMenuItem
+      Caption = 'O&dzna'#269'it v'#353'e'
+      OnClick = pOdznacVseClick
+    end
+    object pVyberVse: TMenuItem
+      Caption = '&Vybrat v'#353'e'
+      OnClick = pVyberVseClick
+    end
+  end
+end

frmOdvedPrikaz - kopie.dfm

@@ -0,0 +1,828 @@
+object formOdvedeniPrikazu: TformOdvedeniPrikazu
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  ClientHeight = 577
+  ClientWidth = 724
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnKeyUp = FormKeyUp
+  OnResize = FormResize
+  OnShow = FormShow
+  DesignSize = (
+    724
+    577)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 272
+    Width = 121
+    Height = 17
+    Caption = 'Odv'#225'd'#283'n'#253'ch kus'#367' :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label10: TLabel
+    Left = 10
+    Top = 231
+    Width = 51
+    Height = 17
+    Caption = 'Sm'#283'na :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label4: TLabel
+    Left = 11
+    Top = 185
+    Width = 51
+    Height = 17
+    Caption = 'Datum :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label5: TLabel
+    Left = 205
+    Top = 185
+    Width = 91
+    Height = 17
+    Caption = 'Zam'#283'stnanec :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblZamest: TLabel
+    Left = 400
+    Top = 183
+    Width = 275
+    Height = 20
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object lblDilec: TLabel
+    Left = 8
+    Top = 38
+    Width = 404
+    Height = 20
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label11: TLabel
+    Left = 13
+    Top = 74
+    Width = 95
+    Height = 17
+    Caption = 'V'#253'robn'#237' p'#345#237'kaz :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label12: TLabel
+    Left = 8
+    Top = 11
+    Width = 101
+    Height = 17
+    Caption = 'D'#237'lec / v'#253'robek :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label13: TLabel
+    Left = 11
+    Top = 146
+    Width = 37
+    Height = 17
+    Caption = 'Sklad:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label15: TLabel
+    Left = 10
+    Top = 111
+    Width = 87
+    Height = 17
+    Caption = 'Fronta pr'#225'ce :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Visible = False
+  end
+  object gOperace: TNextGrid6
+    Left = 15
+    Top = 318
+    Width = 701
+    Height = 208
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentColor = False
+    ParentFont = False
+    PopupMenu = pOperace
+    TabOrder = 12
+    TabStop = True
+    Touch.InteractiveGestures = [igPan, igPressAndTap]
+    Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
+    ActiveView = gView
+    ActiveViewIndex = 0
+    ScrollBars = [sbHorizontal, sbVertical]
+    SelectFullRow = True
+    object gView: TNxReportGridView6
+      ColumnMoving = False
+      GridLines = True
+      HeaderHeight = 24
+      InsertRowHeight = 24
+    end
+    object colOper: TNxNumberColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Alignment = taCenter
+      Header.Caption = #268'.op.'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 0
+      PlaceholderText = '1742.50'
+      Position = 0
+      FormatMask = '0'
+      Precision = 0
+      Incrememnt = 1.000000000000000000
+      InsertString = '0'
+    end
+    object colEvid: TNxCheckBoxColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Alignment = taCenter
+      Header.Caption = 'Evid ?'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 1
+      PlaceholderText = 'True'
+      Position = 1
+      InsertString = 'False'
+    end
+    object colPopis: TNxTextColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'Popis'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 2
+      PlaceholderText = 'Text Text'
+      Position = 2
+    end
+    object colIdPostup: TNxNumberColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'idPostup'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 3
+      PlaceholderText = '1742.50'
+      Position = 3
+      Visible = False
+      Width = 8
+      FormatMask = '#,##0.00'
+      Precision = 0
+      Incrememnt = 1.000000000000000000
+      InsertString = '0'
+    end
+    object colNormCasS: TNxNumberColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'NormCasS'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 4
+      PlaceholderText = '1742.50'
+      Position = 4
+      Visible = False
+      Width = 8
+      FormatMask = '#,##0.00'
+      Precision = 0
+      Incrememnt = 1.000000000000000000
+      InsertString = '0'
+    end
+  end
+  object edtKusu: TRzNumericEdit
+    Left = 140
+    Top = 268
+    Width = 68
+    Height = 25
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 6
+    ParentFont = False
+    ParentShowHint = False
+    ShowHint = False
+    TabOrder = 5
+    OnEnter = edtKusuEnter
+    OnExit = edtKusuExit
+    OnKeyUp = edtKusuKeyUp
+    Max = 999999.000000000000000000
+    DisplayFormat = ',0;(,0)'
+  end
+  object GroupBox2: TGroupBox
+    Left = 488
+    Top = 8
+    Width = 225
+    Height = 109
+    Anchors = [akTop, akRight]
+    Caption = '   Kusy   '
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 13
+    object Label2: TLabel
+      Left = 8
+      Top = 22
+      Width = 86
+      Height = 17
+      Caption = 'Kusy zadan'#233' :'
+    end
+    object lblZadane: TLabel
+      Left = 171
+      Top = 21
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 8
+      Top = 53
+      Width = 95
+      Height = 17
+      Caption = 'Kusy zb'#253'vaj'#237'c'#237' :'
+    end
+    object lblZive: TLabel
+      Left = 171
+      Top = 52
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Color = clBtnFace
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentColor = False
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 8
+      Top = 83
+      Width = 74
+      Height = 17
+      Caption = 'Evidov'#225'no :'
+    end
+    object lblEvid: TLabel
+      Left = 171
+      Top = 81
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+  end
+  object btnSave: TBitBtn
+    Left = 205
+    Top = 537
+    Width = 92
+    Height = 32
+    Align = alCustom
+    Anchors = [akBottom]
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Glyph.Data = {
+      DE010000424DDE01000000000000760000002800000024000000120000000100
+      0400000000006801000000000000000000001000000000000000000000000000
+      80000080000000808000800000008000800080800000C0C0C000808080000000
+      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+      3333333333333333333333330000333333333333333333333333F33333333333
+      00003333344333333333333333388F3333333333000033334224333333333333
+      338338F3333333330000333422224333333333333833338F3333333300003342
+      222224333333333383333338F3333333000034222A22224333333338F338F333
+      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
+      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
+      0000333333333A222433333333333338F338F33300003333333333A222433333
+      333333338F338F33000033333333333A222433333333333338F338F300003333
+      33333333A222433333333333338F338F00003333333333333A22433333333333
+      3338F38F000033333333333333A223333333333333338F830000333333333333
+      333A333333333333333338330000333333333333333333333333333333333333
+      0000}
+    ModalResult = 1
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 7
+    OnClick = btnSaveClick
+  end
+  object btnCancel: TBitBtn
+    Left = 405
+    Top = 537
+    Width = 89
+    Height = 32
+    Anchors = [akBottom]
+    Caption = ' Storno'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Kind = bkCancel
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 8
+  end
+  object cbCasMzda: TCheckBox
+    Left = 238
+    Top = 228
+    Width = 184
+    Height = 17
+    Caption = 'Mzda dle skute'#269'n'#233'ho '#269'asu'
+    Checked = True
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    State = cbChecked
+    TabOrder = 11
+  end
+  object selSmena: TRzButtonEdit
+    Left = 68
+    Top = 228
+    Width = 75
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 2
+    ParentFont = False
+    TabOrder = 10
+    AltBtnWidth = 16
+    ButtonWidth = 16
+  end
+  object selZamest: TRzButtonEdit
+    Left = 303
+    Top = 181
+    Width = 84
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnEnter = selZamestEnter
+    OnExit = selZamestExit
+    OnKeyUp = selZamestKeyUp
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selZamestButtonClick
+  end
+  object selBarCode: TRzButtonEdit
+    Left = 256
+    Top = 69
+    Width = 131
+    Height = 25
+    Text = ''
+    CharCase = ecUpperCase
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 15
+    ParentFont = False
+    TabOrder = 2
+    Visible = False
+    OnExit = selBarCodeExit
+    OnKeyUp = selBarCodeKeyUp
+    ButtonGlyph.Data = {
+      AE060000424DAE0600000000000036000000280000001E000000120000000100
+      18000000000078060000C40E0000C40E00000000000000000000FBFCF8F0F1EE
+      FBFCF8FBFCF8FBFCF8CDCECAE3E4E0CACAC7DDDEDAC4C4C1E7E8E4DEDFDBECED
+      E9CFCFCBECEDE9F7F8F4CBCBC8E5E6E2DCDCD8F5F6F2DCDDD9E6E7E4CCCCC9E7
+      E8E5EAEAE7FBFCF8FBFCF8FBFCF8EFEFECF6F7F30000FAFBF7CDCECACBCCC9BA
+      BAB7D2D3CFB5B6B3BFBFBC949391BFBEBC9C9C9ACECFCBB1B0AEDCDDD99C9C9A
+      BFBFBCD1D1CF929290D2D3CF7F7E7CDDDEDAB1B2AFCECECB9B9B98E3E3E0B2B2
+      AFC5C5C2A4A4A2BFBFBCC8C9C6E8E9E50000FBFCF8E8E8E4A1A29F80807FAFAF
+      ACA8A8A6BABAB7959593AFB0ADADADABC0C1BEA8A9A6D8D9D5A8A8A5959694AB
+      ABA9C8C8C6D9D9D6959593C8C9C6A1A19FC9C9C7D5D6D2DADBD7B2B2AF959593
+      5857588A8A88D8D9D5F6F7F30000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
+      908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
+      A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
+      8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
+      3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
+      5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
+      E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
+      53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
+      908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
+      0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
+      7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
+      6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
+      F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
+      86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
+      D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
+      A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C
+      8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2
+      C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80
+      807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B484747
+      4B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5
+      B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAF
+      AC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C
+      8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B2989897
+      5857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
+      908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
+      A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
+      8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
+      3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
+      5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
+      E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
+      53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
+      908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
+      0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
+      7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
+      6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
+      F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
+      86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
+      D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
+      A2A2A081817FAFAFAD92929190908E3D3C3C555554A2A2A07E7E7D8787858D8D
+      8C4948484C4C4C8D8D8CA3A4A2A4A4A260605F9191907170706D6D6CD2D3D0C2
+      C3C0B4B5B39999975958598B8B89E8E9E5FBFCF80000FBFCF8FAFBF7D8D8D5CB
+      CBC8DDDDDAD1D2CFD0D1CEAFB0ADB9BAB7D8D9D5C9CAC7CDCDCACFD0CDB4B5B2
+      B5B5B3CFD0CDD8D9D6D8D9D5BDBEBBD2D3D0C7C7C5C4C4C1EBECE8E4E5E2DFE0
+      DCD4D4D1BABBB8CFCFCCF3F4F0FBFCF80000}
+    ButtonKind = bkCustom
+    AltBtnWidth = 16
+    ButtonWidth = 16
+  end
+  object selPrikaz: TRzButtonEdit
+    Left = 115
+    Top = 69
+    Width = 132
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 20
+    ParentFont = False
+    TabOrder = 1
+    OnExit = selPrikazExit
+    OnKeyUp = selPrikazKeyUp
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selPrikazButtonClick
+  end
+  object selDilec: TRzButtonEdit
+    Left = 122
+    Top = 6
+    Width = 183
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 22
+    ParentFont = False
+    TabOrder = 0
+    OnEnter = selDilecEnter
+    OnExit = selDilecExit
+    OnKeyDown = selDilecKeyDown
+    OnKeyUp = selDilecKeyUp
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selDilecButtonClick
+  end
+  object cbSklad: TComboBox
+    Left = 58
+    Top = 143
+    Width = 198
+    Height = 25
+    Style = csDropDownList
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ItemIndex = 0
+    ParentFont = False
+    TabOrder = 3
+    Text = '200 - V'#253'roba'
+    Items.Strings = (
+      '200 - V'#253'roba'
+      '210 - Sklad v'#253'robk'#367
+      '200.00105 - Nadv'#253'roba'
+      '100.00300 - Va'#269'ky')
+  end
+  object dtDatum: TRzDateTimePicker
+    Left = 70
+    Top = 182
+    Width = 121
+    Height = 26
+    Date = 41401.452400474540000000
+    Format = 'dd.MM.yyyy'
+    Time = 41401.452400474540000000
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -15
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MinDate = 41275.000000000000000000
+    ParentFont = False
+    TabOrder = 9
+    ShowToday = True
+    FirstDayOfWeek = dowMonday
+  end
+  object grpTampo: TGroupBox
+    Left = 238
+    Top = 262
+    Width = 294
+    Height = 31
+    TabOrder = 6
+    object Label6: TLabel
+      Left = 4
+      Top = 11
+      Width = 76
+      Height = 13
+      Caption = 'Evidovan'#253' '#269'as :'
+      OnMouseDown = Label6MouseDown
+    end
+    object Label7: TLabel
+      Left = 136
+      Top = 11
+      Width = 26
+      Height = 14
+      AutoSize = False
+      Caption = 'hod'
+    end
+    object Label8: TLabel
+      Left = 223
+      Top = 11
+      Width = 25
+      Height = 14
+      AutoSize = False
+      Caption = 'min'
+    end
+    object edtCasHod: TRzNumericEdit
+      Left = 96
+      Top = 4
+      Width = 32
+      Height = 25
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      MaxLength = 2
+      ParentFont = False
+      TabOrder = 0
+      OnKeyUp = edtCasHodKeyUp
+      DisplayFormat = ',0;(,0)'
+    end
+    object edtCasMin: TRzNumericEdit
+      Left = 179
+      Top = 4
+      Width = 39
+      Height = 25
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 1
+      OnKeyUp = edtCasMinKeyUp
+      DisplayFormat = ',0;(,0)'
+    end
+  end
+  object grpNadvyroba: TGroupBox
+    Left = 238
+    Top = 263
+    Width = 307
+    Height = 30
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 14
+    object Label14: TLabel
+      Left = 10
+      Top = 6
+      Width = 113
+      Height = 17
+      Caption = 'V'#253'dejka materi'#225'lu:'
+    end
+    object selVydejMat: TRzButtonEdit
+      Left = 140
+      Top = 4
+      Width = 161
+      Height = 25
+      Text = ''
+      Alignment = taCenter
+      TabOrder = 0
+      OnExit = selVydejMatExit
+      AltBtnWidth = 16
+      ButtonWidth = 16
+      OnButtonClick = selVydejMatButtonClick
+    end
+  end
+  object selFronta: TRzButtonEdit
+    Left = 103
+    Top = 106
+    Width = 132
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 20
+    ParentFont = False
+    TabOrder = 15
+    Visible = False
+    OnExit = selFrontaExit
+    AltBtnWidth = 16
+    ButtonWidth = 16
+    OnButtonClick = selFrontaButtonClick
+  end
+  object pOperace: TPopupMenu
+    Left = 510
+    Top = 347
+    object pOdznacVse: TMenuItem
+      Caption = 'O&dzna'#269'it v'#353'e'
+      OnClick = pOdznacVseClick
+    end
+    object pVyberVse: TMenuItem
+      Caption = '&Vybrat v'#353'e'
+      OnClick = pVyberVseClick
+    end
+  end
+end

frmOdvedPrikaz.dfm

@@ -0,0 +1,830 @@
+object formOdvedeniPrikazu: TformOdvedeniPrikazu
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  ClientHeight = 577
+  ClientWidth = 724
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnKeyUp = FormKeyUp
+  OnResize = FormResize
+  OnShow = FormShow
+  DesignSize = (
+    724
+    577)
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 272
+    Width = 121
+    Height = 17
+    Caption = 'Odv'#225'd'#283'n'#253'ch kus'#367' :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label10: TLabel
+    Left = 10
+    Top = 231
+    Width = 51
+    Height = 17
+    Caption = 'Sm'#283'na :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label4: TLabel
+    Left = 11
+    Top = 185
+    Width = 51
+    Height = 17
+    Caption = 'Datum :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label5: TLabel
+    Left = 205
+    Top = 185
+    Width = 91
+    Height = 17
+    Caption = 'Zam'#283'stnanec :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblZamest: TLabel
+    Left = 400
+    Top = 183
+    Width = 275
+    Height = 20
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object lblDilec: TLabel
+    Left = 8
+    Top = 38
+    Width = 404
+    Height = 20
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label11: TLabel
+    Left = 13
+    Top = 74
+    Width = 95
+    Height = 17
+    Caption = 'V'#253'robn'#237' p'#345#237'kaz :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label12: TLabel
+    Left = 8
+    Top = 11
+    Width = 101
+    Height = 17
+    Caption = 'D'#237'lec / v'#253'robek :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label13: TLabel
+    Left = 11
+    Top = 146
+    Width = 37
+    Height = 17
+    Caption = 'Sklad:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label15: TLabel
+    Left = 10
+    Top = 111
+    Width = 87
+    Height = 17
+    Caption = 'Fronta pr'#225'ce :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Visible = False
+  end
+  object gOperace: TNextGrid6
+    Left = 15
+    Top = 318
+    Width = 701
+    Height = 208
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentColor = False
+    ParentFont = False
+    PopupMenu = pOperace
+    TabOrder = 12
+    TabStop = True
+    Touch.InteractiveGestures = [igPan, igPressAndTap]
+    Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
+    ActiveView = gView
+    ActiveViewIndex = 0
+    ScrollBars = [sbHorizontal, sbVertical]
+    SelectFullRow = True
+    UserDefinedColorPalette.GeometryHoverColor = clBlack
+    object gView: TNxReportGridView6
+      ColumnMoving = False
+      GridLines = True
+      HeaderHeight = 24
+      InsertRowHeight = 24
+    end
+    object colOper: TNxNumberColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Alignment = taCenter
+      Header.Caption = #268'.op.'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 0
+      PlaceholderText = '1742.50'
+      Position = 0
+      FormatMask = '0'
+      Precision = 0
+      Increment = 1.000000000000000000
+      InsertString = '0'
+    end
+    object colEvid: TNxCheckBoxColumn6
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Alignment = taCenter
+      Header.Caption = 'Evid ?'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 1
+      PlaceholderText = 'True'
+      Position = 1
+      CheckedImageIndex = -1
+      UncheckedImageIndex = -1
+      InsertString = 'False'
+    end
+    object colPopis: TNxTextColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'Popis'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -17
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 2
+      PlaceholderText = 'Text Text'
+      Position = 2
+    end
+    object colIdPostup: TNxNumberColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'idPostup'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 3
+      PlaceholderText = '1742.50'
+      Position = 3
+      Visible = False
+      Width = 8
+      FormatMask = '#,##0.00'
+      Precision = 0
+      Increment = 1.000000000000000000
+      InsertString = '0'
+    end
+    object colNormCasS: TNxNumberColumn6
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      Footer.Font.Charset = DEFAULT_CHARSET
+      Footer.Font.Color = clWindowText
+      Footer.Font.Height = -13
+      Footer.Font.Name = 'Tahoma'
+      Footer.Font.Style = []
+      Footer.ParentFont = False
+      Footer.FormatMask = '#,##0.00'
+      Header.Caption = 'NormCasS'
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.ParentFont = False
+      Index = 4
+      PlaceholderText = '1742.50'
+      Position = 4
+      Visible = False
+      Width = 8
+      FormatMask = '#,##0.00'
+      Precision = 0
+      Increment = 1.000000000000000000
+      InsertString = '0'
+    end
+  end
+  object edtKusu: TRzNumericEdit
+    Left = 140
+    Top = 268
+    Width = 68
+    Height = 25
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 6
+    ParentFont = False
+    ParentShowHint = False
+    ShowHint = False
+    TabOrder = 5
+    OnEnter = edtKusuEnter
+    OnExit = edtKusuExit
+    OnKeyUp = edtKusuKeyUp
+    Max = 999999.000000000000000000
+    DisplayFormat = ',0;(,0)'
+  end
+  object GroupBox2: TGroupBox
+    Left = 488
+    Top = 8
+    Width = 225
+    Height = 109
+    Anchors = [akTop, akRight]
+    Caption = '   Kusy   '
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 13
+    object Label2: TLabel
+      Left = 8
+      Top = 22
+      Width = 86
+      Height = 17
+      Caption = 'Kusy zadan'#233' :'
+    end
+    object lblZadane: TLabel
+      Left = 171
+      Top = 21
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 8
+      Top = 53
+      Width = 95
+      Height = 17
+      Caption = 'Kusy zb'#253'vaj'#237'c'#237' :'
+    end
+    object lblZive: TLabel
+      Left = 171
+      Top = 52
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Color = clBtnFace
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentColor = False
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 8
+      Top = 83
+      Width = 74
+      Height = 17
+      Caption = 'Evidov'#225'no :'
+    end
+    object lblEvid: TLabel
+      Left = 171
+      Top = 81
+      Width = 8
+      Height = 14
+      Alignment = taRightJustify
+      Caption = '0'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+  end
+  object btnSave: TBitBtn
+    Left = 205
+    Top = 537
+    Width = 92
+    Height = 32
+    Align = alCustom
+    Anchors = [akBottom]
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Glyph.Data = {
+      DE010000424DDE01000000000000760000002800000024000000120000000100
+      0400000000006801000000000000000000001000000000000000000000000000
+      80000080000000808000800000008000800080800000C0C0C000808080000000
+      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+      3333333333333333333333330000333333333333333333333333F33333333333
+      00003333344333333333333333388F3333333333000033334224333333333333
+      338338F3333333330000333422224333333333333833338F3333333300003342
+      222224333333333383333338F3333333000034222A22224333333338F338F333
+      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
+      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
+      0000333333333A222433333333333338F338F33300003333333333A222433333
+      333333338F338F33000033333333333A222433333333333338F338F300003333
+      33333333A222433333333333338F338F00003333333333333A22433333333333
+      3338F38F000033333333333333A223333333333333338F830000333333333333
+      333A333333333333333338330000333333333333333333333333333333333333
+      0000}
+    ModalResult = 1
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 7
+    OnClick = btnSaveClick
+  end
+  object btnCancel: TBitBtn
+    Left = 405
+    Top = 537
+    Width = 89
+    Height = 32
+    Anchors = [akBottom]
+    Caption = ' Storno'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Kind = bkCancel
+    NumGlyphs = 2
+    ParentFont = False
+    TabOrder = 8
+  end
+  object cbCasMzda: TCheckBox
+    Left = 238
+    Top = 228
+    Width = 184
+    Height = 17
+    Caption = 'Mzda dle skute'#269'n'#233'ho '#269'asu'
+    Checked = True
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    State = cbChecked
+    TabOrder = 11
+  end
+  object selSmena: TRzButtonEdit
+    Left = 68
+    Top = 228
+    Width = 75
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 2
+    ParentFont = False
+    TabOrder = 10
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+  end
+  object selZamest: TRzButtonEdit
+    Left = 303
+    Top = 181
+    Width = 84
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnEnter = selZamestEnter
+    OnExit = selZamestExit
+    OnKeyUp = selZamestKeyUp
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selZamestButtonClick
+  end
+  object selBarCode: TRzButtonEdit
+    Left = 256
+    Top = 69
+    Width = 131
+    Height = 25
+    Text = ''
+    CharCase = ecUpperCase
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 15
+    ParentFont = False
+    TabOrder = 2
+    Visible = False
+    OnExit = selBarCodeExit
+    OnKeyUp = selBarCodeKeyUp
+    ButtonGlyph.Data = {
+      AE060000424DAE0600000000000036000000280000001E000000120000000100
+      18000000000078060000C40E0000C40E00000000000000000000FBFCF8F0F1EE
+      FBFCF8FBFCF8FBFCF8CDCECAE3E4E0CACAC7DDDEDAC4C4C1E7E8E4DEDFDBECED
+      E9CFCFCBECEDE9F7F8F4CBCBC8E5E6E2DCDCD8F5F6F2DCDDD9E6E7E4CCCCC9E7
+      E8E5EAEAE7FBFCF8FBFCF8FBFCF8EFEFECF6F7F30000FAFBF7CDCECACBCCC9BA
+      BAB7D2D3CFB5B6B3BFBFBC949391BFBEBC9C9C9ACECFCBB1B0AEDCDDD99C9C9A
+      BFBFBCD1D1CF929290D2D3CF7F7E7CDDDEDAB1B2AFCECECB9B9B98E3E3E0B2B2
+      AFC5C5C2A4A4A2BFBFBCC8C9C6E8E9E50000FBFCF8E8E8E4A1A29F80807FAFAF
+      ACA8A8A6BABAB7959593AFB0ADADADABC0C1BEA8A9A6D8D9D5A8A8A5959694AB
+      ABA9C8C8C6D9D9D6959593C8C9C6A1A19FC9C9C7D5D6D2DADBD7B2B2AF959593
+      5857588A8A88D8D9D5F6F7F30000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
+      908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
+      A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
+      8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
+      3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
+      5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
+      E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
+      53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
+      908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
+      0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
+      7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
+      6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
+      F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
+      86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
+      D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
+      A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C
+      8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2
+      C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80
+      807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B484747
+      4B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5
+      B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAF
+      AC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C
+      8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B2989897
+      5857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
+      908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
+      A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
+      8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
+      3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
+      5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
+      E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
+      53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
+      908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
+      0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
+      7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
+      6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
+      F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
+      86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
+      D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
+      A2A2A081817FAFAFAD92929190908E3D3C3C555554A2A2A07E7E7D8787858D8D
+      8C4948484C4C4C8D8D8CA3A4A2A4A4A260605F9191907170706D6D6CD2D3D0C2
+      C3C0B4B5B39999975958598B8B89E8E9E5FBFCF80000FBFCF8FAFBF7D8D8D5CB
+      CBC8DDDDDAD1D2CFD0D1CEAFB0ADB9BAB7D8D9D5C9CAC7CDCDCACFD0CDB4B5B2
+      B5B5B3CFD0CDD8D9D6D8D9D5BDBEBBD2D3D0C7C7C5C4C4C1EBECE8E4E5E2DFE0
+      DCD4D4D1BABBB8CFCFCCF3F4F0FBFCF80000}
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    ButtonKind = bkCustom
+    ButtonWidth = 16
+  end
+  object selPrikaz: TRzButtonEdit
+    Left = 115
+    Top = 69
+    Width = 132
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 20
+    ParentFont = False
+    TabOrder = 1
+    OnExit = selPrikazExit
+    OnKeyUp = selPrikazKeyUp
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selPrikazButtonClick
+  end
+  object selDilec: TRzButtonEdit
+    Left = 122
+    Top = 6
+    Width = 183
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 22
+    ParentFont = False
+    TabOrder = 0
+    OnEnter = selDilecEnter
+    OnExit = selDilecExit
+    OnKeyDown = selDilecKeyDown
+    OnKeyUp = selDilecKeyUp
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selDilecButtonClick
+  end
+  object cbSklad: TComboBox
+    Left = 58
+    Top = 143
+    Width = 198
+    Height = 25
+    Style = csDropDownList
+    Enabled = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ItemIndex = 0
+    ParentFont = False
+    TabOrder = 3
+    Text = '200 - V'#253'roba'
+    Items.Strings = (
+      '200 - V'#253'roba'
+      '210 - Sklad v'#253'robk'#367
+      '200.00105 - Nadv'#253'roba'
+      '100.00300 - Va'#269'ky')
+  end
+  object dtDatum: TRzDateTimePicker
+    Left = 70
+    Top = 182
+    Width = 121
+    Height = 26
+    Date = 41401.000000000000000000
+    Format = 'dd.MM.yyyy'
+    Time = 41401.000000000000000000
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -15
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MinDate = 41275.000000000000000000
+    ParentFont = False
+    TabOrder = 9
+    ShowToday = True
+    FirstDayOfWeek = dowMonday
+  end
+  object grpTampo: TGroupBox
+    Left = 238
+    Top = 262
+    Width = 294
+    Height = 31
+    TabOrder = 6
+    object Label6: TLabel
+      Left = 4
+      Top = 11
+      Width = 76
+      Height = 13
+      Caption = 'Evidovan'#253' '#269'as :'
+      OnMouseDown = Label6MouseDown
+    end
+    object Label7: TLabel
+      Left = 136
+      Top = 11
+      Width = 26
+      Height = 14
+      AutoSize = False
+      Caption = 'hod'
+    end
+    object Label8: TLabel
+      Left = 223
+      Top = 11
+      Width = 25
+      Height = 14
+      AutoSize = False
+      Caption = 'min'
+    end
+    object edtCasHod: TRzNumericEdit
+      Left = 96
+      Top = 4
+      Width = 32
+      Height = 25
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      MaxLength = 2
+      ParentFont = False
+      TabOrder = 0
+      OnKeyUp = edtCasHodKeyUp
+      DisplayFormat = ',0;(,0)'
+    end
+    object edtCasMin: TRzNumericEdit
+      Left = 179
+      Top = 4
+      Width = 39
+      Height = 25
+      Alignment = taCenter
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 1
+      OnKeyUp = edtCasMinKeyUp
+      DisplayFormat = ',0;(,0)'
+    end
+  end
+  object grpNadvyroba: TGroupBox
+    Left = 238
+    Top = 263
+    Width = 307
+    Height = 30
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 14
+    object Label14: TLabel
+      Left = 10
+      Top = 6
+      Width = 113
+      Height = 17
+      Caption = 'V'#253'dejka materi'#225'lu:'
+    end
+    object selVydejMat: TRzButtonEdit
+      Left = 140
+      Top = 4
+      Width = 161
+      Height = 25
+      Text = ''
+      Alignment = taCenter
+      TabOrder = 0
+      OnExit = selVydejMatExit
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+      OnButtonClick = selVydejMatButtonClick
+    end
+  end
+  object selFronta: TRzButtonEdit
+    Left = 103
+    Top = 106
+    Width = 132
+    Height = 25
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 20
+    ParentFont = False
+    TabOrder = 15
+    Visible = False
+    OnExit = selFrontaExit
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selFrontaButtonClick
+  end
+  object pOperace: TPopupMenu
+    Left = 510
+    Top = 347
+    object pOdznacVse: TMenuItem
+      Caption = 'O&dzna'#269'it v'#353'e'
+      OnClick = pOdznacVseClick
+    end
+    object pVyberVse: TMenuItem
+      Caption = '&Vybrat v'#353'e'
+      OnClick = pVyberVseClick
+    end
+  end
+end

frmReklamaceMat.dfm

@@ -0,0 +1,325 @@
+object formReklamaceMat: TformReklamaceMat
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = ' Reklamace - p'#345'esun MATERI'#193'LU'
+  ClientHeight = 533
+  ClientWidth = 792
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 14
+  object Label1: TLabel
+    Left = 5
+    Top = 5
+    Width = 69
+    Height = 16
+    Caption = 'REKLAMACE'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 5
+    Top = 253
+    Width = 53
+    Height = 16
+    Caption = 'P'#344'ESUNY'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object btnOK: TButton
+    Left = 586
+    Top = 499
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    TabOrder = 0
+    OnClick = btnOKClick
+  end
+  object btnStorno: TButton
+    Left = 708
+    Top = 499
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    TabOrder = 1
+    OnClick = btnStornoClick
+  end
+  object gridMat: TJvDBGrid
+    Left = 3
+    Top = 25
+    Width = 781
+    Height = 215
+    DataSource = dsMat
+    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -12
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDblClick = gridMatDblClick
+    ScrollBars = ssVertical
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 18
+    TitleRowHeight = 18
+    Columns = <
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'mSZ'
+        Title.Alignment = taCenter
+        Title.Caption = 'SK'
+        Width = 40
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'mRegCis'
+        Title.Alignment = taCenter
+        Title.Caption = 'Reg. '#269#237'slo'
+        Width = 115
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'mNazev'
+        Title.Caption = 'N'#225'zev'
+        Width = 535
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'mMnoz'
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'stv'#237
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'mIdSS'
+        Visible = False
+      end>
+  end
+  object gridCil: TJvDBGrid
+    Left = 5
+    Top = 272
+    Width = 779
+    Height = 215
+    DataSource = dsCil
+    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
+    PopupMenu = pmCil
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -12
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDblClick = gridCilDblClick
+    ScrollBars = ssVertical
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 18
+    TitleRowHeight = 18
+    Columns = <
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'cSZ'
+        Title.Alignment = taCenter
+        Title.Caption = 'SK'
+        Width = 40
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'cRegCis'
+        Title.Alignment = taCenter
+        Title.Caption = 'Reg. '#269#237'slo'
+        Width = 115
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cNazev'
+        Title.Caption = 'N'#225'zev'
+        Width = 295
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'cMnoz'
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'.'
+        Width = 65
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'cSklad'
+        Title.Alignment = taCenter
+        Title.Caption = 'Sklad'
+        Width = 110
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'cMnozPresun'
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'.skl.'
+        Width = 64
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'cMnozIT'
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'. IT'
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cIdSSOld'
+        Visible = False
+      end
+      item
+        Expanded = False
+        FieldName = 'cIdSSNew'
+        Visible = False
+      end
+      item
+        Expanded = False
+        FieldName = 'cIdSklad'
+        Visible = False
+      end>
+  end
+  object tblMat: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 38
+    Top = 110
+    object mIdSS: TIntegerField
+      FieldName = 'mIdSS'
+    end
+    object mSZ: TStringField
+      FieldName = 'mSZ'
+      Size = 3
+    end
+    object mRegCis: TStringField
+      FieldName = 'mRegCis'
+      Size = 30
+    end
+    object mNazev: TStringField
+      FieldName = 'mNazev'
+      Size = 100
+    end
+    object mMnoz: TFloatField
+      FieldName = 'mMnoz'
+      DisplayFormat = '#,##0.##'
+    end
+  end
+  object tblCil: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 68
+    Top = 321
+    object cIdSSOld: TIntegerField
+      FieldName = 'cIdSSOld'
+      Required = True
+    end
+    object cIdSSNew: TIntegerField
+      FieldName = 'cIdSSNew'
+    end
+    object cSZ: TStringField
+      FieldName = 'cSZ'
+      Required = True
+      Size = 3
+    end
+    object cRegCis: TStringField
+      FieldName = 'cRegCis'
+      Required = True
+      Size = 30
+    end
+    object cNazev: TStringField
+      FieldName = 'cNazev'
+      Required = True
+      Size = 100
+    end
+    object cMnoz: TFloatField
+      FieldName = 'cMnoz'
+      Required = True
+      DisplayFormat = '#,##0.##'
+    end
+    object cIdSklad: TStringField
+      FieldName = 'cIdSklad'
+      Size = 30
+    end
+    object cMnozPresun: TFloatField
+      FieldName = 'cMnozPresun'
+      DisplayFormat = '#,##0.##'
+    end
+    object cSklad: TStringField
+      FieldName = 'cSklad'
+      Size = 50
+    end
+    object tblCilcMnozIT: TFloatField
+      FieldName = 'cMnozIT'
+      DisplayFormat = '#,##0.##'
+    end
+  end
+  object dsMat: TDataSource
+    DataSet = tblMat
+    Left = 82
+    Top = 110
+  end
+  object dsCil: TDataSource
+    DataSet = tblCil
+    Left = 108
+    Top = 319
+  end
+  object pmCil: TPopupMenu
+    Left = 246
+    Top = 347
+    object pmDelCil: TMenuItem
+      Caption = '&Smazat polo'#382'ku'
+      OnClick = pmDelCilClick
+    end
+  end
+end

frmReklamaceMat.pas

@@ -0,0 +1,327 @@
+unit frmReklamaceMat;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Buttons, FireDAC.Comp.Client, Vcl.StdCtrls,
+  ddPlugin_TLB, Vcl.Menus, FireDAC.Stan.Intf, FireDAC.Stan.Option,
+  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet,
+  Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid;
+
+const
+   sklady: TArray<string> = ['20000101','20000101001','20000104','20000104001','20000106','20000106001','200','20000001001','20000107','20000107001'];
+   nazvy: TArray<string> = ['VDST','VDST REKL.','Pikl','Pikl REKL.','PCO','PCO REKL.','LOVATO V','DEMONTÁŽ','CHD','CHD REKL.'];
+type
+  TformReklamaceMat = class(TForm)
+    tblMat: TFDMemTable;
+    tblCil: TFDMemTable;
+    dsMat: TDataSource;
+    dsCil: TDataSource;
+    mIdSS: TIntegerField;
+    mNazev: TStringField;
+    mMnoz: TFloatField;
+    mSZ: TStringField;
+    mRegCis: TStringField;
+    cIdSSOld: TIntegerField;
+    cIdSSNew: TIntegerField;
+    cSZ: TStringField;
+    cRegCis: TStringField;
+    cNazev: TStringField;
+    cMnoz: TFloatField;
+    cIdSklad: TStringField;
+    cSklad: TStringField;
+    cMnozPresun: TFloatField;
+    btnOK: TButton;
+    btnStorno: TButton;
+    pmCil: TPopupMenu;
+    pmDelCil: TMenuItem;
+    Label1: TLabel;
+    Label2: TLabel;
+    tblCilcMnozIT: TFloatField;
+    gridMat: TJvDBGrid;
+    gridCil: TJvDBGrid;
+    procedure FormShow(Sender: TObject);
+    procedure btnStornoClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure pmDelCilClick(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure gridMatDblClick(Sender: TObject);
+    procedure gridCilDblClick(Sender: TObject);
+  private
+   procedure ImportStavuSkladu; safecall;
+  public
+   Helios: IHelios;
+  end;
+
+var
+  formDemontazMat: TformReklamaceMat;
+  oVar1: OleVariant;
+  vydejky: array[0..7] of integer;
+
+implementation
+uses System.StrUtils, helUtils;
+
+{$R *.dfm}
+
+
+ procedure TformReklamaceMat.ImportStavuSkladu;
+  var lSQL: string;
+  begin
+   lSQL:= 'SELECT ss.Id,kz.SkupZbo,kz.RegCis,kz.Nazev1,ss.Mnozstvi FROM ' + tblSS + ' ss INNER JOIN ' + tblKZ;
+   lSQL:= lSQL + ' kz ON (kz.Id=ss.IdKmenZbozi) WHERE ss.Mnozstvi>0 AND ss.IDSklad=N' + QuotedStr(Helios.Sklad);
+   lSQL:= lSQL + ' AND kz.Blokovano=0 AND kz.SkupZbo=N' + QuotedStr('MAT');
+   lSQL:= lSQL + ' ORDER BY kz.SkupZbo,kz.RegCis';
+   with Helios.OpenSQL(lSQL) do
+    if (RecordCount>0) then
+     begin
+      if not(tblMat.Active) then
+       tblMat.Open;
+      tblMat.DisableControls;
+      First;
+      while not(EOF) do
+       begin
+        tblMat.Append;
+         tblMat.FieldByName('mIdSS').AsString:= VarToStr(FieldValues(0));
+         tblMat.FieldByName('mSZ').AsString:= VarToStr(FieldValues(1));
+         tblMat.FieldByName('mRegCis').AsString:= VarToStr(FieldValues(2));
+         tblMat.FieldByName('mNazev').AsString:= VarToStr(FieldValues(3));
+         tblMat.FieldByName('mMnoz').AsFloat:= StrToFloat(VarToStr(FieldValues(4)));
+        tblMat.Post;
+        Next;
+       end;
+      tblMat.First;
+      tblMat.EnableControls;
+     end;
+  end;
+
+
+
+ procedure TformReklamaceMat.pmDelCilClick(Sender: TObject);
+  begin
+   if Helios.YesNo('Opravdu smazat položku ?',false) then
+    begin
+     tblMat.Append;
+      tblMat.FieldByName('mIdSS').AsInteger:= tblCil.FieldByName('cIdSSOld').AsInteger;
+      tblMat.FieldByName('mSZ').AsString:= tblCil.FieldByName('cSZ').AsString;
+      tblMat.FieldByName('mRegCis').AsString:= tblCil.FieldByName('cRegCis').AsString;
+      tblMat.FieldByName('mNazev').AsString:= tblCil.FieldByName('cNazev').AsString;
+      tblMat.FieldByName('mMnoz').AsFloat:= tblCil.FieldByName('cMnoz').AsFloat;
+     tblMat.Post;
+     tblCil.Delete;
+
+     gridMat.LockDrawing;
+     tblMat.IndexFieldNames:= 'mSZ;mRegCis';
+     tblmat.Refresh;
+     gridMat.UnlockDrawing;
+    end;
+  end;
+
+
+
+ procedure TformReklamaceMat.btnOKClick(Sender: TObject);
+  var lSQL: string;
+  begin
+   if (tblCil.RecordCount>0) then
+    begin
+     tblCil.DisableControls;
+
+     lSQL:= 'IF OBJECT_ID(N' + QuotedStr('dbo._TabReklamaceMat') + ') IS NOT NULL DROP TABLE dbo._TabReklamaceMat' + CRLF;
+     lSQL:= lSQL + 'CREATE TABLE dbo._TabReklamaceMat (IdSSOld INT NOT NULL,IdSSNew INT,SkupZbo NVARCHAR(3),';
+     lSQL:= lSQL + 'RegCis NVARCHAR(30),Nazev1 NVARCHAR(100),Mnozstvi NUMERIC(19,6), Sklad NVARCHAR(30),';
+     lSQL:= lSQL + 'IdSklad NVARCHAR(20), MnozPrev NUMERIC(19,6), MnozIT NUMERIC(19,6))';
+     Helios.ExecSQL(lSQL);
+     tblCil.First;
+     while not(tblCil.Eof) do
+      begin
+       lSQL:= 'INSERT dbo._TabReklamaceMat (IdSSOld,SkupZbo,RegCis,Nazev1,Mnozstvi,Sklad,IdSklad,MnozPrev,MnozIT) VALUES  (';
+       lSQL:= lSQL + tblCil.FieldByName('cIdSSOld').AsString + ',N' + QuotedStr(tblCil.FieldByName('cSZ').AsString);
+       lSQL:= lSQL + ',N' + QuotedStr(tblCil.FieldByName('cRegCis').AsString) + ',N' + QuotedStr(tblCil.FieldByName('cNazev').AsString);
+       lSQL:= lSQL + ',' + StringReplace(tblCil.FieldByName('cMnoz').AsString,',','.',[rfReplaceAll]);
+       lSQL:= lSQL + ',N' + QuotedStr(tblCil.FieldByName('cSklad').AsString) + ',N';
+       lSQL:= lSQL + QuotedStr(IfThen(tblCil.FieldByName('cSklad').AsString='DEMONTÁŽ', '20000001001', tblCil.FieldByName('cIdSklad').AsString));
+       lSQL:= lSQL + ',' + IfThen(tblCil.FieldByName('cMnozPresun').AsString='','0',StringReplace(tblCil.FieldByName('cMnozPresun').AsString,',','.',[rfReplaceAll]));
+       lSQL:= lSQL + ',' + IfThen(tblCil.FieldByName('cMnozIT').AsString='','0',StringReplace(tblCil.FieldByName('cMnozIT').AsString,',','.',[rfReplaceAll]));
+       lSQL:= lSQL + ')';
+       try
+         Helios.ExecSQL(lSQL);
+        except
+       end;
+       tblCil.Next;
+      end;
+
+     tblCil.EnableControls;
+     Helios.ExecSQL('INSERT #TabExtKom(Poznamka) EXEC dbo.ep_ReklamaceMatDilce');
+    end;
+   Close;
+  end;
+
+
+
+ procedure TformReklamaceMat.btnStornoClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+
+
+ procedure TformReklamaceMat.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   if (tblMat.Active) then
+    tblMat.Close;
+   if (tblCil.Active) then
+    tblCil.Close;
+   Action:= caFree;
+  end;
+
+
+
+ procedure TformReklamaceMat.FormShow(Sender: TObject);
+  begin
+   ImportStavuSkladu;
+  end;
+
+
+
+ procedure TformReklamaceMat.gridCilDblClick (Sender: TObject);
+  var podm: string;
+      iR, iC: integer;
+      skl, strMn, sql, cisSkl: string;
+      jc, mn, mnOld, mnSkl, mnIT: Extended;
+      clCol, clRow: integer;
+      fldName: string;
+  begin
+   clCol:= gridCil.MouseCoord (Mouse.CursorPos.X - gridCil.ClientOrigin.X, Mouse.CursorPos.Y - gridCil.ClientOrigin.Y).X;
+   clRow:= gridCil.MouseCoord (Mouse.CursorPos.X - gridCil.ClientOrigin.X, Mouse.CursorPos.Y - gridCil.ClientOrigin.Y).X;
+   if (clRow>0) and (clCol>0) and (tblCil.RecordCount>0) then
+    begin
+     fldName:= gridCil.Columns[clCol].FieldName;
+
+     case helUtils.StringToCaseSelect(fldName, ['cSklad', 'cMnozPresun', 'cMnozIT']) of
+      0: begin // cilovy sklad
+          skl:= '';
+          cisSkl:= '';
+          podm:= 'TabStrom.Cislo IN (N' + QuotedStr('200') + ',N' + QuotedStr('20000101') + ',N' + QuotedStr('20000101001');
+          podm:= podm + ',N' + QuotedStr('20000104') + ',N' + QuotedStr('20000104001') + ',N' + QuotedStr('20000106');
+          podm:= podm + ',N' + QuotedStr('20000106001') + ',N' + QuotedStr('20000001001') + ')';
+          if Helios.Prenos(bidStrom,'Cislo',oVar1,podm,'Vyberte cílový sklad',true) then
+           cisSkl:= VarToStr(oVar1);
+          case sStrIndex(cisSkl,sklady) of
+           0: skl:= nazvy[0];
+           1: skl:= nazvy[1];
+           2: skl:= nazvy[2];
+           3: skl:= nazvy[3];
+           4: skl:= nazvy[4];
+           5: skl:= nazvy[5];
+           6: skl:= nazvy[6];
+           7: skl:= nazvy[7];
+          end;
+          if (skl='') then
+           skl:= nazvy[7];
+          tblCil.Edit;
+           tblCil.FieldByName('cSklad').AsString:= skl;
+           tblCil.FieldByName('cIdSklad').AsString:= cisSkl;
+          tblCil.Post;
+         end;
+
+      1: begin
+          jc:= 0;
+          mnOld:= tblCil.FieldByName('cMnoz').AsExtended;
+          mn:= 0;
+          mnSkl:= 0;
+          mnIT:= 0;
+
+          if not(VarIsNull(tblCil.FieldByName('cMnozPresun').AsVariant)) then
+           mnSkl:= tblCil.FieldByName('cMnozPresun').AsExtended;
+          if not(VarIsNull(tblCil.FieldByName('cMnozIT').AsVariant)) then
+           mnIT:= tblCil.FieldByName('cMnozIT').AsExtended;
+
+          if (mnSkl>0) then
+           mn:= mnSkl;
+          if (FormMnozstviCena('Množství na vybraný sklad',mn,jc,false,false)) then
+           begin
+            if (mn>=0) then
+             begin
+              if (mn<=mnOld) then
+                begin
+                 tblCil.DisableControls;
+                  tblCil.Edit;
+                  if (mn=0) then
+                    tblCil.FieldByName('cMnozPresun').AsString:= ''
+                   else
+                    tblCil.FieldByName('cMnozPresun').AsExtended:= mn;
+                  tblCil.Post;
+                 tblCil.EnableControls;
+                end
+               else
+                Helios.Error(#1'Nelze zadat množství vyšší než demontované.'#1);
+             end;
+           end;
+         end;
+
+      2: begin
+          jc:= 0;
+          mnOld:= tblCil.FieldByName('cMnoz').AsExtended;
+          mn:= 0;
+          mnSkl:= 0;
+          mnIT:= 0;
+
+          if not(VarIsNull(tblCil.FieldByName('cMnozPresun').AsVariant)) then
+           mnSkl:= tblCil.FieldByName('cMnozPresun').AsExtended;
+          if not(VarIsNull(tblCil.FieldByName('cMnozIT').AsVariant)) then
+           mnIT:= tblCil.FieldByName('cMnozIT').AsExtended;
+
+          if (mnIT>0) then
+           mn:= mnIT;
+          if (FormMnozstviCena('Množství na výdejku IT',mn,jc,false,false)) then
+           begin
+            if (mn>=0) then
+             begin
+              if (mn+mnSkl<=mnOld) then
+                begin
+                 tblCil.DisableControls;
+                  tblCil.Edit;
+                  if (mn=0) then
+                    tblCil.FieldByName('cMnozIT').AsString:= ''
+                   else
+                    tblCil.FieldByName('cMnozIT').AsExtended:= mn;
+                  tblCil.Post;
+                 tblCil.EnableControls;
+                end
+               else
+                Helios.Error(#1'Nelze zadat množství vyšší než demontované.'#1);
+             end;
+           end;
+         end;
+     end;
+    end;
+  end;
+
+
+
+
+ procedure TformReklamaceMat.gridMatDblClick (Sender: TObject);
+  begin
+   if not(tblMat.Active) then
+    tblMat.Open;
+
+   if (tblMat.RecordCount>0) then
+    begin
+     if not(tblCil.Active) then
+      tblCil.Open;
+     tblCil.Append;
+      tblCil.FieldByName('cIdSSOld').AsString:= tblMat.FieldByName('mIdSS').AsString;
+      tblCil.FieldByName('cSZ').AsString:= tblMat.FieldByName('mSZ').AsString;
+      tblCil.FieldByName('cRegCis').AsString:= tblMat.FieldByName('mRegCis').AsString;
+      tblCil.FieldByName('cNazev').AsString:= tblMat.FieldByName('mNazev').AsString;
+      tblCil.FieldByName('cMnoz').AsFloat:= tblMat.FieldByName('mMnoz').AsFloat;
+      if (tblMat.FieldByName('mSZ').AsString='MAT') then
+       tblCil.FieldByName('cSklad').AsString:= 'DEMONTÁŽ';
+     tblCil.Post;
+     tblMat.Delete;
+    end;
+  end;
+
+
+
+ end.

frmUnit1.dfm

@@ -0,0 +1,8 @@
+object formUnit1: TformImportEP
+  Left = 196
+  Top = 237
+  BorderStyle = bsDialog
+  Caption = 'Obchodn'#237' kalkulace'
+  ClientHeight = 543
+  ClientWidth = 1009
+end

frmUnit1.pas

@@ -0,0 +1,21 @@
+unit frmUnit1;
+
+interface
+
+uses
+  Windows, Variants, Classes, Controls, Forms, SysUtils, ddPlugin_TLB, StdCtrls;
+
+type
+  TformImportEP = class(TForm)
+    private
+    public
+     Helios : IHelios;
+   end;
+
+var
+  formImportEP: TformImportEP;
+
+implementation
+
+{$R *.dfm}
+ end.

frmUnit11.dfm

@@ -0,0 +1,291 @@
+object formStavSklHromZmeny: TformStavSklHromZmeny
+  Left = 196
+  Top = 237
+  BorderIcons = [biSystemMenu]
+  Caption = '   Hromadn'#233' zm'#283'ny'
+  ClientHeight = 297
+  ClientWidth = 344
+  Color = clBtnFace
+  Constraints.MaxHeight = 335
+  Constraints.MaxWidth = 360
+  Constraints.MinHeight = 335
+  Constraints.MinWidth = 360
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object btnOK: TButton
+    Left = 152
+    Top = 264
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    ModalResult = 1
+    TabOrder = 0
+    OnClick = btnOKClick
+  end
+  object btnStorno: TButton
+    Left = 260
+    Top = 264
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    TabOrder = 1
+    OnClick = btnStornoClick
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 9
+    Width = 327
+    Height = 247
+    Caption = '  Zm'#283'ny  '
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 20
+      Top = 30
+      Width = 44
+      Height = 13
+      Caption = 'Polo'#382'ka'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 164
+      Top = 30
+      Width = 78
+      Height = 13
+      Caption = 'Nov'#225' hodnota'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 256
+      Top = 30
+      Width = 40
+      Height = 13
+      Caption = 'Zm'#283'nit'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 20
+      Top = 53
+      Width = 77
+      Height = 13
+      Caption = 'Minimum skladu:'
+    end
+    object Label5: TLabel
+      Left = 16
+      Top = 80
+      Width = 81
+      Height = 13
+      Caption = 'Maximum skladu:'
+    end
+    object Label6: TLabel
+      Left = 44
+      Top = 133
+      Width = 53
+      Height = 13
+      Caption = 'Blokov'#225'no:'
+    end
+    object Label7: TLabel
+      Left = 37
+      Top = 160
+      Width = 60
+      Height = 13
+      Caption = 'Kontrola V'#268':'
+    end
+    object Label8: TLabel
+      Left = 31
+      Top = 187
+      Width = 66
+      Height = 13
+      Caption = 'K'#243'd '#250#269'tov'#225'n'#237':'
+    end
+    object Label9: TLabel
+      Left = 20
+      Top = 106
+      Width = 77
+      Height = 13
+      Caption = 'Zadan'#253' pr'#367'm'#283'r:'
+    end
+    object cbJedenRadek: TCheckBox
+      Left = 13
+      Top = 220
+      Width = 117
+      Height = 17
+      Caption = 'Pouze aktu'#225'ln'#237' '#345#225'dek'
+      Enabled = False
+      TabOrder = 12
+      Visible = False
+    end
+    object cbMin: TComboBox
+      Left = 250
+      Top = 50
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 1
+      TabOrder = 1
+      Text = '     Ne'
+      Items.Strings = (
+        '    Ano'
+        '     Ne')
+    end
+    object edtMin: TRzNumericEdit
+      Left = 144
+      Top = 50
+      Width = 93
+      Height = 21
+      MaxLength = 8
+      TabOrder = 0
+      CalculatorVisible = True
+      IntegersOnly = False
+      DisplayFormat = ',0;-,0'
+    end
+    object edtMax: TRzNumericEdit
+      Left = 144
+      Top = 77
+      Width = 93
+      Height = 21
+      MaxLength = 8
+      TabOrder = 2
+      CalculatorVisible = True
+      IntegersOnly = False
+      DisplayFormat = ',0;-,0'
+    end
+    object cbMax: TComboBox
+      Left = 250
+      Top = 77
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 1
+      TabOrder = 3
+      Text = '     Ne'
+      Items.Strings = (
+        '    Ano'
+        '     Ne')
+    end
+    object cbBlokVal: TComboBox
+      Left = 124
+      Top = 130
+      Width = 113
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 0
+      TabOrder = 6
+      Text = '     B'#283#382'n'#253' z'#225'znam'
+      Items.Strings = (
+        '     B'#283#382'n'#253' z'#225'znam'
+        '    Archivn'#237' z'#225'znam')
+    end
+    object cbBlok: TComboBox
+      Left = 250
+      Top = 130
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 1
+      TabOrder = 7
+      Text = '     Ne'
+      Items.Strings = (
+        '    Ano'
+        '     Ne')
+    end
+    object cbVCVal: TComboBox
+      Left = 124
+      Top = 157
+      Width = 113
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 0
+      TabOrder = 8
+      Text = '              Ne'
+      Items.Strings = (
+        '              Ne'
+        '             Ano'
+        '      Ano s hl'#237'd'#225'n'#237'm')
+    end
+    object cbVC: TComboBox
+      Left = 250
+      Top = 157
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 1
+      TabOrder = 9
+      Text = '     Ne'
+      Items.Strings = (
+        '    Ano'
+        '     Ne')
+    end
+    object cbKontace: TComboBox
+      Left = 250
+      Top = 184
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 1
+      TabOrder = 11
+      Text = '     Ne'
+      Items.Strings = (
+        '    Ano'
+        '     Ne')
+    end
+    object selKontace: TRzButtonEdit
+      Left = 124
+      Top = 184
+      Width = 113
+      Height = 21
+      Alignment = taCenter
+      TabOrder = 10
+      AltBtnWidth = 15
+      ButtonWidth = 15
+      OnButtonClick = selKontaceButtonClick
+    end
+    object edtPrumer: TRzNumericEdit
+      Left = 144
+      Top = 103
+      Width = 93
+      Height = 21
+      MaxLength = 8
+      TabOrder = 4
+      CalculatorVisible = True
+      IntegersOnly = False
+      DisplayFormat = ',0;-,0'
+    end
+    object cbPrumer: TComboBox
+      Left = 250
+      Top = 103
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 1
+      TabOrder = 5
+      Text = '     Ne'
+      Items.Strings = (
+        '    Ano'
+        '     Ne')
+    end
+  end
+end

frmUnit11.pas

@@ -0,0 +1,163 @@
+unit frmUnit11;
+
+interface
+
+uses
+  Windows, Variants, Classes, Controls, Forms, SysUtils, ddPlugin_TLB, StdCtrls, RzEdit, RzBtnEdt, Vcl.Mask;
+
+type
+  TformStavSklHromZmeny = class(TForm)
+    btnOK: TButton;
+    btnStorno: TButton;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    cbJedenRadek: TCheckBox;
+    Label4: TLabel;
+    Label5: TLabel;
+    cbMin: TComboBox;
+    edtMin: TRzNumericEdit;
+    edtMax: TRzNumericEdit;
+    cbMax: TComboBox;
+    Label6: TLabel;
+    cbBlokVal: TComboBox;
+    cbBlok: TComboBox;
+    cbVCVal: TComboBox;
+    cbVC: TComboBox;
+    Label7: TLabel;
+    Label8: TLabel;
+    cbKontace: TComboBox;
+    selKontace: TRzButtonEdit;
+    Label9: TLabel;
+    edtPrumer: TRzNumericEdit;
+    cbPrumer: TComboBox;
+    procedure btnStornoClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure selKontaceButtonClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    private
+    public
+     Helios : IHelios;
+     arrId: TArray<integer>;
+   end;
+
+var
+  formStSklHrZmen: TformStavSklHromZmeny;
+  oVar1, oVar2: OleVariant;
+
+implementation
+
+uses helUtils;
+
+{$R *.dfm}
+ procedure TformStavSklHromZmeny.btnOKClick(Sender: TObject);
+  var i: integer;
+      lSQL: WideString;
+      id: ShortString;
+  begin
+   if Length(arrId)>0 then
+    begin
+     for i:=Low(arrId) to High(arrId) do
+      begin
+       id:= IntToStr(arrId[i]);
+       lSQL:= '';
+       if cbMin.ItemIndex=0 then
+        lSQL:= lSQL + 'Minimum=' + StringReplace(FloatToStr(edtMin.Value),'','',[rfReplaceAll]) + ',';
+       if cbMax.ItemIndex=0 then
+        lSQL:= lSQL + 'Maximum=' + StringReplace(FloatToStr(edtMax.Value),'','',[rfReplaceAll]) + ',';
+       if cbPrumer.ItemIndex=0 then
+        lSQL:= lSQL + 'PrumerZadany=' + StringReplace(FloatToStr(edtPrumer.Value),'','',[rfReplaceAll]) + ',';
+       if cbBlok.ItemIndex=0 then
+        lSQL:= lSQL + 'Blokovano=' + IntToStr(cbBlokVal.ItemIndex) + ',';
+       if cbVC.ItemIndex=0 then
+        begin
+         lSQL:= lSQL + 'KontrolaVC=N''';
+         case cbVCVal.ItemIndex of
+          0: lSQL:= lSQL + 'N';
+          1: lSQL:= lSQL + 'A';
+          2: lSQL:= lSQL + 'B';
+         end;
+         lSQL:= lSQL + ''',';
+        end;
+       if cbKontace.ItemIndex=0 then
+        lSQL:= lSQL + 'UKod=' + Trim(selKontace.Text) + ',';
+       if (lSQL<>'') then
+        SetLength(lSQL,Length(lSQL)-1);
+       lSQL:= 'UPDATE ' + tblSS + ' SET ' + lSQL + ' WHERE id=' + id;
+       try
+         Helios.ExecSQL(lSQL);
+        except on E:Exception do
+         Helios.ExecSQL('INSERT #TabExtKom VALUES (N' + QuotedStr('Nelze aktualizovat záznam id '
+          + id + ' : ' + E.ClassName + ' : ' + E.Message) + ')');
+       end;
+      end;
+    end;
+  end;
+
+ procedure TformStavSklHromZmeny.btnStornoClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+ procedure TformStavSklHromZmeny.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+  end;
+
+ procedure TformStavSklHromZmeny.FormShow(Sender: TObject);
+  var lSQL: WideString;
+      edtCol, idx: integer;
+  begin
+   Self.Icon.Handle:= Helios.MainApplicationIconHandle;
+
+{$REGION 'Nastav FontSize a edit Col'}
+   edtCol:= $FFFF; // clYellow
+   with Helios.OpenSQL('SELECT BarvaPodbarveni FROM ' + tblUziv + ' WHERE BarevnePodbarveni=1 AND LoginName=N' + QuotedStr(Helios.LoginName)) do
+    if RecordCount>0 then
+     edtCol:= StrToInt(VarToStr(FieldValues(0)));
+
+   Self.Font.Name:= Helios.Font;
+   Self.Font.Height:= Helios.FontHeight;
+   idx:= 0;
+   while idx<Self.ComponentCount-1 do
+    begin
+     if (Self.Components[idx] is TLabel) then
+      begin
+       (Self.Components[idx] as TLabel).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TLabel).Font.Height:= Helios.FontHeight;
+      end;
+     if (Self.Components[idx] is TRzEdit) then
+      begin
+       (Self.Components[idx] as TRzEdit).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TRzEdit).Font.Height:= Helios.FontHeight;
+       (Self.Components[idx] as TRzEdit).FocusColor:= edtCol;
+      end;
+     if (Self.Components[idx] is TRzNumericEdit) then
+      begin
+       (Self.Components[idx] as TRzNumericEdit).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TRzNumericEdit).Font.Height:= Helios.FontHeight;
+       (Self.Components[idx] as TRzNumericEdit).FocusColor:= edtCol;
+      end;
+     if (Self.Components[idx] is TButton) then
+      begin
+       (Self.Components[idx] as TButton).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TButton).Font.Height:= Helios.FontHeight;
+      end;
+     Inc(idx);
+    end;
+{$ENDREGION}
+
+   lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabExtKom') + ',N' + QuotedStr('U') + ') IS NULL' + CRLF;
+   lSQL:= lSQL + 'CREATE TABLE #TabExtKom(Poznamka NVARCHAR(255) NOT NULL)';
+   Helios.ExecSQL(lSQL);
+  end;
+
+ procedure TformStavSklHromZmeny.selKontaceButtonClick(Sender: TObject);
+  begin
+   if Helios.Prenos(bidSUKod,'id',oVar1,'','Skupiny úèetních kódù',true) then
+    selKontace.Text:= VarToStr(oVar1);
+  end;
+
+end.

frmUnit12.dfm

@@ -0,0 +1,92 @@
+object frmRozdelMat: TfrmRozdelMat
+  Left = 0
+  Top = 0
+  Caption = '  Rozd'#283'len'#237' materi'#225'lu'
+  ClientHeight = 440
+  ClientWidth = 1030
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnResize = FormResize
+  OnShow = FormShow
+  TextHeight = 13
+  object btnQuit: TButton
+    Left = 929
+    Top = 398
+    Width = 90
+    Height = 25
+    Caption = 'Storno'
+    Default = True
+    ModalResult = 2
+    TabOrder = 0
+    OnClick = btnQuitClick
+  end
+  object btnPrevod: TButton
+    Left = 767
+    Top = 398
+    Width = 101
+    Height = 25
+    Caption = 'Generuj p'#345'evodky'
+    ModalResult = 1
+    TabOrder = 1
+  end
+  object gRozpad2: TJvDBGrid
+    Left = 2
+    Top = 6
+    Width = 1020
+    Height = 375
+    DataSource = dsRozpad2
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDrawColumnCell = gRozpad2DrawColumnCell
+    OnKeyUp = gRozpad2KeyUp
+    OnMouseMove = gRozpad2MouseMove
+    OnEditChange = gRozpad2EditChange
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 17
+    TitleRowHeight = 17
+  end
+  object dsRozpad: TDataSource
+    DataSet = tabRozpad
+    Left = 598
+    Top = 380
+  end
+  object tabRozpad: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 524
+    Top = 380
+  end
+  object dsRozpad2: TDataSource
+    DataSet = tabRozpad2
+    Left = 286
+    Top = 376
+  end
+  object tabRozpad2: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 206
+    Top = 378
+  end
+end

frmUnit13.dfm

@@ -0,0 +1,143 @@
+object formPrevPrij: TformPrevPrij
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = ' Oprava P'#345'evodky / P'#345#237'jemky'
+  ClientHeight = 348
+  ClientWidth = 601
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 16
+  object btnOK: TButton
+    Left = 396
+    Top = 315
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    TabOrder = 0
+    OnClick = btnOKClick
+  end
+  object btnCancel: TButton
+    Left = 518
+    Top = 315
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    TabOrder = 1
+    OnClick = btnCancelClick
+  end
+  object grdPrijemky: TJvDBGrid
+    Left = 8
+    Top = 16
+    Width = 585
+    Height = 290
+    DataSource = ds1
+    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -13
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDrawColumnCell = grdPrijemkyDrawColumnCell
+    OnDblClick = grdPrijemkyDblClick
+    ScrollBars = ssVertical
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 20
+    TitleRowHeight = 20
+    Columns = <
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'SZ'
+        Title.Alignment = taCenter
+        Title.Caption = 'SK'
+        Width = 50
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'RegCis'
+        Title.Alignment = taCenter
+        Title.Caption = 'Registra'#269'n'#237' '#269#237'slo'
+        Width = 120
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Nazev1'
+        Title.Caption = 'N'#225'zev'
+        Width = 310
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'Mnoz'
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'stv'#237
+        Width = 80
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'idPZ'
+        Visible = False
+      end
+      item
+        Expanded = False
+        FieldName = 'idPZold'
+        Visible = False
+      end>
+  end
+  object vTab1: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 194
+    Top = 2
+    object vTab1idPZ: TIntegerField
+      FieldName = 'idPZ'
+    end
+    object vTab1SZ: TStringField
+      FieldName = 'SZ'
+      Size = 3
+    end
+    object vTab1RegCis: TStringField
+      FieldName = 'RegCis'
+      Size = 30
+    end
+    object vTab1Nazev1: TStringField
+      FieldName = 'Nazev1'
+      Size = 100
+    end
+    object vTab1Mnoz: TFloatField
+      FieldName = 'Mnoz'
+      DisplayFormat = '#,##0.###'
+    end
+    object vTab1idPZold: TIntegerField
+      FieldName = 'idPZold'
+      Visible = False
+    end
+  end
+  object ds1: TDataSource
+    DataSet = vTab1
+    Left = 242
+    Top = 4
+  end
+end

frmUnit13.pas

@@ -0,0 +1,185 @@
+unit frmUnit13;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, FireDAC.Comp.Client, ddPlugin_TLB,
+  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
+  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids,
+  JvExDBGrids, JvDBGrid;
+
+type
+  TformPrevPrij = class(TForm)
+    vTab1: TFDMemTable;
+    ds1: TDataSource;
+    btnOK: TButton;
+    btnCancel: TButton;
+    vTab1idPZ: TIntegerField;
+    vTab1SZ: TStringField;
+    vTab1RegCis: TStringField;
+    vTab1Nazev1: TStringField;
+    vTab1Mnoz: TFloatField;
+    vTab1idPZold: TIntegerField;
+    grdPrijemky: TJvDBGrid;
+    procedure FormShow (Sender: TObject);
+    procedure btnCancelClick (Sender: TObject);
+    procedure btnOKClick (Sender: TObject);
+    procedure FormClose (Sender: TObject; var Action: TCloseAction);
+    procedure grdPrijemkyDblClick (Sender: TObject);
+    procedure grdPrijemkyDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
+  private
+   procedure NactiPrijemku;
+  public
+   Helios: IHelios;
+   idDZ: integer;
+   idDZold: integer;
+  end;
+
+var
+  formPrevPrij: TformPrevPrij;
+
+implementation
+uses myUtils, helUtils;
+
+{$R *.dfm}
+
+ procedure TformPrevPrij.btnCancelClick (Sender: TObject);
+  begin
+   Close;
+  end;
+
+
+
+ procedure TformPrevPrij.NactiPrijemku;
+  var sql: string;
+      c: TCloseAction;
+  begin
+   if (idDZ>0) then
+     begin
+      with Helios.OpenSQL('SELECT RadaDokladu,CONVERT(nvarchar,PoradoveCislo) FROM ' + tblDZ + ' WHERE id=' + IntToStr(idDZ)) do
+       begin
+        sql:= ' Oprava Pøevodky/Pøíjemky : ' + VarHodnota(FieldValues(0),'') + ' ';
+        sql:= sql + VarHodnota(FieldValues(1),'');
+        Self.Caption:= sql;
+       end;
+
+      if not vTab1.Active then
+       vTab1.Open;
+      sql:= 'SELECT id,SkupZbo,RegCis,Nazev1,Mnozstvi,ISNULL(IdOldPolozka,0) FROM ' + tblPZ;
+      sql:= sql + ' WHERE IdDoklad=' + IntToStr(idDZ) + ' ORDER BY DatPorizeni';
+      with Helios.OpenSQL(sql) do
+       begin
+        First;
+        while not(EOF) do
+         begin
+          vTab1.Append;
+           vTab1.FieldByName('idPZ').AsInteger:= VarHodnota(FieldValues(0),0);
+           vTab1.FieldByName('SZ').AsString:= VarHodnota(FieldValues(1),'');
+           vTab1.FieldByName('RegCis').AsString:= VarHodnota(FieldValues(2),'');
+           vTab1.FieldByName('Nazev1').AsString:= VarHodnota(FieldValues(3),'');
+           vTab1.FieldByName('Mnoz').AsExtended:= VarHodnota(FieldValues(4),0.0);
+           vTab1.FieldByName('idPZOld').AsInteger:= VarHodnota(FieldValues(5),0);
+          vTab1.Post;
+          Next;
+         end;
+        vTab1.RecNo:= 1;
+       end;
+     end
+    else
+     Helios.Error(#1'Nebyla vybrána žádná pøíjemka.'#1);
+  end;
+
+
+
+ procedure TformPrevPrij.grdPrijemkyDblClick(Sender: TObject);
+  var mn: Extended;
+  begin
+   if not(VarIsNull(vTab1.FieldByName('Mnoz').Value)) then
+     mn:= vTab1.FieldByName('Mnoz').AsExtended
+    else
+     mn:= 0;
+   if InputNumeric('Zadejte množství','Nové množství:',mn) then
+    begin
+     vTab1.Edit;
+      vTab1.FieldByName('Mnoz').AsExtended:= mn;
+     vTab1.Post;
+    end;
+  end;
+
+
+
+ procedure TformPrevPrij.grdPrijemkyDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
+  begin
+   if (gdSelected in State) then
+    begin
+     TJvDBGrid(Sender).Canvas.Font.Color:= clWhite;
+     TJvDBGrid(Sender).Canvas.Brush.Color:= $00FF9933;
+    end;
+   TJvDBGrid(Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);
+  end;
+
+
+
+ procedure TformPrevPrij.btnOKClick (Sender: TObject);
+  var idx: integer;
+      sql: string;
+  begin
+   try
+     if (vTab1.RecordCount>0) then
+      begin
+       idx:= 0;
+       vTab1.First;
+       while not(vTab1.Eof) do
+        begin
+         sql:= 'UPDATE ' + tblPZ + ' SET Mnozstvi=' + StringReplace(vTab1.FieldByName('Mnoz').AsString,'','',[rfReplaceAll]);
+         sql:= sql + ' WHERE id=' + vTab1.FieldByName('idPZ').AsString;
+         Helios.ExecSQL(sql);
+         sql:= 'UPDATE ' + tblPZ + ' SET CCbezDaniKc=JcBezDaniKc*Mnozstvi,CCsDPHKc=JcBezDaniKc*Mnozstvi,CCbezDaniVal=JcBezDaniKc*Mnozstvi,';
+         sql:= sql + 'CCsDPHVal=JcBezDaniKc*Mnozstvi,CCbezDaniKcPoS=JcBezDaniKc*Mnozstvi,CCsDPHKcPoS=JcBezDaniKc*Mnozstvi,';
+         sql:= sql + 'CCbezDaniValPoS=JcBezDaniKc*Mnozstvi,CCsDPHValPoS=JcBezDaniKc*Mnozstvi,CCsSDKc=JcBezDaniKc*Mnozstvi,';
+         sql:= sql + 'CCsSDVal=JcBezDaniKc*Mnozstvi,BlokovaniEditoru=NULL WHERE id=' + vTab1.FieldByName('idPZ').AsString;
+         Helios.ExecSQL(sql);
+
+         sql:= 'UPDATE ' + tblPZ + ' SET Mnozstvi=' + StringReplace(vTab1.FieldByName('Mnoz').AsString,'','',[rfReplaceAll]);
+         sql:= sql + ' WHERE id=' + vTab1.FieldByName('idPZold').AsString;
+         Helios.ExecSQL(sql);
+         sql:= 'UPDATE ' + tblPZ + ' SET CCbezDaniKc=JcBezDaniKc*Mnozstvi,CCsDPHKc=JcBezDaniKc*Mnozstvi,CCbezDaniVal=JcBezDaniKc*Mnozstvi,';
+         sql:= sql + 'CCsDPHVal=JcBezDaniKc*Mnozstvi,CCbezDaniKcPoS=JcBezDaniKc*Mnozstvi,CCsDPHKcPoS=JcBezDaniKc*Mnozstvi,';
+         sql:= sql + 'CCbezDaniValPoS=JcBezDaniKc*Mnozstvi,CCsDPHValPoS=JcBezDaniKc*Mnozstvi,CCsSDKc=JcBezDaniKc*Mnozstvi,';
+         sql:= sql + 'CCsSDVal=JcBezDaniKc*Mnozstvi,BlokovaniEditoru=NULL WHERE id=' + vTab1.FieldByName('idPZold').AsString;
+         Helios.ExecSQL(sql);
+         vTab1.Next;
+        end;
+       Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=1');
+       Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZ));
+       Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZold) + ',@AktualizaceSlev=1');
+       Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZold));
+      end;
+     Close;
+    finally
+   end;
+  end;
+
+
+
+
+ procedure TformPrevPrij.FormClose (Sender: TObject; var Action: TCloseAction);
+  begin
+   if (vTab1.Active) then
+    vTab1.Close;
+   Helios.Refresh (true);
+   Action:= caFree;
+  end;
+
+
+
+ procedure TformPrevPrij.FormShow(Sender: TObject);
+  begin
+   grdPrijemky.Font.Size:= Helios.FontHeight;
+   grdPrijemky.Font.Name:= Helios.Font;
+   NactiPrijemku;
+  end;
+
+
+end.

frmUnit15.dfm

@@ -0,0 +1,200 @@
+object formOdvodRele: TformOdvodRele
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = ' Odvod Pr'#225'ce'
+  ClientHeight = 295
+  ClientWidth = 377
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lblKusy: TLabel
+    Left = 8
+    Top = 167
+    Width = 92
+    Height = 16
+    Caption = 'Vyroben'#233' kusy :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblDilecPrikaz: TLabel
+    Left = 45
+    Top = 134
+    Width = 55
+    Height = 16
+    Caption = 'V'#253'robek :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblZamest: TLabel
+    Left = 15
+    Top = 98
+    Width = 85
+    Height = 16
+    Caption = 'Zam'#283'stnanec :'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Panel1: TPanel
+    Left = 6
+    Top = 67
+    Width = 361
+    Height = 218
+    Caption = 'Panel1'
+    TabOrder = 2
+    DesignSize = (
+      361
+      218)
+    object pgControl: TPageControl
+      Left = 0
+      Top = -21
+      Width = 361
+      Height = 238
+      ActivePage = tbVyrobek
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      TabOrder = 0
+      object tbVyrobek: TTabSheet
+        Caption = 'tbVyrobek'
+      end
+      object tbPrikaz: TTabSheet
+        Caption = 'tbPrikaz'
+        ImageIndex = 1
+      end
+    end
+  end
+  object btnPrikaz: TButton
+    Left = 221
+    Top = 8
+    Width = 129
+    Height = 45
+    Caption = 'Odvod &P'#345#237'kazu'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 0
+    OnClick = btnPrikazClick
+  end
+  object btnVyrobek: TButton
+    Left = 28
+    Top = 8
+    Width = 129
+    Height = 45
+    Caption = 'Odvod &V'#253'robku'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 1
+    OnClick = btnVyrobekClick
+  end
+  object selZamest: TRzButtonEdit
+    Left = 127
+    Top = 95
+    Width = 88
+    Height = 24
+    Text = '0'
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 6
+    ParentFont = False
+    TabOrder = 3
+    OnExit = selZamestExit
+    OnKeyUp = selZamestKeyUp
+    AltBtnWidth = 15
+    ButtonWidth = 15
+  end
+  object selDilecPrikaz: TRzButtonEdit
+    Left = 127
+    Top = 131
+    Width = 165
+    Height = 24
+    Text = ''
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnExit = selDilecPrikazExit
+    OnKeyUp = selDilecPrikazKeyUp
+    AltBtnWidth = 15
+    ButtonWidth = 15
+  end
+  object edtKusy: TRzNumericEdit
+    Left = 127
+    Top = 165
+    Width = 65
+    Height = 24
+    Alignment = taCenter
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    MaxLength = 5
+    ParentFont = False
+    TabOrder = 5
+    OnKeyUp = edtKusyKeyUp
+    DisplayFormat = ',0;(,0)'
+  end
+  object btnOK: TButton
+    Left = 34
+    Top = 224
+    Width = 97
+    Height = 35
+    Caption = 'OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 6
+  end
+  object btnZrus: TButton
+    Left = 234
+    Top = 224
+    Width = 97
+    Height = 35
+    Caption = 'Zru'#353'it'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 7
+    OnClick = btnZrusClick
+  end
+end

frmUnit15.pas

@@ -0,0 +1,513 @@
+unit frmUnit15;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
+  RzEdit, Vcl.Mask, RzBtnEdt, ddPlugin_TLB;
+
+const
+ sklVyr = '200';
+ radaOdved = '220';
+
+type
+  TarrPrikazy = record
+   id: Integer;
+   ks: Single;
+   ksZive: Single;
+   idKZ: integer;
+  end;
+
+  TformOdvodRele = class(TForm)
+    btnVyrobek: TButton;
+    btnPrikaz: TButton;
+    Panel1: TPanel;
+    pgControl: TPageControl;
+    tbVyrobek: TTabSheet;
+    tbPrikaz: TTabSheet;
+    selZamest: TRzButtonEdit;
+    lblDilecPrikaz: TLabel;
+    selDilecPrikaz: TRzButtonEdit;
+    lblZamest: TLabel;
+    lblKusy: TLabel;
+    edtKusy: TRzNumericEdit;
+    btnOK: TButton;
+    btnZrus: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure btnVyrobekClick(Sender: TObject);
+    procedure btnPrikazClick(Sender: TObject);
+    procedure btnZrusClick(Sender: TObject);
+    procedure selZamestExit(Sender: TObject);
+    procedure selDilecPrikazExit(Sender: TObject);
+    procedure selZamestKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure selDilecPrikazKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure edtKusyKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+   private
+    procedure OdvodPrikazu; safecall;
+   public
+    Helios: IHelios;
+  end;
+
+var
+  formOdvodRele: TformOdvodRele;
+  lSQL: string;
+  idZam, idKZ: integer;
+  idPrikazy: TArray<TarrPrikazy>;
+  odvVyr: boolean;
+
+implementation
+{$R *.dfm}
+
+uses
+ Vcl.Clipbrd, helUtils;
+
+
+ procedure TformOdvodRele.OdvodPrikazu;
+  var ksZbyt, ksZive: Single;
+      idx, idx2, idPrikaz, idDZ, idDZv, idDZp, idKJ: integer;
+      realVyd, realPrij, cont: boolean;
+  begin
+   if (edtKusy.Value=0) then
+     Helios.Error(#1'Není zadáno odvádìné množství.'#1)
+    else
+     if (Length(idPrikazy)>0) then
+      begin
+       ksZbyt:= edtKusy.Value;
+       idx:= 0;
+       while (idx<=High(idPrikazy)) and (ksZbyt>0) do
+        begin
+         ksZive:= idPrikazy[idx].ksZive;
+         if (ksZive>=ksZbyt) then
+          begin
+           ksZive:= ksZbyt;
+           ksZbyt:= 0;
+          end;
+         if (ksZive>0) then
+          begin
+           idPrikazy[idx].ks:= ksZive;
+           ksZbyt:= ksZbyt-ksZive;
+          end;
+         idx:= idx+1;
+        end;
+
+       lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved' + CRLF;
+       lSQL:= lSQL + 'CREATE TABLE #TabOdved (id int identity, IDPrikaz int NOT NULL, IDDilec int NOT NULL, IDZakazka int, maxMnozstvi NUMERIC(19,6),';
+       lSQL:= lSQL + 'mnozstvi NUMERIC(19,6) NOT NULL, EvidJednotka INT NOT NULL, Sklad NVARCHAR(30), KodUmisteni NVARCHAR(15) )';
+       Helios.ExecSQL(lSQL);
+
+       lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd' + CRLF;
+       lSQL:= lSQL + 'CREATE TABLE #TabGenRezVyd(ID INT NOT NULL)';
+       Helios.ExecSQL(lSQL);
+
+       lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen' + CRLF;
+       lSQL:= lSQL + 'CREATE TABLE #TabPrKVazbyGen(ID INT IDENTITY NOT NULL, Generuj BIT NOT NULL DEFAULT 1,';
+       lSQL:= lSQL + 'PoKorekciDat BIT NOT NULL DEFAULT 0, IDPrKV INT NOT NULL, Doklad INT NOT NULL, IDPrikaz INT NOT NULL,';
+       lSQL:= lSQL + 'Prednastaveno BIT NOT NULL DEFAULT 1, Sklad NVARCHAR(30) COLLATE database_default NULL,';
+       lSQL:= lSQL + 'VyrStredisko NVARCHAR(30) COLLATE database_default NULL, IDPracoviste INT NULL,';
+       lSQL:= lSQL + 'mnoz_zad NUMERIC(19, 6) NOT NULL DEFAULT 0, Mnoz_nepotrebne NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+       lSQL:= lSQL + 'Mnoz_skut_realizovane NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_real NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+       lSQL:= lSQL + 'Mnoz_odv NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_odv NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+       lSQL:= lSQL + 'MnozstviMax NUMERIC(19, 6) NULL, MnozstviPoz NUMERIC(19, 6) NOT NULL,	PomMnozPoz NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+       lSQL:= lSQL + 'IDPohZbo INT NULL, priorita INT NOT NULL DEFAULT 0, vyssi INT NOT NULL,	nizsi INT NOT NULL,';
+       lSQL:= lSQL + 'DavkaTPV NUMERIC(19, 6) NOT NULL DEFAULT 1, pozice NVARCHAR(100) COLLATE database_default NULL DEFAULT '''',';
+       lSQL:= lSQL + 'Operace NCHAR(4) COLLATE database_default NULL DEFAULT N'''', FixniMnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+       lSQL:= lSQL + 'mnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 1, ProcZtrat NUMERIC(5, 2) NOT NULL DEFAULT 0,';
+       lSQL:= lSQL + 'mnozstviSeZtratou NUMERIC(19, 6) NOT NULL DEFAULT 0,	Prirez NUMERIC(19, 6) NOT NULL DEFAULT 1,';
+       lSQL:= lSQL + 'Poznamka NTEXT COLLATE database_default NULL,	pom_pomer_A NUMERIC(19, 6) NULL,';
+       lSQL:= lSQL + 'pom_pomer_B NUMERIC(19, 6) NULL, Dodavatel INT NULL)';
+       Helios.ExecSQL(lSQL);
+
+       for idx:=Low(idPrikazy) to High(idPrikazy) do
+        begin
+         if (idPrikazy[idx].ks<=0) then
+          Continue;
+         lSQL:= 'INSERT #TabOdved (IDPrikaz,IDDilec,Mnozstvi,EvidJednotka,Sklad) VALUES (';
+         lSQL:= lSQL + IntToStr(idPrikazy[idx].id) + ',' + IntToStr(idPrikazy[idx].idKZ) + ',';
+         lSQL:= lSQL + StringReplace( FloatToStr(idPrikazy[idx].ks) ,',','.',[rfReplaceAll]);
+         lSQL:= lSQL +  ',1,N' + QuotedStr(sklVyr) + ')';
+         Helios.ExecSQL(lSQL);
+        end;
+
+       lSQL:= 'DECLARE @RespekExistDoklady bit' + CRLF + 'SET @RespekExistDoklady=1' + CRLF;
+       lSQL:= lSQL + 'INSERT #TabPrKVazbyGen (IDPrKV,  MnozstviPoz, pom_pomer_A, pom_pomer_B, Doklad, IDPrikaz,';
+       lSQL:= lSQL + 'Prednastaveno, Sklad, VyrStredisko, IDPracoviste, mnoz_zad, Mnoz_nepotrebne, Mnoz_skut_realizovane,';
+       lSQL:= lSQL + 'Cena_real, Mnoz_odv, Cena_odv, priorita, vyssi, nizsi, DavkaTPV, pozice, Operace, FixniMnozstvi,';
+       lSQL:= lSQL + 'mnozstvi, ProcZtrat, mnozstviSeZtratou, Prirez, Poznamka) SELECT PrKV.ID, PrKV.mnoz_zad*O.mnozstvi/P.kusy_zad';
+       lSQL:= lSQL + '-CASE WHEN @RespekExistDoklady=1 THEN PrKV.VydanoRefMnoz  + (SELECT ISNULL(SUM(PZ2.prepmnozstvi*(PZ2.mnozstvi';
+       lSQL:= lSQL + '-PZ2.MnOdebrane) * PrKV2.RefMnoz / PrKV2.mnoz_zad), 0.0) FROM TabPohybyZbozi PZ2 INNER JOIN TabStavSkladu SS2 ON (SS2.ID=PZ2.IDZboSklad)';
+       lSQL:= lSQL + ' INNER JOIN TabPrKVazby PrKV2 ON (PrKV2.IDPrikaz=PZ2.IDPrikaz AND PrKV2.Doklad=PZ2.DokladPrikazu AND ';
+       lSQL:= lSQL + 'PrKV2.nizsi=SS2.IDKmenZbozi AND PrKV2.IDOdchylkyDo IS NULL) WHERE PZ2.TypVyrobnihoDokladu=1 AND ';
+       lSQL:= lSQL + 'PZ2.IDPrikaz=PrKV.IDPrikaz AND PZ2.DokladPrikazu=PrKV.Doklad AND PZ2.druhPohybuZbo IN (2,4,9,10) AND ';
+       lSQL:= lSQL + 'PZ2.SkutecneDatReal IS NULL) ELSE 0.0 END, CASE WHEN @RespekExistDoklady=0 THEN O.mnozstvi END,';
+       lSQL:= lSQL + 'CASE WHEN @RespekExistDoklady=0 THEN P.kusy_zad END,PrKV.Doklad, PrKV.IDPrikaz, PrKV.Prednastaveno,';
+       lSQL:= lSQL + 'PrKV.Sklad, PrKV.VyrStredisko, PrKV.IDPracoviste, PrKV.mnoz_zad, PrKV.Mnoz_nepotrebne, PrKV.Mnoz_skut_realizovane,';
+       lSQL:= lSQL + 'PrKV.Cena_real, PrKV.Mnoz_odv, PrKV.Cena_odv, PrKV.priorita, PrKV.vyssi, PrKV.nizsi, PrKV.DavkaTPV,';
+       lSQL:= lSQL + 'PrKV.pozice, PrKV.Operace, PrKV.FixniMnozstvi, PrKV.mnozstvi, PrKV.ProcZtrat, PrKV.mnozstviSeZtratou,';
+       lSQL:= lSQL + 'PrKV.Prirez, PrKV.Poznamka FROM (SELECT IDPrikaz=O1.IDPrikaz, Mnozstvi=SUM(O1.mnozstvi)';
+       lSQL:= lSQL + ' + CASE WHEN @RespekExistDoklady=1 THEN MAX(P1.kusy_odved+P1.kusy_ztrac+P1.kusy_zmet)';
+       lSQL:= lSQL + ' + (SELECT ISNULL(SUM(PZ1.prepmnozstvi*PZ1.mnozstvi), 0.0) FROM TabPohybyZbozi PZ1 WHERE PZ1.TypVyrobnihoDokladu=0';
+       lSQL:= lSQL + ' AND PZ1.IDPrikaz=O1.IDPrikaz AND PZ1.druhPohybuZbo=0 AND PZ1.SkutecneDatReal IS NULL) ELSE 0.0 END';
+       lSQL:= lSQL + ' FROM #TabOdved O1 INNER JOIN TabPrikaz P1 ON (P1.ID=O1.IDPrikaz) GROUP BY O1.IDPrikaz) O';
+       lSQL:= lSQL + ' INNER JOIN TabPrikaz P ON (P.ID=O.IDPrikaz AND P.StavPrikazu IN (30,50)) INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)';
+       lSQL:= lSQL + ' INNER JOIN TabPrKVazby PrKV ON (PrKV.IDPrikaz=O.IDPrikaz AND PrKV.predzpracovano=0 AND PrKV.prednastaveno=1';
+       lSQL:= lSQL + ' AND PrKV.uzavreno=0 AND PrKV.RezijniMat=0 AND PrKV.IDOdchylkyDo IS NULL) INNER JOIN TabKmenZbozi KZ ON';
+       lSQL:= lSQL + ' (KZ.ID=PrKV.nizsi AND KZ.sluzba=0) WHERE (P.kusy_zive>0.0 OR RP.KontrolovatRozpracPriUzav=0)';
+       Helios.ExecSQL(lSQL);
+
+       lSQL:= 'UPDATE G SET MnozstviMax=CASE WHEN RP.NekontrolovatMnozMatPol=1 THEN NULL ELSE (CASE WHEN PrKV.splneno=1';
+       lSQL:= lSQL + ' THEN 0.0 ELSE PrKV.mnoz_zad-PrKV.VydanoRefMnoz*PrKV.mnoz_zad/PrKV.RefMnoz END) END FROM #TabPrKVazbyGen G';
+       lSQL:= lSQL + ' INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabPrikaz P ON (P.ID=PrKV.IDPrikaz)';
+       lSQL:= lSQL + ' INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)' + CRLF;
+       lSQL:= lSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=CEILING(mnozstviPoz) FROM #TabPrKVazbyGen G INNER JOIN';
+       lSQL:= lSQL + ' TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi)';
+       lSQL:= lSQL + ' INNER JOIN TabMJ MJ ON (MJ.kod=KZ.MJEvidence AND MJ.nedelitelna=1) WHERE G.PoKorekciDat=0' + CRLF;
+       lSQL:= lSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=MnozstviMax WHERE MnozstviMax IS NOT NULL AND mnozstviPoz>MnozstviMax';
+       lSQL:= lSQL + CRLF + 'DELETE #TabPrKVazbyGen WHERE MnozstviPoz<=0.0 AND PoKorekciDat=0' + CRLF;
+       lSQL:= lSQL + 'UPDATE G SET Dodavatel=CO.ID FROM #TabPrKVazbyGen G INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV)';
+       lSQL:= lSQL + ' INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi) INNER JOIN TabCisOrg CO ON (CO.CisloOrg=KZ.Aktualni_Dodavatel)';
+       lSQL:= lSQL + ' WHERE G.PoKorekciDat=0 AND G.Dodavatel IS NULL' + CRLF + 'UPDATE #TabPrKVazbyGen SET PoKorekciDat=1 WHERE PoKorekciDat=0';
+       lSQL:= lSQL + CRLF + 'UPDATE #TabPrKVazbyGen SET Generuj=1';
+       Helios.ExecSQL(lSQL);
+
+       for idx:=Low(idPrikazy) to High(idPrikazy) do
+        begin
+         if (idPrikazy[idx].id=0) then
+          Continue;
+         lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabSouhKusov') + ') IS NOT NULL DROP TABLE #TabSouhKusov' + CRLF;
+         lSQL:= lSQL + 'CREATE TABLE #TabSouhKusov (IDKZ INT, mnozstvi NUMERIC(19,6) DEFAULT 0.0)' + CRLF;
+         Helios.ExecSQL(lSQL);
+         lSQL:= 'DECLARE @dt DATETIME' + CRLF + 'SET @dt=GETDATE()' + CRLF + 'EXEC dbo.ep_GetKusovnikProOZ';
+         lSQL:= lSQL + ' @ID=' + IntToStr(idPrikazy[idx].idKZ) + ',@mnozstvi=' + StringReplace(FloatToStr(idPrikazy[idx].ks),',','.',[rfReplaceAll]);
+         lSQL:= lSQL + ',@datum=@dt' + CRLF + 'MERGE #TabPrKVazbyGen AS T USING #TabSouhKusov AS S ON (T.nizsi=S.IDKZ AND';
+         lSQL:= lSQL + ' T.IDPrikaz=' + IntToStr(idPrikazy[idx].id) + ') WHEN MATCHED THEN UPDATE SET T.MnozstviPoz=S.mnozstvi;';
+         Helios.ExecSQL(lSQL);
+        end;
+
+       lSQL:= 'SELECT DISTINCT(v.nizsi),X.Soucet,ss.Mnozstvi,kz.SkupZbo,kz.RegCis,kz.Nazev1 FROM #TabPrKVazbyGen v';
+       lSQL:= lSQL + ' INNER JOIN (SELECT DISTINCT(g.nizsi),SUM(g.MnozstviPoz) AS [Soucet] FROM #TabPrKVazbyGen g GROUP BY g.nizsi) AS X';
+       lSQL:= lSQL + ' ON (v.nizsi=X.nizsi) INNER JOIN ' + tblSS + ' ss ON (v.nizsi=ss.IDKmenZbozi AND v.Sklad=ss.IDSklad)';
+       lSQL:= lSQL + ' INNER JOIN ' + tblKZ + ' kz ON (v.nizsi=kz.id) WHERE ss.Mnozstvi<X.Soucet';
+       with Helios.OpenSQL(lSQL) do
+        if (RecordCount>0) then
+         begin
+          First;
+          lSQL:= '';
+          while not(EOF) do
+           begin
+            lSQL:= lSQL + CRLF + VarToStr(FieldValues(3)) + ' : ' + VarToStr(FieldValues(4)) + '  ' + VarToStr(FieldValues(5));
+            lSQL:= lSQL + ' - ' + VarToStr(FieldValues(1)) + ' ks  (skladem je ' + VarToStr(FieldValues(2)) + ' ks)';
+            Next;
+           end;
+          Clipboard.AsText:= lSQL;
+          Helios.Error(#1'Nelze vygenerovat výdejku, chybí nìkterý materiál.'#1 + CRLF + 'Zpracování evidence nebude provedeno.' + CRLF + lSQL);
+          Exit;
+         end;
+
+       lSQL:= 'SELECT SUM(vazGen.mnozstviPoz),kz.RegCis,ss.Mnozstvi,kz.Nazev1';
+       lSQL:= lSQL + ' FROM #TabPrKVazbyGen vazGen';
+       lSQL:= lSQL + ' INNER JOIN ' + tblSS + ' ss ON (ss.IDSklad=vazGen.Sklad AND ss.IDKmenZbozi=vazGen.nizsi)';
+       lSQL:= lSQL + ' INNER JOIN ' + tblKZ + ' kz ON (vazGen.nizsi=kz.id) WHERE ss.Mnozstvi<vazGen.MnozstviPoz';
+       lSQL:= lSQL + ' GROUP BY kz.RegCis,ss.Mnozstvi,kz.Nazev1';
+       with Helios.OpenSQL(lSQL) do
+        if (RecordCount>0) then
+          begin
+           First;
+           lSQL:= '';
+           while not(EOF) do
+            begin
+             lSQL:= lSQL + CRLF + VarToStr(FieldValues(1)) + ' : ' + VarToStr(FieldValues(3)) + ' - ' + VarToStr(FieldValues(0));
+             lSQL:= lSQL + ' ks  (skladem je ' + VarToStr(FieldValues(2)) + ' ks)';
+             Next;
+            end;
+//           Clipboard.AsText:= lSQL;
+           Helios.Error(#1'Nelze vygenerovat výdejku, chybí nìkterý materiál.'#1 + CRLF + 'Zpracování evidence nebude provedeno.' + CRLF + lSQL);
+           Exit;
+          end
+         else
+          begin
+           lSQL:= 'DECLARE @obd INT,@dt DATETIME' + CRLF + 'SELECT @dt=GETDATE()';
+           lSQL:= lSQL + CRLF + 'EXEC @obd=dbo.hp_GetObdobiDleDatumu @dt,0,null,null,0,0' + CRLF;
+           lSQL:= lSQL + 'EXEC dbo.hp_generujRezVyd @RadaDokladu=N' + QuotedStr('400') + ',@DruhPohybuZbo=4,@IDObdobi=@obd,@DatPorizeni=@dt';
+           lSQL:= lSQL + ',@SekejZakazky=0';
+           try
+             Helios.ExecSQL(lSQL);
+             with Helios.OpenSQL('SELECT id FROM #TabGenRezVyd') do
+              if (RecordCount>0) then
+               begin
+                idDZ:= StrToInt(VarToStr(FieldValues(0)));
+                idDZv:= idDZ;
+                Helios.ExecSQL('UPDATE ' + tblDZ + ' SET StredNaklad=N' + QuotedStr('200') + ',CisloZam=' + Trim(selZamest.Text) + ' WHERE id=' + IntToStr(idDZ));
+
+                Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=0');
+                if Length(idPrikazy)=1 then
+                 Helios.ExecSQL('UPDATE ' + tblDZ + ' SET IDPrikaz=' + IntToStr(idPrikazy[0].id) + ' WHERE id=' + IntToStr(idDZ));
+                Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=null WHERE id=' + IntToStr(idDZ));
+                try
+                  lSQL:= 'DECLARE @chyba BIT' + CRLF + 'EXEC dbo.hp_Realizuj_Vydej ' + IntToStr(idDZ) + ',NULL,' + IntToStr(Helios.UserId);
+                  lSQL:= lSQL + ',0,@chyba OUT' + CRLF + 'SELECT @chyba';
+                  with Helios.OpenSQL(lSQL) do
+                   if not VarIsNull(FieldValues(0)) then
+                    if LowerCase(VarToStr(FieldValues(0)))='false' then
+                     realVyd:= true;
+                 except on E:Exception do
+                  begin
+                   Helios.ExecSQL('DELETE FROM ' + tblDZDod + ' WHERE IDHlavicky=' + IntToStr(idDZ));
+                   Helios.ExecSQL('DELETE FROM ' + tblPZ + ' WHERE iddoklad=' + IntToStr(idDZ));
+                   Helios.ExecSQL('DELETE FROM ' + tblDZ + ' WHERE id=' + IntToStR(idDZ));
+                   Helios.Error(#1'Nelze realizovat výdejku.'#1 + CRLF + E.Message);
+  {
+                   idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat výdejku.');
+                   if idKJ>0 then
+                    Helios.ExecSQL('INSERT INTO ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+                     + QuotedStr('Podrobnosti.unit10') + ',N' + QuotedStr(E.Message + CRLF + lSQL) + ')');
+  }
+                   idKJ:= 0;
+                   Exit;
+                  end;
+                end;
+               end;
+            except on E:Exception do
+             begin
+              Helios.Error(#1'Nelze vygenerovat výdejku materiálu.'#1 + CRLF + E.Message);
+              Exit;
+             end;
+           end;
+          end;
+
+  // odvedeni prikazu, tj. vytvoreni prijemky s cenou podle vydeje za material a ceny za praci
+  //     sBar.SimpleText:= 'Odvádím pøíkazy...';
+
+       lSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NOT NULL DROP TABLE #TabGenPrijem' + CRLF;
+       lSQL:= lSQL + 'CREATE TABLE #TabGenPrijem (ID int)';
+       Helios.ExecSQL(lSQL);
+
+       idDZ:= 0;
+       lSQL:= 'DECLARE @dt DATETIME' + CRLF + 'SELECT @dt=GETDATE()';
+       lSQL:= lSQL + CRLF + 'EXEC dbo.hp_OdvedeniPrikazu N' + QuotedStr(radaOdved) + ',' + IntToStr(Helios.Obdobi) + ',0,@dt,0,0';
+       try
+         Helios.ExecSQL(lSQL);
+         cont:= true;
+        except on E:Exception do
+         begin
+          Helios.Error(#1'Pøíprava na odvedení na sklad nebyla úspìšná.'#1 + CRLF + E.Message + CRLF + lSQL);
+          idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze pøipravit Odvedení na sklad.');
+          if (idKJ>0) then
+           Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+            + QuotedStr('Podrobnosti.unit10') + ',N' + QuotedStr(E.Message + CRLF + lSQL) + ')');
+          idKJ:= 0;
+          cont:= false;
+         end;
+       end;
+
+       with Helios.OpenSQL('SELECT * FROM #TabGenPrijem') do
+        begin
+         if (RecordCount=1) then
+          idDZ:= StrToInt(VarToStr(FieldValues(0)));
+         if (RecordCount>1) then
+          Helios.Info(#1'Pozor, vzniká více pøíjemek.'#1);
+        end;
+       if (idDZ>0) and cont then
+        begin
+         idDZp:= idDZ;
+         try
+           Helios.ExecSQL('UPDATE ' + tblDZ + ' SET CisloZam=' + Trim(selZamest.Text) + ' WHERE id=' + IntToStr(idDZp));
+    //         Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyPrijemka @idDZ=' + IntToStr(idDZp));
+           Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZp) + ',@AktualizaceSlev=0');
+           Helios.ExecSQL('UPDATE ' + tblDZ + ' SET StredNaklad=N' + QuotedStr('200') + ',BlokovaniEditoru=null WHERE id=' + IntToStr(idDZp));
+          except on E:Exception do
+           Helios.Error(#1'Nelze napoèítat ceny pøíjemky z výroby.'#1 + CRLF + E.Message + CRLF + '(plgLOVATO,unit10)');
+         end;
+
+         if (realVyd) then
+          begin
+           realPrij:= false;
+
+  //         lSQL:= 'IF EXISTS(SELECT id FROM ' + tblPravaSklad + ' WHERE Realizace=1 AND Cislo=N' + QuotedStr(sklVyr) + ' AND';
+  //         lSQL:= lSQL + ' (LoginName=SUSER_SNAME() OR IDRole=(SELECT IdRole FROM ' + tblUziv + ' WHERE LoginName=SUSER_SNAME())))' + CRLF + ' BEGIN' + CRLF;
+  //         sBar.SimpleText:= 'Realizace pøíjemky...';
+
+           lSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SELECT @dt=GETDATE()' + CRLF;
+           lSQL:= lSQL + 'EXEC dbo.hp_Realizuj_Prijem ' + IntToStr(idDZp) + ',@dt,' + IntToStr(Helios.UserId) + ',@chyba OUT';
+           lSQL:= lSQL + CRLF + 'SELECT @chyba';
+           try
+             with Helios.OpenSQL(lSQL) do
+              if not VarIsNull(FieldValues(0)) then
+               if LowerCase(VarToStr(FieldValues(0)))='false' then
+                realPrij:= true;
+            except on E:Exception do
+             begin
+              idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat Odvod na sklad.');
+              if (idKJ>0) then
+               Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+                + QuotedStr('Podrobnosti.unit10') + ',N' + QuotedStr(E.Message + CRLF + lSQL) + ')');
+              idKJ:= 0;
+             end;
+           end;
+          end;
+
+        end;  // prijemka
+
+        if realPrij then
+         begin
+    //      sBar.SimpleText:= 'Uzavírání pøíkazù...';
+          for idx2:=Low(idPrikazy) to High(idPrikazy) do
+           begin
+            idPrikaz:= idPrikazy[idx2].id;
+            if (idPrikaz<=0) then
+             Continue;
+            with Helios.OpenSQL('SELECT id FROM ' + tblPrikaz + ' WHERE StavPrikazu<50 AND id=' + IntToStr(idPrikaz)) do
+             if (RecordCount>0) then
+              try
+                Helios.ExecSQL('UPDATE ' + tblPrikaz + ' SET ukonceni=GETDATE(),StavPrikazu=50 WHERE id=' + IntToStr(idPrikaz));
+               except on E:Exception do
+                Helios.Error(#1'Chyba: ' + E.Message + #1);
+              end;
+           end;
+         end;
+
+       Helios.Refresh(true);
+      end;
+   Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen');
+   Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved');
+   Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NOT NULL DROP TABLE #TabGenPrijem');
+   Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd');
+  end;
+
+
+ procedure TformOdvodRele.FormShow(Sender: TObject);
+  begin
+   Panel1.SendToBack;
+   lblDilecPrikaz.BringToFront;
+   lblKusy.BringToFront;
+   lblZamest.BringToFront;
+   SetLength(idPrikazy,0);
+   odvVyr:= true; // odvod vyrobku
+  end;
+
+
+ procedure TformOdvodRele.selDilecPrikazExit(Sender: TObject);
+  var idx: integer;
+  begin
+   selDilecPrikaz.Text:= Trim(selDilecPrikaz.Text);
+   if (selDilecPrikaz.Text<>'') then
+     begin
+      if (odvVyr) then
+        begin
+         idKZ:= 0;
+         lSQL:= 'SELECT kz.id FROM ' + tblKZ + ' kz INNER JOIN ' + tblSZ + ' sz ON (sz.SkupZbo=kz.SkupZbo) INNER JOIN ';
+         lSQL:= lSQL + tblSZe + ' sze ON (sz.id=sze.id) WHERE sze._JeVyroba=1 AND kz.RegCis=N' + QuotedStr(selDilecPrikaz.Text);
+         with Helios.OpenSQL(lSQL) do
+          if (RecordCount=1) then
+            begin
+             idKZ:= StrToInt(VarToStr(FieldValues(0)));
+             lSQL:= 'SELECT id,kusy_zive FROM ' + tblPrikaz + ' WHERE StavPrikazu<=40 AND kusy_zive>0 AND IdTabKmen=' + IntToStr(idKZ);
+             lSQL:= lSQL + 'ORDER BY DatPorizeni DESC';
+             with Helios.OpenSQL(lSQL) do
+              if (RecordCount>0) then
+                begin
+                 SetLength(idPrikazy, RecordCount);
+                 for idx:=0 to RecordCount-1 do
+                  begin
+                   idPrikazy[idx].id:= StrToInt(VarToStr(FieldValues(0)));
+                   idPrikazy[idx].ksZive:= StrToFloat(VarToStr(FieldValues(1)));
+                   idPrikazy[idx].ks:= 0;
+                   idPrikazy[idx].idKZ:= idKZ;
+                  end;
+                end
+               else
+                Helios.Error(#1'Nenalezeny žádné pøíkazy k odvedení tohoto výrobku.'#1);
+            end
+           else
+            Helios.Error(#1'Nejednoznaèná identifikace výrobku.'#1);
+        end
+       else
+        begin
+         lSQL:= 'SELECT id,kusy_zive,IdTabKmen FROM ' + tblPrikaz + ' WHERE StavPrikazu<=40 AND kusy_zive>0 AND RadaPrikaz=N' + QuotedStr(selDilecPrikaz.Text);
+         with Helios.OpenSQL(lSQL) do
+          if (RecordCount>0) then
+            begin
+             SetLength(idPrikazy, 1);
+             idPrikazy[0].id:= StrToInt(VarToStr(FieldValues(0)));
+             idPrikazy[0].ksZive:= StrToFloat(VarToStr(FieldValues(1)));
+             idKZ:= StrToInt(VarToStr(FieldValues(2)));
+            end
+           else
+            Helios.Error(#1'Zadaný výrobní pøíkaz nebyl nalezen nebo je uzavøený.'#1);
+        end;
+      OdvodPrikazu;
+     end
+    else
+     Helios.Error(#1'Není zadáno èíslo výrobku nebo pøíkazu.'#1);
+  end;
+
+
+ procedure TformOdvodRele.selDilecPrikazKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if (Key=VK_RETURN) then
+    edtKusy.SetFocus;
+  end;
+
+
+ procedure TformOdvodRele.selZamestExit(Sender: TObject);
+  begin
+   selZamest.Text:= Trim(selZamest.Text);
+   if (selZamest.Text<>'') then
+     begin
+      if (selZamest.Text<>'0') then
+       begin
+        idZam:= 0;
+        lSQL:= 'SELECT id FROM ' + tblCZam + ' WHERE Cislo=' + selZamest.Text;
+        with Helios.OpenSQL(lSQL) do
+         if (RecordCount>0) then
+          idZam:= StrToInt(VarToStr(FieldValues(0)));
+       end;
+     end
+    else
+     Helios.Error(#1'Není zadáno osobní èíslo zamìstnance.'#1);
+  end;
+
+
+ procedure TformOdvodRele.selZamestKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if (Key=VK_RETURN) then
+    selDilecPrikaz.SetFocus;
+  end;
+
+
+ procedure TformOdvodRele.btnVyrobekClick(Sender: TObject);
+  begin
+   odvVyr:= true;
+   Self.Height:= 315;
+   btnPrikaz.Enabled:= false;
+   selZamest.SetFocus;
+  end;
+
+
+ procedure TformOdvodRele.btnPrikazClick(Sender: TObject);
+  begin
+   odvVyr:= false;
+   Self.Height:= 315;
+   btnVyrobek.Enabled:= false;
+   selZamest.SetFocus;
+  end;
+
+
+ procedure TformOdvodRele.btnZrusClick(Sender: TObject);
+  begin
+   selZamest.Text:= '0';
+   selDilecPrikaz.Text:= '';
+   edtKusy.Value:= 0;
+   Self.Height:= 90;
+   btnVyrobek.Enabled:= true;
+   btnPrikaz.Enabled:= true;
+  end;
+
+
+ procedure TformOdvodRele.edtKusyKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if (Key=VK_RETURN) then
+    btnOK.SetFocus;
+  end;
+
+end.

frmUnit2.dfm

@@ -0,0 +1,18 @@
+object formOdvezMzdy: TformOdvezMzdy
+  Left = 196
+  Top = 237
+  BorderStyle = bsDialog
+  Caption = '  Hromadn'#233' odveden'#237' operac'#237
+  ClientHeight = 394
+  ClientWidth = 762
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poOwnerFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+end

frmUnit2.pas

@@ -0,0 +1,21 @@
+unit frmUnit2;
+
+interface
+
+uses
+  Windows, Variants, Classes, Controls, Forms, SysUtils, ddPlugin_TLB, StdCtrls;
+
+type
+  TformOdvedMzdy = class(TForm)
+    private
+    public
+     Helios : IHelios;
+   end;
+
+var
+  formOdvedMzdy: TformOdvedMzdy;
+
+implementation
+
+{$R *.dfm}
+ end.

frmUnit3.dfm

@@ -0,0 +1,234 @@
+object formCRM_Aktivity: TformCRM_Aktivity
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = '  Firemn'#237' aktivity - Aktivity'
+  ClientHeight = 353
+  ClientWidth = 1108
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1108
+    Height = 39
+    ButtonHeight = 38
+    ButtonWidth = 39
+    Caption = 'ToolBar1'
+    Images = imgList
+    TabOrder = 0
+    object btnPrev: TToolButton
+      Left = 0
+      Top = 0
+      Caption = 'P'#345'edchoz'#237
+      ImageIndex = 0
+    end
+    object btnNext: TToolButton
+      Left = 39
+      Top = 0
+      Caption = 'Dal'#353#237
+      ImageIndex = 1
+    end
+  end
+  object pgCtrl: TPageControl
+    Left = 0
+    Top = 42
+    Width = 1105
+    Height = 261
+    ActivePage = pgAktivity
+    TabOrder = 1
+    object pgAktivity: TTabSheet
+      Caption = '1 - Aktivity'
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object GroupBox1: TGroupBox
+        Left = -4
+        Top = 0
+        Width = 583
+        Height = 221
+        TabOrder = 0
+        object Label1: TLabel
+          Left = 14
+          Top = 18
+          Width = 73
+          Height = 13
+          Caption = 'Po'#345'adov'#233' '#269#237'slo:'
+        end
+        object Label2: TLabel
+          Left = 102
+          Top = 18
+          Width = 82
+          Height = 13
+          Caption = 'P'#345'edm'#283't aktivity:'
+        end
+        object Label4: TLabel
+          Left = 14
+          Top = 72
+          Width = 50
+          Height = 13
+          Caption = 'Kategorie:'
+        end
+        object Label5: TLabel
+          Left = 102
+          Top = 72
+          Width = 22
+          Height = 13
+          Caption = 'Typ:'
+        end
+        object Label6: TLabel
+          Left = 208
+          Top = 72
+          Width = 26
+          Height = 13
+          Caption = 'Stav:'
+        end
+        object Label7: TLabel
+          Left = 14
+          Top = 122
+          Width = 63
+          Height = 13
+          Caption = 'M'#237'sto kon'#225'n'#237':'
+        end
+        object Label10: TLabel
+          Left = 14
+          Top = 168
+          Width = 42
+          Height = 13
+          Caption = 'Za'#269#225'tek:'
+        end
+        object Label11: TLabel
+          Left = 284
+          Top = 168
+          Width = 33
+          Height = 13
+          Caption = 'Konec:'
+        end
+        object dtpKon: TDateTimePicker
+          Left = 284
+          Top = 188
+          Width = 95
+          Height = 21
+          Date = 40826.617409398150000000
+          Time = 40826.617409398150000000
+          TabOrder = 0
+        end
+        object dtpKonCas: TDateTimePicker
+          Left = 391
+          Top = 188
+          Width = 75
+          Height = 21
+          Date = 40826.620618379630000000
+          Time = 40826.620618379630000000
+          Kind = dtkTime
+          TabOrder = 1
+        end
+        object dtpZac: TDateTimePicker
+          Left = 14
+          Top = 188
+          Width = 96
+          Height = 21
+          Date = 40826.617099652780000000
+          Time = 40826.617099652780000000
+          TabOrder = 2
+        end
+        object dtpZacCas: TDateTimePicker
+          Left = 122
+          Top = 188
+          Width = 75
+          Height = 21
+          Date = 40826.620280509260000000
+          Time = 40826.620280509260000000
+          Kind = dtkTime
+          TabOrder = 3
+        end
+      end
+      object GroupBox2: TGroupBox
+        Left = 590
+        Top = 0
+        Width = 501
+        Height = 171
+        TabOrder = 1
+        object Label3: TLabel
+          Left = 14
+          Top = 18
+          Width = 29
+          Height = 13
+          Caption = 'Popis:'
+        end
+      end
+    end
+    object pgUcast: TTabSheet
+      Caption = '2 - '#218#269'astn'#237'ci jedn'#225'n'#237
+      ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object GroupBox3: TGroupBox
+        Left = 0
+        Top = 0
+        Width = 427
+        Height = 123
+        TabOrder = 0
+        object Label8: TLabel
+          Left = 10
+          Top = 18
+          Width = 64
+          Height = 13
+          Caption = 'Jedn'#225'n'#237' vedl:'
+        end
+        object Label9: TLabel
+          Left = 10
+          Top = 62
+          Width = 58
+          Height = 13
+          Caption = 'Organizace:'
+        end
+        object edtOrgNazev: TEdit
+          Left = 122
+          Top = 84
+          Width = 285
+          Height = 21
+          ReadOnly = True
+          TabOrder = 0
+        end
+      end
+    end
+  end
+  object btnOK: TButton
+    Left = 916
+    Top = 316
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    TabOrder = 2
+    OnClick = btnOKClick
+  end
+  object btnCancel: TButton
+    Left = 1014
+    Top = 316
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    TabOrder = 3
+    OnClick = btnCancelClick
+  end
+  object imgList: TImageList
+    Height = 32
+    Width = 32
+    Left = 270
+    Top = 2
+  end
+end

frmUnit3.pas

@@ -0,0 +1,443 @@
+unit frmUnit3;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ddPlugin_TLB,
+  Dialogs, ImgList, ComCtrls, ToolWin, ShellAPI, StdCtrls, TBPackageU,
+  System.ImageList;
+
+const tblAkt = '[dbo].[TabKontaktJednani]';
+      tblCZam = '[dbo].[TabCisZam]';
+      tblOrg = '[dbo].[TabCisOrg]';
+      bidTyp = 195;
+      bidDruhVystupu = 196;
+      bidStav = 197;
+      CRLF = #13#10;
+
+type
+  TformCRM_Aktivity = class(TForm)
+    ToolBar1: TToolBar;
+    btnPrev: TToolButton;
+    imgList: TImageList;
+    btnNext: TToolButton;
+    pgCtrl: TPageControl;
+    btnOK: TButton;
+    btnCancel: TButton;
+    pgAktivity: TTabSheet;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    GroupBox2: TGroupBox;
+    Label3: TLabel;
+    memoPopis: TTB_Memo;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    edtKat: TTB_Edit;
+    edtMisto: TTB_Edit;
+    pgUcast: TTabSheet;
+    edtTyp: TTB_Edit;
+    edtStav: TTB_Edit;
+    selTyp: TTB_3Button;
+    selStav: TTB_3Button;
+    edtPredmet: TTB_Edit;
+    edtCislo: TTB_Edit;
+    GroupBox3: TGroupBox;
+    Label8: TLabel;
+    Label9: TLabel;
+    edtVedl: TTB_Edit;
+    selVedlCislo: TTB_3Button;
+    edtVedlPrijm: TTB_Edit;
+    edtVedlJm: TTB_Edit;
+    selVedlPrijm: TTB_3Button;
+    selVedlJm: TTB_3Button;
+    edtOrg: TTB_Edit;
+    edtOrgNazev: TEdit;
+    selOrg: TTB_3Button;
+    Label10: TLabel;
+    Label11: TLabel;
+    dtpZac: TDateTimePicker;
+    dtpKon: TDateTimePicker;
+    dtpZacCas: TDateTimePicker;
+    dtpKonCas: TDateTimePicker;
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure edtCisloEnter(Sender: TObject);
+    procedure edtCisloExit(Sender: TObject);
+    procedure btnCancelClick(Sender: TObject);
+    procedure edtPredmetExit(Sender: TObject);
+    procedure edtPredmetEnter(Sender: TObject);
+    procedure memoPopisEnter(Sender: TObject);
+    procedure memoPopisExit(Sender: TObject);
+    procedure edtMistoEnter(Sender: TObject);
+    procedure edtMistoExit(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure selTypClick(Sender: TObject);
+    procedure selStavClick(Sender: TObject);
+    procedure selVedlCisloClick(Sender: TObject);
+    procedure selVedlPrijmClick(Sender: TObject);
+    procedure selVedlJmClick(Sender: TObject);
+    procedure selOrgClick(Sender: TObject);
+  private
+   procedure NactiAktivitu;
+  public
+   Helios: IHelios;
+   idAkt: integer;
+  end;
+
+var
+  formCRM_Aktivity: TformCRM_Aktivity;
+  sCis: string;
+  iCis: integer;
+  sql: string;
+  iPrev,iNext: TIcon;
+  bgCol: TColor;
+  oVar1, oVar2: OleVariant;
+  tStr: string;
+
+implementation
+uses StrUtils, myUtils, helUtils;
+
+{$R *.dfm}
+
+
+ procedure TformCRM_Aktivity.btnCancelClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.btnOKClick(Sender: TObject);
+  var sql: string;
+  begin
+   sql:= '';
+   if (idAkt>0) then
+     begin
+      sql:= 'UPDATE ' + tblAkt + ' SET Predmet=N' + QuotedStr(edtPredmet.Text);
+      sql:= sql + ',Typ=N' + QuotedStr(edtTyp.Text) + ',Stav=N' + QuotedStr(edtStav.Text);
+      sql:= sql + ',MistoKonani=N' + QuotedStr(edtMisto.Text);
+      sql:= sql + ',CisloOrg=';
+      if edtOrg.Text<>'' then
+        sql:= sql + edtOrg.Text
+       else
+        sql:= sql + 'null';
+      sql:= sql + ',CisloZam=';
+      if edtOrg.Text<>'' then
+        sql:= sql + edtVedl.Text
+       else
+        sql:= sql + 'null';
+      sql:= sql + ',Popis=CONVERT(ntext,' + QuotedStr(memoPopis.Text) + ')';
+      tStr:= DateToStr(dtpZac.Date) + ' ' + TimeToStr(dtpZacCas.Time);
+      sql:= sql + ',DatumJednaniOd=CONVERT(datetime,' + QuotedStr(tStr) + ',104)';
+      tStr:= DateToStr(dtpKon.Date) + ' ' + TimeToStr(dtpKonCas.Time);
+      sql:= sql + ',DatumJednaniDo=CONVERT(datetime,' + QuotedStr(tStr) + ',104)';
+      sql:= sql  + ' WHERE id=' + IntToStr(idAkt);
+     end
+    else
+     begin
+      sql:= 'INSERT ' + tblAkt + ' (PoradoveCislo,Kategorie,Predmet,Typ,Stav,DruhVystupu,MistoKonani,';
+      sql:= sql + 'DatumJednaniOd,DatumJednaniDo,CisloOrg,CisloZam,Popis) VALUES (' + edtCislo.Text;
+      sql:= sql + ',N' + QuotedStr(edtKat.Text) + ',N' + QuotedStr(edtPredmet.Text);
+      sql:= sql + ',N' + QuotedStr(edtTyp.Text) + ',N' + QuotedStr(edtStav.Text) + ',N' + QuotedStr('');
+      sql:= sql + ',N' + QuotedStr(edtMisto.Text) + ',';
+      tStr:= DateToStr(dtpZac.Date) + ' ' + TimeToStr(dtpZacCas.Time);
+      sql:= sql + 'CONVERT(datetime,' + QuotedStr(tStr) + ',104),';
+      tStr:= DateToStr(dtpKon.Date) + ' ' + TimeToStr(dtpKonCas.Time);
+      sql:= sql + 'CONVERT(datetime,' + QuotedStr(tStr) + ',104),';
+      if edtOrg.Text<>'' then
+        sql:= sql + edtOrg.Text
+       else
+        sql:= sql + 'null';
+      sql:= sql + ',';
+      if edtVedl.Text<>'' then
+        sql:= sql + edtVedl.Text
+       else
+        sql:= sql + 'null';
+      sql:= sql + ',CONVERT(ntext,' + QuotedStr(memoPopis.Text) + ')';
+
+      sql:= sql + ')';
+     end;
+   if sql<>'' then
+    try
+      Helios.ExecSQL(sql);
+     except on E:Exception do
+      Helios.Error('Nelze uložit údaje pro Aktivitu. ' + CRLF + sql + CRLF + E.Message);
+    end;
+   Close;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.edtCisloEnter(Sender: TObject);
+  begin
+   edtCislo.Color:= bgCol;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.edtCisloExit(Sender: TObject);
+  begin
+   edtCislo.Color:= clWindow;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.edtMistoEnter(Sender: TObject);
+  begin
+   edtMisto.Color:= bgCol;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.edtMistoExit(Sender: TObject);
+  begin
+   edtMisto.Color:= clWindow;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.edtPredmetEnter(Sender: TObject);
+  begin
+   edtPredmet.Color:= bgCol;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.edtPredmetExit(Sender: TObject);
+  begin
+   edtPredmet.Color:= clWindow;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+   DestroyIcon(iPrev.Handle);
+   iPrev.Free;
+   DestroyIcon(iNext.Handle);
+   iNext.Free;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.NactiAktivitu;
+  var sql: string;
+      tStr,tStr2: string;
+      tInt: Integer;
+  begin
+   sql:= 'SELECT * FROM ' + tblAkt + ' WHERE id=' + IntToStr(idAkt);
+   with Helios.OpenSQL(sql) do
+    if RecordCount>0 then
+     begin
+      edtMisto.Text:= VarToStr(FieldByNameValues('MistoKonani'));
+      edtPredmet.Text:= VarToStr(FieldByNameValues('Predmet'));
+      edtTyp.Text:= VarToStr(FieldByNameValues('Typ'));
+      edtStav.Text:= VarToStr(FieldByNameValues('Stav'));
+      memoPopis.Text:= VarToStr(FieldByNameValues('Popis'));
+
+      tStr:= VarToStr(FieldByNameValues('DatumJednaniOd'));
+      tStr2:= tStr;
+      tStr:= Trim(LeftStr(tStr, Pos(' ',tStr)-1));
+      if tStr<>'' then
+       dtpZac.Date:= StrToDate(tStr);
+
+      tStr:= MidStr(tStr2,Pos(' ',tStr2),255);
+      if (tStr<>'') and (Pos(':',tStr)>0) then
+       dtpZacCas.Time:= StrToTime(tStr);
+
+      tStr:= VarToStr(FieldByNameValues('DatumJednaniDo'));
+      tStr2:= tStr;
+      tStr:= Trim(LeftStr(tStr, Pos(' ',tStr)-1));
+      if tStr<>'' then
+       dtpKon.Date:= StrToDate(tStr);
+      tStr:= Trim(MidStr(tStr2,Pos(' ',tStr2),255));
+      if (tStr<>'') and (Pos(':',tStr)>0) then
+       dtpKonCas.Time:= StrToTime(tStr);
+
+      tStr:= VarToStr(FieldByNameValues('CisloOrg'));
+      if tStr<>'' then
+       with Helios.OpenSQL('SELECT Firma FROM ' + tblOrg + ' WHERE CisloOrg=' + tStr) do
+        if RecordCount>0 then
+         begin
+          edtOrg.Text:= tStr;
+          edtOrgNazev.Text:= VarToStr(FieldValues(0));
+         end;
+      tStr:= VarToStr(FieldByNameValues('CisloZam'));
+      if tStr<>'' then
+       with Helios.OpenSQL('SELECT Prijmeni,Jmeno FROM ' + tblCZam + ' WHERE Cislo=' + tStr) do
+        if RecordCount>0 then
+         begin
+          tInt:= StrToInt(tStr);
+          edtVedl.Text:= Format('%.6d',[tInt]);
+          edtVedlPrijm.Text:= VarToStr(FieldValues(0));
+          edtVedlJm.Text:= VarToStr(FieldValues(1));
+         end;
+     end;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.selOrgClick(Sender: TObject);
+  var cOrg: string;
+  begin
+   if Helios.Prenos(1,'CisloOrg',oVar1,'','Organizace',true) then
+    cOrg:= VarToStr(oVar1);
+   if cOrg<>'' then
+    begin
+     edtOrg.Text:= cOrg;
+     with Helios.OpenSQL('SELECT Firma FROM ' + tblOrg + ' WHERE CisloOrg=' + cOrg) do
+      edtOrgNazev.Text:= VarToStr(FieldValues(0));
+    end;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.selStavClick(Sender: TObject);
+  begin
+   if Helios.Prenos2(bidStav,'Cislo','Popis',oVar1,oVar2,'','Typy aktvit',true,true,false,1) then
+    begin
+     edtTyp.Text:= VarToStr(oVar1);
+     edtTyp.Hint:= VarToStr(oVar2);
+     edtTyp.ShowHint:= true;
+    end;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.selTypClick(Sender: TObject);
+  begin
+   if Helios.Prenos2(bidTyp,'Cislo','Popis',oVar1,oVar2,'','Typy aktvit',true,false,false,1) then
+    begin
+     edtTyp.Text:= VarToStr(oVar1);
+//     edtTyp.Text:= StringReplace(edtTyp.Text,'N''','',[rfReplaceAll]);
+//     edtTyp.Text:= StringReplace(edtTyp.Text,'''','',[rfReplaceAll]);
+     edtTyp.Hint:= VarToStr(oVar2);
+     edtTyp.ShowHint:= true;
+    end;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.selVedlCisloClick(Sender: TObject);
+  var cZam: string;
+      iZam: integer;
+  begin
+   cZam:= '';
+   if Helios.Prenos(86,'Cislo',oVar1,'','Zamìstnanec',true) then
+    cZam:= VarToStr(oVar1);
+   if cZam<>'' then
+    with Helios.OpenSQL('SELECT Prijmeni,Jmeno FROM ' + tblCZam + ' WHERE Cislo=' + cZam) do
+    begin
+     iZam:= StrToInt(cZam);
+     edtVedl.Text:= Format('%.6d',[iZam]);
+     edtVedlPrijm.Text:= VarToStr(FieldValues(0));
+     edtVedlJm.Text:= VarToStr(FieldValues(1));
+    end;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.selVedlJmClick(Sender: TObject);
+  begin
+   selVedlCisloClick(Sender);
+  end;
+
+
+
+ procedure TformCRM_Aktivity.selVedlPrijmClick(Sender: TObject);
+  begin
+   selVedlCisloClick(Sender);
+  end;
+
+
+
+ procedure TformCRM_Aktivity.FormShow(Sender: TObject);
+  var sTmp: string;
+      hFnd: THandle;
+      idx: Integer;
+  begin
+   SendMessage(Self.Handle, WM_SETICON, 0, Helios.MainApplicationIconHandle);
+   dtpZac.DateTime:= Now;
+   dtpZacCas.DateTime:= Now;
+   dtpKon.DateTime:= Now;
+   dtpKonCas.DateTime:= Now;
+
+   Self.Font.Name:= Helios.Font;
+   Self.Font.Height:= Helios.FontHeight;
+
+   bgCol:= clWindow;
+   with Helios.OpenSQL('SELECT BarvaPodbarveni FROM TabUziv WHERE BarevnePodbarveni=1 AND LoginName=N' + QuotedStr(Helios.LoginName)) do
+    if RecordCount>0 then
+      bgCol:= StrToInt(VarToStr(FieldValues(0)));
+   idx:= 0;
+   while idx<Self.ComponentCount-1 do
+    begin
+     if (Self.Components[idx] is TTB_Edit) then
+      (Self.Components[idx] as TTB_Edit).ColorOnEnter:= bgCol;
+     if (Self.Components[idx] is TTB_Memo) then
+      (Self.Components[idx] as TTB_Memo).ColorOnEnter:= bgCol;
+     Inc(idx);
+    end;
+
+   iCis:= 1;
+   sql:= 'SELECT PoradoveCislo FROM ' + tblAkt + ' WHERE ';
+   if idAkt<1 then
+     sql:= sql + 'Kategorie=N' + QuotedStr(Helios.KategorieKJ)
+    else
+     sql:= sql + 'id=' + IntToStr(idAkt);
+   with Helios.OpenSQL(sql) do
+    if RecordCount>0 then
+     begin
+      sCis:= VarToStr(FieldValues(0));
+      iCis:= StrToInt(sCis);
+      if idAkt<1 then
+       begin
+        Inc(iCis);
+        sCis:= IntToStr(iCis);
+       end;
+     end;
+
+   sCis:= Format('%.6d',[iCis]);
+   Self.Caption:= '  ' + Helios.KategorieKJ + ' ' + sCis;
+   edtCislo.Text:= sCis;
+   edtKat.Text:= Helios.KategorieKJ;
+
+   hFnd:= GetModuleHandle('helios.exe');
+   SetLength(sTmp, MAX_PATH+1);
+   SetLength(sTmp, GetModuleFileName(hFnd, PChar(sTmp), MAX_PATH+1));
+   imgList.Clear;
+   iPrev:= TIcon.Create;
+   iPrev.SetSize(32,32);
+   iPrev.Handle:= ExtractIcon(hFnd,PChar(sTmp),20); // X_DBPRIOR
+   imgList.AddIcon(iPrev);
+   iNext:= TIcon.Create;
+   iNext.SetSize(32,32);
+   iNext.Handle:= ExtractIcon(hFnd,PChar(sTmp),19); // X_DBNEXT
+   imgList.AddIcon(iNext);
+
+   pgCtrl.ActivePageIndex:= 0;
+   if idAkt>0 then
+    NactiAktivitu;
+   edtCislo.SetFocus;
+
+  end;
+
+
+
+ procedure TformCRM_Aktivity.memoPopisEnter(Sender: TObject);
+  begin
+   memoPopis.Color:= bgCol;
+  end;
+
+
+
+ procedure TformCRM_Aktivity.memoPopisExit(Sender: TObject);
+  begin
+   memoPopis.Color:= clWindow;
+  end;
+
+end.

frmUnit4.dfm

@@ -0,0 +1,27 @@
+object formDodavky: TformDodavky
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = '  Term'#237'ny dod'#225'vek'
+  ClientHeight = 278
+  ClientWidth = 388
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object btnOK: TButton
+    Left = 226
+    Top = 232
+    Width = 75
+    Height = 25
+    Caption = '&OK'
+    TabOrder = 0
+    OnClick = btnOKClick
+  end
+end

frmUnit4.pas

@@ -0,0 +1,32 @@
+unit frmUnit4;
+
+interface
+
+uses
+ Winapi.Windows, System.Classes, Vcl.Forms, Vcl.Controls, Vcl.StdCtrls,
+ ddPlugin_TLB;
+
+type
+  TformDodavky = class(TForm)
+    btnOK: TButton;
+    procedure btnOKClick(Sender: TObject);
+  private
+  public
+   Helios: IHelios;
+   idOrg: integer;
+  end;
+
+var
+  formDodavky: TformDodavky;
+
+implementation
+uses ComObjekt, helUtils;
+
+{$R *.dfm}
+
+ procedure TformDodavky.btnOKClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+ end.

frmUnit5.dfm

@@ -0,0 +1,227 @@
+object formKartyZbozi: TformKartyZbozi
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  ClientHeight = 249
+  ClientWidth = 718
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GroupBox1: TGroupBox
+    Left = 5
+    Top = 5
+    Width = 709
+    Height = 115
+    Caption = ' Hlavn'#237' '#250'daje '
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 22
+      Top = 21
+      Width = 41
+      Height = 13
+      Caption = 'Skupina:'
+    end
+    object Label2: TLabel
+      Left = 98
+      Top = 21
+      Width = 80
+      Height = 13
+      Caption = 'Registra'#269'n'#237' '#269#237'slo:'
+    end
+    object Label3: TLabel
+      Left = 263
+      Top = 21
+      Width = 43
+      Height = 13
+      Caption = 'N'#225'zev 1:'
+    end
+    object Label4: TLabel
+      Left = 22
+      Top = 68
+      Width = 22
+      Height = 13
+      Caption = 'SKP:'
+    end
+    object Label5: TLabel
+      Left = 156
+      Top = 68
+      Width = 63
+      Height = 13
+      Caption = 'MJ evidence:'
+    end
+    object Label6: TLabel
+      Left = 263
+      Top = 68
+      Width = 43
+      Height = 13
+      Caption = 'N'#225'zev 2:'
+    end
+    object selSZ: TRzButtonEdit
+      Left = 22
+      Top = 37
+      Width = 61
+      Height = 21
+      Alignment = taCenter
+      CharCase = ecUpperCase
+      MaxLength = 3
+      TabOrder = 0
+      OnKeyUp = selSZKeyUp
+      AltBtnWidth = 15
+      ButtonWidth = 15
+      OnButtonClick = selSZButtonClick
+    end
+    object edtRC: TRzEdit
+      Left = 98
+      Top = 37
+      Width = 143
+      Height = 21
+      CharCase = ecUpperCase
+      TabOrder = 1
+      OnKeyUp = edtRCKeyUp
+    end
+    object edtNazev1: TRzEdit
+      Left = 263
+      Top = 37
+      Width = 426
+      Height = 21
+      TabOrder = 2
+    end
+    object edtSKP: TRzEdit
+      Left = 22
+      Top = 83
+      Width = 121
+      Height = 21
+      MaxLength = 20
+      TabOrder = 3
+    end
+    object cbMJ: TRzComboBox
+      Left = 156
+      Top = 83
+      Width = 66
+      Height = 21
+      AllowEdit = False
+      Style = csDropDownList
+      TabOrder = 4
+    end
+    object edtNazev2: TRzEdit
+      Left = 263
+      Top = 84
+      Width = 426
+      Height = 21
+      TabOrder = 5
+    end
+  end
+  object btnOK: TBitBtn
+    Left = 472
+    Top = 211
+    Width = 80
+    Height = 30
+    Caption = 'OK'
+    ModalResult = 1
+    TabOrder = 1
+    OnClick = btnOKClick
+  end
+  object btnCancel: TBitBtn
+    Left = 630
+    Top = 211
+    Width = 80
+    Height = 30
+    Caption = 'Storno'
+    ModalResult = 2
+    TabOrder = 2
+    OnClick = btnCancelClick
+  end
+  object GroupBox2: TGroupBox
+    Left = 5
+    Top = 125
+    Width = 709
+    Height = 73
+    Caption = ' Dopl'#328'uj'#237'c'#237' '#250'daje  '
+    TabOrder = 3
+    object Label7: TLabel
+      Left = 55
+      Top = 48
+      Width = 24
+      Height = 13
+      Caption = 'DPH:'
+    end
+    object Label8: TLabel
+      Left = 7
+      Top = 22
+      Width = 72
+      Height = 13
+      Caption = 'Hmotnost (kg):'
+    end
+    object Label9: TLabel
+      Left = 180
+      Top = 22
+      Width = 32
+      Height = 13
+      Caption = 'Balen'#237':'
+    end
+    object Label10: TLabel
+      Left = 306
+      Top = 22
+      Width = 93
+      Height = 13
+      Caption = 'Aktu'#225'ln'#237' dodavatel:'
+    end
+    object Label11: TLabel
+      Left = 168
+      Top = 49
+      Width = 127
+      Height = 13
+      Caption = 'Um'#237'st'#283'n'#237' pro sklad V'#253'roby:'
+    end
+    object cbDPH: TComboBox
+      Left = 98
+      Top = 44
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      TabOrder = 0
+    end
+    object edtHmot: TRzNumericEdit
+      Left = 96
+      Top = 19
+      Width = 58
+      Height = 21
+      TabOrder = 1
+      IntegersOnly = False
+      DisplayFormat = '##,##0.0###;-##,##0.0###'
+    end
+    object edtBal: TRzEdit
+      Left = 231
+      Top = 19
+      Width = 55
+      Height = 21
+      TabOrder = 2
+    end
+    object selDodavatel: TRzButtonEdit
+      Left = 423
+      Top = 18
+      Width = 174
+      Height = 21
+      TabOrder = 3
+      AltBtnWidth = 15
+      ButtonWidth = 15
+      OnButtonClick = selDodavatelButtonClick
+    end
+    object edtUmist: TRzEdit
+      Left = 321
+      Top = 45
+      Width = 121
+      Height = 21
+      TabOrder = 4
+    end
+  end
+end

frmUnit5.pas

@@ -0,0 +1,307 @@
+unit frmUnit5;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ddPlugin_TLB, helUtils,
+  Dialogs, StdCtrls, Mask, RzEdit, RzCmboBx, RzButton, RzPanel, Vcl.Buttons, RzBtnEdt;
+
+type
+  TformKartyZbozi = class(TForm)
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    selSZ: TRzButtonEdit;
+    edtRC: TRzEdit;
+    edtNazev1: TRzEdit;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    edtSKP: TRzEdit;
+    cbMJ: TRzComboBox;
+    edtNazev2: TRzEdit;
+    Label6: TLabel;
+    btnOK: TBitBtn;
+    btnCancel: TBitBtn;
+    GroupBox2: TGroupBox;
+    Label7: TLabel;
+    Label8: TLabel;
+    cbDPH: TComboBox;
+    edtHmot: TRzNumericEdit;
+    edtBal: TRzEdit;
+    Label9: TLabel;
+    Label10: TLabel;
+    selDodavatel: TRzButtonEdit;
+    Label11: TLabel;
+    edtUmist: TRzEdit;
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure selSZButtonClick(Sender: TObject);
+    procedure selSZKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure edtRCKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure btnUpClick(Sender: TObject);
+    procedure btnDownClick(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure btnCancelClick(Sender: TObject);
+    procedure selDodavatelButtonClick(Sender: TObject);
+   private
+    helParams: THeliosParams;
+    procedure NastavEdity;
+    procedure NulujForm;
+    procedure NactiKartu;
+   public
+    Helios: IHelios;
+    idKZ: Integer;
+  end;
+
+var
+  formKartyZbozi: TformKartyZbozi;
+  oVar1,oVar2: OleVariant;
+  cisDod: ShortString;
+
+implementation
+uses System.StrUtils;
+
+{$R *.dfm}
+
+ procedure TformKartyZbozi.NactiKartu;
+  var polKZ: IHeQuery;
+      mj: ShortString;
+      lSQL: WideString;
+  begin
+   if idKZ>0 then
+    begin
+     lSQL:= 'SELECT * FROM ' + tblKZ + ' WHERE id=' + IntToStr(idKZ);
+     polKZ:= Helios.OpenSQL(lSQL);
+     if polKZ.RecordCount>0 then
+      begin
+       selSZ.Text:= VarToStr(polKZ.FieldByNameValues('SkupZbo'));
+       edtRC.Text:= VarToStr(polKZ.FieldByNameValues('RegCis'));
+       edtNazev1.Text:= VarToStr(polKZ.FieldByNameValues('Nazev1'));
+       edtNazev2.Text:= VarToStr(polKZ.FieldByNameValues('Nazev2'));
+       edtSKP.Text:= VarToStr(polKZ.FieldByNameValues('SKP'));
+       edtBal.Text:= VarToStr(polKZ.FieldByNameValues('BaleniTXT'));
+       if VarIsNull(polKZ.FieldByNameValues('MJevidence')) then
+         mj:= '(není)'
+        else
+         mj:= VarToStr(polKZ.FieldByNameValues('MJevidence'));
+       cbMJ.ItemIndex:= cbMJ.Items.IndexOf(mj);
+       if VarIsNull(polKZ.FieldByNameValues('SazbaDPHVystup')) then
+         mj:= '(není)'
+        else
+         mj:= VarToStr(polKZ.FieldByNameValues('SazbaDPHVystup'));
+       cbDPH.ItemIndex:= cbDPH.Items.IndexOf(mj);
+       edtHmot.Value:= StrToFloat(VarToStr(polKZ.FieldByNameValues('Hmotnost')));
+       with Helios.OpenSQL('SELECT _UmisteniVyroba FROM ' + tblKZe + ' WHERE id=' + IntToStr(idKZ)) do
+        if RecordCount=1 then
+         begin
+          if not VarIsNull(FieldValues(0)) then
+            edtUmist.Text:= VarToStr(FieldValues(0))
+           else
+            edtUmist.Text:= '';
+         end;
+      end;
+    end;
+  end;
+
+ procedure TformKartyZbozi.NastavEdity;
+  var idx: integer;
+  begin
+   for idx:=0 to ComponentCount-1 do
+    begin
+     if (Self.Components[idx] is TRzEdit) then
+      (Self.Components[idx] as TRzEdit).FocusColor:= helParams.colBg;
+    end;
+  end;
+
+ procedure TformKartyZbozi.NulujForm;
+  var idx: integer;
+  begin
+   for idx:=0 to ComponentCount-1 do
+    begin
+     if (Self.Components[idx] is TRzEdit) then
+      (Self.Components[idx] as TRzEdit).Text:= '';
+    end;
+   edtHmot.Value:= 0;
+  end;
+
+ procedure TformKartyZbozi.selDodavatelButtonClick(Sender: TObject);
+  begin
+   if Helios.Prenos(bidCisOrg,'CisloOrg',oVar1,'','Organizace',True) then
+     begin
+      cisDod:= VarToStr(oVar1);
+      with Helios.OpenSQL('SELECT Nazev FROM ' + tblCOrg + ' WHERE CisloOrg=' + cisDod) do
+       if RecordCount=1 then
+        selDodavatel.Text:= VarToStr(FieldValues(0));
+     end;
+  end;
+
+ procedure TformKartyZbozi.selSZButtonClick(Sender: TObject);
+  begin
+   if Helios.Prenos(bidSZ,'SkupZbo',oVar1,'','Vyberte skupinu zboží',true) then
+    begin
+     selSZ.Text:= VarToStr(oVar1);
+     edtRC.SetFocus;
+    end;
+  end;
+
+ procedure TformKartyZbozi.selSZKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if Key<>Ord(32) then
+    if Length(selSZ.Text)=3 then
+     edtRC.SetFocus;
+  end;
+
+ procedure TformKartyZbozi.btnCancelClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+ procedure TformKartyZbozi.btnDownClick(Sender: TObject);
+  begin
+   if not Helios.QueryBrowse.EOF then
+    Helios.QueryBrowse.Next;
+  end;
+
+ procedure TformKartyZbozi.btnOKClick(Sender: TObject);
+  var lSQL: WideString;
+  begin
+   if idKZ>0 then
+     begin
+      lSQL:= 'UPDATE ' + tblKZ + ' SET Nazev1=N' + QuotedStr(edtNazev1.Text) + ',Nazev2=N' + QuotedStr(edtNazev2.Text);
+      lSQL:= lSQL + ',BaleniTXT=N' + QuotedStr(edtBal.Text) + ',SKP=N' + QuotedStr(edtSKP.Text);
+      if cbMJ.ItemIndex=0 then
+        lSQL:= lSQL + ',MJevidence=null'
+       else
+        lSQL:= lSQL + ',MJevidence=N' + QuotedStr(cbMJ.Text);
+      lSQL:= lSQL + ',Aktualni_Dodavatel=';
+      if cisDod<>'' then
+        lSQL:= lSQL + cisDod
+       else
+        lSQL:= lSQL + 'null';
+      lSQL:= lSQL + ',SkupZbo=N' + QuotedStr(selSZ.Text);
+      lSQL:= lSQL + ',RegCis=N' + QuotedStr(edtRC.Text) + ',Hmotnost=' + StringReplace(edtHmot.Text,',','.',[rfReplaceAll]);
+      if cbDPH.ItemIndex=0 then
+        lSQL:= lSQL + ',SazbaDPHVystup=null'
+       else
+        lSQL:= lSQL + ',SazbaDPHVystup=' + cbDPH.Text;
+      lSQL:= lSQL + ' WHERE id=' + IntToStr(idKZ);
+      lSQL:= lSQL + CRLF + 'IF EXISTS(SELECT Id FROM ' + tblKZe + ' WHERE id=' + IntToStr(idKZ) + ') ';
+      lSQL:= lSQL + 'UPDATE ' + tblKZe + ' SET _UmisteniVyroba=N' + QuotedStr(edtUmist.Text) + ' WHERE id=' + IntToStr(idKZ);
+      lSQL:= lSQL + CRLF + ' ELSE INSERT INTO ' + tblKZe + ' (id,_UmisteniVyroba) VALUES(' + IntToStr(idKZ) + ',N' + QuotedStr(edtUmist.Text) + ')';
+     end
+    else
+     begin
+      lSQL:= 'INSERT INTO ' + tblKZ + ' (SkupZbo,RegCis,Nazev1,Nazev2,SKP,MJevidence,BaleniTXT,SazbaDPHVystup,Hmotnost,DruhSkladu,Aktualni_Dodavatel)';
+      lSQL:= lSQL + ' VALUES (N' + QuotedStr(selSZ.Text);
+      lSQL:= lSQL + ',N' + QuotedStr(edtRC.Text) + ',N' + QuotedStr(edtNazev1.Text) + ',N' + QuotedStr(edtNazev2.Text);
+      lSQL:= lSQL + ',N' + QuotedStr(edtSKP.Text) + ',';
+      if cbMJ.ItemIndex=0 then
+        lSQL:= lSQL + 'null'
+       else
+        lSQL:= lSQL + 'N' + QuotedStr(cbMJ.Text);
+      lSQL:= lSQL + ',N' + QuotedStr(edtBal.Text) + ',';
+      if cbDPH.ItemIndex=0 then
+        lSQL:= lSQL + 'null'
+       else
+        lSQL:= lSQL + cbDPH.Text;
+      lSQL:= lSQL + ',' + StringReplace(edtHmot.Text,',','.',[rfReplaceAll]) + ',1,';
+      if cisDod<>'' then
+        lSQL:= lSQL + cisDod
+       else
+        lSQL:= lSQL + 'null';
+      lSQL:= lSQL + ')';
+      lSQL:= lSQL + CRLF + 'INSERT INTO ' + tblKZe + ' (id,_UmisteniVyroba) VALUES(SCOPE_IDENTITY(),N' + QuotedStr(edtUmist.Text) + ')';
+     end;
+    try
+      Helios.ExecSQL(lSQL);
+     except on E:Exception do
+      Helios.Error(#1'Nelze uložit novou/aktualizovanou kartu.'#1 + CRLF + E.Message);
+    end;
+   Close;
+  end;
+
+ procedure TformKartyZbozi.btnUpClick(Sender: TObject);
+  begin
+   if not Helios.QueryBrowse.BOF then
+    Helios.QueryBrowse.Prev;
+  end;
+
+ procedure TformKartyZbozi.edtRCKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  var iCislo: integer;
+      lSQL: WideString;
+  begin
+   edtRC.Text:= UpperCase(edtRC.Text);
+   if LeftStr(edtRC.Text,4)='POL_' then
+    if Length(edtRC.Text)=8 then
+     begin
+      lSQL:= 'SELECT TOP(1) RegCis FROM ' + tblKZ + ' WHERE SkupZbo=N' + QuotedStr(selSZ.Text) + ' AND RegCis LIKE ';
+      lSQL:= lSQL + QuotedStr(edtRC.Text + '%') + ' ORDER BY RegCis DESC';
+      with Helios.OpenSQL(lSQL) do
+      if RecordCount>0 then
+        iCislo:= 1 + StrToInt(MidStr(FieldValues(0),9,10))
+       else
+        iCislo:= 1;
+      edtRC.Text:= edtRC.Text + StringOfChar('0', 3 - Length(IntToStr(iCislo))) + IntToStr(iCislo);
+      edtNazev1.SetFocus;
+     end;
+  end;
+
+ procedure TformKartyZbozi.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+  end;
+
+ procedure TformKartyZbozi.FormShow(Sender: TObject);
+  var lSQL: WideString;
+  begin
+   UseLatestCommonDialogs:= True;
+
+   Self.Icon.Handle:= Helios.MainApplicationIconHandle;
+   Self.Font.Name:= Helios.Font;
+   Self.Font.Height:= Helios.FontHeight;
+
+   NactiParametryHeliosu(Helios, helParams);
+   if helParams.podbarveni then
+    NastavEdity;
+
+   lSQL:= 'SELECT d.Sazba FROM ' + tblDPH + ' d INNER JOIN ' + tblDPHDef + ' df ON (d.id=df.IdDPH) WHERE df.Platnost=0';
+   lSQL:= lSQL + ' AND df.Blokovano=0 AND df.IdObdobi=' + IntToStr(Helios.Obdobi) + ' ORDER BY d.Sazba';
+   with Helios.OpenSQL(lSQL) do
+    if RecordCount>0 then
+     begin
+      cbDPH.Clear;
+      cbDPH.Items.Add('(není)');
+      First;
+      while not(EOF) do
+       begin
+        cbDPH.Items.Add(VarToStr(FieldValues(0)));
+        Next;
+       end;
+      cbDPH.ItemIndex:= 0;
+     end;
+
+   with Helios.OpenSQL('SELECT kod FROM TabMJ ORDER BY kod') do
+    if RecordCount>0 then
+     begin
+      First;
+      cbMJ.Clear;
+      cbMJ.Items.Add('(není)');
+      while not(EOF) do
+       begin
+        cbMJ.Items.Add(VarToStr(FieldValues(0)));
+        Next;
+       end;
+      cbMJ.ItemIndex:= 0;
+     end;
+
+   if idKZ=0 then
+     begin
+      Self.Caption:= '  Nová karta zboží';
+      NulujForm;
+     end
+    else
+     NactiKartu;
+  end;
+
+end.

frmUnit6.dfm

@@ -0,0 +1,457 @@
+object formVydejka: TformVydejka
+  Left = 0
+  Top = 0
+  Caption = '  V'#253'dejka'
+  ClientHeight = 467
+  ClientWidth = 944
+  Color = clBtnFace
+  Constraints.MaxHeight = 505
+  Constraints.MaxWidth = 960
+  Constraints.MinHeight = 505
+  Constraints.MinWidth = 960
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object pgControl: TPageControl
+    Left = 4
+    Top = 40
+    Width = 940
+    Height = 390
+    ActivePage = pgHlavicka
+    TabOrder = 0
+    OnChange = pgControlChange
+    object pgHlavicka: TTabSheet
+      Caption = '1 - Hlavi'#269'ka'
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object GroupBox1: TGroupBox
+        Left = 6
+        Top = 6
+        Width = 409
+        Height = 139
+        Caption = '  [1]  Organizace  '
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        object Label1: TLabel
+          Left = 10
+          Top = 24
+          Width = 52
+          Height = 13
+          Caption = '&Odb'#283'ratel:'
+        end
+        object Label2: TLabel
+          Left = 10
+          Top = 74
+          Width = 61
+          Height = 13
+          Caption = '&M'#237'sto ur'#269'en'#237':'
+        end
+        object selCisOrg: TRzButtonEdit
+          Left = 10
+          Top = 45
+          Width = 81
+          Height = 21
+          Alignment = taRightJustify
+          MaxLength = 8
+          TabOrder = 0
+          OnExit = selCisOrgExit
+          AltBtnWidth = 15
+          ButtonWidth = 15
+          OnButtonClick = selCisOrgButtonClick
+        end
+        object selOdber: TRzButtonEdit
+          Left = 106
+          Top = 45
+          Width = 289
+          Height = 21
+          TabOrder = 1
+          AltBtnWidth = 15
+          ButtonWidth = 15
+          OnButtonClick = selOdberButtonClick
+        end
+        object selCisOrgMisto: TRzButtonEdit
+          Left = 10
+          Top = 92
+          Width = 81
+          Height = 21
+          Alignment = taRightJustify
+          TabOrder = 2
+          OnExit = selCisOrgMistoExit
+          AltBtnWidth = 15
+          ButtonWidth = 15
+          OnButtonClick = selCisOrgMistoButtonClick
+        end
+        object selOdberMisto: TRzButtonEdit
+          Left = 106
+          Top = 92
+          Width = 289
+          Height = 21
+          TabOrder = 3
+          AltBtnWidth = 15
+          ButtonWidth = 15
+          OnButtonClick = selOdberMistoButtonClick
+        end
+      end
+      object GroupBox2: TGroupBox
+        Left = 427
+        Top = 6
+        Width = 278
+        Height = 139
+        Caption = ' [2]  Datum, dopl'#328'uj'#237'c'#237' informace  '
+        TabOrder = 1
+        object Label3: TLabel
+          Left = 11
+          Top = 24
+          Width = 74
+          Height = 13
+          Caption = 'Datum p'#345#237'padu:'
+        end
+        object Label4: TLabel
+          Left = 55
+          Top = 52
+          Width = 30
+          Height = 13
+          Caption = 'M'#283'na:'
+        end
+        object Label5: TLabel
+          Left = 60
+          Top = 85
+          Width = 25
+          Height = 13
+          Caption = 'Kurz:'
+        end
+        object edtDatPrip: TRzDateTimeEdit
+          Left = 109
+          Top = 21
+          Width = 102
+          Height = 21
+          CaptionTodayBtn = 'Dnes'
+          CaptionClearBtn = 'Smazat'
+          CaptionSet = 'Vybrat'
+          EditType = etDate
+          Alignment = taCenter
+          TabOrder = 0
+        end
+        object cbMena: TComboBox
+          Left = 110
+          Top = 49
+          Width = 101
+          Height = 21
+          Style = csDropDownList
+          CharCase = ecUpperCase
+          TabOrder = 1
+        end
+        object selKurz: TRzButtonEdit
+          Left = 109
+          Top = 82
+          Width = 102
+          Height = 21
+          Alignment = taRightJustify
+          MaxLength = 6
+          TabOrder = 2
+          AltBtnWidth = 15
+          ButtonWidth = 15
+          OnButtonClick = selKurzButtonClick
+        end
+      end
+    end
+    object pgPolozky: TTabSheet
+      Caption = '2 - Polo'#382'ky'
+      ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object GroupBox3: TGroupBox
+        Left = 0
+        Top = 3
+        Width = 931
+        Height = 359
+        TabOrder = 0
+        object GroupBox4: TGroupBox
+          Left = 3
+          Top = 1
+          Width = 925
+          Height = 55
+          TabOrder = 0
+          object btnPolAdd: TSpeedButton
+            Left = 6
+            Top = 1
+            Width = 49
+            Height = 52
+            Caption = 'Nov'#253'...'
+            Layout = blGlyphTop
+            OnClick = btnPolAddClick
+          end
+          object btnPolEdit: TSpeedButton
+            Left = 59
+            Top = 1
+            Width = 56
+            Height = 52
+            Caption = 'Oprava...'
+            Layout = blGlyphTop
+            OnClick = btnPolEditClick
+          end
+          object btnPolDel: TSpeedButton
+            Left = 119
+            Top = 1
+            Width = 51
+            Height = 52
+            Caption = 'Zru'#353'it'
+            Layout = blGlyphTop
+            OnClick = btnPolDelClick
+          end
+        end
+        object gridPol: TcxGrid
+          Left = 7
+          Top = 58
+          Width = 924
+          Height = 301
+          TabOrder = 1
+          object viewPol: TcxGridDBTableView
+            Navigator.Buttons.CustomButtons = <>
+            OnCellDblClick = viewPolCellDblClick
+            DataController.DataSource = dsPol
+            DataController.Summary.DefaultGroupSummaryItems = <
+              item
+                Format = '### ### ##0.0##'
+                Position = spFooter
+                Column = colCCbezDPH
+              end
+              item
+                Format = '###,###,##0.0##'
+                Position = spFooter
+                Column = colMnoz
+              end>
+            DataController.Summary.FooterSummaryItems = <
+              item
+                Kind = skSum
+                Column = colMnoz
+              end
+              item
+                Kind = skSum
+                Column = colCCbezDPH
+              end>
+            DataController.Summary.SummaryGroups = <>
+            Images = imgList
+            OptionsCustomize.ColumnFiltering = False
+            OptionsData.CancelOnExit = False
+            OptionsData.Deleting = False
+            OptionsData.DeletingConfirmation = False
+            OptionsData.Editing = False
+            OptionsData.Inserting = False
+            OptionsSelection.CellSelect = False
+            OptionsView.Footer = True
+            OptionsView.FooterAutoHeight = True
+            OptionsView.GroupByBox = False
+            OnColumnHeaderClick = viewPolColumnHeaderClick
+            object colIdSS: TcxGridDBColumn
+              Visible = False
+            end
+            object colIdKZ: TcxGridDBColumn
+              Visible = False
+            end
+            object colSZ: TcxGridDBColumn
+              PropertiesClassName = 'TcxLabelProperties'
+              Properties.Alignment.Horz = taCenter
+            end
+            object colRegCis: TcxGridDBColumn
+            end
+            object colNazev1: TcxGridDBColumn
+            end
+            object colNazev2: TcxGridDBColumn
+            end
+            object colMJ: TcxGridDBColumn
+              PropertiesClassName = 'TcxLabelProperties'
+              Properties.Alignment.Horz = taCenter
+            end
+            object colMnoz: TcxGridDBColumn
+            end
+            object colJCbezDaniKc: TcxGridDBColumn
+            end
+            object colCCbezDPH: TcxGridDBColumn
+            end
+            object colIdPZ: TcxGridDBColumn
+            end
+          end
+          object lvPol: TcxGridLevel
+            GridView = viewPol
+          end
+        end
+      end
+    end
+    object pgSklad: TTabSheet
+      Caption = '3 - Sklady kooperant'#367
+      ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object gridSklad: TcxGrid
+        Left = 0
+        Top = 0
+        Width = 929
+        Height = 359
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        PopupMenu = pmSklad
+        TabOrder = 0
+        object viewSklad: TcxGridDBTableView
+          Navigator.Buttons.CustomButtons = <>
+          FilterBox.CustomizeDialog = False
+          FilterBox.Position = fpTop
+          FilterBox.Visible = fvNever
+          OnCellDblClick = viewSkladCellDblClick
+          DataController.DataSource = dsSklad
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          Filtering.ColumnMRUItemsList = False
+          FilterRow.InfoText = 'Sem klikn'#283'te pro definici filtru'
+          FilterRow.ApplyChanges = fracImmediately
+          OptionsCustomize.ColumnFiltering = False
+          OptionsData.CancelOnExit = False
+          OptionsData.Deleting = False
+          OptionsData.DeletingConfirmation = False
+          OptionsData.Editing = False
+          OptionsData.Inserting = False
+          OptionsSelection.CellSelect = False
+          OptionsView.GroupByBox = False
+          object colIdSS2: TcxGridDBColumn
+          end
+          object colIdKZ2: TcxGridDBColumn
+          end
+          object colSZ2: TcxGridDBColumn
+            PropertiesClassName = 'TcxLabelProperties'
+            Properties.Alignment.Horz = taCenter
+          end
+          object colRegCis2: TcxGridDBColumn
+            PropertiesClassName = 'TcxLabelProperties'
+            Properties.Alignment.Horz = taCenter
+          end
+          object colNazev12: TcxGridDBColumn
+          end
+          object colNazev22: TcxGridDBColumn
+          end
+          object colMJ2: TcxGridDBColumn
+            PropertiesClassName = 'TcxLabelProperties'
+            Properties.Alignment.Horz = taCenter
+          end
+          object colMnoz2: TcxGridDBColumn
+          end
+          object colJCbezDaniKc2: TcxGridDBColumn
+          end
+          object colCCbezDPH2: TcxGridDBColumn
+          end
+        end
+        object lvSklad: TcxGridLevel
+          GridView = viewSklad
+        end
+      end
+    end
+  end
+  object tBar: TToolBar
+    Left = 0
+    Top = 0
+    Width = 944
+    Height = 36
+    ButtonHeight = 38
+    ButtonWidth = 39
+    Caption = 'tBar'
+    Images = imgList
+    TabOrder = 1
+    object tBtn1: TToolButton
+      Left = 0
+      Top = 0
+      Margins.Left = 1
+      Margins.Top = 1
+      Margins.Right = 1
+      Margins.Bottom = 1
+      Caption = 'tBtn1'
+      ImageIndex = 1
+    end
+    object tBtn2: TToolButton
+      Left = 39
+      Top = 0
+      Caption = 'tBtn2'
+      ImageIndex = 2
+    end
+  end
+  object btnOK: TButton
+    Left = 762
+    Top = 439
+    Width = 75
+    Height = 25
+    Caption = '&OK'
+    ModalResult = 1
+    TabOrder = 2
+    OnClick = btnOKClick
+  end
+  object btnCanel: TButton
+    Left = 857
+    Top = 439
+    Width = 75
+    Height = 25
+    Caption = '&Storno'
+    ModalResult = 2
+    TabOrder = 3
+    OnClick = btnCanelClick
+  end
+  object vTabPol: TVirtualTable
+    OnCalcFields = vTabPolCalcFields
+    Left = 90
+    Top = 404
+    Data = {03000000000000000000}
+  end
+  object dsPol: TDataSource
+    DataSet = vTabPol
+    Left = 142
+    Top = 404
+  end
+  object imgList: TImageList
+    ColorDepth = cd8Bit
+    Height = 32
+    ShareImages = True
+    Width = 32
+    Left = 30
+    Top = 402
+  end
+  object dsSklad: TDataSource
+    DataSet = vTabSklad
+    Left = 274
+    Top = 404
+  end
+  object vTabSklad: TVirtualTable
+    Left = 214
+    Top = 404
+    Data = {03000000000000000000}
+  end
+  object pmSklad: TPopupMenu
+    Left = 440
+    Top = 404
+    object pmSklad1: TMenuItem
+      Caption = '&Na'#269'ti obsah skladu'
+      OnClick = pmSklad1Click
+    end
+  end
+end

frmUnit8.dfm

@@ -0,0 +1,214 @@
+object formPrijemkaNadvyroba: TformPrijemkaNadvyroba
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = '  P'#345#237'jemka (evidence) - Dom'#225'c'#237' v'#253'roba'
+  ClientHeight = 192
+  ClientWidth = 584
+  Color = clBtnFace
+  Constraints.MaxHeight = 230
+  Constraints.MaxWidth = 600
+  Constraints.MinHeight = 230
+  Constraints.MinWidth = 600
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GroupBox2: TGroupBox
+    Left = 7
+    Top = 8
+    Width = 569
+    Height = 137
+    TabOrder = 0
+    object Label4: TLabel
+      Left = 383
+      Top = 11
+      Width = 41
+      Height = 13
+      Caption = 'Datum:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 9
+      Top = 11
+      Width = 96
+      Height = 13
+      Caption = 'Os.'#269#237'slo zam'#283'st. :'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 23
+      Top = 30
+      Width = 83
+      Height = 13
+      Caption = 'Zam'#283'stnanec :'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 23
+      Top = 66
+      Width = 14
+      Height = 13
+      Caption = 'SZ'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 58
+      Top = 66
+      Width = 50
+      Height = 13
+      Caption = 'Reg.'#269#237'slo'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 170
+      Top = 66
+      Width = 34
+      Height = 13
+      Caption = 'N'#225'zev'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 389
+      Top = 106
+      Width = 57
+      Height = 13
+      Alignment = taCenter
+      Caption = 'Mno'#382'stv'#237' :'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+    end
+    object lblSZ: TLabel
+      Left = 23
+      Top = 82
+      Width = 3
+      Height = 13
+    end
+    object lblRegCis: TLabel
+      Left = 58
+      Top = 82
+      Width = 3
+      Height = 13
+    end
+    object lblNazev: TLabel
+      Left = 170
+      Top = 82
+      Width = 3
+      Height = 13
+    end
+    object lblCisZam: TLabel
+      Left = 117
+      Top = 11
+      Width = 3
+      Height = 13
+    end
+    object lblZamest: TLabel
+      Left = 117
+      Top = 30
+      Width = 3
+      Height = 13
+    end
+    object lblPrikaz: TLabel
+      Left = 23
+      Top = 106
+      Width = 3
+      Height = 13
+    end
+    object dtPicker: TDateTimePicker
+      Left = 435
+      Top = 8
+      Width = 96
+      Height = 21
+      Date = 40952.869654375000000000
+      Time = 40952.869654375000000000
+      MaxDate = 44196.000000000000000000
+      MinDate = 40909.000000000000000000
+      TabOrder = 0
+    end
+    object edtMnoz: TRzNumericEdit
+      Left = 456
+      Top = 103
+      Width = 53
+      Height = 21
+      Alignment = taCenter
+      MaxLength = 6
+      TabOrder = 1
+      Max = 999999.000000000000000000
+      DisplayFormat = '0;-0'
+    end
+  end
+  object btnOK: TButton
+    Left = 384
+    Top = 156
+    Width = 75
+    Height = 25
+    Caption = '&OK'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ModalResult = 1
+    ParentFont = False
+    TabOrder = 1
+    OnClick = btnOKClick
+  end
+  object btnCancel: TButton
+    Left = 501
+    Top = 156
+    Width = 75
+    Height = 25
+    Caption = '&Zru'#353'it'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ModalResult = 2
+    ParentFont = False
+    TabOrder = 2
+    OnClick = btnCancelClick
+  end
+end

frmUnit8.pas

@@ -0,0 +1,502 @@
+unit frmUnit8;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ddPlugin_TLB, helUtils, Vcl.Buttons, Vcl.Menus, Vcl.ComCtrls, Vcl.StdCtrls,
+  Vcl.Mask, RzEdit;
+
+const
+ sklProOdvodDP = '200';
+ radaOdvedDP = '240';
+ radaVydejDP = '470';
+ errPlg = #13#10 + '(plgLOVATO,unit8)';
+ rDoklVydMat = '400';
+ sklProMatDP = '20000105';
+
+type
+  TformPrijemkaNadvyroba = class(TForm)
+    GroupBox2: TGroupBox;
+    btnOK: TButton;
+    btnCancel: TButton;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label1: TLabel;
+    dtPicker: TDateTimePicker;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    lblSZ: TLabel;
+    lblRegCis: TLabel;
+    lblNazev: TLabel;
+    lblCisZam: TLabel;
+    lblZamest: TLabel;
+    edtMnoz: TRzNumericEdit;
+    lblPrikaz: TLabel;
+    procedure FormShow(Sender: TObject);
+    procedure btnCancelClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormActivate(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure edtMnozKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+   private
+    helParams: THeliosParams;
+    procedure NastavFonty;
+    procedure NactiPolozkuKoopObj;
+   public
+    idPKObj: integer;
+    Helios: IHelios;
+  end;
+
+var
+  formPrijemkaNadvyroba: TformPrijemkaNadvyroba;
+  idKO,idKZ,idVPr,dokl: integer;
+  idCOrgDP: integer;
+  cZam: shortString;
+
+implementation
+uses System.StrUtils, System.DateUtils;
+
+{$R *.dfm}
+
+ procedure TformPrijemkaNadvyroba.NactiPolozkuKoopObj;
+  var locSQL: WideString;
+  begin
+   with Helios.OpenSQL('SELECT id FROM ' + tblPrikaz + ' WHERE StavPrikazu IN (30,40) AND kusy_zive>0 AND id=' + IntToStr(idVPr)) do
+    if RecordCount>0 then
+      begin
+       if idPKObj>0 then
+        begin
+         locSQL:= 'SELECT (pko.Kusy-pko.KusyPrevedene),kz.SkupZbo,kz.RegCis,kz.Nazev1,cz.PrijmeniJmeno,cz.Cislo,ko.id,';
+         locSQL:= locSQL + 'kz.id,p.id,pko.DokladPrPostup FROM ' + tblPKObj + ' pko INNER JOIN ' + tblPrikaz + ' p ON (pko.IdPrikaz=p.Id)';
+         locSQL:= locSQL + ' INNER JOIN ' + tblKZ + ' kz ON (p.IdTabKmen=kz.id) INNER JOIN ' + tblKObj + ' ko ON';
+         locSQL:= locSQL + ' (pko.IDObjednavky=ko.id) INNER JOIN ' + tblCZam + ' cz ON (ko.IdZamestnance=cz.id) WHERE';
+         locSQL:= locSQL + ' pko.id=' + IntToStr(idPKObj) + ' AND ko.IDOrganizace=' + IntToStr(idCOrgDP);
+         with Helios.OpenSQL(locSQL) do
+          if RecordCount>0 then
+           begin
+            edtMnoz.Value:= StrToFloat(VarToStr(FieldValues(0)));
+            lblSZ.Caption:= VarToStr(FieldValues(1));
+            lblRegCis.Caption:= VarToStr(FieldValues(2));
+            lblNazev.Caption:= VarToStr(FieldValues(3));
+            lblZamest.Caption:= VarToStr(FieldValues(4));
+            lblCisZam.Caption:= VarToStr(FieldValues(5));
+            cZam:= lblCisZam.Caption;
+            lblCisZam.Caption:= StringOfChar('0',6-Length(cZam)) + cZam;
+            idKO:= StrToInt(VarToStr(FieldValues(6)));
+            idKZ:= StrToInt(VarToStr(FieldValues(7)));
+//            idVPr:= StrToInt(VarToStr(FieldValues(8)));
+            dokl:= StrToInt(VarToStr(FieldValues(9)));
+           end;
+        end;
+      end
+     else
+      begin
+       locSQL:= #1'Na pøíkaze nejsou už žádné živé kusy, nelze dìlat další pøíjemku.'#1 + CRLF + 'Pokud i pøesto chcete';
+       locSQL:= locSQL + ' zaevidovat pøíjemku, kontaktujte' + CRLF + 'firmu NTS Strakonice, konzultanty Heliosu, modul Výroba.';
+       Helios.Error(locSQL);
+       btnOK.Enabled:= false;
+       edtMnoz.Enabled:= false;
+       Close;
+      end;
+  end;
+
+ procedure TformPrijemkaNadvyroba.btnCancelClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+ procedure TformPrijemkaNadvyroba.btnOKClick(Sender: TObject);
+  var locSQL,podm: WideString;
+      idPMaZ,idDZ,idPZ,cKoop,idDZshift,idPrKVaz,GidKZ: integer;
+      jc,cc,kurz,qDat,GidSS,Gdokl,mnTxt,idObd,dt: shortString;
+      mnoz,mnReal: Extended;
+      realVyd, realPrij: boolean;
+  begin
+   jc:= '0.05';
+   kurz:= '25';
+   realVyd:= false;
+   realPrij:= false;
+
+   dt:= DateToStr(dtPicker.Date) + ' ' + TimeToStr(Now);
+
+   idObd:= '0';
+   locSQL:= 'DECLARE @obd INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
+   locSQL:= locSQL + CRLF + 'EXEC @obd=dbo.hp_GetObdobiDleDatumu @dt,0,null,null,0,0' + CRLF + 'SELECT @obd';
+   with Helios.OpenSQL(locSQL) do
+    idObd:= VarToStr(FieldValues(0));
+
+   with Helios.OpenSQL('SELECT id FROM dbo.TabCKoop WHERE Rada=N' + QuotedStr('105')) do
+    cKoop:= StrToInt(VarToStr(FieldValues(0)));
+   locSQL:= 'SELECT CelniKurz FROM ' + tblKList + ' WHERE Mena=N' + QuotedStr('EUR') + ' AND Datum_Y=';
+   locSQL:= locSQL + IntToStr(YearOf(dtPicker.Date)) + ' AND Datum_M=' + IntToStr(MonthOf(dtPicker.Date));
+   locSQL:= locSQL + ' ORDER BY Cislo desc';
+   with Helios.OpenSQL(locSQL) do
+    if RecordCount>0 then
+     kurz:= VarToStr(FieldValues(0));
+   with Helios.OpenSQL('SELECT Mat FROM ' + tblZaKalk + ' WHERE dilec=' + IntToStr(idKZ)) do
+    if RecordCount>0 then
+     jc:= VarToStr(FieldValues(0));
+
+   jc:= FloatToStr(StrToFloat(jc) * StrToFloat(kurz));
+   cc:= FloatToStr(StrToFloat(jc) * edtMnoz.Value);
+   jc:= StringReplace(jc,',','.',[rfReplaceAll]);
+   cc:= StringReplace(cc,',','.',[rfReplaceAll]);
+
+   ReseedTable(Helios,tblMzdZm);
+   idPMaZ:= 0;
+   Helios.ExecSQL('INSERT ' + tblMzdZm + ' (TypMzdy,BlokovaniEditoru) VALUES (2,1)');
+   with Helios.OpenSQL('SELECT SCOPE_IDENTITY()') do
+    idPMaZ:= StrToInt(VarToStr(FieldValues(0)));
+
+   mnTxt:= StringReplace(edtMnoz.Text,' ','',[rfReplaceAll]);
+
+   locSQL:= 'UPDATE ' + tblMzdZm + ' SET Datum=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
+   locSQL:= locSQL + ',Stav=0,IDKoopObj=' + IntToStr(idKO) + ',IDPolKoopObj=' + IntToStr(idPKObj) + ',IDPrikaz=' + IntToStr(idVPr);
+   locSQL:= locSQL + ',IDTabKmen=' + IntToStr(idKZ) + ',kusy_odv=' + StringReplace(mnTxt,',','.',[rfReplaceAll]);
+   locSQL:= locSQL + ',DokladPrPostup=' + IntToStr(dokl) + ',IDDodavatel=' + IntToStr(idCOrgDP) + ',AltPrPostup=N' + QuotedStr('A');
+   locSQL:= locSQL + ',Operace_odv=' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ',BlokovaniEditoru=null';
+   locSQL:= locSQL + ',IDKooperace=' + IntToStr(cKoop);
+   locSQL:= locSQL  + ' WHERE id=' + IntToStr(idPMaZ);
+   try
+     Helios.ExecSQL(locSQL);
+    except on E:Exception do
+     Helios.Error(#1'Chyba pøi ukládání záznamu evidence Nadvýroby.'#1 + CRLF + E.Message + locSQL + errPlg);
+   end;
+   if idPMaZ>0 then
+    begin
+     idDZ:= 0;
+
+     locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd' + CRLF;
+     locSQL:= locSQL + 'CREATE TABLE #TabGenRezVyd(ID INT NOT NULL)';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved' + CRLF;
+     locSQL:= locSQL + 'CREATE TABLE #TabOdved (id int identity, IDPrikaz int NOT NULL, IDDilec int NOT NULL, IDZakazka int, maxMnozstvi NUMERIC(19,6)';
+     locSQL:= locSQL + ',mnozstvi NUMERIC(19,6) NOT NULL, EvidJednotka INT NOT NULL, Sklad NVARCHAR(30), KodUmisteni NVARCHAR(15) )';
+     Helios.ExecSQL(locSQL);
+     locSQL:= 'INSERT #TabOdved (IDPrikaz,IDDilec,Mnozstvi,EvidJednotka,Sklad) VALUES (';
+     locSQL:= locSQL + IntToStr(idVPr) + ',' + IntToStr(idKZ) + ',' + StringReplace(mnTxt,',','.',[rfReplaceAll]);
+     locSQL:= locSQL +  ',1,N' + QuotedStr(sklProOdvodDP) + ')';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen' + CRLF;
+     locSQL:= locSQL + 'CREATE TABLE #TabPrKVazbyGen(ID INT IDENTITY NOT NULL, Generuj BIT NOT NULL DEFAULT 1,';
+     locSQL:= locSQL + 'PoKorekciDat BIT NOT NULL DEFAULT 0,	IDPrKV INT NOT NULL,	Doklad INT NOT NULL,	IDPrikaz INT NOT NULL,';
+     locSQL:= locSQL + 'Prednastaveno BIT NOT NULL DEFAULT 1, Sklad NVARCHAR(30) COLLATE database_default NULL,';
+     locSQL:= locSQL + 'VyrStredisko NVARCHAR(30) COLLATE database_default NULL, IDPracoviste INT NULL,';
+     locSQL:= locSQL + 'mnoz_zad NUMERIC(19, 6) NOT NULL DEFAULT 0, Mnoz_nepotrebne NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+     locSQL:= locSQL + 'Mnoz_skut_realizovane NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_real NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+     locSQL:= locSQL + 'Mnoz_odv NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_odv NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+     locSQL:= locSQL + 'MnozstviMax NUMERIC(19, 6) NULL, MnozstviPoz NUMERIC(19, 6) NOT NULL,	PomMnozPoz NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+     locSQL:= locSQL + 'IDPohZbo INT NULL, priorita INT NOT NULL DEFAULT 0, vyssi INT NOT NULL,	nizsi INT NOT NULL,';
+     locSQL:= locSQL + 'DavkaTPV NUMERIC(19, 6) NOT NULL DEFAULT 1, pozice NVARCHAR(100) COLLATE database_default NULL DEFAULT '''',';
+     locSQL:= locSQL + 'Operace NCHAR(4) COLLATE database_default NULL DEFAULT '''', FixniMnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+     locSQL:= locSQL + 'mnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 1, ProcZtrat NUMERIC(5, 2) NOT NULL DEFAULT 0,';
+     locSQL:= locSQL + 'mnozstviSeZtratou NUMERIC(19, 6) NOT NULL DEFAULT 0,	Prirez NUMERIC(19, 6) NOT NULL DEFAULT 1,';
+     locSQL:= locSQL + 'Poznamka NTEXT COLLATE database_default NULL,	pom_pomer_A NUMERIC(19, 6) NULL,';
+     locSQL:= locSQL + 'pom_pomer_B NUMERIC(19, 6) NULL, Dodavatel INT NULL)';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'DECLARE @RespekExistDoklady bit' + CRLF + 'SELECT @RespekExistDoklady=0' + CRLF;
+     locSQL:= locSQL + 'INSERT INTO #TabPrKVazbyGen (IDPrKV,  MnozstviPoz, pom_pomer_A, pom_pomer_B, Doklad, IDPrikaz,';
+     locSQL:= locSQL + 'Prednastaveno, Sklad, VyrStredisko, IDPracoviste, mnoz_zad, Mnoz_nepotrebne, Mnoz_skut_realizovane,';
+     locSQL:= locSQL + 'Cena_real, Mnoz_odv, Cena_odv, priorita, vyssi, nizsi, DavkaTPV, pozice, Operace, FixniMnozstvi,';
+     locSQL:= locSQL + 'mnozstvi, ProcZtrat, mnozstviSeZtratou, Prirez, Poznamka) SELECT PrKV.ID, PrKV.mnoz_zad*O.mnozstvi/P.kusy_zad';
+     locSQL:= locSQL + '-CASE WHEN @RespekExistDoklady=1 THEN PrKV.VydanoRefMnoz  + (SELECT ISNULL(SUM(PZ2.prepmnozstvi*(PZ2.mnozstvi';
+     locSQL:= locSQL + '-PZ2.MnOdebrane) * PrKV2.RefMnoz / PrKV2.mnoz_zad), 0.0) FROM TabPohybyZbozi PZ2 INNER JOIN TabStavSkladu SS2 ON (SS2.ID=PZ2.IDZboSklad)';
+     locSQL:= locSQL + ' INNER JOIN TabPrKVazby PrKV2 ON (PrKV2.IDPrikaz=PZ2.IDPrikaz AND PrKV2.Doklad=PZ2.DokladPrikazu AND ';
+     locSQL:= locSQL + 'PrKV2.nizsi=SS2.IDKmenZbozi AND PrKV2.IDOdchylkyDo IS NULL) WHERE PZ2.TypVyrobnihoDokladu=1 AND ';
+     locSQL:= locSQL + 'PZ2.IDPrikaz=PrKV.IDPrikaz AND PZ2.DokladPrikazu=PrKV.Doklad AND PZ2.druhPohybuZbo IN (2,4,9,10) AND ';
+     locSQL:= locSQL + 'PZ2.SkutecneDatReal IS NULL) ELSE 0.0 END, CASE WHEN @RespekExistDoklady=0 THEN O.mnozstvi END,';
+     locSQL:= locSQL + 'CASE WHEN @RespekExistDoklady=0 THEN P.kusy_zad END,PrKV.Doklad, PrKV.IDPrikaz, PrKV.Prednastaveno,';
+     locSQL:= locSQL + 'PrKV.Sklad, PrKV.VyrStredisko, PrKV.IDPracoviste, PrKV.mnoz_zad, PrKV.Mnoz_nepotrebne, PrKV.Mnoz_skut_realizovane,';
+     locSQL:= locSQL + 'PrKV.Cena_real, PrKV.Mnoz_odv, PrKV.Cena_odv, PrKV.priorita, PrKV.vyssi, PrKV.nizsi, PrKV.DavkaTPV,';
+     locSQL:= locSQL + 'PrKV.pozice, PrKV.Operace, PrKV.FixniMnozstvi, PrKV.mnozstvi, PrKV.ProcZtrat, PrKV.mnozstviSeZtratou,';
+     locSQL:= locSQL + 'PrKV.Prirez, PrKV.Poznamka FROM (SELECT IDPrikaz=O1.IDPrikaz, Mnozstvi=SUM(O1.mnozstvi)';
+     locSQL:= locSQL + ' + CASE WHEN @RespekExistDoklady=1 THEN MAX(P1.kusy_odved+P1.kusy_ztrac+P1.kusy_zmet)';
+     locSQL:= locSQL + ' + (SELECT ISNULL(SUM(PZ1.prepmnozstvi*PZ1.mnozstvi), 0.0) FROM TabPohybyZbozi PZ1 WHERE PZ1.TypVyrobnihoDokladu=0';
+     locSQL:= locSQL + ' AND PZ1.IDPrikaz=O1.IDPrikaz AND PZ1.druhPohybuZbo=0 AND PZ1.SkutecneDatReal IS NULL) ELSE 0.0 END';
+     locSQL:= locSQL + ' FROM #TabOdved O1 INNER JOIN ' + tblPrikaz + ' P1 ON (P1.ID=O1.IDPrikaz) GROUP BY O1.IDPrikaz) O';
+     locSQL:= locSQL + ' INNER JOIN ' + tblPrikaz + ' P ON (P.ID=O.IDPrikaz AND P.StavPrikazu IN (30,50)) INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)';
+     locSQL:= locSQL + ' INNER JOIN ' + tblPrVaz + ' PrKV ON (PrKV.IDPrikaz=O.IDPrikaz AND PrKV.predzpracovano=0 AND PrKV.prednastaveno=1';
+     locSQL:= locSQL + ' AND PrKV.uzavreno=0 AND PrKV.RezijniMat=0 AND PrKV.IDOdchylkyDo IS NULL) INNER JOIN ' + tblKZ + ' KZ ON';
+     locSQL:= locSQL + ' (KZ.ID=PrKV.nizsi AND KZ.sluzba=0) WHERE (P.kusy_zive>0.0 OR RP.KontrolovatRozpracPriUzav=0)';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'UPDATE G SET MnozstviMax=CASE WHEN RP.NekontrolovatMnozMatPol=1 THEN NULL ELSE (CASE WHEN PrKV.splneno=1';
+     locSQL:= locSQL + ' THEN 0.0 ELSE PrKV.mnoz_zad-PrKV.VydanoRefMnoz*PrKV.mnoz_zad/PrKV.RefMnoz END) END FROM #TabPrKVazbyGen G';
+     locSQL:= locSQL + ' INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabPrikaz P ON (P.ID=PrKV.IDPrikaz)';
+     locSQL:= locSQL + ' INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)' + CRLF;
+     locSQL:= locSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=CEILING(mnozstviPoz) FROM #TabPrKVazbyGen G INNER JOIN';
+     locSQL:= locSQL + ' TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi)';
+     locSQL:= locSQL + ' INNER JOIN TabMJ MJ ON (MJ.kod=KZ.MJEvidence AND MJ.nedelitelna=1) WHERE G.PoKorekciDat=0' + CRLF;
+     locSQL:= locSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=MnozstviMax WHERE MnozstviMax IS NOT NULL AND mnozstviPoz>MnozstviMax';
+     locSQL:= locSQL + CRLF + 'DELETE #TabPrKVazbyGen WHERE MnozstviPoz<=0.0 AND PoKorekciDat=0' + CRLF;
+     locSQL:= locSQL + 'UPDATE G SET Dodavatel=CO.ID FROM #TabPrKVazbyGen G INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV)';
+     locSQL:= locSQL + ' INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi) INNER JOIN TabCisOrg CO ON (CO.CisloOrg=KZ.Aktualni_Dodavatel)';
+     locSQL:= locSQL + ' WHERE G.PoKorekciDat=0 AND G.Dodavatel IS NULL' + CRLF + 'UPDATE #TabPrKVazbyGen SET PoKorekciDat=1 WHERE PoKorekciDat=0';
+     locSQL:= locSQL + CRLF + 'UPDATE #TabPrKVazbyGen SET Generuj=1';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'SELECT vazGen.IDPrKV, vazGen.Doklad, vazGen.nizsi, ss.id, vazGen.MnozstviPoz';
+     locSQL:= locSQL + ' FROM #TabPrKVazbyGen vazGen';
+     locSQL:= locSQL + ' LEFT OUTER JOIN TabKmenZbozi kz ON (vazGen.nizsi=kz.ID)';
+     locSQL:= locSQL + ' LEFT OUTER JOIN TabStavSkladu ss ON (ss.IDSklad=N' + QuotedStr(sklProMatDP) + ' AND ss.IDKmenZbozi=vazGen.nizsi)';
+     with Helios.OpenSQL(locSQL) do
+      if RecordCount>0 then
+       begin
+        podm:= 'Obdobi=' + idObd + ' AND DruhPohybuZbo=4 AND RadaDokladu=N' + QuotedStr(rDoklVydMat);
+        podm:= podm + ' AND IDSklad=N' + QuotedStr(sklProMatDP);
+        idDZshift:= NajdiPrvniVolny(Helios,'TabDokladyZbozi','PoradoveCislo','4',rDoklVydMat,idObd,podm);
+        locSQL:= 'DECLARE @i INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
+        locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertHlavickyOZ @i OUT,@sklad=N' + QuotedStr(sklProMatDP) + ',@DatumPorizeni=@dt';
+        locSQL:= locSQL + ',@DruhPohybu=4,@RadaDokladu=N' + QuotedStr(rDoklVydMat) + ',@CisloOrg=0,@Mena=N';
+        locSQL:= locSQL + QuotedStr('CZK') + ',@Insert=1,@PC=' + IntToStr(idDZshift) + CRLF + 'SELECT @i';
+        idDZ:= 0;
+        try
+           with Helios.OpenSQL(locSQL) do
+            if not VarIsNull(FieldValues(0)) then
+             idDZ:= StrToInt(VarToStr(FieldValues(0)));
+          except on E:Exception do
+           Helios.Error(#1'Nelze uložit hlavièku Výdejky materiálu.'#1 + CRLF + E.Message + errPlg);
+         end;
+         if idDZ>0 then
+          begin
+           Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=' + IntToStr(Helios.UserId) + ' WHERE id=' + IntToStr(idDZ));
+
+           First;
+           while not(EOF) do
+            begin
+             idPrKVaz:= StrToInt(VarToStr(FieldValues(0)));
+             Gdokl:= VarToStr(FieldValues(1));
+             GidKZ:= StrToInt(VarToStr(FieldValues(2)));
+             GidSS:= VarToStr(FieldValues(3));
+             if GidSS='' then
+              begin
+               Helios.ExecSQL('INSERT ' + tblSS + ' (IDSklad,IDKmenZbozi) VALUES (N' + QuotedStr(sklProMatDP) + ',' + IntToStr(GidKZ) + ')');
+               with Helios.OpenSQL('SELECT SCOPE_IDENTITY()') do
+                GidSS:= VarToStr(FieldValues(0));
+              end;
+             mnoz:= StrToFloat(VarToStr(FieldValues(4)));
+             mnReal:= 0;
+             with Helios.OpenSQL('SELECT Mnoz_odv FROM ' + tblPrVaz + ' WHERE id=' + IntToStr(idPrKVaz)) do
+              if RecordCount>0 then
+               mnReal:= StrToFloat(VarToStr(FieldValues(0)));
+             mnReal:= mnReal + mnoz;
+
+             locSQL:= 'DECLARE @i INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
+             locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertPolozkyOZ @i OUT,@IDDoklad=' + IntToStr(idDZ);
+             locSQL:= locSQL + ',@DruhPohybu=4,@CisloOrg=0,@IDZboSklad=' + GidSS + ',@Mena=N' + QuotedStr('CZK');
+             locSQL:= locSQL + ',@JednotkaMeny=1,@Kurz=1';
+             locSQL:= locSQL + ',@VstupniCena=0,@JCbezDaniKC=0.1,@KurzEuro=1,@SazbaSD=0,@SazbaDPH=0,@ZakazanoDPH=0';
+             locSQL:= locSQL + ',@Selectem=0,@Mnozstvi=' + StringReplace(FloatToStr(mnoz),',','.',[rfReplaceAll]);
+             locSQL:= locSQL + ',@DatPorizeni=@dt,@PovolitDuplicitu=1' + CRLF + 'SELECT @i';
+             idPZ:= 0;
+             with Helios.OpenSQL(locSQL) do
+              if not VarIsNull(FieldValues(0)) then
+               idPZ:= StrToInt(VarToStr(FieldValues(0)));
+             if idPZ>0 then
+               try
+                 Helios.ExecSQL('UPDATE ' + tblPZ + ' SET DokladPrikazu=' + Gdokl + ',TypVyrobnihoDokladu=1,IDPrikaz=' + IntToStr(idVPr) + ' WHERE id=' + IntToStr(idPZ));
+                 Helios.ExecSQL('INSERT ' + tblMzdZmGenPZ + ' (IDMzdy,TypGen,IDPohybu) VALUES (' + IntToStr(IdPMaZ) + ',0,' + IntToStr(idPZ) + ')');
+{
+                 locSQL:= 'UPDATE ' + tblPrVaz + ' SET ';
+                 locSQL:= locSQL + 'Mnoz_skut_realizovane=' + StringReplace(FloatToStr(mnReal),',','.',[rfReplaceAll]);
+                 locSQL:= locSQL + ',Mnoz_odv=' + StringReplace(FloatToStr(mnReal),',','.',[rfReplaceAll]);
+                 locSQL:= locSQL + ' WHERE id=' + IntToStr(idPrKVaz);
+                 Helios.ExecSQL(locSQL);
+}
+                except on E:Exception do
+                 Helios.Error(#1'Nelze uložit položku výdejky.'#1 + CRLF + E.Message + errPlg);
+                end
+              else
+               Helios.Error(#1'Nelze uložit položku výdejky.'#1 + CRLF + locSQL + errPlg);
+             Next;
+             Helios.ExecSQL('UPDATE ' + tblMzdZm + ' SET GenerovanaMatVydejka=1 WHERE id=' + IntToStr(idPMaZ));
+            end;
+
+           try
+//             Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyVydejky @idDZ=' + IntToStr(idDZ));
+             Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=1');
+             Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=null,IDPrikaz=' + IntToStr(idVPr) + ',CisloZam=' + cZam + ' WHERE id=' + IntToStr(idDZ));
+             locSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
+             locSQL:= locSQL + CRLF + 'EXEC dbo.hp_Realizuj_Vydej ' + IntToStr(idDZ) + ',@dt,' + IntToStr(Helios.UserId) + ',0,@chyba OUT';
+             locSQL:= locSQL + CRLF + 'SELECT @chyba';
+             with Helios.OpenSQL(locSQL) do
+              if not VarIsNull(FieldValues(0)) then
+               if LowerCase(VarToStr(FieldValues(0)))='false' then
+                realVyd:= true;
+            except on E:Exception do
+             Helios.Error(#1'Nelze realizovat výdejku.'#1 + CRLF + E.Message + errPlg);
+           end;
+          end;
+       end;
+
+     idDZ:= 0;
+     locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved_IDMzdy') + ') IS NULL CREATE TABLE #TabOdved_IDMzdy (IDPrikaz int, IDMzdy int)';
+     Helios.ExecSQL(locSQL);
+     locSQL:= 'INSERT #TabOdved_IDMzdy (IDMzdy,IDPrikaz) VALUES (' + IntToStr(idPMaZ) + ',' + IntToStr(idVPr) + ')';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NULL CREATE TABLE #TabGenPrijem (ID int)';
+     Helios.ExecSQL(locSQL);
+
+     locSQL:= 'DECLARE @dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
+     locSQL:= locSQL + CRLF + 'EXEC dbo.hp_OdvedeniPrikazu @RadaDokladu=N' + QuotedStr(radaOdvedDP) + ',@IDObdobi=' + idObd;
+     locSQL:= locSQL + ',@KonecneOdvedeni=0,@DatPorizeni=@dt,@SekejZakazky=0,@SekejPrikazy=0';
+     try
+       Helios.ExecSQL(locSQL);
+      except on E:Exception do
+       Helios.Error(#1'Pøíprava odvedení na sklad nebyla úspìšná.'#1 + CRLF + E.Message + errPlg);
+     end;
+     with Helios.OpenSQL('SELECT * FROM #TabGenPrijem') do
+      if RecordCount>0 then
+       idDZ:= StrToInt(VarToStr(FieldValues(0)));
+     if idDZ>0 then
+      begin
+       realPrij:= false;
+       Helios.ExecSQL('UPDATE ' + tblMzdZm + ' SET GenerovanoOdvadeni=1 WHERE id=' + IntToStr(idPMaZ));
+
+{
+// prirad polozky prijmu k udaji PrikazMzdyAZmetky
+       with Helios.OpenSQL('SELECT id FROM ' + tblPZ + ' WHERE idDoklad=' + IntToStr(idDZ)) do
+        if RecordCount>0 then
+         begin
+          First;
+          while not(EOF) do
+           begin
+            idPZ:= StrToInt(VarToStr(FieldValues(0)));
+            Helios.ExecSQL('INSERT INTO ' + tblMzdZmGenPZ + ' (IDMzdy,TypGen,IDPohybu) VALUES (' + IntToStr(IdPMaZ) + ',2,' + IntToStr(idPZ) + ')');
+            Next;
+           end;
+         end;
+}
+       try
+//         Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyPrijemka @idDZ=' + IntToStr(idDZ));
+         Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=0');
+        except on E:Exception do
+         Helios.Error(#1'Nelze pøepoèítat ceny na pøíjemce z Nadvýroby.'#1 + CRLF + E.Message + errPlg);
+       end;
+       Helios.ExecSQL('UPDATE ' + tblDZ + ' SET CisloZam=' + cZam + ',BlokovaniEditoru=null WHERE id=' + IntToStr(idDZ));
+       if realVyd then
+        begin
+         try
+           locSQL:= 'DECLARE @c BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtPicker.DateTime)) + ',104)' + CRLF;
+           locSQL:= locSQL + 'EXEC dbo.hp_Realizuj_Prijem ' + IntToStr(idDZ) + ',@dt,' + IntToStr(Helios.UserId) + ',@c OUT' + CRLF + 'SELECT @c';
+           with Helios.OpenSQL(locSQL) do
+            if not VarIsNull(FieldValues(0)) then
+             if StrToBool(VarToStr(FieldValues(0)))=true then
+               realPrij:= true;
+          except on E:Exception do
+           Helios.Error(#1'Nelze realizovat pøíjemku z Nadvýroby.'#1 + CRLF + E.Message + errPlg);
+         end;
+        end;
+
+       if realPrij then // je realizovana Prijemka? Ano, uprav kusy na prikazu a evidenci kooperace
+         begin
+          try
+            locSQL:= 'EXEC dbo.hp_ZmenaStavuMezdAZmetku ' + IntToStr(idPMaZ) + ',1';
+            try
+              Helios.ExecSQL(locSQL);
+             except on E:Exception do
+              Helios.Error(#1'Nelze zmìnit stav Evidence kooperace.'#1 + CRLF + E.Message + errPlg);
+            end;
+
+            locSQL:= 'UPDATE ' + tblPKObj + ' SET KusyPrevedene=KusyPrevedene+' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ' WHERE id=' + IntToStr(idPKObj);
+            locSQL:= locSQL + CRLF + 'UPDATE ' + tblPrikaz + ' SET kusy_zive=kusy_zive-' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ' WHERE id=' + IntToStr(idVPr);
+            locSQL:= locSQL + CRLF + 'UPDATE ' + tblPrikaz + ' SET kusy_odved=kusy_odved+' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ' WHERE id=' + IntToStr(idVPr);
+            Helios.ExecSQL(locSQL);
+            locSQL:= 'SELECT pko.id FROM ' + tblPKObj + ' pko INNER JOIN ' + tblKObj + ' ko ON (pko.IdObjednavky=ko.id) WHERE ko.id=' + IntToStr(idKO);
+            locSQL:= locSQL + ' AND pko.KusyVKoop>0';
+            with Helios.OpenSQL(locSQL) do
+             if RecordCount=0 then
+              Helios.ExecSQL('UPDATE ' + tblKObj + ' SET PolSplneny=1 WHERE id=' + IntToStr(idKO));
+           except on E:Exception do
+            Helios.Error(#1'Nelze pøepoèítat kusy na pøíkaz nadvýroby.'#1 + CRLF + E.Message + errPlg);
+          end;
+         end;
+
+      end;
+     Helios.Refresh(true);
+     Close;
+     Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen');
+     Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved');
+     Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NOT NULL DROP TABLE #TabGenPrijem');
+     Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd');
+    end;
+  end;
+
+ procedure TformPrijemkaNadvyroba.edtMnozKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if Key=VK_RETURN then
+    btnOKClick(Sender);
+  end;
+
+ procedure TformPrijemkaNadvyroba.FormActivate(Sender: TObject);
+  begin
+   edtMnoz.SetFocus;
+  end;
+
+ procedure TformPrijemkaNadvyroba.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+  end;
+
+ procedure TformPrijemkaNadvyroba.NastavFonty;
+  var idx: integer;
+  begin
+   idx:= 0;
+   while idx<Self.ComponentCount-1 do
+    begin
+     if (Self.Components[idx] is TLabel) then
+      begin
+       (Self.Components[idx] as TLabel).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TLabel).Font.Height:= Helios.FontHeight;
+      end;
+     if (Self.Components[idx] is TButton) then
+      begin
+       (Self.Components[idx] as TButton).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TButton).Font.Height:= Helios.FontHeight;
+      end;
+     if (Self.Components[idx] is TGroupBox) then
+      begin
+       (Self.Components[idx] as TGroupBox).Font.Name:= Helios.Font;
+       (Self.Components[idx] as TGroupBox).Font.Height:= Helios.FontHeight;
+      end;
+     Inc(idx);
+    end;
+  end;
+
+ procedure TformPrijemkaNadvyroba.FormShow(Sender: TObject);
+  begin
+   Self.Icon.Handle:= Helios.MainApplicationIconHandle;
+   Self.Font.Name:= Helios.Font;
+   try
+     NactiParametryHeliosu(Helios, helParams);
+    except on E:Exception do
+     Helios.Error(#1'Nelze naèíst parametry Heliosu pro uživatele.'#1 + CRLF + E.Message + errPlg);
+   end;
+   NastavFonty;
+
+   with Helios.OpenSQL('SELECT id FROM ' + tblCOrg + ' WHERE CisloOrg=2') do
+    idCOrgDP:= StrToInt(VarToStr(FieldValues(0)));
+
+   idVPr:= 0;
+   lblPrikaz.Caption:= '';
+   with Helios.OpenSQL('SELECT pko.idPrikaz,p.RadaPrikaz FROM ' + tblPKObj + ' pko INNER JOIN ' + tblPrikaz + ' p ON (pko.IdPrikaz=p.id) WHERE pko.id=' + IntToStr(idPKObj)) do
+    if RecordCount>0 then
+     begin
+      idVPr:= StrToInt(VarToStr(FieldValues(0)));
+      lblPrikaz.Caption:= '(pøíkaz ' + VarToStr(FieldValues(1)) + ')';
+     end;
+
+   dtPicker.Date:= Now;
+   if idPKObj>0 then
+    NactiPolozkuKoopObj;
+  end;
+
+
+end.

frmUnit9.dfm

@@ -0,0 +1,349 @@
+object frmVydejDPrace: TfrmVydejDPrace
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = '  V'#253'dejka/p'#345'evodka - Nadv'#253'roba (dom'#225'c'#237' pr'#225'ce)'
+  ClientHeight = 416
+  ClientWidth = 588
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 16
+  object Label1: TLabel
+    Left = 219
+    Top = 14
+    Width = 53
+    Height = 16
+    Caption = 'Os.'#269#237'slo :'
+  end
+  object lblZamest: TLabel
+    Left = 356
+    Top = 14
+    Width = 3
+    Height = 13
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 18
+    Top = 44
+    Width = 32
+    Height = 16
+    Caption = 'Skup.'
+  end
+  object Label3: TLabel
+    Left = 68
+    Top = 44
+    Width = 51
+    Height = 16
+    Caption = 'Reg.'#269#237'slo'
+  end
+  object Label4: TLabel
+    Left = 356
+    Top = 43
+    Width = 49
+    Height = 16
+    Caption = 'Mno'#382'stv'#237
+  end
+  object lblPopis: TLabel
+    Left = 67
+    Top = 87
+    Width = 3
+    Height = 13
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object lblSZ: TLabel
+    Left = 18
+    Top = 64
+    Width = 4
+    Height = 16
+  end
+  object Label5: TLabel
+    Left = 9
+    Top = 14
+    Width = 87
+    Height = 16
+    Caption = 'Datum v'#253'daje :'
+  end
+  object GroupBox1: TGroupBox
+    Left = 6
+    Top = 185
+    Width = 566
+    Height = 187
+    Caption = '  Vyd'#225'van'#253' materi'#225'l  '
+    TabOrder = 0
+    object gMat2: TJvDBGrid
+      Left = 2
+      Top = 18
+      Width = 562
+      Height = 167
+      Align = alClient
+      DataSource = dsMat
+      TabOrder = 0
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -13
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+      OnDrawDataCell = gMat2DrawDataCell
+      SelectColumnsDialogStrings.Caption = 'Select columns'
+      SelectColumnsDialogStrings.OK = '&OK'
+      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+      EditControls = <>
+      RowsHeight = 20
+      TitleRowHeight = 20
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'SkupZbo'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'RegCis'
+          Width = 111
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'Popis'
+          Width = 198
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'Mnoz'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'idKZ'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'MnozSkl'
+          Visible = False
+        end>
+    end
+  end
+  object selCisZam: TRzButtonEdit
+    Left = 281
+    Top = 11
+    Width = 65
+    Height = 24
+    Text = ''
+    Alignment = taCenter
+    MaxLength = 6
+    TabOrder = 1
+    OnExit = selCisZamExit
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selCisZamButtonClick
+  end
+  object selRegCis: TRzButtonEdit
+    Left = 67
+    Top = 60
+    Width = 208
+    Height = 24
+    Text = ''
+    MaxLength = 20
+    TabOrder = 2
+    OnExit = selRegCisExit
+    AltBtnNumGlyphs = 1
+    ButtonNumGlyphs = 1
+    OnButtonClick = selRegCisButtonClick
+  end
+  object edtMnoz: TRzNumericEdit
+    Left = 356
+    Top = 60
+    Width = 65
+    Height = 24
+    MaxLength = 8
+    TabOrder = 3
+    OnKeyUp = edtMnozKeyUp
+    DisplayFormat = ',0;(,0)'
+  end
+  object btnAdd: TButton
+    Left = 444
+    Top = 58
+    Width = 35
+    Height = 25
+    Caption = 'V'
+    TabOrder = 4
+    OnClick = btnAddClick
+  end
+  object OK: TButton
+    Left = 376
+    Top = 382
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    TabOrder = 5
+    OnClick = OKClick
+  end
+  object btnCancel: TButton
+    Left = 486
+    Top = 382
+    Width = 75
+    Height = 25
+    Caption = 'Storno'
+    ModalResult = 2
+    TabOrder = 6
+  end
+  object dtDatum: TRzDateTimePicker
+    Left = 105
+    Top = 9
+    Width = 93
+    Height = 24
+    Date = 41402.000000000000000000
+    Format = 'dd.MM.yyyy'
+    Time = 41402.000000000000000000
+    MinDate = 41275.000000000000000000
+    TabOrder = 7
+    ShowToday = True
+    ShowTodayCircle = True
+  end
+  object gPolos2: TJvDBGrid
+    Left = 8
+    Top = 103
+    Width = 561
+    Height = 64
+    DataSource = dsPolos
+    TabOrder = 8
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -13
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDblClick = gPolos2DblClick
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 20
+    TitleRowHeight = 20
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'SkupZbo'
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'RegCis'
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Popis'
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Mnoz'
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'idKZ'
+        Visible = False
+      end>
+  end
+  object dsPolos: TDataSource
+    DataSet = vtPolos
+    Left = 80
+    Top = 130
+  end
+  object dsMat: TDataSource
+    DataSet = vtMat
+    Left = 154
+    Top = 338
+  end
+  object vtPolos: TFDMemTable
+    AfterPost = vtPolosAfterPost
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 132
+    Top = 128
+    object vtPolosSkupZbo: TStringField
+      FieldName = 'SkupZbo'
+      Required = True
+      Size = 3
+    end
+    object vtPolosRegCis: TStringField
+      FieldName = 'RegCis'
+      Required = True
+      Size = 30
+    end
+    object vtPolosPopis: TStringField
+      FieldName = 'Popis'
+      Size = 80
+    end
+    object vtPolosMnoz: TFloatField
+      FieldName = 'Mnoz'
+      Required = True
+    end
+    object vtPolosidKZ: TIntegerField
+      FieldName = 'idKZ'
+      Required = True
+    end
+  end
+  object vtMat: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 198
+    Top = 336
+    object vtMatSkupZbo: TStringField
+      FieldName = 'SkupZbo'
+      Required = True
+      Size = 3
+    end
+    object vtMatRegCis: TStringField
+      FieldName = 'RegCis'
+      Required = True
+      Size = 30
+    end
+    object vtMatPopis: TStringField
+      FieldName = 'Popis'
+      Size = 80
+    end
+    object vtMatMnoz: TFloatField
+      FieldName = 'Mnoz'
+      Required = True
+    end
+    object vtMatidKZ: TIntegerField
+      FieldName = 'idKZ'
+      Required = True
+    end
+    object vtMatMnozSkl: TFloatField
+      FieldName = 'MnozSkl'
+    end
+  end
+end

frmUnit9.pas

@@ -0,0 +1,835 @@
+unit frmUnit9;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
+  RzEdit, Vcl.Mask, RzBtnEdt, ddPlugin_TLB, Vcl.ComCtrls,
+  RzDTP, FireDAC.Stan.Intf, FireDAC.Stan.Option,
+  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
+  FireDAC.DApt.Intf, FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, Data.DB,
+  FireDAC.Comp.Client;
+
+const
+ tblEvidNadvyroby = '[dbo].[_TabEvidNadvyroby]';
+ tblEvidNadvyrVPr = '[dbo].[_TabEvidNadvyrPrikaz]';
+ druhPrevVydejDP = '450';
+ druhPrevPrijDP = '250';
+ sklVyroba = '200';
+ sklFin = '210';
+ sklDP = '20000105';
+ errPlg = #13#10 + '(plgLOVATO.unit9)';
+
+type
+  TfrmVydejDPrace = class(TForm)
+    GroupBox1: TGroupBox;
+    selCisZam: TRzButtonEdit;
+    selRegCis: TRzButtonEdit;
+    edtMnoz: TRzNumericEdit;
+    dsPolos: TDataSource;
+    dsMat: TDataSource;
+    vtPolos: TFDMemTable;
+    vtMat: TFDMemTable;
+    Label1: TLabel;
+    lblZamest: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    lblPopis: TLabel;
+    lblSZ: TLabel;
+    btnAdd: TButton;
+    OK: TButton;
+    btnCancel: TButton;
+    Label5: TLabel;
+    dtDatum: TRzDateTimePicker;
+    vtPolosSkupZbo: TStringField;
+    vtPolosRegCis: TStringField;
+    vtPolosPopis: TStringField;
+    vtPolosMnoz: TFloatField;
+    vtPolosidKZ: TIntegerField;
+    vtMatSkupZbo: TStringField;
+    vtMatRegCis: TStringField;
+    vtMatPopis: TStringField;
+    vtMatMnoz: TFloatField;
+    vtMatidKZ: TIntegerField;
+    vtMatMnozSkl: TFloatField;
+    gPolos2: TJvDBGrid;
+    gMat2: TJvDBGrid;
+    procedure FormShow (Sender: TObject);
+    procedure btnAddClick (Sender: TObject);
+    procedure selRegCisButtonClick (Sender: TObject);
+    procedure vtPolosAfterPost (DataSet: TDataSet);
+    procedure selCisZamButtonClick (Sender: TObject);
+    procedure OKClick (Sender: TObject);
+    procedure FormClose (Sender: TObject; var Action: TCloseAction);
+    procedure edtMnozKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormActivate (Sender: TObject);
+    procedure selCisZamExit (Sender: TObject);
+    procedure selRegCisExit (Sender: TObject);
+    procedure gPolos2DblClick (Sender: TObject);
+    procedure gMat2DrawDataCell (Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
+  private
+   procedure VytvorTabulkyAGridy;
+   procedure NastavFonty;
+   function VratKZSZ(id: integer): ShortString;
+   function VratKZNazev1(id: integer): ShortString;
+   function VratKZRegCis(id: integer): ShortString;
+  public
+   Helios: IHelios;
+  end;
+
+var
+  frmVydejDPrace: TfrmVydejDPrace;
+  idKZ, cZam, idZam: integer;
+  mnoz: Extended;
+  vOle1,vOle2: OleVariant;
+
+implementation
+uses Vcl.Clipbrd, helUtils;
+
+{$R *.dfm}
+
+ procedure TfrmVydejDPrace.VytvorTabulkyAGridy;
+  begin
+   if not vtPolos.Active then
+    vtPolos.Open;
+   vtPolos.EmptyDataset;
+
+   if not vtMat.Active then
+    vtMat.Open;
+   vtMat.EmptyDataset;
+  end;
+
+
+
+
+ function TfrmVydejDPrace.VratKZRegCis(id: Integer): ShortString;
+  begin
+   result:= '';
+   if (id>0) then
+    with Helios.OpenSQL('SELECT RegCis FROM ' + tblKZ + ' WHERE id=' + IntToStR(id)) do
+     if (RecordCount=1) then
+      result:= VarToStr(FieldValues(0));
+  end;
+
+
+
+
+ function TfrmVydejDPrace.VratKZSZ (id: Integer): ShortString;
+  begin
+   result:= '';
+   if (id>0) then
+    with Helios.OpenSQL('SELECT SkupZbo FROM ' + tblKZ + ' WHERE id=' + IntToStR(id)) do
+     if (RecordCount=1) then
+      result:= VarToStr(FieldValues(0));
+  end;
+
+
+
+
+ function TfrmVydejDPrace.VratKZNazev1 (id: Integer): ShortString;
+  begin
+   result:= '';
+   if (id>0) then
+    with Helios.OpenSQL('SELECT Nazev1 FROM ' + tblKZ + ' WHERE id=' + IntToStR(id)) do
+     if (RecordCount=1) then
+      result:= VarToStr(FieldValues(0));
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.btnAddClick (Sender: TObject);
+  var lSQL: WideString;
+      mn: Extended;
+  begin
+   if (vtPolos.RecordCount>0) then
+    begin
+     Helios.Error(#1'Na doklad lze uložit jen 1 položku.'#1);
+     Exit;
+    end;
+
+   if (edtMnoz.Value>0) then
+     begin
+      if (idKZ>0) then
+       begin
+        mn:= 0;
+        lSQL:= 'SELECT ISNULL(SUM(kusy_zive),0) FROM ' + tblPrikaz + ' WHERE StavPrikazu IN (30,40,50) AND IDTabKmen=' + IntToStr(idKZ);
+        with Helios.OpenSQL(lSQL) do
+         if not(VarIsNull(FieldValues(0))) then
+           mn:= StrToFloat(VarToStr(FieldValues(0)))
+          else
+           mn:= 0;
+        if (mn<edtMnoz.Value) then
+         begin
+          lSQL:= #1'Na Výrobních příkazech není dostatek živých kusů k evidenci,' + CRLF + 'je nutno přidělat nový příkaz na ';
+          lSQL:= lSQL + FloatToStr(edtMnoz.Value-mn) + ' ks'#1 + CRLF + CRLF + 'Otevřít přehled Výrobních příkazů ?';
+          if Helios.YesNo(lSQL,false) then
+           Helios.OpenBrowse(bidVyrPrik,'');
+          Exit;
+         end;
+
+        vtPolos.Open;
+        selRegCis.Text:= Trim(selRegCis.Text);
+        if vtPolos.Locate('idKZ',VarArrayOf([idKZ]),[loCaseInsensitive]) then
+          begin
+           vtPolos.Edit;
+           mnoz:= vtPolos.FieldByName('Mnoz').AsExtended + edtMnoz.Value;
+          end
+         else
+          begin
+           mnoz:= edtMnoz.Value;
+           vtPolos.Insert;
+           vtPolos.FieldByName('SkupZbo').AsString:= lblSZ.Caption;
+           vtPolos.FieldByName('RegCis').AsString:= selRegCis.Text;
+           vtPolos.FieldByName('Popis').AsString:= lblPopis.Caption;
+           vtPolos.FieldByName('idKZ').AsInteger:= idKZ;
+          end;
+         vtPolos.FieldByName('Mnoz').AsExtended:= mnoz;
+        vtPolos.Post;
+       end;
+       selRegCis.Text:= '';
+       lblPopis.Caption:= '';
+       lblSZ.Caption:= '';
+       edtMnoz.Value:= 0;
+       selRegCis.SetFocus;
+     end
+    else
+     Helios.Error(#1'Nelze přidat nulové množství.'#1);
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.edtMnozKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
+  begin
+   if (Key=VK_RETURN) then
+    if (edtMnoz.Value<>0) then
+     btnAddClick (Sender);
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.FormActivate (Sender: TObject);
+  begin
+   selCisZam.SetFocus;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.FormClose (Sender: TObject; var Action: TCloseAction);
+  begin
+   if vtMat.Active then
+    vtMat.Close;
+   if vtPolos.Active then
+    vtPolos.Close;
+   Action:= caFree;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.FormShow (Sender: TObject);
+  begin
+   Application.Handle      := Helios.MainApplicationHandle;
+   Application.Icon.Handle := Helios.MainApplicationIconHandle;
+//   cxSetResourceString(@scxGridNoDataInfoText,'<Neexistují data k zobrazení>');
+
+   VytvorTabulkyAGridy;
+   NastavFonty;
+   idKZ:= 0;
+   cZam:= 0;
+   idZam:= 0;
+   dtDatum.Date:= Now;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.OKClick (Sender: TObject);
+  var locSQL, podm, mn, sklVyd: string;
+      idNadvyr, idDZshift1, idDZ1, idObd, idSS1, idPZ1, idKJ: integer;
+      idDZshift2, idDZ2, idSS2, idPZ2: integer;
+      idx, i: integer;
+      qry: IHeQuery;
+      realVyd, realPrij: boolean;
+      matOK: boolean;
+      oVar: OleVariant;
+  begin
+   dtDatum.Time:= Now;
+   if (cZam=0) or (selCisZam.Text='') then
+     Helios.Error(#1'Není vybrán zaměstnanec kterému bude materiál vydán.'#1)
+    else
+     begin
+      if (vtMat.RecordCount>0) then
+       begin
+        matOK:= true;
+        i:= vtMat.RecNo; //  vMat.DataController.FocusedRecordIndex;
+        gMat2.BeginUpdate;
+        for idx:= 1 to vtMat.RecordCount do
+         begin
+          vtMat.RecNo:= idx;
+          locSQL:= 'SELECT Mnozstvi FROM ' + tblSS + ' WHERE IDSklad=N' + QuotedStr(sklFin);
+          locSQL:= locSQL + ' AND IdKmenZbozi=' + vtMat.FieldByName('idKZ').AsString;
+          with Helios.OpenSQL(locSQL) do
+           begin
+            if (RecordCount=1) then
+              begin
+               mn:= VarToStr(FieldValues(0));
+               mn:= StringReplace(mn,',','.',[rfReplaceAll]);
+               if (StrToFloat(mn)<vtMat.FieldByName('Mnoz').AsFloat) then
+                matOK:= false;
+              end
+             else
+              matOK:= false;
+           end;
+         end;
+        vtMat.RecNo:= i;
+        gMat2.EndUpdate;
+       end;
+      if not(matOK) then
+       begin
+        Helios.Error(#1'Některý materiál požadovaný pro nadvýrobu není dostupný.'#1);
+        Exit;
+       end;
+
+      ReseedTable(Helios,tblDZ);
+      ReseedTable(Helios,tblPZ);
+      ReseedTable(Helios,tblEvidNadvyroby);
+      ReseedTable(Helios,tblEvidNadvyrVPr);
+
+      gPolos2.BeginUpdate;
+      idDZ2:= vtPolos.RecNo;
+      for idDZ1:=1 to vtPolos.RecordCount do
+       begin
+        vtPolos.RecNo:= idDZ1;
+        mn:= StringReplace(vtPolos.FieldByName('Mnoz').AsString,',','.',[rfReplaceAll]);
+        locSQL:= 'INSERT ' + tblEvidNadvyroby + ' (CisloZam, IdKmenZbozi, Mnozstvi, DatPorizeni) VALUES (';
+        locSQL:= locSQL + selCisZam.Text + ',' + vtPolos.FieldByName('IdKZ').AsString + ',';
+        locSQL:= locSQL + mn + ',CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104) )';
+        locSQL:= locSQL + CRLF + 'SELECT SCOPE_IDENTITY()';
+        idNadvyr:= 0;
+        try
+          with Helios.OpenSQL(locSQL) do
+           if not(VarIsNull(FieldValues(0))) then
+            idNadvyr:= StrToInt(VarToStr(FieldValues(0)));
+         except on E:Exception do
+          Helios.Error(#1'Nelze uložit požadovanou evidenci Nadvýroby.'#1 + CRLF + E.Message + CRLF + locSQL);
+        end;
+       end;
+       vtPolos.RecNo:= idDZ2;
+      gPolos2.EndUpdate;
+      idDZ1:= 0;
+      idDZ2:= 0;
+
+      idObd:= 0;
+      locSQL:= 'DECLARE @obd INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateToStr(dtDatum.Date)) + ',104)';
+      locSQL:= locSQL + 'EXEC @obd=dbo.hp_GetObdobiDleDatumu @dt,0,null,null,0,0' + CRLF + 'SELECT @obd';
+      with Helios.OpenSQL(locSQL) do
+       idObd:= StrToInt(VarToStr(FieldValues(0)));
+      if (idObd>0) AND (vtMat.RecordCount>0) then
+       begin
+
+// zaloz prevodku/vydejku na 200
+{
+        idDZshift1:= 0; // posunuti cisla brane z nastaveni TabDruhDokZboDef
+        locSQL:= 'SELECT dzd.PosledniPC FROM ' + tblDDZdef + ' dzd INNER JOIN ' + tblDDZ + ' dz';
+        locSQL:= locSQL + ' ON (dz.ID=dzd.idDruhDZ) WHERE dzd.IdObdobi=' + IntToStr(idObd);
+        locSQL:= locSQL + ' AND dz.DruhPohybuZbo=4 AND dz.RadaDokladu=N' + QuotedStr(druhPrevVydejDP);
+        qry:= Helios.OpenSQL(locSQL);
+        if qry.RecordCount>0 then
+         idDZshift1:= StrToInt(VarToStr(qry.FieldValues(0)));
+        podm:= 'DruhPohybuZbo=4 AND RadaDokladu=N' + QuotedStr(druhPrevVydejDP) + ' AND IDSklad=N' + QuotedStr(sklVyroba);
+        podm:= podm + ' AND Obdobi=' + IntToStr(idObd);
+        locSQL:= 'EXEC dbo.hp_NajdiPrvniVolny N' + QuotedStr(tblDZ) + ',N' + QuotedStr('PoradoveCislo');
+        locSQL:= locSQL + ',' + IntToStr(idDZshift1) + ',99999999,N' + QuotedStr(podm) + ',0,1';
+        idDZ1:= 0;
+        qry:= Helios.OpenSQL(locSQL);
+        if qry.RecordCount>0 then
+         idDZ1:= StrToInt(VarToStr(qry.FieldValues(0)));
+        if (idDZ1=0) or (idDZ1=idDZshift1) then
+         idDZ1:= idDZshift1 + 1;
+}
+        sklVyd:= Trim('210          ');
+{
+        locSQL:= 'TabStrom.Cislo LIKE ''2%'' AND TabStrom.ID NOT IN (SELECT IDStrom FROM dbo.TabStromDef WHERE (Blokovano=1 OR Zakazano=1) AND IdObdobi=' + IntToStr(Helios.Obdobi) + ')';
+        if Helios.Prenos(4, 'Cislo', oVar, locSQL, 'Materiál vydat ze skladu', true) then
+         sklVyd:= VarToStr(oVar);
+}
+        locSQL:= 'DECLARE @dt DATETIME,@IDcko INT' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)';
+        locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertHlavickyOZ @IDcko OUT,@RadaDokladu=N' + QuotedStr(druhPrevVydejDP);
+        locSQL:= locSQL + ',@DruhPohybu=4,@CisloOrg=2,@Insert=1,@Sklad=N' + QuotedStr(sklVyd) + ',@PC=null';
+        locSQL:= locSQL + ',@DatumPorizeni=@dt' + CRLF + 'SELECT @IDcko';
+        idDZ1:= 0;
+        with Helios.OpenSQL(locSQL) do
+         if RecordCount>0 then
+          idDZ1:= StrToInt(VarToStr(FieldValues(0)));
+        if (idDZ1>0) then
+         begin
+          Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=' + IntToStr(Helios.UserId) + ' WHERE id=' + IntToStr(idDZ1));
+// polozky prevodky/vydejky
+          vtMat.First;
+          while not(vtMat.Eof) do
+           begin
+            idSS1:= 0;
+            with Helios.OpenSQL('SELECT id FROM ' + tblSS + ' WHERE IdSklad=N' + QuotedStr(sklVyd) + ' AND IdKmenZbozi=' + vtMat.FieldByName('idKZ').AsString) do
+             if RecordCount>0 then
+              idSS1:= StrToInt(VarToStr(FieldValues(0)));
+            if (idSS1=0) then
+             begin
+              locSQL:= 'DELCARE @idSS INT' + CRLF + 'INSERT ' + tblSS + ' (IDSklad,IDKmenZbozi) VALUES (N' + QuotedStr(sklVyd);
+              locSQL:= locSQL + ',' + vtMat.FieldByName('idKZ').AsString + ')' + CRLF + 'SELECT SCOPE_IDENTITY()';
+              with Helios.OpenSQL(locSQL) do
+               idSS1:= StrToInt(VarToStr(FieldValues(0)));
+             end;
+            locSQL:= 'DECLARE @IDcko INT' + CRLF + 'EXEC dbo.hp_InsertPolozkyOZ @IDcko OUT,';
+            locSQL:= locSQL + '@IDDoklad=' + IntToStr(idDZ1) + ',@DruhPohybu=4,@CisloOrg=2,@IDZboSklad=' + IntToStr(idSS1);
+            locSQL:= locSQL + ',@PovolitDuplicitu=1,@Mnozstvi=' + StringReplace(vtMat.FieldByName('Mnoz').AsString,'','.',[rfReplaceAll]);
+            locSQL:= locSQL + ',@Selectem=0,@Mena=N' + QuotedStr('CZK') + ',@Kurz=1,@JednotkaMeny=1,@KurzEuro=1,@SazbaSD=0,@SazbaDPH=0';
+            locSQL:= locSQL + ',@ZakazanoDPH=0,@VstupniCena=0' + CRLF + 'SELECT @IDcko';
+            idPZ1:= 0;
+            with Helios.OpenSQL(locSQL) do
+             idPZ1:= StrToInt(VarToStr(FieldValues(0)));
+            vtMat.Next;
+           end;
+
+          if (idDZ1>0) then
+           begin
+            Helios.ExecSQL('UPDATE ' + tblEvidNadvyroby + ' SET IdVydejkaMat=' + IntToStR(idDZ1) + ' WHERE id=' + IntToStr(idNadvyr));
+
+            try
+              Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyVydejky ' + IntToStr(idDZ1));
+
+              locSQL:= 'UPDATE ' + tblDZ + ' SET TypPrevodky=N' + QuotedStr(druhPrevPrijDP) + ',IdSkladPrevodu=N' + QuotedStr(sklDP);
+              locSQL:= locSQL + ',CisloZam=' + IntToStr(cZam) + ',DruhPohybuPrevod=0,BlokovaniEditoru=null WHERE id=' + IntToStr(idDZ1);
+              Helios.ExecSQL(locSQL);
+              Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ1) + ',@AktualizaceSlev=0');
+              Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZ1));
+
+             except on E:Exception do
+              begin
+               Helios.Error(#1'Chyba při nápočtu cen dokladu převodky/výdejky.'#1 + CRLF + E.Message + CRLF + locSQL + errPlg);
+               idKJ:= helUtils.ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Chyba při nápočtu cen dokladu převodky/výdejky Nadvýroby');
+               if idKJ>0 then
+                Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+                 + QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
+               idKJ:= 0;
+               Exit;
+              end;
+            end;
+
+            podm:= 'DruhPohybuZbo=0 AND RadaDokladu=N' + QuotedStr(druhPrevPrijDP) + ' AND IDSklad=N' + QuotedStr(sklDP);
+            podm:= podm + ' AND Obdobi=' + IntToStr(idObd);
+            idDZ2:= helUtils.NajdiPrvniVolny(Helios,tblDZ,'PoradoveCislo','0',druhPrevPrijDP,IntToStr(idObd),podm);
+
+{
+            idDZshift2:= 0; // posunuti cisla brane z nastaveni TabDruhDokZboDef
+            locSQL:= 'SELECT dzd.PosledniPC FROM ' + tblDDZdef + ' dzd INNER JOIN ' + tblDDZ + ' dz';
+            locSQL:= locSQL + ' ON (dz.ID=dzd.idDruhDZ) WHERE dzd.IdObdobi=' + IntToStr(idObd);
+            locSQL:= locSQL + ' AND dz.DruhPohybuZbo=0 AND dz.RadaDokladu=N' + QuotedStr(druhPrevPrijDP);
+            qry:= Helios.OpenSQL(locSQL);
+            if qry.RecordCount>0 then
+             idDZshift2:= StrToInt(VarToStr(qry.FieldValues(0)));
+            podm:= 'DruhPohybuZbo=0 AND RadaDokladu=N' + QuotedStr(druhPrevPrijDP) + ' AND IDSklad=N' + QuotedStr(sklDP);
+            podm:= podm + ' AND Obdobi=' + IntToStr(idObd);
+            locSQL:= 'EXEC dbo.hp_NajdiPrvniVolny N' + QuotedStr(tblDZ) + ',N' + QuotedStr('PoradoveCislo');
+            locSQL:= locSQL + ',' + IntToStr(idDZshift2) + ',99999999,N' + QuotedStr(podm) + ',0,1';
+            idDZ2:= 0;
+            qry:= Helios.OpenSQL(locSQL);
+            if qry.RecordCount>0 then
+             idDZ2:= StrToInt(VarToStr(qry.FieldValues(0)));
+            if (idDZ2=0) or (idDZ2=idDZshift2) then
+             idDZ2:= idDZshift2 + 1;
+}
+{ beg: vypnuti tvorby nasledne prijemky
+            locSQL:= 'DECLARE @dt DATETIME,@IDcko INT' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)';
+            locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertHlavickyOZ @IDcko OUT,@RadaDokladu=N' + QuotedStr(druhPrevPrijDP);
+            locSQL:= locSQL + ',@DruhPohybu=0,@CisloOrg=0,@Insert=1,@Sklad=N' + QuotedStr(sklDP) + ',@PC=' + IntToStr(idDZ2);
+            locSQL:= locSQL + ',@DatumPorizeni=@dt' + CRLF + 'SELECT @IDcko';
+            idDZ2:= 0;
+            with Helios.OpenSQL(locSQL) do
+             if (RecordCount>0) then
+              idDZ2:= StrToInt(VarToStr(FieldValues(0)));
+ end: vypnuti tvorby nasledne prijemky }
+
+            if (1=0) then { vypnuti tvorby nasledne prijemky (idDZ2>0) }
+             begin
+
+              try
+                locSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabTempUziv') + ') IS NULL CREATE TABLE #TabTempUziv(Tabulka';
+                locSQL:= locSQL + ' NVARCHAR(255) NOT NULL, SCOPE_IDENTITY INT NULL, Datum DATETIME NULL)' + CRLF;
+
+                locSQL:= locSQL + 'EXEC dbo.hp_generuj_navazny_doklad @IDDokladDst=' + IntToStr(idDZ2) + ',@IDDokladSrc=' + IntToStr(idDZ1);
+                locSQL:= locSQL + ',@CisloOrgCil=0,@MUcil=null,@KurzCil=1,@JednotkaMenyCil=1,@MenaCil=N' + QuotedStr('CZK');
+                locSQL:= locSQL + ',@Returnem=1,@KurzEuroCil=0,@CisloZakCil=null,@NOkruhCil=null,@StredNakladCil=null,@StredVynosCil=null';
+                locSQL:= locSQL + ',@FormaDopravyCil=null,@VozidloCil=null,@ObjednavkaCil=null,@PopisDodavkyCil=N' + QuotedStr('Převod materiálu');
+                locSQL:= locSQL + ',@NavaznyDobropisCil=null,@ZamestnanecCil=null,@DodFakCil=null,@Nasobek=1,@SlevaCil=0';
+                Helios.ExecSQL(locSQL);
+               except on E:Exception do
+                begin
+                 try
+                   locSQL:= 'FROM ' + tblPZ + ' WHERE IdDoklad=' + IntToStr(idDZ2);
+                   Helios.ExecSQL('DELETE FROM dbo.TabPohybyZboziSD WHERE id IN (SELECT id ' + locSQL + ')');
+                   Helios.ExecSQL('DELETE ' + locSQL);
+                   Helios.ExecSQL('DELETE FROM dbo.TabDokZboDodatek WHERE IDHlavicky=' + IntToStr(idDZ2));
+                   Helios.ExecSQL('UPDATE ' + tblDZ + ' SET NavaznyDoklad=null WHERE id='+ IntToStr(idDZ1));
+                   Helios.ExecSQL('DELETE FROM ' + tblDZ + ' WHERE Id=' + IntToStr(idDZ2));
+                   Helios.Error(#1'Chyba při generování návazného dokladu.'#1 + CRLF + E.Message + errPlg);
+                   idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze generovat následný doklad Výdejky Nadvýroby');
+                   if (idKJ>0) then
+                    Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+                     + QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
+                   idKJ:= 0;
+                  except on E:Exception do
+                   begin
+                    Helios.Error(#1 + E.Message + #1);
+                    Exit;
+                   end;
+                 end;
+                 Exit;
+                end;
+              end;
+
+              Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyVydejky ' + IntToStr(idDZ2));
+              Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ2) + ',@AktualizaceSlev=0');
+              Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZ2));
+
+              realVyd:= false;
+//              if idDZ2>0 then
+//               begin
+              try
+                locSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)' + CRLF;
+                locSQL:= locSQL + 'EXEC dbo.hp_Realizuj_Vydej @ID=' + IntToStr(idDZ1) + ',@DatumRealizace=@dt,@Uzivatel=' + IntToStr(Helios.UserId) + ',@Hlidat=0,@BylaChyba=@chyba OUT';
+                locSQL:= locSQL + CRLF + 'SELECT @chyba';
+                with Helios.OpenSQL(locSQL) do
+                 if not VarIsNull(FieldValues(0)) then
+                  if (LowerCase(VarToStr(FieldValues(0)))='false') then
+                   realVyd:= true;
+               except on E:Exception do
+                begin
+//                 Clipboard.AsText:= locSQL;
+                 try
+                   Helios.Error(#1'Nelze realizovat Převodku/výdejku'#1 + CRLF + E.Message + errPlg);
+{
+                   idKJ:= helUtils.ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat Převodku/výdejku Nadvýroby.');
+                   if idKJ>0 then
+                    Helios.ExecSQL('INSERT INTO ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+                     + QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
+}
+                   idKJ:= 0;
+                  except on E:Exception do
+                   begin
+                    Helios.Error(#1 + E.Message + #1);
+                    Exit;
+                   end;
+                 end;
+                 Exit;
+                end;
+              end;
+//               end;
+              idDZ2:= 0;
+              realPrij:= false;
+              if realVyd then
+               begin
+                try
+                  locSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)' + CRLF;
+                  locSQL:= locSQL + 'EXEC dbo.hp_Realizuj_Prijem @ID=' + IntToStr(idDZ2) + ',@DatumRealizace=@dt,@Uzivatel=' + IntToStr(Helios.UserId) + ',@BylaChyba=@chyba OUT';
+                  locSQL:= locSQL + CRLF + 'SELECT @chyba';
+                  with Helios.OpenSQL(locSQL) do
+                   if not VarIsNull(FieldValues(0)) then
+                    if (LowerCase(VarToStr(FieldValues(0)))='false') then
+                     realPrij:= true;
+                 except on E:Exception do
+                  begin
+//                   ClipBoard.AsText:= locSQL;
+                   Helios.Error(#1'Chyba při realizaci Převodky/příjemky pro Nadvýrobu.'#1 + CRLF + E.Message + CRLF + errPlg);
+                   idKJ:= helUtils.ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat příjemku Převodku/příjemku Nadvýroby');
+                   if (idKJ>0) then
+                    Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+                     + QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
+                   idKJ:= 0;
+                  end;
+                end;
+               end;
+             end;
+           end;
+         end;
+        Helios.Refresh(true);
+        Close;
+       end;
+     end;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.NastavFonty;
+  var idx: integer;
+      HelPars: THeliosParams;
+  begin
+   NactiParametryHeliosu(Helios,HelPars);
+   idx:= 0;
+{
+   while idx<Self.ComponentCount-1 do
+    begin
+     if (Self.Components[idx] is TLabel) then
+      begin
+       (Self.Components[idx] as TLabel).Font.Name:= HelPars.FontName;
+       (Self.Components[idx] as TLabel).Font.Size:= HelPars.FontSize;
+      end;
+     if (Self.Components[idx] is TButton) then
+      begin
+       (Self.Components[idx] as TButton).Font.Name:= HelPars.FontName;
+       (Self.Components[idx] as TButton).Font.Size:= HelPars.FontSize;
+      end;
+     if (Self.Components[idx] is TGroupBox) then
+      begin
+       (Self.Components[idx] as TGroupBox).Font.Name:= HelPars.FontName;
+       (Self.Components[idx] as TGroupBox).Font.Size:= HelPars.FontSize;
+      end;
+     if (Self.Components[idx] is TButton) then
+      begin
+       (Self.Components[idx] as TButton).Font.Name:= HelPars.FontName;
+       (Self.Components[idx] as TButton).Font.Size:= HelPars.FontSize;
+      end;
+     Inc(idx);
+    end;
+}
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.selCisZamButtonClick (Sender: TObject);
+  begin
+   if Helios.Prenos(bidCisZam,'Cislo',vOle1,'','Vyberte zaměstnance',true) then
+     begin
+      cZam:= StrToInt(VarToStr(vOle1));
+      with Helios.OpenSQL('SELECT id,PrijmeniJmeno FROM ' + tblCZam + ' WHERE Cislo=' + IntToStr(cZam)) do
+       begin
+        idZam:= StrToInt(VarToStr(FieldValues(0)));
+        lblZamest.Caption:= VarToStr(FieldValues(1));
+       end;
+      selCisZam.Text:= StringOfChar('0',6-Length(IntToStr(cZam))) + IntToStr(cZam);
+     end
+    else
+     begin
+      cZam:= 0;
+      idZam:= 0;
+      Helios.Error(#1'Nebyl vybrán žádný zaměstnanec.'#1);
+     end;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.selCisZamExit (Sender: TObject);
+  begin
+   if selCisZam.Text<>'' then
+    begin
+     with Helios.OpenSQL('SELECT id,PrijmeniJmeno,Cislo FROM ' + tblCZam + ' WHERE Cislo=' + selCisZam.Text) do
+      if RecordCount>0 then
+       begin
+         begin
+          idZam:= StrToInt(VarToStr(FieldValues(0)));
+          lblZamest.Caption:= VarToStr(FieldValues(1));
+          cZam:= StrToInt(VarToStr(FieldValues(2)));
+         end;
+        selCisZam.Text:= StringOfChar('0',6-Length(IntToStr(cZam))) + IntToStr(cZam);
+       end;
+    end;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.selRegCisButtonClick (Sender: TObject);
+  var podm: WideString;
+  begin
+//   podm:= 'TabKmenZbozi.SkupZbo IN (SELECT sz.id FROM TabSkupinyZbozi sz INNER JOIN TabSkupinyZbozi_EXT sze ON (sz.id=sze.id)';
+//   podm:= podm + ' WHERE sze._JeVyroba=1) AND';
+
+{   podm:= podm + ' TabKmenZbozi.id IN (';
+   podm:= podm + 'SELECT kz.id FROM TabPolKoopObj pko INNER JOIN TabPrikaz p ON (pko.IDPrikaz=p.id)';
+   podm:= podm + ' INNER JOIN TabKmenZbozi kz ON (p.IDTabKmen=kz.id) WHERE pko.id IN (SELECT po.id FROM TabPolKoopObj po';
+   podm:= podm + ' WHERE po.IDObjednavky IN (SELECT o.id FROM TabKoopObj o WHERE o.IDOrganizace=(SELECT id FrOM TabCisOrg WHERE CisloOrg=2)';
+   podm:= podm + ' AND o.Splneno=0 AND o.realizovano=1)) GROUP BY kz.id)';
+}
+   podm:= '';
+   if Helios.Prenos(100089,'IdTabKmen',vOle1,podm,'Vyberte dílec/polosestavu',true) then
+     begin
+      idKZ:= StrToInt(VarToStr(vOle1));
+      lblSZ.Caption:= VratKZSZ(idKZ);
+      selRegCis.Text:= VratKZRegCis(idKZ);
+      lblPopis.Caption:= VratKZNazev1(idKZ);
+      edtMnoz.SetFocus;
+     end
+    else
+     Helios.Error(#1'Nebyla vybrána žádná karta.'#1);
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.selRegCisExit (Sender: TObject);
+  var podm: ShortString;
+  begin
+   selRegCis.Text:= Trim(selRegCis.Text);
+   if (selRegCis.Text='') then
+    Exit;
+   with Helios.OpenSQL('SELECT id FROM ' + tblKZ + ' WHERE Dilec=1 AND RegCis LIKE N''%' + selRegCis.Text + '%''') do
+    begin
+     if (RecordCount=1) then
+      idKZ:= StrToInt(VarToStr(FieldValues(0)));
+     if (RecordCount>1) then
+      begin
+       podm:= 'TabKmenZbozi.RegCis LIKE N''%' + selRegCis.Text + '%'' AND TabKmenZbozi.Dilec=1';
+       if Helios.Prenos(bidKZ,'id',vOle1,podm,'Zboží a služby',True) then
+        idKZ:= StrToInt(VarToStr(FieldValues(0)));
+      end;
+     lblSZ.Caption:= VratKZSZ(idKZ);
+     lblPopis.Caption:= VratKZNazev1(idKZ);
+     selRegCis.Text:= VratKZRegCis(idKZ);
+    end;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.gMat2DrawDataCell (Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
+  var m,s: Extended;
+  begin
+   if not(TryStrToFloat(gMat2.DataSource.Dataset.FieldByName('Mnoz').AsString, m)) then
+    m:= 0;
+   if not(TryStrToFloat(gMat2.DataSource.DataSet.FieldByName('MnozSkl').AsString, s)) then
+    s:= 0;
+   if (s<=m) then
+     gMat2.Canvas.Brush.Color:= $005D5DFC
+    else
+     gMat2.Canvas.Brush.Color:= $0;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.gPolos2DblClick (Sender: TObject);
+  var mn,jc: Extended;
+  begin
+   mn:= vtPolos.FieldByName('Mnoz').AsExtended;
+   jc:= 0;
+   if FormMnozstviCena('Změna množství',mn,jc,true,false) then
+    if (mn<>0) then
+     begin
+      vtPolos.Edit;
+      vtPolos.FieldByName('Mnoz').AsExtended:= mn;
+      vtPolos.Post;
+     end;
+  end;
+
+
+
+
+ procedure TfrmVydejDPrace.vtPolosAfterPost (DataSet: TDataSet);
+  var idMat: integer;
+      mnoz,mnozNiz: Extended;
+      idKZNiz: integer;
+      sz,regcis,pop: ShortString;
+      iRowPolos: integer;
+      lp: integer;
+      locSQL: WideString;
+      rozp: IHeQuery;
+  begin
+   iRowPolos:= vtPolos.RecNo;
+
+   locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#MatPozadavky') + ') IS NOT NULL DROP TABLE #MatPozadavky' + CRLF;
+   locSQL:= locSQL + 'CREATE TABLE #MatPozadavky(ID INT IDENTITY NOT NULL, IdKZMat INT NOT NULL,';
+   locSQL:= locSQL + 'MnozNizsi NUMERIC(19,6) NOT NULL DEFAULT 0, MnozVyssi NUMERIC(19,6) NOT NULL DEFAULT 0)';
+   Helios.ExecSQL(locSQL);
+{
+   locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen' + CRLF;
+   locSQL:= locSQL + 'CREATE TABLE #TabPrKVazbyGen(ID INT IDENTITY NOT NULL, Generuj BIT NOT NULL DEFAULT 1,';
+   locSQL:= locSQL + 'PoKorekciDat BIT NOT NULL DEFAULT 0,	IDPrKV INT NOT NULL,	Doklad INT NOT NULL,	IDPrikaz INT NOT NULL,';
+   locSQL:= locSQL + 'Prednastaveno BIT NOT NULL DEFAULT 1, Sklad NVARCHAR(30) COLLATE database_default NULL,';
+   locSQL:= locSQL + 'VyrStredisko NVARCHAR(30) COLLATE database_default NULL, IDPracoviste INT NULL,';
+   locSQL:= locSQL + 'mnoz_zad NUMERIC(19, 6) NOT NULL DEFAULT 0, Mnoz_nepotrebne NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+   locSQL:= locSQL + 'Mnoz_skut_realizovane NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_real NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+   locSQL:= locSQL + 'Mnoz_odv NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_odv NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+   locSQL:= locSQL + 'MnozstviMax NUMERIC(19, 6) NULL,	MnozstviPoz NUMERIC(19, 6) NOT NULL,	PomMnozPoz NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+   locSQL:= locSQL + 'IDPohZbo INT NULL,	priorita INT NOT NULL DEFAULT 0,	vyssi INT NOT NULL,	nizsi INT NOT NULL,';
+   locSQL:= locSQL + 'DavkaTPV NUMERIC(19, 6) NOT NULL DEFAULT 1,	pozice NVARCHAR(100) COLLATE database_default NULL DEFAULT '''',';
+   locSQL:= locSQL + 'Operace NCHAR(4) COLLATE database_default NULL DEFAULT '''',	FixniMnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 0,';
+   locSQL:= locSQL + 'mnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 1,	ProcZtrat NUMERIC(5, 2) NOT NULL DEFAULT 0,';
+   locSQL:= locSQL + 'mnozstviSeZtratou NUMERIC(19, 6) NOT NULL DEFAULT 0,	Prirez NUMERIC(19, 6) NOT NULL DEFAULT 1,';
+   locSQL:= locSQL + 'Poznamka NTEXT COLLATE database_default NULL,	pom_pomer_A NUMERIC(19, 6) NULL,';
+   locSQL:= locSQL + 'pom_pomer_B NUMERIC(19, 6) NULL,	Dodavatel INT NULL)';
+   Helios.ExecSQL(locSQL);
+}
+
+   vtPolos.First;
+   while not(vtPolos.Eof) do
+    begin
+     idKZ:= vtPolos.FieldByName('idKZ').asInteger;
+     mnoz:= vtPolos.FieldByName('Mnoz').AsFloat;
+     rozp:= Helios.OpenSQL('SELECT nizsi,Mnozstvi FROM ' + tblKVaz + ' WHERE vyssi=' + IntToStr(idKZ));
+     if rozp.RecordCount>0 then
+      begin
+       rozp.First;
+       while not(rozp.EOF) do
+        begin
+         locSQL:= 'INSERT #MatPozadavky VALUES (' + VarToStr(rozp.FieldValues(0)) + ',';
+         mnozNiz:= StrToFloat(VarToStr(rozp.FieldValues(1)));
+         locSQL:= locSQL + StringReplace(FloatToStr(mnozNiz),',','.',[rfReplaceAll]) + ',';
+         locSQL:= locSQL + StringReplace(FloatToStr(mnoz),',','.',[rfReplaceAll]) + ')';
+         Helios.ExecSQL(locSQL);
+         rozp.Next;
+        end;
+      end;
+     vtPolos.Next;
+    end;
+   rozp:= Helios.OpenSQL('SELECT * FROM #MatPozadavky');
+   if rozp.RecordCount>0 then
+    begin
+     idMat:= rozp.RecordCount;
+     if (vtPolos.RecordCount>0) then
+      vtMat.EmptyDataset;
+     rozp.First;
+     vtMat.Open;
+     while not(rozp.EOF) do
+      begin
+       idKZNiz:= StrToInt(VarToStr(rozp.FieldValues(1)));
+       mnozNiz:= StrToFloat(VarToStr(rozp.FieldValues(2))) * StrToFloat(VarToStr(rozp.FieldValues(3)));
+       if vtMat.Locate('idKZ',VarArrayOf([idKZNiz]),[loCaseInsensitive]) then
+         begin
+          vtMat.Edit;
+          mnozNiz:= mnozNiz + vtMat.FieldByName('Mnoz').AsExtended;
+         end
+        else
+         begin
+          vtMat.Insert;
+          vtMat.FieldByName('idKZ').AsInteger:= idKZNiz;
+          with Helios.OpenSQL('SELECT SkupZbo,RegCis,Nazev1 FROM ' + tblKZ + ' WHERE id=' + IntToStr(idKZNiz)) do
+           begin
+            vtMat.FieldByName('SkupZbo').AsString:= VarToStr(FieldValues(0));
+            vtMat.FieldByName('RegCis').AsString:= VarToStr(FieldValues(1));
+            vtMat.FieldByName('Popis').AsString:= VarToStr(FieldValues(2));
+           end;
+         end;
+        vtMat.FieldByName('Mnoz').AsExtended:= mnozNiz;
+        with Helios.OpenSQL('SELECT Mnozstvi FROM ' + tblSS + ' WHERE IdKmenZbozi=' + IntToStr(idKZNiz) + ' AND IDSklad=N' + QuotedStr(sklFin)) do
+         if (RecordCount=1) then
+           vtMat.FieldByName('MnozSkl').AsExtended:= StrToFloat(VarToStr(FieldValues(0)))
+          else
+           vtMat.FieldByName('MnozSkl').AsExtended:= 0;
+        vtMat.Post;
+       rozp.Next;
+      end;
+    end;
+   Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen');
+
+   vtPolos.RecNo:= iRowPolos;
+  end;
+
+end.

lib/plgHlaskyEx.INC

@@ -0,0 +1,10 @@
+// PRVNI HLASKA MUSI ZACINAT min. W = 5050000 !!!
+
+//  ,(SelfIdent: plx...;
+//  H : '';
+//  W : 5050000;{$IFDEF EdHlasky}I:'';E:'';D:'';{$ENDIF})
+
+//last
+
+  
+

lib/plgHlaskyJadro.INC

@@ -0,0 +1,847 @@
+// prvni hlaska MUSI zustat prazdna !!
+(SelfIdent: plxNic;
+H : '';
+W : 5000000) 
+
+,(SelfIdent: plxOK;
+H : 'OK';
+SK: 'OK';
+W : 5000001; I:'text na klávese OK';E:'OK';D:'OK')
+
+,(SelfIdent: plxStorno;
+H : 'Storno';
+SK: 'Storno';
+W : 5000002; I:'text na klávese Storno';E:'Cancel';D:'')
+
+,(SelfIdent: plxJadroUlozitZmeny;
+H : 'Uložit změny ?';
+SK: 'Uložiť zmeny ?';
+W : 5000003)
+
+,(SelfIdent: plxJadroPrazdnaNeboChybneZadanaPolozka;
+H : 'Prázdná nebo chybně zadaná položka';
+SK: 'Prázdná alebo chybne zadaná položka';
+W : 5000004)
+
+,(SelfIdent: plxJadroOprPrejSmazAkt;
+H : 'Opravdu si přejete smazat aktuální záznam ?';
+SK: 'Naozaj si prajete zmazať aktuálny záznam ?';
+W : 5000005; I:'Dotaz na DELETE v přehledu';E:'';D:'';)
+
+,(SelfIdent: plxJadroOprPrejSmazVse;
+H : 'Opravdu si přejete smazat'#1' všechny '#1'označené záznamy';
+SK: 'Naozaj si prajete zmazať'#1' všetky '#1'označené záznamy';
+W : 5000006; I:'Dotaz na DELETE v přehledu';E:'';D:'';)
+
+,(SelfIdent: plxJadroNeni;
+H : '(není)';
+SK: '(nie je)';
+W : 5000007;  I:'text značící nepřítomnost hodnoty';E:'(none)';D:'')
+
+,(SelfIdent: plxJadroPluginVyzadujeMinVerziX;
+H : 'Plugin vyžaduje minimální verzi Heliosu '#1'%s'#1' !';
+SK: 'Plugin vyžaduje minimálnu verziu Heliosu '#1'%s'#1' !';
+W : 5000008)
+
+,(SelfIdent: plxJadroAkceNemuzeBytSpustena;
+H : 'Akce nemůže být spuštěna nad aktuálním přehledem (chyba č. %d)!';
+SK: 'Akcia nemôže byť spustená nad aktuálnym prehľadom (chyba č. %d)!';
+W : 5000009)
+
+,(SelfIdent: plxJadroMenuEditace;
+H : 'Editace';
+SK: 'Editácia';
+W : 5000010)
+
+,(SelfIdent: plxJadroAkceNovy;
+H : 'Nový';
+SK: 'Nový';
+W : 5000011; GUID: '{B24F7317-2850-4E23-84C2-23759E2104BD}')
+
+,(SelfIdent: plxJadroAkceOprava;
+H : 'Oprava';
+SK: 'Oprava';
+W : 5000012; GUID: '{E72DC09D-A06D-4712-B44E-40F8D4023DD9}')
+
+,(SelfIdent: plxJadroAkceZrusit;
+H : 'Zrušit';
+SK: 'Zrušiť';
+W : 5000013; GUID: '{69B3748A-4A0D-4FAF-95DA-C5A86EAAF64C}')
+
+,(SelfIdent: plxJadroPouzeKeCteni;
+H : 'pouze ke čtení';
+SK: 'len na čítanie';
+W : 5000014)
+
+,(SelfIdent: plxJadroZavrit;
+H : 'Zavřít';
+SK: 'Zavrieť';
+W : 5000015)
+
+,(SelfIdent: plxJadroIndexSeZmenil;
+H : 'Index se v databázi změnil';
+SK: 'Index sa v databázi zmenil';
+W : 5000016)
+
+,(SelfIdent: plxJadroIndexV_DB_Chybi;
+H : 'Index v databázi chybí';
+SK: 'Index v databázi chýba';
+W : 5000017)
+
+,(SelfIdent: plxJadroKontrolaPluginuX;
+H : 'Kontrola pluginu %s (%s)';
+SK: 'Kontrola pluginu %s (%s)';
+W : 5000018)
+
+,(SelfIdent: plxJadroSpustit;
+H : 'Spustit';
+SK: 'Spustiť';
+W : 5000019)
+
+,(SelfIdent: plxJadroZmenoveSkripty;
+H : 'Změnové skripty';
+SK: 'Zmenové skripty';
+W : 5000020)
+
+,(SelfIdent: plxJadroKontrolaTabulek;
+H : 'Kontrola tabulek';
+SK: 'Kontrola tabuliek';
+W : 5000021)
+
+,(SelfIdent: plxJadroKontrolaJednotlivychAtributu;
+H : 'Kontrola jednotlivých atributů';
+SK: 'Kontrola jednotlivých atribútov';
+W : 5000022)
+
+,(SelfIdent: plxJadroKontrolaUnikatnichKlicu;
+H : 'Kontrola unikátních klíčů';
+SK: 'Kontrola unikátnych kľúčov';
+W : 5000023)
+
+,(SelfIdent: plxJadroKontrolaIntegritnichOmezeni;
+H : 'Kontrola integritních omezení';
+SK: 'Kontrola integritných omedzení';
+W : 5000024)
+
+,(SelfIdent: plxJadroKontrolaCizichKlicu;
+H : 'Kontrola cizích klíčů';
+SK: 'Kontrola cudzích kľúčov';
+W : 5000025)
+
+,(SelfIdent: plxJadroKontrolaUlozenychProcedur;
+H : 'Kontrola uložených procedur';
+SK: 'Kontrola uložených procedúr';
+W : 5000026)
+
+,(SelfIdent: plxJadroKontrolaTriggeru;
+H : 'Kontrola triggerů';
+SK: 'Kontrola triggerov';
+W : 5000027)
+
+,(SelfIdent: plxJadroKontrolaIndexu;
+H : 'Kontrola indexů';
+SK: 'Kontrola indexov';
+W : 5000028)
+
+,(SelfIdent: plxJadroKontrolaPrehledu_a_Akci;
+H : 'Kontrola def.přehledů a externích akcí';
+SK: 'Kontrola def.prehľadov a externých akcií';
+W : 5000029)
+
+,(SelfIdent: plxJadroImportFormularuFilruOpisu;
+H : 'Import formulářů, filtrů a opisů';
+SK: 'Import formulárov, filtrov a opisov';
+W : 5000030)
+
+,(SelfIdent: plxJadroZmenovySkriptJizBylProveden;
+H : 'Změnový skript už byl proveden někým jiným - informace by měla být v žurnálu !';
+SK: 'Zmenový skript už bol vykonaný niekym iným - informácia by mala byť v žurnále !';
+W : 5000031)
+
+,(SelfIdent: plxJadroUpdateZVerze_X_NaVerzi_Y;
+H : 'Update z verze %s na verzi %s.';
+SK: 'Update z verzie %s na verziu %s.';
+W : 5000032)
+
+,(SelfIdent: plxJadroZmenovychSkriptuX;
+H : 'změnových skriptů: %d';
+SK: 'zmenových skriptov: %d';
+W : 5000033)
+
+,(SelfIdent: plxJadroInstalaceHotovo;
+H : 'Hotovo';
+SK: 'Hotovo';
+W : 5000034)
+
+,(SelfIdent: plxJadro_X_BudeNyniUkoncen;
+H : 'Aplikace %s bude ukončena.';
+SK: 'Aplikácia %s bude ukončená.';
+W : 5000035)
+
+,(SelfIdent: plxJadroBylaDetekovanaZmenaStruktury;
+H : 'Byla detekována změna struktury.';
+SK: 'Bola detekovaná zmena štruktúry.';
+W : 5000036)
+
+,(SelfIdent: plxJadroUvedeneTabulkyChybi;
+H : 'Uvedené tabulky v databázi chybí.';
+SK: 'Uvedené tabuľky v databázi chýbajú.';
+W : 5000037)
+
+,(SelfIdent: plxJadroVytvoreniZakladnichPrehledu;
+H : 'Vytvoření a změna základních přehledů, akcí a vazeb.';
+SK: 'Vytvorenie a zmena základných prehľadov, akcií a väzieb.';
+W : 5000038)
+
+,(SelfIdent: plxJadroZmenaStrukturyDB;
+H : 'Změna struktury databáze';
+SK: 'Zmena štruktúry databázy';
+W : 5000039)
+
+,(SelfIdent: plxJadroOpravduSiPrejeteUvedeneZmeny;
+H : 'Opravdu si přejete provést výše uvedené změny ?';
+SK: 'Naozaj si prajete vykonať vyššie uvedené zmeny ?';
+W : 5000040)
+
+,(SelfIdent: plxJadroPredZmenamiDoporucujemeZalohuDB;
+H : 'Před provedením změn doporučujeme provést zálohu databáze.';
+SK: 'Pred vykonaním zmien doporučujeme vykonať zálohu databázy.';
+W : 5000041)
+
+,(SelfIdent: plxJadroTlacitkoZalohovani;
+H : '&Zálohování...';
+SK: '&Zálohovanie...';
+W : 5000042)
+
+,(SelfIdent: plxJadroProvest;
+H : 'Provést';
+SK: 'Vykonať';
+W : 5000043)
+
+,(SelfIdent: plxJadroAkceUkazSQLSkript;
+H : '&Ukaž SQL skript...';
+SK: '&Ukáž SQL skript...';
+W : 5000044)
+
+,(SelfIdent: plxJadroDefinovaneFormulare;
+H : 'Definované formuláře';
+SK: 'Definované formuláre';
+W : 5000045)
+
+,(SelfIdent: plxJadroDefinovaneFiltry;
+H : 'Definované filtry';
+SK: 'Definované filtre';
+W : 5000046)
+
+,(SelfIdent: plxJadroDefinovaneOpisy;
+H : 'Definované opisy';
+SK: 'Definované opisy';
+W : 5000047)
+
+,(SelfIdent: plxJadroAutoImportInfo;
+H : 'Byly nalezeny nové soubory pro import.'#13#13+
+    'Pokud neprovedete import v tuto chvíli, máte ' +
+    'možnost ho provést později ručně - soubory jsou ' +
+    'umístěny v podadresáři SYSTEM v cestě, kde se ' +
+    'nachází plugin %s.';
+SK: 'Boli nájdené nové súbory pre import.'#13#13+
+    'Pokiaľ nevykonáte import v tejto chvíli, máte ' +
+    'možnosť ho vykonať neskôr ručne - súbory sú ' +
+    'umiestnené v podadresári SYSTEM v ceste, kde sa ' +
+    'nachádza plugin %s.';
+W : 5000048)
+
+,(SelfIdent: plxJadroAbout_OPluginu;
+H : 'O pluginu...';
+SK: 'O plugine...';
+W : 5000049)
+
+,(SelfIdent: plxJadroKopirovat;
+H : 'Kopírovat';
+SK: 'Kopírovať';
+W : 5000050)
+
+,(SelfIdent: plxJadroAbout_Nazev;
+H : 'Název';
+SK: 'Názov';
+W : 5000051)
+
+,(SelfIdent: plxJadroAbout_Hodnota;
+H : 'Hodnota';
+SK: 'Hodnota';
+W : 5000052)
+
+,(SelfIdent: plxJadroVerze;
+H : 'Verze';
+SK: 'Verzia';
+W : 5000053)
+
+,(SelfIdent: plxJadroAbout_Vyrobce;
+H : 'Výrobce';
+SK: 'Výrobca';
+W : 5000054)
+
+,(SelfIdent: plxJadroAbout_MinVerze_X;
+H : 'Min. verze %s';
+SK: 'Min. verzia %s';
+W : 5000055)
+
+,(SelfIdent: plxJadroAbout_JADRO;
+H : 'JÁDRO';
+SK: 'JADRO';
+W : 5000056)
+
+,(SelfIdent: plxJadroVerze_V_DB;
+H : 'Verze v DB';
+SK: 'Verzia v DB';
+W : 5000057)
+
+,(SelfIdent: plxJadroVerzePluginu;
+H : 'Verze pluginu';
+SK: 'Verzia pluginu';
+W : 5000058)
+
+,(SelfIdent: plxJadroVerzePluginuJeNizsiNezVDB;
+H : 'Verze pluginu je nižší než verze v databázi!';
+SK: 'Verzia pluginu je nižšia ako verzia v databázy!';
+W : 5000059)
+
+,(SelfIdent: plxJadroNeznamaAkce;
+H : 'Neznámá akce!';
+SK: 'Neznáma akcia!';
+W : 5000060)
+
+,(SelfIdent: plxJadroJeTrebaSpustitInstalaciPluginu;
+H : 'Je třeba spustit instalaci pluginu!';
+SK: 'Je potrebné spustiť inštalácia pluginu!';
+W : 5000061)
+
+,(SelfIdent: plxJadroVerzePluginuJeVyssiNezVDB;
+H : 'Verze pluginu je vyšší než verze v databázi!';
+SK: 'Verzia pluginu je vyššia ako verzia v databázy!';
+W : 5000062)
+
+,(SelfIdent: plxJadroMinulaInstalaceNeprobehlaKorektne;
+H : 'Při minulé instalaci nebyly korektně provedeny všechny změny!';
+SK: 'Pri minulej inštalácii neboli korektne vykonané všetky zmeny!';
+W : 5000063)
+
+,(SelfIdent: plxJadroVymazat;
+H : 'Vymazat';
+SK: 'Vymazať';
+W : 5000064)
+
+,(SelfIdent: plxJadroZakazkaXJeUzavrena;
+H : 'Zakázka '#1'%s'#1' je '#1'uzavřena'#1'!';
+SK: 'Zákazka '#1'%s'#1' je '#1'uzavretá'#1'!';
+W : 5000065)
+
+,(SelfIdent: plxJadroNalezenoViceStejnychHodnotPolozky;
+H : 'Nalezeno více stejných hodnot položky';
+SK: 'Nájdených viac rovnakých hodnôt položky';
+W : 5000066)
+
+,(SelfIdent: plxJadroOrganizaceJeZakazana;
+H : 'Organizace je zakázána!';
+SK: 'Organizácia je zakázaná';
+W : 5000067)
+
+,(SelfIdent: plxJadroOrganizaceJeBlokovana;
+H : 'Organizace je blokovaná!';
+SK: 'Organizácia je blokovaná!';
+W : 5000068)
+
+,(SelfIdent: plxJadroInfoOrg_DluhXKeDniY;
+H : ', dluh  %s Kč  ke dni  %s';
+SK: ', dlh  %s Sk  ku dňu  %s';
+W : 5000069)
+
+,(SelfIdent: plxJadroDatumPoslednihoAutoImportuFormularu;
+H : 'Datum posledního autoimportu formulářů';
+SK: 'Dátum posledného autoimportu formulárov';
+W : 5000070)
+
+,(SelfIdent: plxJadroDatumPoslednihoAutoImportuFiltru;
+H : 'Datum posledního autoimportu filtrů';
+SK: 'Dátum posledného autoimportu filtrov';
+W : 5000071)
+
+,(SelfIdent: plxJadroDatumPoslednihoAutoImportuOpisu;
+H : 'Datum posledního autoimportu opisů';
+SK: 'Dátum posledného autoimportu opisov';
+W : 5000072)
+
+,(SelfIdent: plxJadroSystemoveCislo;
+H : 'Systémové číslo';
+SK: 'Systémové číslo';
+W : 5000073)
+
+,(SelfIdent: plxJadroSysCisZkr;
+H : 'Sys.č.';
+SK: 'Sys.č.';
+W : 5000074)
+
+,(SelfIdent: plxJadroAutor;
+H : 'Autor';
+SK: 'Autor';
+W : 5000075; I:'';E:'Author';D:'Autor')
+
+,(SelfIdent: plxJadroDatumPorizeni;
+H : 'Datum pořízení';
+SK: 'Dátum zaevidovania';
+W : 5000076; I:'';E:'Creation date';D:'')
+
+,(SelfIdent: plxJadroZmenil;
+H : 'Změnil';
+SK: 'Zmenil';
+W : 5000077)
+
+,(SelfIdent: plxJadroDatumZmeny;
+H : 'Datum změny';
+SK: 'Dátum zmeny';
+W : 5000078)
+
+,(SelfIdent: plxJadroBlokovaniEditoru;
+H : 'Blokování editoru';
+SK: 'Blokovanie editoru';
+W : 5000079)
+
+,(SelfIdent: plxJadroNovy;
+H : 'Nový...';
+SK: 'Nový...';
+W : 5000080)
+
+,(SelfIdent: plxJadroOprava;
+H : 'Oprava...';
+SK: 'Oprava...';
+W : 5000081)
+
+,(SelfIdent: plxJadroZrusit;
+H : 'Zrušit';
+SK: 'Zrušiť';
+W : 5000082)
+
+,(SelfIdent: plxJadroObnovit;
+H : 'Obnovit';
+SK: 'Obnoviť';
+W : 5000083)
+
+,(SelfIdent: plxJadroAno;
+H : 'Ano';
+SK: 'Áno';
+W : 5000084)
+
+,(SelfIdent: plxJadroNe;
+H : 'Ne';
+SK: 'Nie';
+W : 5000085)
+
+,(SelfIdent: plxJadroNebylNalezenPrehled_X_Y;
+H : 'Nebyl nalezen def.přehled '#1'%s'#1' (%s)!';
+SK: 'Nebol nájdený def.prehľad '#1'%s'#1' (%s)!';
+W : 5000086)
+
+,(SelfIdent: plxJadroNebylNalezenPrehledCislo_X;
+H : 'Nebyl nalezen def.přehled číslo '#1'%s'#1'!';
+SK: 'Nebol nájdený def.prehľad číslo '#1'%s'#1'!';
+W : 5000087)
+
+,(SelfIdent: plxJadroDefPrehledy_a_JejichAkce;
+H : 'Definované přehledy a jejich akce';
+SK: 'Definované prehľady a ich akcia';
+W : 5000088)
+
+,(SelfIdent: plxJadroExterniAkce;
+H : 'Externí akce';
+SK: 'Externá akcia';
+W : 5000089)
+
+,(SelfIdent: plxJadroAkceProPrehledCislo_X;
+H : 'Akce pro přehled č.%d';
+SK: 'Akcia pre prehľad č.%d';
+W : 5000090)
+
+,(SelfIdent: plxJadroDefinovaneVazby;
+H : 'Definované vazby';
+SK: 'Definované väzby';
+W : 5000091)
+
+,(SelfIdent: plxJadroExterniAtributy;
+H : 'Externí atributy';
+SK: 'Externé atribúty';
+W : 5000092)
+
+,(SelfIdent: plxJadroExterniAtribut_T_A;
+H : 'Ext.atribut %s.%s';
+SK: 'Ext.atribút %s.%s';
+W : 5000093)
+
+,(SelfIdent: plxJadroUzivatelskeSoudecky;
+H : 'Uživatelské soudečky';
+SK: 'Uživateľské súdočky';
+W : 5000094)
+
+,(SelfIdent: plxJadroPoradiSoudecku;
+H : 'Pořadí soudečků';
+SK: 'Poradie súdočkov';
+W : 5000095)
+
+,(SelfIdent: plxJadroInstalace;
+H : 'Instalace';
+SK: 'Inštalácia';
+W : 5000096)
+
+,(SelfIdent: plxJadroZakladniInformace;
+H : 'Základní informace';
+SK: 'Základné informácie';
+W : 5000097)
+
+,(SelfIdent: plxJadroTechnickyPopis;
+H : 'Technický popis';
+SK: 'Technický popis';
+W : 5000098)
+
+,(SelfIdent: plxJadroMinVerzeSQLServeru;
+H : 'Min. verze SQL Serveru';
+SK: 'Min. verzia SQL Servera';
+W : 5000099)
+
+,(SelfIdent: plxJadroNeinstalovano;
+H : '<neinstalováno>';
+SK: '<neinštalované>';
+W : 5000100)
+
+,(SelfIdent: plxJadroInstalovanaVerze;
+H : 'Instalovaná verze';
+SK: 'Inštalovaná verzia';
+W : 5000101)
+
+,(SelfIdent: plxJadroUmisteni;
+H : 'Umístění';
+SK: 'Umiestnenie';
+W : 5000102)
+
+,(SelfIdent: plxJadroPrerusit;
+H : 'Přerušit';
+SK: 'Prerušiť';
+W : 5000103)
+
+,(SelfIdent: plxJadroOpravduAkciPrerusit;
+H : 'Opravdu chcete akci přerušit?';
+SK: 'Naozaj chcete akciu prerušiť?';
+W : 5000104)
+
+,(SelfIdent: plxJadroPluginVyzadujeMinVerziSQL_X;
+H : 'Plugin vyžaduje MS SQL Server verze minimálně '#1'%s'#1'!';
+SK: 'Plugin vyžaduje MS SQL Server verzia minimálne '#1'%s'#1'!';
+W : 5000105)
+
+,(SelfIdent: plxJadroNavaznyCiselnikSFiltraci;
+H : 'Návazný číselník s filtrací';
+SK: 'Náväzný číselník s filtráciou';
+W : 5000106)
+
+,(SelfIdent: plxJadroNavaznyCiselnik;
+H : 'Návazný číselník';
+SK: 'Náväzný číselník';
+W : 5000107)
+
+,(SelfIdent: plxJadroOdesilamPostu;
+H : 'Odesílám poštu';
+SK: 'Odosielam poštu';
+W : 5000108)
+
+,(SelfIdent: plxJadroMailNebylNalezenHeMail;
+H : 'Nebyl nalezen program HeMail.EXE pro posílání pošty!';
+SK: 'Nebol nájdený program HeMail.EXE pre posielanie pošty!';
+W : 5000109)
+
+,(SelfIdent: plxJadroMailNepodariloSeVytvoriKonfigSoubor;
+H : 'Nepodařilo se vytvořit konfigurační soubor!';
+SK: 'Nepodarilo sa vytvoriť konfiguračný súbor!';
+W : 5000110)
+
+,(SelfIdent: plxJadroKontrolaExternichAtributu;
+H : 'Kontrola externích atributů';
+SK: 'Kontrola externých atribútov';
+W : 5000111)
+
+,(SelfIdent: plxJadroStredisko_X_JeZakazano;
+H : 'Středisko '#1'%s'#1' je '#1'zakázáno'#1'!';
+SK: 'Stredisko '#1'%s'#1' je '#1'zakázané'#1'';
+W : 5000112)
+
+,(SelfIdent: plxJadroRegistrovanyOtaznik;
+H : 'Registrovaný?';
+SK: 'Registrovaný?';
+W : 5000113)
+
+,(SelfIdent: plxJadroIdentifikator;
+H : 'Identifikátor';
+SK: 'Identifikátor';
+W : 5000114)
+
+,(SelfIdent: plxJadro_Nepouzito_;
+H : '<nepoužito>';
+SK: '<nepoužité>';
+W : 5000115)
+
+,(SelfIdent: plxJadroLogo;
+H : 'Logo';
+SK: 'Logo';
+W : 5000116)
+
+,(SelfIdent: plxJadroExterniHlasky;
+H : 'Externí hlášky';
+W : 5000117)
+
+,(SelfIdent: plxJadroDoplneniExternichHlasek;
+H : 'Doplnění externích hlášek';
+W : 5000118)
+
+,(SelfIdent: plxJadroAbout_IdentifikaceVyrobce;
+H : 'Identifikace výrobce';
+SK: 'Identifikácia výrobca';
+W : 5000119)
+
+,(SelfIdent: plxJadroHistorieVerzi;
+H : 'Historie verzí';
+SK: 'História verzí';
+W : 5000120)
+
+,(SelfIdent: plxJadroZaznamJeBlokovanNelzeSmazat;
+H : 'Záznam je blokován jiným uživatelem - nelze smazat!';
+W : 5000121)
+
+,(SelfIdent: plxJadroDefinovanyPrehled_X_NebylNalezen;
+H : 'Definovaný přehled %s nebyl nalezen!';
+W : 5000122)
+
+,(SelfIdent: plxJadroCislaPrehleduBylaVycerpana;
+H : 'Čísla přehledů byla vyčerpána!';
+W : 5000123)
+
+,(SelfIdent: plxJadroPredchoziRok;
+H : 'Předchozí rok';
+W : 5000124)
+
+,(SelfIdent: plxJadroPredchoziMesic;
+H : 'Předchozí měsíc';
+W : 5000125)
+
+,(SelfIdent: plxJadroNasledujiciMesic;
+H : 'Následující měsíc';
+W : 5000126)
+
+,(SelfIdent: plxJadroNasledujiciRok;
+H : 'Následující rok';
+W : 5000127)
+
+,(SelfIdent: plxJadroZvolteDatum;
+H : 'Zvolte datum';
+W : 5000128)
+
+,(SelfIdent: plxJadroDnes;
+H : 'Dnes';
+W : 5000129)
+
+,(SelfIdent: plxJadroKalendar;
+H : 'Kalendář';
+W : 5000130)
+
+,(SelfIdent: plxJadroAktualniCas;
+H : 'Aktuální čas';
+W : 5000131)
+
+,(SelfIdent: plxJadroKalkulacka;
+H : 'Kalkulačka';
+W : 5000132)
+
+,(SelfIdent: plxJadroKontrolaUzivatelskychFunkci;
+H : 'Kontrola uživatelských funkcí';
+W : 5000133)
+
+,(SelfIdent: plxJadroPrevodDoUNICODE;
+H : 'Převod do UNICODE';
+W : 5000134)
+
+,(SelfIdent: plxJadroDoplneniPrehleduProUzivAtr;
+H : 'Doplnění přehledů pro uživ. atributy';
+W : 5000135)
+
+,(SelfIdent: plxJadroSkupinaNastrojuPrizpusobeni;
+H : 'Skupina nástrojů přizpůsobení';
+W : 5000136)
+
+,(SelfIdent: plxJadroDoplneniSkupiny;
+H : 'Doplnění skupiny';
+W : 5000137)
+
+,(SelfIdent: plxJadroVlastniInstalace;
+H : 'Vlastní instalace';
+W : 5000138)
+
+,(SelfIdent: plxJadroHotovo;
+H : 'hotovo';
+W : 5000139)
+
+,(SelfIdent: plxJadroOmezeniVDBPrebyva;
+H : 'Omezení tohoto názvu v databázi přebývá';
+W : 5000140)
+
+,(SelfIdent: plxJadroPocitanyAtributChybi;
+H : 'Počítaný atribut tohoto názvu v tabulce chybí';
+W : 5000141)
+
+,(SelfIdent: plxJadroAtributVTabulceChybi;
+H : 'Atribut tohoto názvu v tabulce chybí';
+W : 5000142)
+
+,(SelfIdent: plxJadroZmenaPocitanehoAtributuSmazani;
+H : 'Změna počítaného atributu %s -> %s (smazání)';
+W : 5000143)
+
+,(SelfIdent: plxJadroZmenaPocitanehoAtributuPridani;
+H : 'Změna počítaného atributu %s -> %s (přidání)';
+W : 5000144)
+
+,(SelfIdent: plxJadroZmenaPocitanehoAtributuKodDB;
+H : 'Změna počítaného atributu %s -> %s (kód v DB)';
+W : 5000145)
+
+,(SelfIdent: plxJadroAtributVTabulcePrebyva;
+H : 'Atribut tohoto názvu v tabulce přebývá';
+W : 5000146)
+
+,(SelfIdent: plxJadroOmezeniJeVDBVypnuto;
+H : 'Omezení je v databází vypnuto';
+W : 5000147)
+
+,(SelfIdent: plxJadroOmezeniVDBChybi;
+H : 'Omezení tohoto názvu v databázi chybí';
+W : 5000148)
+
+,(SelfIdent: plxJadroOmezeniSeVDBZmenilo;
+H : 'Omezení tohoto názvu se v databázi změnilo';
+W : 5000149)
+
+,(SelfIdent: plxJadroOmezeniSeVDBZmeniloKodDB;
+H : 'Omezení tohoto názvu se v databázi změnilo (kód v DB)';
+W : 5000150)
+
+,(SelfIdent: plxJadroOmezeniJeVypnuto;
+H : 'Omezení je v databází vypnuto';
+W : 5000151)
+
+,(SelfIdent: plxJadroUlozenkaVDBChybi;
+H : 'Uložená procedura tohoto názvu v databázi chybí';
+W : 5000152)
+
+,(SelfIdent: plxJadroNastaveniPravKUlozence;
+H : 'Nastavení práv k nové uložené proceduře';
+W : 5000153)
+
+,(SelfIdent: plxJadroUlozenkaSeZmenila;
+H : 'Uložená procedura se změnila';
+W : 5000154)
+
+,(SelfIdent: plxJadroFunkceVDBChybi;
+H : 'Uživatelská funkce tohoto názvu v databázi chybí';
+W : 5000155)
+
+,(SelfIdent: plxJadroNastaveniPravKFunkci;
+H : 'Nastavení práv k nové uživatelské funkci';
+W : 5000156)
+
+,(SelfIdent: plxJadroFunkceSeZmenila;
+H : 'Uživatelská funkce se změnila';
+W : 5000157)
+
+,(SelfIdent: plxJadroTriggerVDBChybi;
+H : 'Trigger v databázi chybí';
+W : 5000158)
+
+,(SelfIdent: plxJadroTriggerVDBPrebyva;
+H : 'Trigger v databázi přebývá';
+W : 5000159)
+
+,(SelfIdent: plxJadroTriggerJeVDBVypnut;
+H : 'Trigger je v databázi vypnut';
+W : 5000160)
+
+,(SelfIdent: plxJadroTriggerVDBSeZmenil;
+H : 'Trigger v databázi se změnil';
+W : 5000161)
+
+,(SelfIdent: plxJadroIndexJeVDBPrejmenovan;
+H : 'Index je v databázi přejmenován';
+W : 5000162)
+
+,(SelfIdent: plxJadroHeslo;
+H : 'Heslo';
+W : 5000163)
+
+,(SelfIdent: plxJadroZobrazitHeslo;
+H : 'Zobrazit heslo';
+W : 5000164)
+
+,(SelfIdent: plxJadroAdresarProJazykovaDLL;
+H : 'Adresář pro uložení jazykových DLL';
+W : 5000165)
+
+,(SelfIdent: plxJadroVysledek;
+H : 'Výsledek';
+W : 5000166)
+
+,(SelfIdent: plxJadroPluginNeobsahujeZadneHlasky;
+H : 'Plugin neobsahuje žádné hlášky!';
+W : 5000167)
+
+,(SelfIdent: plxJadroNeniZadanoHeslo;
+H : 'Není zadáno heslo!';
+W : 5000168)
+
+,(SelfIdent: plxJadroNeniZadanAdresarProJazykovaDLL;
+H : 'Není zadán adresář pro uložení jazykových DLL!';
+W : 5000169)
+
+,(SelfIdent: plxJadroAdresarProJazykovaDLLNeexistuje;
+H : 'Adresář pro uložení jazykových DLL neexistuje!';
+W : 5000170)
+
+,(SelfIdent: plxJadroPodporaTicheInstalacePluginu;
+H : 'Podpora tiché instalace pluginů';
+W : 5000171)
+
+,(SelfIdent: plxJadroNepodporaOdinstalace;
+H : 'Tento plugin nepodporuje automatickou odinstalaci.';
+W : 5000172)
+
+
+// plgTypeTxtJadro.INC
+//last
+
+// LOCAL | USER: RK | DT: 27.11.2006 09:11:00 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
+//  LIB  | USER: RK | DT: 27.11.2006 09:16:24 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 03.05.2007 09:33:23 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
+//  LIB  | USER: RK | DT: 03.05.2007 09:40:20 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RJ | DT: 23.05.2007 12:13:33 | VER:          | TXT:  | PC: RJ-XP-D | FROM: L:\H\IQ10\PlugLib | TO: C:\Plugins\SEW\Bin
+//  LIB  | USER: RJ | DT: 23.05.2007 12:14:14 | VER: 20070523 | TXT:  | PC: RJ-XP-D | FROM: C:\Plugins\SEW\Bin | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 10.07.2007 08:46:24 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginExample
+//  LIB  | USER: RK | DT: 10.07.2007 08:46:46 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 05.11.2007 15:57:29 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginEurest
+//  LIB  | USER: RK | DT: 05.11.2007 15:57:39 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginEurest | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 21.07.2008 15:12:53 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginLCSEIUctenek
+//  LIB  | USER: RK | DT: 21.07.2008 15:33:58 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginLCSEIUctenek | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 29.09.2008 10:01:23 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
+//  LIB  | USER: RK | DT: 29.09.2008 10:03:06 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: RK | DT: 05.03.2009 14:00:40 | VER:          | TXT:  | PC: RK-VI-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
+//  LIB  | USER: RK | DT: 05.03.2009 14:05:44 | VER: ?? LB ?? | TXT:  | PC: RK-VI-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: roman.krupicka | DT: 12.09.2011 16:51:54 | VER:          | TXT:  | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
+//  LIB  | USER: roman.krupicka | DT: 13.09.2011 13:39:35 | VER: 20110913 | TXT:  | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: roman.krupicka | DT: 10.10.2011 15:02:21 | VER:          | TXT:  | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
+//  LIB  | USER: roman.krupicka | DT: 10.10.2011 15:06:41 | VER: ?? LB ?? | TXT:  | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: roman.krupicka | DT: 10.10.2011 15:06:43 | VER:          | TXT:  | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
+//  LIB  | USER: roman.krupicka | DT: 10.10.2011 15:07:21 | VER: ?? LB ?? | TXT:  | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: roman.krupicka | DT: 10.10.2011 16:19:37 | VER:          | TXT:  | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
+//  LIB  | USER: roman.krupicka | DT: 10.10.2011 16:28:33 | VER: ?? LB ?? | TXT:  | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2

lib/plgTypeBrowse.INC

@@ -0,0 +1,5 @@
+type
+  TplgBrowse = (bZadny
+
+//last
+               );

lib/plgTypeSoudky.inc

@@ -0,0 +1,5 @@
+type
+  TplgSoudek = (sdNeniVidet       // neni videt ve stromecku (default)
+
+//last
+               );

lib/plgTypeTabulka.inc

@@ -0,0 +1,7 @@
+// === TABULKY ================================================================
+
+type
+  TplgTabulka = (tZadna
+                );
+
+//last <- to je kvuli rychlejsimu hledani

lib/plgTypeTxtEx.inc

@@ -0,0 +1,15 @@
+// === HLASKY OSTATNI =========================================================
+const
+// priklad:
+// plxMojeHlaska1=plx_MAX_Jadro+1;   <--- POZOR musi byt plx_MAX_Jadro !!
+// plxMojeHlaska2=plxMojeHlaska1+1;
+// plx_MAX = plxMojeHlaska2;         <--- plx_MAX se rovna posledni hlasce, ale bez +1 !!
+
+
+  plx_MAX = plx_MAX_Jadro;
+
+//last <- to je kvuli rychlejsimu hledani
+
+  
+
+

lib/plgTypeTxtJadro.INC

@@ -0,0 +1,192 @@
+// === HLASKY JADRA ===========================================================
+const
+plxNic=0;
+plxOK=plxNic+1;
+plxStorno=plxOK+1;
+plxJadroUlozitZmeny=plxStorno+1;
+plxJadroPrazdnaNeboChybneZadanaPolozka=plxJadroUlozitZmeny+1;
+plxJadroOprPrejSmazAkt=plxJadroPrazdnaNeboChybneZadanaPolozka+1;
+plxJadroOprPrejSmazVse=plxJadroOprPrejSmazAkt+1;
+plxJadroNeni=plxJadroOprPrejSmazVse+1;
+plxJadroPluginVyzadujeMinVerziX=plxJadroNeni+1;
+plxJadroAkceNemuzeBytSpustena=plxJadroPluginVyzadujeMinVerziX+1;
+plxJadroMenuEditace=plxJadroAkceNemuzeBytSpustena+1;
+plxJadroAkceNovy=plxJadroMenuEditace+1;
+plxJadroAkceOprava=plxJadroAkceNovy+1;
+plxJadroAkceZrusit=plxJadroAkceOprava+1;
+plxJadroPouzeKeCteni=plxJadroAkceZrusit+1;
+plxJadroZavrit=plxJadroPouzeKeCteni+1;
+plxJadroIndexSeZmenil=plxJadroZavrit+1;
+plxJadroIndexV_DB_Chybi=plxJadroIndexSeZmenil+1;
+plxJadroKontrolaPluginuX=plxJadroIndexV_DB_Chybi+1;
+plxJadroSpustit=plxJadroKontrolaPluginuX+1;
+plxJadroZmenoveSkripty=plxJadroSpustit+1;
+plxJadroKontrolaTabulek=plxJadroZmenoveSkripty+1;
+plxJadroKontrolaJednotlivychAtributu=plxJadroKontrolaTabulek+1;
+plxJadroKontrolaUnikatnichKlicu=plxJadroKontrolaJednotlivychAtributu+1;
+plxJadroKontrolaIntegritnichOmezeni=plxJadroKontrolaUnikatnichKlicu+1;
+plxJadroKontrolaCizichKlicu=plxJadroKontrolaIntegritnichOmezeni+1;
+plxJadroKontrolaUlozenychProcedur=plxJadroKontrolaCizichKlicu+1;
+plxJadroKontrolaTriggeru=plxJadroKontrolaUlozenychProcedur+1;
+plxJadroKontrolaIndexu=plxJadroKontrolaTriggeru+1;
+plxJadroKontrolaPrehledu_a_Akci=plxJadroKontrolaIndexu+1;
+plxJadroImportFormularuFilruOpisu=plxJadroKontrolaPrehledu_a_Akci+1;
+plxJadroZmenovySkriptJizBylProveden=plxJadroImportFormularuFilruOpisu+1;
+plxJadroUpdateZVerze_X_NaVerzi_Y=plxJadroZmenovySkriptJizBylProveden+1;
+plxJadroZmenovychSkriptuX=plxJadroUpdateZVerze_X_NaVerzi_Y+1;
+plxJadroInstalaceHotovo=plxJadroZmenovychSkriptuX+1;
+plxJadro_X_BudeNyniUkoncen=plxJadroInstalaceHotovo+1;
+plxJadroBylaDetekovanaZmenaStruktury=plxJadro_X_BudeNyniUkoncen+1;
+plxJadroUvedeneTabulkyChybi=plxJadroBylaDetekovanaZmenaStruktury+1;
+plxJadroVytvoreniZakladnichPrehledu=plxJadroUvedeneTabulkyChybi+1;
+plxJadroZmenaStrukturyDB=plxJadroVytvoreniZakladnichPrehledu+1;
+plxJadroOpravduSiPrejeteUvedeneZmeny=plxJadroZmenaStrukturyDB+1;
+plxJadroPredZmenamiDoporucujemeZalohuDB=plxJadroOpravduSiPrejeteUvedeneZmeny+1;
+plxJadroTlacitkoZalohovani=plxJadroPredZmenamiDoporucujemeZalohuDB+1;
+plxJadroProvest=plxJadroTlacitkoZalohovani+1;
+plxJadroAkceUkazSQLSkript=plxJadroProvest+1;
+plxJadroDefinovaneFormulare=plxJadroAkceUkazSQLSkript+1;
+plxJadroDefinovaneFiltry=plxJadroDefinovaneFormulare+1;
+plxJadroDefinovaneOpisy=plxJadroDefinovaneFiltry+1;
+plxJadroAutoImportInfo=plxJadroDefinovaneOpisy+1;
+plxJadroAbout_OPluginu=plxJadroAutoImportInfo+1;
+plxJadroKopirovat=plxJadroAbout_OPluginu+1;
+plxJadroAbout_Nazev=plxJadroKopirovat+1;
+plxJadroAbout_Hodnota=plxJadroAbout_Nazev+1;
+plxJadroVerze=plxJadroAbout_Hodnota+1;
+plxJadroAbout_Vyrobce=plxJadroVerze+1;
+plxJadroAbout_MinVerze_X=plxJadroAbout_Vyrobce+1;
+plxJadroAbout_JADRO=plxJadroAbout_MinVerze_X+1;
+plxJadroVerze_V_DB=plxJadroAbout_JADRO+1;
+plxJadroVerzePluginu=plxJadroVerze_V_DB+1;
+plxJadroVerzePluginuJeNizsiNezVDB=plxJadroVerzePluginu+1;
+plxJadroNeznamaAkce=plxJadroVerzePluginuJeNizsiNezVDB+1;
+plxJadroJeTrebaSpustitInstalaciPluginu=plxJadroNeznamaAkce+1;
+plxJadroVerzePluginuJeVyssiNezVDB=plxJadroJeTrebaSpustitInstalaciPluginu+1;
+plxJadroMinulaInstalaceNeprobehlaKorektne=plxJadroVerzePluginuJeVyssiNezVDB+1;
+plxJadroVymazat=plxJadroMinulaInstalaceNeprobehlaKorektne+1;
+plxJadroZakazkaXJeUzavrena=plxJadroVymazat+1;
+plxJadroNalezenoViceStejnychHodnotPolozky=plxJadroZakazkaXJeUzavrena+1;
+plxJadroOrganizaceJeZakazana=plxJadroNalezenoViceStejnychHodnotPolozky+1;
+plxJadroOrganizaceJeBlokovana=plxJadroOrganizaceJeZakazana+1;
+plxJadroInfoOrg_DluhXKeDniY=plxJadroOrganizaceJeBlokovana+1;
+plxJadroDatumPoslednihoAutoImportuFormularu=plxJadroInfoOrg_DluhXKeDniY+1;
+plxJadroDatumPoslednihoAutoImportuFiltru=plxJadroDatumPoslednihoAutoImportuFormularu+1;
+plxJadroDatumPoslednihoAutoImportuOpisu=plxJadroDatumPoslednihoAutoImportuFiltru+1;
+plxJadroSystemoveCislo=plxJadroDatumPoslednihoAutoImportuOpisu+1;
+plxJadroSysCisZkr=plxJadroSystemoveCislo+1;
+plxJadroAutor=plxJadroSysCisZkr+1;
+plxJadroDatumPorizeni=plxJadroAutor+1;
+plxJadroZmenil=plxJadroDatumPorizeni+1;
+plxJadroDatumZmeny=plxJadroZmenil+1;
+plxJadroBlokovaniEditoru=plxJadroDatumZmeny+1;
+plxJadroNovy=plxJadroBlokovaniEditoru+1;
+plxJadroOprava=plxJadroNovy+1;
+plxJadroZrusit=plxJadroOprava+1;
+plxJadroObnovit=plxJadroZrusit+1;
+plxJadroAno=plxJadroObnovit+1;
+plxJadroNe=plxJadroAno+1;
+plxJadroNebylNalezenPrehled_X_Y=plxJadroNe+1;
+plxJadroNebylNalezenPrehledCislo_X=plxJadroNebylNalezenPrehled_X_Y+1;
+plxJadroDefPrehledy_a_JejichAkce=plxJadroNebylNalezenPrehledCislo_X+1;
+plxJadroExterniAkce=plxJadroDefPrehledy_a_JejichAkce+1;
+plxJadroAkceProPrehledCislo_X=plxJadroExterniAkce+1;
+plxJadroDefinovaneVazby=plxJadroAkceProPrehledCislo_X+1;
+plxJadroExterniAtributy=plxJadroDefinovaneVazby+1;
+plxJadroExterniAtribut_T_A=plxJadroExterniAtributy+1;
+plxJadroUzivatelskeSoudecky=plxJadroExterniAtribut_T_A+1;
+plxJadroPoradiSoudecku=plxJadroUzivatelskeSoudecky+1;
+plxJadroInstalace=plxJadroPoradiSoudecku+1;
+plxJadroZakladniInformace=plxJadroInstalace+1;
+plxJadroTechnickyPopis=plxJadroZakladniInformace+1;
+plxJadroMinVerzeSQLServeru=plxJadroTechnickyPopis+1;
+plxJadroNeinstalovano=plxJadroMinVerzeSQLServeru+1;
+plxJadroInstalovanaVerze=plxJadroNeinstalovano+1;
+plxJadroUmisteni=plxJadroInstalovanaVerze+1;
+plxJadroPrerusit=plxJadroUmisteni+1;
+plxJadroOpravduAkciPrerusit=plxJadroPrerusit+1;
+plxJadroPluginVyzadujeMinVerziSQL_X=plxJadroOpravduAkciPrerusit+1;
+plxJadroNavaznyCiselnikSFiltraci=plxJadroPluginVyzadujeMinVerziSQL_X+1;
+plxJadroNavaznyCiselnik=plxJadroNavaznyCiselnikSFiltraci+1;
+plxJadroOdesilamPostu=plxJadroNavaznyCiselnik+1;
+plxJadroMailNebylNalezenHeMail=plxJadroOdesilamPostu+1;
+plxJadroMailNepodariloSeVytvoriKonfigSoubor=plxJadroMailNebylNalezenHeMail+1;
+plxJadroKontrolaExternichAtributu=plxJadroMailNepodariloSeVytvoriKonfigSoubor+1;
+plxJadroStredisko_X_JeZakazano=plxJadroKontrolaExternichAtributu+1;
+plxJadroRegistrovanyOtaznik=plxJadroStredisko_X_JeZakazano+1;
+plxJadroIdentifikator=plxJadroRegistrovanyOtaznik+1;
+plxJadro_Nepouzito_=plxJadroIdentifikator+1;
+plxJadroLogo=plxJadro_Nepouzito_+1;
+plxJadroExterniHlasky=plxJadroLogo+1;
+plxJadroDoplneniExternichHlasek=plxJadroExterniHlasky+1;
+plxJadroAbout_IdentifikaceVyrobce=plxJadroDoplneniExternichHlasek+1;
+plxJadroHistorieVerzi=plxJadroAbout_IdentifikaceVyrobce+1;
+plxJadroZaznamJeBlokovanNelzeSmazat=plxJadroHistorieVerzi+1;
+plxJadroDefinovanyPrehled_X_NebylNalezen=plxJadroZaznamJeBlokovanNelzeSmazat+1;
+plxJadroCislaPrehleduBylaVycerpana=plxJadroDefinovanyPrehled_X_NebylNalezen+1;
+plxJadroPredchoziRok=plxJadroCislaPrehleduBylaVycerpana+1;
+plxJadroPredchoziMesic=plxJadroPredchoziRok+1;
+plxJadroNasledujiciMesic=plxJadroPredchoziMesic+1;
+plxJadroNasledujiciRok=plxJadroNasledujiciMesic+1;
+plxJadroZvolteDatum=plxJadroNasledujiciRok+1;
+plxJadroDnes=plxJadroZvolteDatum+1;
+plxJadroKalendar=plxJadroDnes+1;
+plxJadroAktualniCas=plxJadroKalendar+1;
+plxJadroKalkulacka=plxJadroAktualniCas+1;
+plxJadroKontrolaUzivatelskychFunkci=plxJadroKalkulacka+1;
+plxJadroPrevodDoUNICODE=plxJadroKontrolaUzivatelskychFunkci+1;
+plxJadroDoplneniPrehleduProUzivAtr=plxJadroPrevodDoUNICODE+1;
+plxJadroSkupinaNastrojuPrizpusobeni=plxJadroDoplneniPrehleduProUzivAtr+1;
+plxJadroDoplneniSkupiny=plxJadroSkupinaNastrojuPrizpusobeni+1;
+plxJadroVlastniInstalace=plxJadroDoplneniSkupiny+1;
+plxJadroHotovo=plxJadroVlastniInstalace+1;
+plxJadroOmezeniVDBPrebyva=plxJadroHotovo+1;
+plxJadroPocitanyAtributChybi=plxJadroOmezeniVDBPrebyva+1;
+plxJadroAtributVTabulceChybi=plxJadroPocitanyAtributChybi+1;
+plxJadroZmenaPocitanehoAtributuSmazani=plxJadroAtributVTabulceChybi+1;
+plxJadroZmenaPocitanehoAtributuPridani=plxJadroZmenaPocitanehoAtributuSmazani+1;
+plxJadroZmenaPocitanehoAtributuKodDB=plxJadroZmenaPocitanehoAtributuPridani+1;
+plxJadroAtributVTabulcePrebyva=plxJadroZmenaPocitanehoAtributuKodDB+1;
+plxJadroOmezeniJeVDBVypnuto=plxJadroAtributVTabulcePrebyva+1;
+plxJadroOmezeniVDBChybi=plxJadroOmezeniJeVDBVypnuto+1;
+plxJadroOmezeniSeVDBZmenilo=plxJadroOmezeniVDBChybi+1;
+plxJadroOmezeniSeVDBZmeniloKodDB=plxJadroOmezeniSeVDBZmenilo+1;
+plxJadroOmezeniJeVypnuto=plxJadroOmezeniSeVDBZmeniloKodDB+1;
+plxJadroUlozenkaVDBChybi=plxJadroOmezeniJeVypnuto+1;
+plxJadroNastaveniPravKUlozence=plxJadroUlozenkaVDBChybi+1;
+plxJadroUlozenkaSeZmenila=plxJadroNastaveniPravKUlozence+1;
+plxJadroFunkceVDBChybi=plxJadroUlozenkaSeZmenila+1;
+plxJadroNastaveniPravKFunkci=plxJadroFunkceVDBChybi+1;
+plxJadroFunkceSeZmenila=plxJadroNastaveniPravKFunkci+1;
+plxJadroTriggerVDBChybi=plxJadroFunkceSeZmenila+1;
+plxJadroTriggerVDBPrebyva=plxJadroTriggerVDBChybi+1;
+plxJadroTriggerJeVDBVypnut=plxJadroTriggerVDBPrebyva+1;
+plxJadroTriggerVDBSeZmenil=plxJadroTriggerJeVDBVypnut+1;
+plxJadroIndexJeVDBPrejmenovan=plxJadroTriggerVDBSeZmenil+1;
+plxJadroHeslo=plxJadroIndexJeVDBPrejmenovan+1;
+plxJadroZobrazitHeslo=plxJadroHeslo+1;
+plxJadroAdresarProJazykovaDLL=plxJadroZobrazitHeslo+1;
+plxJadroVysledek=plxJadroAdresarProJazykovaDLL+1;
+plxJadroPluginNeobsahujeZadneHlasky=plxJadroVysledek+1;
+plxJadroNeniZadanoHeslo=plxJadroPluginNeobsahujeZadneHlasky+1;
+plxJadroNeniZadanAdresarProJazykovaDLL=plxJadroNeniZadanoHeslo+1;
+plxJadroAdresarProJazykovaDLLNeexistuje=plxJadroNeniZadanAdresarProJazykovaDLL+1;
+plxJadroPodporaTicheInstalacePluginu=plxJadroAdresarProJazykovaDLLNeexistuje+1;
+plxJadroNepodporaOdinstalace=plxJadroPodporaTicheInstalacePluginu+1;
+
+plx_MAX_Jadro = plxJadroNepodporaOdinstalace;
+
+//last <- to je kvuli rychlejsimu hledani
+
+// LOCAL | USER: RK | DT: 27.11.2006 09:11:03 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
+//  LIB  | USER: RK | DT: 27.11.2006 09:16:26 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 21.07.2008 15:31:34 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginLCSEIUctenek
+//  LIB  | USER: RK | DT: 21.07.2008 15:34:00 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginLCSEIUctenek | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 29.09.2008 10:01:28 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
+//  LIB  | USER: RK | DT: 29.09.2008 10:03:08 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: RK | DT: 05.03.2009 14:00:44 | VER:          | TXT:  | PC: RK-VI-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
+//  LIB  | USER: RK | DT: 05.03.2009 14:05:46 | VER: ?? LB ?? | TXT:  | PC: RK-VI-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: roman.krupicka | DT: 12.09.2011 16:52:33 | VER:          | TXT:  | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
+//  LIB  | USER: roman.krupicka | DT: 13.09.2011 13:39:38 | VER: 20110913 | TXT:  | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
+// LOCAL | USER: roman.krupicka | DT: 10.10.2011 16:19:41 | VER:          | TXT:  | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
+//  LIB  | USER: roman.krupicka | DT: 10.10.2011 16:28:35 | VER: ?? LB ?? | TXT:  | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2

lib/plgTypeZbytek.inc

@@ -0,0 +1,3 @@
+
+// Typy a konstanty tykajici se pouze daneho pluginu
+

lib/plgVerze.INC

@@ -0,0 +1,14 @@
+$030020260407
+{MMnnRRRRMMDD}
+
+{ MM   = major verze }
+{ nn   = minor verze }
+{ RRRR = rok         }
+{ MM   = mesic       }
+{ DD   = den         }
+
+{ - cislo (hexadecimalne) verze jako typ Int64 - je v include, protoze se    }
+{   externe nacita pri distribucni kompilaci pro pridani VERSION INFO do EXE }
+
+{ - toto cislo MUSI byt na PRVNIM RADKU tohoto souboru a na temze            }
+{   radku nesmi byt dalsi znaky (komentare apod.)                            }

libPPL_Invk.pas

@@ -0,0 +1,888 @@
+unit libPPL_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} libPPL_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TIEGate_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_ImportPPLSprint(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetZipCodes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetCities(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetPackagesInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetPackageToDelivery(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetPackageInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportOrderExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportOrdersExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportPackageExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportPackagesExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportWeighedPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportWeighedPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportPackagesHoffmann(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportESYCOPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportESYCOPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportStatusDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportStatusesDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportOrderCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ImportOrdersCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TIEGate_Invoker }
+
+constructor TIEGate_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportPPLSprint(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse; }
+var
+  parameters: libPPL_Intf.ImportPPLSprint;
+  lResult: libPPL_Intf.ImportPPLSprintResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportPPLSprint', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPPLSprint), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportPPLSprint(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPPLSprintResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPPLSprintResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_GetZipCodes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse; }
+var
+  parameters: libPPL_Intf.GetZipCodes;
+  lResult: libPPL_Intf.GetZipCodesResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/GetZipCodes', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.GetZipCodes), parameters, []);
+
+    lResult := (__Instance as IIEGate).GetZipCodes(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetZipCodesResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.GetZipCodesResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_GetCities(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetCities(const parameters: GetCities): GetCitiesResponse; }
+var
+  parameters: libPPL_Intf.GetCities;
+  lResult: libPPL_Intf.GetCitiesResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/GetCities', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.GetCities), parameters, []);
+
+    lResult := (__Instance as IIEGate).GetCities(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetCitiesResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.GetCitiesResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_GetPackagesInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse; }
+var
+  parameters: libPPL_Intf.GetPackagesInfo;
+  lResult: libPPL_Intf.GetPackagesInfoResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/GetPackagesInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackagesInfo), parameters, []);
+
+    lResult := (__Instance as IIEGate).GetPackagesInfo(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackagesInfoResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackagesInfoResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_GetPackageToDelivery(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse; }
+var
+  parameters: libPPL_Intf.GetPackageToDelivery;
+  lResult: libPPL_Intf.GetPackageToDeliveryResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/GetPackageToDelivery', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageToDelivery), parameters, []);
+
+    lResult := (__Instance as IIEGate).GetPackageToDelivery(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackageToDeliveryResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageToDeliveryResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_GetPackageInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse; }
+var
+  parameters: libPPL_Intf.GetPackageInfo;
+  lResult: libPPL_Intf.GetPackageInfoResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/GetPackageInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageInfo), parameters, []);
+
+    lResult := (__Instance as IIEGate).GetPackageInfo(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackageInfoResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageInfoResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportOrderExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse; }
+var
+  parameters: libPPL_Intf.ImportOrderExt;
+  lResult: libPPL_Intf.ImportOrderExtResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportOrderExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderExt), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportOrderExt(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrderExtResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderExtResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportOrdersExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse; }
+var
+  parameters: libPPL_Intf.ImportOrdersExt;
+  lResult: libPPL_Intf.ImportOrdersExtResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportOrdersExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersExt), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportOrdersExt(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersExtResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersExtResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportPackageExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse; }
+var
+  parameters: libPPL_Intf.ImportPackageExt;
+  lResult: libPPL_Intf.ImportPackageExtResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportPackageExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackageExt), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportPackageExt(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackageExtResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackageExtResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportPackagesExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse; }
+var
+  parameters: libPPL_Intf.ImportPackagesExt;
+  lResult: libPPL_Intf.ImportPackagesExtResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportPackagesExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesExt), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportPackagesExt(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesExtResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesExtResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse; }
+var
+  parameters: libPPL_Intf.ImportPackages;
+  lResult: libPPL_Intf.ImportPackagesResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackages), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportPackages(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse; }
+var
+  parameters: libPPL_Intf.ImportOrders;
+  lResult: libPPL_Intf.ImportOrdersResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportOrders', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrders), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportOrders(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportWeighedPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse; }
+var
+  parameters: libPPL_Intf.ImportWeighedPack;
+  lResult: libPPL_Intf.ImportWeighedPackResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportWeighedPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPack), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportWeighedPack(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportWeighedPackResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportWeighedPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse; }
+var
+  parameters: libPPL_Intf.ImportWeighedPackages;
+  lResult: libPPL_Intf.ImportWeighedPackagesResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportWeighedPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackages), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportWeighedPackages(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportWeighedPackagesResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackagesResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportPackagesHoffmann(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse; }
+var
+  parameters: libPPL_Intf.ImportPackagesHoffmann;
+  lResult: libPPL_Intf.ImportPackagesHoffmannResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportPackagesHoffmann', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmann), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportPackagesHoffmann(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesHoffmannResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmannResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportESYCOPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse; }
+var
+  parameters: libPPL_Intf.ImportESYCOPack;
+  lResult: libPPL_Intf.ImportESYCOPackResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportESYCOPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPack), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportESYCOPack(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportESYCOPackResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportESYCOPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse; }
+var
+  parameters: libPPL_Intf.ImportESYCOPackages;
+  lResult: libPPL_Intf.ImportESYCOPackagesResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportESYCOPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackages), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportESYCOPackages(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportESYCOPackagesResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackagesResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportStatusDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse; }
+var
+  parameters: libPPL_Intf.ImportStatusDHL;
+  lResult: libPPL_Intf.ImportStatusDHLResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportStatusDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusDHL), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportStatusDHL(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportStatusDHLResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusDHLResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportStatusesDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse; }
+var
+  parameters: libPPL_Intf.ImportStatusesDHL;
+  lResult: libPPL_Intf.ImportStatusesDHLResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportStatusesDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHL), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportStatusesDHL(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportStatusesDHLResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHLResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportOrderCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse; }
+var
+  parameters: libPPL_Intf.ImportOrderCart;
+  lResult: libPPL_Intf.ImportOrderCartResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportOrderCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderCart), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportOrderCart(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrderCartResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderCartResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TIEGate_Invoker.Invoke_ImportOrdersCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse; }
+var
+  parameters: libPPL_Intf.ImportOrdersCart;
+  lResult: libPPL_Intf.ImportOrdersCartResponse;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
+      , 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
+      , 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
+      , 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'], 
+      ['PPLIEGate/ImportOrdersCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
+      , 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
+      , 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
+      , 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
+  parameters := nil;
+  lResult := nil;
+  try
+    __Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersCart), parameters, []);
+
+    lResult := (__Instance as IIEGate).ImportOrdersCart(parameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersCartResponse');
+    __Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersCartResponse), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(parameters);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+  RegisterServiceAttribute('','Wsdl','http://www.ppl.cz/IEGate/IEGate.asmx?WSDL');
+  RegisterServiceAttribute('','TargetNamespace','PPLIEGate');
+  RegisterServiceAttribute('IEGate','Type','SOAP');
+  RegisterServiceAttribute('IEGate','Location','http://www.ppl.cz/IEGate/IEGate.asmx');
+  RegisterServiceAttribute('IEGate','remap_ImportPPLSprint','PPLIEGate/ImportPPLSprint');
+  RegisterServiceAttribute('IEGate','remap_GetZipCodes','PPLIEGate/GetZipCodes');
+  RegisterServiceAttribute('IEGate','remap_GetCities','PPLIEGate/GetCities');
+  RegisterServiceAttribute('IEGate','remap_GetPackagesInfo','PPLIEGate/GetPackagesInfo');
+  RegisterServiceAttribute('IEGate','remap_GetPackageToDelivery','PPLIEGate/GetPackageToDelivery');
+  RegisterServiceAttribute('IEGate','remap_GetPackageInfo','PPLIEGate/GetPackageInfo');
+  RegisterServiceAttribute('IEGate','remap_ImportOrderExt','PPLIEGate/ImportOrderExt');
+  RegisterServiceAttribute('IEGate','remap_ImportOrdersExt','PPLIEGate/ImportOrdersExt');
+  RegisterServiceAttribute('IEGate','remap_ImportPackageExt','PPLIEGate/ImportPackageExt');
+  RegisterServiceAttribute('IEGate','remap_ImportPackagesExt','PPLIEGate/ImportPackagesExt');
+  RegisterServiceAttribute('IEGate','remap_ImportPackages','PPLIEGate/ImportPackages');
+  RegisterServiceAttribute('IEGate','remap_ImportOrders','PPLIEGate/ImportOrders');
+  RegisterServiceAttribute('IEGate','remap_ImportWeighedPack','PPLIEGate/ImportWeighedPack');
+  RegisterServiceAttribute('IEGate','remap_ImportWeighedPackages','PPLIEGate/ImportWeighedPackages');
+  RegisterServiceAttribute('IEGate','remap_ImportPackagesHoffmann','PPLIEGate/ImportPackagesHoffmann');
+  RegisterServiceAttribute('IEGate','remap_ImportESYCOPack','PPLIEGate/ImportESYCOPack');
+  RegisterServiceAttribute('IEGate','remap_ImportESYCOPackages','PPLIEGate/ImportESYCOPackages');
+  RegisterServiceAttribute('IEGate','remap_ImportStatusDHL','PPLIEGate/ImportStatusDHL');
+  RegisterServiceAttribute('IEGate','remap_ImportStatusesDHL','PPLIEGate/ImportStatusesDHL');
+  RegisterServiceAttribute('IEGate','remap_ImportOrderCart','PPLIEGate/ImportOrderCart');
+  RegisterServiceAttribute('IEGate','remap_ImportOrdersCart','PPLIEGate/ImportOrdersCart');
+end.

libSys/plgBrowse.pas

@@ -0,0 +1,25 @@
+unit plgBrowse;
+
+interface
+
+uses
+  plgType;
+
+var
+  Cplg_SeznamVychozichNastaveniBrowse : array[TplgBrowse] of TplgVychoziNastaveniBrowse =
+    (
+     (SelfIdent : bZadny;
+     )
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgExtAkce.pas

@@ -0,0 +1,29 @@
+unit plgExtAkce;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceExtAkci : array[0..0] of TplgExtAkceDef =
+    (
+     // aby bylo mozno nemit zadnou externi akci,
+     // musi zustat prvni akce nedefinovana !!
+     (BrowseID   : 0)
+
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgExtAttr.pas

@@ -0,0 +1,29 @@
+unit plgExtAttr;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceExtAttr : array[0..0] of TplgExterniAtribut =
+    (
+     // aby bylo mozno nemit zadny externi atribut,
+     // musi zustat prvni akce nedefinovana !!
+     (JmenoTabulky    : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+

libSys/plgExtTrigger.pas

@@ -0,0 +1,27 @@
+unit plgExtTrigger;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceExtTrigger : array[0..0] of TplgExterniTrigger =
+    (
+     // aby bylo mozno nemit zadny externi trigger,
+     // musi zustat prvni trigger nedefinovan !!
+     (JmenoTabulky       : '')
+
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgFunkce.pas

@@ -0,0 +1,33 @@
+unit plgFunkce;
+
+interface
+
+uses
+  plgType;
+
+// !!! POZOR !!! ##############################################################
+// Funkce musi byt zadana tak, aby CREATE FUNCTION <Nazev> bylo na jednom radku:
+// napr. 'CREATE FUNCTION dbo.pf_MujPrefix_MujNazev'#13+
+// ############################################################################
+
+{ =========================================================================== }
+
+const
+  SeznamUzivatelskychFunkci : array[0..0] of TplgUzivatelskaFunkce =
+    (
+     // aby bylo mozno nemit zadnou uzivatelskou funkci :-)
+     // musi zustat prvni funkce definovana !!
+     (Text     : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgHlasky.pas

@@ -0,0 +1,28 @@
+unit plgHlasky;
+
+interface
+
+// [RK 10.10.2011] zapnuto vzdy vkuli prekladovemu portalu
+{$DEFINE EdHlasky}
+
+uses
+  plgType;
+
+// rozsah hlasek je W=5000000-5999999
+
+const
+  GplgHlasky : array[TplgTxt] of TplgHlaska =
+ (
+  {$I ..\lib\plgHlaskyJadro.INC}     // definice hlasek jadra
+  {$I ..\lib\plgHlaskyEx.INC}        // definice ostatnich hlasek
+ );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgQuery.pas

@@ -0,0 +1,34 @@
+{ *************************************************************************** }
+{                                                                             }
+{   Jadro pluginu 2                                      Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgQuery;
+
+interface
+
+uses
+  dxmdaset, DB;
+
+type
+  TplgQuery = class(TdxMemData)
+  public
+    // zmena viditelnosti - abych mohl shodit DataSet.Modified
+    procedure SetModified(Value: Boolean);
+  end;
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+procedure TplgQuery.SetModified(Value: Boolean);
+begin
+  inherited;
+end;
+
+{ ########################################################################### }
+
+end.

libSys/plgSoudky.pas

@@ -0,0 +1,24 @@
+unit plgSoudky;
+
+interface
+
+uses
+  plgType;
+
+const
+  Cplg_SeznamSoudku : array [TplgSoudek] of TplgSoudekDef =
+    ((SelfIdent: sdNeniVidet;
+      Jmeno    : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgSpravce.pas

@@ -0,0 +1,189 @@
+{ *************************************************************************** }
+{                                                                             }
+{   Jadro pluginu 2                                      Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgSpravce;
+
+interface
+
+uses
+ plgAkce, ddPlugin_TLB, Contnrs, Classes;
+                    
+type
+  TJedenHelios = class
+  private
+    FHelios: IHelios;
+    FAkce: TplgAkcePrehledu;
+  public
+    property Helios: IHelios read FHelios;
+    property Akce: TplgAkcePrehledu read FAkce;
+  end;
+
+  TSpravceHeliosu = class
+  private
+    FSeznam: TObjectList;
+    function NajdiHelios(Helios: IHelios): Integer;
+    function NajdiIdent(Helios: IHelios): Integer;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    // === pouze interni pouziti !!! =============================
+    procedure PridejHelios(Helios: IHelios);
+    procedure OdeberHelios(Helios: IHelios);
+    procedure NastavAkce(Helios: IHelios; Akce: TplgAkcePrehledu);
+    // ===========================================================
+
+    function VratVlastnika(Helios: IHelios): IHelios;
+    function VratAkcePrehledu(Helios: IHelios): TplgAkcePrehledu;
+  end;
+
+var
+  SpravceHeliosu: TSpravceHeliosu = nil;
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+constructor TSpravceHeliosu.Create;
+begin
+  inherited Create;
+  FSeznam := TObjectList.Create;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+destructor TSpravceHeliosu.Destroy;
+begin
+  FSeznam.Free;
+  inherited;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.NajdiHelios(Helios: IHelios): Integer;
+  var
+    II: Integer;
+begin
+  // jedeme odzadu - bude to rychlejsi
+  if Assigned(Helios) then
+    for II := FSeznam.Count-1 downto 0 do
+    begin
+      if TJedenHelios(FSeznam.Items[II]).FHelios = Helios then
+      begin
+        Result := II;
+        Exit;
+      end;
+    end;
+
+  Result := -1; // nenalezeno
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.NajdiIdent(Helios: IHelios): Integer;
+  var
+    II: Integer;
+begin
+  // jedeme odzadu - bude to rychlejsi
+  if Assigned(Helios) then
+    for II := FSeznam.Count-1 downto 0 do
+    begin
+      if TJedenHelios(FSeznam.Items[II]).FHelios.Ident = Helios.Ident then
+      begin
+        Result := II;
+        Exit;
+      end;
+    end;
+
+  Result := -1; // nenalezeno
+end;
+
+{ --------------------------------------------------------------------------- }
+
+procedure TSpravceHeliosu.PridejHelios(Helios: IHelios);
+  var
+    JH: TJedenHelios;
+begin
+  if not Assigned(Helios) then Exit;
+
+  JH := TJedenHelios.Create;
+  JH.FHelios := Helios;
+  FSeznam.Add(JH);
+end;
+
+{ --------------------------------------------------------------------------- }
+
+procedure TSpravceHeliosu.OdeberHelios(Helios: IHelios);
+  var
+    II: Integer;
+begin
+  II := NajdiHelios(Helios);
+  if II <> -1 then FSeznam.Delete(II);
+end;
+
+{ --------------------------------------------------------------------------- }
+
+procedure TSpravceHeliosu.NastavAkce(Helios: IHelios; Akce: TplgAkcePrehledu);
+  var
+    II: Integer;
+begin
+  II := NajdiHelios(Helios);
+  if II <> -1 then
+    TJedenHelios(FSeznam.Items[II]).FAkce := Akce;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.VratVlastnika(Helios: IHelios): IHelios;
+  var
+    II: Integer;
+    Vlastnik: IHelios;
+begin
+  if not Assigned(Helios) then
+    Result := nil
+  else
+    begin
+      Vlastnik := Helios.HeliosVlastnik;
+      II := NajdiIdent(Vlastnik);
+      if II <> -1 then
+        Result := TJedenHelios(FSeznam.Items[II]).FHelios
+      else
+        Result := Vlastnik;
+    end;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.VratAkcePrehledu(Helios: IHelios): TplgAkcePrehledu;
+  var
+    II: Integer;
+begin
+  II := NajdiIdent(Helios);
+  if II <> -1 then
+    Result := TJedenHelios(FSeznam.Items[II]).FAkce
+  else
+    Result := nil;
+end;
+
+{ ########################################################################### }
+
+initialization
+  SpravceHeliosu := TSpravceHeliosu.Create;
+
+{ ########################################################################### }
+
+end.
+//  LIB  | USER: rk | DT: 08.03.2005 13:29:04 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\
+// LOCAL | USER: rk | DT: 08.03.2005 13:54:41 | VER:          | TXT:  | PC: RK | FROM: P:\ | TO: D:\!\IQ1\Eurest
+//  LIB  | USER: rk | DT: 08.03.2005 14:13:52 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\
+// LOCAL | USER: rk | DT: 15.03.2005 09:35:54 | VER:          | TXT:  | PC: RK | FROM: P:\PlugLib | TO: D:\!\IQ1\Eurest
+//  LIB  | USER: rk | DT: 15.03.2005 10:05:23 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\PlugLib
+// LOCAL | USER: RK | DT: 17.02.2006 09:58:05 | VER:          | TXT:  | PC: RK-2K | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginEurest
+//  LIB  | USER: RK | DT: 17.02.2006 09:58:09 | VER: ?? LB ?? | TXT:  | PC: RK-2K | FROM: D:\!\IQ1\PluginEurest | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 01.08.2007 08:37:19 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
+//  LIB  | USER: RK | DT: 01.08.2007 08:52:07 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib

libSys/plgTable.pas

@@ -0,0 +1,23 @@
+unit plgTable;
+
+interface
+
+uses
+  plgType;
+
+var
+  Cplg_SeznamTabulek : array[TplgTabulka] of PplgTabulkaDef =
+    (nil                                   		// tZadna
+
+//last     
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgType.pas

@@ -0,0 +1,29 @@
+unit plgType;
+
+interface
+
+uses
+  System.Classes, Vcl.Forms;
+
+const
+  CVerzePluginu = Int64({$I ..\lib\plgVerze.INC});
+
+{$I ..\lib\plgTypeTabulka.INC}    // definice typu TplgTabulka
+{$I ..\lib\plgTypeSoudky.INC}     // definice typu TplgSoudek
+{$I ..\lib\plgTypeBrowse.INC}     // definice typu TplgBrowse
+{$I ..\lib\plgTypeTxtJadro.INC}   // definice "typu" TplgTxt - hlasky jadra
+{$I ..\lib\plgTypeTxtEx.INC}      // definice "typu" TplgTxt - ostatni hlasky
+{$I ..\lib\plgTypeJadro.INC}      // zakladni typy a konstanty jadra 1
+{$I ..\lib\plgTypeZbytek.INC}     // vsechny ostatni typy a konstanty
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+
+//  LIB  | USER: rk | DT: 09.02.2005 09:09:48 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\

libSys/plgUProc.pas

@@ -0,0 +1,33 @@
+unit plgUProc;
+
+interface
+
+uses                                   
+  plgType;
+
+// !!! POZOR !!! ##############################################################
+// Ulozenka musi byt zadana tak, aby CREATE PROC <Nazev> bylo na jednom radku:
+// napr. 'CREATE PROCEDURE dbo.pp_MujPrefix_MujNazev'#13+
+// ############################################################################
+
+{ =========================================================================== }
+
+const
+  SeznamUlozenychProcedur : array[0..0] of TplgUlozenaProcedura =
+    (
+     // aby bylo mozno nemit zadnou ulozenou proceduru :-)
+     // musi zustat prvni procedura definovana !!
+     (Text     : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgUta.pas

@@ -0,0 +1,181 @@
+{ *************************************************************************** }
+{                                                                             }
+{   Jadro pluginu 2                                      Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgUta;
+
+interface
+
+uses
+  plgType;
+
+const
+  plg_uta_SystemoveCislo   = plg_SystemoveCislo;
+  plg_uta_Autor            = 'Autor';
+  plg_uta_DatPorizeni      = 'DatPorizeni';
+  plg_uta_Zmenil           = plg_Zmenil;
+  plg_uta_DatZmeny         = plg_DatZmeny;
+  plg_uta_BlokovaniEditoru = plg_BlokovaniEditoru;
+  plg_uta_GUID             = 'GUID';
+  plg_uta_Mena             = 'Mena';
+  plg_uta_TextChyby        = 'TextChyby';
+  plg_uta_ImpSoubor        = 'ImpSoubor';
+  plg_uta_SkupZbo          = 'SkupZbo';
+  plg_uta_RegCis           = 'RegCis';
+
+  Cplg_DisplaySirkaDatum = 20; // [RK 02.07.2012] 12 -> 20
+
+  { +++++++++++++++++++++++++++ }
+
+  Cplg_UzivatelskeAtributy : array [TplgUzivatelskyTypAtributu] of TplgUzivatelskeAtributyDef =
+    ((SelfIdent: plg_utaZadny)
+
+    ,(SelfIdent: plg_utaSystemoveCislo;
+      A:(JmenoSys        : plg_uta_SystemoveCislo;
+         JmenoVerejneTxt : plxJadroSystemoveCislo;
+         JmenoVerejneZkrTxt : plxJadroSysCisZkr;
+         Typ             : taIdentity;
+         PK_UQ           : puPrimaryKey;
+         Vyzadovany      : vTrue;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaSystemoveCislo64;
+      A:(JmenoSys        : plg_uta_SystemoveCislo;
+         JmenoVerejneTxt : plxJadroSystemoveCislo;
+         JmenoVerejneZkrTxt : plxJadroSysCisZkr;
+         Typ             : taIdentity64;
+         PK_UQ           : puPrimaryKey;
+         Vyzadovany      : vTrue;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaAutor;
+      A:(JmenoSys        : plg_uta_Autor;
+         JmenoVerejneTxt : plxJadroAutor;
+         Typ             : taNVarChar;
+         Delka           : 128;
+         ServerDefault   : Cplg_LoginName;
+         Verejny         : vTrue;
+         SirkaSloupce    : 15)
+     )
+
+    ,(SelfIdent: plg_utaDatPorizeni;
+      A:(JmenoSys        : plg_uta_DatPorizeni;
+         JmenoVerejneTxt : plxJadroDatumPorizeni;
+         Typ             : taDateTime;
+         ServerDefault   : Cplg_GetDate;
+         Verejny         : vTrue;
+         SirkaSloupce    : Cplg_DisplaySirkaDatum)
+     )
+
+    ,(SelfIdent: plg_utaZmenil;
+      A:(JmenoSys        : plg_uta_Zmenil;
+         JmenoVerejneTxt : plxJadroZmenil;
+         Typ             : taNVarChar;
+         Delka           : 128;
+         NULL            : nNULL;
+         Verejny         : vTrue;
+         SirkaSloupce    : 20)
+     )
+
+    ,(SelfIdent: plg_utaDatZmeny;
+      A:(JmenoSys        : plg_uta_DatZmeny;
+         JmenoVerejneTxt : plxJadroDatumZmeny;
+         Typ             : taDateTime;
+         NULL            : nNULL;
+         Verejny         : vTrue;
+         SirkaSloupce    : Cplg_DisplaySirkaDatum)
+     )
+
+    ,(SelfIdent: plg_utaBlokovaniEditoru;
+      A:(JmenoSys        : plg_uta_BlokovaniEditoru;
+         JmenoVerejneTxt : plxJadroBlokovaniEditoru;
+         Typ             : taSmallInt;
+         NULL            : nNULL;
+         Vyzadovany      : vTrue;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaGUID;
+      A:(JmenoSys        : plg_uta_GUID;
+         JmenoVerejne    : 'GUID';
+         Typ             : taBinary;
+         Delka           : 16;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaSazbaDPH;
+      A:(Typ             : taNumeric_5_2;
+         NULL            : nNULL;
+         ForeignKey      : 'TabDPH(Sazba)';
+         Verejny         : vTrue)
+     )
+
+    ,(SelfIdent: plg_utaCena;
+      A:(Typ             : taNumeric_19_6;
+         ServerDefault   : '0.0';
+         Verejny         : vTrue;
+         MaskaDisplay    : DisplayMaskPenize;
+         Sumovat         : True)
+     )
+
+    ,(SelfIdent: plg_utaMena;
+      A:(JmenoSys        : plg_uta_Mena;
+         JmenoVerejne    : 'Mìna';
+         Typ             : taNVarChar;
+         Delka           : 3;
+         ForeignKey      : 'TabKodMen(Kod)';
+         Verejny         : vTrue)
+     )
+
+    ,(SelfIdent: plg_utaTextChyby;
+      A:(JmenoSys        : plg_uta_TextChyby;
+         JmenoVerejne    : 'Text chyby';
+         Typ             : taNVarChar;
+         Delka           : 255;
+         ServerDefault   : '''''';
+         Verejny         : vTrue;
+         SirkaSloupce    : 30)
+     )
+
+    ,(SelfIdent: plg_utaImpSoubor;
+      A:(JmenoSys        : plg_uta_ImpSoubor;
+         JmenoVerejne    : 'Importní soubor';
+         Typ             : taNVarChar;
+         Delka           : 255;
+         ServerDefault   : '''''';
+         Verejny         : vTrue;
+         SirkaSloupce    : 30)
+     )
+
+    ,(SelfIdent: plg_utaSkupZbo;
+      A:(JmenoSys        : plg_uta_SkupZbo;
+         Typ             : taNVarChar;
+         Delka           : 3;
+         Verejny         : vTrue;
+         HeliosAttr      : 'TabKmenZbozi.SkupZbo')
+     )
+
+    ,(SelfIdent: plg_utaRegCis;                                                
+      A:(JmenoSys        : plg_uta_RegCis;
+         Typ             : taNVarChar;
+         Delka           : 30;
+         Verejny         : vTrue;
+         HeliosAttr      : 'TabKmenZbozi.RegCis')
+     )
+
+     {$I ..\lib\plgUtaDef.inc}
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgVazby.pas

@@ -0,0 +1,28 @@
+unit plgVazby;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceVztahu : array[0..0] of TplgVztahDef =
+    (
+     // aby bylo mozno nemit zadnou vazbu,
+     // musi zustat prvni vazba nedefinovana !!
+     (GUIDVazby   : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgZmeny.pas

@@ -0,0 +1,60 @@
+{ *************************************************************************** }
+{                                                                             }
+{! SKRIPTY BY MĚLY BÝT PSÁNY TAK, ABY BYLY SPUSTITELNÉ VÍCEKRÁT - TZN. MĚLY  !}
+{! BY OBSAHOVAT RŮZNÉ TESTY EXISTENCE - NAPŘ.:                               !}
+{                                                                             }
+{ -existuje tabulka TabXXX ?                                                  }
+{   IF OBJECT_ID('TabXXX','U')IS NOT NULL ...                                 }
+{                                                                             }
+{ -existuje sloupec ABC v tabulce TabXXX ?                                    }
+{   IF COLUMNPROPERTY(OBJECT_ID('TabXXX','U'),'ABC','AllowsNull')IS NOT NULL ... }
+{                                                                             }
+{ -existuje default DF__TabXXX__ABC na sloupci ABC v tabulce TabXXX ?         }
+{   IF OBJECT_ID('DF__TabXXX__ABC','D')IS NOT NULL ...                        }
+{                                                                             }
+{ kde vezmu 2. parametr systémové funkce OBJECT_ID() - je to sysobjects.xtype }
+{ - viz BOL                                                                   }
+{                                                                             }
+{!!! POZOR - POUŽITÍ RETURN VE ZMĚNOVÝCH SKRIPTECH V plgZmeny.pas NENÍ BEZTRESTNÉ !!!}
+{    -protože změnové skripty jsou obaleny knihovanmi BEGIN TRAN..COMMIT, tak }
+{     by případný RETURN ponechal transakci neuzavřenou ! Proto bych měl      }
+{     použít tuto konstrukci:                                                 }
+{         IF @@TRANCOUNT>0 ROLLBACK  /* nebo COMMIT dle situace */            }
+{         RETURN                                                              }
+{    -pokud je kód spouštěn přes EXEC() nebo sp_executesql, tak tam naopak    }
+{     ROLLBACK (COMMIT) být NESMÍ, protože RETURN ukončuje jen daný EXEC()    }
+{    -úplně nejlepší je se RETURNu ve změnových skriptech úplně vyhnout       }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgZmeny;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GZmenoveSkripty : array[0..0] of TplgZmenovySkript =
+    (
+     // aby bylo mozno nemit zadny zmenovy skript,
+     // musi zustat prvni skript nedefinovan !!
+     (PlatiOd : $010020050210;
+      Skript  : '';
+     )
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+

plgExtController.pas

@@ -0,0 +1,31 @@
+unit plgExtController;
+
+interface
+
+uses
+  plgType; //, pec_ObjednavkaDopravy, pec_DosleObjednavky;
+
+{ =========================================================================== }
+
+const
+  GDefiniceControlleru: array[0..0] of TplgEditorControllerDef =
+    (
+     // aby bylo mozno nemit zadnou definici controlleru,
+     // musi zustat prvni prvek nedefinovan !!
+     (FormIdent   : '')
+
+//     ,(FormIdent: 'TedfrmUTEditorhvw_Bonum_ObjednavkyDopravy';
+//       ControllerClass: TplgBonumExtReseniGornicky3DObjednavkaDopravyController)
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

plgKonfig.pas

@@ -0,0 +1,109 @@
+{ *************************************************************************** }
+{                                                                             }
+{   PluginExample                                        Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgKonfig;
+
+interface
+
+uses
+  plgKonfigBase, ddPlugin_TLB;
+
+// ============================================================================
+// !!! Konfigurace zavisla na danem pluginu, je treba ji nastavit !!!
+// ============================================================================
+
+type
+  TPluginKonfig = class(TPluginKonfigBase)
+  protected
+    procedure NastaveniKonfigu; override;
+    function GetPluginVerejneJmeno: String; override;
+    function GetPluginTechnickyPopis: String; override;
+    function GetPluginHistorieVerzi: String; override;
+  public
+    function PartnerIdentification: string; override;
+    function PluginJazykoveDLL (AJazyk: Integer): string; override;
+    procedure VlastniInicializacePluginu (Helios: IHelios); override;
+  end;
+
+{ =========================================================================== }
+
+implementation
+
+uses
+  SysUtils, ComObj, plgType, plgMain;
+
+{ ########################################################################### }
+
+procedure TPluginKonfig.NastaveniKonfigu;
+begin
+  // !! POZOR !! Tento GUID je pouze pro PlgBonum_ExtReseniGornicky3D !!
+  FPluginClass_ID := StringToGUID('{EA0150F1-EA07-45D2-9109-E7349B03AC1B}');
+
+  FPluginSystemoveJmeno := 'plgLOVATO';
+  FPluginClassName := 'runMe';
+  FPluginMinimalniPozadovanaVerzeHeliosu := Cplg_PrvniUnicodeVerzeHeliosu;
+  FPluginCopyrightVyrobce := Format('© 2012-%d NTS/HD Consulting s.r.o. Strakonice', [Cplg_AktualniRok]);
+  FPluginIdentifikator := 'Lovato';
+
+  FPluginMinimalniPozadovanaVerzeSQLServeru:= Cplg_SQLVersion_2022_CU22;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.PartnerIdentification: string;
+begin
+  // zde zadejte partnerskou identifikaci
+  Result := '';
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginVerejneJmeno: String;
+begin
+  Result := plgCtiOznam('Plugin Externí øešení pro LOVATO Písek');
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginTechnickyPopis: String;
+begin
+  Result := 'Plugin pro externí øešení';
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginHistorieVerzi: String;
+begin
+  Result := 'Historie verzí';
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.PluginJazykoveDLL (AJazyk: Integer): string;
+begin
+  case AJazyk of
+    Cplg_jAnglictina,
+    Cplg_jExtAnglictina: Result := 'plgLovatoLng1033.DLL';
+    else                 Result := '';
+  end;
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+procedure TPluginKonfig.VlastniInicializacePluginu (Helios: IHelios);
+begin
+  // - tato procedura se vola vzdy pri spusteni externi akce !!
+  // - pokud je treba udelat nejakou inicializaci pouze jednou, je treba
+  //   pouzit promennou, ktera bude signalizovat prvni a dalsi volani
+end;
+
+{ ########################################################################### }
+
+end.

plgLOVATO.dpr

@@ -0,0 +1,61 @@
+library plgLOVATO;
+
+{$WEAKLINKRTTI ON}
+{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
+{$IFOPT D-}
+ {$SetPEFlags $AE0E}
+ {$SetPEOptFlags $AE0E}
+{$ELSE}
+ {$SetPEFlags $AC02}
+ {$SetPEOptFlags $AC02}
+{$ENDIF}
+
+// IMAGE_FILE_RELOCS_STRIPPED                     = $0001
+// IMAGE_FILE_EXECUTABLE_IMAGE                    = $0002 *
+// IMAGE_FILE_LINE_NUMS_STRIPPED                  = $0004 *
+// IMAGE_FILE_LOCAL_SYMS_STRIPPED                 = $0008 *
+// IMAGE_FILE_AGGRESIVE_WS_TRIM                   = $0010
+// IMAGE_FILE_LARGE_ADDRESS_AWARE                 = $0020
+// IMAGE_FILE_BYTES_REVERSED_LO                   = $0080
+// IMAGE_FILE_32BIT_MACHINE                       = $0100
+// IMAGE_FILE_DEBUG_STRIPPED                      = $0200
+// IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP             = $0400 *
+// IMAGE_FILE_NET_RUN_FROM_SWAP                   = $0800 *
+// IMAGE_FILE_SYSTEM                              = $1000
+// IMAGE_FILE_DLL                                 = $2000 *
+// IMAGE_FILE_UP_SYSTEM_ONLY                      = $4000
+// IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000 *
+
+uses
+  System.Win.ComServ,
+  ddPlugin_TLB,
+  ComObjekt in 'ComObjekt.pas' {frmUnit1 in 'frmUnit1.pas' {formImportEP},
+  frmUnit5 in 'frmUnit5.pas' {formKartyZbozi},
+  frmBaliciListy in 'frmBaliciListy.pas' {formBaliciListy},
+  frmUnit9 in 'frmUnit9.pas' {frmVydejDPrace},
+  frmOdvedPrikaz in 'frmOdvedPrikaz.pas' {formOdvedeniPrikazu},
+  frmUnit11 in 'frmUnit11.pas' {formStSklHrZmen},
+  frmUnit12 in 'frmUnit12.pas' {frmRozdelMat},
+  frmUnit13 in 'frmUnit13.pas' {formPrevPrij},
+  frmDemontaz in 'frmDemontaz.pas' {formDemontaz},
+  frmReklamaceMat in 'frmReklamaceMat.pas' {formReklamaceMat},
+  frmKanbanBox in 'frmKanbanBox.pas' {formKanbanBox},
+  frmUnit3 in 'frmUnit3.pas',
+  frmKanbanObj in 'frmKanbanObj.pas' {formKanbanObj},
+  Globalni in 'Globalni.pas';
+
+//  frmUnit4 in 'frmUnit4.pas' {formDodavky};
+
+//  frmUnit1 in 'frmUnit1.pas' {formImportEP},
+//  frmMain in 'frmMain.pas' {formMain}
+
+exports
+  DllGetClassObject,
+  DllCanUnloadNow,
+  DllRegisterServer,
+  DllUnregisterServer;
+
+{$R *.RES}
+
+BEGIN
+END.

plgLOVATO.dproj

@@ -0,0 +1,244 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{CFA8C8BC-D9C3-4491-8C35-1B1688ACE999}</ProjectGuid>
+        <MainSource>plgLOVATO.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Release</Config>
+        <ProjectName Condition="'$(ProjectName)'==''">plgLOVATO</ProjectName>
+        <TargetedPlatforms>3</TargetedPlatforms>
+        <AppType>Library</AppType>
+        <FrameworkType>None</FrameworkType>
+        <ProjectVersion>20.3</ProjectVersion>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
+        <Base_Android>true</Base_Android>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
+        <Base_Android64>true</Base_Android64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
+        <Cfg_2_Win64>true</Cfg_2_Win64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_E>false</DCC_E>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_ImageBase>00400000</DCC_ImageBase>
+        <DCC_UnitSearchPath>.\lib;.\libSys;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <GenDll>true</GenDll>
+        <SanitizedProjectName>plgLOVATO</SanitizedProjectName>
+        <VerInfo_Locale>1029</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=NTS computer a.s. Strakonice / HD Consulting Strakonice;FileDescription=Helios Orange plugin - LOVATO Electric s.r.o. Pisek;FileVersion=3.0.2026.407;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=plgLOVATO.dll;ProductName=;ProductVersion=1.0.0.0;Comments=XE12.3.1;CFBundleName=</VerInfo_Keys>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Winapi;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_MajorVer>3</VerInfo_MajorVer>
+        <VerInfo_Release>2026</VerInfo_Release>
+        <VerInfo_Build>407</VerInfo_Build>
+        <VerInfo_DLL>true</VerInfo_DLL>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Android)'!=''">
+        <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35</VerInfo_Keys>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
+        <EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Android64)'!=''">
+        <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35</VerInfo_Keys>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
+        <EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Debugger_HostApplication>D:\Data\Helios\HeliosMain.exe</Debugger_HostApplication>
+        <Debugger_CWD>D:\Data\Helios</Debugger_CWD>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Debugger_HostApplication>D:\Data\Helios\win64\HeliosMain.exe</Debugger_HostApplication>
+        <Debugger_CWD>D:\Data\Helios</Debugger_CWD>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <VerInfo_Keys>CompanyName=NTS computer a.s. Strakonice / HD Consulting Strakonice;FileDescription=Helios Orange plugin - LOVATO Electric s.r.o. Pisek;FileVersion=3.0.2026.407;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=plgLOVATO.dll;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=XE12.3.1</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>(None)</Manifest_File>
+        <AppDPIAwarenessMode>none</AppDPIAwarenessMode>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_RangeChecking>true</DCC_RangeChecking>
+        <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <VerInfo_Debug>true</VerInfo_Debug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <Manifest_File>(None)</Manifest_File>
+        <AppDPIAwarenessMode>none</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=3.0.2026.407;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <Manifest_File>(None)</Manifest_File>
+        <AppDPIAwarenessMode>none</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="ComObjekt.pas">
+            <Form>frmUnit1 in &apos;frmUnit1.pas&apos; {formImportEP</Form>
+        </DCCReference>
+        <DCCReference Include="frmUnit5.pas">
+            <Form>formKartyZbozi</Form>
+        </DCCReference>
+        <DCCReference Include="frmBaliciListy.pas">
+            <Form>formBaliciListy</Form>
+        </DCCReference>
+        <DCCReference Include="frmUnit9.pas">
+            <Form>frmVydejDPrace</Form>
+        </DCCReference>
+        <DCCReference Include="frmOdvedPrikaz.pas">
+            <Form>formOdvedeniPrikazu</Form>
+        </DCCReference>
+        <DCCReference Include="frmUnit11.pas">
+            <Form>formStSklHrZmen</Form>
+        </DCCReference>
+        <DCCReference Include="frmUnit12.pas">
+            <Form>frmRozdelMat</Form>
+        </DCCReference>
+        <DCCReference Include="frmUnit13.pas">
+            <Form>formPrevPrij</Form>
+        </DCCReference>
+        <DCCReference Include="frmDemontaz.pas">
+            <Form>formDemontaz</Form>
+        </DCCReference>
+        <DCCReference Include="frmReklamaceMat.pas">
+            <Form>formReklamaceMat</Form>
+        </DCCReference>
+        <DCCReference Include="frmKanbanBox.pas">
+            <Form>formKanbanBox</Form>
+        </DCCReference>
+        <DCCReference Include="frmUnit3.pas"/>
+        <DCCReference Include="frmKanbanObj.pas">
+            <Form>formKanbanObj</Form>
+        </DCCReference>
+        <DCCReference Include="Globalni.pas"/>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">plgLOVATO.dpr</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\SVGIconImageList290.bpl">Ethea SVGIconImageList VCL components</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\EssentialsDR290.bpl">TurboPack Essentials Delphi Runtime package</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\PngComponentsD290.bpl">Png Components for Delphi</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dmvcframeworkRT120.bpl">DMVCFramework - CopyRight (2010-2025) Daniele Teti and the DMVCFramework Team</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\ColorButton.bpl">(untitled)</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\VirtualTreesDD290.bpl">File C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\VirtualTreesDD290.bpl not found</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\Vyvoj12_0.bpl">Helios Orange Components</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\LockBox3DR290.bpl">TurboPack LockBox 3 Delphi runtime package</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dclstd280.bpl">Embarcadero Standard Components</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\OrpheusDBDD290.bpl">TurboPack Orpheus Delphi datataware designtime package</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\LockBox3VCLDD290.bpl">TurboPack LockBox 3 VCL designtime package</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\LockBoxDD290.bpl">TurboPack LockBox Delphi designtime package</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclIconFontsImageList290.bpl">Ethea IconFontsImageList VCL components</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclIconFontsImageListFMX290.bpl">Ethea IconFontsImageList FMX components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLVCLTeeGrid29.bpl">File D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLVCLTeeGrid29.bpl not found</Excluded_Packages>
+                    <Excluded_Packages Name="D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLFMXTeeGrid29.bpl">File D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLFMXTeeGrid29.bpl not found</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Android">False</Platform>
+                <Platform value="Android64">False</Platform>
+                <Platform value="Linux64">False</Platform>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">True</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>