Fórum Imprimir orçamentos(interbase/quickreport) #393416

segue o codigo do botao:   procedure TFrmpedfiest.SpdrelatorioClick(Sender: TObject); var numpedido:integer; texto:string; begin application.CreateForm(tfrmrelpedfiest,frmrelpedfiest); if (frmcadpedfiest<>nil)and (frmcadpedfiest.IBTablepedidosCODPEDF.AsInteger>0)then numpedido:=frmcadpedfiest.IBTablepedidosCODPEDF.AsInteger else begin texto:=''; if inputquery('Impressao do Pedido','digite o numero',texto)then begin try numpedido:=strtoint(texto); except showmessage('numero invalido!'); frmrelpedfiest.QuickRep1.Preview; exit; end; end else begin frmrelpedfiest.Close; exit; end; end; {//if not frmrelpedfiest.IBTableitenspedidos.Locate 'numpedido' then begin showmessage('pedido nao encontrado!');   frmrelpedfiest.Close; exit; end; } frmrelpedfiest.QuickRep1.Preview; FRMRELPEDfiest.Free; end; //end; //end;   OBS: LOCATE não funciona, qual método de pesquisa devo usar neste código negritado para localizar o pedido e abrir o relatório.....pois no interbase não aceita o FINDKEY..como proceder, pois no paradox uso esta codificação. Tablepedidos.findkey([numpedido]) then ....restante em negrito.. Funciona perfeitamente.....Alguem pode me ajudar....? Esta codificação fica dentro do botao imprimir em um form com um dbgrid, ai clico no dbgrid onde esta o pedido q quero imprimir e ai abre com todos os dados, cabeçalho e itens do pedido...preciso usar este mesmo método no interbase....aguardo ajuda...