5 replies to this topic

[TiammatMX]

Jóvenes ilustres...

Resulta que tengo un reporte que NO ESTÁ LIGADO A DATOS mediante NINGÚN componente de manejo de bases de datos, en el cual estoy ingresando vía la creación de una etiqueta por renglón (a la vieja usanza COBOL, Clipper, etc. ) de cada uno de los registros de ciertas tablas, mediante un contador que hace las veces de posicionador dentro de un renglón de la banda de detalle, de ésta manera:

delphi

procedure EtiquetaReporte(qrReporte : TqckrprtDerivacionPaciente; iRenglon : integer; sContenido : string);
  begin
    with TQRLabel.Create(qrReporte.DetailBand1) do
    begin
      Parent := qrReporte.Bands.DetailBand;
      Left := 0;
      Top := iRenglon;
      Alignment := taLeftJustify;
      AutoSize := True;
      Caption := sContenido;
    end;
  end;

Y el pilón, una funcioncita para añadir espacios al texto. Simple pero efectiva.

delphi

function Espacios(iCantidad : integer) : string;
  var
    iEspacio : integer;
  begin
    Result := '';
    for iEspacio := 1 to iCantidad do
      Result := Result + ' ';
  end;

El punto es que ahora, cuando el contador de renglón llegue a un cierto número (o condicionamiento) debo ejecutar alguna instrucción (la cual desconozco por el momento y gracias a su valiosa colaboración conoceré) y entonces reiniciar el contador de renglón hasta el punto en que se cumpla la condición y así.

Jóvenes, requiero saber qué instrucción debo enviar a TQuickReport para que agregue una nueva página al reporte, agradeciendo de antemano su colaboración.

[Caral]

Hola
Segun entiendo la propiedad ForceNewPage = true.
Saludos

[TiammatMX]

Hola
Segun entiendo la propiedad ForceNewPage = true.
Saludos

Ya lo probé, cuando está en True ANTES de imprimir la banda que tiene ésta propiedad genera una nueva página.

Solamente para clarificar. la cantidad de renglones es 'n', yo estoy sumando en 'x', quiero que cuando 'x' sea igual o mayor a 'n', genere una nueva página para que 'x' sea nuevamente cero.

[egostar]

Hola
Segun entiendo la propiedad ForceNewPage = true.
Saludos

Ya lo probé, cuando está en True ANTES de imprimir la banda que tiene ésta propiedad genera una nueva página.

Solamente para clarificar. la cantidad de renglones es 'n', yo estoy sumando en 'x', quiero que cuando 'x' sea igual o mayor a 'n', genere una nueva página para que 'x' sea nuevamente cero.

Ya intentaste con esto:

delphi

if x >= n then
  QuickRep1.NewPage;

Saludos

[TiammatMX]

Ya intentaste con esto:

delphi

if x >= n then
  QuickRep1.NewPage;

Saludos

En éste preciso instante lo acabo de probar y "truena" como chinampina (o sea, arroja una escandalosa excepción)..., ¿más ideas, por favor?

[TiammatMX]

Me respondo a mí mismo...

¡Oh, Gran Maestro! Usando un TQRStringgridReport y rellenando un TStringGrid puedes lograr el efecto que deseas...

Y ésta, señoras y señores, es la solución a éste hilo. Servidos.