Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
README	654 B	-rwxr-xr-x	2021-01-30 17:42
README-FR	775 B	-rwxr-xr-x	2021-01-30 17:42
dolibarrtriggers.class.php	3.48 KB	-rwxr-xr-x	2021-01-30 17:42
index.html	0 B	-rwxr-xr-x	2021-01-30 17:42
interface_20_all_Logevents.class.php	8.62 KB	-rwxr-xr-x	2021-01-30 17:42
interface_20_modWorkflow_WorkflowManager.class.php	19.85 KB	-rwxr-xr-x	2021-06-16 18:34
interface_50_modAgenda_ActionsAuto.class.php	44.24 KB	-rwxr-xr-x	2021-01-30 17:42
interface_50_modBlockedlog_ActionsBlockedLog.class.php	5.35 KB	-rwxr-xr-x	2021-01-30 17:42
interface_50_modLdap_Ldapsynchro.class.php	27.03 KB	-rwxr-xr-x	2021-01-30 17:42
interface_50_modMailmanspip_Mailmanspipsynchro.class.php	6.43 KB	-rwxr-xr-x	2021-01-30 17:42
interface_50_modNotification_Notification.class.php	4.99 KB	-rwxr-xr-x	2021-01-30 17:42
interface_50_modTicket_TicketEmail.class.php	13.07 KB	-rwxr-xr-x	2023-04-13 09:15
interface_80_modStripe_Stripe.class.php	10.68 KB	-rwxr-xr-x	2021-01-30 17:42
interface_90_modSociete_ContactRoles.class.php	4.32 KB	-rwxr-xr-x	2024-04-29 12:21
interface_99_modZapier_ZapierTriggers.class.php	18.24 KB	-rwxr-xr-x	2021-01-30 17:42

Rename

<?php
/* Copyright (C) 2010      Regis Houssin       <regis.houssin@inodbox.com>
 * Copyright (C) 2011-2017 Laurent Destailleur <eldy@users.sourceforge.net>
 * Copyright (C) 2014      Marcos García       <marcosgdf@gmail.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

/**
 *  \file       htdocs/core/triggers/interface_20_modWorkflow_WorkflowManager.class.php
 *  \ingroup    core
 *  \brief      Trigger file for workflows
 */

require_once DOL_DOCUMENT_ROOT.'/core/triggers/dolibarrtriggers.class.php';

/**
 *  Class of triggers for workflow module
 */

class InterfaceWorkflowManager extends DolibarrTriggers
{
	/**
	 * @var string Image of the trigger
	 */
	public $picto = 'technic';

public $family = 'core';
	public $description = "Triggers of this module allows to manage workflows";

/**
	 * Version of the trigger
	 * @var string
	 */
	public $version = self::VERSION_DOLIBARR;

/**
	 * Function called when a Dolibarrr business event is done.
	 * All functions "runTrigger" are triggered if file is inside directory htdocs/core/triggers or htdocs/module/code/triggers (and declared)
	 *
	 * @param string		$action		Event action code
	 * @param Object		$object     Object
	 * @param User		    $user       Object user
	 * @param Translate 	$langs      Object langs
	 * @param conf		    $conf       Object conf
	 * @return int         				<0 if KO, 0 if no triggered ran, >0 if OK
	 */
	public function runTrigger($action, $object, User $user, Translate $langs, Conf $conf)
    {
        if (empty($conf->workflow->enabled)) return 0; // Module not active, we do nothing

// Proposals to order
        if ($action == 'PROPAL_CLOSE_SIGNED')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
            if (!empty($conf->commande->enabled) && !empty($conf->global->WORKFLOW_PROPAL_AUTOCREATE_ORDER))
            {
                include_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
                $newobject = new Commande($this->db);

$newobject->context['createfrompropal'] = 'createfrompropal';
                $newobject->context['origin'] = $object->element;
                $newobject->context['origin_id'] = $object->id;

$ret = $newobject->createFromProposal($object, $user);
                if ($ret < 0) { $this->error = $newobject->error; $this->errors[] = $newobject->error; }
                return $ret;
            }
        }

// Order to invoice
        if ($action == 'ORDER_CLOSE')
        {
            dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
            if (!empty($conf->facture->enabled) && !empty($conf->global->WORKFLOW_ORDER_AUTOCREATE_INVOICE))
            {
                include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
                $newobject = new Facture($this->db);

$newobject->context['createfromorder'] = 'createfromorder';
                $newobject->context['origin'] = $object->element;
                $newobject->context['origin_id'] = $object->id;

$ret = $newobject->createFromOrder($object, $user);
                if ($ret < 0) { $this->error = $newobject->error; $this->errors[] = $newobject->error; }
                return $ret;
            }
        }

// Order classify billed proposal
        if ($action == 'ORDER_CLASSIFY_BILLED')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
        	if (!empty($conf->propal->enabled) && !empty($conf->workflow->enabled) && !empty($conf->global->WORKFLOW_ORDER_CLASSIFY_BILLED_PROPAL))
        	{
        		$object->fetchObjectLinked('', 'propal', $object->id, $object->element);
				if (!empty($object->linkedObjects))
				{
				    $totalonlinkedelements = 0;
					foreach ($object->linkedObjects['propal'] as $element)
					{
					    if ($element->statut == Propal::STATUS_SIGNED || $element->statut == Propal::STATUS_BILLED) $totalonlinkedelements += $element->total_ht;
					}
					dol_syslog("Amount of linked proposals = ".$totalonlinkedelements.", of order = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht));
                    if ($this->shouldClassify($conf, $totalonlinkedelements, $object->total_ht))
                    {
    					foreach ($object->linkedObjects['propal'] as $element)
    					{
    					    $ret = $element->classifyBilled($user);
    					}
					}
				}
        		return $ret;
        	}
        }

// classify billed order & billed propososal
        if ($action == 'BILL_VALIDATE')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
        	$ret = 0;

// First classify billed the order to allow the proposal classify process
			if (!empty($conf->commande->enabled) && !empty($conf->workflow->enabled) && !empty($conf->global->WORKFLOW_INVOICE_AMOUNT_CLASSIFY_BILLED_ORDER))
        	{
        		$object->fetchObjectLinked('', 'commande', $object->id, $object->element);
        		if (!empty($object->linkedObjects))
        		{
        		    $totalonlinkedelements = 0;
        		    foreach ($object->linkedObjects['commande'] as $element)
        		    {
        		        if ($element->statut == Commande::STATUS_VALIDATED || $element->statut == Commande::STATUS_SHIPMENTONPROCESS || $element->statut == Commande::STATUS_CLOSED) $totalonlinkedelements += $element->total_ht;
        		    }
        		    dol_syslog("Amount of linked orders = ".$totalonlinkedelements.", of invoice = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht));
                    if ($this->shouldClassify($conf, $totalonlinkedelements, $object->total_ht))
        		    {
        		        foreach ($object->linkedObjects['commande'] as $element)
        		        {
        		            $ret = $element->classifyBilled($user);
        		        }
        		    }
        		}
        	}

// Second classify billed the proposal.
        	if (!empty($conf->propal->enabled) && !empty($conf->workflow->enabled) && !empty($conf->global->WORKFLOW_INVOICE_CLASSIFY_BILLED_PROPAL))
        	{
        		$object->fetchObjectLinked('', 'propal', $object->id, $object->element);
        		if (!empty($object->linkedObjects))
        		{
        		    $totalonlinkedelements = 0;
        		    foreach ($object->linkedObjects['propal'] as $element)
        		    {
        		        if ($element->statut == Propal::STATUS_SIGNED || $element->statut == Propal::STATUS_BILLED) $totalonlinkedelements += $element->total_ht;
        		    }
        		    dol_syslog("Amount of linked proposals = ".$totalonlinkedelements.", of invoice = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht));
                    if ($this->shouldClassify($conf, $totalonlinkedelements, $object->total_ht))
        		    {
        		        foreach ($object->linkedObjects['propal'] as $element)
        		        {
        		            $ret = $element->classifyBilled($user);
        		        }
        		    }
        		}
        	}

return $ret;
        }

// classify billed order & billed propososal
        if ($action == 'BILL_SUPPLIER_VALIDATE')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);

// First classify billed the order to allow the proposal classify process
        	if (!empty($conf->fournisseur->enabled) && !empty($conf->global->WORKFLOW_INVOICE_AMOUNT_CLASSIFY_BILLED_SUPPLIER_ORDER))
        	{
        		$object->fetchObjectLinked('', 'order_supplier', $object->id, $object->element);
        		if (!empty($object->linkedObjects))
        		{
        			$totalonlinkedelements = 0;
        			foreach ($object->linkedObjects['order_supplier'] as $element)
        			{
        				if ($element->statut == CommandeFournisseur::STATUS_ACCEPTED || $element->statut == CommandeFournisseur::STATUS_ORDERSENT || $element->statut == CommandeFournisseur::STATUS_RECEIVED_PARTIALLY || $element->statut == CommandeFournisseur::STATUS_RECEIVED_COMPLETELY) $totalonlinkedelements += $element->total_ht;
        			}
        			dol_syslog("Amount of linked orders = ".$totalonlinkedelements.", of invoice = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht));
                    if ($this->shouldClassify($conf, $totalonlinkedelements, $object->total_ht))
					{
        				foreach ($object->linkedObjects['order_supplier'] as $element)
        				{
        					$ret = $element->classifyBilled($user);
        				}
        			}
        		}
        		return $ret;
        	}

// Second classify billed the proposal.
        	if (!empty($conf->supplier_proposal->enabled) && !empty($conf->global->WORKFLOW_INVOICE_CLASSIFY_BILLED_SUPPLIER_PROPOSAL))
        	{
        		$object->fetchObjectLinked('', 'supplier_proposal', $object->id, $object->element);
        		if (!empty($object->linkedObjects))
        		{
        			$totalonlinkedelements = 0;
        			foreach ($object->linkedObjects['supplier_proposal'] as $element)
        			{
        				if ($element->statut == SupplierProposal::STATUS_SIGNED || $element->statut == SupplierProposal::STATUS_BILLED) $totalonlinkedelements += $element->total_ht;
        			}
        			dol_syslog("Amount of linked supplier proposals = ".$totalonlinkedelements.", of supplier invoice = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht));
                    if ($this->shouldClassify($conf, $totalonlinkedelements, $object->total_ht))
        			{
        				foreach ($object->linkedObjects['supplier_proposal'] as $element)
        				{
        					$ret = $element->classifyBilled($user);
        				}
        			}
        		}
        		return $ret;
        	}
        }

// Invoice classify billed order
        if ($action == 'BILL_PAYED')
        {
            dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);

if (!empty($conf->commande->enabled) && !empty($conf->global->WORKFLOW_INVOICE_CLASSIFY_BILLED_ORDER))
            {
                $object->fetchObjectLinked('', 'commande', $object->id, $object->element);
                if (!empty($object->linkedObjects))
                {
                    $totalonlinkedelements = 0;
                    foreach ($object->linkedObjects['commande'] as $element)
                    {
                        if ($element->statut == Commande::STATUS_VALIDATED || $element->statut == Commande::STATUS_SHIPMENTONPROCESS || $element->statut == Commande::STATUS_CLOSED) $totalonlinkedelements += $element->total_ht;
                    }
                    dol_syslog("Amount of linked orders = ".$totalonlinkedelements.", of invoice = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht));
                    if ($this->shouldClassify($conf, $totalonlinkedelements, $object->total_ht))
                    {
                        foreach ($object->linkedObjects['commande'] as $element)
                        {
                            $ret = $element->classifyBilled($user);
                        }
                    }
                }
                return $ret;
            }
        }

if ($action == 'SHIPPING_VALIDATE')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);

if (!empty($conf->commande->enabled) && !empty($conf->expedition->enabled) && !empty($conf->workflow->enabled) && !empty($conf->global->WORKFLOW_ORDER_CLASSIFY_SHIPPED_SHIPPING))
        	{
        		$qtyshipped = array();
        		$qtyordred = array();
        		require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';

//find all shippement on order origin
        		$order = new Commande($this->db);
        		$ret = $order->fetch($object->origin_id);
        		if ($ret < 0) {
        			$this->error = $order->error; $this->errors = $order->errors;
        			return $ret;
        		}
        		$ret = $order->fetchObjectLinked($order->id, 'commande', null, 'shipping');
        		if ($ret < 0) {
        			$this->error = $order->error; $this->errors = $order->errors;
        			return $ret;
        		}
        		//Build array of quantity shipped by product for an order
        		if (is_array($order->linkedObjects) && count($order->linkedObjects) > 0) {
        			foreach ($order->linkedObjects as $type=>$shipping_array) {
        				if ($type == 'shipping' && is_array($shipping_array) && count($shipping_array) > 0) {
        					foreach ($shipping_array as $shipping) {
		        				if (is_array($shipping->lines) && count($shipping->lines) > 0) {
		        					foreach ($shipping->lines as $shippingline) {
		        						$qtyshipped[$shippingline->fk_product] += $shippingline->qty;
		        					}
		        				}
	        				}
        				}
        			}
        		}

//Build array of quantity ordered by product
        		if (is_array($order->lines) && count($order->lines) > 0) {
        			foreach ($order->lines as $orderline) {
        				if (empty($conf->global->STOCK_SUPPORTS_SERVICES) && $orderline->product_type > 0) continue;
        				$qtyordred[$orderline->fk_product] += $orderline->qty;
        			}
        		}
        		//dol_syslog(var_export($qtyordred,true),LOG_DEBUG);
        		//dol_syslog(var_export($qtyshipped,true),LOG_DEBUG);
        		//Compare array
        		$diff_array = array_diff_assoc($qtyordred, $qtyshipped);
        		if (count($diff_array) == 0) {
        			//No diff => mean everythings is shipped
        			$ret = $object->setStatut(Commande::STATUS_CLOSED, $object->origin_id, $object->origin, 'ORDER_CLOSE');
        			if ($ret < 0) {
        				$this->error = $object->error; $this->errors = $object->errors;
        				return $ret;
        			}
        		}
        	}
        }
		 // classify billed reception
        if ($action == 'BILL_SUPPLIER_VALIDATE')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id, LOG_DEBUG);

if (!empty($conf->reception->enabled) && !empty($conf->global->WORKFLOW_BILL_ON_RECEPTION))
        	{
        		$object->fetchObjectLinked('', 'reception', $object->id, $object->element);
        		if (!empty($object->linkedObjects))
        		{
        		    $totalonlinkedelements = 0;
        		    foreach ($object->linkedObjects['reception'] as $element)
        		    {
        		        if ($element->statut == Reception::STATUS_VALIDATED) $totalonlinkedelements += $element->total_ht;
        		    }
        		    dol_syslog("Amount of linked proposals = ".$totalonlinkedelements.", of invoice = ".$object->total_ht.", egality is ".($totalonlinkedelements == $object->total_ht), LOG_DEBUG);
        		    if ($totalonlinkedelements == $object->total_ht)
        		    {
        		        foreach ($object->linkedObjects['reception'] as $element)
        		        {
        		            $ret = $element->set_billed();
        		        }
        		    }
        		}
        		return $ret;
        	}
		}

/*
		//Amine
		//Description : Lors de la creation d'un nouveau produit :
		//Ajouter le prix de vente du produit unitaire 'Sans le C' dans l'extrafield Prix de vente unitaire(UV)
		
        if ($action == 'PRODUCT_CREATE')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id, LOG_DEBUG);
			
			if(preg_match('/C$/', $object->ref)){

//$get_price_data		= "select price from llx_product where rowid=(SELECT fk_product_fils FROM `llx_product_association` where fk_product_pere=".$object->id.")";
				$get_price_data		= "select price from llx_product where ref= '".substr($object->ref, 0, -1)."'";
				$res_get_price_data 	= $this->db->query($get_price_data);
				$data_price_value	= $this->db->fetch_object($res_get_price_data);		
				$price	= $data_price_value->price;

if((!$price) || (empty($price))){
					$price = 0;
				}
				$set_uv = "UPDATE llx_product_extrafields SET `uv`=".$price." where fk_object=".$object->id."";
				$this->db->query($set_uv);

}else{

if($object->price){
					$price = $object->price;
				}else{
					$price = 0;
				}
				
				$get_rowid		= "select rowid from llx_product where ref = '".$object->ref."C'";
				$res_get_rowid 	= $this->db->query($get_rowid);
				$data_rowid_value	= $this->db->fetch_object($res_get_rowid);		
				$rowid	= $data_rowid_value->rowid;
				if($rowid){
					$set_uv = "UPDATE llx_product_extrafields SET `uv`=".$price." where fk_object=".$rowid."";
					$this->db->query($set_uv);
				}

$set_uv = "UPDATE llx_product_extrafields SET `uv`=".$price." where fk_object=".$object->id."";
				$this->db->query($set_uv);
				
			}
		}

//Amine
		//Description : Lors de la modification d'un nouveau produit :
		//lors de la modification du prix de vente dans le produit unitaire, mettre a jour  l'extrafield Prix de vente unitaire(UV) dans le produit unitaire et aussi dans le colis
		
        if ($action == 'PRODUCT_MODIFY')
        {
        	dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id, LOG_DEBUG);
			if(!preg_match('/C$/', $object->ref)){
				if($object->price){
					$set_uv = "UPDATE llx_product_extrafields SET `uv`=".$object->price." where fk_object=".$object->id."";
					$this->db->query($set_uv);
					$get_rowid		= "select rowid from llx_product where ref = '".$object->ref."C'";
					$res_get_rowid 	= $this->db->query($get_rowid);
					$data_rowid_value	= $this->db->fetch_object($res_get_rowid);		
					$rowid	= $data_rowid_value->rowid;
					if($rowid){
						$set_uv_c = "UPDATE llx_product_extrafields SET `uv`=".$object->price." where fk_object=".$rowid."";
						$this->db->query($set_uv_c);
					}
				}
			}
		}*/

return 0;
    }

/**
     * @param Object $conf                  Dolibarr settings object
     * @param float $totalonlinkedelements  Sum of total amounts (excl VAT) of
     *                                      invoices linked to $object
     * @param float $object_total_ht        The total amount (excl VAT) of the object
     *                                      (an order, a proposal, a bill, etc.)
     * @return bool  True if the amounts are equal (rounded on total amount)
     *               True if the module is configured to skip the amount equality check
     *               False otherwise.
     */
    private function shouldClassify($conf, $totalonlinkedelements, $object_total_ht)
    {
        // if the configuration allows unmatching amounts, allow classification anyway
        if (!empty($conf->global->WORKFLOW_CLASSIFY_IF_AMOUNTS_ARE_DIFFERENTS)) {
            return true;
        }
        // if the amount are same, allow classification, else deny
        return (price2num($totalonlinkedelements, 'MT') == price2num($object_total_ht, 'MT'));
    }
}