Error en Aplicacion

[calciojar]

Empezado por eduarcol

Supongo que trabajas con PARADOX, de ser asi debes actualizar los indices de la tabla que es el problema que debes tener. Esto es tratando de adivinar ya que no colocas con que trabajas

DELPHI, EMS INTERBASE & FIREBIRTH MANAGER

[[enecumene]]

Hola, miren no se nada de Interbase o Firebird, pero no deberia de ser asi?:

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

Digo yo, no sé,

Saludos.

[[Caral]]

Hola

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

Saludos

[[Caral]]

Hola
La verdad entiendo poco.
Por que no colocas el codigo completo del from, ademas del codigo sql de qryBusFac.
Por favor trata de usar las etiquetas delphi, presionas Ir a Avanzado y veras arriba unos botones, hay uno que dice Delphi, entra las etiquetas que coloca en el mensaje pones el codigo.
Si tienes dudas avisa.
Saludos

[calciojar]

Hola Modifique la linea que me diste de codigo pero sigue igualito con el mismo error

[[Caral]]

Hola
Cual es el codigo de qryBusFac
Saludos

[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]]

Por lo que estoy viendo... es posible que el error provenga de otro lado. Además he notado que el código que muestran tiene una incosistencia: el parámetro es de tipo string, mientras que en el cuerpo del procedimiento, asumen que es un TEdit:

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

Lo que no me está quedando claro que es lo que desea calciojar. ¿Hacer un like? Esto me lo pregunto por el hecho de que pone el comodin %.

El error que menciona de "fuera de rango" viene de otro lado...

Hay algo en otra parte que hace fallar el código. Sería útil que calciojar exponga más código del que expuso y que explique con mayor detalles que desea conseguir.

EDITO: veo que ya expuso más código, pero no es allí el problema. El problema viene del armado de la consulta SQL que está armando y/o de otro lugar. Asi lo estoy comprendiendo yo.

Saludos,