Actualizar campo de dbgrid

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

[[egostar]]

Empezado por jorelivi

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

Pues que raro, hace rato vi que tenias algunas cosas raras en el codigo que posteaste, algo como class <kerword>, no se que pase, pero yo ya corri el código en una tabla ejemplo y funciona bien con el campo fecha

Salud OS.

[jorelivi]

Bueno, de cualquier manera sus conocimientos me ayudaron mucho, le agradezco y si ven algo nuevo, please me avisan.

Que tengan una buena tarde.


See you

[[Caral]]

Hola
Hay que ver el fondo del asunto:
El primer bloque dice que actualice la table con una sentencia sql que esta en sQuery, y ademas se le dice que la ejecute Query1.ExecSQL;
Vamos con el sengundo bloque:
Dice, de lo contrario: ELSE.
Use la misma variable sQuery y que ejecute denuevo.
La verdad no me parece logico o ejecuta o no.
Saludos

[[egostar]]

Empezado por Caral

Hola
Hay que ver el fondo del asunto:
El primer bloque dice que actualice la table con una sentencia sql que esta en sQuery, y ademas se le dice que la ejecute Query1.ExecSQL;
Vamos con el sengundo bloque:
Dice, de lo contrario: ELSE.
Use la misma variable sQuery y que ejecute denuevo.
La verdad no me parece logico o ejecuta o no.
Saludos

Pues eso es lo que sobra, ya lo habia comentado.

Código Delphi [-]
 
// 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;

Ese código esta de mas, no se requiere.

Salud OS.

[[Caral]]

Hola
Para mi anda por aqui la cosa:

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var 
I:Integer;
begin
    Query1.Close;
    Query1.SQL.Clear;
  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]));
                       Query1.SQL.Text:= 'Update Fecha_venc Set Fecha_venc= :fecha Where Docto  = :docto';
                    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
       Query1.SQL.Text:= 'Update cuen01 Set Fecha_venc=Fecha_apli  +  : Dias  Where cclie= :cclie';
       Query1.ParamByName('cclie').AsString:= Edit1.Text;
       Query1.ParamByName('dias').AsInteger:= StrtoInt(Edit4.Text);
       Query1.ExecSQL;
    End;
End;

No se la verdad no me gusta el add. y veo muy repetido el codigo
Saludos

[[egostar]]

Yeap, Ahi esta el problema.

No es Query.SQL.Add(), debe ser Query.SQL.Text. Pero insisto no se requiere del else ya que si no selecciono registros no es necesario.

Bien mencionado Caral

Salud OS.

[[Caral]]

Hola
Gracias egostar,

Bien mencionado Caral

viniendo de ti, me siento alagado.
Saludos Maestro.

[jorelivi]

hola egostar and Caral, que tengan un bonito dia.

Sigo con mi problema para actualizar algunos datos, me tratare de explicar mejor:
Tengo UnDbGrid, el cual se actualiza por un Query1 esto me lo hace perfecto.
despues que me muestra los datos, quiero actualizar la fecha de vencimiento (FECHA_VENC) de acuerdo a la fecha de emicion (FECHA_APLI) mas los dias que sean (X), que se capturan en Edit4.TExt. mi pregunta es tengo que utilizar el mismo Query1 o tiene que ser otro y como lo hago?