Procedure Delphi Color with 6 positions

CREATE OR ALTER PROCEDURE PRO_COR_6_POSICOES (COR VARCHAR(10), PREFIXO VARCHAR(1))
RETURNS (RESULT VARCHAR(10))
AS
DECLARE VARIABLE STRAUX VARCHAR(10);
BEGIN
  STRAUX = REPLACE(:COR, '$', '');
  STRAUX = REPLACE(:STRAUX, '#', '');

  IF (CHAR_LENGTH(:STRAUX) = 6) THEN
    RESULT = :PREFIXO||:STRAUX;
  ELSE
  IF (CHAR_LENGTH(:STRAUX) = 8) THEN
    RESULT = :PREFIXO||SUBSTRING(:STRAUX FROM 3 FOR CHAR_LENGTH(:STRAUX));

  SUSPEND;
END;