Nomina Qreport

[luis vazquez]

buena mira yoya termine un suistema de nomina y tuve el mismo problema, lo resolvi asiendo todo el recibo en la banda de detalle y la ajuste al tamaño que requeria si ajusta el tamaño encogiendo o estirando la altura el mismo qrepor te sacara una o varias depaendiendo del tamaño de papel, asi de facil sin complicaciones, el uso de las demas bandas me ocacionava problemas al tratar de ajustar.

me explico crea una banda de detalle y alli metes encavesado y los destalles del recibo (colilla), el tamaño se lo das estirando y encogiendo los limites de la banda,

suerte

[ingabraham]

Empezado por luis vazquez

buena mira yoya termine un suistema de nomina y tuve el mismo problema, lo resolvi asiendo todo el recibo en la banda de detalle y la ajuste al tamaño que requeria si ajusta el tamaño encogiendo o estirando la altura el mismo qrepor te sacara una o varias depaendiendo del tamaño de papel, asi de facil sin complicaciones, el uso de las demas bandas me ocacionava problemas al tratar de ajustar.

me explico crea una banda de detalle y alli metes encavesado y los destalles del recibo (colilla), el tamaño se lo das estirando y encogiendo los limites de la banda,

suerte

muchisimas gracia luis,

mira y te explico q utilizo
title band1, titulo de la nomina
qrgroup1, datos del empleado
qrband, detalles ded,dev
sumaryband, totales ded,dev,neto

como se llama la de detalle q dices¿, es q no manejo mucho el qreport, puedo meter todo esto alli¿ y la agrupacion q pasa?.
agradezco tu atencion compañero

[ingabraham]

Agradezco a todos la ayuda, el problema lo resolvi, con una pequeña orientación que me brindo un colega.
Gracias a todos y aqui esta el codigo para el que lo necesite en algun futuro.

En el evento BeforePrint del QRGroup del qreport, colocar este codigo para que aparezcan el nro de colillas deseadas

Código Delphi [-]

procedure TForm29.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
     
  if (NHOJAS mod  3 =0 )Then
  begin
      Form29.QRGroup1.ForceNewColumn:=True; //NUEVA HOJA -SALTAR
      Form29.QRGroup1.ForceNewpage := True;
  end
   else
     begin
       Form29.QRGroup1.ForceNewColumn:=false; //COLILLAS UNIDAS
       Form29.QRGroup1.ForceNewpage:=false;
      end;
       
    inc(NHOJAS);

end;