313 lines
7.9 KiB
ObjectPascal
313 lines
7.9 KiB
ObjectPascal
unit frmPlanPaletListy;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, JvExDBGrids,
|
|
JvDBGrid, Vcl.StdCtrls, ddPlugin_TLB;
|
|
|
|
type
|
|
TformPlanPaletListy = class(TForm)
|
|
GridPanel1: TGridPanel;
|
|
GridPanel2: TGridPanel;
|
|
GridPanel3: TGridPanel;
|
|
grdPL: TJvDBGrid;
|
|
GridPanel4: TGridPanel;
|
|
GridPanel5: TGridPanel;
|
|
pnlKATiskSarzeAno: TPanel;
|
|
pnlKATiskSarzeNe: TPanel;
|
|
rbKATiskSarzeAno: TRadioButton;
|
|
rbKATiskSarzeNe: TRadioButton;
|
|
pnlKATiskExpiraceAno: TPanel;
|
|
rbKATiskExpiraceAno: TRadioButton;
|
|
rbKATiskExpiraceNe: TRadioButton;
|
|
pnlKATiskExpiraceNe: TPanel;
|
|
btnKATisk: TButton;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
lblPaPopis1: TLabel;
|
|
lblPaPopis2: TLabel;
|
|
btnTiskPA1: TButton;
|
|
btnTiskPA2: TButton;
|
|
GridPanel6: TGridPanel;
|
|
GridPanel7: TGridPanel;
|
|
GridPanel8: TGridPanel;
|
|
GridPanel9: TGridPanel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
edtZakazka: TEdit;
|
|
edtExtZakazka: TEdit;
|
|
Label7: TLabel;
|
|
edtNazev: TEdit;
|
|
Label8: TLabel;
|
|
Label9: TLabel;
|
|
Label10: TLabel;
|
|
Label11: TLabel;
|
|
edtBarvaStitku: TEdit;
|
|
edtStitkuNaA4: TEdit;
|
|
edtRegCis: TEdit;
|
|
edtSZ: TEdit;
|
|
GridPanel10: TGridPanel;
|
|
Button3: TButton;
|
|
GridPanel11: TGridPanel;
|
|
Label12: TLabel;
|
|
Label13: TLabel;
|
|
btnKonec: TButton;
|
|
procedure btnKonecClick (Sender: TObject);
|
|
procedure FormShow (Sender: TObject);
|
|
procedure rbKATiskSarzeAnoClick (Sender: TObject);
|
|
procedure rbKATiskSarzeNeClick (Sender: TObject);
|
|
procedure rbKATiskExpiraceAnoClick (Sender: TObject);
|
|
procedure rbKATiskExpiraceNeClick (Sender: TObject);
|
|
procedure pnlKATiskSarzeAnoClick (Sender: TObject);
|
|
procedure pnlKATiskSarzeNeClick (Sender: TObject);
|
|
procedure pnlKATiskExpiraceAnoClick (Sender: TObject);
|
|
procedure pnlKATiskExpiraceNeClick (Sender: TObject);
|
|
procedure grdPLCellClick (Column: TColumn);
|
|
procedure btnKATiskClick (Sender: TObject);
|
|
private
|
|
procedure BarvyTlacitekDleRB;
|
|
public
|
|
Helios: IHelios;
|
|
cisloZbo, nazev, cisloPrikazu: string;
|
|
idRadekAdvPL, idPrikaz: integer;
|
|
ksVKA: integer;
|
|
KAnaPal: integer;
|
|
end;
|
|
|
|
var
|
|
formPlanPaletListy: TformPlanPaletListy;
|
|
idKZ, selIdVCPrikaz: integer;
|
|
idStitekKA, idStitekPL, idPLList: integer;
|
|
|
|
implementation
|
|
uses System.DateUtils, System.StrUtils, System.Math,
|
|
frmKmen, frmZavady, frmVyrobniTyden,
|
|
uUtils, datMod2, helUtils;
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure TformPlanPaletListy.BarvyTlacitekDleRB;
|
|
begin
|
|
if (rbKATiskExpiraceAno.Checked) then
|
|
begin
|
|
pnlKATiskExpiraceAno.Color:= clMoneyGreen;
|
|
rbKATiskSarzeAno.Color:= clMoneyGreen;
|
|
end
|
|
else
|
|
begin
|
|
pnlKATiskExpiraceAno.Color:= clBtnFace;
|
|
rbKATiskSarzeAno.Color:= clBtnFace;
|
|
end;
|
|
|
|
if (rbKATiskExpiraceNe.Checked) then
|
|
begin
|
|
pnlKATiskExpiraceNe.Color:= $005B5BFF;
|
|
rbKATiskExpiraceNe.Color:= $005B5BFF;
|
|
end
|
|
else
|
|
begin
|
|
pnlKATiskExpiraceNe.Color:= clBtnFace;
|
|
rbKATiskExpiraceNe.Color:= clBtnFace;
|
|
end;
|
|
|
|
|
|
if (rbKATiskSarzeAno.Checked) then
|
|
begin
|
|
pnlKATiskSarzeAno.Color:= clMoneyGreen;
|
|
rbKATiskSarzeAno.Color:= clMoneyGreen;
|
|
end
|
|
else
|
|
begin
|
|
pnlKATiskSarzeAno.Color:= clBtnFace;
|
|
rbKATiskSarzeAno.Color:= clBtnFace;
|
|
end;
|
|
|
|
if (rbKATiskSarzeNe.Checked) then
|
|
begin
|
|
pnlKATiskSarzeNe.Color:= $005B5BFF;
|
|
rbKATiskSarzeNe.Color:= $005B5BFF;
|
|
end
|
|
else
|
|
begin
|
|
pnlKATiskSarzeNe.Color:= clBtnFace;
|
|
rbKATiskSarzeNe.Color:= clBtnFace;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.btnKATiskClick (Sender: TObject);
|
|
var lSQL: string;
|
|
begin
|
|
if (selIdVCPrikaz>0) then
|
|
begin
|
|
lSQL:= 'IF OBJECT_ID(N''tempdb..#TabParamTiskStitkuKA'', N''U'') IS NOT NULL INSERT #TabParamTiskStitkuKA (TiskSarze, TiskExpirace) SELECT '
|
|
+ IfThen(rbKATiskSarzeAno.Checked, '1', '0') + ', ' + IfThen(rbKATiskExpiraceAno.Checked, '1', '0');
|
|
Helios.ExecSQL (lSQL);
|
|
|
|
if (idStitekKA>0) then
|
|
Helios.PrintForm3 (datMod2.bidPalety, idStitekKA, 'hvw_Vyroba_Palety.IDVyrCisPrikaz=' + selIdVCPrikaz.ToString);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.btnKonecClick (Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.FormShow (Sender: TObject);
|
|
var lSQL, externiZak: string;
|
|
|
|
begin
|
|
selIdVCPrikaz:= 0;
|
|
idStitekKA:= 0;
|
|
idStitekPL:= 0;
|
|
idPLList:= 0;
|
|
|
|
|
|
lSQL:= 'DROP TABLE IF EXISTS #TabParamTiskStitkuKA' + CRLF + 'CREATE TABLE #TabParamTiskStitkuKA (ID INT IDENTITY(1,1) NOT NULL'
|
|
+ ', PocetKopii SMALLINT DEFAULT 1 NOT NULL, TiskSarze BIT DEFAULT 1 NOT NULL, TiskExpirace BIT DEFAULT 1 NOT NULL)';
|
|
Helios.ExecSQL (lSQL);
|
|
|
|
|
|
edtNazev.Text:= nazev;
|
|
if (cisloZbo<>'') then
|
|
begin
|
|
edtSZ.Text:= LeftStr(cisloZbo,3);
|
|
edtRegCis.Text:= MidStr(cisloZbo, 5, 30);
|
|
end;
|
|
edtZakazka.Text:= cisloPrikazu;
|
|
|
|
externiZak:= '';
|
|
if (idPrikaz>0) then
|
|
begin
|
|
dm2.PlanPalListyNactiSarzePrikazu (idPrikaz, ksVKA, externiZak);
|
|
idKZ:= helUtils.getHeliosIntVal (Helios, 0, 'SELECT IDTabKmen FROM ' + tblPrikaz + ' WHERE ID=' + idPrikaz.ToString);
|
|
if (idKZ>0) then
|
|
begin
|
|
with Helios.OpenSQL('SELECT * FROM ' + tblKZ + ' WHERE ID=' + idKZ.ToString) do
|
|
begin
|
|
end;
|
|
with Helios.OpenSQL('SELECT * FROM ' + tblKZe + ' WHERE ID=' + idKZ.ToString) do
|
|
begin
|
|
edtBarvaStitku.Text:= VarToStr(FieldByNameValues('_ASOL_BarvaStitku'));
|
|
edtStitkuNaA4.Text:= VarToStr(FieldByNameValues('_ASOL_PocetA4'));
|
|
|
|
// KA stitek
|
|
if not(TryStrToInt (VarToStr(FieldByNameValues('_KL')), idStitekKA)) then
|
|
idStitekKA:= 0;
|
|
// PL stitek
|
|
if not(TryStrToInt (VarToStr(FieldByNameValues('_PalStitek')), idStitekPL)) then
|
|
idStitekPL:= 0;
|
|
// PL list
|
|
if not(TryStrToInt (VarToStr(FieldByNameValues('_PLKK')), idPLList)) then
|
|
idPLList:= 0;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
if (externiZak<>'') then
|
|
edtExtZakazka.Text:= externiZak;
|
|
|
|
// edtStitkuNaA4.Text:=
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.grdPLCellClick (Column: TColumn);
|
|
begin
|
|
selIdVCPrikaz:= grdPL.DataSource.DataSet.FieldByName('IDVCPrikaz').AsInteger;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.pnlKATiskExpiraceAnoClick (Sender: TObject);
|
|
begin
|
|
rbKATiskExpiraceAno.Checked:= not rbKATiskExpiraceAno.Checked;
|
|
rbKATiskExpiraceNe.Checked:= not rbKATiskExpiraceNe.Checked;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.pnlKATiskExpiraceNeClick (Sender: TObject);
|
|
begin
|
|
rbKATiskExpiraceAno.Checked:= not rbKATiskExpiraceAno.Checked;
|
|
rbKATiskExpiraceNe.Checked:= not rbKATiskExpiraceNe.Checked;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.pnlKATiskSarzeAnoClick (Sender: TObject);
|
|
begin
|
|
rbKATiskSarzeAno.Checked:= not rbKATiskSarzeAno.Checked;
|
|
rbKATiskSarzeNe.Checked:= not rbKATiskSarzeNe.Checked;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.pnlKATiskSarzeNeClick (Sender: TObject);
|
|
begin
|
|
rbKATiskSarzeAno.Checked:= not rbKATiskSarzeAno.Checked;
|
|
rbKATiskSarzeNe.Checked:= not rbKATiskSarzeNe.Checked;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.rbKATiskExpiraceAnoClick (Sender: TObject);
|
|
begin
|
|
if (rbKATiskExpiraceAno.Checked) then
|
|
rbKATiskExpiraceNe.Checked:= false;
|
|
BarvyTlacitekDleRB;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.rbKATiskExpiraceNeClick (Sender: TObject);
|
|
begin
|
|
if (rbKATiskExpiraceNe.Checked) then
|
|
rbKATiskExpiraceAno.Checked:= false;
|
|
BarvyTlacitekDleRB;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.rbKATiskSarzeAnoClick (Sender: TObject);
|
|
begin
|
|
if (rbKATiskSarzeAno.Checked) then
|
|
rbKATiskSarzeNe.Checked:= false;
|
|
BarvyTlacitekDleRB;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TformPlanPaletListy.rbKATiskSarzeNeClick (Sender: TObject);
|
|
begin
|
|
if (rbKATiskSarzeNe.Checked) then
|
|
rbKATiskSarzeAno.Checked:= false;
|
|
BarvyTlacitekDleRB;
|
|
end;
|
|
|
|
end.
|