unit ConInve;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls;

type
  TFormaConProducto = class(TForm)
    TablaConInventarioCLPRO_I: TStringField;
    TablaConInventarioDSCPR_I: TStringField;
    TablaConInventarioPPUBL_I: TFloatField;
    TablaConInventarioEXIST_I: TFloatField;
    DBGrid1: TDBGrid;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    TablaConInventario: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormaConProducto: TFormaConProducto;

implementation

uses Factu;

{$R *.DFM}

procedure TFormaConProducto.FormCreate(Sender: TObject);
begin
  TablaConInventario.Open;
end;

procedure TFormaConProducto.DBGrid1DblClick(Sender: TObject);
begin
if FormaConProducto.Tag=0 then
begin
FormaFactura.TablaDeta.FieldByName('Clave').AsString:=TablaConInventario.FieldByName('CLPRO_I').AsString;
end;
if FormaConProducto.Tag=1 then
begin
FormaFactura.TablaDeta.FieldByName('Clave').AsString:=TablaConInventario.FieldByName('CLPRO_I').AsString;
end;
FormaConProducto.Close;
end;

procedure TFormaConProducto.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Ord(Char(Key))=13 then
begin
FormaFactura.TablaDeta.FieldByName('Clave').AsString:=TablaConInventario.FieldByName('CLPRO_I').AsString;
FormaConProducto.Close;

end;
end;

procedure TFormaConProducto.FormActivate(Sender: TObject);
begin

FormaFactura.TablaInventario.FindNearest([FormaFactura.TablaDeta.FieldByName('clave')]);
DBGrid1.SetFocus;

end;

end.