Prvni verze

2025-05-21 21:06:33 +02:00
parent a976e7392e
commit fedc940ac4
189 changed files with 72374 additions and 17 deletions
--- a/frmTiskKAStitku.pas
+++ b/frmTiskKAStitku.pas
@ -0,0 +1,127 @@
+unit frmTiskKAStitku;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls,
+  Vcl.WinXCtrls, ES.BaseControls, ES.Switch, ddPlugin_TLB;
+
+type
+  TformTiskKAStitku = class(TForm)
+    Panel1: TPanel;
+    edtZakazka: TLabeledEdit;
+    edtPaletList: TLabeledEdit;
+    edtSarze: TLabeledEdit;
+    edtDatVyroba: TLabeledEdit;
+    edtDatSpotreba: TLabeledEdit;
+    Panel2: TPanel;
+    edtSZ: TLabeledEdit;
+    edtRegCis: TLabeledEdit;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    Panel5: TPanel;
+    edtNazev1: TLabeledEdit;
+    LabeledEdit9: TLabeledEdit;
+    LabeledEdit10: TLabeledEdit;
+    LabeledEdit11: TLabeledEdit;
+    edtPocetStitku: TLabeledEdit;
+    Edit1: TEdit;
+    Edit2: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    swTiskSpotreba: TEsSwitch;
+    swTiskSarze: TEsSwitch;
+    swTiskTiskarna: TEsSwitch;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    edtPocetPL: TLabeledEdit;
+    btnTisk: TButton;
+    btnTiskZaloha: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure btnTiskClick(Sender: TObject);
+   private
+   public
+    Helios: IHelios;
+    idKmen: integer;
+    zakazka, paletList, sarze: string;
+    datVyroba: TDateTime;
+    retVal: integer;
+  end;
+
+var
+  formTiskKAStitku: TformTiskKAStitku;
+
+implementation
+uses System.StrUtils, DateUtils, Math,
+     helUtils;
+{$R *.dfm}
+
+
+
+ procedure TformTiskKAStitku.btnTiskClick(Sender: TObject);
+  begin
+   retVal:= 1;
+  end;
+
+
+
+
+ procedure TformTiskKAStitku.FormShow(Sender: TObject);
+  var zarukaTyp: integer;
+      zarukaNum: extended;
+      d: TDateTime;
+  begin
+   SetWindowLong (btnTisk.Handle, GWL_STYLE, GetWindowLong ( (btnTisk as TWinControl).Handle, GWL_STYLE) or BS_MULTILINE);
+   retVal:= 0;
+
+   if not(btnTiskZaloha.Visible) then
+    self.Height:= btnTisk.Top + btnTisk.Height + 20;
+
+
+   edtZakazka.Text:= zakazka;
+   edtPaletList.Text:= paletList;
+   edtSarze.Text:= sarze;
+
+   if (datVyroba>0) then
+     edtDatVyroba.Text:= FormatDateTime('dd.mm.yyyy', datVyroba)
+    else
+     edtDatVyroba.Text:= FormatDateTime('dd.mm.yyyy', Now);
+
+   if (idKmen>0) then
+    begin
+     with Helios.OpenSQL('SELECT SkupZbo, RegCis, Nazev1 FROM ' + tblKZ + ' WHERE ID=' + idKmen.ToString) do
+      begin
+       edtSZ.Text:= VarToStr(FieldByNameValues('SkupZbo'));
+       edtRegCis.Text:= VarToStr(FieldByNameValues('RegCis'));
+       edtNazev1.Text:= VarToStr(FieldByNameValues('Nazev1'));
+      end;
+    end;
+
+   zarukaNum:= helUtils.getHeliosFloatVal(Helios, 0, 'SELECT ZarukaVystup FROM ' + tblKZ + ' WHERE ID=' + idKmen.ToString);
+   zarukaTyp:= helUtils.getHeliosIntVal(Helios, 0, 'SELECT TypZarukaVystup FROM ' + tblKZ + ' WHERE ID=' + idKmen.ToString); // 0-Den, 1-Mesic, 2-Rok
+
+   d:= Now;
+   if (zarukaTyp=0) then
+    d:= IncDay(Now, Floor(zarukaNum));
+   if (zarukaTyp=1) then
+    d:= IncMonth(Now, Floor(zarukaNum));
+   if (zarukaTyp=2) then
+    d:= IncYear(Now, Floor(zarukaNum));
+
+   edtDatSpotreba.Text:= FormatDateTime('dd.mm.yyyy', d);
+
+
+   if (edtPocetStitku.CanFocus) then
+    edtPocetStitku.SetFocus;
+
+
+  end;
+
+end.