Prvni verze
This commit is contained in:
312
_plgPlan/frmPlanPaletListy.pas
Normal file
312
_plgPlan/frmPlanPaletListy.pas
Normal file
@ -0,0 +1,312 @@
|
||||
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.
|
||||
Reference in New Issue
Block a user