Hola pmtzg.
Opino igual que mi amigo, veo innecesario mostrar previamente la tabla. Por otro lado no entiendo por que recorrer la tabla para ir aplicando el valor del parámetro ¿ Que sentido tiene utilizar la sentencia SQL entonces ? en ese caso bastaría con hacer:
Código Delphi
[-]
while not dm1.FIBDset1.Eof do
begin
dm1.FIBDset1.Edit;
dm1.FIBDset1.FieldByName('tip_doc').AsString:= 'P'; dm1.FIBDset1.Next;
end;
Pero debo reconocer que no conozco los componentes FIBplus y tal vez difieran radicalmente de los que utilizo.
Por si te puediera orientar, usando un
TIBDataSet yo haría:
Código Delphi
[-]
...
with IBDataSet1 do
begin
Close;
SelectSQL.Text:= 'UPDATE PEDIDOS SET TIP_DOC = :TDOC';
ParamByName('TDOC').AsString:= 'P';
Open;
end;
...
Saludos.