Buenos días a todos,
Tengo tiempo ya trabajando con un proyecto en Delphi 6 y tablas en Paradox y me está generando ahorita un problema al intentar mostrar el detalle de un documento...
Código Delphi
[-]//MUESTRA DETALLE DE LA REMISION
dbgrid1.Visible := true;
dm.DETALLE_REMICOM.Last;
f:=1;
for i:=1 to dm.DETALLE_REMICOM.RecordCount do
begin
if dm.DETALLE_REMICOM.FieldByName('idremision_compra').AsInteger = strtoint(botonbuscar) then
begin
dbgrid1.Cells[2,f]:= dm.DETALLE.FieldByName('idproducto').AsString;
dbgrid1.Cells[3,f]:= inttostr(dm.DETALLE.FieldByName('idalmacen').AsInteger);
dbgrid1.Cells[4,f]:= currtostr(dm.DETALLE.FieldByName('cantidad').AsCurrency);
dbgrid1.Cells[5,f]:= dm.DETALLE.FieldByName('precio').AsVariant;
dbgrid1.Cells[6,f]:= dm.DETALLE.FieldByName('descuento').AsVariant;
dbgrid1.Cells[7,f]:= dm.DETALLE.FieldByName('importe').AsVariant;
THackStringGrid(dbgrid1).InsertRow();
f:= f+1;
end;
dm.DETALLE_REMICOM.Prior;
end;
Aunque se llame dbgrid1 en realidad es un StringGrid lo que usamos para mostrar la información
i y f son variables locales una me permite recorrer la tabla y la otra me permite ir insertando la información en la siguiente fila del StringGrid
El problema se da cuando hago la búsqueda me muestra siempre el primer registro de la tabla, lo curioso es que si mi documento original tiene 4 lineas de detalle
me muestra 4 veces el primer registro, si tiene 3, nomas 3 veces pero siempre el primero.
Intenté posicionándome al inicio de la tabla y recorrerla hacia adelante y nada... Colocándome al final de la tabla y haciendo recorridos hacia atrás y nada
lo curioso del asunto es que otro documento que usa exactamente el mismo código de búsqueda y presentación de los registros me muestra perfectamente la información
y lo único en lo que difieren es en la tabla que usan, de ahí en mas hasta los mismos puntos y comas tiene, jejeje...
A alguien se le ocurre qué pueda estar pasando ?
Les agradezco su tiempo y su ayuda a todos
