Eliminar Cierre de Contabilidad

/*****************************************************************************

Deshacer el Cierre

=============================================================================*/

-- ============================================================================

-- Se genera una consulta donde se obtienen las cuentas de resultados que

-- no estan saldadas, asi como tambien el ejercicio que presenta el 

-- descuadre. Este seria el primer paso detectar en donde esta el problema.

-- ------------------------------------

-- solo como apoyo pero no es necesario

use ctNoel_Caire

select sc.id, sc.IdCuenta, sc.Ejercicio, sc.Tipo, sc.Importes14,

c.Codigo, c.Nombre, e.Ejercicio

from SaldosCuentas sc

inner join Cuentas c

on sc.IdCuenta = c.Id

inner join Ejercicios e

on sc.Ejercicio = e.Id

where sc.Importes14 <> 0 and sc.Tipo = 1 and (c.Tipo = 'G' or c.Tipo = 'H')

order by sc.Ejercicio

-- PASO 1

-- ============================================================================

-- Conocer el folio de la pÛliza para eliminarla y conocer la cuenta de Capital

-- con la que se hizo el cierre del ejercicio

-- ------------------------------------

use ctNoel_Caire

declare @Ejercicio int

-- poner el ejercicio que se va a dejar como actual

set @Ejercicio = 2009

select e.ejercicio, c.codigo,c.nombre, p.id, p.ejercicio,p.periodo,p.tipopol,p.folio,p.clase from ejercicios e 

inner join polizas p on e.idpolcierre = p.id

inner join cuentas c on e.idctacierre = c.id

where e.ejercicio = @Ejercicio 

-- PASO 2

-- ============================================================================

-- Desasocia la poliza y la cuenta del Ejercicio y elimina el ˙ltimo ejercicio 

-- y actualiza la tabla de parametros

-- ------------------------------------

use ctNoel_Caire

declare @Ejercicio int

set @Ejercicio = 2009

-- desasocia la poliza del ejercicio

update ejercicios set idCtacierre = 0, idpolcierre = 0 where ejercicio = @Ejercicio

-- borra el ˙tlimo ejercicio

delete from ejercicios where ejercicio = @Ejercicio + 2

-- actualiza parametros con el ejercicio a cerrar

update parametros set ejercicios = ejercicios - 1,

       peractual = 12, 

       ejeractual = (select id from ejercicios where ejercicio = @Ejercicio)

-- PASO 3

--2. Entrar a la empresa y borrar la pÛliza de cierre, para localizarla r·pidamente buscarla

-- en el listado de pÛlizas con el ejercicio y el periodo de ajuste, aparece al final.

--3. Esperar unos minutos a que la afectaciÛn termine de recalcular saldos 

--4. Reconstruir Saldos desde el primer periodo del ejercicio actual

--5. Cerrar el periodo 12

--6. Crear la pÛliza de cierre con la misma cuenta que tenÌa

--7. Cerrar de nuevo el ejercicio en cuestiÛn