Modifications diverses

[auf_coda_additions.git] / db / procedures / auf_p_ctrlCptEcriture.sql

USE [coda-prod]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO

ALTER PROCEDURE [dbo].[auf_p_ctrlCptEcriture]
    @cmpcode varchar(12),
    @pcg varchar(10),
    @elm23 varchar(144),
    @operation varchar(10),
    @exercice int,
    @periode int
AS

-- execute auf_p_ctrlCptEcriture 'AUF','62510','2092RR','714',2008,7

---  cette procédure permet de controler les éléments (pcg, élément 2 et 3 ) et aussi
---  les règles des éléments gauches et droites pour la clé comptable

DECLARE @elm2 varchar(72)
DECLARE @elm3 varchar(72)
DECLARE @valeur varchar(72)
DECLARE @valeur2 varchar(72)
DECLARE @valeurfin varchar(72)
DECLARE @resultat varchar(200)
DECLARE @code varchar(72)
DECLARE @elmlevel smallint
DECLARE @subanal smallint
DECLARE @deldate datetime
DECLARE @startyear smallint
DECLARE @startperiod smallint
DECLARE @endyear smallint
DECLARE @endperiod smallint

SET NOCOUNT ON

SELECT @resultat = ''

IF (ltrim(rtrim(@operation)) = '')
    BEGIN
        SELECT @elm2 = @elm23
        SELECT @elm3 = ''
    END
ELSE
    BEGIN
       SELECT @elm2 = ltrim(rtrim(@elm23)) + ltrim(rtrim(@operation))
       SELECT @elm3 = ltrim(rtrim(@elm23))
    END

-- recuperer les maitres éléments
SELECT code, elmlevel, deldate, startyear, startperiod, endyear, endperiod, subanal
INTO #elements
FROM oas_element
WHERE
    cmpcode = @cmpcode
    AND ltrim(rtrim(code)) <> ''
    AND code is NOT null
    AND (
        (code = @pcg AND elmlevel = 1)
        OR (code = @elm2 AND elmlevel = 2)
        OR (code = @elm3 AND elmlevel = 3)
    )
ORDER BY elmlevel

-- Vérifier si les éléments existent dans les maitres éléments
IF NOT exists ( SELECT code FROM #elements WHERE code = @pcg AND elmlevel = 1)
    SELECT @resultat = @pcg + ' : PCG non existant'

IF ltrim(rtrim(@elm2)) <> ''
   AND NOT exists (SELECT code FROM #elements WHERE code = @elm2 AND elmlevel = 2)
    SELECT @resultat = @resultat + ', ' + @elm2 + ' : élément 2 non existant'

IF ltrim(rtrim(@elm3)) <> ''
   AND NOT exists (SELECT code FROM #elements WHERE code = @elm3 AND elmlevel = 3)
    SELECT @resultat = @resultat + ', ' + @elm3 + ' : élément 3 non existant'

DECLARE listeElm CURSOR FOR
SELECT code, elmlevel, deldate, startyear, startperiod, endyear, endperiod, subanal
FROM #elements

OPEN listeElm
FETCH NEXT FROM listeElm
INTO @code, @elmlevel, @deldate, @startyear, @startperiod, @endyear, @endperiod, @subanal

WHILE @@FETCH_STATUS = 0
    BEGIN
        -- vérifier si l'élément est supprimé
        IF (@deldate is NOT null)
            SELECT @resultat = ltrim(rtrim(@code)) + ' : est supprimé'

        -- comparer les dates début et de fin vs exercice et période de l'ecriture
        IF (@startyear <> 0 AND @exercice < @startyear)
           OR (@endyear <> 0 AND @exercice > @endyear )
            SELECT @resultat = @code + ' : exercice de début et/ou de fin non valide'

        IF (@startyear = @exercice AND @startperiod > @periode)
            SELECT @resultat = @code + ' : période de début non valide'

        IF (@endyear = @exercice AND @endperiod < @periode)
            SELECT @resultat = @code + ' : période de fin non valide'

        -- si PCG non sous analysé
        IF (@elmlevel = 1)
            BEGIN -- el1

                -- si PCG non sous analysé
                IF ( @elm2 <> '' AND @subanal = 46  )
                    SELECT @resultat = @code + ' : PCG à ne pas sous analyser'

                -- si PCG sous analysé
                IF ( @elm2 = '' AND @subanal = 76 )
                    SELECT @resultat = @code + ' : PCG à sous analyser'

            END

        IF ( @elmlevel = 2 )
            BEGIN

               -- si élément 2 non sous analysé
               IF @elm3 <> '' AND @subanal = 46
                   SELECT @resultat = @code + ' : élément 2 à ne pas sous analyser'

               -- si élément 2 sous analysé
               IF @elm3 = '' AND @subanal = 76
                   SELECT @resultat = @code + ' : élément 2 à sous analyser'

            END

        FETCH NEXT FROM listeElm
        INTO @code, @elmlevel, @deldate, @startyear, @startperiod, @endyear, @endperiod, @subanal
    END

DROP TABLE #elements

SELECT @resultat AS resultat
GO