unit fconsumosfitoparcelas;

interface

uses
  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, ZAbstractRODataset, ZDataset, Vcl.Grids, Vcl.DBGrids;

type
  Tconsumosfitoparcelas = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    fdesde: TDateTimePicker;
    fhasta: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    dsqconsumos: TDataSource;
    qconsumos: TZReadOnlyQuery;
    qconsumosidaf: TIntegerField;
    qconsumosdescripcion_af: TWideStringField;
    qconsumoscantidad: TFloatField;
    qconsumosid_cc: TWideStringField;
    qconsumosparcela: TWideStringField;
    qconsumosfamilia: TWideStringField;
    SaveDialog1: TSaveDialog;
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  consumosfitoparcelas: Tconsumosfitoparcelas;

implementation
uses principal;
{$R *.dfm}

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

  SaveDialog1.FileName :='CONSUMOS FITOSANITARIOS-ABONOS POR PARCELA.xlsx';
  SaveDialog1.Execute();
  archivo := SaveDialog1.FileName;

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

end;

procedure Tconsumosfitoparcelas.Button3Click(Sender: TObject);
begin
  qconsumos.close;
  qconsumos.prepare;
  qconsumos.Parambyname('DESDE').asdate:=fdesde.date;
  qconsumos.Parambyname('HASTA').asdate:=fhasta.date;
  qconsumos.open;
end;

procedure Tconsumosfitoparcelas.FormShow(Sender: TObject);
begin
   fdesde.Date:=date();
   fhasta.Date:=date();
end;

end.