store procedure

[gigikra]

Buenos dias, necesito transformar la sigueinte funcion en un store procedures para sql server. por favor, me ayudan??

function AzaleaI2of5(var I2of5number: String): String;
var
I: Integer;
temp: String;

temp2: String;
chunk: String;

begin

If (Length(I2of5number) Mod 2) <> 0 Then
I2of5number := '0' + I2of5number;

temp2 := I2of5number;

For I := 1 To Length(I2of5number) div 2 do
begin
chunk := temp2;
delete(chunk, 3, length(chunk));

If StrToInt(chunk) < 90 Then

temp := temp + Chr(StrToInt(chunk) + 33)
Else
temp := temp + Chr(StrToInt(chunk) + 71);

delete(temp2, 1, 2)
end;

//add the start and stop bars (ASCII 171 & ASCII 172)

AzaleaI2of5 := Chr(171) + temp + Chr(172)

end;

[flaviovich]

Que lenguaje de programacion es?

[flaviovich]

Bueno, esto es una adaptacion. Solo queda lo del la funcion delete.

Código SQL:

CREATE FUNCTION AzaleaI2of5(@I2of5number VARCHAR(50))
RETURNS VARCHAR(50)
AS
 
BEGIN
 
DECLARE @i INT,
@temp VARCHAR(10),
@temp2 VARCHAR(10)
@chunk VARCHAR(50)
 
IF (Len(@I2of5number) &#37; 2) <> 0 
  SET @I2of5number = '0' + @I2of5number
 
SET @temp2 = @I2of5number
 
FOR @i = 1 TO Len(@I2of5number) / 2
BEGIN
    SET @chunk = @temp2
    SET @chunk = DELETE(@chunk, 3, Len(@chunk))
 
    IF StrToInt(@chunk) < 90
        SET @temp = @temp + Chr(StrToInt(@chunk) + 33)
    ELSE
        SET @temp = @temp + Chr(StrToInt(@chunk) + 71);
 
    SET @temp2 = DELETE(@temp2, 1, 2)
END;
 
//ADD the START AND stop bars (ASCII 171 & ASCII 172)
 
RETURN Chr(171) + @temp + Chr(172)
 
END
 

[gigikra]

muchas gracias por tu respuesta :)