Cambio de valor de un campo en un grid

[cloayza]

Yo lo haria asi...

Código Delphi [-]
{Antes de Insertar un nuevo registro me voy al ultimo
y cambio su estado a 'N'}
procedure TForm1.Camions_AuxBeforeInsert(DataSet: TDataSet);
begin
     Camions_Aux.Last;
     Camions_Aux.Edit;
     Camions_AuxACTUAL.Value:= 'N';
     Camions_Aux.Post;
end;

{Si se cancelo la accion de insertar, restauro el valor del ultimo registro
a 'S'}
procedure TForm1.Camions_AuxAfterCancel(DataSet: TDataSet);
begin
      {Esto solo se debe hacer cuando Dataset.State=dsInsert} 
      if DataSet.State <> dsInsert then Exit;     

      Camions_Aux.last;
     Camions_Aux.Edit;
     Camions_AuxACTUAL.Value:= 'S';
     Camions_Aux.Post;
end;

{Para un nuevo registro le asigno el valor por defecto 'S'}
procedure TForm1.Camions_AuxNewRecord(DataSet: TDataSet);
begin
     Camions_AuxACTUAL.Value:= 'S';
end;

Espero te sirva...

[jafera]

Gracias a todos de nuevo.

El último código de cloayza es el que mejor se me ha adaptado a mis necesidades, aunque he realizado ligeras variaciones de condicionado al borrar un registro o al modificarlo.

Saludos a todos

Josep

[jafera]

Una duda de nuevo al mismo problema.
Cuando intento insertar un nuevo registro me lanza un error de stack overflow supongo por el código siguiente

Código Delphi [-]
 
procedure TF_ModulDades.Camions_AuxBeforeInsert(DataSet: TDataSet);
begin
        Camions_Aux.Last;
        Camions_Aux.Edit;
        Camions_AuxACTUAL.Value:= 'N';
        Camions_Aux.Post;
end;

Codigo el cual no se puede ejecutar ya que el registro que estoy insertando es el primero y no hay last.

Como puedo controlarlo?

Gracias

Josep

[jafera]

Ya está, hoy vuelvo a tener el dia oscuro

Código Delphi [-]
If RecordCount > 0 then

Saludos

Josep

[cloayza]

Que bueno saber que lograste solucionar tu problema, efectivamente el error que indicas se produce, con la correccion que indicas salvas el problema...

Un abrazo.