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

[y_a_p]

Hola a todos!!!, con urgencia necesito ayuda!!!, estoy haciendo un programa con Delphi 7, Gestor de Base de Datos SQL Manager 2008 for Interbase, y motor de Base de Dato Firebir 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, el tema es que yo tengo que pasar en definitiva alimentos a la tabla de la relación y me pasa siempre el preimero, por favor agradecería su ayuda, gracias!!!

[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)