Cambio de valor de un campo en un grid

[ecfisa]

Hola.

No sé si será esto pero fijate el comentario sobre esta parte de tu código:

Código Delphi [-]
procedure TF_ModulDades.Camions_AuxAfterPost(DataSet: TDataSet);
var Pos:TBookmark;
begin
        Pos := Camions_Aux.GetBookmark;
        IBTBombers.CommitRetaining;
        Camions_Aux.Close;
        Camions_Aux.Open;
        Camions_Aux.GotoBookmark(Pos);
        with Camions_Aux do
        begin
                Prior;           // Un registro hacia atrás
                Edit;
                Camions_AuxACTUAL.Value:= 'N'; // Ahora estamos en el anteúltimo, no iba 'S' ?
                Post;
        end;
        Camions_Aux.FreeBookmark(Pos);
end;

Según te había entendido querías que el anteúltimo tuviera la letra 'S'.
Los bookmarks los podés evitar si despues de post hacés Next, retrocedemos un paso con Prior y volvemos a darlo con Next.

Código Delphi [-]
procedure TF_ModulDades.Camions_AuxAfterPost(DataSet: TDataSet);
begin
   with Camions_Aux do
   begin
     Close;
     Open; 
     Prior;           // Un registro hacia atrás
     Edit;
     Camions_AuxACTUAL.Value:= 'S'; 
     Post;
     Next;          // Volvemos al inicial
  end;
end;

Saludos.

[jafera]

Buenas de nuevo, si puse "S" pero tiene que ser "N", "S" se quedará en el nuevo registro.

Yo no veo ninguna diferencia entre lo que he puesto yo en rojo y lo que me dices tu, igual me pierdo.

Saludos

Josep

[ecfisa]

Probaste sacando los Bookmark ?

Saludos.

[ecfisa]

Perdón jafera , a primera vista parecía que funcionaría, pero no es así.

Hice la prueba y se produce el ciclo infinito.

Es lógico por que el Post dentro del AfterPost dispara otro evento AfterPost y vuelve al evento y dispara otro y otro...


Es decir que vas a tener que buscar otra forma para la realizar la actualización.

¿ No podés hacer el cambio secuencialmente antes o después de guardar el nuevo registro ?



Saludos.

[[coso]]

Hola, una manera poco elegante seria desactivando el AfterPost y al final volverlo a activar :

Código Delphi [-]
procedure TForm1.IBDataSetDetalleAfterPost(DataSet: TDataSet);
begin
   IBDataSetDetalle.AfterPost := nil;

  with IBDataSetDetalle do
  begin
    Prior;  // ir al anterior
    Edit;   // modo edición
    FieldByName('Campo_a_ponerle_la_S').AsString:= 'S';
    Post;   // guardar
  end;

  IBDataSetDetalle.AfterPost := IBDataSetDetalleAfterPost;
end;

de todas maneras, creo que estudiandolo con detalle podrias sacar una solucion mas correcta, sin tener que usar los dos eventos del Beforepost y del AfterPost. Saludos

[ecfisa]

Hola de nuevo.

Estube probando y lo solucione así:

Código Delphi [-]
procedure TF_ModulDades.Camions_AuxAfterPost(DataSet: TDataSet);
begin
   TF_ModulDades.AfterPost:= nil; // AfterPost desactivado.
   with Camions_Aux do
   begin
      Close;
      Open; 
      Prior;          
      Edit;
      Camions_AuxACTUAL.Value:= 'N'; 
      Post;
      Next;            
   end;
   TF_ModulDades.AfterPost:=Camions_AuxAfterPost; // AfterPost activado
end;

Saludos.

[ecfisa]

Se me adelantó el amigo coso...

Pd.: Me alegra por que entonces no era tan mala la idea

Saludos.

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