Código Delphi [-] with IBDataSet1 do begin Close; SelectSQL.Text:= 'UPDATE PEDIDOS SET TIP_DOC = :TDOC'; ParamByName('TDOC').AsString:= 'P'; Open; end;
with IBDataSet1 do begin Close; SelectSQL.Text:= 'UPDATE PEDIDOS SET TIP_DOC = :TDOC'; ParamByName('TDOC').AsString:= 'P'; Open; end;