error en el report manager

[Anyu]

si funciona igual, tenias razon, gracias.
tengo una consultita mas que hacerte, cuando envio los parametros a mi report los meto en un try en el caso de que carguen datos incorrectos como caracteres donde solo acepta enteros, asi me evito el tener que validarlos uno a uno ya que son TEdits nada mas, ya lo probe y funciona, es solo que me gustaria que en la ventanita de mi aviso aparesca un titulo como 'Atención', y el mensaje, como podria lograr eso con el showmensage?

Código Delphi [-]
ShowMessage('Verifique que los parámetros pasados sean los correctos');

[[maeyanes]]

Hola...

Tienes que usar un MessageBox. Busca en la ayuda de Delphi por TApplication.MessageBox.


Saludos...

[Anyu]

si....!!! gracias, ya esta!, ahora me voy a entregar el trabajito, jajaja
gracias a todos muchachos, quedo chupete el trabajo jeje.

[Anyu]

Hola lepe, veo que estas en linea, ayer tuve un problemita con el trabajo este que lleve, en mi computadora funciona el ejecutable pero haya no, me lanza un error que dice:

"Error al iniciar la aplicación porque no se encontró qtintf.dll. la reinstalación de la aplicación puede solucionar el problema."


una compañera me dijo que eso se debe a que existen ciertos paquetes que hay que instalar del borlan para que funcionen los ejecutables en otras maquinas que no tienen instalados el delphi, o quizas a mi se me este pasando alguna propiedad antes de compilarlo, no se, te agradeceria que me ayudaras, porque ayer quede con que se lo llevaba hoy, ensima es para una funeraria, tetrico....

[[Lepe]]

Parece que has incluido una unidad que no es para windows, por ejemplo, has puesto algo así como "uses QDialogs, Qprinters"... debes borrar la "Q" que tiene delante, ya que esas unidades están pensadas para aplicaciones CLX. Tú lo que estás usando es VCL.

Este fallo puede venir por usar un reportCLX (para linux) cuando en realidad debes usar reportVCL (para windows).

Ya que estás usando reportman, que no se olvide llevarte el archivo reportmanres.es (que lo tienes en la carpeta de instalación de reportman) y coloca ese archivo en la misma carpeta que tu ejecutable. De esa forma, si has usado el report.language := 1, te saldrán los mensajes en español, así como todos los mensajes de la vista preliminar.

Normalmente un programa hecho en delphi no necesita de nada más para ejecutarse, por ejemplo un form con TEdits, botones. Si incluyes Bases de datos ya es otro cantar, puedes necesitar algunas cosas más.

Estaba en linea, pero se vé que no actualicé los enlaces recientes, porque no ví este mensaje.


Para evitar todos estos inconvenientes, (faltan archivos para ejecutarse), te aconsejo usar virtualización (VirtualBox), básicamente es tener un windows dentro de otro, así puedes hacer las pruebas como si tuvieras un segundo ordenador sin delphi instalado, y ver todos esos errores que te pueden dar al ejecutar ese programa que estás haciendo.

Saludos

[Anyu]

este es mi codigo, la unica ventana que tengo:

Código Delphi [-]
unit chequera;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, rpcompobase, rpclxreport, Mask;

type
  Tf_chequera = class(TForm)
    TITULO: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    contrato: TEdit;
    codigo: TEdit;
    cuota: TEdit;
    titular: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    new: TBitBtn;
    print: TBitBtn;
    Shape1: TShape;
    report: TCLXReport;
    mes: TMaskEdit;
    exit: TBitBtn;
    procedure newClick(Sender: TObject);
    procedure printClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_chequera: Tf_chequera;

implementation

{$R *.dfm}

procedure Tf_chequera.newClick(Sender: TObject);
begin
mes.Enabled:=true;
mes.Text:=DateToStr(now);
codigo.Enabled:=true;
codigo.Text:='0';
contrato.Enabled:=true;
contrato.Text:='0';
cuota.Enabled:=true;
cuota.Text:='0';
titular.Enabled:=true;
titular.Text:='';
Edit1.Enabled:=true;
Edit1.Text:='0';
Edit2.Enabled:=true;
Edit2.Text:='0';
Edit3.Enabled:=true;
Edit3.Text:='0';
Edit4.Enabled:=true;
Edit4.Text:='0';
print.Enabled:=true;
end;

procedure Tf_chequera.printClick(Sender: TObject);
var cont: Integer;
begin
mes.Enabled:=false;
codigo.Enabled:=false;
contrato.Enabled:=false;
cuota.Enabled:=false;
titular.Enabled:=false;
Edit1.Enabled:=false;
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
print.Enabled:=false;
try
report.Report.Params[0].Value:= titular.Text;
report.Report.Params[1].Value:= StrToInt(cuota.Text);
report.Report.Params[2].Value:= contrato.Text;
report.Report.Params[3].Value:= StrToInt(codigo.Text);
report.Report.Params[4].Value:=StrToDate(mes.Text);
report.Report.Params[5].Value:=StrToInt(Edit1.Text);
report.Report.Params[6].Value:=StrToInt(Edit2.Text);
report.Report.Params[7].Value:=StrToInt(Edit3.Text);
report.Report.Params[8].Value:=StrToInt(Edit4.Text);
report.Execute;
except
 with Application do
  begin
    NormalizeTopMosts;
    MessageBox('Verifique que los parámetros pasados sean los correctos', 'Atención', MB_OK);
    RestoreTopMosts;
  end;
end;
end;

procedure Tf_chequera.exitClick(Sender: TObject);
begin
Close;
end;

procedure Tf_chequera.FormCreate(Sender: TObject);
begin
mes.Text:=DateToStr(now);
end;

end.

como veras no uso ningun componente que tenga una Q en frente, sera que no hay algun paquete que deba llevar a instalar en la maquina del cliente?

[Anyu]

Empezado por Lepe

Ya que estás usando reportman, que no se olvide llevarte el archivo reportmanres.es (que lo tienes en la carpeta de instalación de reportman) y coloca ese archivo en la misma carpeta que tu ejecutable.

copie el archivo que me dijiste en la carpeta donde esta mi ejecutable y no pasa nada, me sigue lanzando el mismo error, aqui encontre un hilo donde hablan de algo parecido al problema que estoy teniendo: http://www.clubdelphi.com/foros/showthread.php?t=13979 , pero no lo entiendo muy bien, instale el installShiel y no se como utilizarlo.

[Anyu]

ahora si...
ya lo he solucionado, el tema era que habia unos archivos de extension dll que debia copiar en mi carpeta de aplicacion o en el C:\WINDOWS\system32\wins, pero para no complicatme la vida lo copie en la carpeta de mi aplicacion, y luego lo probe en una maquina que no tenia instalado el delphi, y anduvo sin problemas, entonces cree una carpeta bin, los copie ahi, y luego lo agregue a mi path dentro de las variables de entorno de mi sistema, y quedo.

gracias de nuevo de todas formas.

anyu