Error en Aplicacion

[calciojar]

Este es el codigo del Modulo Reportes (dmReportes)

Código Delphi [-]
unit dm_Reportes;

interface

uses
  SysUtils, Classes, FR_DSet, FR_DBSet, DB, IBCustomDataSet, IBQuery, Forms,
  IBSQL;

type
  TdmReportes = class(TDataModule)
    qryMatriNom: TIBQuery;
    dsMatricula: TDataSource;
    frMatricula: TfrDBDataSet;
    qryMatriNomNOMBRE_APELLIDO: TIBStringField;
    qryBusFac: TIBQuery;
    dsBusFac: TDataSource;
    qryBusFacCOD_FACTURA: TIntegerField;
    //procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Guardas;
  public
    { Public declarations }
    Procedure BuscarMatriNom(Nombre: String);
    procedure BusFac(Factura: String);
  end;

var
  dmReportes: TdmReportes;

implementation

uses dm_Conexion, dm_Tablas, frm_CambiarLoginPass, frm_Codificadores,
  frm_Facturar, frm_InformesRecaudo, frm_InformesUsuario,
  frm_InformesVarios, frm_IngresarPagos, frm_Inicio, frm_Matricula,
  frm_Principal, DateUtils;

{$R *.dfm}

procedure TdmReportes.BuscarMatriNom(Nombre: String);
begin
  with qryMatriNom do
  begin
    Close;
      ParamByName('parametro').AsString := '%'+Nombre+'%';
    Open;
  end;
end;

procedure TdmReportes.BusFac(Factura: String);
Begin
  with qryBusFac do
  begin
    //Close;
      ParamByName('PMBusFac').AsString := '%'+Factura+'%';
    Open;
  end;
end;

procedure TdmReportes.Guardas;
begin
  dmConexion.SalvarTransaccion;
end;

end.

[[enecumene]]

efectivamente estaba pensando yo amigo Delphius, tal vez el problema puede venir de la sentencia SQLo en el onchange del edit, en fin en otro lado.

Saludos.

[calciojar]

Empezado por enecumene

efectivamente estaba pensando yo amigo Delphius, tal vez el problema puede venir de la sentencia SQLo en el onchange del edit, en fin en otro lado.

Saludos.

HOLA. en el OnChange del Edit tengo lo siguiente

Código Delphi [-]
dmReportes.BusFac(Factura.Text);

[[Delphius]]

Empezado por calciojar

HOLA. en el OnChange del Edit tengo lo siguienteCódigo Delphi [-]dmReportes.BusFac(Factura.Text);

calciojar, el error que tu tienes viene de más atrás del paso del OnChange. Es muy problable que se trata del armado de la consulta SQL. ¿Por casualidad estás limpiando el TQuery antes de armar la consulta?
No se estoy divagando... pero estoy seguro que el problema no es el OnChange.

Saludos,

[calciojar]

HOLA. modifique la consulta y ahora me aparece otro error:

SQL Parce error:
Parameter Name Expected

[calciojar]

Empezado por calciojar

HOLA. modifique la consulta y ahora me aparece otro error:

SQL Parce error:
Parameter Name Expected

la consulta es:

select
factura.cod_factura
from
factura
where
factura.cod_factura like : PMBusFac
order by factura.cod_factura

[[enecumene]]

Empezado por calciojar

HOLA. modifique la consulta y ahora me aparece otro error:

SQL Parce error:
Parameter Name Expected

calciojar, si no pones la consulta aqui no podemos avanzar en conseguirte la solución.

SAludos.

[calciojar]

Empezado por enecumene

calciojar, si no pones la consulta aqui no podemos avanzar en conseguirte la solución.

SAludos.

la consulta es:

Código Delphi [-]
 select
  factura.cod_factura
from
  factura
where
  factura.cod_factura like : PMBusFac
  order by factura.cod_factura

[[Delphius]]

Empezado por calciojar

HOLA. modifique la consulta y ahora me aparece otro error:

SQL Parce error:
Parameter Name Expected

calciojar, ¿De que modo más amable posible te podemos pedir que por favor expongas tu consulta SQL?

Te estamos diciendo de la mejor manera que tu problema viene de allí, y hasta es posible que más atrás... pero no podemos adivinar. Necesitamos más información de la que nos das. No estamos allí contigo como para saber que es lo que te falla.

Te lo pido, por favor... explicate mejor que deseas hacer, cual es tu consulta, y/o cualquier información relevante. ¿Que cambios haz hecho?

Saludos,

[[enecumene]]

Por qué no intentas esto, no se si funcionará, pero vale ahi va:

Código Delphi [-]
procedure TdmReportes.BusFac(Factura: String);
var
   Filtro : String;
begin
   If (Factura.Text <> '') then
   begin
      qryFact.Filtered := False;
      Filtro := 'Factura Like ''%' +Factura.Text+ '%''';
      qryFact.Filter := Filtro;
      qryFact.Filtered := True;
   end
   else qryFact.Filtered := False;

end;

Concuerdo con delphius, por que no posteas la Sentencia SQL del query?

Saludos.

[[Caral]]

Hola
Lo mas seguro es que me equivoco, pero me parece que el codigo lo estas escribiendo directamente en el form del Qreport, es asi?.
Saludos

[calciojar]

MUCHACHOS GRACIAS A USTEDES YA ME FUNCIONO SOLO HACIA FALTA UNIR LOS :AL PARAMETRO COMO DECIA NUESTRO COMPAÑERO(A) D&W.

select
factura.cod_factura
from
factura
where
factura.cod_factura like :PMBusFac
order by factura.cod_factura

DE TODAS MANERAS ME GUSTA MUCHO QUE TODAS LAS PERSONAS ME AYUDARAN
LES AGRADESCO, PUESTO QUE ESTOY HACIENDO UNA APLICACION QUE TENGO
QUE ENTREGARLA A MEDIADOS DE MARZO. ESPERO QUE SI TENGO ALGUNA
DUDA MAS ME PUEDAN COLABORAR. GRACIASSSSS

[calciojar]

HAAAA Y UNA PREGUNTA ME PODRIAN EXPLICAR EL CODIGO DEL FILTRO QUE ME DIERON???

Código Delphi [-]
procedure TdmReportes.BusFac(Factura: String);
var
   Filtro : String;
begin
   If (Factura.Text <> '') then
   begin
      qryFact.Filtered := False;
      Filtro := 'Factura Like ''%' +Factura+ '%'' order by facturas ASC';
      qryFact.Filter := Filtro;
      qryFact.Filtered := True;
   end
   else qryFact.Filtered := False;

end;

[[egostar]]

Empezado por calciojar

DE TODAS MANERAS ME GUSTA MUCHO QUE TODAS LAS PERSONAS ME AYUDARAN
LES AGRADESCO, PUESTO QUE ESTOY HACIENDO UNA APLICACION QUE TENGO
QUE ENTREGARLA A MEDIADOS DE MARZO. ESPERO QUE SI TENGO ALGUNA
DUDA MAS ME PUEDAN COLABORAR. GRACIASSSSS

Hola calciojar
Por mera curiosidad, que porcentaje de tu proyecto llevas hecho

Salud OS

PD. No escribas con mayúsculas, no se ve bien, ya leiste nuestra guía de estilo?