Power Builder - Formatear campos para excel desde Power Builder

create procedure

dba.FN_FORMAT_NUMBER(@VALOR decimal(20,10),@PREFIJO varchar(10)= '',@SUFIJO varchar(20)= '',@DECIMALES integer)

--DECIMALES A MOSTRAR

--SEPARADOR DE MILES

--SEPARADOR DE DECIMALES

--PREFIJO EJEMPLO '$ '

--SUFIJO EJEMPLO ' PESOS'

as

begin

  declare @STR_VALOR_INTEGER varchar(100),

  @STR_VALOR_DEC varchar(100),

  @STR_VALOR varchar(100),

  @STR_MILES varchar(100),

  @POS_X integer,

  @SEP_DECIMALES char(1),

  @SEP_MILESCHAR char(1)

  -- REDONDEO DECIMALES

  select @VALOR=ROUND(@VALOR,@DECIMALES)

  select @STR_VALOR=convert(varchar(100),@VALOR)

  select @SEP_DECIMALES=','

  select @SEP_MILESCHAR='.'

  --- POSICION DEL PUNTO

  select @POS_X=CHARINDEX('.',@STR_VALOR)

  print '1'

  if @POS_X<>0

    begin

      select @STR_VALOR_INT="LEFT"(@STR_VALOR,@POS_X-1)

      select @STR_VALOR_DEC="RIGHT"(@STR_VALOR,LENGTH(@STR_VALOR)-(@POS_X+1))

    end

  else

    begin

      select @STR_VALOR_INT=@STR_VALOR

      select @STR_VALOR_DEC=''

    end

  print '2'

  select @STR_VALOR_DEC="LEFT"(@STR_VALOR_DEC+'0000000000',@DECIMALES)

  select @STR_MILES=''

  print '3'

  while @STR_VALOR_INT<>''

    print '4'

  if LENGTH(@STR_VALOR_INT)>3

    begin

      select @STR_MILES=@SEP_MILES+"RIGHT"(@STR_VALOR_INT,3)+@STR_MILES

      select @STR_VALOR_INT="LEFT"(@STR_VALOR_INT,LENGTH(@STR_VALOR_INT)-3)

    end

  else

    begin

      select @STR_MILES=@STR_VALOR_INT+@STR_MILES

      select @STR_VALOR_INT=''

    end

  select @STR_VALOR_INT=@STR_MILES

  print '5'

  if @VALOR<0 and @PREFIJO='(' and @SUFIJO=')'

    begin

      select @STR_VALOR=@PREFIJO+@STR_MILES+@SEP_DECIMALES+@STR_VALOR_DEC+@SUFIJO

    end

  else

    begin

      select @STR_VALOR=@PREFIJO+@STR_MILES+@SEP_DECIMALES+@STR_VALOR_DEC+@SUFIJO

    end

  return @STR_VALOR

end

---------------------------------------------

-- CARLOS ESQUIVEL campeon_1@hotmail.com  ---

---------------------------------------------