Commit 52276ca5 authored by Laurent Lecluse's avatar Laurent Lecluse
Browse files

Cgl et formatage packages rétabli

parent f183575a

CHANGELOG.md

+2 −0
Original line number Diff line number Diff line
@@ -16,6 +16,8 @@ 
* Nouvel état de sortie pour l'extraction des paiements dans le cadre de la pré-liquidation SIHAM

* Ajout d'un bouton de refus de pièce justificative avec envoie d'email à l'intervenant

* Changement du bouton de cloture de service pour un libellé plus parlant et un style de bouton plus prononcé

* Formules nouvelles ou mises à jour : Rennes 2, Paris Saclay, Guyane, Côte d'Azur, La Réunion, Poitiers, Brest

* Possibilité de créer un nouveau test de formule en téléversant une feuille de calcul au format tableur



## Corrections de bugs

data/ddl/package/OSE_PAIEMENT/body.sql

+61 −61
Original line number Diff line number Diff line
@@ -3,61 +3,61 @@ CREATE OR REPLACE PACKAGE BODY "OSE_PAIEMENT" AS 
  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

    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');

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

      AND mep.formule_res_service_ref_id = COALESCE(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 = COALESCE(check_bad_paiements.formule_res_service_id, formule_res_service_id)

        AND formule_res_service_ref_id = COALESCE(check_bad_paiements.formule_res_service_ref_id, formule_res_service_ref_id);

    END IF;

  END;



    PROCEDURE set_mois_extraction_paie(mois_extraction_paie VARCHAR2)

        IS





  PROCEDURE set_mois_extraction_paie(mois_extraction_paie VARCHAR2) IS

  BEGIN

        ose_paiement.mois_extraction_paie

            := mois_extraction_paie;

    ose_paiement.mois_extraction_paie := mois_extraction_paie;

  END;



    PROCEDURE set_annee_extraction_paie(annee_extraction_paie VARCHAR2)

        IS





  PROCEDURE set_annee_extraction_paie(annee_extraction_paie VARCHAR2) IS

  BEGIN

        ose_paiement.annee_extraction_paie

            := annee_extraction_paie;

    ose_paiement.annee_extraction_paie := annee_extraction_paie;

  END;



    FUNCTION

        get_annee_extraction_paie RETURN VARCHAR2 IS





  FUNCTION get_annee_extraction_paie RETURN VARCHAR2 IS

  BEGIN

    RETURN ose_paiement.annee_extraction_paie;

  END;



    FUNCTION

        get_mois_extraction_paie RETURN VARCHAR2 IS





  FUNCTION get_mois_extraction_paie RETURN VARCHAR2 IS

  BEGIN

    RETURN ose_paiement.mois_extraction_paie;

  END;



    FUNCTION

        get_format_mois_du RETURN VARCHAR2 IS





  FUNCTION get_format_mois_du RETURN VARCHAR2 IS

  BEGIN

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

  END;

data/ddl/package/UNICAEN_TBL/body.sql

+264 −366

File changed.

Preview size limit exceeded, changes collapsed.