unit fselecparcelas;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls,
  Data.DB, ZAbstractRODataset, ZDataset, Vcl.StdCtrls, Vcl.DBCtrls,
  ZAbstractDataset;

type
  Tselecparcelas = class(TForm)
    qvariedadesparcelas: TZReadOnlyQuery;
    qparcelas: TZReadOnlyQuery;
    qvariedadesparcelasvariedad: TWideStringField;
    dsqvariedades: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    qparcelascodpar: TWideStringField;
    qparcelasnombre: TWideStringField;
    qparcelassuperficie: TFloatField;
    qparcelasancho_calle: TFloatField;
    qparcelasempresa: TIntegerField;
    dsqparcelas: TDataSource;
    DBGrid3: TDBGrid;
    DBText1: TDBText;
    dsrecomendaciones: TDataSource;
    Label1: TLabel;
    DBText2: TDBText;
    Label2: TLabel;
    DBText3: TDBText;
    Label3: TLabel;
    DBText4: TDBText;
    Label4: TLabel;
    DBText5: TDBText;
    Label5: TLabel;
    DBText6: TDBText;
    Label6: TLabel;
    DBText7: TDBText;
    Label7: TLabel;
    dsqparcelasrecomendacion: TDataSource;
    Button1: TButton;
    Button2: TButton;
    qparcelasrecomendacion: TZQuery;
    qparcelasnumero: TWideStringField;
    qparcelasrecomendacionid: TIntegerField;
    qparcelasrecomendacionide: TIntegerField;
    qparcelasrecomendacionidtb: TIntegerField;
    qparcelasrecomendacionparcela: TWideStringField;
    qparcelasrecomendacionsuperficie: TFloatField;
    qparcelasrecomendacionancho_calle: TFloatField;
    qparcelasrecomendaciondistancialineal: TFloatField;
    qparcelasrecomendacionidparcela: TWideStringField;
    procedure FormShow(Sender: TObject);
    procedure dsqvariedadesDataChange(Sender: TObject; Field: TField);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  selecparcelas: Tselecparcelas;

implementation

{$R *.dfm}
 uses ftratamientosbase;
procedure Tselecparcelas.Button1Click(Sender: TObject);
begin
   qparcelasrecomendacion.delete;
   qparcelas.Refresh;
end;

procedure Tselecparcelas.Button2Click(Sender: TObject);
begin
   qparcelasrecomendacion.Append;
   qparcelasrecomendacionide.value:=tratamientosbase.qtratamientoside.AsInteger;
   qparcelasrecomendacionidtb.value:=tratamientosbase.qtratamientosid.AsInteger;
   qparcelasrecomendacionidparcela.value:=qparcelasnumero.AsSTRING;
   qparcelasrecomendacionparcela.value:=qparcelasnombre.AsString;
   qparcelasrecomendacionsuperficie.value:=qparcelassuperficie.AsFloat;
   qparcelasrecomendacionancho_calle.value:=qparcelasancho_calle.AsFloat;
   qparcelasrecomendacion.Post;
   qparcelas.Refresh;
   qparcelasrecomendacion.Refresh
end;

procedure Tselecparcelas.dsqvariedadesDataChange(Sender: TObject;
  Field: TField);
  var vvariedad:string;
begin
    qparcelas.Close;
    qparcelas.Prepare;
    qparcelas.ParamByName('EMPRESA').AsInteger:=tratamientosbase.qtratamientoside.AsInteger;
    if qvariedadesparcelasvariedad.AsString=' CUALQUIERA' then vvariedad:='%' else vvariedad:=qvariedadesparcelasvariedad.AsString;
    qparcelas.ParamByName('VARIEDAD').AsString:=vvariedad;
    qparcelas.ParamByName('RECOMENDACION').AsInteger:=tratamientosbase.qtratamientosid.AsInteger;
    qparcelas.Open;
end;

procedure Tselecparcelas.FormShow(Sender: TObject);
begin
   qvariedadesparcelas.open;
   qparcelasrecomendacion.Close;
   qparcelasrecomendacion.Prepare;
   qparcelasrecomendacion.ParamByName('EMPRESA').AsInteger:=tratamientosbase.qtratamientoside.asinteger;
   qparcelasrecomendacion.ParamByName('TRATAMIENTO').AsInteger:=tratamientosbase.qtratamientosid.asinteger;
   qparcelasrecomendacion.Open;

end;

end.