Post Con Demora

[[oscarac]]

Solo por curiosidad
porque usas un query? y no usas la tabla... o es que estas mostrando solo algunos registros (los que determinas con el query) de la tabla

[[Caral]]

Hola

Empezado por oscarac

Solo por curiosidad
porque usas un query? y no usas la tabla... o es que estas mostrando solo algunos registros (los que determinas con el query) de la tabla

Hombre, que curioso eres, recuerda que la curiosidad mato al gato.
Saludos

[jerry_mdq]

Hola, Uso Query porque muestro en la grilla valores de un dia determinado y aparte se combina con otras tablas. Es la mejor forma que encontre.
Te cuento que la grabacion me funciono con cerrar la tabla. Ahora me pasa como antes pero para borrar como ves en el codigo. Que hago ? Hice lo mismo y ahora me tarda en mostrar la eliminación...



begin
Tabla.TableName := 'Salidas';
Tabla.Filter := 'Contador = ' + inttostr(Query.FieldValues['Contador']);
Tabla.Active := True;
Tabla.Delete;
Tabla.Close;

Query.Close;
Query.Open;
end;

[[oscarac]]

mmmm
corrigeme si me equivoco...
tu capturas informacion de un determinado dia o dias la muestras en una grilla y luego puedes eliminar, modificar, agregar mas registros verdad?

porque no haces el proceso de "actualizacion" al salir de la grilla?, eliminando primero los datos en la tabla original y luego simplemente grabas todo lo que te "queda" en el query que se muestra en la grilla

[[oscarac]]

Empezado por Caral

Hola

Hombre, que curioso eres, recuerda que la curiosidad mato al gato.
Saludos

tengo 7 vidas.... bueno ya me quedan como 4...

[jerry_mdq]

El tema es asi: La grilla se relaciona con un query que tiene el select correcto, y de esa grilla yo saco el numero de registro del query de la grilla para buscar en una tabla y elimino con ese contador. El tema ahora es que con Post y close empezo a funcionar. Pero con Delete no. Se entiende lo que hago ?
La Grabación quedo asi.


Grilla.Height := 318;
BtnAgregar.Visible := true;
BtnModificar.visible := true;
BtnGrabar.visible := false;
BtnCancelar.visible := false;
Tabla.TableName := 'Salidas';
Tabla.Filter := 'Contador = ' + inttostr(Query.FieldValues['Contador']);
Tabla.Active := True;
Tabla.Edit;
Tabla.FieldValues['Fecha'] := DbFecha.Text;
Tabla.FieldValues['Tipo'] := DbTipo.Text;
Tabla.FieldValues['Num_Sanitario'] := DbNum_Sanitario.Text;
Tabla.FieldValues['Num_Especie'] := ListaEspecies.KeyValue;
Tabla.FieldValues['Num_Producto'] := ListaProductos.KeyValue;
Tabla.FieldValues['Cajas'] := DbCajas.Text;
Tabla.FieldValues['Kilos_Netos'] := DbKilos_Netos.Text;
Tabla.Post;
Tabla.Close;
If BtnMostrar.Caption = 'Salidas' Then
Begin
DbFecha.Visible := False;
DbTipo.Visible := False;
DbNum_Sanitario.Visible := False;
ListaEspecies.Visible := False;
ListaProductos.Visible := False;
DbCajas.Visible := False;
DbKilos_Netos.Visible := False;
End;
Query.Close;
Query.Open;



Y la eliminación asi:


if MessageDlg('Desea Eliminar el Registro ???', mtConfirmation, [mbyes, mbno], 0) = mrYes then
Begin
Tabla.TableName := 'Salidas';
Tabla.Filter := 'Contador = ' + inttostr(Query.FieldValues['Contador']);
Tabla.Active := True;
Tabla.Delete;
ShowMessage('El Registro ha sido Eliminado');
Tabla.Filter := '';
Tabla.Close;

Query.Close;
Query.Open;
End;

end;


Que hago mal para que la grabación la tome y la eliminación no... pero si me cambio de dia y vuelvo si. o si refresco a ls 2 segundos tambien.

[[oscarac]]

sabes que se me ocurre

veo que haces un filtro a la base de datos por el numero de contador... no crees que al tener una base de datoas cada dia mas grande.. el filtro de una u otra manera demora?

lo que te recomiendo es buscar el codigo y hacerle el delete

Código Delphi [-]
 
if MessageDlg('Desea Eliminar el Registro ???', mtConfirmation, [mbyes, mbno], 0) = mrYes then
Begin
  Tabla.TableName := 'Salidas';
  Tabla.locate ('Contador', inttostr(Query.FieldValues['Contador'], []);
  Tabla.Delete;
  ShowMessage('El Registro ha sido Eliminado');
  Query.Close;
  Query.Open;
End;

esto funcionaria mucho mas rapido que un filtro

[jerry_mdq]

Mirá, el tema es que ahora en la edicion con post y close lo toma perfecto, pero con delete no, si no espero 1 segundo no refresca...

[[oscarac]]

has leido lo que te puse?