procedimiento almacenado transaccion

[beimar24]

Buen dia apreciados ingenieros
tengo un sp donde le ingreso informacion a 7 tablas
pero mi problema radica en lo Siguiente
tengo la tablas

PERSONAS
CORREOS
CORREOS_PERSONAS

Hago el insert en la tabla PERSONAS
Hago el insert en la tabla CORREOS
Por medio de consultas recupero los ultimos id insertados
y los guardo en variables
luego inserto en la tabla CORREOS_PERSONAS los datos guardados en las variables

mi problema esta que cuando genera un error el insert de la tabla personas
de igual me inserta en las otras 2 tablas

tengo el siguiente sp

Código SQL:

CREATE proc insertaPersonas
@documento AS INT
,@codigo AS INT
,@nombres AS VARCHAR(100)
,@apellidos AS VARCHAR(100)
,@fechanacimiento AS DATE
 
,@correo AS VARCHAR(100)
,@Observacorreo AS VARCHAR(100)
 
,@telefono AS VARCHAR(100)
,@observaciontelefono AS VARCHAR(100)
 
,@genero AS VARCHAR(100)
,@observaciongenero AS VARCHAR(100)
 
,@cargo AS VARCHAR(100)
,@observacioncargo AS VARCHAR(100)
 
,@estadocivil AS VARCHAR(100)
,@observacionestadocivil AS VARCHAR(100)
 
 
AS
BEGIN try 
    BEGIN TRANSACTION
    
INSERT INTO  PERSONAS (Documento,Codigo_empresario,Nombres,apellidos,fecha_nacimiento)
VALUES(@documento,@codigo,@nombres,@apellidos,@fechanacimiento);
 
INSERT INTO  CORREOS(correo_electronico,estado_correo_electronico)
VALUES(@correo,@Observacorreo);
 
DECLARE @idpersona AS INT
SET @idpersona='';
SET @idpersona = (SELECT MAX (id_persona) FROM PERSONAS)
 
DECLARE @idcorreo AS INT
SET @idcorreo = (SELECT MAX (id_correo_electronico) FROM CORREOS)
 
INSERT INTO  CORREOS_PERSONAS (id_persona,id_correo_electronico)
VALUES(@idpersona,@idcorreo);
 
INSERT INTO  TELEFONOS (numero_telefono,observacion_numero)
VALUES(@telefono,@observaciontelefono);
 
DECLARE @idtelefono AS INT
SET @idtelefono = (SELECT MAX (id_telefono) FROM TELEFONOS)
 
INSERT INTO  TELEFONOS_PERSONAS (id_persona,id_telefono,estado_telefono)
VALUES(@idpersona,@idtelefono,@observaciontelefono);
 
INSERT INTO GENERO( nombre_genero,observacion_genero,id_persona)VALUES(@genero,@observaciongenero,@idpersona);
 
INSERT INTO CARGO(nombre_cargo,observacion,id_persona)VALUES (@cargo,@observacioncargo,@idpersona)
 
INSERT INTO ESTADO_CIVIL(nombre_estado_civil,observacion,id_persona)VALUES (@estadocivil,@observacionestadocivil,@idpersona)
 
commit tran
END try
BEGIN catch
    ROLLBACK 
    print error_message()
END catch
 

[beimar24]

pues he encontrado esta solucion y ya me funciona pero sigo sin Entenderla

Código SQL:

CREATE proc insertaPersonas1
@documento AS INT
,@codigo AS INT
,@nombres AS VARCHAR(100)
,@apellidos AS VARCHAR(100)
,@fechanacimiento AS DATE
 
,@correo AS VARCHAR(100)
,@Observacorreo AS VARCHAR(100)
 
 
AS
BEGIN try 
    BEGIN TRANSACTION
    
INSERT INTO  PERSONAS (Documento,Codigo_empresario,Nombres,apellidos,fecha_nacimiento)
VALUES(@documento,@codigo,@nombres,@apellidos,@fechanacimiento);
 
DECLARE @idpersona AS INT
SET @idpersona='';
SET @idpersona=IDENT_CURRENT('PERSONAS')
 
INSERT INTO  CORREOS(correo_electronico,estado_correo_electronico)
VALUES(@correo,@Observacorreo);
 
DECLARE @idcorreo AS INT
SET @idcorreo=IDENT_CURRENT('CORREOS')
 
INSERT INTO  CORREOS_PERSONAS (id_persona,id_correo_electronico)
VALUES(@idpersona,@idcorreo);
 
 
commit tran
END try
BEGIN catch
    ROLLBACK 
    print error_message()
END catch
 
 
SET @idpersona=IDENT_CURRENT('PERSONAS') ??
SET @idcorreo=IDENT_CURRENT('CORREOS')   ??
 

Seguire investigando en San Google
un abrazo ingenieros
quedo atento a sus amables comentarios

[beimar24]

Encontre esta información

https://msdn.microsoft.com/es-es/library/ms175098(v=sql.120).aspx


Devuelve el último valor de identidad generado para una tabla o vista especificadas. El último valor de identidad generado puede ser para cualquier sesión y cualquier ámbito.



IDENT_CURRENT devuelve el último valor de identidad generado para una tabla específica en cualquier sesión y cualquier ámbito.
@@IDENTITY devuelve el último valor de identidad generado para cualquier tabla en la sesión actual, en todos los ámbitos.
SCOPE_IDENTITY devuelve el último valor de identidad generado para cualquier tabla en la sesión y el ámbito actuales.
Cuando el valor de IDENT_CURRENT es NULL (porque la tabla nunca ha contenido filas ni ha sido truncada), la función IDENT_CURRENT devuelve el valor de inicialización.
Las instrucciones y transacciones con errores pueden cambiar la identidad actual de una tabla y crear espacios en los valores de la columna de identidad. El valor de identidad jamás se revierte, aun cuando no se haya confirmado la transacción que intentó insertar el valor en la tabla. Por ejemplo, si se produce un error en una instrucción INSERT debido a una infracción de IGNORE_DUP_KEY, el valor de identidad actual de la tabla se sigue incrementando.
Tenga cuidado al usar IDENT_CURRENT para predecir el siguiente valor de identidad generado. El valor generado real puede ser diferente de IDENT_CURRENT más IDENT_INCR a causa de las inserciones realizadas por otras sesiones.

quedo atento a sus amables comentarios ingenieros
un abrazo

[Libras]

y porque no estas usando el nombre completo de la transaccion para hacer el rollback??? y el ident current para que lo usas?? quieres el valor que se inserto?? si es asi porque no usas mejor un trigger, o porque no lanzas tu segundo insert al asegurarte que el dato se inserto? porque como dice el articulo del final, si usas identity puede ser que el ultimo no sea el que fue asignado a la tabla......

[beimar24]

Hola Libras muchas gracias por responder
como aseguro esto que tu dices

o porque no lanzas tu segundo insert al asegurarte que el dato se inserto? porque como dice el articulo del final, si usas identity puede ser que el ultimo no sea el que fue asignado a la tabla......




de antemano quedo muy agradecido por tus amables respuestas
Cordial saludo

[Libras]

Puedes usar desd diferentes bloques try y catch para cada insercion, manejo de errores con raiseerror, te dejo un liga para que tengas una mejor idea :)

http://dba.stackexchange.com/questio...ript-execution