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.

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

[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

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

[[egostar]]

Ahh

Ya veo

Entonces la respuesta a nuestra pregunta "Que usas para enlazar el DBGrid", es un Query.

Pues mi sugerencia es que uses otro query para realizar los cambios.

Del código que al final puso nuestro buen amigo Caral, Query1 debe ser el Query "nuevo" que será usado para la actualización.

Si tienes Query1 como el objeto que usas para enlazar al DBGrid, entonces cambialo por Query2 o el nombre que le pongas.

Solo necesitas agregar al final de la actualización:

Query1.Close;
Query1.Open;

Para que los cambios se vean reflejados en el DBGrid.

Salud OS.

[jorelivi]

Sorry egostar, este es mi codigo me ilustras por favor.
Son dos casos el for es para cuando selecciono del dbgrid que es donde esta el problema. El otro funciona bien que es cuando se quiere para todos los registros.

plese for your help me.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var sQuery, Querytrab: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]));
                       QueryTrab:='Update cuen01 set Fecha_venc=Fecha_apli+:dias Where cclie= :cclie And Docto= :docto';
                       Query1.Close;
                       Query1.SQL.Clear;
                       Query1.SQL.Add(Querytrab);
                       Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
                       Query1.ParamByName('cclie').AsString:=Edit1.Text;
                       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
                       Query1.ExecSQL;
                   end;
{                   Label5.Caption:='oy es:'+DateTimetoStr(Now);
                   sQuery:='Select * from cuen01 where cclie=:cclie and tipo_mov=1';
                   Query1.Close;
                   Query1.SQL.Clear;
                   Query1.SQL.Add(sQuery);
                   Query1.ParamByName('cclie').AsString:=Edit1.Text;
                   Query1.Open;
                   Label2.Visible:=True;
                   Edit4.Visible:=True;
                   BitBtn2.Visible:=True;}
            end;
       end
    Else
   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;

[[egostar]]

No entiendo cual es tu problema, de hecho si lo hace bien en la segunda SENTENCIA SQL, deberia hacerlo igual en la primera.

Lo que veo diferente es que en una metes docto y en otra no.

Cual es el problema, te da error, no te actualiza?

En la propiedad Options del DBGrid debes de tener configurado dos cosas

dgRowSelect en True
dgMultiSelect en True

Salud OS.

[jorelivi]

no me esta actualizando la fecha de vencimiento segun el codigo.

las opciones del dbgrid estan en TRUE las dos. y al actualizar me manda un mensaje de "List Index out of Bounds (1)"

[[egostar]]

Creo ver el problema, como estas usando el mismo Query, se pierde la relación de los registros que estas seleccionando, yo te sugiero que uses otro Query para hacer la actualización, solo cambia en el código Query1 por Query2 o el nombre que tenga el nuevo Query.

Solo recuerda que después de actualizar, debes de cerrar y abrir el Query1 para que veas los cambios.

Salud OS.

[jorelivi]

Lo voy a intentar, sigo con ustedes y gracias.

Una duda como coloco una imagen para mi usuario y que se vea como los demas del foro. ??????

[[Caral]]

Hola
HUiiiii esto si que es mas complicado que tu problema, tienes que pertenecer a un grupo selecto muy selecto de foristas........ES BROMA.
Solo editas tu perfil y buscas editar avatar en el pones la foto, es facil.
Saludos

[[Caral]]

Hola
Segun entiendo el problema dices sigue estando en esta parte:

Código Delphi [-]
 QueryTrab:='Update cuen01 set Fecha_venc=Fecha_apli+:dias Where cclie= :cclie And Docto= :docto';
                       Query1.Close;
                       Query1.SQL.Clear;
                       Query1.SQL.Add(Querytrab);
                       Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
                       Query1.ParamByName('cclie').AsString:=Edit1.Text;
                       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
                       Query1.ExecSQL;

Me dices si me equivoco.?
Pra mi el problema esta aqui, si es asi, verdad:

Código Delphi [-]
Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;

Se saca la informacion del mismo sitio donde se pide, es la misma, para mi curioso.
Saludos

[jorelivi]

Siiipp, ese es el detalle y no se como hacerlo, me ayudan.