Fórum DBExpress(SQLStoredProc) SQL 2000 #267627

[.DFM]
object SQLConnection1: TSQLConnection
  ConnectionName = ´MSSQLConnection´
  DriverName = ´MSSQL´
  GetDriverFunc = ´getSQLDriverMSSQL´
  LibraryName = ´dbexpmss.dll´
  LoginPrompt = False
  Params.Strings = (
    ´DriverName=MSSQL´
    ´HostName=.´
    ´DataBase=tempdb´
    ´User_Name=desenv´
    ´Password=desenv´
    ´BlobSize=-1´
    ´ErrorResourceFile=´
    ´LocaleCode=0000´
    ´MSSQL TransIsolation=ReadCommited´
    ´OS Authentication=False´)
  VendorLib = ´oledb´
  Left = 84
  Top = 4
end
object SQLStoredProc1: TSQLStoredProc
  MaxBlobSize = -1
  Params = <
    item
      DataType = ftInteger
      Name = ´@RETURN_VALUE´
      ParamType = ptResult
      Size = 4
    end
    item
      DataType = ftString
      Name = ´@NOME´
      ParamType = ptInput
    end
    item
      DataType = ftString
      Name = ´@ORIG´
      ParamType = ptInput
    end>
  SQLConnection = SQLConnection1
  StoredProcName = ´dbo.Mov_Vend´
  Left = 112
  Top = 4
end


[.PAS]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLStoredProc1.ParamByName(´@NOME´).AsString := ´xxx´;
  SQLStoredProc1.ParamByName(´@ORIG´).AsString := ´M´;
  SQLStoredProc1.ExecProc;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SQLConnection1.Connected := True;  
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SQLConnection1.Connected := False; 
end;

SQLSERVER:

CREATE TABLE VEND (CODIGO NVARCHAR(10), NOME NVARCHAR(36), ORIG NVARCHAR(1))
GO

CREATE PROCEDURE Mov_Vend @NOME AS NVARCHAR(36), @ORIG AS NVARCHAR(1) 
AS 
BEGIN 
DECLARE @CODIGO AS NVARCHAR(10) 
SET @CODIGO = NULL 
BEGIN TRANSACTION 
SET @CODIGO = (Select Max(Codigo)As MaxCod From Vend) 
IF @CODIGO <> NULL 
BEGIN 
SET @CODIGO = CAST((@CODIGO) AS INTEGER) + 1 
SET @CODIGO = ´00´ + CAST(@CODIGO AS NVARCHAR(2)) 
SET @CODIGO = SUBSTRING(@CODIGO, LEN(@CODIGO)-1, 2) 
END 
ELSE 
BEGIN 
SET @CODIGO = ´01´ 
END 
INSERT INTO VEND (CODIGO, NOME, ORIG) Values (@CODIGO, @NOME, @ORIG) 
COMMIT TRANSACTION 
END 
GO