Clarion - Codigo e barras

CREATE FUNCTION [dbo].[FNK_CODE128B] (@TEXTO VARCHAR(252))

RETURNS VARCHAR(255)

AS

BEGIN

	DECLARE @RESULTADO VARCHAR(255)

	DECLARE @CARACTER CHAR(1)

	DECLARE @CHECKSUM INT

	DECLARE @TMP INT

	DECLARE @ii INT

	SET @CHECKSUM = 104

	SET @ii = 1

	WHILE @ii <= LEN(@TEXTO)

	BEGIN

		SET @CARACTER = SUBSTRING(@TEXTO,@ii,1)

		SET @TMP = ASCII(@CARACTER)

		SET @TMP = CASE WHEN (@TMP >= 32 AND @TMP < 127) THEN @TMP - 32 ELSE @TMP END

		SET @CHECKSUM = @CHECKSUM + (@TMP*@ii)

		SET @ii = @ii + 1

	END

	SET @CHECKSUM = @CHECKSUM % 103

	SET @CHECKSUM =	CASE @CHECKSUM

					WHEN 95 THEN ASCII('È')

					WHEN 96 THEN ASCII('É')

					WHEN 97 THEN ASCII('Ê')

					WHEN 98 THEN ASCII('Ë')

					WHEN 99 THEN ASCII('Ì')

					WHEN 100 THEN ASCII('Í')

					WHEN 101 THEN ASCII('Î')

					WHEN 102 THEN ASCII('Ï')

					ELSE @CHECKSUM + 32

				END

	SET @RESULTADO = 'Ñ' + @TEXTO + CHAR(@CHECKSUM) + 'Ó'

	RETURN(@RESULTADO)

END

GO