Código Delphi [-] procedure TdmReportes.BusFac(Factura: String); Begin with qryBusFac do begin ParamByName('PMBusFac').Value := Factura.Text; Open; end; end;
procedure TdmReportes.BusFac(Factura: String); Begin with qryBusFac do begin ParamByName('PMBusFac').Value := Factura.Text; Open; end; end;