128 lines
3.2 KiB
ObjectPascal
128 lines
3.2 KiB
ObjectPascal
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.
|