El código esta hecho para que recorra el Query y grabar los datos en una tabla de paso
'TablarecepcionDiaria' el problema esta en que no deja de grabar solo un registro que es el
primero y no recorre el query1 y lo graba al infinito en la tabla de paso
Código Delphi
[-]
procedure TRecepcion.Button1Click(Sender: TObject);
begin
Query1.First ;
While not Query1.Eof do
begin
TablarecepcionDiaria.Insert;
TablarecepcionDiaria.FieldbyName ('Rutvendedor').Asstring := query1.FieldbyName ('Rutvendedor').Asstring;
TablarecepcionDiaria.FieldbyName ('Nombrevendedor').Asstring := query1.FieldbyName('NombreVendedor').Asstring;
TablarecepcionDiaria.FieldByName ('RutAyudante').asstring := query1.FieldByName ('RutAyudante').asstring ;
TablarecepcionDiaria.FieldByName ('NombreAyudante').asstring := query1.FieldByName ('NombreAyudante').asstring ;
TablarecepcionDiaria.FieldByName ('fecha').asstring := query1.FieldByName ('fecha').asstring ;
TablarecepcionDiaria.FieldByName ('Codigo').asstring := query1.FieldByName ('Codigo').asstring ;
TablarecepcionDiaria.FieldByName ('Producto').asstring := query1.FieldByName ('Producto').asstring ;
TablarecepcionDiaria.FieldByName ('Despachos').asstring := query1.FieldByName ('Despachos').asstring ;
TablarecepcionDiaria.FieldByName ('Precio').asstring := query1.FieldByName ('Precio').asstring ;
TablarecepcionDiaria.FieldByName ('total').asstring := query1.FieldByName ('total').asstring ;
TablarecepcionDiaria.Post;
query1.Next ;
end;
end;
*****************************************************
*********el query1 le tengo este código para ordenar los datos
SELECT * FROM Visualizaventadiarias ORDER BY codigo ASC
*********y el boton para filtrar los datos asociado al query y al dbgrid
Código Delphi
[-]
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from Visualizaventadiarias');
Query1.Sql.Add('Where RutVendedor = ');
Query1.Sql.Add(QuotedStr(Edit1.Text));
Query1.Open;
gracias por el analisis
EDITE: Para colocar etiquetas Delphi.