error en el report manager

[Anyu]

hola a todos, si este no es el lugar correcto donde debi haber posteado mi duda me disculpo con ustedes, pero tengo el sgte. problema:

necesito imprimir una chequera de clientes, nada mas, no traigo nada de una base de datos ni nada... simplemente tengo una ventana hecha en delphi que trae un report al que se le pasa parametros como, nombre de cliente, monto a abonar, y el mes donde debe abonar, es todo, todo se llena en la interfaz y se pasa como parametro, esta todo hecho, el problema es que en mi informe me salta un error que dice, "indice de la lista fuera de rango (10)", no se que pueda ser, ni como corregir.

desde ya les cuento que no cree ninguna conexion a ninguna base de datos ni nada que se le paresca porque no era necesario, osea no existe una base de datos, solo parametros a imprimir.

[[maeyanes]]

Hola...

Por el mensaje de error, estás saliendote del rango de una lista o un arreglo. Esto es, tu aplicación está tratando de obtener un valor con índice 10 de alguna lista o arreglo, pero este no existe.

Si puedes el código donde te produce el error podríamos ayudarte un poco más.


Saludos...

[Anyu]

no uso ningun arreglo en ninguna parte, esto es mi codigo en delphi:

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;
codigo.Enabled:=true;
contrato.Enabled:=true;
cuota.Enabled:=true;
titular.Enabled:=true;
Edit1.Enabled:=true;
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
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;
report.Filename:=f_chequera.report.Filename;
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;
end;

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

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

end.

como ven es algo estupido y simple, es una ventana donde deben llenar datos, estos se les pasa al report y deberia imprimir pero no pasa nada, ahora tengo otro error que me dice que no hay espacio para imprimir y no entiendo porque el tamaño de mi pagina es mas grande que el de mi informe, es para una hoja tamaño 2100*3100, es para una matricial epson lx-300 que utiliza aun el lpt1

[[maeyanes]]

Hola...

A simple vista no se ve donde pueda estar el error. ¿En que línea te indica que ocurre el error?

Revisa la pila de ejecución de la aplicación al momento que ocurre el error, esto te puede dar una idea en que método se produce este.


Saludos...

[Anyu]

prove mi ejecutable en otras maquinas, el error es en el informe no en mi codigo delphi es el informe, me dice que no hay espacio para imprimir, y no entiendo como, porque yo creo haber puesto la configuracion de la pagina e impresora correctamente

[[Lepe]]

Yo es que no entiendo esto:

Código Delphi [-]
report.Filename:=f_chequera.report.Filename;
report.Report.Params[0].Value:= titular.Text;

¿me puedes explicar qué es qué?
porque report es un TCLXReport, pero f_chequera.report ¿no es acaso el mismo? ¿usas varias instancia del mismo form con distinta variable?

Otro detalle: ¿estás programando en linux o pretendes que sea compatible? Al menos yo he usado el TVCLReport

¿donde has configurado el tamaño de página? ¿dentro de Report Designer?

es para una hoja tamaño 2100*3100

pero ¿en qué unidades? porque Reportman usa twips y una pulgada son 1440 twips, por tanto 2100 vendría a ser 4 centímetros y pico, pero no sé si 2100 es el ancho o el alto.


Saludos