<?php
// +-------------------------------------------------+
// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
// +-------------------------------------------------+
// $Id: frame_livraison.php,v 1.33.8.1 2026/03/05 10:44:10 dgoron Exp $

global $action, $retour_liste;

//Liste les lignes d'une facture
$base_path="../../..";
//$base_auth = "ACQUISITION_AUTH";
$include_path = "$base_path/includes";
$class_path = "$base_path/classes";
$base_use_dojo=1;
$current_alert="acquisition";
require_once("$include_path/init.inc.php");

// gestion des lignes de livraison
require_once("$class_path/entites.class.php");
require_once("$class_path/types_produits.class.php");
require_once("$class_path/tva_achats.class.php");
require_once("$class_path/actes.class.php");
require_once("$class_path/lignes_actes.class.php");
require_once("$class_path/liens_actes.class.php");
require_once("$class_path/suggestions.class.php");
require_once("$class_path/suggestions_map.class.php");
require_once("$include_path/isbn.inc.php");
require_once("$include_path/misc.inc.php");
require_once("$include_path/templates/livraisons.tpl.php");
require_once($base_path."/acquisition/suggestions/func_suggestions.inc.php");

$error = false;
$error_msg = '';
$focus = 0;

//verification du formulaire
function verif_liv() {

	global $msg;
	global $max_lig, $max_lig_liv;
	global $sol, $rec;
	global $action;
	global $error, $error_msg;

	//Si pas de lignes sur la livraison >> Avertissement utilisateur et retour
	$qte_liv = 0;
	for($i=1; $i<=$max_lig; $i++) {
		$qte_liv = $qte_liv + $rec[$i];
	}

	if ( ($action == 'update') && ($max_lig_liv == 0) && ($qte_liv == 0)) {
		$error = true;
		$error_msg = $msg['acquisition_liv_vid'];
		return;
	}

	for($i=1; $i<=$max_lig; $i++) {

		//Vérification quantité livrée
		if (!is_numeric($rec[$i]) || $rec[$i] < '0' || $rec[$i] > '99999' ) {
			$error = true;
			$error_msg = $msg['acquisition_lig'].' '.$i.': '.$msg['acquisition_qte_liv_inv'];
			break;
		}
		if ($rec[$i] > $sol[$i])	{
			$error = true;
			$error_msg = $msg['acquisition_lig'].' '.$i.': '.$msg['acquisition_qte_liv_sup'];
			break;
		}

	}

}


//Affichage création BL depuis commande
function show_lig_from_cde() {

	global $msg, $charset;
	global $frame_modif, $frame_row, $frame_row_bl_header, $frame_row_bl, $bt_sup_lig;
	global $id_bibli, $id_cde, $id_liv;
	global $auto, $focus;
	global $error, $error_msg;

	$frame = $frame_modif;

	//Affichage du solde à livrer sur la commande
	$lignes_cde = actes::getLignes($id_cde);

	$nb_lig = 0;

	while (($row_cde = pmb_mysql_fetch_object($lignes_cde))) {

		if ($row_cde->type_ligne == 3) {	// Frais, non livrables

		} else {

			//recherche des lignes de livraison
			$lignes_liv = lignes_actes::getLivraisons($row_cde->id_ligne);
			$sol = $row_cde->nb;
			while (($row_liv = pmb_mysql_fetch_object($lignes_liv))) {
				$sol = $sol - $row_liv->nb;
			}
			$rec = 0;

			//affichage ligne si solde à livrer >0
			if ($sol) {

				$nb_lig++;
				$frame = str_replace('<!-- lignes -->', $frame_row.'<!-- lignes -->', $frame);
				$frame = str_replace('!!no!!', $nb_lig, $frame);
				$frame = str_replace('!!id_lig!!', $row_cde->id_ligne, $frame);
				$frame = str_replace('!!id_prod!!', $row_cde->num_produit, $frame);
				$frame = str_replace('!!code!!', htmlentities($row_cde->code, ENT_QUOTES, $charset), $frame);
				$frame = str_replace('!!hidden_lib!!', htmlentities($row_cde->libelle, ENT_QUOTES, $charset), $frame);
				$frame = str_replace('!!lib!!', nl2br(htmlentities($row_cde->libelle, ENT_QUOTES, $charset)), $frame);
				$frame = str_replace('!!sol!!', $sol, $frame);
				$frame = str_replace('!!rec!!', $rec, $frame);
			}
		}
	}
	$frame = str_replace('!!max_lig!!', $nb_lig, $frame);
	$frame = str_replace('!!max_lig_liv!!', '0', $frame);

	$frame = str_replace('!!id_liv!!', '0', $frame);

	print $frame;

}


//Affichage des lignes de livraison
function show_lig_liv() {

	global $msg, $charset;
	global $frame_modif, $frame_row, $frame_row_bl_header, $frame_row_bl, $frame_row_arc, $bt_sup_lig, $no_bt_sup_lig;
	global $id_bibli, $id_cde, $id_liv;
	global $auto, $focus;
	global $error, $error_msg;

	$frame = $frame_modif;

	//Lecture des éléments de la commande
	$cde = new actes($id_cde);
	$lignes_cde = actes::getLignes($id_cde);


	if( ($cde->statut & 32) == 32 ) { 	//La commande est archivée donc le bl non modifiable

		$nb_lig = 0;

		while (($row_cde = pmb_mysql_fetch_object($lignes_cde))) {


			if ($row_cde->type_ligne == 3) {	// Frais, non livrables

			} else {


				//recherche des lignes de livraison
				$lignes_liv = lignes_actes::getLivraisons($row_cde->id_ligne);
				$rec = 0;
				while (($row_liv = pmb_mysql_fetch_object($lignes_liv))) {
					$rec = $rec + $row_liv->nb;
				}
				$sol = $row_cde->nb - $rec;

				$nb_lig++;
				$frame = str_replace('<!-- lignes -->', $frame_row_arc.'<!-- lignes -->', $frame);
				$frame = str_replace('!!no!!', $nb_lig, $frame);
				$frame = str_replace('!!id_lig!!', $row_cde->id_ligne, $frame);
				$frame = str_replace('!!id_prod!!', $row_cde->num_produit, $frame);
				$frame = str_replace('!!code!!', htmlentities($row_cde->code, ENT_QUOTES, $charset), $frame);
				$frame = str_replace('!!hidden_lib!!', htmlentities($row_cde->libelle, ENT_QUOTES, $charset), $frame);
				$frame = str_replace('!!lib!!', nl2br(htmlentities($row_cde->libelle, ENT_QUOTES, $charset)), $frame);
				$frame = str_replace('!!sol!!', $sol, $frame);
				$frame = str_replace('!!rec!!', $rec, $frame);

			}

		}
		$frame = str_replace('!!max_lig!!', $nb_lig, $frame);
		$frame = str_replace('!!max_lig_liv!!', 0, $frame);
		$frame = str_replace('!!id_liv!!', '0', $frame);
		$frame = str_replace('<!-- bouton_sup_lig -->', $no_bt_sup_lig, $frame);
		print $frame;

	} else {	//le bl est modifiable


		if( ($cde->statut & 4) != 4 ) { 	//La commande est soldée, on n'affiche pas les lignes restant à livrer

			$nb_lig = 0;

			while (($row_cde = pmb_mysql_fetch_object($lignes_cde))) {


				if ($row_cde->type_ligne == 3) {	// Frais, non livrables
				} else {


					//recherche des lignes de livraison
					$lignes_liv = lignes_actes::getLivraisons($row_cde->id_ligne);
					$sol = $row_cde->nb;
					while (($row_liv = pmb_mysql_fetch_object($lignes_liv))) {

						$sol = $sol - $row_liv->nb;
					}
					$rec = 0;

					//affichage ligne si solde à livrer >0
					if ($sol) {

						$nb_lig++;
						$frame = str_replace('<!-- lignes -->', $frame_row.'<!-- lignes -->', $frame);
						$frame = str_replace('!!no!!', $nb_lig, $frame);
						$frame = str_replace('!!id_lig!!', $row_cde->id_ligne, $frame);
						$frame = str_replace('!!id_prod!!', $row_cde->num_produit, $frame);
						$frame = str_replace('!!code!!', htmlentities($row_cde->code, ENT_QUOTES, $charset), $frame);
						$frame = str_replace('!!hidden_lib!!', htmlentities($row_cde->libelle, ENT_QUOTES, $charset), $frame);
						$frame = str_replace('!!lib!!', nl2br(htmlentities($row_cde->libelle, ENT_QUOTES, $charset)), $frame);
						$frame = str_replace('!!sol!!', $sol, $frame);
						$frame = str_replace('!!rec!!', $rec, $frame);
					}
				}
			}
			$frame = str_replace('!!max_lig!!', $nb_lig, $frame);

		} else {

			$frame = str_replace('!!max_lig!!', 0, $frame);

		}

		//affichage du déjà livré sur le bon de livraison courant
		if ($id_liv) {
		    $nb_lig = 0;
			$frame = str_replace('<!-- lignes -->', $frame_row_bl_header.'<!-- lignes -->', $frame);
			$lignes_liv = actes::getLignes($id_liv);
			$max_lig_liv = pmb_mysql_num_rows($lignes_liv);
			$frame = str_replace('!!max_lig_liv!!', $max_lig_liv, $frame);

			while (($row_liv = pmb_mysql_fetch_object($lignes_liv))) {
				$nb_lig++;
				$frame = str_replace('<!-- lignes -->', $frame_row_bl.'<!-- lignes -->', $frame);
				$frame = str_replace('!!no!!', $nb_lig, $frame);
				$frame = str_replace('!!id_lig!!', $row_liv->lig_ref, $frame);
				$frame = str_replace('!!id_prod!!', $row_liv->num_produit, $frame);
				$frame = str_replace('!!code!!', htmlentities($row_liv->code, ENT_QUOTES, $charset), $frame);
				$frame = str_replace('!!hidden_lib!!', htmlentities($row_liv->libelle, ENT_QUOTES, $charset), $frame);
				$frame = str_replace('!!lib!!', nl2br(htmlentities($row_liv->libelle, ENT_QUOTES, $charset)), $frame);
				$frame = str_replace('!!rec!!', $row_liv->nb, $frame);
			}

			$frame = str_replace('!!id_liv!!', $id_liv, $frame);
			$frame = str_replace('<!-- bouton_sup_lig -->', $bt_sup_lig, $frame);

		} else {
			$frame = str_replace('!!id_liv!!', '0', $frame);
			$frame = str_replace('<!-- bouton_sup_lig -->', $no_bt_sup_lig, $frame);
		}


		if ($error) {
			$frame = str_replace('<!-- error -->', "<script type='text/javascript'>alert(\"".$error_msg."\"); </script>", $frame);
		}
		print $frame;
	}
}


//Affichage des lignes si erreur
function show_lig_bak() {

	global $msg, $charset;
	global $frame_modif, $frame_row, $frame_row_bl_header, $frame_row_bl, $bt_sup_lig, $no_bt_sup_lig;
	global $id_bibli, $id_cde, $id_liv;
	global $max_lig, $max_lig_liv;
	global $id_lig, $id_prod, $code, $lib, $sol, $rec;
	global $error, $error_msg;
	global $warning, $warning_msg;

	$frame = $frame_modif;

	$lig_aliv = array(); //Tableau des lignes à livrer
	$lig_dliv = array(); //Tableau des lignes déjà livrées
	$focus = 0;

	//Les lignes restant à livrer sont reprises telles quelles
	for($i=1;$i<=$max_lig;$i++) {

		$lig_aliv[$i]['id_lig'] = $id_lig[$i];
		$lig_aliv[$i]['id_prod']=$id_prod[$i];
		$lig_aliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
		$lig_aliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
		$lig_aliv[$i]['sol']= $sol[$i];
		$lig_aliv[$i]['rec']= $rec[$i];
	}

	//Les lignes déjà livrées sont reprises telles quelles
	for($i;$i<=$max_lig+$max_lig_liv;$i++) {

		$lig_dliv[$i]['id_lig'] = $id_lig[$i];
		$lig_dliv[$i]['id_prod']=$id_prod[$i];
		$lig_dliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
		$lig_dliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
		$lig_dliv[$i]['rec']= $rec[$i];

	}


	$index = 1;
	$max_lig = count($lig_aliv);
	//Affichage des lignes restant à livrer
	foreach($lig_aliv as $key=>$value) {

		$frame = str_replace('<!-- lignes -->', $frame_row.'<!-- lignes -->', $frame);
		$frame = str_replace('!!no!!', $index, $frame);
		$frame = str_replace('!!id_lig!!', $value['id_lig'], $frame);
		$frame = str_replace('!!id_prod!!', $value['id_prod'], $frame);
		$frame = str_replace('!!code!!', $value['code'], $frame);
		$frame = str_replace('!!hidden_lib!!', $value['lib'], $frame);
		$frame = str_replace('!!lib!!', nl2br($value['lib']), $frame);
		$frame = str_replace('!!sol!!', $value['sol'], $frame);
		$frame = str_replace('!!rec!!', $value['rec'], $frame);
		$index++;

	}
	$frame = str_replace('!!max_lig!!', $max_lig, $frame);

	$max_lig_liv = count($lig_dliv);
	if ($max_lig_liv) {

		$frame = str_replace('<!-- lignes -->', $frame_row_bl_header.'<!-- lignes -->', $frame);

		//Affichage des lignes déjà livrées
		foreach($lig_dliv as $key=>$value) {

			$frame = str_replace('<!-- lignes -->', $frame_row_bl.'<!-- lignes -->', $frame);
			$frame = str_replace('!!no!!', $index, $frame);
			$frame = str_replace('!!id_lig!!', $value['id_lig'], $frame);
			$frame = str_replace('!!id_prod!!', $value['id_prod'], $frame);
			$frame = str_replace('!!code!!', $value['code'], $frame);
			$frame = str_replace('!!hidden_lib!!', $value['lib'], $frame);
			$frame = str_replace('!!lib!!', nl2br($value['lib']), $frame);
			$frame = str_replace('!!rec!!', $value['rec'], $frame);
			$index++;
		}
	}
	$frame = str_replace('!!max_lig_liv!!', $max_lig_liv, $frame);


	if ($error) {
		$frame = str_replace('<!-- error -->', "<script type='text/javascript'>alert(\"".$error_msg."\"); </script>", $frame);
	}

	$frame = str_replace('!!id_liv!!', $id_liv, $frame);

	print $frame;

}



//test et formatage du code saisi
function test_cb() {

	global $cb;
	global $barcode;

	$EAN = '';
	$isbn = '';
	$barcode = '';

	// on commence par voir ce que la saisie utilisateur est ($cb)
	$cb = clean_string($cb);

	if(isEAN($cb)) {
		// la saisie est un EAN -> on tente de le formater en ISBN
		$isbn = EANtoISBN($cb);
		// si échec, on prend l'EAN comme il vient
		if( '' == $isbn ) {
			$barcode = $cb;
		} else {
			$barcode=$isbn;
		}
	} else {
		if(isISBN($cb)) {
			// si la saisie est un ISBN
			$isbn = formatISBN($cb);
			// si échec, ISBN erroné on le prend sous cette forme
			if( '' == $isbn ) {
			    $barcode = $cb;
			} else {
			    $barcode=$isbn ;
			}
		} else {
			// ce n'est rien de tout ça, on prend la saisie telle quelle
			$barcode = $cb;
		}
	}
}


//Recherche dans les lignes de commandes après saisie code barre
function search_lig_liv() {

	global $msg, $charset;
	global $frame_modif, $frame_row, $frame_row_bl_header, $frame_row_bl, $bt_sup_lig, $no_bt_sup_lig;
	global $id_bibli, $id_cde, $id_liv, $auto;
	global $max_lig, $max_lig_liv;
	global $id_lig, $id_prod, $code, $lib, $sol, $rec;
	global $focus, $barcode;
	global $error, $error_msg;
	global $warning, $warning_msg;

	$frame = $frame_modif;

	$lig_aliv = array(); //Tableau des lignes à livrer
	$lig_dliv = array(); //Tableau des lignes déjà livrées
	$focus = 0;

	//Les lignes restant à livrer sont reprises telles quelles
	for($i=1;$i<=$max_lig;$i++) {

		$lig_aliv[$i]['id_lig'] = $id_lig[$i];
		$lig_aliv[$i]['id_prod']=$id_prod[$i];
		$lig_aliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
		$lig_aliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
		$lig_aliv[$i]['sol']= $sol[$i];
		$lig_aliv[$i]['rec']= $rec[$i];
	}

	//Les lignes déjà livrées sont reprises telles quelles
	for($i;$i<=$max_lig+$max_lig_liv;$i++) {

		$lig_dliv[$i]['id_lig'] = $id_lig[$i];
		$lig_dliv[$i]['id_prod']=$id_prod[$i];
		$lig_dliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
		$lig_dliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
		$lig_dliv[$i]['rec']= $rec[$i];

	}

	//recherche du code saisi
	$trouve = 0;
	$dep = false;
	foreach($lig_aliv as $key=>$value) {
		if($value['code'] == $barcode) {	//Code trouvé
			$trouve = $key;
			if ($auto) {	//Mode incrément automatique
				if( ($value['rec'] < $value['sol']) ) {
					//La qté saisie est inférieure à la qté restant à recevoir >> Incrément qté saisie et sortie
				    $lig_aliv[$key]['rec'] = $value['rec']+1;
					$dep = false;
					break;
				} else {
					//La qté saisie est égale à la quantité restant à recevoir >> On note le dépassement et on recherche plus avant
					$dep = true;
				}
			} else {		//Mode recherche
				if( ($value['rec'] < $value['sol']) ) {
					//La qté saisie est inférieure à la qté restant à recevoir >> Sortie
					break;
				}
				//Sinon, si la quantité saisie est égale à la quantité restant à recevoir >> On recherche plus avant
			}
		}
	}

	$index = 1;
	$max_lig = count($lig_aliv);
	//Affichage des lignes restant à livrer
	foreach($lig_aliv as $key=>$value) {

		if ($auto && ($trouve == $key)) {
			$focus = $index;
			if ($dep){
				$error = true;
				$error_msg = $msg['acquisition_lig'].' '.$index.': '.$msg['acquisition_qte_liv_sup'];
			}
		}

		if (!$auto && ($trouve == $key)) {
			$focus = $index;
		}

		$frame = str_replace('<!-- lignes -->', $frame_row.'<!-- lignes -->', $frame);
		$frame = str_replace('!!no!!', $index, $frame);
		$frame = str_replace('!!id_lig!!', $value['id_lig'], $frame);
		$frame = str_replace('!!id_prod!!', $value['id_prod'], $frame);
		$frame = str_replace('!!code!!', $value['code'], $frame);
		$frame = str_replace('!!hidden_lib!!', $value['lib'], $frame);
		$frame = str_replace('!!lib!!', nl2br($value['lib']), $frame);
		$frame = str_replace('!!sol!!', $value['sol'], $frame);
		$frame = str_replace('!!rec!!', $value['rec'], $frame);
		$index++;

	}
	$frame = str_replace('!!max_lig!!', $max_lig, $frame);

	$max_lig_liv = count($lig_dliv);
	if ($max_lig_liv) {

		$frame = str_replace('<!-- lignes -->', $frame_row_bl_header.'<!-- lignes -->', $frame);

		//Affichage des lignes déjà livrées
		foreach($lig_dliv as $key=>$value) {

			$frame = str_replace('<!-- lignes -->', $frame_row_bl.'<!-- lignes -->', $frame);
			$frame = str_replace('!!no!!', $index, $frame);
			$frame = str_replace('!!id_lig!!', $value['id_lig'], $frame);
			$frame = str_replace('!!id_prod!!', $value['id_prod'], $frame);
			$frame = str_replace('!!code!!', $value['code'], $frame);
			$frame = str_replace('!!hidden_lib!!', $value['lib'], $frame);
			$frame = str_replace('!!lib!!', nl2br($value['lib']), $frame);
			$frame = str_replace('!!rec!!', $value['rec'], $frame);
			$index++;
		}
	}
	$frame = str_replace('!!max_lig_liv!!', $max_lig_liv, $frame);


	//Mise en place focus si code saisi trouvé
	if ($focus) {
		if(!$auto) {
			$focus = "<script type='text/javascript'>window.location.hash= '#ancre[".$focus."]';f=document.getElementById('rec[".$focus."]');f.focus();</script>";
		} else {
			$focus = "<script type='text/javascript'>window.parent.document.getElementById('cb').focus();</script>";
		}
	} else {
		$focus = "<script type='text/javascript'>alert('".$msg['acquisition_liv_code_inex']."'); window.parent.document.getElementById('cb').focus();</script>";
	}

	$frame = str_replace('<!-- focus -->', $focus, $frame);


	if ($error) {
		$frame = str_replace('<!-- error -->', "<script type='text/javascript'>alert(\"".$error_msg."\"); </script>", $frame);
	}

	$frame = str_replace('!!id_liv!!', $id_liv, $frame);

	print $frame;

}


function sup_lig_liv() {

	global $msg, $charset;
	global $frame_modif, $frame_row, $frame_row_bl_header, $frame_row_bl, $bt_sup_lig, $no_bt_sup_lig;
	global $id_bibli, $id_cde, $id_liv;
	global $max_lig, $max_lig_liv;
	global $chk, $id_lig, $id_prod, $code, $lib, $sol, $rec;

	$frame = $frame_modif;

	$lig_aliv = array(); //Tableau des lignes à livrer
	$lig_dliv = array(); //Tableau des lignes déjà livrées

	//Les lignes restant à livrer sont reprises telles quelles
	for($i=1;$i<=$max_lig;$i++) {

		$lig_aliv[$i]['id_lig'] = $id_lig[$i];
		$lig_aliv[$i]['id_prod']=$id_prod[$i];
		$lig_aliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
		$lig_aliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
		$lig_aliv[$i]['sol']= $sol[$i];
		$lig_aliv[$i]['rec']= $rec[$i];
	}

	//La quantite recue des lignes supprimées est reportée dans le solde des lignes restant à livrer si l'identifiant de ligne existe
	//Sinon, une nouvelle ligne restant à livrer est créée
	for($i;$i<=$max_lig+$max_lig_liv;$i++) {

		if ($chk[$i]) {	//La ligne est cochée pour suppression

			$ral = false;
			for($j=1;$j<=$max_lig; $j++) {	//Y avait-il un solde à livrer

				if($lig_aliv[$j]['id_lig'] == $id_lig[$i]) {	//Si oui, on rajoute le reçu de la ligne supprimée au solde à livrer
					$lig_aliv[$j]['sol'] = $lig_aliv[$j]['sol']+$rec[$i];
					$ral = true;
					break;
				}
			}
			if (!$ral) {	//Il n'y avait pas de reste à livrer, on recrée la ligne dans le tableau des restant à livrer

				$lig_aliv[$i]['id_lig'] = $id_lig[$i];
				$lig_aliv[$i]['id_prod']=$id_prod[$i];
				$lig_aliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
				$lig_aliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
				$lig_aliv[$i]['sol']= $rec[$i];
				$lig_aliv[$i]['rec']= '0';

			}

		} else {	//La ligne n'est pas cochée pour suppression, on la conserve dans les déjà livrées

			$lig_dliv[$i]['id_lig'] = $id_lig[$i];
			$lig_dliv[$i]['id_prod']=$id_prod[$i];
			$lig_dliv[$i]['code']=htmlentities(stripslashes($code[$i]), ENT_QUOTES, $charset);
			$lig_dliv[$i]['lib']= htmlentities(stripslashes($lib[$i]), ENT_QUOTES, $charset);
			$lig_dliv[$i]['rec']= $rec[$i];

		}
	}



	$index = 1;
	$max_lig = count($lig_aliv);
	//Affichage des lignes restant à livrer
	foreach($lig_aliv as $key=>$value) {

		$frame = str_replace('<!-- lignes -->', $frame_row.'<!-- lignes -->', $frame);
		$frame = str_replace('!!no!!', $index, $frame);
		$frame = str_replace('!!id_lig!!', $value['id_lig'], $frame);
		$frame = str_replace('!!id_prod!!', $value['id_prod'], $frame);
		$frame = str_replace('!!code!!', $value['code'], $frame);
		$frame = str_replace('!!hidden_lib!!', $value['lib'], $frame);
		$frame = str_replace('!!lib!!', nl2br($value['lib']), $frame);
		$frame = str_replace('!!sol!!', $value['sol'], $frame);
		$frame = str_replace('!!rec!!', $value['rec'], $frame);
		$index++;
	}
	$frame = str_replace('!!max_lig!!', $max_lig, $frame);

	$max_lig_liv = count($lig_dliv);
	if ($max_lig_liv) {

		$frame = str_replace('<!-- lignes -->', $frame_row_bl_header.'<!-- lignes -->', $frame);

		//Affichage des lignes déjà livrées
		foreach($lig_dliv as $key=>$value) {

			$frame = str_replace('<!-- lignes -->', $frame_row_bl.'<!-- lignes -->', $frame);
			$frame = str_replace('!!no!!', $index, $frame);
			$frame = str_replace('!!id_lig!!', $value['id_lig'], $frame);
			$frame = str_replace('!!id_prod!!', $value['id_prod'], $frame);
			$frame = str_replace('!!code!!', $value['code'], $frame);
			$frame = str_replace('!!hidden_lib!!', $value['lib'], $frame);
			$frame = str_replace('!!lib!!', nl2br($value['lib']), $frame);
			$frame = str_replace('!!rec!!', $value['rec'], $frame);
			$index++;
		}
	}
	$frame = str_replace('!!max_lig_liv!!', $max_lig_liv, $frame);

	$frame = str_replace('!!id_liv!!', $id_liv, $frame);

	print $frame;
}


//Enregistre le bon de livraison
function update_liv() {

	global $id_bibli, $id_cde, $id_liv, $comment, $ref;
	global $max_lig, $max_lig_liv, $id_lig, $id_prod, $code, $rec;
	global $acquisition_email_sugg;

	$tab_liv = array(); //Tableau des lignes livrées

	//Les lignes restant à livrer sont reprises dans la tableau si la qté reçue est >0
	for($i=1;$i<=$max_lig;$i++) {

		if ($rec[$i]) {
			$tab_liv[$i]['id_lig'] = $id_lig[$i];
			$tab_liv[$i]['rec']= $rec[$i];
		}
	}

	//Les quantités recues des lignes déjà livrées sont reportées dans le tableau si l'identifiant de ligne existe
	//Sinon une nouvelle ligne est créée
	for($i;$i<=$max_lig+$max_lig_liv;$i++) {

		$deja = false;
		for($j=1;$j<=$max_lig; $j++) {	//Y a-t'il une ligne deja créée

			if($tab_liv[$j]['id_lig'] == $id_lig[$i]) {	//Si oui, on rajoute la quantité reçue dans le tableau
				$tab_liv[$j]['rec'] = intval($tab_liv[$j]['rec'])+intval($rec[$i]);
				$deja = true;
				break;
			}
		}
		if (!$deja) {	//Sinon, on crée la ligne dans le tableau
			$tab_liv[$i]['id_lig'] = $id_lig[$i];
			$tab_liv[$i]['rec']= $rec[$i];

		}
	}

	//Récupération de la commande
	$cde = new actes($id_cde);

	if (!$id_liv) {	//Création du bon de livraison

		$liv = new actes();
		$liv->date_acte = today();
		$liv->type_acte = '2';
		$liv->statut = '4';		//Statut BL = recu
		$liv->num_entite = $cde->num_entite;
		$liv->num_fournisseur = $cde->num_fournisseur;
		$liv->num_contact_livr = $cde->num_contact_livr;
		$liv->num_contact_fact = $cde->num_contact_fact;
		$liv->num_exercice = $cde->num_exercice;
		$liv->commentaires = $comment;
		$liv->reference = $ref;
		$liv->calc();
		$liv->save();

		$id_liv = $liv->id_acte;
		//création des liens entre actes
		$la = new liens_actes($id_cde, $id_liv);

	} else {	//Modification du bon de livraison

		$liv = new actes($id_liv);
		$liv->numero=addslashes($liv->numero);
		$liv->commentaires = trim($comment);
		$liv->reference = trim($ref);
		$liv->save();

	}

	//Suppression des lignes de livraisons précédemment enregistrées
	actes::deleteLignes($id_liv);

	$sug_map = new suggestions_map();

	//Création des lignes de livraison
	foreach ($tab_liv as $key=>$value) {

		$lig_cde = new lignes_actes($value['id_lig']);


		$lig_liv = new lignes_actes();
		$lig_liv->num_acte = $liv->id_acte;
		$lig_liv->lig_ref = $lig_cde->id_ligne;
		$lig_liv->num_acquisition = $lig_cde->num_acquisition;
		$lig_liv->num_rubrique = $lig_cde->num_rubrique;
		$lig_liv->num_produit = $lig_cde->num_produit;
		$lig_liv->num_type = $lig_cde->num_type;
		$lig_liv->libelle = addslashes($lig_cde->libelle);
		$lig_liv->code = addslashes($lig_cde->code);
		$lig_liv->prix = $lig_cde->prix;
		$lig_liv->tva = $lig_cde->tva;
		$lig_liv->remise = $lig_cde->remise;
		$lig_liv->nb = $value['rec'];
		$lig_liv->date_cre = today();
		$lig_liv->save();

		if ( $lig_cde->num_acquisition != 0 ) {
			$sug = array();
			$sug[] = $lig_cde->num_acquisition;
			$sug_map->doTransition('RECEIVED', $sug);
		}

	}

	//La commande est-elle soldée
	$tab_cde = actes::getLignes($id_cde);
	$solde = true;
	while (($row_cde = pmb_mysql_fetch_object($tab_cde))) {

		if ($row_cde->type_ligne == 3) {	// Frais, non livrables

		} else {


			$tab_liv = lignes_actes::getLivraisons($row_cde->id_ligne);
			$nb_liv = 0;
			while (($row_liv = pmb_mysql_fetch_object($tab_liv))) {
				$nb_liv = $nb_liv + $row_liv->nb;
			}


			if ($row_cde->nb > $nb_liv) {
				$solde = false;
				break;
			}

		}

	}

	if ($solde) {
		$cde->statut = ($cde->statut & (~2) | 4); // Cde soldée >> Statut commande = en cours->soldé
	}
	$cde->update_statut();


}



// gestion des achats : livraisons

switch($action) {

	case 'from_cde' :
		show_lig_from_cde();
		break;

	case 'show_lig' :
		show_lig_liv();
		break;

	case 'search' :
		test_cb();
		search_lig_liv();
		break;

	case 'sup_lig' :
		sup_lig_liv();
		break;

	case 'update' :
		verif_liv();
		if ($error) {
			show_lig_bak();
			break;
		} else {
			update_liv();
			print $retour_liste;
		}
		break;

	default:
		break;

}

?>
