3 respuestas en este tema

[martinartaza]

Hola querida comunidad, le comento que estoy tratando de usar LazReport desde lazarus y tengo un problemita que no se como sobrellevar, si alguien me tira un gancho me vendría bien.

En mi projecto tiro un frreport1 y un frdesigner1 (más adelante quiero hacer el diseño).
Le hago doble clic al frreport1 y creo el reporte, tirando 2 bandas, en la primera tiro 1 objeto que contiene el titulo, en la segunda banda tiro otro objeto que dice "Nombre del paciente:", si ahora le doy clic a preview, va todo bien, pero luego me voy a "Archivos->Lista de variable" y creo una variable llamada Nombre y si le doy preview todo bien, perrroooooo, si tiro otro objeto y adentro escribo [nombre] y luego le doy preview me sale el siguiente error: "Ocurrio un error durante el calculo [nombre] Reporte frreport1 [aceptar]"
sin embargo guardo el archivo con el nombre reporte1.lrf y sigo en lazarus y escribo el siguiente código.

delphi

procedure Tfzvac.MImprimirClick(Sender: TObject);
begin
   frReport1.LoadFromFile('Reporte.lrf');
   frReport1.Values.FindVariable('nombre').Field := 'Juancito';
   frReport1.PrepareReport;
   frReport1.ShowReport;
end;

y lo compilo y me sale el siguiente error.

"Project Project1raise exception class "External:SIGSEGV" [Aceptar]

Por ende estoy trabado, no se como hacer, solo tengo hacer un reporte simple pasando 10 variables nada de base de datos, alguien me ayuda por favor.

Nota: si saco el objeto que hace referencia a [nombre] y la linea de código que da valor a nombre, me anda de 10, por ende calculo que el lazreport está bien instalado.

[fredycc]

Hola martinartaza, podrías probar obtener los valores en el evento del frReport llamado OnGetValue.

delphi

procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant);
begin
  if ParName = 'cliente' then  // customer
    ParValue := Edit1.Text;
    
  if ParName = 'direccion' then  // address
    ParValue := Edit2.Text;
    
  if ParName = 'nombre' then // product
    ParValue := StringGrid1.Cells[0, fila];
    
  if ParName = 'precio' then // price
    ParValue := StringGrid1.Cells[1, fila];
    
  if ParName = 'total' then
    ParValue := Edit5.Text;
end;

También podría ser el tipo de banda en la que hallas colocado la variable en el reporte, pero de eso no estoy muy seguro, el código de arriba lo obtuve de los ejemplo de Lazreport en: C:\lazarus\components\lazreport\samples\stringgrid.


O bien sube tu proyecto y lo vemos.


Saludos

[martinartaza]

Muchas gracias !!!Fredyc¡¡¡¡ es la segunda vez que me ayudas con el proyecto final de mi carrera, algún día te invito un porron 

Te comento lo que hice, agregue tu código y comente una linea de código mia.

delphi

procedure Tfzvac.frReport1GetValue(const ParName: String; var ParValue: Variant
  );
begin
    if ParName='nombre' then
     ParValue:= 'juancito';
end;    
 
 
procedure Tfzvac.MImprimirClick(Sender: TObject);
begin
   frReport1.LoadFromFile('Reporte.lrf');
   //frReport1.Values.FindVariable('nombre').Field := 'Juancito';
   frReport1.PrepareReport;
   frReport1.ShowReport;
end;         

y quedo perfecto, la banda no importa la cambie varias veces y anda igual.

[fredycc]

Que bien que te halla funcionado martinartaza, te recomiendo veas los demos en el mismo directorio de Lazreport, te pueden dar muchas ideas.






Saludos