unit copiarconfiguracion;

interface

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

type
  Tfcopiarconfiguracion = class(TForm)
    Panel5: TPanel;
    Label1: TLabel;
    lbuscar: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    qarticulos: TZReadOnlyQuery;
    qborrarprocesos: TZQuery;
    qinsertarprocesos: TZQuery;
    qborrarescandallo: TZQuery;
    qinsertarescandallo: TZQuery;
    qarticulosproceso: TZQuery;
    qarticulosprocesoide: TWideStringField;
    qarticulosprocesoida: TWideStringField;
    qarticulosprocesoidproceso: TIntegerField;
    qarticulosprocesodescripcion: TWideStringField;
    qarticulosprocesoorden: TIntegerField;
    qescandallo: TZQuery;
    qescandalloide: TWideStringField;
    qescandalloida: TWideStringField;
    qescandalloidmateriaprima: TWideStringField;
    qescandallocantidad: TFloatField;
    qescandallodescripcion: TWideStringField;
    dsqarticulos: TDataSource;
    qarticuloside: TWideStringField;
    qarticulosid: TWideStringField;
    qarticulosdescripcion: TWideStringField;
    qarticulosobservaciones: TWideStringField;
    qarticulosunidades_pack: TIntegerField;
    procedure lbuscarChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcopiarconfiguracion: Tfcopiarconfiguracion;

implementation

{$R *.dfm}

procedure Tfcopiarconfiguracion.Button1Click(Sender: TObject);
begin
    qborrarprocesos.Prepare;
    qborrarprocesos.ParamByName('EMPRESA').AsString:=qarticuloside.AsString;
    qborrarprocesos.ParamByName('ARTICULO').AsString:=qarticulosid.AsString;
    qborrarprocesos.ExecSQL;

    qborrarescandallo.Prepare;
    qborrarescandallo.ParamByName('EMPRESA').AsString:=qarticuloside.AsString;
    qborrarescandallo.ParamByName('ARTICULO').AsString:=qarticulosid.AsString;
    qborrarescandallo.ExecSQL;

    qinsertarprocesos.Prepare;
    qinsertarprocesos.ParamByName('EMPRESA').AsString:=qarticuloside.AsString;
    qinsertarprocesos.ParamByName('ARTICULO').AsString:=qarticulosid.AsString;
    qinsertarprocesos.ParamByName('OLDEMPRESA').AsString:=qarticulosprocesoide.AsString;
    qinsertarprocesos.ParamByName('OLDARTICULO').AsString:=qarticulosprocesoida.AsString;
    qinsertarprocesos.ExecSQL;

    qinsertarescandallo.Prepare;
    qinsertarescandallo.ParamByName('EMPRESA').AsString:=qarticuloside.AsString;
    qinsertarescandallo.ParamByName('ARTICULO').AsString:=qarticulosid.AsString;
    qinsertarescandallo.ParamByName('OLDEMPRESA').AsString:=qescandalloide.AsString;
    qinsertarescandallo.ParamByName('OLDARTICULO').AsString:=qescandalloida.AsString;
    qinsertarescandallo.ExecSQL;


end;

procedure Tfcopiarconfiguracion.lbuscarChange(Sender: TObject);
var vbuscar:string;
begin
    qarticulos.Close;
    qarticulos.Prepare;
    if lbuscar.Text='' then vbuscar:='%' else vbuscar:='%'+lbuscar.Text+'%';
    qarticulos.ParamByName('TEXTO').AsString:=vbuscar;
    qarticulos.Open;
end;

end.