Boa tarde Eduardo.Romero.
Resolvi o problema: criei uma tabela que armazena o último ID de cada tabela. Criei uma procedure, no qual eu passo como parâmetros o nome da tabela e o campo desejados, e ela se encarrega de pegar o último ID, incrementá-lo e devolver para a procedure que
insere os dados no banco. Criei tb outra procedure que atualiza a tabela que contém os últimos IDS.
Funcionou... Eu coloquei um (XLOCK) na procedure 01 para impedir que dois usuários peguem o mesmo ID simultaneamente e dê problemas.. será que está certo assim?
================== Procedure 01====================================
CREATE PROCEDURE uspGerarIDControle
@NomeTabela VARCHAR(30),
@NomeCampo VARCHAR(30),
@NumeroControle INT OUTPUT
AS
BEGIN
DECLARE @Seq AS INT
--Cria um ID Sequencial com base na tabela tblTabelaSequencia
SELECT
@Seq = UltSeq + 1
FROM tblTabelaSequencia (XLOCK)
WHERE NomeTabela = @NomeTabela AND NomeCampo = @NomeCampo;
SET @NumeroControle = @Seq;
END
================== Procedure 02=====================================
CREATE PROCEDURE uspAtualizarIDControle
@NomeTabela VARCHAR(30),
@NomeCampo VARCHAR(30),
@NumeroControle INT
AS
BEGIN
--Atualiza o ID na tabela de sequencias
UPDATE
tblTabelaSequencia
SET UltSeq = @NumeroControle
WHERE NomeTabela = @NomeTabela AND @NomeCampo = @NomeCampo;
END
================== Procedure 03=====================================
CREATE PROCEDURE uspPessoaFisicaInserir
@NomeTabela VARCHAR(30),
@NomeCampo VARCHAR(30),
@Imagem VARBINARY(MAX),
@Ativo VARCHAR(1),
@NomeCompleto VARCHAR(100),
@Apelido VARCHAR(30),
@DataNascimento DATE,
@IDSexo INT,
@EstadoCivil INT,
@IDNacionalidade INT,
@IDCidadeNaturalidade INT,
@IDResidenciaTipo INT,
@QtdeFilhos INT
AS
BEGIN
BEGIN TRY
BEGIN TRAN
--Consultar IDPessoa no banco e Gerar AutoIncremento
DECLARE @IDPessoa AS INT;
EXEC uspGerarIDControle @NomeTabela, @NomeCampo, @IDPessoa OUTPUT
--Gravar registro na tabela tblPessoa
INSERT INTO tblPessoa
(
IDPessoa,
IDPessoaTipo,
DataInclusao,
Imagem,
Ativo
)
VALUES
(
@IDPessoa,
1,
GETDATE(),
@Imagem,
@Ativo
);
-- Atualizar o ID sequencialDA da tabela tblPessoa na tabela tblTabelaSequencia
EXEC uspAtualizarIDControle @NomeTabela, @NomeCampo, @IDPessoa
-- Gravar registro na tabela tblPessoaFisica
INSERT INTO tblPessoaFisica
(
IDPessoaFisica,
NomeCompleto,
Apelido,
DataNascimento,
IDSexo,
IDEstadoCivil,
IDNacionalidade,
IDCidadeNaturalidade,
IDResidenciaTipo,
QtdeFilhos
) VALUES
(
@IDPessoa,
@NomeCompleto,
@Apelido,
@DataNascimento,
@IDSexo,
@EstadoCivil,
@IDNacionalidade,
@IDCidadeNaturalidade,
@IDResidenciaTipo,
@QtdeFilhos
);
--Atualizar o ID sequencial da tabela tblPessoaFisica na tabela tblTabelaSequencia
EXEC uspAtualizarIDControle 'tblPessoaFisica', 'IDPessoaFisica', @IDPessoa
SELECT @IDPessoa AS Retorno;
COMMIT TRAN
END TRY
BEGIN CATCH
ROLLBACK TRAN
SELECT ERROR_MESSAGE() AS Retorno;
END CATCH
END
