$abreviation_fta_transition = "A";
$commentaire_maj_fta = "Archivage réalisé par le service Informatique le 28/11/2006 dans le cadre de la mise à jour vers la version 2.3.0 du module Intranet.\n" . "Pour toutes questions, merci de vous rappocher du Chef de Projet.";
//Archivage des FTA Validées et Non-classées
$req = "SELECT id_fta,CODE_ARTICLE,LIBELLE,date_derniere_maj_fta " . ", `fta_migration_import_articles_actifs`.`code_agrologic` " . "FROM fta, fta_etat, `fta_migration_import_articles_actifs` RIGHT JOIN `fta` " . "ON `fta_migration_import_articles_actifs`.`code_agrologic` = `fta`.`CODE_ARTICLE` " . "WHERE (`fta_migration_import_articles_actifs`.`code_agrologic` IS NULL) " . "AND (`fta`.`CODE_ARTICLE` IS NOT NULL) " . "AND (fta.id_fta_etat=fta_etat.id_fta_etat ) " . "AND (abreviation_fta_etat='V' ) ";
$array = DatabaseOperation::convertSqlStatementWithoutKeyToArray($req);
echo "CODE_ARTICE;LIBELLE;id_fta;date_derniere_maj_fta<br>";
foreach ($array as $rows) {
//Transition des FTA
$id_fta = $rows["id_fta"];
//Si l'article n'est pas classé, alors archivage
$tab = affichage_classification_article($id_fta, $extension);
if (!$tab[0]) {
//Cet article n'est pas classé car il n'y a même pas un chemin de classification
//Message HTML
echo $rows["CODE_ARTICLE"] . ";\"" . $rows["LIBELLE"] . "\";" . $rows["id_fta"] . ";\"" . $rows["date_derniere_maj_fta"] . "\"";
FtaTransitionModel::buildTransitionFta($id_fta, $abreviation_fta_transition, $commentaire_maj_fta, $idFtaRole, $idFtaWorkflow, $ListeDesChapitres);
echo "<br>";
}
}
break;
case "2_3_0_epuration_nomenclature":
/*
- Récupérer uniquement les versions de nomenclatures les plus récentes cf. 11801
---LISTE DES NOMENCLATURES POUR PRODUIT 0011801----------------------- |
||1.0011801002 BEIGNET CREV 20G ITM LAIZE 461 applicable le 18/01/06 |- |
||2.0011801003 BEIGNET CREV 20G ITM LAIZE 423 applicable le 17/01/06 || |
||3.0011801001 BEIGNET CREV 20G ITM X 16 applicable le 06/12/04 || |
|----------------------------------------------------------------------| |
Se baser sur la date d'application !!
- Sélectionner les nomenclatures les plus récentes dans un tableau: SELECT `_AUTO_NOMENCLATURE`, `_AUTO_PRODUIT`, MAX( `_AUTO_DATE` ) FROM `fta_migration_nomenclature` GROUP BY `_AUTO_PRODUIT`
if (!$ok) {
$titre = 'Informations manquantes';
$message = 'Vous devez sélectionner au moins un chapitre à mettre à jour.';
Lib::showMessage($titre, $message, $redirection);
$error = 1;
}
$new_commentaire_maj_fta = $new_commentaire_maj_fta . "-" . $ListeDesChapitresComment;
$idFtaChapitreByDefault = FtaChapitreModel::getIdFtaChapitreByDefault($idFtaRole, $idFtaWorkflow, $ListeDesChapitres);
}
// Fin du controle d'intégrité *************************************************
//Si pas d'erreur, lancement de la transition
if (!$error) {
foreach ($selection_fta as $idFta) {
//Transition de la FTA
$commentaire_maj_fta = $new_commentaire_maj_fta;
$t = FtaTransitionModel::buildTransitionFta($idFta, $abreviation_fta_transition, $commentaire_maj_fta, $idFtaWorkflow, $ListeDesChapitres, $dateEcheanceFta);
//Codes de retour de la fonction:
// 0: FTA correctement transitée
// 1: FTA non transité car risque de doublon
// 3: Erreur autre
if ($abreviation_fta_transition == FtaEtatModel::ETAT_ABREVIATION_VALUE_VALIDE) {
//Seules les FTA validées entrent dans un système de diffusion
switch ($t["0"]) {
case 0:
//Récupération de la liste diffusion
$liste_destinataire = FtaTransitionModel::buildListeDiffusionTransition($idFta);
if ($liste_destinataire) {
$liste_global = $liste_global + $liste_destinataire;
//Envoi des mails de notification
if ($envoi_mail_detail) {
$idFta;
