Actualizar campo de dbgrid

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

[[egostar]]

Bueno, estoy asumiendo que Fecha_Apli es parte del registro que se va a modificar y solo se le suman los dias que capturas en el Edit4.

Eso nos dará lo que quieres en la Fecha_Venc.

Seria bueno que nos dieras mas información de como esta tu programa para poder ser mas exactos en las respuestas.

Y que es lo que no digieres del ejemplo que te puse.

Salud OS.

[jorelivi]

Este es el procedimiento que estoy tratando de hacer funcionar para la actualizacion del campo Fecha_venc en base a una fecha_apli que es otro campo y a unos dias que se capturan en edit4.
Pero al dar el quiery1.execsql, me manda un error de Keyboar
Creo que ya casi esta pero falta grabar correctamente.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var sQuery:String;
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]));
                        sQuery:='Update Fecha_venc Set Fecha_venc= :fecha Where Docto  = :docto';
                        Query1.SQL.Add(sQuery);
                    Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
                    Query1.ParamByName('fecha').AsDateTime:= Query1.FieldByName('Fecha_Apli').AsDateTime + StrtoInt(Edit4.Text);
                    Query1.ExecSQL;
                   end;
            end;
       end
    else
// Todo lo que tengas que hacer
   If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
       sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias Where cclie=:cclie';
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add(sQuery);
       Query1.ParamByName('cclie').AsString:=Edit1.Text;
       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
       Query1.ExecSQL;
    End;
End;

[[Caral]]

Hola
Bueno aqui me perdi, campo fecha integer?
Salio un table adicional?, bien dice Egostar, con que componente se presenta la informacion al grid.?

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').AsDate:= Table1.FieldByName('Fecha_Apli').AsDate + DateToStr(Edit4.Text);
                    Query1.ExecSQL; 
                   end;
            end;
       end
end;

Me explican?
Saludos

[[egostar]]

Veo que estas haciendo esto

Código Delphi [-]
If xxxxx then
else
  xxxx

No necesitas el else, en el primer bloque haces lo que necesitas, lo que faltaba es un table1.Refresh después del for, para que veas los cambios de inmediato en el DBGrid.

Así quedaría

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  sQuery:String;
  I:Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 begin
     with DBGrid1.DataSource.DataSet do begin
       for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
           GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
           sQuery:= 'Update Fecha_venc Set Fecha_venc= :fecha Where Docto  = :docto';
           Query1.SQL.Add(sQuery);
           Query1.ParamByName('docto').AsString   := Query1.FieldByName('docto').AsString;
           Query1.ParamByName('fecha').AsDateTime := Query1.FieldByName('Fecha_Apli').AsDateTime + StrtoInt(Edit4.Text);
           Query1.ExecSQL;
       end;
       Table1.Refresh;
     end;
  end;
end;

Lo del table1 lo puse porque no se con que estas ligando el DBGrid.

Salud OS.

[[egostar]]

Ya veo el problema, Caral, eres un analitico, resulta que Fecha es de tipo Date, por lo tanto lo que necesitamos es calcular la fecha de vencimiento y no los dias.

Bueno, pues veamos como se hace esto.

Tal vez cambiando esta linea

Código Delphi [-]
Query1.ParamByName('fecha').AsDateTime    := Table1.FieldByName('Sectores').AsDateTime + StrtoInt(Edit4.Text);

Prueba con eso y nos comentas por favor.

Salud OS.

[jorelivi]

Perdon pero insisto,
cuando hace el Query1.ExecSQL; me manda el menaje de:
'Invalid Use of Keyboar ' Token:Update