Prvni verze

frmHrOdvOperZmetky.pas

@@ -0,0 +1,81 @@
+unit frmHrOdvOperZmetky;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ddPlugin_TLB;
+
+type
+  TformHrOdvOperZmetky = class(TForm)
+    Label1: TLabel;
+    cbTypZmetku: TComboBox;
+    btnOK: TButton;
+    btnZrus: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure btnZrusClick(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+   private
+   public
+    Helios: IHelios;
+    idZavady: integer;
+  end;
+
+var
+  formHrOdvOperZmetky: TformHrOdvOperZmetky;
+  arrIdZavad: TArray<integer>;
+
+implementation
+uses helUtils;
+{$R *.dfm}
+
+ procedure TformHrOdvOperZmetky.btnOKClick(Sender: TObject);
+  begin
+   idZavady:= arrIdZavad[cbTypZmetku.ItemIndex];
+   Close;
+  end;
+
+
+
+ procedure TformHrOdvOperZmetky.btnZrusClick(Sender: TObject);
+  begin
+   idZavady:= -1;
+   Close;
+  end;
+
+
+
+ procedure TformHrOdvOperZmetky.FormClose(Sender: TObject; var Action: TCloseAction);
+  begin
+   Action:= caFree;
+  end;
+
+
+
+ procedure TformHrOdvOperZmetky.FormShow(Sender: TObject);
+  var lSQL: string;
+      i: integer;
+  begin
+   cbTypZmetku.Clear;
+
+   lSQL:= 'SELECT TOP(3) cz.Kod, cz.Nazev, cz.ID FROM ' + tblPMZZavady + ' z INNER JOIN ' + tblCZavad + ' cz ON (cz.ID=z.IDZavady) WHERE ';
+   lSQL:= lSQL + 'cz.Poznamka LIKE N''%OBALOVNA%'' GROUP BY cz.Kod, cz.Nazev, cz.ID ORDER BY SUM(z.kusy_zmet_neopr) DESC';
+   with Helios.OpenSQL(lSQL) do
+    if (RecordCount>0) then
+     begin
+      i:= 0;
+      First;
+      SetLength(arrIdZavad, RecordCount);
+      while not(EOF) do
+       begin
+        cbTypZmetku.Items.Add(VarToStr(FieldValues(0)) + ' - ' + VarToStr(FieldValues(1)));
+        arrIdZavad[i]:= StrToInt(VarToStr(FieldValues(2)));
+        Inc(i);
+        Next;
+       end;
+     end;
+   cbTypZmetku.ItemIndex:= 0;
+  end;
+
+end.