Actualizar campo de dbgrid

[[Caral]]

Hola
Soy Español y Vivo en Costa Rica.
Saludos

[[Caral]]

Hola
Roman, Puedes darnos una mano con esto?
Por Favor.
Saludos

[[egostar]]

Antes de meternos con tu proceso de actualización, lo que yo creo es que primero debes de saber que registro estas buscando para de esa manera hacer lo que quieres.

Para saber que registros has seleccionado realiza este proceso

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    with DBGrid1.DataSource.DataSet do
    begin
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
        ShowMessage(Table1.FieldByName('cclie').AsString);
        // No se si estas usando un TTable o un TQuery.
        // Cambialo a tu conveniencia.
      end;
    end;
  end
end;

Una vez que obtengas esto ya puedes hacer lo que quieras.

Salud OS.

[[Caral]]

Hola egostar
Muy interesante el concepto, lo vi en el help de delphi pero me quede colgado pensando si era lo correcto o no, ya sabes, aprendiz.
Saludos Maestro.

[jorelivi]

Es correcto pero como actualizo los datos que estan despues del message, pues cuando no selecciono ningun registro del Grid si lo hace pero caso contrario me manda un error.

Código Delphi [-]
  if DBGrid1.SelectedRows.Count > 0 then
    begin
      with DBGrid1.DataSource.DataSet do
      begin
        for i := 0 to DBGrid1.SelectedRows.Count-1 do
        begin
          GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
          ShowMessage(Query1.FieldByName('Docto').AsString);
          // No se si estas usando un TTable o un TQuery.
          // Cambialo a tu conveniencia.
             sQuery:='Update Fecha_venc Set Fecha_venc=Fecha_apli+ias Where Docto=octo';
             Query1.SQL.Add(sQuery);
             Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
             Query1.ExecSQL;
        end;
      end;
    end

Disculpen soy novato.

[[egostar]]

Bueno,

Aqui vamos a ver cual es tu problema.

En esta linea

Código Delphi [-]
sQuery:='Update Fecha_venc Set Fecha_venc=Fecha_apli+:dias Where Docto=:docto';

Fecha_venc=Fecha_apli+:dias, Esto no me hace sentido, como es que estas sumando Fechas_Apli + :dias, yo lo haria de otra forma

Usaremos otra variable que se llame Fechas donde vamos a realizar la suma de Fecha_Apli y dias.

Docto=:docto Aqui no estas pasando el parámetro docto, asi que hay otro error.

Veamos como lo soñe yo.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then begin
     with DBGrid1.DataSource.DataSet do begin
                   for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
                       GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i])); [/font]      [font=Arial]
                        sQuery:='Update Fecha_venc Set Fecha_venc= :fecha Where Docto  = :docto';
                        Query1.SQL.Add(sQuery);                                    
                         //No se que tipo de dato es docto, asi que le pongo String
                        //y estoy usando Table1 porque nbo se que uses para mostrar el DbGrid
                    Query1.ParamByName('docto').AsString:=  Table1.FieldByName('docto').AsString;
                    Query1.ParamByName('fecha').AsInteger:= Table1.FieldByName('Fecha_Apli').AsInteger + StrtoInt(Edit4.Text);
                    Query1.ExecSQL; 
                   end;
            end;
       end
end;

Trata de hacerlo y nos cuentas.

Salud OS.

[jorelivi]

Que amable egostar, de verdad que quiero ser mas adelante parte de su foro en cuanto a aportar algunos conocimientos.

Sin embargo, ahora tengo mis detalles todavia.

Mi Fecha_apli, es un campo de mi archivo al cual le voy a sumar unos X numero de dias para tener en fecha_venc la fecha de vencimiento de un docto.

El ejemplo que me enviaste no lo digiero muy bien, aunque es muy bien explicado.