Commit 407eded7 authored by Antony Le Courtes's avatar Antony Le Courtes
Browse files

WIP pré-liquidation siham

parent 17ab16c5

data/ddl/package/OSE_PAIEMENT/body.sql

+51 −22
Changes for data/ddl/package/OSE_PAIEMENT/body.sql: 51 added lines, 22 removed lines.
Original line number Diff line number Diff line 
CREATE OR REPLACE PACKAGE BODY     "OSE_PAIEMENT" AS

CREATE

    OR REPLACE PACKAGE BODY "OSE_PAIEMENT" AS



  MOIS_EXTRACTION_PAIE NUMERIC DEFAULT 1;

    mois_extraction_paie VARCHAR2(50) := '01';

    annee_extraction_paie VARCHAR2(50) := '22';



  PROCEDURE CHECK_BAD_PAIEMENTS( FORMULE_RES_SERVICE_ID NUMERIC DEFAULT NULL, FORMULE_RES_SERVICE_REF_ID NUMERIC DEFAULT NULL ) IS

    PROCEDURE check_bad_paiements(formule_res_service_id NUMERIC DEFAULT NULL,

                                  formule_res_service_ref_id NUMERIC DEFAULT NULL)

        IS

        cc NUMERIC;

    BEGIN

    SELECT count(*) INTO cc

        SELECT COUNT(*)

        INTO cc

        FROM mise_en_paiement mep

    WHERE

      mep.histo_destruction IS NULL

      AND mep.formule_res_service_id = NVL( CHECK_BAD_PAIEMENTS.FORMULE_RES_SERVICE_ID, mep.formule_res_service_id )

      AND mep.formule_res_service_ref_id = NVL( CHECK_BAD_PAIEMENTS.FORMULE_RES_SERVICE_REF_ID, mep.formule_res_service_ref_id )

  ;



    IF (cc > 0) THEN

      raise_application_error(-20101, 'Il est impossible d''effectuer cette action : des demandes de mise en paiement ont été saisies et ne peuvent pas être modifiées');

        WHERE mep.histo_destruction IS NULL

          AND mep.formule_res_service_id = NVL(check_bad_paiements.formule_res_service_id, mep.formule_res_service_id)

          AND mep.formule_res_service_ref_id =

              NVL(check_bad_paiements.formule_res_service_ref_id, mep.formule_res_service_ref_id);



        IF

            (cc > 0) THEN

            RAISE_APPLICATION_ERROR(-20101,

                                    'Il est impossible d''effectuer cette action : des demandes de mise en paiement ont été saisies et ne peuvent pas être modifiées');

        ELSE

      DELETE FROM mise_en_paiement WHERE

        histo_destruction IS NOT NULL

        AND formule_res_service_id = NVL( CHECK_BAD_PAIEMENTS.FORMULE_RES_SERVICE_ID, formule_res_service_id )

        AND formule_res_service_ref_id = NVL( CHECK_BAD_PAIEMENTS.FORMULE_RES_SERVICE_REF_ID, formule_res_service_ref_id )

      ;

            DELETE

            FROM mise_en_paiement

            WHERE histo_destruction IS NOT NULL

              AND formule_res_service_id = NVL(check_bad_paiements.formule_res_service_id, formule_res_service_id)

              AND formule_res_service_ref_id =

                  NVL(check_bad_paiements.formule_res_service_ref_id, formule_res_service_ref_id);

        END IF;

    END;



  PROCEDURE SET_MOIS_EXTRACTION_PAIE( MOIS_EXTRACTION_PAIE NUMERIC) IS

    PROCEDURE set_mois_extraction_paie(mois_extraction_paie VARCHAR2)

        IS

    BEGIN

        ose_paiement.mois_extraction_paie

            := mois_extraction_paie;

    END;



    PROCEDURE set_annee_extraction_paie(annee_extraction_paie VARCHAR2)

        IS

    BEGIN

        ose_paiement.annee_extraction_paie

            := annee_extraction_paie;

    END;



    FUNCTION

        get_annee_extraction_paie RETURN VARCHAR2 IS

    BEGIN

        RETURN ose_paiement.annee_extraction_paie;

    END;



    FUNCTION

        get_mois_extraction_paie RETURN VARCHAR2 IS

    BEGIN

		OSE_PAIEMENT.MOIS_EXTRACTION_PAIE := MOIS_EXTRACTION_PAIE;

        RETURN ose_paiement.mois_extraction_paie;

    END;



  FUNCTION GET_MOIS_EXTRACTION_PAIE RETURN NUMERIC IS

    FUNCTION

        get_format_mois_du RETURN VARCHAR2 IS

    BEGIN

		RETURN OSE_PAIEMENT.MOIS_EXTRACTION_PAIE;

        RETURN '20' || ose_paiement.annee_extraction_paie || '-' || ose_paiement.mois_extraction_paie;

    END;





END OSE_PAIEMENT;
 
 No newline at end of file
 
END ose_paiement;
 
 No newline at end of file

data/ddl/package/OSE_PAIEMENT/definition.sql

+11 −5
Changes for data/ddl/package/OSE_PAIEMENT/definition.sql: 11 added lines, 5 removed lines.
Original line number Diff line number Diff line 
CREATE

    OR REPLACE PACKAGE "OSE_PAIEMENT" AS



  PROCEDURE CHECK_BAD_PAIEMENTS( FORMULE_RES_SERVICE_ID NUMERIC DEFAULT NULL, FORMULE_RES_SERVICE_REF_ID NUMERIC DEFAULT NULL );

    PROCEDURE check_bad_paiements(formule_res_service_id NUMERIC DEFAULT NULL,

                                  formule_res_service_ref_id NUMERIC DEFAULT NULL);



  PROCEDURE SET_MOIS_EXTRACTION_PAIE( MOIS_EXTRACTION_PAIE NUMERIC );

    PROCEDURE set_mois_extraction_paie(mois_extraction_paie VARCHAR2);



  FUNCTION

GET_MOIS_EXTRACTION_PAIE RETURN NUMERIC;

    PROCEDURE set_annee_extraction_paie(annee_extraction_paie VARCHAR2);



END OSE_PAIEMENT;
 
 No newline at end of file
 
    FUNCTION get_mois_extraction_paie RETURN VARCHAR2;



    FUNCTION get_annee_extraction_paie RETURN VARCHAR2;



    FUNCTION get_format_mois_du RETURN VARCHAR2;



END ose_paiement;
 
 No newline at end of file

data/ddl/view/V_EXPORT_PAIEMENT_SIHAM.sql

+1 −2
Changes for data/ddl/view/V_EXPORT_PAIEMENT_SIHAM.sql: 1 added line, 2 removed lines.
Original line number Diff line number Diff line
@@ -3,8 +3,7 @@ OR REPLACE FORCE VIEW V_EXPORT_PAIEMENT_WINPAIE AS 
SELECT 'P'                                                                 type,

       code_rh                                                             matricule,

       CASE WHEN type_intervenant_code = 'P' THEN '0204' ELSE '2251' END   retenue,

       annee_id,

       type_intervenant_id,

       annee_id 'du_mois', type_intervenant_id,

       structure_id,

       periode_id,

       intervenant_id,