8 respuestas en este tema

[TiammatMX]

Compañer@s, un excelente día a todos y todas...

Les platico mi dilema. Tengo una pantalla realizada en Delphi 7 (¡¡¡SÍ, EN DELPHI 7!!!, medio arcaico pero me funciona...  ) que generará una lista de precios, en la cual se listarán de acuerdo a la selección del usuario ciertos acabados de pintura (en la imagen, el lado derecho). Una vez que el usuario selecciona un acabado, se hace "check" en la opción, la cual se integra a un archivo de memoria como un campo más (o menos, dependiendo si tiene o no el "check"); pero aquí es donde viene el detalle que me tiene vuelto loco...

Tengo un reporte realizado en ReportBuilder, ya tengo el encabezado, un grupo por el que se realizarán los cortes del reporte..., pero necesito integrar los campos del archivo de memoria que contiene los resultados del proceso al reporte. Se me opcurrió hacerlo con un ciclo de éste tipo:

delphi

for i := 0 to TablaVirtual.FieldCount -1
  ppReporte.Detail.AddColumn(campo[i];[/i]

Pero me marca un error que me imposibilita el continuar añadiendo columnas. ¿Alguna idea que pueda ayudarme?

Archivos adjuntos

•  2292_fecc1efd690834d77acf1bc82def8b1804f5d353.jpg   356,16KB   14 descargas
•  2290_98aa3cf4094d051c04036b1004c0b5af2be3e12c.jpg   173,08KB   9 descargas

[Sergio]

No veo el error que te da, quizas esta en  la segunda imagen ¿es el texto que aparece recuadrado en rojo, o ese rojo es parte del diseño del report?

Por otro lado, el trozo de código que envias parece icompleto, no veo el cierre del parentesis...

delphi

for i := 0 to TablaVirtual.FieldCount -1
  ppReporte.Detail.AddColumn(campo[i];[/i]

¿No debería ser así?

delphi

for i := 0 to TablaVirtual.FieldCount -1
  ppReporte.Detail.AddColumn(TablaVirtual.Fields[i]);

De todas formas, supongo que el error te viene de contar usando FieldCount pero luego lo que vas agregando es otra lista de campos "campo" que igual no tiene tantas columnas como FieldCount. ¿Es posible que campos solo contenga aquellos que el usuario ha marcado, pero FieldCount se refiera a todos los campos, marcados y sin marcar?

Es un tiro al aire, pero igual va y es eso... 

[Rolphy Reyes]

Saludos.

@TiammatMX ¿Que versión de Report Builder tienes?

No encuentro ese método que estas utilizando.  Lo que hago es crear los Objetos at RunTime (TppLabel, TppDBText) sin problemas mayores.

[TiammatMX]

Saludos.

@TiammatMX ¿Que versión de Report Builder tienes?

No encuentro ese método que estas utilizando.  Lo que hago es crear los Objetos at RunTime (TppLabel, TppDBText) sin problemas mayores.

¡¡¡ROLPHY, ERES MI SALVACIÓN!!!, si tienes una muestra que me puedas prestar, te lo agradecería infinitamente.

[TiammatMX]

Rolphy, un favor..., ¿podrías contactarme en MSN? Necesito terminar hoy éste reporte, lo entrego mañana... 

Sé que no es lo normal en mí, pero estoy desesperadamente estresado.

[Rolphy Reyes]

Saludos.

Acá en el trabajo tengo un bosquejo, en mi casa tengo algo un poco más acabado.

Inicialmente ya tienes tu componente TppReport, TppPipeline, TDataSource y TDataSet ya configurado.  En el reporteador creas las dos bandas: Header, Detail. Al TppReport la propiedad Units asignale utScreenPixels.

Luego tienes esto en Código:

delphi

var
  FFieldName : String;
  lHeader: TppHeaderBand;
  lDetail : TppDetailBand;
  lLabel: TppLabel;
  lDBText: TppDBText;
begin
  //Label
  lLabel := TppLabel.Create(ppReporte);
  lLabel.Band := lHeader;
  lLabel.spLeft := 10;
  lLabel.spTop := 5;
  lLabel.AutoSize := True;
  lLabel.Caption := FFieldName;
 
  //DbText
  lDBText := TppDBText.Create(ppReporte);
  lDBText.Band := lDetail;
  lDBText.DataPipeline := ppPipeline;
  lDBText.DataField := FFieldName;
  lDBText.spLeft := lLabel.spLeft;
  lDBText.spTop := 5;
 
  ppReporte.Print;

Con esto puedes empezar y yo continuo ayudandote .

[Rolphy Reyes]

Saludos.

@TiammatMX, ¿En que quedo esto?, ¿Pudiste resolver?

[TiammatMX]

Saludos.

@TiammatMX, ¿En que quedo esto?, ¿Pudiste resolver?

Pues gracias a tu ayuda, terminado, resuelto y por entregar. Muchas gracias, Rolphy, y seguramente en una de ésas te andaré dando lata por ReportBuilder.

[Rolphy Reyes]

Saludos.

@TiammatMX, ¿En que quedo esto?, ¿Pudiste resolver?

Pues gracias a tu ayuda, terminado, resuelto y por entregar. Muchas gracias, Rolphy, y seguramente en una de ésas te andaré dando lata por ReportBuilder.

Saludos.

Mientras tenga el conocimiento, no se preocupe que estaremos dándole una manita!