Cambio de valor de un campo en un grid

[jafera]

Hola de nuevo a todos.

Aprovechando vuestro "savoir faire" que dirian los franceses, os planteo otra duda que me ha surgido al trabajar con un JVDBGrid.

Tal y como comenté en mi anterior post, estoy trabajando con un grid que se llena mediante una tabla, todo esto en firebird 1.5.

Los datos de este grid son filtrados por un id del maestro, lógico claro, en los registros de este grid solo puede haber uno con un campo que se llama ACTUAL y que contenga el valor "S", este valor siempre es el último del grid.

Cuando añado un nuevo registro automaticamente le pone valor S al campo ACTUAL (onnewrecord), pero en el evento beforepost tengo puesto lo siguiente:

Código Delphi [-]
 
If Camions_Aux.State in [dsInsert] then
        begin
                Actual_S.Close;
                Actual_S.ParamByName('ID_CAMIO').AsInteger := F_ModulDades.Camions_AuxID_CAMIO.Value;
                Actual_S.ParamByName('ID').AsInteger:=F_ModulDades.Camions_AuxID.Value;
                Actual_S.Open;
                if Actual_S.RecordCount > 0 then
                begin
                        ShowMessage('Només es pot asignar el camió a un parc');
                        Camions_AuxACTUAL.Value := 'N';
                end;
        end;

El motivo del state es para que no actue si estoy modificando un dato que no sea ACTUAL.

Bueno despues de soltar el lastre mi pregunta.

Puedo poner ACTUAL a S pero en el registro anterior al nuevo?, tal y como tengo el código actualmente me pone a S el ultimo registro y yo quisiera poner a S el penultimo.

Gracias a todos y saludos

Josep

[ecfisa]

Hola.

No me queda bién en claro si la 'S' la guardás en el maestro o el detalle, pero suponiendo que sea
sobre la tabla detalle, podrías hacer:

Código Delphi [-]
procedure TForm1.IBDataSetDetalleAfterPost(DataSet: TDataSet);
begin
  with IBDataSetDetalle do
  begin
    Prior;  // ir al anterior
    Edit;   // modo edición
    FieldByName('Campo_a_ponerle_la_S').AsString:= 'S';
    Post;   // guardar
  end;
end;

Saludos.

[jafera]

Buenas ecfisa, a ver si lo he entendidobien, yo coloco el codigo aqui, lo he insertado en el código que ya tenia yo puesto en el evento

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;
                Edit;
                Camions_AuxACTUAL.Value:= 'N';
                Post;
        end;
        Camions_Aux.FreeBookmark(Pos);
end;

El resultado es que hace el cambio a "N" pero entra en un bucle sin fin que tengo que cancelar

Que es lo que hago mal?

En el before post tengo esto

Código Delphi [-]
procedure TF_ModulDades.Camions_AuxBeforePost(DataSet: TDataSet);
begin
        If Camions_Aux.State in [dsInsert] then
        begin
                Actual_S.Close;
                Actual_S.ParamByName('ID_CAMIO').AsInteger := F_ModulDades.Camions_AuxID_CAMIO.Value;
                Actual_S.ParamByName('ID').AsInteger:=F_ModulDades.Camions_AuxID.Value;
                Actual_S.Open;
                if Actual_S.RecordCount > 0 then
                begin
                        ShowMessage('Només es pot asignar el camió a un parc');

                        //Camions_AuxACTUAL.Value := 'N';
                end;
        end;
end;

Gracias

Josep

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