unit frm_CalidadTrazabilidadMaestra;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.Grids, Vcl.DBGrids, Data.DB, dmg_Calidad, dmg_Main;

type
  TfrmCalidadTrazabilidadMaestra = class(TForm)
    pnlTop: TPanel;
    lblLoteSearch: TLabel;
    edtLoteSearch: TEdit;
    btnGenerar: TButton;
    pnlBottom: TPanel;
    btnImprimir: TButton;
    dbgTrazabilidad: TDBGrid;
    dsTraz: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure btnGenerarClick(Sender: TObject);
    procedure btnImprimirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCalidadTrazabilidadMaestra: TfrmCalidadTrazabilidadMaestra;

implementation

{$R *.dfm}

uses
  frm_PrintOptions;

procedure TfrmCalidadTrazabilidadMaestra.FormShow(Sender: TObject);
begin
  edtLoteSearch.Text := 'L2026-PANETTONE-01';
  btnGenerarClick(nil);
end;

procedure TfrmCalidadTrazabilidadMaestra.btnGenerarClick(Sender: TObject);
var
  LCodigo: string;
begin
  LCodigo := Trim(edtLoteSearch.Text);
  if LCodigo = '' then Exit;

  dmgCalidad.GenerarTrazabilidadMaestra(1, LCodigo);

  dmgCalidad.qryTrazabilidad.Close;
  dmgCalidad.qryTrazabilidad.ParamByName('id_lote').AsInteger := 1;
  dmgCalidad.qryTrazabilidad.Open;
end;

procedure TfrmCalidadTrazabilidadMaestra.btnImprimirClick(Sender: TObject);
begin
  TfrmPrintOptions.ShowOptions(Self, nil, dbgTrazabilidad, 'Hoja Maestra de Trazabilidad RG-13');
end;

end.