Pasar un registro de una DBGird a otra sin que se repitan!!

[ecfisa]

Hola y_a_p.

tengo una grilla que esta conectada a un dataset que corresponde a una tabla que tiene alimentos cargados y otra que corresponde a una relación entre un plan de alimentación que corresponde a un paciente específico y los alimentos antes mencionados

¿ Podrías especificar como está establecida la relación y ponernos el código del pasaje de alimentos al plan de alimentación ?

Saludos.

[y_a_p]

Para no enredar mucho necesito pasar alimentos de una grilla a otra sin que se repitan y me pasa siempre el primero... Aqui está el código que yo tengo:

Código Delphi [-]
procedure TPlan_alimenticio.agregar_a_planClick(Sender: TObject);
var
alim:String;
begin
alim:=DM.DSET_alimNOM_ALIM.Value
if not(DM.Q_plan_y_alim.Locate('NOM_ALIMENTO', alim,[]))then
 begin
  DM.DSET_plan_y_alim.Append;
  DM.DSET_plan_y_alimID_ALIM.Value:=DM.DSET_alimID_ALIM.Value;
  DM.DSET_plan_y_alimID_PLAN.Value:=DM.DSET_plan_alimID_PLAN_A.Value;
  DM.DSET_plan_y_alimESTADO.Value:=0;
  DM.DSET_plan_alim.First;
  DM.DSET_plan_y_alim.Post;
  DM.Q_plan_y_alim.SQL.Clear;
  DM.Q_plan_y_alim.SQL.Add('select * from PLAN_Y_ALIM where ID_PLAN=:name and ESTADO=0');
  DM.Q_plan_y_alim.ParamByName('name').AsInteger:=DM.DSET_plan_y_alimID_PLAN.Value;
  DM.Q_plan_y_alim.Open;
 end;
end;

[ecfisa]

Hola de nuevo.

Así a primera vista, la línea que pareciera provocar el problema es:

Código Delphi [-]
   DM.DSET_plan_alim.First;

Marcala como comentario (con "//" delante) y fijate si sigue con el mismo comportamiento.

Saludos.

[y_a_p]

Uy!!, perdón esa línea había quedado de tanto intentar hacerlo de una forma u otra quedo no me habia dado cuenta, pero asi mismo no funciona sin esa linea...

[ozsWizzard]

Abriría, aparte del query, el dataSet (o hacer refresh, no sé que sería mejor).

(Entiendo que DM.Q es un Query [TQuery, TSqlQuery, etc] y DM.DSET el TClientDataSet)

[jafera]

Yo lo que hago es una consulta que me reuna los datos que quiero traspasar, select * de la tabla a, lugo voy al primer registro de esta tabla, luego le digo while not consulta de la tabla a.eof do y aqui empiezo a añadir registros a la tabla b
campo1.tabla b:0 campo1.tabla a;
campo2.tabla b:= cam,po2.tabla b;

etc.

Lo he escrito con la urgencia que nos pides, igual me dejo algo

Josep

[y_a_p]

Para arrancar quiero agradecer su ayuda!!!, pero desde mi punto de vista el problema está en que localiza siempre un mismo registro, agradezco tu ayuda Jafera, pero yo necesito pasar el campo sobre el que estoy posicionado, es decir selecciono el campo de la grilla y ese es el que debo pasar, pero si por casualidad lo quiero volver a pasar de vuelta no me lo debe dejar cargar si ya esta en la grilla 2 digamos que vendria ser a la que le tengo que pasar los campos... gracias!!!