home/eliteafr/pmb/acquisition/achats/commandes/commandes.inc.php 0000666 00000265064 15220777643 0021073 0 ustar 00 1
if ($nb_bib == '1') {
show_list_cde($tab_bib[0][0]);
exit;
}
$def_bibli=entites::getSessionBibliId();
if (in_array($def_bibli, $tab_bib[0])) {
show_list_cde($def_bibli);
exit;
}
$aff = "";
print $aff;
}
//Affiche la liste des commandes pour une bibliotheque
function show_list_cde($id_bibli) {
global $msg, $charset;
global $search_form_actes, $cdelist_form,$cdelist_bt_chk,$cdelist_script;
global $cdelist_bt_valid,$cdelist_bt_delete,$cdelist_bt_sold,$cdelist_bt_arc;
global $nb_per_page_acq,$nb_per_page;
global $class_path;
global $user_input, $statut, $page, $nbr_lignes, $last_param, $sortBy;
global $tab_bib;
global $acquisition_pdfcde_by_mail;
if(!isset($sortBy)){
if(trim($_SESSION["acquisition_cde_sort"])){
$sortBy=$_SESSION["acquisition_cde_sort"];
}else{
$sortBy="";
}
}else{
$_SESSION["acquisition_cde_sort"]=$sortBy;
}
$bib = new entites($id_bibli);
$bib_coord = pmb_mysql_fetch_object(entites::get_coordonnees($id_bibli,1));
//Creation selecteur etablissement
$sel_bibli ="";
$search_form_actes=str_replace('', $sel_bibli, $search_form_actes);
//Creation selecteur statut
$sel_statut = "";
$search_form_actes=str_replace('', $sel_statut ,$search_form_actes);
//Affichage form de recherche
$titre = htmlentities($msg['recherche'].' : '.$msg['acquisition_ach_cde'], ENT_QUOTES, $charset);
$action ="./acquisition.php?categ=ach&sub=cmde&action=list&user_input=";
$bouton_add = "";
$search_form_actes = str_replace('!!form_title!!', $titre, $search_form_actes);
$search_form_actes = str_replace('!!action!!', $action, $search_form_actes);
$search_form_actes = str_replace('', $bouton_add, $search_form_actes);
$search_form_actes = str_replace('!!user_input!!', $user_input, $search_form_actes);
$search_form_actes = str_replace('!!sortBy!!', $sortBy, $search_form_actes);
print $search_form_actes;
if (!$statut) {
$statut = getSessionCdeState(); //Recuperation du statut courant
} else {
setSessionCdeState($statut);
}
print "";
//Prise en compte du formulaire de recherche
// nombre de références par pages
if(!isset($nb_per_page)){
if ($nb_per_page_acq != "") $nb_per_page = $nb_per_page_acq ;
else $nb_per_page = 10;
}
// traitement de la saisie utilisateur
require_once($class_path."/analyse_query.class.php");
// comptage
if(!$nbr_lignes) {
if(!$user_input) {
$nbr_lignes = entites::getNbActes($id_bibli, TYP_ACT_CDE, $statut);
} else {
$aq=new analyse_query(stripslashes($user_input),0,0,0,0);
if ($aq->error) {
error_message($msg["searcher_syntax_error"],sprintf($msg["searcher_syntax_error_desc"],$aq->current_car,$aq->input_html,$aq->error_message));
exit;
}
$nbr_lignes = entites::getNbActes($id_bibli, TYP_ACT_CDE, $statut, $aq, $user_input);
}
} else {
$aq=new analyse_query(stripslashes($user_input),0,0,0,0);
}
if(!$page) $page=1;
$debut =($page-1)*$nb_per_page;
if($nbr_lignes) {
$url_base = "$PHP_SELF?categ=ach&sub=cmde&action=list&id_bibli=$id_bibli&user_input=".rawurlencode(stripslashes($user_input))."&statut=$statut&sortBy=$sortBy" ;
// liste
if(!$user_input) {
$res = entites::listActes($id_bibli, TYP_ACT_CDE, $statut, $debut, $nb_per_page, 0, '', $sortBy);
} else {
$res = entites::listActes($id_bibli, TYP_ACT_CDE, $statut, $debut, $nb_per_page, $aq, $user_input, $sortBy);
}
//Affichage liste des commandes
$cde_list="";
$nbr = pmb_mysql_num_rows($res);
$parity=1;
for($i=0;$i<$nbr;$i++) {
$row=pmb_mysql_fetch_object($res);
//TODO A modifier si une seule date de livraison par acte
$dateech = $row->date_ech_calc;
if ($dateech != '00000000') $dateech=formatdate($dateech); else $dateech = '';
$st = ( ($row->statut) & ~(STA_ACT_FAC | STA_ACT_PAY | STA_ACT_ARC) );
switch ($st) {
case STA_ACT_AVA :
$st_cde = htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
break;
case STA_ACT_ENC :
$st_cde = htmlentities($msg['acquisition_cde_enc'], ENT_QUOTES, $charset);
break;
case STA_ACT_REC :
$st_cde = htmlentities($msg['acquisition_cde_liv'], ENT_QUOTES, $charset);
break;
default :
$st_cde = htmlentities($msg['acquisition_cde_enc'], ENT_QUOTES, $charset);
}
if( ($row->statut & STA_ACT_PAY) == STA_ACT_PAY ) {
$st_fac = htmlentities($msg['acquisition_act_pay'], ENT_QUOTES, $charset);
} elseif( ($row->statut & STA_ACT_FAC) == STA_ACT_FAC ) {
$st_fac = htmlentities($msg['acquisition_act_fac'], ENT_QUOTES, $charset);
} else
$st_fac = '';
if ($st_fac) $st_cde.=' / '.$st_fac;
if( ($row->statut & STA_ACT_ARC) == STA_ACT_ARC ) $st_cde = ''.$st_cde.'';
if ($parity % 2) {
$pair_impair = "even";
} else {
$pair_impair = "odd";
}
$parity += 1;
$tr_javascript = "onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='".$pair_impair."'\" ";
$dn_javascript = "onmousedown=\"document.location='./acquisition.php?categ=ach&sub=cmde&action=modif&id_bibli=".$id_bibli."&id_cde=".$row->id_acte."' \" ";
$cde_list.= "
| ".$row->numero." |
".htmlentities($row->raison_sociale, ENT_QUOTES, $charset)." |
".formatdate($row->date_acte)." |
".$dateech." |
$st_cde |
id_acte."&page=".$page."&by_mail=0'\" >
";
if ( ( (($row->statut & ~STA_ACT_ARC)== STA_ACT_ENC) && $acquisition_pdfcde_by_mail && strpos($bib_coord->email,'@')) ) {
$cde_list.= "
id_acte."&page=".$page."&by_mail=1'\" >
";
}
$cde_list.= " | ";
if ($statut!=STA_ACT_ALL && $statut!=STA_ACT_ARC) {
$cde_list.= " | ";
}
$cde_list.= "
";
}
if (!$last_param) {
$nav_bar = aff_pagination ($url_base, $nbr_lignes, $nb_per_page, $page, 10, true, true);
} else {
$nav_bar = "";
}
$fieldList=array("1"=>"numero","2"=>"raison_sociale","3"=>"date_acte","4"=>"date_ech_calc");
foreach ($fieldList as $k=>$field){
if($sortBy==$field){
$cdelist_form = str_replace('!!sortBy_'.$k.'_1!!',"-".$field,$cdelist_form);
$cdelist_form = str_replace('!!sortBy_'.$k.'_2!!'," ▴",$cdelist_form);
}elseif($sortBy=="-".$field){
$cdelist_form = str_replace('!!sortBy_'.$k.'_1!!',$field,$cdelist_form);
$cdelist_form = str_replace('!!sortBy_'.$k.'_2!!'," ▾",$cdelist_form);
}else{
$cdelist_form = str_replace('!!sortBy_'.$k.'_1!!',$field,$cdelist_form);
$cdelist_form = str_replace('!!sortBy_'.$k.'_2!!',"",$cdelist_form);
}
}
$cdelist_form = str_replace('',$cde_list,$cdelist_form);
$cdelist_form = str_replace('',$nav_bar,$cdelist_form);
if($statut!=STA_ACT_ALL && $statut!=STA_ACT_ARC) {
//colonne chk
$cdelist_form=str_replace("", " | ",$cdelist_form);
//Bouton Sélectionner
$cdelist_form=str_replace('', $cdelist_bt_chk,$cdelist_form);
//JavaScript
$cdelist_form=str_replace('', $cdelist_script,$cdelist_form);
}
$bt_list='';
$bt_sup='';
switch($statut) {
case STA_ACT_AVA :
$bt_list=$cdelist_bt_valid;
$bt_sup=$cdelist_bt_delete;
break;
case STA_ACT_ENC :
$bt_list=$cdelist_bt_sold;
break;
case STA_ACT_REC :
$bt_list=$cdelist_bt_arc;
break;
default:
break;
}
$cdelist_form = str_replace('',$bt_list,$cdelist_form);
$cdelist_form = str_replace('',$bt_sup,$cdelist_form);
print $cdelist_form;
} else {
// la requête n'a produit aucun résultat
error_message($msg['acquisition_cde_rech'], str_replace('!!cde_cle!!', stripslashes($user_input), $msg['acquisition_cde_rech_error']), 0, './categ=ach&sub=cmde&action=list&id_bibli='.$id_bibli);
}
}
//Affiche les exercices actifs pour création commande
function show_list_exercices($id_bibli, $fct, $url, $id_dev=0) {
global $dbh;
global $msg, $charset;
global $current_module;
$q = entites::getCurrentExercices($id_bibli);
$r = pmb_mysql_query($q, $dbh);
$n = pmb_mysql_num_rows($r);
switch ($n) {
case 0 :
//Pas d'exercice actif pour la bibliothèque
$error_msg.= htmlentities($msg["acquisition_err_exer"],ENT_QUOTES, $charset)."";
error_message($msg[321], $error_msg.htmlentities($msg["acquisition_err_par"],ENT_QUOTES, $charset), '1', './admin.php?categ=acquisition');
die;
break;
case 1 :
//1 seul exercice actif pour la bibliotheque
$row = pmb_mysql_fetch_object($r);
eval($fct."(".$id_bibli.", ".$row->id_exercice.", ".$id_dev.");");
break;
default :
$aff = "";
print $aff;
break;
}
}
//Affiche le formulaire de création/modification de commande
function show_cde($id_bibli, $id_exer, $id_cde) {
global $msg, $charset;
global $modif_cde_form, $valid_cde_form;
global $bt_enr, $bt_enr_valid, $bt_val, $bt_dup, $bt_rec, $bt_fac, $bt_audit, $bt_sol, $bt_arc, $bt_sup, $bt_imp, $bt_mail ;
global $sel_date_liv_mod, $sel_date_liv_fix, $sel_date_pay_mod;
global $pmb_gestion_devise;
global $p_user;
global $pmb_type_audit;
//Recuperation etablissement
$bibli = new entites($id_bibli);
$lib_bibli = htmlentities($bibli->raison_sociale, ENT_QUOTES, $charset);
//Prise en compte des adresses utilisateurs par defaut
$tab1 = explode('|', $p_user->speci_coordonnees_etab);
$tab_adr=array();
foreach ($tab1 as $value) {
$tab2=explode(',', $value);
$tab_adr[$tab2[0]]['id_adr_fac']=$tab2[1];
$tab_adr[$tab2[0]]['id_adr_liv']=$tab2[2];
}
$def_id_adr_fac=$tab_adr[$id_bibli]['id_adr_fac'];
$def_id_adr_liv=$tab_adr[$id_bibli]['id_adr_liv'];
if(!$id_cde) { //creation de commmande
//Recuperation exercice
$exer = new exercices($id_exer);
$lib_exer = htmlentities($exer->libelle, ENT_QUOTES, $charset);
$form = $modif_cde_form;
$titre = htmlentities($msg['acquisition_cde_cre'], ENT_QUOTES, $charset);
$date_cre = formatdate(today());
//$numero = calcNumero($id_bibli, TYP_ACT_CDE);
$nom_acte = '';
$statut = STA_ACT_AVA;
$sel_statut = "";
$sel_statut.=htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
$id_fou = '0';
$lib_fou = '';
$id_adr_fou = '0';
$adr_fou = '';
if ($def_id_adr_fac) {
$id_adr_fac = $def_id_adr_fac;
$coord = new coordonnees($def_id_adr_fac);
} else {
$coord_fac = entites::get_coordonnees($id_bibli, '1');
if (pmb_mysql_num_rows($coord_fac) != 0) {
$coord = pmb_mysql_fetch_object($coord_fac);
$id_adr_fac = $coord->id_contact;
} else {
$id_adr_fac='0';
}
}
if ($id_adr_fac) {
if($coord->libelle != '') $adr_fac = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact != '') $adr_fac.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_fac.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_fac.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_fac.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_fac.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$adr_fac = '';
}
if ($def_id_adr_liv) {
$id_adr_liv = $def_id_adr_liv;
$coord = new coordonnees($def_id_adr_liv);
} else {
$coord_liv = entites::get_coordonnees($id_bibli, '2');
if (pmb_mysql_num_rows($coord_liv) != 0) {
$coord = pmb_mysql_fetch_object($coord_liv);
$id_adr_liv = $coord->id_contact;
} else {
$id_adr_liv='0';
}
}
if ($id_adr_liv) {
if($coord->libelle != '') $adr_liv = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact != '') $adr_liv.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_liv.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_liv.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_liv.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_liv.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$id_adr_liv = $id_adr_fac;
$adr_liv = $adr_fac;
}
$comment = '';
$comment_i = '';
$lien_dev = '';
$liens_liv = '';
$liens_fac = '';
$ref = '';
$sel_date_pay = $sel_date_pay_mod;
$date_pay = '';
$date_pay_lib = $msg['parperso_nodate'];
$num_pay = '';
$sel_date_liv=$sel_date_liv_mod;
$date_liv = '';
$date_liv_lib = $msg['parperso_nodate'];
$id_dev = '0';
$devise = $pmb_gestion_devise;
$bt_enr_valid = '';
$bt_dup = '';
$bt_rec = '';
$bt_fac = '';
$bt_sol = '';
$bt_imp = '';
$bt_mail = '';
$bt_audit = '';
$bt_arc = '';
$bt_sup = '';
$lignes= show_lig_cde(0);
} else { //visualisation ou modification de commmande
//Recuperation commande
$cde = new actes($id_cde);
$exer = new exercices($cde->num_exercice);
$lib_exer = htmlentities($exer->libelle, ENT_QUOTES, $charset);
//elements communs
$titre = htmlentities($msg['acquisition_cde_mod'], ENT_QUOTES, $charset);
$date_cre = formatdate($cde->date_acte);
$numero = htmlentities($cde->numero, ENT_QUOTES, $charset);
$nom_acte = htmlentities($cde->nom_acte,ENT_QUOTES,$charset);
$id_fou = $cde->num_fournisseur;
$fou = new entites($id_fou);
$lib_fou = htmlentities($fou->raison_sociale, ENT_QUOTES, $charset);
$coord = entites::get_coordonnees($fou->id_entite, '1');
if (pmb_mysql_num_rows($coord) != 0) {
$coord = pmb_mysql_fetch_object($coord);
$id_adr_fou = $coord->id_contact;
if($coord->libelle != '') $adr_fou = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact !='') $adr_fou.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_fou.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_fou.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_fou.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_fou.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$id_adr_fou = '0';
$adr_fou = '';
}
$id_adr_fac = $cde->num_contact_fact;
if ($id_adr_fac) {
$coord_fac = new coordonnees($id_adr_fac);
if($coord_fac->libelle != '') $adr_fac = htmlentities($coord_fac->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact !='') $adr_fac.= htmlentities($coord_fac->contact, ENT_QUOTES, $charset)."\n";
if($coord_fac->adr1 != '') $adr_fac.= htmlentities($coord_fac->adr1, ENT_QUOTES, $charset)."\n";
if($coord_fac->adr2 != '') $adr_fac.= htmlentities($coord_fac->adr2, ENT_QUOTES, $charset)."\n";
if($coord_fac->cp !='') $adr_fac.= htmlentities($coord_fac->cp, ENT_QUOTES, $charset).' ';
if($coord_fac->ville != '') $adr_fac.= htmlentities($coord_fac->ville, ENT_QUOTES, $charset);
} else {
$id_adr_fac = '0';
$adr_fac = '';
}
$id_adr_liv = $cde->num_contact_livr;
if ($id_adr_liv) {
$coord_liv = new coordonnees($id_adr_liv);
if($coord_liv->libelle != '') $adr_liv = htmlentities($coord_liv->libelle, ENT_QUOTES, $charset)."\n";
if($coord_liv->contact != '') $adr_liv.= htmlentities($coord_liv->contact, ENT_QUOTES, $charset)."\n";
if($coord_liv->adr1 != '') $adr_liv.= htmlentities($coord_liv->adr1, ENT_QUOTES, $charset)."\n";
if($coord_liv->adr2 != '') $adr_liv.= htmlentities($coord_liv->adr2, ENT_QUOTES, $charset)."\n";
if($coord_liv->cp !='') $adr_liv.= htmlentities($coord_liv->cp, ENT_QUOTES, $charset).' ';
if($coord_liv->ville != '') $adr_liv.= htmlentities($coord_liv->ville, ENT_QUOTES, $charset);
} else {
$id_adr_liv = '0';
$adr_liv = '';
}
$comment = htmlentities($cde->commentaires, ENT_QUOTES, $charset);
$comment_i = htmlentities($cde->commentaires_i, ENT_QUOTES, $charset);
$id_dev = liens_actes::getDevis($id_cde);
if ($id_dev) {
$dev=new actes($id_dev);
$lien_dev = "".$dev->numero."";
}
$tab_liens = liens_actes::getChilds($id_cde);
$liens_liv = '';
$liens_fac = '';
while(($row_liens = pmb_mysql_fetch_object($tab_liens))) {
if( ($row_liens->type_acte) == TYP_ACT_LIV ) {
$liens_liv.= "
num_acte_lie."\">".$row_liens->numero."";
}
if( ($row_liens->type_acte) == TYP_ACT_FAC ) {
$liens_fac.= "
num_acte_lie."\">".$row_liens->numero."";
}
}
$ref = htmlentities($cde->reference, ENT_QUOTES, $charset);
$sel_date_pay = $sel_date_pay_mod;
if ($cde->date_paiement=='0000-00-00') {
$date_pay = '';
$date_pay_lib = $msg['parperso_nodate'];
} else {
$date_pay = $cde->date_paiement;
$date_pay_lib = formatdate($cde->date_paiement);
}
$num_pay = htmlentities($cde->num_paiement, ENT_QUOTES, $charset);
if (!$pmb_type_audit) {
$bt_audit = '';
}
$devise = htmlentities($cde->devise, ENT_QUOTES, $charset);
if ($cde->statut != STA_ACT_AVA) { //Commande non modifiable
$form = $valid_cde_form;
$statut = $cde->statut;
$st = ( ($cde->statut) & ~(STA_ACT_FAC | STA_ACT_PAY | STA_ACT_ARC) );
switch ($st) {
case STA_ACT_AVA :
$sel_statut = htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
break;
case STA_ACT_ENC :
$sel_statut = htmlentities($msg['acquisition_cde_enc'], ENT_QUOTES, $charset);
break;
case STA_ACT_REC :
$sel_statut = htmlentities($msg['acquisition_cde_liv'], ENT_QUOTES, $charset);
break;
default :
$sel_statut = htmlentities($msg['acquisition_cde_enc'], ENT_QUOTES, $charset);
break;
}
if( ($cde->statut & STA_ACT_PAY) == STA_ACT_PAY ) {
$statut_fac = htmlentities($msg['acquisition_act_pay'], ENT_QUOTES, $charset);
} elseif( ($cde->statut & STA_ACT_FAC) == STA_ACT_FAC ) {
$statut_fac = htmlentities($msg['acquisition_act_fac'], ENT_QUOTES, $charset);
} else {
$statut_fac = '';
}
if ($statut_fac) $sel_statut.=' / '.$statut_fac;
if( ($cde->statut & STA_ACT_ARC) == STA_ACT_ARC ) $sel_statut = ''.$sel_statut.'';
$sel_statut.= "";
$sel_date_liv=$sel_date_liv_fix;
if ($cde->date_ech=='0000-00-00') {
$date_liv_lib = $msg['parperso_nodate'];
} else {
$date_liv_lib = formatdate($cde->date_ech);
}
if (($cde->statut & STA_ACT_ARC) == STA_ACT_ARC ){ //Commande archivee
$bt_enr = '';
$bt_enr_valid = '';
$bt_val = '';
$bt_rec = '';
$bt_fac = '';
$bt_sol = '';
$bt_arc = '';
} else { //Commande non archivee
$bt_enr = '';
$bt_val = '';
if (($cde->statut & STA_ACT_REC) == STA_ACT_REC) { //Commande soldee
$bt_rec = '';
$bt_sol = '';
}
if (($cde->statut & STA_ACT_FAC) == STA_ACT_FAC) { //Commande facturee
$bt_fac = '';
}
if ( (($cde->statut & STA_ACT_REC) != STA_ACT_REC)
|| (($cde->statut & STA_ACT_FAC) != STA_ACT_FAC)
|| (($cde->statut & STA_ACT_PAY) != STA_ACT_PAY) ) { //Commande ni soldee, ni facturee, ni payee
$bt_arc = '';
}
}
$lignes= show_lig_cde($id_cde, FALSE);
} else { //Commande modifiable
$form = $modif_cde_form;
$statut = STA_ACT_AVA;
$sel_statut = "";
$sel_statut.=htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
$sel_date_liv = $sel_date_liv_mod;
if ($cde->date_ech=='0000-00-00') {
$date_liv = '';
$date_liv_lib = $msg['parperso_nodate'];
} else {
$date_liv = $cde->date_ech;
$date_liv_lib = formatdate($cde->date_ech);
}
$bt_enr_valid = '';
$bt_rec = '';
$bt_fac = '';
$bt_sol = '';
$lignes= show_lig_cde($id_cde);
}
}
//Date validation
if ($cde->date_valid != '0000-00-00') {
$form = str_replace('!!date_valid_label!!',htmlentities($msg['acquisition_cde_date_val'], ENT_QUOTES, $charset),$form);
$form = str_replace('!!date_valid!!',formatdate($cde->date_valid),$form);
} else {
$form = str_replace('!!date_valid_label!!','',$form);
$form = str_replace('!!date_valid!!','',$form);
}
//complement formulaire
$form = str_replace('', $sel_statut, $form);
$form = str_replace('', $sel_date_liv, $form);
$form = str_replace('', $sel_date_pay, $form);
$form = str_replace('', $bt_enr, $form);
$form = str_replace('', $bt_enr_valid, $form);
$form = str_replace('', $bt_val, $form);
$form = str_replace('', $bt_dup, $form);
$form = str_replace('', $bt_rec, $form);
$form = str_replace('', $bt_fac, $form);
$form = str_replace('', $bt_imp, $form);
$form = str_replace('', $bt_audit, $form);
$form = str_replace('', $bt_arc, $form);
$form = str_replace('', $bt_sol, $form);
$form = str_replace('', $bt_sup, $form);
$form = str_replace('!!act_nblines!!', $lignes[0], $form);
$form = str_replace('', $lignes[1], $form);
//Remplissage formulaire
$form = str_replace('!!form_title!!', $titre, $form);
$form = str_replace('!!id_bibli!!', $id_bibli, $form);
$form = str_replace('!!lib_bibli!!', $lib_bibli, $form);
$form = str_replace('!!id_exer!!', $exer->id_exercice, $form);
$form = str_replace('!!lib_exer!!', $lib_exer, $form);
$form = str_replace('!!id_cde!!', $id_cde, $form);
$form = str_replace('!!date_cre!!', $date_cre, $form);
$form = str_replace('!!dat_def_lib!!', formatdate(today()), $form);
$form = str_replace('!!dat_def!!', preg_replace('/-/', '', today()), $form);
$form = str_replace('!!numero!!', $numero, $form);
$form = str_replace('!!nom_acte!!', $nom_acte, $form);
$form = str_replace('!!statut!!', $statut, $form);
$form = str_replace('!!id_fou!!', $id_fou, $form);
$form = str_replace('!!lib_fou!!', $lib_fou, $form);
$form = str_replace('!!id_adr_fou!!', $id_adr_fou, $form);
$form = str_replace('!!adr_fou!!', $adr_fou, $form);
$form = str_replace('!!date_liv!!', $date_liv, $form);
$form = str_replace('!!date_liv_lib!!', $date_liv_lib, $form);
$form = str_replace('!!date_pay!!', $date_pay, $form);
$form = str_replace('!!date_pay_lib!!', $date_pay_lib, $form);
$form = str_replace('!!num_pay!!', $num_pay, $form);
$form = str_replace('!!id_adr_liv!!', $id_adr_liv, $form);
$form = str_replace('!!adr_liv!!', $adr_liv, $form);
$form = str_replace('!!id_adr_fac!!', $id_adr_fac, $form);
$form = str_replace('!!adr_fac!!', $adr_fac, $form);
$form = str_replace('!!comment!!', $comment, $form);
$form = str_replace('!!comment_i!!', $comment_i, $form);
$form = str_replace('!!ref!!', $ref, $form);
$form = str_replace('!!id_dev!!', $id_dev, $form);
$form = str_replace('!!devise!!', $devise, $form);
$form = str_replace('!!lien_dev!!', $lien_dev, $form);
$form = str_replace('!!liens_fac!!', $liens_fac, $form);
$form = str_replace('!!liens_liv!!', $liens_liv, $form);
//ajout ajax pour recherche budgets
if($id_cde) {
$form.="";
}
print $form;
}
//Affiche les lignes d'une commande
function show_lig_cde($id_cde, $mod=TRUE) {
global $charset,$msg;
global $acquisition_gestion_tva;
global $modif_cde_row_form, $valid_cde_row_form;
$form = "
";
$i=0;
if (!$id_cde) {
$t = array(0=>$i, $form);
return $t;
}
if ($mod) {
$row_form = $modif_cde_row_form;
} else {
$row_form = $valid_cde_row_form;
}
$lgstat_form=lgstat::getHtmlSelect(array(), FALSE, array('id'=>'lg_statut[!!i!!]', 'name'=>'lg_statut[!!i!!]'));
$lignes = actes::getLignes($id_cde);
while (($row = pmb_mysql_fetch_object($lignes))) {
$i++;
$form.= $row_form;
$form = str_replace('!!no!!', $i, $form);
$form = str_replace('!!code!!', htmlentities($row->code, ENT_QUOTES, $charset), $form);
if ($mod) {
$form = str_replace('!!lib!!', htmlentities($row->libelle, ENT_QUOTES, $charset), $form);
} else {
$form = str_replace('!!lib!!', nl2br(htmlentities($row->libelle, ENT_QUOTES, $charset)), $form);
}
$form = str_replace('!!qte!!', $row->nb, $form);
$form = str_replace('!!prix!!', $row->prix, $form);
if ($acquisition_gestion_tva) {
$form = str_replace('!!tva!!', $row->tva , $form);
if ($acquisition_gestion_tva==1 ) {
$prix_ttc=round($row->prix+($row->prix/100*$row->tva),2);
$onchange_tva="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ht_to_ttc(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_prix="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ht_to_ttc(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_ht_ttc="
".$prix_ttc."
";
}elseif ($acquisition_gestion_tva==2 ) {
$prix=$row->prix;
$tva=$row->tva;
$prix_ht=round( $prix / (($tva/100)+1),2);
$onchange_tva="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ttc_to_ht(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_prix="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ttc_to_ht(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_ht_ttc="
".$prix_ht."
";
}
if ($row->debit_tva==1 ) {
$force_ht_ttc="
".$msg["acquisition_force_ht"]."";
}else{
$force_ht_ttc="
".$msg["acquisition_force_ttc"]."";
}
}
$form = str_replace('!!onchange_tva!!', $onchange_tva, $form);
$form = str_replace('!!convert_prix!!', $convert_prix, $form);
$form = str_replace('!!convert_ht_ttc!!', $convert_ht_ttc, $form);
$form = str_replace('!!force_ht_ttc!!', $force_ht_ttc, $form);
$form = str_replace('!!rem!!', $row->remise, $form);
$lgstat=str_replace('!!i!!',$i,$lgstat_form);
$lgstat=str_replace("value='$row->statut' ","value='$row->statut' selected='selected' ",$lgstat);
$form=str_replace('!!lgstat!!',$lgstat,$form);
$form=str_replace('!!comment_lg!!',htmlentities($row->commentaires_gestion,ENT_QUOTES,$charset),$form);
$form=str_replace('!!comment_lo!!',htmlentities($row->commentaires_opac,ENT_QUOTES,$charset),$form);
$form=str_replace('!!id_cde!!',$id_cde,$form);
if ($mod) {
if ($row->num_type) {
$tp = new types_produits($row->num_type);
$form = str_replace('!!typ!!', $tp->id_produit, $form);
$form = str_replace('!!lib_typ!!', htmlentities($tp->libelle, ENT_QUOTES, $charset), $form);
} else {
$form = str_replace('!!typ!!', '0', $form);
$form = str_replace('!!lib_typ!!', '', $form);
}
if ($row->num_rubrique) {
$rub = new rubriques($row->num_rubrique);
$bud = new budgets($rub->num_budget);
$form = str_replace('!!rub!!', $rub->id_rubrique, $form);
$tab_rub = rubriques::listAncetres($rub->id_rubrique, true);
$lib_rub = '';
foreach ($tab_rub as $dummykey=>$value) {
$lib_rub.= $value[1];
if($value[0] != $row->num_rubrique) $lib_rub.= ":";
}
$form = str_replace('!!lib_rub!!', htmlentities($bud->libelle.":".$lib_rub, ENT_QUOTES, $charset), $form);
} else {
$form = str_replace('!!rub!!', '0', $form);
$form = str_replace('!!lib_rub!!', '', $form);
}
$form = str_replace('!!id_sug!!', $row->num_acquisition, $form);
$form = str_replace('!!id_lig!!', $row->id_ligne, $form);
$form = str_replace('!!typ_lig!!', $row->type_ligne, $form);
$form = str_replace('!!id_prod!!', $row->num_produit, $form);
} else {
//recherche des lignes de livraison
$lig_liv = lignes_actes::getLivraisons($row->id_ligne);
$rec = 0;
while (($row_liv = pmb_mysql_fetch_object($lig_liv))) {
$rec = $rec + $row_liv->nb;
}
$form = str_replace('!!rec!!', $rec, $form);
if ($row->num_type) {
$tp = new types_produits($row->num_type);
$form = str_replace('!!lib_typ!!', htmlentities($tp->libelle, ENT_QUOTES, $charset), $form);
} else {
$form = str_replace('!!lib_typ!!', '', $form);
}
if ($row->num_rubrique) {
$rub = new rubriques($row->num_rubrique);
$bud = new budgets($rub->num_budget);
$tab_rub = rubriques::listAncetres($rub->id_rubrique, true);
$lib_rub = '';
foreach ($tab_rub as $dummykey=>$value) {
$lib_rub.= $value[1];
if($value[0] != $row->num_rubrique) $lib_rub.= ":";
}
$form = str_replace('!!lib_rub!!', htmlentities($bud->libelle.":".$lib_rub, ENT_QUOTES, $charset), $form);
} else {
$form = str_replace('!!lib_rub!!', '', $form);
}
$form = str_replace('!!id_lig!!', $row->id_ligne, $form);
}
}
$t = array(0=>$i, 1=>$form);
return $t;
}
//Affiche le formulaire de création de commande à partir d'un devis
function show_cde_from_dev($id_bibli, $id_exer, $id_dev) {
global $msg, $charset;
global $modif_cde_form;
global $bt_enr, $bt_val;
global $sel_date_liv_mod, $sel_date_pay_mod;
//Recuperation etablissement
$bibli = new entites($id_bibli);
$lib_bibli = htmlentities($bibli->raison_sociale, ENT_QUOTES, $charset);
$form = $modif_cde_form;
//Recuperation devis
$dev = new actes($id_dev);
//Recuperation exercice
$exer = new exercices($id_exer);
$lib_exer = htmlentities($exer->libelle, ENT_QUOTES, $charset);
$titre = htmlentities($msg['acquisition_cde_cre'], ENT_QUOTES, $charset);
$date_cre = formatdate(today());
//$numero = calcNumero($id_bibli, TYP_ACT_CDE);
$nom_acte = '';
$statut = STA_ACT_AVA;
$sel_statut = "";
$sel_statut.=htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
$id_fou = $dev->num_fournisseur;
$fou = new entites($id_fou);
$lib_fou = htmlentities($fou->raison_sociale, ENT_QUOTES, $charset);
$coord = entites::get_coordonnees($fou->id_entite, '1');
if (pmb_mysql_num_rows($coord) != 0) {
$coord = pmb_mysql_fetch_object($coord);
$id_adr_fou = $coord->id_contact;
if($coord->libelle != '') $adr_fou = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact != '') $adr_fou.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_fou.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_fou.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_fou.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_fou.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$id_adr_fou = '0';
$adr_fou = '';
}
$id_adr_fac = $dev->num_contact_fact;
if ($id_adr_fac) {
$coord_fac = new coordonnees($id_adr_fac);
if($coord_fac->libelle != '') $adr_fac = htmlentities($coord_fac->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact !='') $adr_fac.= htmlentities($coord_fac->contact, ENT_QUOTES, $charset)."\n";
if($coord_fac->adr1 != '') $adr_fac.= htmlentities($coord_fac->adr1, ENT_QUOTES, $charset)."\n";
if($coord_fac->adr2 != '') $adr_fac.= htmlentities($coord_fac->adr2, ENT_QUOTES, $charset)."\n";
if($coord_fac->cp !='') $adr_fac.= htmlentities($coord_fac->cp, ENT_QUOTES, $charset).' ';
if($coord_fac->ville != '') $adr_fac.= htmlentities($coord_fac->ville, ENT_QUOTES, $charset);
} else {
$id_adr_fac = '0';
$adr_fac = '';
}
$id_adr_liv = $dev->num_contact_livr;
if ($id_adr_liv) {
$coord_liv = new coordonnees($id_adr_liv);
if($coord_liv->libelle != '') $adr_liv = htmlentities($coord_liv->libelle, ENT_QUOTES, $charset)."\n";
if($coord_liv->contact != '') $adr_liv.= htmlentities($coord_liv->contact, ENT_QUOTES, $charset)."\n";
if($coord_liv->adr1 != '') $adr_liv.= htmlentities($coord_liv->adr1, ENT_QUOTES, $charset)."\n";
if($coord_liv->adr2 != '') $adr_liv.= htmlentities($coord_liv->adr2, ENT_QUOTES, $charset)."\n";
if($coord_liv->cp !='') $adr_liv.= htmlentities($coord_liv->cp, ENT_QUOTES, $charset).' ';
if($coord_liv->ville != '') $adr_liv.= htmlentities($coord_liv->ville, ENT_QUOTES, $charset);
} else {
$id_adr_liv = '0';
$adr_liv = '';
}
$comment = '';
$comment_i = htmlentities($dev->commentaires_i, ENT_QUOTES, $charset);;
$lien_dev = "".$dev->numero."";
$liens_liv = '';
$liens_fac = '';
$ref = htmlentities($dev->reference, ENT_QUOTES, $charset);
$sel_date_pay=$sel_date_pay_mod;
$date_pay = '';
$date_pay_lib = $msg['parperso_nodate'];
$num_pay = '';
$sel_date_liv=$sel_date_liv_mod;
$date_liv = '';
$date_liv_lib = $msg['parperso_nodate'];
$devise = htmlentities($dev->devise, ENT_QUOTES, $charset);
$bt_dup = '';
$bt_rec = '';
$bt_fac = '';
$bt_imp = '';
$bt_sol = '';
$bt_audit = '';
$bt_sup = '';
$lignes = show_lig_cde_from_dev($id_dev);
$id_cde=0;
//complement formulaire
$form = str_replace('', $sel_statut, $form);
$form = str_replace('', $sel_date_liv, $form);
$form = str_replace('', $sel_date_pay, $form);
$form = str_replace('', $bt_enr, $form);
$form = str_replace('', $bt_val, $form);
$form = str_replace('', $bt_imp, $form);
$form = str_replace('', $bt_dup, $form);
$form = str_replace('', $bt_rec, $form);
$form = str_replace('', $bt_fac, $form);
$form = str_replace('', $bt_audit, $form);
$form = str_replace('', $bt_sol, $form);
$form = str_replace('', $bt_sup, $form);
$form = str_replace('!!act_nblines!!', $lignes[0], $form);
$form = str_replace('', $lignes[1], $form);
//Remplissage formulaire
$form = str_replace('!!form_title!!', $titre, $form);
$form = str_replace('!!id_bibli!!', $id_bibli, $form);
$form = str_replace('!!lib_bibli!!', $lib_bibli, $form);
$form = str_replace('!!id_exer!!', $exer->id_exercice, $form);
$form = str_replace('!!lib_exer!!', $lib_exer, $form);
$form = str_replace('!!id_cde!!', $id_cde, $form);
$form = str_replace('!!date_cre!!', $date_cre, $form);
$form = str_replace('!!dat_def_lib!!', formatdate(today()), $form);
$form = str_replace('!!dat_def!!', preg_replace('/-/', '', today()), $form);
$form = str_replace('!!numero!!', "", $form);
$form = str_replace('!!nom_acte!!', $nom_acte, $form);
$form = str_replace('!!statut!!', $statut, $form);
$form = str_replace('!!id_fou!!', $id_fou, $form);
$form = str_replace('!!lib_fou!!', $lib_fou, $form);
$form = str_replace('!!id_adr_fou!!', $id_adr_fou, $form);
$form = str_replace('!!adr_fou!!', $adr_fou, $form);
$form = str_replace('!!date_liv!!', $date_liv, $form);
$form = str_replace('!!date_liv_lib!!', $date_liv_lib, $form);
$form = str_replace('!!date_pay!!', $date_pay, $form);
$form = str_replace('!!date_pay_lib!!', $date_pay_lib, $form);
$form = str_replace('!!num_pay!!', $num_pay, $form);
$form = str_replace('!!id_adr_liv!!', $id_adr_liv, $form);
$form = str_replace('!!adr_liv!!', $adr_liv, $form);
$form = str_replace('!!id_adr_fac!!', $id_adr_fac, $form);
$form = str_replace('!!adr_fac!!', $adr_fac, $form);
$form = str_replace('!!comment!!', $comment, $form);
$form = str_replace('!!comment_i!!', $comment_i, $form);
$form = str_replace('!!ref!!', $ref, $form);
$form = str_replace('!!id_dev!!', $id_dev, $form);
$form = str_replace('!!devise!!', $devise, $form);
$form = str_replace('!!lien_dev!!', $lien_dev, $form);
$form = str_replace('!!liens_fac!!', $liens_fac, $form);
$form = str_replace('!!liens_liv!!', $liens_liv, $form);
print $form;
}
//Affiche les lignes d'une commande a partir d'un devis
function show_lig_cde_from_dev($id_dev) {
global $charset,$msg;
global $acquisition_gestion_tva;
global $modif_cde_row_form,$deflt3lgstatcde;
$form = "
";
$i=0;
if (!$id_dev) {
$t = array(0=>$i, $form);
return $t;
}
$lgstat_form=lgstat::getHtmlSelect(array(0=>$deflt3lgstatcde), FALSE, array('id'=>'lg_statut[!!i!!]','name'=>'lg_statut[!!i!!]'));
$lignes = actes::getLignes($id_dev);
while (($row = pmb_mysql_fetch_object($lignes))) {
$i++;
$form.= $modif_cde_row_form;
$form = str_replace('!!no!!', $i, $form);
$form = str_replace('!!code!!', htmlentities($row->code, ENT_QUOTES, $charset), $form);
$form = str_replace('!!lib!!', htmlentities($row->libelle, ENT_QUOTES, $charset), $form);
$form = str_replace('!!qte!!', $row->nb, $form);
$form = str_replace('!!prix!!', $row->prix, $form);
if ($acquisition_gestion_tva) {
$form = str_replace('!!tva!!', $row->tva , $form);
if ($acquisition_gestion_tva==1 ) {
$prix_ttc=round($row->prix+($row->prix/100*$row->tva),2);
$onchange_tva="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ht_to_ttc(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_prix="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ht_to_ttc(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_ht_ttc="
".$prix_ttc."
";
}elseif ($acquisition_gestion_tva==2 ) {
$prix=$row->prix;
$tva=$row->tva;
$prix_ht=round( $prix / (($tva/100)+1),2);
$onchange_tva="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ttc_to_ht(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_prix="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ttc_to_ht(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_ht_ttc="
".$prix_ht."
";
}
if ($row->debit_tva==1 ) {
$force_ht_ttc="
".$msg["acquisition_force_ht"]."";
}else{
$force_ht_ttc="
".$msg["acquisition_force_ttc"]."";
}
}
$form = str_replace('!!onchange_tva!!', $onchange_tva, $form);
$form = str_replace('!!convert_prix!!', $convert_prix, $form);
$form = str_replace('!!convert_ht_ttc!!', $convert_ht_ttc, $form);
$form = str_replace('!!force_ht_ttc!!', $force_ht_ttc, $form);
$form = str_replace('!!rem!!', $row->remise, $form);
$lgstat=str_replace('!!i!!',$i,$lgstat_form);
$form=str_replace('!!lgstat!!',$lgstat,$form);
$form=str_replace('!!comment_lg!!',htmlentities($row->commentaires_gestion,ENT_QUOTES,$charset),$form);
$form=str_replace('!!comment_lo!!',htmlentities($row->commentaires_opac,ENT_QUOTES,$charset),$form);
if ($row->num_type) {
$tp = new types_produits($row->num_type);
$form = str_replace('!!typ!!', $tp->id_produit, $form);
$form = str_replace('!!lib_typ!!', htmlentities($tp->libelle, ENT_QUOTES, $charset), $form);
} else {
$form = str_replace('!!typ!!', '0', $form);
$form = str_replace('!!lib_typ!!', '', $form);
}
$form = str_replace('!!rub!!', '0', $form);
$form = str_replace('!!lib_rub!!', '', $form);
$form = str_replace('!!id_sug!!', $row->num_acquisition, $form);
$form = str_replace('!!id_lig!!', $row->id_ligne, $form);
$form = str_replace('!!typ_lig!!', $row->type_ligne, $form);
$form = str_replace('!!id_prod!!', $row->num_produit, $form);
}
$t = array(0=>$i, 1=>$form);
return $t;
}
//Affiche la liste des etablissements et exercices pour choix depuis suggestions
function show_list_biblio_from_sug($sugchk) {
global $dbh;
global $msg, $charset;
global $tab_bib;
global $current_module;
$sugchk = rawurlencode(serialize($sugchk));
//Affichage de la liste des etablissements et exercices auxquels a acces l'utilisateur
$te = array();
foreach($tab_bib[0] as $k=>$v) {
$qe = entites::getCurrentExercices($v);
$re = pmb_mysql_query($qe, $dbh);
while (($rowe=pmb_mysql_fetch_object($re))) {
$te[$rowe->id_exercice][0]=$v;
$te[$rowe->id_exercice][1]=$tab_bib[1][$k];
$te[$rowe->id_exercice][2]=$rowe->libelle;
}
}
switch (count($te)) {
case 0 :
//Pas d'exercice actif
$error_msg.= htmlentities($msg["acquisition_err_exer"],ENT_QUOTES, $charset)."";
error_message($msg[321], $error_msg.htmlentities($msg["acquisition_err_par"],ENT_QUOTES, $charset), '1', './admin.php?categ=acquisition');
die;
break;
default:
$aff = "";
if (count($te) == '1') $aff.= "";
print $aff;
break;
}
}
//Affiche le formulaire de création de commande depuis suggestions
function show_cde_from_sug($id_bibli, $id_exer, $sugchk) {
global $msg, $charset;
global $modif_cde_form;
global $bt_enr, $bt_val;
global $sel_date_liv_mod, $sel_date_pay_mod;
global $pmb_gestion_devise;
global $p_user;
//Recuperation etablissement
$bibli = new entites($id_bibli);
$lib_bibli = htmlentities($bibli->raison_sociale, ENT_QUOTES, $charset);
//Prise en compte des adresses utilisateurs par défaut
$tab1 = explode('|', $p_user->speci_coordonnees_etab);
$tab_adr=array();
foreach ($tab1 as $v) {
$tab2=explode(',', $v);
$tab_adr[$tab2[0]]['id_adr_fac']=$tab2[1];
$tab_adr[$tab2[0]]['id_adr_liv']=$tab2[2];
}
$def_id_adr_fac=$tab_adr[$id_bibli]['id_adr_fac'];
$def_id_adr_liv=$tab_adr[$id_bibli]['id_adr_liv'];
$form = $modif_cde_form;
//Recuperation exercice
$exer = new exercices($id_exer);
$lib_exer = htmlentities($exer->libelle, ENT_QUOTES, $charset);
$titre = htmlentities($msg['acquisition_cde_cre'], ENT_QUOTES, $charset);
$date_cre = formatdate(today());
//$numero = calcNumero($id_bibli, TYP_ACT_CDE);
$nom_acte = '';
$statut = STA_ACT_AVA;
$sel_statut = "";
$sel_statut.=htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
$id_fou = '0';
$lib_fou = '';
$id_adr_fou = '0';
$adr_fou = '';
if ($def_id_adr_fac) {
$id_adr_fac = $def_id_adr_fac;
$coord = new coordonnees($def_id_adr_fac);
} else {
$coord_fac = entites::get_coordonnees($id_bibli, '1');
if (pmb_mysql_num_rows($coord_fac) != 0) {
$coord = pmb_mysql_fetch_object($coord_fac);
$id_adr_fac = $coord->id_contact;
} else {
$id_adr_fac='0';
}
}
if ($id_adr_fac) {
if($coord->libelle != '') $adr_fac = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact != '') $adr_fac.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_fac.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_fac.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_fac.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_fac.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$adr_fac = '';
}
if ($def_id_adr_liv) {
$id_adr_liv = $def_id_adr_liv;
$coord = new coordonnees($def_id_adr_liv);
} else {
$coord_liv = entites::get_coordonnees($id_bibli, '2');
if (pmb_mysql_num_rows($coord_liv) != 0) {
$coord = pmb_mysql_fetch_object($coord_liv);
$id_adr_liv = $coord->id_contact;
} else {
$id_adr_liv='0';
}
}
if ($id_adr_liv) {
if($coord->libelle != '') $adr_liv = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact != '') $adr_liv.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_liv.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_liv.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_liv.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_liv.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$id_adr_liv = $id_adr_fac;
$adr_liv = $adr_fac;
}
$comment = '';
$comment_i = '';
$id_dev = 0;
$lien_dev = '';
$liens_liv = '';
$liens_fac = '';
$ref = '';
$sel_date_pay=$sel_date_pay_mod;
$date_pay = '';
$date_pay_lib = $msg['parperso_nodate'];
$num_pay = '';
$sel_date_liv=$sel_date_liv_mod;
$date_liv = '';
$date_liv_lib = $msg['parperso_nodate'];
$devise = $pmb_gestion_devise;
$bt_dup = '';
$bt_rec = '';
$bt_fac = '';
$bt_imp = '';
$bt_sol = '';
$bt_audit = '';
$bt_sup = '';
$lignes = show_lig_cde_from_sug($sugchk);
$id_cde=0;
//complement formulaire
$form = str_replace('', $sel_statut, $form);
$form = str_replace('', $sel_date_liv, $form);
$form = str_replace('', $sel_date_pay, $form);
$form = str_replace('', $bt_enr, $form);
$form = str_replace('', $bt_val, $form);
$form = str_replace('', $bt_dup, $form);
$form = str_replace('', $bt_rec, $form);
$form = str_replace('', $bt_fac, $form);
$form = str_replace('', $bt_imp, $form);
$form = str_replace('', $bt_audit, $form);
$form = str_replace('', $bt_sol, $form);
$form = str_replace('', $bt_sup, $form);
$form = str_replace('!!act_nblines!!', $lignes[0], $form);
$form = str_replace('', $lignes[1], $form);
//Remplissage formulaire
$form = str_replace('!!form_title!!', $titre, $form);
$form = str_replace('!!id_bibli!!', $id_bibli, $form);
$form = str_replace('!!lib_bibli!!', $lib_bibli, $form);
$form = str_replace('!!id_exer!!', $exer->id_exercice, $form);
$form = str_replace('!!lib_exer!!', $lib_exer, $form);
$form = str_replace('!!id_cde!!', $id_cde, $form);
$form = str_replace('!!date_cre!!', $date_cre, $form);
$form = str_replace('!!dat_def_lib!!', formatdate(today()), $form);
$form = str_replace('!!dat_def!!', preg_replace('/-/', '', today()), $form);
$form = str_replace('!!numero!!', "", $form);
$form = str_replace('!!nom_acte!!', $nom_acte, $form);
$form = str_replace('!!statut!!', $statut, $form);
$form = str_replace('!!id_fou!!', $id_fou, $form);
$form = str_replace('!!lib_fou!!', $lib_fou, $form);
$form = str_replace('!!id_adr_fou!!', $id_adr_fou, $form);
$form = str_replace('!!adr_fou!!', $adr_fou, $form);
$form = str_replace('!!date_liv!!', $date_liv, $form);
$form = str_replace('!!date_liv_lib!!', $date_liv_lib, $form);
$form = str_replace('!!date_pay!!', $date_pay, $form);
$form = str_replace('!!date_pay_lib!!', $date_pay_lib, $form);
$form = str_replace('!!num_pay!!', $num_pay, $form);
$form = str_replace('!!id_adr_liv!!', $id_adr_liv, $form);
$form = str_replace('!!adr_liv!!', $adr_liv, $form);
$form = str_replace('!!id_adr_fac!!', $id_adr_fac, $form);
$form = str_replace('!!adr_fac!!', $adr_fac, $form);
$form = str_replace('!!comment!!', $comment, $form);
$form = str_replace('!!comment_i!!', $comment_i, $form);
$form = str_replace('!!ref!!', $ref, $form);
$form = str_replace('!!id_dev!!', $id_dev, $form);
$form = str_replace('!!devise!!', $devise, $form);
$form = str_replace('!!lien_dev!!', $lien_dev, $form);
$form = str_replace('!!liens_fac!!', $liens_fac, $form);
$form = str_replace('!!liens_liv!!', $liens_liv, $form);
print $form;
}
//Affiche les lignes de commande depuis les suggestions
function show_lig_cde_from_sug($sugchk) {
global $dbh,$charset;
global $acquisition_gestion_tva;
global $modif_cde_row_form,$deflt3lgstatcde;
$form = "
";
$i=0;
$lgstat_form=lgstat::getHtmlSelect(array(0=>$deflt3lgstatcde), FALSE, array('id'=>'lg_statut[!!i!!]', 'name'=>'lg_statut[!!i!!]'));
$arrchk = unserialize(rawurldecode(stripslashes($sugchk)));
foreach($arrchk as $value) {
$i++;
$sug = new suggestions($value);
$form.=$modif_cde_row_form;
$code="";
$taec="";
$prix='0';
$nb='none';
if ($sug->num_notice) {
$q = "select niveau_biblio from notices where notice_id='".$sug->num_notice."' ";
$r = pmb_mysql_query($q,$dbh);
if(pmb_mysql_num_rows($r)) {
$nb=pmb_mysql_result($r,0,0);
}
}
switch($nb) {
case 'a' :
$typ_lig = 1;
$notice=new sel_article_display($sug->num_notice,'');
$notice->getData();
$notice->responsabilites = get_notice_authors($sug->num_notice);
$notice->doHeader();
$taec= $notice->titre;
if($notice->auteur1) {
$taec.="\n".$notice->auteur1;
}
if($notice->in_bull) {
$taec.="\n".$notice->in_bull;
}
$prix=$notice->prix;
break;
case 'm' :
$typ_lig = 1;
$notice=new sel_mono_display($sug->num_notice,'');
$notice->getData();
$notice->responsabilites = get_notice_authors($sug->num_notice);
$notice->doHeader();
$code = $notice->code;
$taec= $notice->titre;
if($notice->auteur1) {
$taec.="\n".$notice->auteur1;
}
if ($notice->editeur1) {
$taec.= "\n".$notice->editeur1;
}
if ($notice->editeur1 && $notice->ed_date) {
$taec.= ", ".$notice->ed_date;
} elseif ($notice->ed_date){
$taec.= $notice->ed_date;
}
if ($notice->collection) {
$taec.= "\n".$notice->collection;
}
$prix=$notice->prix;
break;
default :
$typ_lig = 0;
$code = htmlentities($sug->code, ENT_QUOTES, $charset);
$taec= htmlentities($sug->titre,ENT_QUOTES,$charset);
if ($sug->auteur!="") $taec.= "\n".htmlentities($sug->auteur,ENT_QUOTES,$charset);
if ($sug->editeur != ""){
$taec.= "\n".htmlentities($sug->editeur,ENT_QUOTES,$charset);
if ($sug->date_publi != "0000-00-00") {
$taec.= ",".htmlentities($sug->date_publi,ENT_QUOTES,$charset);
}
}
$prix=htmlentities($sug->prix, ENT_QUOTES, $charset);
break;
}
$form = str_replace('!!no!!', $i, $form);
$form = str_replace('!!code!!', $code, $form);
$form = str_replace('!!lib!!', $taec, $form);
$form = str_replace('!!qte!!', $sug->nb, $form);
$form = str_replace('!!prix!!', $prix, $form);
if ($acquisition_gestion_tva) {
$form = str_replace('!!tva!!', $row->tva , $form);
if ($acquisition_gestion_tva==1 ) {
$prix_ttc=round($row->prix+($row->prix/100*$row->tva),2);
$onchange_tva="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ht_to_ttc(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_prix="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ht_to_ttc(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_ht_ttc="
".$prix_ttc."
";
}elseif ($acquisition_gestion_tva==2 ) {
$prix=$row->prix;
$tva=$row->tva;
$prix_ht=round( $prix / (($tva/100)+1),2);
$onchange_tva="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ttc_to_ht(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_prix="
onChange='document.getElementById(\"convert_ht_ttc_$i\").innerHTML=
ttc_to_ht(document.getElementById(\"prix[$i]\").value,document.getElementById(\"tva[$i]\").value);
' ";
$convert_ht_ttc="
".$prix_ht."
";
}
if ($row->debit_tva==1 ) {
$force_ht_ttc="
".$msg["acquisition_force_ht"]."";
}else{
$force_ht_ttc="
".$msg["acquisition_force_ttc"]."";
}
}
$form = str_replace('!!onchange_tva!!', $onchange_tva, $form);
$form = str_replace('!!convert_prix!!', $convert_prix, $form);
$form = str_replace('!!convert_ht_ttc!!', $convert_ht_ttc, $form);
$form = str_replace('!!force_ht_ttc!!', $force_ht_ttc, $form);
$form = str_replace('!!rem!!', '0.00', $form);
$lgstat=str_replace('!!i!!',$i,$lgstat_form);
$form=str_replace('!!lgstat!!',$lgstat,$form);
$form=str_replace('!!comment_lg!!',htmlentities($row->commentaires_gestion,ENT_QUOTES,$charset),$form);
$form=str_replace('!!comment_lo!!',htmlentities($row->commentaires_opac,ENT_QUOTES,$charset),$form);
$form = str_replace('!!typ!!', '0', $form);
$form = str_replace('!!lib_typ!!', '', $form);
$form = str_replace('!!rub!!', '0', $form);
$form = str_replace('!!lib_rub!!', '', $form);
$form = str_replace('!!id_sug!!', $sug->id_suggestion, $form);
$form = str_replace('!!id_lig!!', '0', $form);
$form = str_replace('!!typ_lig!!', $typ_lig, $form);
$form = str_replace('!!id_prod!!', $sug->num_notice, $form);
}
$t = array(0=>$i, 1=>$form);
return $t;
}
//Solde la commande en l'état
function sold_cde() {
global $id_cde, $comment, $ref, $date_pay, $num_pay;
if(!$id_cde) return;
$cde = new actes($id_cde);
//Commande considérée comme soldée
$cde->statut = ($cde->statut & (~STA_ACT_ENC));
$cde->statut = ($cde->statut | STA_ACT_REC);
//Les quantites livrees sur la commande sont-elles entierement facturees
//Si oui statut commande >> facture
$tab_cde = actes::getLignes($id_cde);
$facture = true;
while(($row_cde = pmb_mysql_fetch_object($tab_cde))) {
$tab_liv = lignes_actes::getLivraisons($row_cde->id_ligne);
$tab_fac = lignes_actes::getFactures($row_cde->id_ligne);
$nb_liv = 0;
while (($row_liv = pmb_mysql_fetch_object($tab_liv))) {
$nb_liv = $nb_liv + $row_liv->nb;
}
$nb_fac = 0;
while(($row_fac = pmb_mysql_fetch_object($tab_fac))) {
$nb_fac = $nb_fac + $row_fac->nb;
}
if ($nb_liv > $nb_fac) {
$facture = false;
break;
}
}
if ($facture) {
$cde->statut = ($cde->statut | STA_ACT_FAC); //Pas de reste à facturer >>Statut commande = facturée
//Si de plus toutes les factures sont payées, Statut commande=payé
$tab_pay = liens_actes::getChilds($id_cde, TYP_ACT_FAC);
$paye= true;
while (($row_pay = pmb_mysql_fetch_object($tab_pay))) {
if(($row_pay->statut & STA_ACT_PAY) != STA_ACT_PAY){
$paye = false;
break;
}
}
if ($paye) $cde->statut = ($cde->statut | STA_ACT_PAY);
} else {
$cde->statut = ($cde->statut & (~STA_ACT_FAC)); //Reste à facturer >>Statut commande = non facturée
}
$cde->numero=addslashes($cde->numero);
$cde->commentaires = trim($comment);
$cde->commentaires_i = addslashes($cde->commentaires_i);
$cde->reference = trim($ref);
$cde->date_paiement = $date_pay;
$cde->num_paiement = trim($num_pay);
$cde->devise = addslashes($cde->devise);
$cde->save();
}
//Archive la commande
function arc_cde(){
global $id_cde;
if(!$id_cde) return;
$cde = new actes($id_cde);
//Commande archivée
$cde->statut = ($cde->statut | STA_ACT_ARC);
$cde->update_statut();
//Archivage des factures et bl correspondants
$list_childs = liens_actes::getChilds($id_cde);
while (($row = pmb_mysql_fetch_object($list_childs))) {
$act = new actes($row->num_acte_lie);
$act->statut = ($act->statut | STA_ACT_ARC);
$act->update_statut();
}
}
//Sauvegarde commande
function update_cde() {
global $id_bibli, $id_exer, $id_cde, $num_cde, $nom_acte, $id_dev, $statut;
global $id_fou;
global $id_adr_liv, $id_adr_fac;
global $comment, $comment_i, $ref, $date_pay, $num_pay, $date_liv, $devise;
global $code, $lib, $qte, $prix, $typ, $tva, $rem, $rub, $id_sug, $id_lig, $typ_lig, $id_prod;
global $acquisition_gestion_tva;
global $action;
global $force_debit;
global $lg_statut,$comment_lg,$comment_lo;
if (!$id_cde) { //Creation de commande
$cde = new actes();
$cde ->type_acte = TYP_ACT_CDE;
$cde->num_entite = $id_bibli;
$cde->num_exercice = $id_exer;
/*$num_cde=trim($num_cde);
if ($num_cde!='') {
$cde->numero=$num_cde;
} else {
$cde->calc();
}*/
$cde->nom_acte = trim($nom_acte);
if ($action == 'valid') {
$cde->statut = STA_ACT_ENC;
} else {
$cde->statut = STA_ACT_AVA;
}
$cde->num_fournisseur = $id_fou;
$cde->num_contact_livr = $id_adr_liv;
$cde->num_contact_fact = $id_adr_fac;
$cde->commentaires = trim($comment);
$cde->commentaires_i = trim($comment_i);
$cde->reference = trim($ref);
$cde->date_paiement = $date_pay;
$cde->num_paiement = trim($num_pay);
$cde->date_ech = $date_liv;
$cde->devise = trim($devise);
$cde->save();
$id_cde= $cde->id_acte;
//creation des liens entre actes
if ($id_dev) {
$la = new liens_actes($id_dev, $id_cde);
}
//Recuperation des lignes valides
$tab_lig=array();
if (count($id_lig)) {
foreach($id_lig as $k=>$v) {
$code[$k] = trim($code[$k]);
$lib[$k] = trim($lib[$k]);
$comment_lg[$k] = trim($comment_lg[$k]);
$comment_lo[$k] = trim($comment_lo[$k]);
if ($code[$k] !='' || $lib[$k]!='') {
$tab_lig[$k]=$v;
}
}
}
//creation des lignes de commande
foreach($tab_lig as $k=>$v) {
$lig_cde = new lignes_actes();
$lig_cde->type_ligne = $typ_lig[$k];
$lig_cde->num_acte = $id_cde;
$lig_cde->num_rubrique = $rub[$k];
$lig_cde->num_produit = $id_prod[$k];
$lig_cde->num_acquisition = $id_sug[$k];
$lig_cde->num_type = $typ[$k];
$lig_cde->code = trim($code[$k]);
$lig_cde->libelle = trim($lib[$k]);
$lig_cde->prix = $prix[$k];
if ($acquisition_gestion_tva) {
$lig_cde->tva = $tva[$k];
} else {
$lig_cde->tva = '0.00';
}
$lig_cde->debit_tva= $force_debit[$k];
$lig_cde->remise = $rem[$k];
$lig_cde->nb = round($qte[$k]);
$lig_cde->date_ech = $date_liv;
$lig_cde->date_cre = today();
$lig_cde->statut = $lg_statut[$k];
$lig_cde->commentaires_gestion=$comment_lg[$k];
$lig_cde->commentaires_opac=$comment_lo[$k];
$lig_cde->save();
}
//Mise à jour du statut des suggestions et envoi email suivi de suggestion
$sug_map = new suggestions_map();
$sug_map->doTransition('ORDERED', $id_sug);
} else { //modification de commande
$cde = new actes($id_cde);
$old_statut=$statut;
if ($old_statut != STA_ACT_ENC) { //Commande a valider
/*$num_cde=trim($num_cde);
if ($num_cde!='') {
$cde->numero=$num_cde;
} else {
$cde->numero=addslashes($cde->numero);
}*/
$cde->nom_acte = trim($nom_acte);
if ($action == 'valid') {
$cde->date_valid = date("Y-m-d");
$cde->statut = STA_ACT_ENC; //Statut commande = A valider->en cours
}
$cde->num_fournisseur = $id_fou;
$cde->num_contact_livr = $id_adr_liv;
$cde->num_contact_fact = $id_adr_fac;
$cde->commentaires = trim($comment);
$cde->commentaires_i = trim($comment_i);
$cde->reference = trim($ref);
$cde->date_paiement = $date_pay;
$cde->num_paiement = trim($num_pay);
$cde->date_ech = $date_liv;
$cde->devise = trim($devise);
$cde->save();
//Recuperation des lignes valides
$tab_lig=array();
if (count($id_lig)) {
foreach($id_lig as $k=>$v) {
$code[$k] = trim($code[$k]);
$lib[$k] = trim($lib[$k]);
$comment_lg[$k] = trim($comment_lg[$k]);
$comment_lo[$k] = trim($comment_lo[$k]);
if ($code[$k] !='' || $lib[$k]!='') {
$tab_lig[$k]=$v;
}
}
}
//maj des lignes de commande
foreach($tab_lig as $k=>$v) {
$lig_cde = new lignes_actes($v);
$lig_cde->type_ligne = $typ_lig[$k];
$lig_cde->num_acte = $id_cde;
$lig_cde->num_rubrique = $rub[$k];
$lig_cde->num_produit = $id_prod[$k];
$lig_cde->num_acquisition = $id_sug[$k];
$lig_cde->num_type = $typ[$k];
$lig_cde->code = trim($code[$k]);
$lig_cde->libelle = trim($lib[$k]);
$lig_cde->prix = $prix[$k];
if ($acquisition_gestion_tva) {
$lig_cde->tva = $tva[$k];
} else {
$lig_cde->tva = '0.00';
}
$lig_cde->debit_tva= $force_debit[$k];
$lig_cde->remise = $rem[$k];
$lig_cde->nb = round($qte[$k]);
$lig_cde->date_ech = $date_liv;
$lig_cde->date_cre = today();
$lig_cde->statut = $lg_statut[$k];
$lig_cde->commentaires_gestion=$comment_lg[$k];
$lig_cde->commentaires_opac=$comment_lo[$k];
$lig_cde->save();
if($v==0) $tab_lig[$k]=$lig_cde->id_ligne;
}
//suppression des lignes non reprises
$cde->cleanLignes($id_cde, $tab_lig);
} else { //Commande validee
$cde->numero=addslashes($cde->numero);
$cde->commentaires = trim($comment);
$cde->commentaires_i = addslashes($cde->commentaires_i);
$cde->reference = trim($ref);
$cde->date_paiement = $date_pay;
$cde->num_paiement = trim($num_pay);
$cde->devise = addslashes($cde->devise);
$cde->save();
//Recuperation des lignes
$tab_lig=array();
if (count($id_lig)) {
foreach($id_lig as $k=>$v) {
$comment_lg[$k] = trim($comment_lg[$k]);
$comment_lo[$k] = trim($comment_lo[$k]);
$tab_lig[$k]=$v;
}
}
//maj des lignes de commande
foreach($tab_lig as $k=>$v) {
$lig_cde = new lignes_actes($v);
$lig_cde->code = addslashes($lig_cde->code);
$lig_cde->libelle = addslashes($lig_cde->libelle);
$lig_cde->statut = $lg_statut[$k];
$lig_cde->commentaires_gestion=$comment_lg[$k];
$lig_cde->commentaires_opac=$comment_lo[$k];
$lig_cde->save();
}
}
}
}
//Duplication de commande
function duplicate_cde($id_bibli, $id_cde) {
global $msg, $charset;
global $modif_cde_form;
global $bt_enr, $bt_val;
global $sel_date_liv_mod, $sel_date_pay_mod;
//Recuperation etablissement
$bibli = new entites($id_bibli);
$lib_bibli = htmlentities($bibli->raison_sociale, ENT_QUOTES, $charset);
$form = $modif_cde_form;
//Recuperation commande
$cde = new actes($id_cde);
$exer = new exercices($cde->num_exercice);
$lib_exer = htmlentities($exer->libelle, ENT_QUOTES, $charset);
$titre = htmlentities($msg['acquisition_cde_cre'], ENT_QUOTES, $charset);
$date_cre = formatdate(today());
$numero = calcNumero($id_bibli, TYP_ACT_CDE);
$nom_acte=htmlentities($cde->nom_acte, ENT_QUOTES, $charset);
$statut = STA_ACT_AVA;
$sel_statut = "";
$sel_statut.=htmlentities($msg['acquisition_cde_aval'], ENT_QUOTES, $charset);
$id_fou = $cde->num_fournisseur;
$fou = new entites($id_fou);
$lib_fou = htmlentities($fou->raison_sociale, ENT_QUOTES, $charset);
$coord = entites::get_coordonnees($fou->id_entite, '1');
if (pmb_mysql_num_rows($coord) != 0) {
$coord = pmb_mysql_fetch_object($coord);
$id_adr_fou = $coord->id_contact;
if($coord->libelle != '') $adr_fou = htmlentities($coord->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact !='') $adr_fou.= htmlentities($coord->contact, ENT_QUOTES, $charset)."\n";
if($coord->adr1 != '') $adr_fou.= htmlentities($coord->adr1, ENT_QUOTES, $charset)."\n";
if($coord->adr2 != '') $adr_fou.= htmlentities($coord->adr2, ENT_QUOTES, $charset)."\n";
if($coord->cp !='') $adr_fou.= htmlentities($coord->cp, ENT_QUOTES, $charset).' ';
if($coord->ville != '') $adr_fou.= htmlentities($coord->ville, ENT_QUOTES, $charset);
} else {
$id_adr_fou = '0';
$adr_fou = '';
}
$id_adr_fac = $cde->num_contact_fact;
if ($id_adr_fac) {
$coord_fac = new coordonnees($id_adr_fac);
if($coord_fac->libelle != '') $adr_fac = htmlentities($coord_fac->libelle, ENT_QUOTES, $charset)."\n";
if($coord->contact !='') $adr_fac.= htmlentities($coord_fac->contact, ENT_QUOTES, $charset)."\n";
if($coord_fac->adr1 != '') $adr_fac.= htmlentities($coord_fac->adr1, ENT_QUOTES, $charset)."\n";
if($coord_fac->adr2 != '') $adr_fac.= htmlentities($coord_fac->adr2, ENT_QUOTES, $charset)."\n";
if($coord_fac->cp !='') $adr_fac.= htmlentities($coord_fac->cp, ENT_QUOTES, $charset).' ';
if($coord_fac->ville != '') $adr_fac.= htmlentities($coord_fac->ville, ENT_QUOTES, $charset);
} else {
$id_adr_fac = '0';
$adr_fac = '';
}
$id_adr_liv = $cde->num_contact_livr;
if ($id_adr_liv) {
$coord_liv = new coordonnees($id_adr_liv);
if($coord_liv->libelle != '') $adr_liv = htmlentities($coord_liv->libelle, ENT_QUOTES, $charset)."\n";
if($coord_liv->contact != '') $adr_liv.= htmlentities($coord_liv->contact, ENT_QUOTES, $charset)."\n";
if($coord_liv->adr1 != '') $adr_liv.= htmlentities($coord_liv->adr1, ENT_QUOTES, $charset)."\n";
if($coord_liv->adr2 != '') $adr_liv.= htmlentities($coord_liv->adr2, ENT_QUOTES, $charset)."\n";
if($coord_liv->cp !='') $adr_liv.= htmlentities($coord_liv->cp, ENT_QUOTES, $charset).' ';
if($coord_liv->ville != '') $adr_liv.= htmlentities($coord_liv->ville, ENT_QUOTES, $charset);
} else {
$id_adr_liv = '0';
$adr_liv = '';
}
$comment = '';
$comment_i = htmlentities($cde->commentaires_i, ENT_QUOTES, $charset);
$id_dev = liens_actes::getDevis($id_cde);
if ($id_dev) {
$dev=new actes($id_dev);
$lien_dev = "".$dev->numero."";
}
$liens_liv = '';
$liens_fac = '';
$ref = htmlentities($cde->reference, ENT_QUOTES, $charset);
$sel_date_pay=$sel_date_pay_mod;
$date_pay = '';
$date_pay_lib = $msg['parperso_nodate'];
$num_pay = '';
$sel_date_liv=$sel_date_liv_mod;
$date_liv = '';
$date_liv_lib = $msg['parperso_nodate'];
$devise = htmlentities($cde->devise, ENT_QUOTES, $charset);
$bt_dup = '';
$bt_rec = '';
$bt_fac = '';
$bt_imp = '';
$bt_sol = '';
$bt_audit = '';
$bt_sup = '';
$lignes= show_lig_cde($id_cde);
$id_cde=0;
//complement formulaire
$form = str_replace('', $sel_statut, $form);
$form = str_replace('', $sel_date_liv, $form);
$form = str_replace('', $sel_date_pay, $form);
$form = str_replace('', $bt_enr, $form);
$form = str_replace('', $bt_val, $form);
$form = str_replace('', $bt_dup, $form);
$form = str_replace('', $bt_rec, $form);
$form = str_replace('', $bt_fac, $form);
$form = str_replace('', $bt_imp, $form);
$form = str_replace('', $bt_audit, $form);
$form = str_replace('', $bt_sol, $form);
$form = str_replace('', $bt_sup, $form);
$form = str_replace('!!act_nblines!!', $lignes[0], $form);
$form = str_replace('', $lignes[1], $form);
//Remplissage formulaire
$form = str_replace('!!form_title!!', $titre, $form);
$form = str_replace('!!id_bibli!!', $id_bibli, $form);
$form = str_replace('!!lib_bibli!!', $lib_bibli, $form);
$form = str_replace('!!id_exer!!', $exer->id_exercice, $form);
$form = str_replace('!!lib_exer!!', $lib_exer, $form);
$form = str_replace('!!id_cde!!', $id_cde, $form);
$form = str_replace('!!date_cre!!', $date_cre, $form);
$form = str_replace('!!dat_def_lib!!', formatdate(today()), $form);
$form = str_replace('!!dat_def!!', preg_replace('/-/', '', today()), $form);
$form = str_replace('!!numero!!', $numero, $form);
$form = str_replace('!!nom_acte!!', $nom_acte, $form);
$form = str_replace('!!statut!!', $statut, $form);
$form = str_replace('!!id_fou!!', $id_fou, $form);
$form = str_replace('!!lib_fou!!', $lib_fou, $form);
$form = str_replace('!!id_adr_fou!!', $id_adr_fou, $form);
$form = str_replace('!!adr_fou!!', $adr_fou, $form);
$form = str_replace('!!date_liv!!', $date_liv, $form);
$form = str_replace('!!date_liv_lib!!', $date_liv_lib, $form);
$form = str_replace('!!date_pay!!', $date_pay, $form);
$form = str_replace('!!date_pay_lib!!', $date_pay_lib, $form);
$form = str_replace('!!num_pay!!', $num_pay, $form);
$form = str_replace('!!id_adr_liv!!', $id_adr_liv, $form);
$form = str_replace('!!adr_liv!!', $adr_liv, $form);
$form = str_replace('!!id_adr_fac!!', $id_adr_fac, $form);
$form = str_replace('!!adr_fac!!', $adr_fac, $form);
$form = str_replace('!!comment!!', $comment, $form);
$form = str_replace('!!comment_i!!', $comment_i, $form);
$form = str_replace('!!ref!!', $ref, $form);
$form = str_replace('!!id_dev!!', $id_dev, $form);
$form = str_replace('!!devise!!', $devise, $form);
$form = str_replace('!!lien_dev!!', $lien_dev, $form);
$form = str_replace('!!liens_fac!!', $liens_fac, $form);
$form = str_replace('!!liens_liv!!', $liens_liv, $form);
print $form;
}
//TODO Verifier que budgets saisis si obligatoires
//TODO A transferer depuis frame
//Vérification dépassement de budget
function verif_bud() {
global $msg;
global $max_lig;
global $qte, $prix, $rem, $rub;
global $error, $error_msg;
global $acquisition_budget;
if ($acquisition_budget) {
$tot_rub = array();
$tot_bud = array();
for ($i=1;$i<=$max_lig;$i++) {
$tot_rub[$rub[$i]] = 0;
}
//récupère le total de la commande par rubrique
for ($i=1;$i<=$max_lig;$i++) {
$tot_rub[$rub[$i]] = $tot_rub[$rub[$i]] + ( $qte[$i]*$prix[$i]*(1 - ($rem[$i]/100) ) );
}
//récupère le total de la commande par budget
foreach ($tot_rub as $key=>$value) {
$r = new rubriques($key);
if (!array_key_exists($r->num_budget, $tot_bud)) $tot_bud[$r->num_budget] = 0;
$tot_bud[$r->num_budget] = $tot_bud[$r->num_budget] + $value;
}
//Vérifie que les budgets affectés par rubrique ne sont pas dépassés
foreach ($tot_rub as $key=>$value) {
$r = new rubriques($key);
$b = new budgets($r->num_budget);
if ( $b->type_budget == TYP_BUD_RUB ) { //Budget affecté par rubrique
$mnt_rub = $r->montant;
$eng_rub = rubriques::calcEngagement($key) + $value;
//Budget rubrique dépassé ?
if ($eng_rub > $mnt_rub) {
$error = true;
$tab_rub = rubriques::listAncetres($key, true);
$lib_rub = $b->libelle.":";
foreach ($tab_rub as $value) {
$lib_rub.= $value[1];
if($value[0] != $key) $lib_rub.= ":";
}
$error_msg = $msg['acquisition_rub']." :\\n\\n ".$lib_rub."\\n\\n".$msg['acquisition_act_bud_dep'];
break;
}
}
}
//Vérifie que les budgets affectés globalement ne sont pas dépassés
foreach ($tot_bud as $key=>$value) {
$b = new budgets($key);
if ( $b->type_budget == TYP_BUD_GLO ) {
$mnt_bud = $b->montant_global;
$eng_bud = budgets::calcEngagement($b->id_budget) + $value;
//Budget dépassé ?
if ($eng_bud > $mnt_bud) {
$error = true;
$error_msg = $msg['acquisition_act_tab_bud']." : ".$b->libelle."\\n\\n".$msg['acquisition_act_bud_dep'];
break;
}
}
}
}
}
function valid_cde_list() {
global $chk;
if(is_array($chk)) {
foreach ($chk as $id_cde) {
$cde=new actes($id_cde);
if ($cde->type_acte==TYP_ACT_CDE && $cde->statut==STA_ACT_AVA) {
$cde->statut=STA_ACT_ENC;
$cde->date_valid=date("Y-m-d");
$cde->save();
}
}
}
}
function delete_cde_list() {
global $chk;
if(is_array($chk)) {
foreach ($chk as $id_cde) {
$cde=new actes($id_cde);
if ($cde->type_acte==TYP_ACT_CDE && $cde->statut==STA_ACT_AVA) {
$cde->delete();
}
}
}
}
function arc_cde_list() {
global $chk,$id_cde;
if(is_array($chk)) {
foreach ($chk as $id_cde) {
arc_cde();
}
}
}
function sold_cde_list() {
global $chk,$id_cde;
if(is_array($chk)) {
foreach ($chk as $id_cde) {
sold_cde();
}
}
}
function print_cde($id_bibli=0, $id_cde=0, $by_mail=FALSE) {
global $dbh, $msg, $charset, $base_path, $acquisition_pdfcde_print;
global $acquisition_pdfcde_obj_mail, $acquisition_pdfcde_text_mail;
global $acquisition_pdfcde_by_mail,$PMBuseremailbcc;
if (!($id_bibli && $id_cde)) return;
$bib = new entites($id_bibli);
$bib_coord = pmb_mysql_fetch_object(entites::get_coordonnees($id_bibli,1));
$cde = new actes($id_cde);
$id_fou = $cde->num_fournisseur;
$fou = new entites($id_fou);
$fou_coord = pmb_mysql_fetch_object(entites::get_coordonnees($id_fou,1));
$no_mail=FALSE;
if ( $by_mail==FALSE || !($acquisition_pdfcde_by_mail && strpos($bib_coord->email,'@') && strpos($fou_coord->email,'@')) ) {
$no_mail=TRUE;
} else {
$dest_name='';
if($fou_coord->libelle) {
$dest_name = $fou_coord->libelle;
} else {
$dest_name = $fou->raison_sociale;
}
if($fou_coord->contact) $dest_name.=" ".$fou_coord->contact;
$dest_mail=$fou_coord->email;
$obj_mail = $acquisition_pdfcde_obj_mail;
$text_mail = $acquisition_pdfcde_text_mail;
$bib_name = $bib_coord->raison_sociale;
$bib_mail = $bib_coord->email;
$lettre = lettreCommande_factory::make();
$lettre->doLettre($id_bibli,$id_cde);
$piece_jointe=array();
$piece_jointe[0]['contenu']=$lettre->getLettre('S');
$piece_jointe[0]['nomfichier']=$lettre->getFileName();
// mailpmb($to_nom="", $to_mail, $obj="", $corps="", $from_name="", $from_mail, $headers, $copie_CC="", $copie_BCC="", $faire_nl2br=0, $pieces_jointes=array())
$res_envoi=mailpmb($dest_name, $dest_mail, $obj_mail, $text_mail ,$bib_name, $bib_mail, "Content-Type: text/plain; charset=\"$charset\"", '', $PMBuseremailbcc, 1, $piece_jointe);
if (!$res_envoi) {
$no_mail=TRUE;
}
if (!$no_mail) {
print "".sprintf($msg["acquisition_print_emailsucceed"]."
",$dest_mail);
} else {
print "".sprintf($msg["acquisition_print_emailfailed"]."
",$dest_mail);
}
}
if ($no_mail) {
print "
";
}
}
//Traitement des actions
print "".htmlentities($msg['acquisition_ach_ges'],ENT_QUOTES, $charset)." : ".htmlentities($msg['acquisition_ach_cde'],ENT_QUOTES, $charset)."
";
switch($action) {
case 'list':
entites::setSessionBibliId($id_bibli);
show_list_cde($id_bibli);
break;
case 'modif':
if(!$id_cde && !$id_exer) {
$url = "./acquisition.php?categ=ach&sub=cmde&action=modif&id_bibli=".$id_bibli."&id_cde=0";
show_list_exercices($id_bibli, 'show_cde', $url, 0);
} else {
show_cde($id_bibli, $id_exer, $id_cde);
}
break;
case 'delete' :
actes::delete($id_cde);
liens_actes::delete($id_cde);
show_list_cde($id_bibli);
break;
case 'update' :
case 'valid' :
update_cde();
show_list_cde($id_bibli);
break;
case 'from_devis' :
if (!$id_exer) {
$url = "./acquisition.php?categ=ach&sub=cmde&action=from_devis&id_bibli=".$id_bibli."&id_dev=".$id_dev;
show_list_exercices($id_bibli, 'show_cde_from_dev', $url, $id_dev);
} else {
show_cde_from_dev($id_bibli, $id_exer, $id_dev);
}
break;
case 'from_sug' :
show_list_biblio_from_sug($chk);
break;
case 'from_sug_next' :
show_cde_from_sug($id_bibli, $id_exer, $sugchk);
break;
case 'sold':
sold_cde();
$statut = STA_ACT_REC;
show_list_cde($id_bibli);
break;
case 'arc':
arc_cde();
$statut = STA_ACT_ARC;
show_list_cde($id_bibli);
break;
case 'duplicate' :
duplicate_cde($id_bibli, $id_cde);
break;
case 'list_valid':
valid_cde_list();
show_list_cde($id_bibli);
break;
case 'list_delete' :
delete_cde_list();
show_list_cde($id_bibli);
break;
case 'list_arc':
arc_cde_list();
show_list_cde($id_bibli);
break;
case 'list_sold':
sold_cde_list();
show_list_cde($id_bibli);
break;
case 'print' :
print_cde($id_bibli, $id_cde, $by_mail);
show_list_cde($id_bibli);
break;
default:
show_list_biblio();
break;
}
?>