New: TODO il faut incrementer le stock si on supprime une expedition

validee

htdocs/expedition/class/expedition.class.php

@@ -3,7 +3,7 @@
  * Copyright (C) 2005-2012	Regis Houssin			<regis.houssin@capnetworks.com>
  * Copyright (C) 2007		Franky Van Liedekerke	<franky.van.liedekerke@telenet.be>
  * Copyright (C) 2006-2012	Laurent Destailleur		<eldy@users.sourceforge.net>
- * Copyright (C) 2011-2012	Juanjo Menent			<jmenent@2byte.es>
+ * Copyright (C) 2011-2013	Juanjo Menent			<jmenent@2byte.es>
  * Copyright (C) 2013       Florian Henry		  	<florian.henry@open-concept.pro>
  *
  * This program is free software; you can redistribute it and/or modify
@@ -791,6 +791,50 @@ class Expedition extends CommonObject
 		
 		$this->db->begin();
 		
+		// Stock control
+		if ($conf->stock->enabled && $conf->global->STOCK_CALCULATE_ON_SHIPMENT && $this->statut > 0)
+		{
+			require_once(DOL_DOCUMENT_ROOT."/product/stock/class/mouvementstock.class.php");
+		
+			$langs->load("agenda");
+		
+			// Loop on each product line to add a stock movement
+			$sql = "SELECT cd.fk_product, cd.subprice, ed.qty, ed.fk_entrepot";
+			$sql.= " FROM ".MAIN_DB_PREFIX."commandedet as cd,";
+			$sql.= " ".MAIN_DB_PREFIX."expeditiondet as ed";
+			$sql.= " WHERE ed.fk_expedition = ".$this->id;
+			$sql.= " AND cd.rowid = ed.fk_origin_line";
+		
+			dol_syslog(get_class($this)."::delete select details sql=".$sql);
+			$resql=$this->db->query($sql);
+			if ($resql)
+			{
+				$cpt = $this->db->num_rows($resql);
+				for ($i = 0; $i < $cpt; $i++)
+				{
+					dol_syslog(get_class($this)."::delete movement index ".$i);
+					$obj = $this->db->fetch_object($resql);
+					
+					//var_dump($this->lines[$i]);
+					$mouvS = new MouvementStock($this->db);
+					// We decrement stock of product (and sub-products)
+					// We use warehouse selected for each line
+					$result=$mouvS->reception($user, $obj->fk_product, $obj->fk_entrepot, $obj->qty, $obj->subprice, $langs->trans("ShipmentDeletedInDolibarr",$this->ref));
+					if ($result < 0)
+					{
+						$error++;
+						break;
+					}
+				}
+			}
+			else
+			{
+				$error++;
+			}
+		}
+		
+		if(! $error)
+		{
 			$sql = "DELETE FROM ".MAIN_DB_PREFIX."expeditiondet";
 			$sql.= " WHERE fk_expedition = ".$this->id;
 	
@@ -839,7 +883,6 @@ class Expedition extends CommonObject
 			            if ($result < 0) { $error++; $this->errors=$interface->errors; }
 			            // End call triggers
 	
-					// TODO il faut incrementer le stock si on supprime une expedition validee
 						return 1;
 					}
 					else
@@ -863,6 +906,13 @@ class Expedition extends CommonObject
 				return -1;
 			}
 		}
+		else 
+		{
+			$this->db->rollback();
+			return -1;
+		}
+			
+	}
 
 	/**
 	 *	Load lines

htdocs/langs/ca_ES/other.lang

@@ -192,6 +192,7 @@ MemberResiliatedInDolibarr=Membre %s donat de baixa en Dolibarr
 MemberDeletedInDolibarr=Membre %s eliminat de Dolibarr
 MemberSubscriptionAddedInDolibarr=Subscripció del membre %s afegida a Dolibarr
 ShipmentValidatedInDolibarr=Expedició %s validada en Dolibarr
+ShipmentDeletedInDolibarr=Expedició %s eliminada de Dolibarr
 ##### Export #####
 Export=Exportació
 ExportsArea=Àrea d'exportacions

htdocs/langs/en_US/other.lang

@@ -195,6 +195,7 @@ MemberResiliatedInDolibarr=Member %s resiliated in Dolibarr
 MemberDeletedInDolibarr=Member %s deleted from Dolibarr
 MemberSubscriptionAddedInDolibarr=Subscription for member %s added in Dolibarr
 ShipmentValidatedInDolibarr=Shipment %s validated in Dolibarr
+ShipmentDeletedInDolibarr=Shipment %s deleted from Dolibarr
 ##### Export #####
 Export=Export
 ExportsArea=Exports area

htdocs/langs/es_ES/other.lang

@@ -193,6 +193,7 @@ MemberResiliatedInDolibarr=Miembro %s dado de baja en Dolibarr
 MemberDeletedInDolibarr=Miembro %s eliminado de Dolibarr
 MemberSubscriptionAddedInDolibarr=Subscripción del miembro % añadida en Dolibarr
 ShipmentValidatedInDolibarr=Expedición %s validada en Dolibarr
+ShipmentDeletedInDolibarr=Expedición %s eliminada de Dolibarr
 ##### Export #####
 Export=Exportación
 ExportsArea=Área de exportaciones

htdocs/langs/fr_FR/other.lang

@@ -195,6 +195,7 @@ MemberResiliatedInDolibarr=Adhérent %s résilié dans Dolibarr
 MemberDeletedInDolibarr=Adhérent %s supprimé de Dolibarr
 MemberSubscriptionAddedInDolibarr=Souscription adhérent %s ajoutée dans Dolibarr
 ShipmentValidatedInDolibarr=Expédition %s validée dans Dolibarr
+ShipmentDeletedInDolibarr=Expédition %s supprimé de Dolibarr
 ##### Export #####
 Export=Export
 ExportsArea=Espace exports