unit frmOOPPohyb;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, ddPlugin_TLB,
  Vcl.Mask, RzEdit, RzBtnEdt, Vcl.ComCtrls, RzDTP, Vcl.NumberBox;

const
  tblOOPProfese = '[dbo].[_hdc_TabOOP_Profese]';
  tblOOPPolozky = '[dbo].[_hdc_TabOOP_Polozky]';
  tblOOPPotrebnost = '[dbo].[_hdc_TabOOP_Potrebnost]';
  tblOOPPohyby = '[dbo].[_hdc_TabOOP_Pohyby]';
  tblOOPDuvod = '[dbo].[_hdc_TabOOP_Duvod]';

type
  TformOOPPohyb = class(TForm)
    edtOsCislo: TRzButtonEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edtPrijmJm: TRzButtonEdit;
    Label2: TLabel;
    Label3: TLabel;
    edtProfese: TRzButtonEdit;
    Label4: TLabel;
    edtStredisko: TRzButtonEdit;
    edtStrediskoText: TRzButtonEdit;
    edtStrediskoOld: TEdit;
    edtDatum: TRzDateTimePicker;
    Label5: TLabel;
    Label6: TLabel;
    edtPolozka: TRzButtonEdit;
    edtPolozkaText: TRzButtonEdit;
    btnOK: TButton;
    btnStorno: TButton;
    edtMnoz: TNumberBox;
    Label7: TLabel;
    memoPozn: TMemo;
    Label8: TLabel;
    procedure edtOsCisloButtonClick(Sender: TObject);
    procedure edtPrijmJmButtonClick(Sender: TObject);
    procedure edtStrediskoButtonClick(Sender: TObject);
    procedure edtProfeseButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtOsCisloExit(Sender: TObject);
    procedure btnStornoClick(Sender: TObject);
    procedure edtPolozkaButtonClick(Sender: TObject);
    procedure edtPolozkaExit(Sender: TObject);
    procedure edtPolozkaEnter(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure edtOsCisloKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPolozkaKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPrijmJmKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
   private
    function NactiUdajeZamestnance(cisZam: integer): boolean;
    function MamNarokNaPolozku(var outMsg: string): boolean;
    procedure DotazNaUkonceni;
   public
    Helios: IHelios;
    jeTest: boolean;
  end;

var
  formOOPPohyb: TformOOPPohyb;
  bidOOPProfese, bidOOPPolozky: integer;
  outMsg: string;
  cisZam, idZam, idZamUser: integer;
  stredisko, strediskoUser, profese, polozka, polozkaNum, stredOld: string;
  idProf, idPolozka: integer;
  oVar1, oVar2: OleVariant;
  infoUkazano, superUserOOP: boolean;


implementation
uses System.StrUtils, System.DateUtils, System.UITypes,
     helUtils;
{$R *.dfm}



 procedure TaskDlgOK (titulek, nadpis, textX: string; ikona: byte);
  begin
   with TTaskDialog.Create(nil) do
    begin
     try
       Caption := titulek;
       Title := nadpis;
       Text := textX;
       MainIcon := ikona;
       DefaultButton := tcbOK;
       CommonButtons := [tcbOk];
       Execute;
      finally
       Free;
     end;
    end;
  end;




 function TaskDlgYesNo (titulek, nadpis, textX: string; ikona: byte; defBtn: TTaskDialogCommonButton): System.UITypes.TModalResult;
  begin
   with TTaskDialog.Create(nil) do
    begin
     try
       Caption := titulek;
       Title := nadpis;
       Text := textX;
       MainIcon := ikona;
       DefaultButton := defBtn;
       CommonButtons := [tcbYes, tcbNo];
       Execute;
       result := ModalResult;
      finally
       Free;
     end;
    end;
  end;




 procedure TformOOPPohyb.DotazNaUkonceni;
  begin
   if ((TaskDlgYesNo('', 'Chcete ukončit zadávání ?', '(data nebudou uložena)', tdiInformation, tcbNo))=mrYes) then
    Close;
  end;




 function TformOOPPohyb.NactiUdajeZamestnance (cisZam: Integer): Boolean;
  begin
   result := false;
   if (cisZam>0) then
     begin
      if (helUtils.sqlExistsTestGeneral(Helios, 'SELECT 1 FROM ' + tblCisZam + ' WHERE Cislo=' + cisZam.ToString)) then
       begin
        idZam := helUtils.getHeliosIntVal(Helios, 0, 'SELECT ID FROM ' + tblCisZam + ' WHERE Cislo=' + cisZam.ToString);

        if (idZam>0) and (helUtils.sqlExistsTestGeneral(Helios, 'SELECT 1 FROM (VALUES(1)) t1(col1) WHERE COL_LENGTH(N' + tblCisZamE.QuotedString + ', N''_OOP_Profese'') IS NOT NULL')) then
         begin
          idProf := helUtils.getHeliosIntVal(Helios, 0, 'SELECT ISNULL(_OOP_Profese, 0) FROM ' + tblCisZamE + ' WHERE ID=' + idZam.ToString);
          if (idProf>0) then
            begin
             edtProfese.Text := helUtils.getHeliosStrVal(Helios, '', 'SELECT Profese FROM ' + tblOOPProfese + ' WHERE ID=' + idProf.ToString);
             self.ActiveControl := edtDatum;
            end
           else
            edtProfese.Text := '';
         end;
        edtPrijmJm.Text := helUtils.getHeliosStrVal (Helios, '', 'SELECT PrijmeniJmeno FROM ' + tblCisZam + ' WHERE Cislo=' + cisZam.ToString);
        edtStredisko.Text := helUtils.getHeliosStrVal (Helios, '', 'SELECT Stredisko FROM ' + tblCisZam + ' WHERE Cislo=' + cisZam.ToString);
        edtStrediskoText.Text := helUtils.getHeliosStrVal (Helios, '', 'SELECT Nazev FROM ' + tblStrom + ' WHERE Cislo=N' + edtStredisko.Text.QuotedString);
        stredOld := helUtils.getHeliosStrVal (Helios, '', 'SELECT TOP(1) StrediskoOld FROM ' + tblOOPProfese + ' WHERE Stredisko=N' + edtStredisko.Text.QuotedString);
        edtStrediskoOld.Text := stredOld;
        result := true;
       end
      end
    else
     begin
      TaskDlgOK ('POZOR', 'CHYBA', 'Uvedený zaměstnanec nebyl nalezen nebo nemáte právo jej vybrat.', tdiError);
      edtOsCislo.Text := '';
      edtPrijmJm.Text := '';
      cisZam := 0;
      idZam := 0;
     end;
  end;




 procedure TformOOPPohyb.btnOKClick (Sender: TObject);
  var lSQL: string;
  begin
   if (cisZam>0) and (idPolozka>0) then
     begin
      lSQL := 'INSERT  ' + tblOOPPohyby + ' (IDPolozky, Datum, CisloZam, Mnozstvi, Poznamka, IDProfese) SELECT ' + idPolozka.ToString + ', CONVERT(date, N'
            + edtDatum.DateTime.Format('').QuotedString + ', 104), ' + cisZam.ToString + ', ' + edtMnoz.Value.ToString + ', N' + IfThen(memoPozn.Text='', 'ULL', memoPozn.Text.QuotedString)
            + ', ' + IfThen(idProf=0, 'NULL', idProf.ToString);
      Helios.ExecSQL (lSQL);
      Close;
     end
    else
     begin
      TaskDlgOK ('POZOR', 'CHYBA', 'Nebyly zadány všechny potřebné informace.', tdiWarning);
      if (idPolozka=0) then
       self.ActiveControl := edtPolozka;
      if (cisZam=0) then
       self.ActiveControl := edtOsCislo;
     end;
  end;




 procedure TformOOPPohyb.btnStornoClick (Sender: TObject);
  begin
   Close;
  end;




 procedure TformOOPPohyb.edtOsCisloButtonClick (Sender: TObject);
  var c: integer;
      podm: string;
  begin
   podm := IfThen(superUserOOP, '', 'TabCisZam.Stredisko LIKE N' + (strediskoUser + '%').QuotedString);
   podm := podm + IfThen(podm<>'', ' AND ', '') + 'TabCisZam.ID IN (SELECT ZamestnanecID FROM ' + tblZamMzd + ' WHERE StavES=0 AND IdObdobi=(SELECT ID FROM ' + tblMzdObd + ' WHERE Rok='
         + YearOf(Now).ToString + ' AND Mesic=' + MonthOf(Now).ToString + ') AND ISNULL(DatumUkonceniPP, N''20991231'')>GETDATE() )';
   if (Helios.Prenos(bidCisZam, 'TabCisZam.Cislo', oVar1, podm, 'Zaměstnanec', true)) then
    begin
     cisZam := oVar1;
     edtOsCislo.Text := cisZam.ToString;
     if (edtOsCislo.Text<>'') then
       begin
        if not(TryStrToInt(edtOsCislo.Text, c)) then
         c := 0;
        cisZam := c;
        if (NactiUdajeZamestnance(cisZam)) then
         self.ActiveControl := edtProfese;
       end
      else
       cisZam := 0;
    end;

   if (edtOsCislo.Modified) then
    begin
     idPolozka := 0;
     edtPolozka.Text := '';
     edtPolozkaText.Text := '';
    end;
  end;




 procedure TformOOPPohyb.edtOsCisloExit (Sender: TObject);
  var lSQL: string;
      c: integer;
      nulujZam: boolean;
  begin
   nulujZam := true;
   edtOsCislo.Text := edtOsCislo.Text.Trim;
   if (edtOsCislo.Text<>'') then
     begin
      nulujZam := false;
      if not(TryStrToInt(edtOsCislo.Text, c)) then
       c := 0;
      cisZam := c;
      idZam := helUtils.getHeliosIntVal (Helios, 0, 'SELECT ID FROM ' + tblCisZam + ' WHERE Cislo=' + cisZam.ToString);

      if not(superUserOOP) then
       if not(helUtils.sqlExistsTestGeneral(Helios, 'SELECT 1 FROM ' + tblCisZam + ' WHERE Cislo=' + cisZam.ToString + ' AND Stredisko LIKE N' + (strediskoUser + '%').QuotedString)) then
        nulujZam := true;

      lSQL := 'SELECT 1 FROM ' + tblZamMzd + ' WHERE ZamestnanecId=' + idZam.ToString + ' AND IdObdobi=(SELECT ID FROM ' + tblMzdObd + ' WHERE Rok=' + YearOf(Now).ToString
            + ' AND Mesic=' + MonthOf(Now).ToString + ') AND StavES=0 AND ISNULL(DatumUkonceniPP, N''20991231'')>GETDATE()';
      if not(helUtils.sqlExistsTestGeneral(Helios, lSQL)) then
       nulujZam := true;

      if (nulujZam) then
       begin
        cisZam := 0;
        idZam := 0;
        edtOsCislo.Text := '';
        edtPrijmJm.Text := '';
       end;

      if (NactiUdajeZamestnance(cisZam)) then
       self.ActiveControl := edtProfese;
     end;

   if (edtOsCislo.Modified) then
    begin
     idPolozka := 0;
     edtPolozka.Text := '';
     edtPolozkaText.Text := '';
    end;

   if (nulujZam) then
    begin
     cisZam := 0;
     idZam := 0;
     edtOsCislo.Text := '';
     edtPrijmJm.Text := '';
    end;
  end;





 procedure TformOOPPohyb.edtPrijmJmKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
   if (Key=VK_ESCAPE) then
    DotazNaUkonceni;
  end;


 procedure TformOOPPohyb.edtPolozkaKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
   if (Key=VK_ESCAPE) then
    DotazNaUkonceni;
  end;


 procedure TformOOPPohyb.edtOsCisloKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
   if (Key=VK_ESCAPE) then
    DotazNaUkonceni;
  end;




 function TformOOPPohyb.MamNarokNaPolozku (var outMsg: string): Boolean;
  var lSQL, msg: string;
      poslVyd: TDateTime;
      duvod, zivotnostTxt: string;
      b: boolean;
      rozdilDnu, zivotnostDnu: integer;
  begin
   result := false;
   outMsg := '';

   stredisko := edtStredisko.Text;
   stredOld := edtStrediskoOld.Text;


   if (idPolozka=0) then
     outMsg := 'Nelze identifikovat ID položky'
    else
     if (cisZam=0) then
       outMsg := 'Není identifikován zaměstnanec'
      else
       begin
        lSQL := 'SELECT TOP(1) Datum FROM ' + tblOOPPohyby + ' WHERE IDPolozky=' + idPolozka.ToString + ' AND CisloZam=' + cisZam.ToString + ' ORDER BY Datum DESC';
        poslVyd := helUtils.getHeliosDateTimeVal (Helios, 0, lSQL); // default 31.12.1899 = 0

        lSQL := 'SELECT 1 FROM ' + tblOOPPotrebnost + ' WHERE IDPolozky=' + idPolozka.ToString + ' AND IDProfese=' + idProf.ToString + ' AND Stredisko=N' + stredisko.QuotedString;
        if (helUtils.sqlExistsTestGeneral(Helios, lSQL)) then
          begin
           lSQL := 'SELECT d.Kod FROM ' + tblOOPPotrebnost + ' p INNER JOIN ' + tblOOPDuvod + ' d ON (d.ID=p.IDDuvod) WHERE p.IDPolozky=' + idPolozka.ToString
                 + ' AND p.IDProfese=' + idProf.ToString + ' AND p.Stredisko=N' + stredisko.QuotedString;
           duvod := helUtils.getHeliosStrVal(Helios, '', lSQL);
           if (duvod='1') then
             begin
              outMsg := 'Důvod výměny - IHNED';
              result := true;
             end
            else
             if (duvod='Z') and (1=0) then
               begin
                outMsg := 'Důvod výměny - SEZÓNNÍ POLOŽKA';
                result := true;
               end
              else
               if (duvod='2') or (duvod='Z') then
                 begin
                  outMsg := '';

                  b := false;
                  lSQL := 'SELECT (ISNULL(ZivotnostMin, 0) * CONVERT(int, CASE ISNULL(ZivotnostMinDruh, N'''') WHEN N''D'' THEN 1 WHEN N''M'' THEN 31 WHEN N''R'' THEN 365 ELSE 0 END))'
                        + ' AS PocetDnu FROM ' + tblOOPPotrebnost + ' WHERE IDProfese=' + idProf.ToString + ' AND IDPolozky=' + idPolozka.ToString + ' AND Stredisko=N' + stredisko.QuotedString;
                  zivotnostDnu := helUtils.getHeliosIntVal(Helios, 0, lSQL);
                  if (poslVyd>0) then
                    begin
                     rozdilDnu := DaysBetween(poslVyd, edtDatum.DateTime);
                     if (rozdilDnu<zivotnostDnu) then
                      begin
                       if (duvod='2') then
                        msg := 'POLOŽKA S MINIMÁLNÍ ŽIVOTNOSTÍ';
                       if (duvod='Z') then
                        msg := 'SEZÓNNÍ POLOŽKA S ŽIVOTNOSTÍ';
                       lSQL := 'SELECT CASE WHEN ISNULL(ZivotnostMin,0)>0 THEN CONVERT(nvarchar, ZivotnostMin) + N'' '' + ISNULL(ZivotnostMinDruh, N'''') ELSE N'''' END AS ZivotnostTxt FROM '
                             + tblOOPPotrebnost + ' WHERE IDProfese=' + idProf.ToString + ' AND IDPolozky=' + idPolozka.ToString + ' AND Stredisko=N' + stredisko.QuotedString;
                       zivotnostTxt := helUtils.getHeliosStrVal(Helios, '', lSQL);
                       if (TaskDlgYesNo('POZOR', msg, 'Dříve vydaná položka ještě nedosáhla své životnosti' + IfThen(zivotnostTxt<>'', ' (' + zivotnostTxt + ')', '')
                                                                     + CRLF + 'Chcete ji přesto vydat ?', tdiWarning, tcbNo)=mrYes) then
                         begin
                           result:= true;
                           btnOK.Enabled := true;
                         end
                        else
                          btnOK.Enabled := false;
{
                       with TTaskDialog.Create(nil) do
                        begin
                         try
                           lSQL:= 'SELECT CASE WHEN ISNULL(ZivotnostMin,0)>0 THEN CONVERT(nvarchar, ZivotnostMin) + N'' '' + ISNULL(ZivotnostMinDruh, N'''') ELSE N'''' END AS ZivotnostTxt FROM '
                                + tblOOPPotrebnost + ' WHERE IDProfese=' + idProf.ToString + ' AND IDPolozky=' + idPolozka.ToString + ' AND Stredisko=N' + stredisko.QuotedString;
                           zivotnostTxt:= helUtils.getHeliosStrVal(Helios, '', lSQL);
                           Caption:= 'POZOR';
                           Title:= 'NEDODRŽENA ŽIVOTNOST';
                           Text:= 'Dříve vydaná položka ještě nedosáhla své životnosti' + IfThen(zivotnostTxt<>'', ' (' + zivotnostTxt + ')', '') + CRLF + 'Chcete ji přesto vydat ?';
                           MainIcon:= tdiWarning;
                           DefaultButton:= tcbNo;
                           CommonButtons:= [tcbYes, tcbNo];
                           if (Execute) then
                            if (ModalResult=mrYes) then
                              begin
                                result:= true;
                                btnOK.Enabled:= true;
                              end
                             else
                               btnOK.Enabled:= false;
                          finally
                           Free;
                         end;
                        end;
}
                      end;
                    end
                   else
                    begin
                     outMsg := 'Položka má nastavenu minimální životnost ale nebyl dohledán předešlý výdej.';
                     result := true;
                     btnOK.Enabled := true;
                    end;
                 end
               else
                begin
                 outMsg := 'V tabulce Potřebnosti nebyl dohledán důvod výdeje položky';
                end;
          end
         else
          begin
           outMsg := 'Na položku nemá zaměstnanec právo, není zadána Potřebnost';
           idPolozka := 0;
           polozka := '';
           polozkaNum := '';
           edtPolozka.Text := '';
           edtPolozkaText.Text := '';
           self.ActiveControl := edtPolozka;
          end;
       end;
  end;




 procedure TformOOPPohyb.edtPolozkaButtonClick (Sender: TObject);
  var podm: string;
  begin
   podm := 'hvw_TabOOP_Polozky.ID IN (SELECT IDPolozky FROM ' + tblOOPPotrebnost + ' WHERE (StrediskoOld=N' + edtStrediskoOld.Text.QuotedString + ' OR Stredisko=N' + edtStredisko.Text.QuotedString
         + ') AND IDProfese=' + idProf.ToString + ')';
   if (bidOOPPolozky>0) then
    if Helios.Prenos2(bidOOPPolozky, 'hvw_TabOOP_Polozky.ID', 'hvw_TabOOP_Polozky.Cislo', oVar1, oVar2, podm, 'Položka', false, true, false, 1) then
     begin
      idPolozka := oVar1;
      polozkaNum := VarToStr(oVar2);
      edtPolozka.Text := polozkaNum;
      if (LeftStr(polozkaNum,2)='N''') and (RightStr(polozkaNum,1)='''') then
       begin
        polozkaNum := polozkaNum.Substring(2, 255);
        polozkaNum := polozkaNum.Substring(0, Length(polozkaNum)-1);
       end;
      edtPolozkaExit (Sender);
     end;
  end;




 procedure TformOOPPohyb.edtPolozkaEnter (Sender: TObject);
  begin
   infoUkazano := false;
  end;




 procedure TformOOPPohyb.edtPolozkaExit (Sender: TObject);
  begin
   edtPolozka.Text := edtPolozka.Text.Trim;
   if (edtPolozka.Text<>'') then
    begin
     if not(TryStrToInt(edtPolozka.Text, idPolozka)) then
      idPolozka := 0;
     edtPolozkaText.Text := helUtils.getHeliosStrVal(Helios, '', 'SELECT Nazev FROM ' + tblOOPPolozky + ' WHERE ID=' + idPolozka.ToString);
     polozkaNum := helUtils.getHeliosStrVal(Helios, '', 'SELECT Cislo FROM ' + tblOOPPolozky + ' WHERE ID=' + idPolozka.ToString);
     polozka := edtPolozkaText.Text;
     if not(MamNarokNaPolozku(outMsg)) then
       begin
        btnOK.Enabled := false;
        edtPolozka.Text := '';
        edtPolozkaText.Text := '';
        idPolozka := 0;
        polozka := '';
        if (outMsg<>'') and not(infoUkazano) then
         begin
          TaskDlgOK ('POZOR', 'CHYBA', outMsg, tdiWarning);
          infoUkazano := true;
          outMsg := '';
         end;
       end
      else
       begin
        btnOK.Enabled := true;
        if (outMsg<>'') and not(infoUkazano) then
         begin
          TaskDlgOK ('POZOR', 'INFORMACE', outMsg, tdiWarning);
          infoUkazano := true;
          outMsg := '';
         end;
       end;
    end;
  end;




 procedure TformOOPPohyb.edtPrijmJmButtonClick (Sender: TObject);
  var c: integer;
  begin
   if Helios.Prenos2(bidCisZam, 'TabCisZam.Cislo', 'TabCisZam.PrijmeniJmeno', oVar1, oVar2, '', 'Zaměstnanec', false, true, false, 1) then
    begin
     cisZam := oVar1;
     edtOsCislo.Text := cisZam.ToString;
     if not(TryStrToInt(edtOsCislo.Text, c)) then
      c := 0;
     cisZam := c;
     if (NactiUdajeZamestnance(cisZam)) then
      self.ActiveControl := edtProfese;
    end;
  end;




 procedure TformOOPPohyb.edtProfeseButtonClick (Sender: TObject);
  var lSQL, podm: string;
      c: integer;
  begin
   podm := 'hvw_TabOOP_Profese.StrediskoOld=N' + stredOld.QuotedString;
   if (bidOOPProfese>0) then
    if Helios.Prenos2(bidOOPProfese, 'hvw_TabOOP_Profese.ID', 'hvw_TabOOP_Profese.Profese', oVar1, oVar2, podm, 'Profese', false, true, false, 1) then
     begin
      if not(TryStrToInt(VarToStr(oVar1), c)) then
       c := 0;
      idProf := c;

// pokud existuje ext.sloupec, profesi uloz
      if (idZam>0) and (helUtils.sqlExistsTestGeneral(Helios, 'SELECT 1 FROM (VALUES(1)) t1(col1) WHERE COL_LENGTH(N' + tblCisZamE.QuotedString + ', N''_OOP_Profese'') IS NOT NULL')) then
       begin
        lSQL := 'UPDATE ' + tblCisZamE + ' SET _OOP_Profese=' + IfThen(idProf=0, 'NULL', idProf.ToString) + ' WHERE ID=' + idZam.ToString + CRLF;
        if (idProf>0) then
         lSQL := lSQL + 'IF (@@ROWCOUNT=0) INSERT ' + tblCisZamE + ' (ID, _OOP_Profese) SELECT ' + idZam.ToString + ', ' + idProf.ToString;
        Helios.ExecSQL (lSQL);
       end;

      profese := VarToStr(oVar2);
      if (LeftStr(profese,2)='N''') and (RightStr(profese,1)='''') then
       begin
        profese := profese.Substring(2, 255);
        profese := profese.Substring(0, Length(profese)-1);
       end;
      edtProfese.Text := profese;
      self.ActiveControl := edtDatum;
     end;
  end;




 procedure TformOOPPohyb.edtStrediskoButtonClick (Sender: TObject);
  begin
   if (Helios.Prenos(bidCisZam, 'TabCisZam.Cislo', oVar1, '', 'Zaměstnanec', true)) then
    begin
     stredisko := VarToStr(oVar1);
     edtStredisko.Text := stredisko;
     edtStrediskoText.Text := helUtils.getHeliosStrVal (Helios, '', 'SELECT Nazev FROM ' + tblStrom + ' WHERE Cislo=N' + edtStredisko.Text.QuotedString);
     stredOld := helUtils.getHeliosStrVal (Helios, '', 'SELECT TOP(1) StrediskoOld FROM ' + tblOOPProfese + ' WHERE Stredisko=N' + edtStredisko.Text.QuotedString);
     edtStrediskoOld.Text := stredOld;
    end;
  end;




 procedure TformOOPPohyb.FormShow (Sender: TObject);
  begin
   bidOOPProfese := helUtils.getHeliosIntVal (Helios, 0, 'SELECT DPBID FROM ' + tblObecPrehled + ' WHERE NazevSys=N''hvw_TabOOP_Profese''');
   bidOOPPolozky := helUtils.getHeliosIntVal (Helios, 0, 'SELECT DPBID FROM ' + tblObecPrehled + ' WHERE NazevSys=N''hvw_TabOOP_Polozky''');

   edtDatum.DateTime := Now;


   strediskoUser := helUtils.getHeliosStrVal (Helios, '', 'SELECT z.Stredisko FROM ' + tblCisZam + ' z INNER JOIN ' + tblUserCfg + ' u ON (u.LoginName=z.LoginId) WHERE u.LoginName=SUSER_SNAME()');
   idZamUser := helUtils.getHeliosIntVal (Helios, 0, 'SELECT ID FROM ' + tblCisZam + ' WHERE LoginId=SUSER_SNAME()');
   superUserOOP := false;
   if (idZamUser>0) and (helUtils.sqlExistsTestGeneral(Helios, 'SELECT 1 FROM (VALUES(1)) t1(col1) WHERE COL_LENGTH(N' + tblCisZamE.QuotedString + ', N''_OOP_SuperUser'') IS NOT NULL')) then
    superUserOOP := helUtils.getHeliosBoolVal (Helios, false, 'SELECT CONVERT(bit, ISNULL(_OOP_SuperUser, 0)) FROM ' + tblCisZamE + ' WHERE ID=' + idZamUser.ToString);
   if (jeTest) then
    superUserOOP := jeTest;

  end;

end.