";
$q = entites::list_biblio($user_userid);
$res = mysql_query($q, $dbh);
$nbr = mysql_num_rows($res);
if(!$nbr) {
//Pas d'etablissements définis pour l'utilisateur
$error = true;
$error_msg.= htmlentities($msg["acquisition_err_coord"],ENT_QUOTES, $charset)."
";
}
if ($error) {
error_message($msg[321], $error_msg.htmlentities($msg["acquisition_err_par"],ENT_QUOTES, $charset), '1', './admin.php?categ=acquisition');
die;
}
if ($nbr == '1') {
$row = mysql_fetch_object($res);
show_list_budg($row->id_entite);
} else {
$parity=1;
while($row=mysql_fetch_object($res)){
if ($parity % 2) {
$pair_impair = "even";
} else {
$pair_impair = "odd";
}
$parity += 1;
$tr_javascript=" onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='$pair_impair'\" onmousedown=\"document.location='./admin.php?categ=acquisition&sub=budget&action=list&id_bibli=$row->id_entite';\" ";
$aff.= "$row->raison_sociale ".htmlentities($biblio->raison_sociale,ENT_QUOTES,$charset)."
";
print "
".htmlentities($msg[103],ENT_QUOTES,$charset)."
".htmlentities($msg[acquisition_statut],ENT_QUOTES,$charset)."
";
//Affichage de la liste des budgets
$q = budgets::listByEntite($id_bibli);
$res = mysql_query($q, $dbh);
$parity=1;
while($row=mysql_fetch_object($res)){
if ($parity % 2) {
$pair_impair = "even";
} else {
$pair_impair = "odd";
}
$parity += 1;
$tr_javascript=" onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='$pair_impair'\" onmousedown=\"document.location='./admin.php?categ=acquisition&sub=budget&action=modif&id_bibli=$row->num_entite&id_bud=$row->id_budget';\" ";
print "".htmlentities($row->libelle, ENT_QUOTES, $charset)." ';
switch ($row->statut) {
case STA_BUD_VAL :
print htmlentities($msg[acquisition_statut_actif],ENT_QUOTES,$charset) ;
break;
case STA_BUD_CLO :
print htmlentities($msg[acquisition_statut_clot],ENT_QUOTES,$charset) ;
break;
default:
print htmlentities($msg[acquisition_budg_pre],ENT_QUOTES,$charset) ;
break;
}
print "
";
while ($row=mysql_fetch_object($res)) {
$form_exer.="".$row->libelle." ";
}
$form_exer.= " ";
$mnt = $mnt_form[0];
$sel_typ = $sel_typ_form;
$bouton_dup = "";
} else { //Modification
if (($bud->statut == STA_BUD_PRE) || ($bud->statut == STA_BUD_VAL && (!budgets::hasLignes($id_bud)) ) ) { //Exercice modifiable si budget non activé ou pas de lignes d'actes affectées
$form_exer = "";
while ($row=mysql_fetch_object($res)) {
$form_exer.="num_exercice == $row->id_exercice) $form_exer.= "selected='selected' ";
$form_exer.=">".$row->libelle." ";
}
$form_exer.= " ";
} else { // Exercice non modifiable si budget activé et non vide ou cloturé
$exer = new exercices($bud->num_exercice);
$form_exer = "".htmlentities($biblio->raison_sociale,ENT_QUOTES,$charset)."
";
$budg_form = str_replace('', $bouton_dup, $budg_form);
$budg_form = str_replace('!!exer!!', $form_exer, $budg_form);
$budg_form = str_replace('!!id_bibli!!', $id_bibli, $budg_form);
$budg_form = str_replace('!!id_bud!!', $id_bud, $budg_form);
$budg_form = str_replace('!!id_rub!!', 0, $budg_form);
$budg_form = str_replace('!!id_parent!!', 0, $budg_form);
print $budg_form;
print confirmation_delete("./admin.php?categ=acquisition&sub=budget&action=del&id_bibli=".$id_bibli."&id_bud=");
}
//Affiche le formulaire d'une rubrique
function show_rub_form($id_bud, $id_rub=0, $id_parent=0) {
global $dbh, $msg, $charset;
global $rub_form, $bt_add_lig;
global $ptab;
global $lig_rub, $lig_rub_img;
global $mnt_rub_form;
//Récuperation du budget
if ($id_bud) $bud= new budgets($id_bud);
else die();
//Récupération entité
$id_bibli = $bud->num_entite;
$biblio = new entites($id_bibli);
$head_form = "".htmlentities($biblio->raison_sociale,ENT_QUOTES,$charset)."
";
//Affichage entete formulaire
if(!$id_rub) { //création de rubrique
$rub_form = str_replace('!!form_title!!', htmlentities($msg[acquisition_ajout_rub],ENT_QUOTES,$charset), $rub_form);
//Affichage barre de navigation
$nav_form.= "".$bud->libelle." ";
if ($id_parent) {
$list_bar = rubriques::listAncetres($id_parent, TRUE);
foreach ($list_bar as $value) {
$nav_form.= " > ".htmlentities($value[1], ENT_QUOTES, $charset)." ";
}
}
$rub_form = str_replace('', $nav_form, $rub_form);
$rub_form = str_replace('!!libelle!!', '', $rub_form);
if ($bud->type_budget == TYP_BUD_RUB ) {
$rub_form = str_replace('', $mnt_rub_form[0], $rub_form);
$mnt_rub = str_replace('!!mnt_rub!!', '0.00',$mnt_rub_form[1]);
$rub_form = str_replace('', $mnt_rub, $rub_form);
$rub_form = str_replace('!!lib_mnt!!', htmlentities($msg['acquisition_rub_mnt'], ENT_QUOTES, $charset), $rub_form);
} else {
$rub_form = str_replace('!!lib_mnt!!', ' ', $rub_form);
}
$label_ncp ="".htmlentities($msg[acquisition_num_cp_compta],ENT_QUOTES,$charset)." ";
$rub_form = str_replace('', $label_ncp, $rub_form);
$ncp = "".$bud->libelle." ";
$list_bar = rubriques::listAncetres($id_rub, FALSE);
foreach ($list_bar as $value) {
$nav_form.= " > ".htmlentities($value[1], ENT_QUOTES, $charset)." ";
}
$rub_form = str_replace('', $nav_form, $rub_form);
$rub_form = str_replace('!!libelle!!', htmlentities($rub->libelle,ENT_QUOTES,$charset), $rub_form);
if (!$bud->type_budget) {
$rub_form = str_replace('!!lib_mnt!!', htmlentities($msg['acquisition_rub_mnt'], ENT_QUOTES, $charset), $rub_form);
if(rubriques::countChilds($id_rub)) {
$ncp = ' ';
$aut = FALSE;
} else {
$rub_form = str_replace('', $mnt_rub_form[0], $rub_form);
$mnt_rub = str_replace('!!mnt_rub!!', $rub->montant, $mnt_rub_form[1]);
$rub_form = str_replace('', $mnt_rub, $rub_form);
$label_ncp ="".htmlentities($msg[acquisition_num_cp_compta],ENT_QUOTES,$charset)." ";
$ncp = "".htmlentities($msg[acquisition_num_cp_compta],ENT_QUOTES,$charset)." ";
$ncp = "
";
error_message($msg[321], $error_msg.htmlentities($msg["acquisition_err_par"],ENT_QUOTES, $charset), '1', './admin.php?categ=acquisition');
die;
}
//Traitement des actions
switch($action) {
case 'list':
show_list_budg($id_bibli);
break;
case 'add':
verif_exercice($id_bibli);
show_budg_form($id_bibli);
break;
case 'modif':
if (budgets::exists($id_bud)) {
show_budg_form($id_bibli, $id_bud);
} else {
show_list_budg($id_bibli);
}
break;
case 'update':
// vérification validité des données fournies.
//Pas deux libelles de budgets identiques pour la même entité et le même exercice
$nbr = budgets::existsLibelle($id_bibli, $libelle, $exer, $id_bud);
if ( $nbr > 0 ) {
error_form_message($libelle.$msg["acquisition_budg_already_used"]);
break;
}
//Seuil d'alerte compris entre 0 et 100
if (!is_numeric($seuil) || $seuil < 0 || $seuil > 100 ) {
error_form_message($libelle.$msg["acquisition_budg_seu_error"]);
break;
}
//Montant du budget compris entre 0.00 et 999999.99 si global
if ( (!$id_bud && $sel_typ==1) || $id_bud ) {
if ( $mnt_bud && (!is_numeric($mnt_bud) || $mnt_bud < 0.00 || $mnt_bud > 999999.99 )) {
error_form_message($libelle.$msg["acquisition_bud_mnt_error"]);
break;
}
}
$bu = new budgets($id_bud);
$bu->num_entite = $id_bibli;
$bu->num_exercice = $exer;
$bu->libelle = stripslashes($libelle);
$bu->commentaires = stripslashes($comment);
$bu->seuil_alerte = $seuil;
$bu->statut = $val_statut;
if (!$id_bud) {
if (!$sel_typ) {
$bu->type_budget = TYP_BUD_RUB ; //Affectation par rubriques
$bu->montant_global = 0;
} else {
$bu->type_budget = TYP_BUD_GLO ; //Affectation globale
$bu->montant_global = $mnt_bud;
}
} else {
if ($bu->type_budget == TYP_BUD_GLO ) $bu->montant_global = $mnt_bud;
}
$bu->save();
if ($id_bud) show_list_budg($id_bibli);
else show_budg_form($id_bibli, $bu->id_budget);
break;
case 'del':
if($id_bud) {
$budg = new budgets($id_bud);
$total1 = budgets::hasLignes($id_bud);
$total2 = budgets::countRubriques($id_bud);
if ( ($total1==0) && ($total2==0) ) {
budgets::delete($id_bud);
show_list_budg($id_bibli);
} else {
$msg_suppr_err = $msg[acquisition_budg_used] ;
if ($total1) $msg_suppr_err .= "