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.