guardar datos de una fila seleccionada de un dbrig en variables

[[coso]]

O bien usando el dblclick de cada dbgrid...

Código Delphi [-]

procedure TForm1.DBGridDblClick(sender : TObject);
begin
    cod := (sender as TDBGrid).DataSource.DataSet.FieldByName('codigo').Asinteger;
    descr := (sender as TDBGrid).DataSource.DataSet.FieldByName('descr').Asstring;

    insertar_(cod,descr);
end;

poniendo esto en el OnDblClick de las dos dbgrids.

[deprimera]

tengo 2 tablas una de Servicios y otra de Productos...
los campos de Servicios son Código, Servicio y Precio
los campos de Productos son Código, Descripción y Precio..echos en access

yo quiero q al seleccionar una fila d cualkier dbgrid (el dbgrid1 asociado a un adotable1 q pertenece a la tabla Servicios y el dbgrid2 asociado a un adotable2 q pertenece a la tabla Productos) m lo guarde en las variables cod y desc para pasarlos a otra pantalla donde se realiza una factura

[*Caro*]

Empezado por Caral

Hola
Caro, yo si te leo, como no hacerlo.
Saludos

Oh, muchas gracias amiguito .

Creo que ya te he entendido deprimera, tu quieres obtener los valores del ultimo DBGrid que ha tenido el foco, si es así no se puede directamente, ya que si preguntas por Focused el que va tener el foco es tu boton o si preguntas por ActiveCOntrol lo mismo.

Lo que se me ocurre es que guardes en una variable el ultimo dbGrid en el que s ele ha hecho click, eso lo puedes hacer en el evento OnEnter, pero también debes definirte una variable global.

Código Delphi [-]
 DBGridFoco : TDBGrid; //Nuestra variable global
 
 en el codigo de tu boton
 
 if DBGridFoco = DBGrid1 then
  begin
   cod:= adotable1.fieldbyname('Codigo').AsInteger;
   desc:= adotable1.fieldbyname('Servicio').AsString;
  end;

 if DBGridFoco = DBGrid2 then
  begin
   cod:= adotable2.fieldbyname('Codigo').AsInteger;
   desc:= adotable2.fieldbyname('descripcion').AsString;
  end;
 
//Ahora en el evento OnEnter de cada DBGrid
 
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
 DBGridFoco := DBGrid1;
end;
procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
 DBGridFoco := DBGrid2;
end;

La variable global puede ser de otro tu tipo, solo te sirve para que identifiques cual ha sido el ultimo que ha tenido el foco.

Saluditos

[[Caral]]

Hola
Perdona pero no termino de entender el concepto, para mi se podría hacer con sql.
Coso va muy bien con la explicación, creo que mejor lo sigues a el.
Saludos

[[coso]]

Entonces, en el evento OnDblClick o bien OnClick, deberas recoger las variables y luego enviarlas.

Código Delphi [-]
procedure TForm1.DBGridOnDblClick(sender : TObject);
var
    cod : integer;
    dsc : string;
    prc : double;
begin
    cod := (sender as TDBGrid).FieldByName('codigo').Asinteger;
    prc := (sender as TDBGrid).FieldByName('precio').Asfloat; 

    if (sender as TDBGrid) = DBGrid1 then // DBGrid1 = la de servicios
    dsc := DBGrid1.DataSource.Dataset.FieldByName('servicio').Asstring
    else 
    if (sender as TDBGrid) = DBGrid2 then // DBGrid2 = la de productos
    dsc := DBGrid2.DataSource.DataSet.FieldByName('descripcion').Asstring;

    Insertar_en_factura(cod,dsc,prc);
end;

[[coso]]

Perdona pero no termino de entender el concepto, para mi se podría hacer con sql.

¿como se podria hacer con sql? pura curiosidad

[[coso]]

Coso va muy bien con la explicación, creo que mejor lo sigues a el.

jejj pues yo viendo el codigo de caro, creo que mejor, pues asi usas el boton inicial y te olvidas de los eventos. saludos.

[[coso]]

Bueno, espero que entre todos te hayamos aclarado algo. saludos.

[[Caral]]

Hola

Empezado por coso

¿como se podria hacer con sql? pura curiosidad

Lo que quieres es ponerme a trabajar un sábado, eres malo como la leche
Amigo, lo que se me ocurre es que para que usar dos table, que ademas son lentos, cuando se puede usar un solo query, ademas se podria hacer un enlace de las dos tablas y presentar una sola consulta.
Bueno, ya sabes en estas cosas soy muy novato asi que es solo una opinión, los que sabéis sois vosotros, Caro y tu.
Saludos

[*Caro*]

Empezado por coso

Bueno, espero que entre todos te hayamos aclarado algo.

Lo mismo espero yo .

Saluditos

[[coso]]

Pues si, podria usarse un join de las dos (siendo el nombre de descripcion = servicio) o bien una unica tabla...

[deprimera]

bueno les agradezco mucho a los 3= caral coso y caro por las ayuditas...voy a ver con todo lo q m pasaron como lo puedo solucionarr...besos y gracias nuevamente

[*Caro*]

Holitas, yo creo que no se puede hacer con un join, porque supongo o se vende un sevicio o se vende un producto, nose la verdad no entiendo bien .

Saluditos

[[Caral]]

Hola
Caro, me parece que se venden los dos, según entendí es una peluquería.
Si le cortas el pelo, tal vez le vendes el champu, negocio redondo.
Hacemos un Join y si no sirve, le hacemos una oferta, dos por uno
Saludos

[deprimera]

caro este codigo es el que funciona como yo queria
DBGridFoco : TDBGrid; //Nuestra variable global
en el codigo de tu boton
if DBGridFoco = DBGrid1 then
begin
cod:= adotable1.fieldbyname('Codigo').AsInteger;
desc:= adotable1.fieldbyname('Servicio').AsString;
end;
if DBGridFoco = DBGrid2 then
begin
cod:= adotable2.fieldbyname('Codigo').AsInteger;
desc:= adotable2.fieldbyname('descripcion').AsString;
end;
//Ahora en el evento OnEnter de cada DBGrid
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
DBGridFoco := DBGrid1;
end;
procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
DBGridFoco := DBGrid2;
end;

espero poder encontrate pronto en el foro pq seguramente tendre mas dudas y necesito terminar el programa para poder recibirme.[/b]muchas graciass

[*Caro*]

Empezado por Caral

Hola
Caro, me parece que se venden los dos, según entendí es una peluquería.
Si le cortas el pelo, tal vez le vendes el champu, negocio redondo.
Hacemos un Join y si no sirve, le hacemos una oferta, dos por uno
Saludos

Ok . Pero si se vendieran ambos, sigo pensando que estan en tablas separadas y despues de escoger recién entraría a la tabla que los relaciona, ahora si se pudiera vender ambos, creo que debería poderse escoger tanto el servicio o servicios y el producto o los productos.

Empezado por deprimera

espero poder encontrate pronto en el foro pq seguramente tendre mas dudas y necesito terminar el programa para poder recibirme.[/b]muchas graciass

No estoy todo el tiempo conectada, si estuviera y se la respuesta te ayudo, sino, no te preocupes encontraras muchos amiguitos caperusos (que saben mucho e inclusive saben muchíiiiiiisimo mas que yo), asi como coso y Caral , que te ayudaran.

Saluditos

[[Caral]]

Hola
La verdad me decanto por la opción de coso y dobleclick, sin ofender.
Y sigo insistiendo en usar querys con sql, tarde o temprano tendra problemas con los table.
Solo opino.
Saludos

[*Caro*]

Empezado por Caral

Hola
La verdad me decanto por la opción de coso y dobleclick, sin ofender.
Y sigo insistiendo en usar querys con sql, tarde o temprano tendra problemas con los table.

Yo también estoy de acuerdo que deprimera utilizara Querys, piensalo deprimera con los querys podras hacer muchas mas cosas sin complicarte la vida, tu codigo no va a cambiar mucho. Ahora, supongo que despues tendra que darle la opción de seleccionar varios registros en ese caso yo utilizaría un boton, si es que se va ha dar esa posibilidad con el tiempo.

Saluditos

[[coso]]

...tambien puede usar las dos...boton y ademas, el dblclick.