Ver Mensaje Individual
  #4  
Antiguo 19-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 19-08-2010 a las 20:14:36.
Responder Con Cita