Report ( error (6) deleting enchanced metafile
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
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 ) ;
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 )
//----------------------------------------------------------------------------------------------------