unit fcontrolminimos;

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, Data.DB,  
  Vcl.Grids, Vcl.DBGrids,  frxClass, frxExportPDF, frxDBSet,
  Vcl.StdCtrls, Vcl.ExtCtrls, frxExportBaseDialog;

type
  Tcontrolminimos = class(TForm)
    DBGrid1: TDBGrid;
    qminimos: TFDQuery;
    qminimosid: TIntegerField;
    qminimoscodigo: TWideStringField;
    qminimosdescripcion: TWideStringField;
    qminimosstock: TFloatField;
    qminimosstock_minimo: TFloatField;
    DataSource1: TDataSource;
    qactualizar_stocks: TFDQuery;
    Panel1: TPanel;
    Button3: TButton;
    btaimprimir: TButton;
    dbinfstock: TfrxDBDataset;
    infstock: TfrxReport;
    frxPDFExport1: TfrxPDFExport;
    procedure FormShow(Sender: TObject);
    procedure btaimprimirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  controlminimos: Tcontrolminimos;

implementation

{$R *.dfm}

procedure Tcontrolminimos.btaimprimirClick(Sender: TObject);
var fecha:string;
    dia,mes,anyo:word;
begin
   if (qminimos.RecordCount>0) and (qminimos.State in [dsbrowse]) then
   begin

    infstock.DataSet:=dbinfstock;
    infstock.Report.Clear;
    infstock.LoadFromFile('c:\agrigest\informes\listadostocksminimos.fr3');
    infstock.ShowReport();
   end;
end;

procedure Tcontrolminimos.FormShow(Sender: TObject);
begin
    qactualizar_stocks.ExecSQL;
    qminimos.Open;
end;

end.