FiveTech Software tech support forums

Estimados

En ocasiones me sale este error ( error (6) deleting )

pero no es por que me falta un ENDPAGE, si no es por que sobrepasa la hoja al parecer, mi consulta es como se hace para que cuando finalize el report me imprima n lineas, que puede se 1 a n..

Lo estoy haciendo Asi y el problema esta en ON END SayMemo2( oReport, aFactu ) ;

Code: Select all  Expand view

ACTIVATE REPORT oReport ;
         ON CHANGE ;
               ( ;
               SayMemo( oReport, aCentral[nPos,7] ),;
               );
         ON END SayMemo2( oReport, aFactu )  ;
         WHILE nPos <= Len( aCentral )

static Function SayMemo( oReport, aArray )

   if !empty( aArray )
      aEval( aArray, { |x| ;
                     ;
                     oReport:StartLine(),;
                     oReport:Say(1,space(5)+x[1]),;
                     oReport:Say(3,padr(x[2],25)),;
                     oReport:Say(4,x[3]),;
                     oReport:Say(5,x[4]),;
                     oReport:Say(6,x[5]),;
                     oReport:EndLine();
                     } )
   endif

return( nil )
//----------------------------------------------------------------------------------------------------
static Function SayMemo2( oReport, aArray )
   local cLine, lEnd := .f.

   if !empty( aArray )
      aEval( aArray, { |x| ;
                     ;
                     oReport:StartLine(),;
                     oReport:Say(1,space(5)+x[1]),;
                     oReport:Say(3,padR(x[2],25)),;
                     oReport:Say(4,trans(x[3],"99,999,999") ),;
                     oReport:Say(5,trans(x[4],"99,999,999") ),;
                     oReport:EndLine();
                      } )
   endif

return( nil )
//----------------------------------------------------------------------------------------------------


Patricio:

El problema se presenta cuando imprimes más alla del final de la página, intenta ampliando el márgen inferior del reporte o utiliza el siguiente código por cada línea impresa en la función SayMemo2

IF oReporte:NeedNewPage()
oReporte:EndPage()
oReporte:StartPage()
ENDIF

Saludos

Gracias armando por responder

segui tus indicaciones pero aun sale el error..

Code: Select all  Expand view

static Function SayMemo2( oReport, aArray )

   if !empty( aArray )
      aEval( aArray, { |x| ;
                     ;
                     iif( oReport:NeedNewPage(),(oReport:EndPage(), oReport:StartPage()), NIL  ),;
                     oReport:StartLine(),;
                     oReport:Say(1,space(5)+x[1]),;
                     oReport:Say(3,padR(x[2],25)),;
                     oReport:Say(4,trans(x[3],"99,999,999") ),;
                     oReport:Say(5,trans(x[4],"99,999,999") ),;
                     oReport:EndLine();
                      } )
   endif

return( nil )
//----------------------------------------------------------------------------------------------------


ahora probando esto

Code: Select all  Expand view

static Function SayMemo2( oReport, aArray )
   local nStdLineHeight := oReport:nStdLineHeight

   if !empty( aArray )
      aEval( aArray, { |x| ;
                     ;
                     iif( oReport:NeedNewPage( nStdLineHeight ),(oReport:EndPage(), oReport:StartPage() ), NIL  ),;
                     oReport:StartLine(),;
                     oReport:Say(1,space(5)+x[1]),;
                     oReport:Say(3,padR(x[2],25)),;
                     oReport:Say(4,trans(x[3],"99,999,999") ),;
                     oReport:Say(5,trans(x[4],"99,999,999") ),;
                     oReport:EndLine();
                      } )
   endif

return( nil )


igual sale el error pero por lo menos lanza una segunda pagina

si alguien tiene otra solucion es bienvenida

Patricio:

Yo intentaría ponerlo despues de imprimir:

static Function SayMemo2( oReport, aArray )
local cLine, lEnd := .f.

if !empty( aArray )
aEval( aArray, { |x| ;
;
oReport:StartLine(),;
oReport:Say(1,space(5)+x[1]),;
oReport:Say(3,padR(x[2],25)),;
oReport:Say(4,trans(x[3],"99,999,999") ),;
oReport:Say(5,trans(x[4],"99,999,999") ),;
oReport:EndLine();
IIF(oReporte:NeedNewPage(),;
(oReporte:EndPage(),oReporte:StartPage()),)} )
endif

return( nil )

Saludos