unit fstockalmacen;

interface

uses
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uFireDacHelper,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
  Data.DB,   Vcl.Grids, Vcl.DBGrids;

type
  Tstocksalmacen = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    dsqstock: TDataSource;
    qstock: TFDQuery;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    qstockid: TIntegerField;
    qstockfamilia: TWideStringField;
    qstockcodigo: TWideStringField;
    qstockdescripcion: TWideStringField;
    qstockstock: TFloatField;
    SaveDialog1: TSaveDialog;
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stocksalmacen: Tstocksalmacen;

implementation
uses principal;
{$R *.dfm}

procedure Tstocksalmacen.Button1Click(Sender: TObject);
var
  archivo: string;
begin

  SaveDialog1.FileName :='STOCKS DE INSUMOS.xlsx';
  SaveDialog1.Execute();
  archivo := SaveDialog1.FileName;

  try
    base.ExportaraExcel(archivo, 'STOCKS', DBGrid1);
  finally
    showmessage('Los datos han sido exportados correctamente');
  end;

end;

procedure Tstocksalmacen.Button3Click(Sender: TObject);
var vbuscar:string;
begin
   if edit1.Text='' then vbuscar:='%' else vbuscar:='%'+edit1.Text+'%';
   qstock.close;
   qstock.Prepare;
   qstock.ParamByName('BUSCAR').AsString:=vbuscar;
   qstock.Open
end;

procedure Tstocksalmacen.FormShow(Sender: TObject);
begin
   qstock.close;
   qstock.Prepare;
   qstock.ParamByName('BUSCAR').AsString:='%';
   qstock.Open
end;

end.