Justificar campo memo
Posted: Fri Apr 11, 2008 9:48 am
Buenos dias
Tengo un listado hecho con una temporal en el cual algunos de _ q debo mostrar son memo, tengo una función en la cual utilizo memoline para que me muestre dicho campo,pero necesito que el texto me salga justificado.Os muestro esa función a ver si me podeis orientar un poco.
Gracias de antemano
static function muestramemo2(CAMPO,xalias,tamanyo,titulo)
local cCadena,nCanlin,mlcount
local CampoBase
if tamanyo = nil
tamanyo:=90
end if
if titulo=nil
titulo:="CAMPO " + campo
end if
CampoBase:=xAlias + "->" + alltrim(campo)
cCadena:=MemoLine(&CampoBase ,tamanyo,1 )
temporal->(dbappend())
repl temporal->campo with titulo + cCadena
nCANLIN := MLCOUNT (space(if(len(alltrim(titulo))=0,0,len(titulo) + 2)) + &CampoBase,tamanyo)
IF nCANLIN > 1
FOR X := 2 TO nCANLIN
cCadena:=MemoLine( &CampoBase,tamanyo,x )
temporal->(dbappend())
repl temporal->campo with space(5) + alltrim(cCadena)
NEXT
ENDIF
return
FW 2.4 Version 7.12
Tengo un listado hecho con una temporal en el cual algunos de _ q debo mostrar son memo, tengo una función en la cual utilizo memoline para que me muestre dicho campo,pero necesito que el texto me salga justificado.Os muestro esa función a ver si me podeis orientar un poco.
Gracias de antemano
static function muestramemo2(CAMPO,xalias,tamanyo,titulo)
local cCadena,nCanlin,mlcount
local CampoBase
if tamanyo = nil
tamanyo:=90
end if
if titulo=nil
titulo:="CAMPO " + campo
end if
CampoBase:=xAlias + "->" + alltrim(campo)
cCadena:=MemoLine(&CampoBase ,tamanyo,1 )
temporal->(dbappend())
repl temporal->campo with titulo + cCadena
nCANLIN := MLCOUNT (space(if(len(alltrim(titulo))=0,0,len(titulo) + 2)) + &CampoBase,tamanyo)
IF nCANLIN > 1
FOR X := 2 TO nCANLIN
cCadena:=MemoLine( &CampoBase,tamanyo,x )
temporal->(dbappend())
repl temporal->campo with space(5) + alltrim(cCadena)
NEXT
ENDIF
return
FW 2.4 Version 7.12