En donde esta mi ERROR....

[yesmina]

Hola nuevamente...

Trabajo con ASP.Net, y quiero ejecutar un SP para insertar un registro, a traves de una clase,, cuando lo ejecuto por primera vez todo bien, pero si deseo volver a insertar un registro, simplemente no realiza ninguna modificacion en mi BD,,, y no entiendo el problema,,,
Se me ocurrio que era problema del SP, pero ya lo vengo ejecutando un monton de veces a traves del Analizadr de Consultas, y este si lo ejecuta, sin ningun problema...

Este es el codigo del SP:


CREATE PROCEDURE usp_I_OrdenTrabajo_Insertar

@id_persona char(8),
@id_categoria int,
@id_DC int,
@id_act int,
@descrip varchar(100),
@estado varchar(1),
@prioridad varchar(1),
@doc_refe varchar(20)

AS

BEGIN TRAN
Insert into
otrOTRp_Ordentrabajo (id_persona,CATid_categoria,DCGid_detalle,ACTid_ac tividad,OTRdescripcion,OTRfec_pedido,OTRfec_previs ta,OTRestado,OTRprioridad,OTRdoc_referencia)
values(@id_persona,@id_categoria,@id_DC,@id_act,@d escrip,getdate(),getdate()+1,@estado,@prioridad,@d oc_refe)
IF @@Error<>0
begin
rollback
end
COMMIT TRAN
GO

Y este de donde ejecuto el SP:

Sub prcInsertar_Orden()
Dim cmd As New SqlCommand
Dim Cnn As New ClsConexion
Dim LstrError As String
Dim LstrResult As Integer
cmd.Connection = Cnn.PcnnCadenaConex
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "usp_I_OrdenTrabajo_Insertar"

cmd.Parameters.Add(New SqlParameter("@id_persona", SqlDbType.Char, 8))
cmd.Parameters.Add(New SqlParameter("@id_categoria", SqlDbType.Int, 4))
cmd.Parameters.Add(New SqlParameter("@id_DC", SqlDbType.Int, 4))
cmd.Parameters.Add(New SqlParameter("@id_act", SqlDbType.Int, 4))
cmd.Parameters.Add(New SqlParameter("@descrip", SqlDbType.VarChar, 100))
cmd.Parameters.Add(New SqlParameter("@estado", SqlDbType.VarChar, 1))
cmd.Parameters.Add(New SqlParameter("@prioridad", SqlDbType.VarChar, 1))
cmd.Parameters.Add(New SqlParameter("@doc_refe", SqlDbType.VarChar, 20))

cmd.Parameters("@id_persona").Value = PstrId_Persona
cmd.Parameters("@id_categoria").Value = PstrId_Categoria
cmd.Parameters("@id_DC").Value = PstrId_Detalle
cmd.Parameters("@id_act").Value = PstrId_Actividad
cmd.Parameters("@descrip").Value = PstrDescrip
cmd.Parameters("@estado").Value = PstrEstado
cmd.Parameters("@prioridad").Value = PstrPrioridad
cmd.Parameters("@doc_refe").Value = PstrDoc_Referencia

Try
Cnn.fncConectar()
LstrResult = cmd.ExecuteNonQuery
Cnn.fncDesconectar()
Catch ex As SqlException
LstrError = ex.Message + " " + ex.Source
End Try
End Sub

Espero me puedan ayudar, gracias