Base de Données: SAMS

Liste des tables

Table: F1

Index:

Champs:

Clé secondaire:

Table: F11

Index:

Champs:

Clé secondaire:

Table: F12

Index:

Champs:

Clé secondaire:

Table: F13

Index:

Champs:

Clé secondaire:

Table: F14

Index:

Champs:

Clé secondaire:

Table: F15

Index:

Champs:

Clé secondaire:

Table: F16

Index:

Champs:

Clé secondaire:

Table: F2

Index:

Champs:

Table: F21

Index:

Champs:

Clé secondaire:

Table: F22

Index:

Champs:

Clé secondaire:

Table: F23

Index:

Champs:

Clé secondaire:

Table: F3

Index:

Champs:

Clé secondaire:

Table: F30

Index:

Champs:

Clé secondaire:

Table: F31

Index:

Champs:

Table: F32

Index:

Champs:

Clé secondaire:

Table: F33

Index:

Champs:

Clé secondaire:

Table: F34

Index:

Champs:

Clé secondaire:

Table: F4

Index:

Champs:

Clé secondaire:

Table: F41

Index:

Champs:

Clé secondaire:

Table: F5

Index:

Champs:

Clé secondaire:

Table: F51

Index:

Champs:

Clé secondaire:

Table: F6

Index:

Champs:

Table: F61

Index:

Champs:

Clé secondaire:

Table: F7

Index:

Champs:

Clé secondaire:

Table: F70

Index:

Champs:

Clé secondaire:

Table: F71

Index:

Champs:

Table: F72

Index:

Champs:

Table: F73

Index:

Champs:

Table: F74

Index:

Champs:

Clé secondaire:

Table: F75

Index:

Champs:

Table: F76

Index:

Champs:

Table: F77

Index:

Champs:

Table: F78

Index:

Champs:

Table: F79

Index:

Champs:

Table: F80

Index:

Champs:

Table: F81

Index:

Champs:

Table: F82

Index:

Champs:

Table: F83

Index:

Champs:

Table: F84

Index:

Champs:

Table: F85

Index:

Champs:

Table: MENUS

Index:

Champs:

Table: TAILLELISTE

Index:

Champs:

Procédures stockées

-- ----------------------------------------------------------------------
-- SQL stored routines script generated by the PBO, SodiFrance.
-- ----------------------------------------------------------------------
-- Modified by PBO for v1 reliability

-- -------------------------------------------------------------------
-- Migration de procédure stockée.
-- OK_Accessite
-- version 1.0 par PBO.
-- -------------------------------------------------------------------

DELIMITER $$

-- Destruction de la version précédente
DROP FUNCTION IF EXISTS `ok_accessite` $$

-- Définition de la fonction
CREATE FUNCTION `ok_accessite` (siteUtil INTEGER(11), site INTEGER(11)) RETURNS INT
BEGIN
  DECLARE ret INT DEFAULT 0 ;
  DECLARE rec INT(11) DEFAULT NULL ;
  DECLARE rat INT(11) DEFAULT NULL ;

  -- Si l'utilisateur est sur le site recherché, alors c'est bon
  IF siteUtil = site THEN
    SET ret = 1 ;

  -- Sinon, nous recherchons dans la hiérarchie des sites celui de l'utlisateur
  ELSE
    BEGIN
      SET rec = site ;
      WHILE ret = 0 AND rat IS NOT NULL DO
        -- Recherche du site associé
        SELECT F5CA INTO rat FROM F5 WHERE F5ID = rec ;
        IF rat = siteUtil THEN
          SET ret = 1 ;
        END IF ;
        SET rec = rat ;
      END WHILE ;
    END ;
  END IF ;

  RETURN ret ;
END $$

DELIMITER ;

-- -------------------------------------------------------------------
-- Migration de procédure stockée.
-- Maj_descr_solution_f1
-- version 1.0 par PBO.
-- -------------------------------------------------------------------

DELIMITER $$

-- Suppression de l'ancienne version
DROP PROCEDURE IF EXISTS `maj_descr_solution_f1` $$

-- Définition de la procédure
CREATE PROCEDURE `maj_descr_solution_f1` (dossier INT(11))
BEGIN
  DECLARE libelle1 TEXT ;
  DECLARE libelle2 TEXT ;
  DECLARE libelle3 TEXT ;

  DECLARE rTxt TEXT ;
  DECLARE rNom VARCHAR(130) ;
  DECLARE rTyp INT ;
  DECLARE rDat VARCHAR(10) ;

  DECLARE done INT(1) DEFAULT 0 ;

  DECLARE motif_appels CURSOR FOR SELECT F11TYPE,
                                         CONCAT_WS(' ',ELT(F51CIVIL,'M.','Mme','Mlle'),F51NOM,F51PRENOM) AS NOM,
                                         DATE_FORMAT(F11DATE,'%d/%m/%Y') AS DTAPL,
                                         F11MOTIF
                                    FROM F11 RIGHT JOIN F51 ON (F51ID = F11CORRESP AND F11DOS = dossier)
                                   ORDER BY F11DATE ;

  DECLARE reponse_appels CURSOR FOR SELECT F11TYPE,
                                           CONCAT_WS(' ',F70NOM, F70PRENOM) AS NOM,
                                           DATE_FORMAT(F11DATE,'%d/%m/%Y') as DTAPL,
                                           F11REPONSE
                                      FROM F11 RIGHT JOIN F70 ON (F70ID = F11TECH AND F11DOS = dossier)
                                     ORDER BY F11DATE ;

  DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET done = 1 ;

  -- Nettoyage des informations du dossier
  UPDATE F1 SET F1DESCR = '', F1SOLUTION = '' WHERE F1ID = dossier ;

  -- Mise à jour de la description du dossier
  OPEN motif_appels ;
  FETCH motif_appels INTO rTyp, rNom, rDat, rTxt ;
  WHILE done = 0 DO
    IF TRIM(rNom) IS NULL OR TRIM(rNom) = '' THEN
      SET libelle2 = CONCAT('?, le ',rDat,' : ') ;
    ELSE
      SET libelle2 = CONCAT(rNom,', le ',rDat,' : ') ;
    END IF ;
    IF TRIM(rTxt) IS NULL OR TRIM(rTxt) = '' THEN
      SET libelle3 = CONCAT('absence de motif.',CHR(10),CHR(10)) ;
    ELSE
      SET libelle3 = CONCAT(rTxt,CHR(10),CHR(10)) ;
    END IF ;
    SET libelle1 = CONCAT(libelle2,libelle3) ;
    IF rTyp = 1 THEN
      UPDATE F1 SET F1DESCR = libelle1 WHERE F1ID = dossier ;
    ELSE
      UPDATE F1 SET F1DESCR = CONCAT(F1DESCR,' ',libelle1) WHERE F1ID = dossier ;
    END IF ;
    FETCH motif_appels INTO rTyp, rNom, rDat, rTxt ;
  END WHILE ;
  CLOSE motif_appels ;
  SET done = 0 ;

  -- Mise à jour de la solution du dossier
  OPEN reponse_appels ;
  FETCH reponse_appels INTO rTyp, rNom, rDat, rTxt ;
  WHILE done = 0 DO
    IF TRIM(rNom) IS NULL OR TRIM(rNom) = '' THEN
      SET libelle2 = CONCAT('?, le ',rDat,' : ') ;
    ELSE
      SET libelle2 = CONCAT(rNom,', le ',rDat,' : ') ;
    END IF ;
    IF TRIM(rTxt) IS NULL OR TRIM(rTxt) = '' THEN
      SET libelle3 = CONCAT('absence de réponse.',CHR(10),CHR(10)) ;
    ELSE
      SET libelle3 = CONCAT(rTxt,CHR(10),CHR(10)) ;
    END IF ;
    SET libelle1 = CONCAT(libelle2,libelle3) ;
    IF rTyp = 1 THEN
      UPDATE F1 SET F1SOLUTION = libelle1 WHERE F1ID = dossier ;
    ELSE
      UPDATE F1 SET F1SOLUTION = CONCAT(F1SOLUTION,' ',libelle1) WHERE F1ID = dossier ;
    END IF ;
    FETCH reponse_appels INTO rTyp, rNom, rDat, rTxt ;
  END WHILE ;
  CLOSE reponse_appels ;
END $$

DELIMITER ;

-- -------------------------------------------------------------------
-- Migration de procédure stockée.
-- analysetxapl
-- version 1.0 par PBO.
-- -------------------------------------------------------------------

DELIMITER $$

DROP PROCEDURE IF EXISTS `analysetxapl` $$
CREATE PROCEDURE `analysetxapl`(util INT(11), moisDeb INT(2), moisFin INT(2), anDeb INT(4), anFin INT(4), appli INT(11))
BEGIN

  -- Création de la table de reception des données FTX
  creationTX: BEGIN
    DECLARE lookupExists INT(1) DEFAULT 1 ;
    DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET lookupExists = 0 ;

    SET @lookupTable = CONCAT('SELECT * FROM ftx',util) ;
    PREPARE goLookup FROM @lookupTable ;
    EXECUTE goLookup ;
    DEALLOCATE PREPARE goLookup ;
    IF lookupExists = 0 THEN
      SET @createTable = CONCAT('CREATE TABLE ftx',util,' (ftxannee INTEGER(4) NOT NULL, ftxmois INTEGER(2) NOT NULL, ftxnbdos INTEGER(5), ftxnbapl INTEGER(5), ftxnbpostes INTEGER(6), ftxprcaplut INTEGER(6), ftxprcaplin INTEGER(6), ftxtxaplm DECIMAL(5,3), ftxtxapla DECIMAL(5,3), ftxtxapla_1 DECIMAL(5,3), CONSTRAINT ftx',util,'_PK PRIMARY KEY (ftxannee,ftxmois))') ;
      PREPARE goCreateTable FROM @createTable ;
      EXECUTE goCreateTable ;
      DEALLOCATE PREPARE goCreateTable ;
    ELSE
      SET @truncateTable = CONCAT('TRUNCATE TABLE ftx',util) ;
      PREPARE goTruncateTable FROM @truncateTable ;
      EXECUTE goTruncateTable ;
      DEALLOCATE PREPARE goTruncateTable ;
    END IF ;
  END creationTX ;

  -- Création de la table de reception des données FTXDF
  creationDF: BEGIN
    DECLARE lookupExists INT(1) DEFAULT 1 ;
    DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET lookupExists = 0 ;

    SET @lookupTable = CONCAT('SELECT * FROM ftxdf',util) ;
    PREPARE goLookup FROM @lookupTable ;
    EXECUTE goLookup ;
    DEALLOCATE PREPARE goLookup ;
    IF lookupExists = 0 THEN
      SET @createTable = CONCAT('CREATE TABLE ftxdf',util,' (ftxdfannee INTEGER(4) NOT NULL, ftxdfmois INTEGER(2) NOT NULL, ftxdfcode INTEGER(11) NOT NULL, ftxdfnbapl INTEGER(5), CONSTRAINT ftxdf',util,'_PK PRIMARY KEY (ftxdfannee,ftxdfmois,ftxdfcode))') ;
      PREPARE goCreateTable FROM @createTable ;
      EXECUTE goCreateTable ;
      DEALLOCATE PREPARE goCreateTable ;
    ELSE
       SET @truncateTable = CONCAT('TRUNCATE TABLE ftxdf',util) ;
      PREPARE goTruncateTable FROM @truncateTable ;
      EXECUTE goTruncateTable ;
      DEALLOCATE PREPARE goTruncateTable ;
    END IF ;
   END creationDF ;

  -- Chargement de la période d'analyse dans la table
  loading: BEGIN
    DECLARE alreadyLoaded INT(1) DEFAULT 0 ;

    DECLARE dateDebut DATETIME ;
    DECLARE dateFin   DATETIME ;

    DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET alreadyLoaded = 1 ;

    -- Date de début du traitement
    SET dateDebut = CONCAT(anDeb,'-',moisDeb,'-01 00:00:00') ;
    -- Soustraction de 12 mois ! Voir code initial. Pas de commentaire.
    SET dateDebut = DATE_ADD(dateDebut,INTERVAL -12 MONTH) ;
    -- Date de fin du traitement
    SET dateFin = LAST_DAY(CONCAT(anFin,'-',moisFin,'-01 23:59:00')) ;

    SET @tableName = CONCAT('ftx',util) ;
    SET @loader = CONCAT('INSERT INTO ',@tableName,' (ftxannee, ftxmois) VALUES (?,?)') ;
    PREPARE goLoading FROM @loader ;
    inserting_dates: LOOP
      IF dateDebut > dateFin THEN
        LEAVE inserting_dates ;
      END IF ;
      SET @anCourant = DATE_FORMAT(dateDebut,'%Y') ;
      SET @moisCourant = DATE_FORMAT(dateDebut,'%m') ;
      EXECUTE goLoading USING @anCourant,@moisCourant ;
      SET dateDebut = DATE_ADD(dateDebut,INTERVAL 1 MONTH) ;
    END LOOP inserting_dates ;
    DEALLOCATE PREPARE goLoading ;
  END loading ;

  first_part: BEGIN
    DECLARE dateDebut DATETIME ;
    DECLARE dateFin   DATETIME ;
    -- Variables extraites du curseur
    DECLARE rSite INT(11) ;
    DECLARE rMois INT(2) ;
    DECLARE rAn   INT(4) ;
    DECLARE rDos  INT(11) ;
    DECLARE rDif  INT(1) ;
    DECLARE rInc1 INT(1) ;
    DECLARE rDom  INT(11) ;
    DECLARE rFin  DATETIME ;
    DECLARE rInc2 INT(1) ;
    DECLARE rDat DATETIME ;
    -- Booléen de fin de parcours des dossiers
    DECLARE parseEnd INT(1) DEFAULT 0 ;
    DECLARE no_row   INT(1) DEFAULT 0 ;
    -- Variables de travail
    DECLARE nbAppels INT(6) DEFAULT 0 ;
    DECLARE debutPeriode DATETIME ;
    DECLARE finPeriode   DATETIME ;
    DECLARE debut        DATETIME ;
    DECLARE fin          DATETIME ;
    -- Curseur de travail des dossiers à traiter.
    DECLARE dossiers CURSOR FOR SELECT F1SITE,
                                       DATE_FORMAT(F1DATE,'%m') moisDeb,
                                       DATE_FORMAT(F1DATE,'%Y') anneeDeb,
                                       F1ID,
                                       F72DIFUTIL,
                                       F1INCID,
                                       F1DOMFONCT,
                                       F1DTFIN,
                                       F72INCID,
                                       F1DATE
                                  FROM F72 RIGHT JOIN
                                          F1 RIGHT JOIN F41
                                          ON ((F41ID = F1VERSAPP AND F41APPLI = appli) OR F1VERSAPP IS NULL)
                                       ON (F1QUALIF = F72ID)
                                 WHERE F1DATE <= dateFin
                                   AND (F1DTFIN >= dateDebut OR F1DTFIN IS NULL)
                                 ORDER BY F1DATE,F1SITE ;
    DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET parseEnd = 1 ;
    DECLARE CONTINUE HANDLER FOR NOT FOUND SET no_row = 1 ;

    -- Préparation des requête de mise à jour des tables
    SET @store_call      = CONCAT("UPDATE ftx",util,"   SET ftxnbapl    = IFNULL(ftxnbapl,0)+?    WHERE ftxannee   = ? AND ftxmois   = ?") ;
    SET @store_case      = CONCAT("UPDATE ftx",util,"   SET ftxnbdos    = IFNULL(ftxnbdos,0)+1    WHERE ftxannee   = ? AND ftxmois   = ?") ;
    SET @store_in        = CONCAT("UPDATE ftx",util,"   SET ftxprcaplin = IFNULL(ftxprcaplin,0)+? WHERE ftxannee   = ? AND ftxmois   = ?") ;
    SET @store_out       = CONCAT("UPDATE ftx",util,"   SET ftxprcaplut = IFNULL(ftxprcaplut,0)+? WHERE ftxannee   = ? AND ftxmois   = ?") ;
    SET @store_dfcall_sl = CONCAT("SELECT IFNULL(COUNT(*),0) INTO @existe_ftx from ftxdf",util," WHERE ftxdfannee = ? AND ftxdfmois = ? AND ftxdfcode = ?") ;
    SET @store_dfcall_up = CONCAT("UPDATE ftxdf",util," SET ftxdfnbapl  = IFNULL(ftxdfnbapl,0)+?  WHERE ftxdfannee = ? AND ftxdfmois = ? AND ftxdfcode = ?") ;
    SET @store_dfcall_in = CONCAT("INSERT INTO ftxdf",util," (ftxdfannee,ftxdfmois,ftxdfnbapl,ftxdfcode) VALUES(?,?,?,?)") ;

    PREPARE goStoreCall     FROM @store_call ;
    PREPARE goStoreCase     FROM @store_case ;
    PREPARE goStoreIn       FROM @store_in ;
    PREPARE goStoreOut      FROM @store_out ;
    PREPARE goStoreDfCallSl FROM @store_dfcall_sl ;
    PREPARE goStoreDfCallUp FROM @store_dfcall_up ;
    PREPARE goStoreDfCallIn FROM @store_dfcall_in ;


   SET dateDebut = CONCAT(anDeb,'-',moisDeb,'-01 00:00:00') ;
   -- Soustraction de 12 mois ! Voir code initial. Pas de commentaire.
   SET dateDebut = DATE_ADD(dateDebut,INTERVAL -12 MONTH) ;
   -- Date de fin du traitement
   SET dateFin = LAST_DAY(CONCAT(anFin,'-',moisFin,'-01 23:59:00')) ;

    -- Début du parcours des dossiers
    OPEN dossiers ;

    -- Premier dossier
    FETCH dossiers INTO rSite, rMois, rAn, rDos, rDif, rInc1, rDom, rFin, rInc2, rDat ;
    boucle: WHILE parseEnd = 0 DO
      SET nbAppels = 0 ;
      SET debutPeriode = CONCAT(rAn,'-',rMois,'-01 00:00:00') ;
      IF debutPeriode < dateDebut THEN
        SET debutPeriode = dateDebut ;
      END IF ;
      IF rFin IS NULL THEN
        SET finPeriode = dateFin ;
      ELSE
        SET finPeriode = LAST_DAY(CONCAT(DATE_FORMAT(rFin,'%Y-%m'),'-01 23:59:59')) ;
      END IF ;
      IF finPeriode > dateFin THEN
        SET finPeriode = dateFin ;
      END IF ;
      SET debut = debutPeriode ;
      SET fin = LAST_DAY(CONCAT(DATE_FORMAT(debut,'%Y-%m'),'-01 23:59:59')) ;
      working: LOOP
        IF debut > finPeriode THEN
          LEAVE working ;
        END IF ;
        SET @currentM = DATE_FORMAT(debut,'%m') ;
        SET @currentY = DATE_FORMAT(debut,'%Y') ;
        IF rDat BETWEEN debut AND fin THEN
          EXECUTE goStoreCase USING @currentY, @currentM ;
        END IF ;
        SELECT count(*) INTO nbAppels FROM F11 WHERE F11DOS = rDos AND F11DATE BETWEEN debut AND fin ;
        SET @callCount = nbAppels ;
        IF nbAppels > 0 THEN
          EXECUTE goStoreCall USING @callCount, @currentY, @currentM ;
          IF rDif = 1 THEN
            EXECUTE goStoreOut USING @callCount, @currentY, @currentM ;
          END IF ;
          IF rInc1 = 1 THEN
            EXECUTE goStoreIn USING @callCount, @currentY, @currentM ;
          END IF ;
          IF rDom IS NOT NULL THEN
            SET @domId = rDom ;
            SET @existe_ftx = 0 ;
            EXECUTE goStoreDfCallSl USING @currentY, @currentM, @domId ;
            IF @existe_ftx = 0 THEN
               EXECUTE goStoreDfCallIn USING @currentY, @currentM, @callCount, @domId ;
            ELSE
               EXECUTE goStoreDfCallUp USING @callCount, @currentY, @currentM, @domId ;
            END IF;
          END IF;
        END IF;

        SET debut = DATE_ADD(debut,INTERVAL 1 MONTH) ;
        SET fin   = LAST_DAY(CONCAT(DATE_FORMAT(debut,'%Y-%m'),'-01 23:59:59')) ;
      END LOOP working ;
      -- Dossier suivant
      FETCH dossiers INTO rSite, rMois, rAn, rDos, rDif, rInc1, rDom, rFin, rInc2, rDat ;
    END WHILE boucle ;
    CLOSE dossiers ;
    DEALLOCATE PREPARE goStoreCall ;
    DEALLOCATE PREPARE goStoreCase ;
    DEALLOCATE PREPARE goStoreIn ;
    DEALLOCATE PREPARE goStoreOut ;
    DEALLOCATE PREPARE goStoreDfCallSl ;
    DEALLOCATE PREPARE goStoreDfCallUp ;
    DEALLOCATE PREPARE goStoreDfCallIn ;
  END first_part ;

  second_part: BEGIN
    -- DECLARE nbAppels INT(6) ;
    -- DECLARE nbAplsUt INT(6) ;
    -- DECLARE nbAplsIn INT(6) ;
    -- DECLARE nbPostes INT(6) ;
    -- DECLARE currentM INT(2) ;
    -- DECLARE currentY INT(4) ;
    -- DECLARE txAnnuel DECIMAL(5,3) ;
    DECLARE finMois  DATETIME ;
    DECLARE norow    INT(1) DEFAULT 0 ;
    DECLARE notFound INT(1) DEFAULT 0 ;
    DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET norow = 1 ;
    DECLARE CONTINUE HANDLER FOR NOT FOUND SET notFound = 1 ;
    SET @nbAppels = 0 ;
    SET @nbAplsUt = 0 ;
    SET @nbAplsIn = 0 ;
    SET @nbPostes = 0 ;
    SET @currentM = 0 ;
    SET @currentY = 0 ;
    SET @txAnnuel = 0 ;

    SET @txAplA_1 = 0 ;

    -- Requête simili curseur dynamique
    SET @tauxReq       = CONCAT("SELECT IFNULL(FTXNBAPL,0), IFNULL(FTXPRCAPLUT,0), IFNULL(FTXPRCAPLIN,0), IFNULL(FTXNBPOSTES,0), FTXMOIS, FTXANNEE INTO @nbAppels, @nbAplsUt, @nbAplsIn, @nbPostes, @currentM, @currentY FROM FTX",util," LIMIT ?,1") ;
    SET @storePostes   = CONCAT("UPDATE FTX",util," SET FTXNBPOSTES = IFNULL(FTXNBPOSTES,0)+? WHERE FTXANNEE = ? AND FTXMOIS = ?") ;
    SET @storeAplUtIn  = CONCAT("UPDATE FTX",util," SET FTXPRCAPLUT = ?, FTXPRCAPLIN = ? WHERE FTXANNEE = ? AND FTXMOIS = ?") ;
    SET @storeTxAplM   = CONCAT("UPDATE FTX",util," SET FTXTXAPLM = ? WHERE FTXANNEE = ? AND FTXMOIS = ?") ;
    SET @storeTxAplA   = CONCAT("UPDATE FTX",util," SET FTXTXAPLA = ? WHERE FTXANNEE = ? AND FTXMOIS = ?") ;
    SET @tauxAnnuel    = CONCAT("SELECT IFNULL(SUM(IFNULL(FTXTXAPLM,0)),0)  INTO @txAnnuel FROM FTX",util," WHERE STR_TO_DATE(CONCAT(FTXANNEE,'-',FTXMOIS,'-01'),'%Y-%m-%d') between ? AND ? ORDER BY FTXANNEE, FTXMOIS");
    SET @storeTxAnnuel = CONCAT("UPDATE FTX",util," SET FTXTXAPLA_1 = ? WHERE FTXANNEE = ? AND FTXMOIS = ?") ;
    PREPARE goTaux     FROM @tauxReq ;
    PREPARE goPostes   FROM @storePostes ;
    PREPARE goAplUtIn  FROM @storeAplUtIn ;
    PREPARE goTxAplM   FROM @storeTxAplM ;
    PREPARE goTxAplA   FROM @storeTxAplA ;
    PREPARE goTxAnnuel FROM @tauxAnnuel ;
    PREPARE goStoreTx  FROM @storeTxAnnuel ;

    -- Requête sur le premier enregistrement
    SET @idxLigne = 1 ;
    SET @txAplA = 0 ;

    EXECUTE goTaux USING @idxLigne ;
    travail: WHILE norow = 0 DO
      SET @txAplM = 0 ;
      SET finMois = LAST_DAY(CONCAT(@currentY,'-',@currentM,'-01 23:59:59')) ;
      SET notFound = 0 ;

      SET @nbPostes = 0 ;

      SELECT IFNULL(SUM(IFNULL(F5NBPOSTE,0))+SUM(IFNULL(F5NBPORRE,0))+SUM(IFNULL(F5NBPORNC,0)),0)
        INTO @nbPostes
        FROM F5
       WHERE F5DTFINIM <= finMois
         AND F5ID IN (
             SELECT DISTINCT(F61SITE)
               FROM F61 INNER JOIN F41
                    ON ((F41ID=F61VERSAPP AND F41APPLI = appli)
                        OR F61VERSAPP IS NULL)
              WHERE F61DTENV <= finMois) ;
      IF notFound = 1 THEN
        SET notFound = 0 ;
        SET @nbPostes = 0 ;
      END IF ;
      IF @nbPostes > 0 THEN
          EXECUTE goPostes USING @nbPostes, @currentY, @currentM ;
      END IF;
      IF @nbAppels > 0 THEN
        SET @prcAplUt = ROUND((@nbAplsUt/@nbAppels)*100,0) ;
        SET @prcAplIn = ROUND((@nbAplsIn/@nbAppels)*100,0) ;
        EXECUTE goAplUtIn USING @prcAplUt, @prcAplIn, @currentY, @currentM ;
        IF @nbPostes > 0 THEN
          SET @txAplM = ROUND((@nbAppels/@nbPostes),3) ;
          EXECUTE goTxAplM USING @txAplM, @currentY, @currentM ;
         -- SET @nbPostes = 0 ;
        END IF ;
      END IF ;
      IF @currentM <> 12 THEN
        SET @txAplA = @txAplA + IFNULL(@txAplM,0) ;
        SET @txAplM = 0;
      ELSE
        EXECUTE goTxAplA USING @txAplA, @currentY, @currentM ;
        SET @txAplA = 0 ;
      END IF ;
      IF STR_TO_DATE(CONCAT(@currentY,'-',@currentM,'-01'),'%Y-%m-%d') >= STR_TO_DATE(CONCAT(anDeb,'-',moisDeb,'-01'),'%Y-%m-%d') THEN
        SET @moisPrec = DATE_FORMAT(DATE_ADD(CONCAT(@currentY,'-',@currentM,'-01 00:00:00'),INTERVAL -12 MONTH),'%m') ;
        SET @anPrec   = DATE_FORMAT(DATE_ADD(CONCAT(@currentY,'-',@currentM,'-01 00:00:00'),INTERVAL -12 MONTH),'%Y') ;

 

        SET @interval12mois =  STR_TO_DATE(CONCAT(@anPrec,'-',@moisPrec,'-01'),'%Y-%m-%d');
        SET @intervalCurrent = STR_TO_DATE(CONCAT(@currentY,'-',@currentM,'-01'),'%Y-%m-%d');

        EXECUTE goTxAnnuel USING @interval12mois,@intervalCurrent  ;
        IF @txAnnuel IS NOT NULL THEN
        SET @txAplA_1 = @txAnnuel ;
        END IF;
        EXECUTE goStoreTx USING @txAplA_1, @currentY, @currentM ;
        SET @txAplA_1 = 0 ;
      END IF ;

      SET @idxLigne = @idxLigne+1 ;
      EXECUTE goTaux USING @idxLigne ;
    END WHILE travail ;
    DEALLOCATE PREPARE goTaux ;
    DEALLOCATE PREPARE goPostes ;
    DEALLOCATE PREPARE goAplUtIn ;
    DEALLOCATE PREPARE goTxAplM ;
    DEALLOCATE PREPARE goTxAplA ;
    DEALLOCATE PREPARE goTxAnnuel ;
    DEALLOCATE PREPARE goStoreTx ;
  END second_part ;

END $$

DELIMITER ;

-- -------------------------------------------------------------------
-- Migration de procédure stockée.
-- donne_dtMom
-- version 1.0 par PBO.
-- -------------------------------------------------------------------

-- Destruction de la version précédente
DELIMITER $$

DROP FUNCTION IF EXISTS `donne_dtmom` $$
CREATE FUNCTION `donne_dtmom`(appli INT(11), site INT(11)) RETURNS varchar(10)
p1: BEGIN
    DECLARE final VARCHAR(10) ;
    DECLARE dordre DATE ;
    SELECT IFNULL(F61.F61DTENV,F61.F61DTDEB) DATEORDER,
           DATE_FORMAT(F61.F61DTMOM,'%d/%m/%Y') dtMOM INTO dordre, final
      FROM F61 INNER JOIN F41
           ON (F61.F61VERSAPP = F41.F41ID AND F41.F41APPLI = appli)
     WHERE F61.F61SITE = site
     ORDER BY dtMOM DESC LIMIT 1 ;
     RETURN final ;
END p1 $$

DELIMITER ;
-- -------------------------------------------------------------------
-- Migration de procédure stockée.
-- donne_dtVal
-- version 1.0 par PBO.
-- -------------------------------------------------------------------

-- Destruction de la version précédente
DELIMITER $$

DROP FUNCTION IF EXISTS `donne_dtval` $$
CREATE FUNCTION `donne_dtval`(appli INT(11), site INT(11)) RETURNS varchar(10)
p1: BEGIN
    DECLARE final VARCHAR(10) ;
    DECLARE dordre DATE ;
    SELECT IFNULL(F61.F61DTENV,F61.F61DTDEB) DATEORDER,
           DATE_FORMAT(F61.F61DTVAL,'%d/%m/%Y') dtVAL INTO dordre, final
      FROM F61 INNER JOIN F41
           ON (F61.F61VERSAPP = F41.F41ID AND F41.F41APPLI = appli)
     WHERE F61.F61SITE = site
     ORDER BY dtVAL DESC LIMIT 1 ;
     RETURN final ;
END p1 $$

DELIMITER ;


-- -------------------------------------------------------------------
-- Migration de procdure stocke.
-- version
-- version 1.0 par ABE.
-- -------------------------------------------------------------------

-- Destruction de la version prcdente
DROP FUNCTION IF EXISTS donne_version ;

-- Dfinition de la procdure
DELIMITER //
CREATE FUNCTION donne_version (appli INT(11), site INT(11)) RETURNS VARCHAR(20)
LANGUAGE  SQL
p1: BEGIN
     DECLARE result VARCHAR(20) ;
      SELECT MAX(F41.F41CODE) INTO result
      FROM F61 INNER JOIN F41
           ON (F61.F61VERSAPP = F41.F41ID AND F41.F41APPLI = appli)
     WHERE F61.F61SITE = site ;
     RETURN result ;
END p1 ;
//

DELIMITER ;

-- -------------------------------------------------------------------
-- Migration de fonction stockee.
-- version
-- version 1.0 par ABE.
-- -------------------------------------------------------------------

-- Destruction de la version precedente
DROP FUNCTION IF EXISTS donne_ecartDate ;

-- Definition de la fonction
DELIMITER $$

CREATE FUNCTION donne_ecartDate (d1 DATETIME,d2 DATETIME) RETURNS DECIMAL(8,2)
LANGUAGE  SQL
BEGIN
       DECLARE delta DECIMAL(8,2) ;
       SELECT (
       (DATEDIFF(d1,d2)*1440)+
       (MINUTE(d1)-MINUTE(d2))+
       ((HOUR(d1)-HOUR(d2))*60)
       )/60 into delta ;
       return delta ;
END ;
$$

DELIMITER ;