quisiera soliciar su apoyo con agluna idea, estoy intentanto pasar datos de dos tablas relacionadas por el campo Numero a otras dos tablas parecidas (es necesario porque son diferentes modulos) pero al momento de pasar necesito obtner un nuevo numero de Poliza e ir incrementantolo por cada registro, me inserta los datos correctamente en las dos tablas, pero con el mismo numero de poliza en todos los registros.
ALTER PROCEDURE [Bancos].[traslado]
@Empresa AS INT,
@EmpresaConta AS INT,
@FechaInicio AS DATE,
@FechaFinal AS DATE
AS
BEGIN
DECLARE @Poliza INTEGER
DECLARE @contador INTEGER
SET @contador=0
SET @Poliza = 0
WHILE EXISTS (SELECT * FROM Bancos.PolizaEncabezado
WHERE EstadoPoliza = 1
AND TrasladoContable <> 1
AND Empresa =@Empresa
AND FechaContable >= @FechaInicio
AND FechaContable <= @FechaFinal)
BEGIN
--INSERTAR EL ENCABEZADO DE LAS POLIZAS
SET @Poliza = (SELECT MAX(Numero) FROM Sistema.TipoDocumento WHERE idEmpresa=@EmpresaConta AND Codigo=2)
SET @Poliza += 1
--INSERTAMOS EL ENCABEZADO
INSERT INTO Contabilidad.PolizaEncabezado(Empresa, FechaContable, Numero, FechaRegistro, DescripcionEmpresa, ValorPoliza, EstadoPoliza, DescripcionPoliza, TipoPoliza, EmpresaOrigen, PolizaOrigen)
SELECT encabezado.Empresa, encabezado.FechaContable, @Poliza, encabezado.FechaRegistro, encabezado.DescripcionEmpresa, encabezado.ValorPoliza, encabezado.EstadoPoliza,
encabezado.DescripcionPoliza + ' Ref. ' + CAST(encabezado.NumeroDocumentoMovimiento AS varchar), encabezado.TipoPoliza, encabezado.EmpresaOrigen, encabezado.Numero
FROM Bancos.PolizaEncabezado encabezado
WHERE encabezado.EstadoPoliza = 1 AND encabezado.TrasladoContable <> 1 AND encabezado.Empresa = @Empresa AND encabezado.FechaContable >= @FechaInicio AND encabezado.FechaContable <= @FechaFinal
ORDER BY encabezado.FechaContable, encabezado.Numero
--INSERTA EL DETALLE DE LAS POLIZAS
INSERT INTO Contabilidad.PolizaDetalle( Numero, Empresa, Cuenta, FechaContable, Correlativo, FechaRegistro, EmpresaOrigen, Debe, Haber)
SELECT @Poliza, @Empresa, detalle.Cuenta, encabezado.FechaContable, detalle.Correlativo, encabezado.FechaRegistro, detalle.EmpresaOrigen, detalle.Debe, detalle.Haber
FROM Bancos.PolizaDetalle detalle
INNER JOIN Bancos.PolizaEncabezado encabezado ON detalle.Empresa = encabezado.Empresa AND detalle.Numero = encabezado.Numero AND detalle.FechaContable = encabezado.FechaContable
WHERE detalle.Debe >= 0 OR detalle.Haber >= 0
ORDER BY detalle.Numero, detalle.Haber, detalle.Correlativo
--SE ACTUALIZA EL ESTADO DE LA POLIZA EN EL BANCO
UPDATE Bancos.PolizaEncabezado
SET TrasladoContable = 1, FechaTraslado = GETDATE()
WHERE EstadoPoliza = 1
AND TrasladoContable <> 1
AND Empresa=@Empresa
AND FechaContable >=@FechaInicio
AND FechaContable <=@FechaFinal
--SE ACTUALIZA EL CONTADOR
SET @contador = @contador+@@ROWCOUNT
END
RETURN @contador
END
GO