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.