<?php
/* Copyright (C) 2020 SuperAdmin <francis.appels@z-application.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    core/triggers/interface_99_modBlockOutstanding_BlockOutstandingTriggers.class.php
 * \ingroup blockoutstanding
 * \brief   Example trigger.
 *
 * Put detailed description here.
 *
 * \remarks You can create other triggers by copying this one.
 * - File name should be either:
 *      - interface_99_modBlockOutstanding_MyTrigger.class.php
 *      - interface_99_all_MyTrigger.class.php
 * - The file must stay in core/triggers
 * - The class name must be InterfaceMytrigger
 * - The constructor method must be named InterfaceMytrigger
 * - The name property name must be MyTrigger
 */

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


/**
 *  Class of triggers for BlockOutstanding module
 */
class InterfaceBlockOutstandingTriggers extends DolibarrTriggers
{
	/**
	 * @var DoliDB Database handler
	 */
	protected $db;

	/**
	 * Constructor
	 *
	 * @param DoliDB $db Database handler
	 */
	public function __construct($db)
	{
		$this->db = $db;

		$this->name = preg_replace('/^Interface/i', '', get_class($this));
		$this->family = "other";
		$this->description = "BlockOutstanding triggers.";
		// 'development', 'experimental', 'dolibarr' or version
		$this->version = 'dolibarr';
		$this->picto = 'blockoutstanding@blockoutstanding';
	}

	/**
	 * Trigger name
	 *
	 * @return string Name of trigger file
	 */
	public function getName()
	{
		return $this->name;
	}

	/**
	 * Trigger description
	 *
	 * @return string Description of trigger file
	 */
	public function getDesc()
	{
		return $this->description;
	}


	/**
	 * Function called when a Dolibarrr business event is done.
	 * All functions "runTrigger" are triggered if file
	 * is inside directory core/triggers
	 *
	 * @param string 		$action 	Event action code
	 * @param CommonObject 	$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)
	{
		$result = 0;

		if (empty($conf->blockoutstanding->enabled)) return 0;     // If module is not enabled, we do nothing

		// Put here code you want to execute when a Dolibarr business events occurs.
		// Data and type of action are stored into $object and $action

		switch ($action) {
			// Users
			//case 'USER_CREATE':
			//case 'USER_MODIFY':
			//case 'USER_NEW_PASSWORD':
			//case 'USER_ENABLEDISABLE':
			//case 'USER_DELETE':
			//case 'USER_SETINGROUP':
			//case 'USER_REMOVEFROMGROUP':

			// Actions
			//case 'ACTION_MODIFY':
			//case 'ACTION_CREATE':
			//case 'ACTION_DELETE':

			// Groups
			//case 'GROUP_CREATE':
			//case 'GROUP_MODIFY':
			//case 'GROUP_DELETE':

			// Companies
			//case 'COMPANY_CREATE':
			//case 'COMPANY_MODIFY':
			//case 'COMPANY_DELETE':

			// Contacts
			//case 'CONTACT_CREATE':
			//case 'CONTACT_MODIFY':
			//case 'CONTACT_DELETE':
			//case 'CONTACT_ENABLEDISABLE':

			// Products
			//case 'PRODUCT_CREATE':
			//case 'PRODUCT_MODIFY':
			//case 'PRODUCT_DELETE':
			//case 'PRODUCT_PRICE_MODIFY':
			//case 'PRODUCT_SET_MULTILANGS':
			//case 'PRODUCT_DEL_MULTILANGS':

			//Stock mouvement
			//case 'STOCK_MOVEMENT':

			//MYECMDIR
			//case 'MYECMDIR_CREATE':
			//case 'MYECMDIR_MODIFY':
			//case 'MYECMDIR_DELETE':

			// Customer orders
			case 'ORDER_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_ORDER) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'ORDER_MODIFY':
			case 'ORDER_VALIDATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_ORDER) && !empty($conf->global->BLOCKOUTSTANDING_VALIDATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'ORDER_DELETE':
			//case 'ORDER_CANCEL':
			//case 'ORDER_SENTBYMAIL':
			//case 'ORDER_CLASSIFY_BILLED':
			//case 'ORDER_SETDRAFT':
			//case 'LINEORDER_INSERT':
			//case 'LINEORDER_UPDATE':
			//case 'LINEORDER_DELETE':

			// Supplier orders
			case 'ORDER_SUPPLIER_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_SUPPLIER_ORDER) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf, 'supplier');
				}
				break;
			//case 'ORDER_SUPPLIER_MODIFY':
			case 'ORDER_SUPPLIER_VALIDATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_SUPPLIER_ORDER) && !empty($conf->global->BLOCKOUTSTANDING_VALIDATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf, 'supplier');
				}
				break;
			//case 'ORDER_SUPPLIER_DELETE':
			//case 'ORDER_SUPPLIER_APPROVE':
			//case 'ORDER_SUPPLIER_REFUSE':
			//case 'ORDER_SUPPLIER_CANCEL':
			//case 'ORDER_SUPPLIER_SENTBYMAIL':
			//case 'ORDER_SUPPLIER_DISPATCH':
			//case 'LINEORDER_SUPPLIER_DISPATCH':
			//case 'LINEORDER_SUPPLIER_CREATE':
			//case 'LINEORDER_SUPPLIER_UPDATE':
			//case 'LINEORDER_SUPPLIER_DELETE':

			// Proposals
			case 'PROPAL_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_PROPOSAL) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'PROPAL_MODIFY':
			case 'PROPAL_VALIDATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_PROPOSAL) && !empty($conf->global->BLOCKOUTSTANDING_VALIDATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'PROPAL_SENTBYMAIL':
			//case 'PROPAL_CLOSE_SIGNED':
			//case 'PROPAL_CLOSE_REFUSED':
			//case 'PROPAL_DELETE':
			//case 'LINEPROPAL_INSERT':
			//case 'LINEPROPAL_UPDATE':
			//case 'LINEPROPAL_DELETE':

			// SupplierProposal
			//case 'SUPPLIER_PROPOSAL_CREATE':
			//case 'SUPPLIER_PROPOSAL_MODIFY':
			//case 'SUPPLIER_PROPOSAL_VALIDATE':
			//case 'SUPPLIER_PROPOSAL_SENTBYMAIL':
			//case 'SUPPLIER_PROPOSAL_CLOSE_SIGNED':
			//case 'SUPPLIER_PROPOSAL_CLOSE_REFUSED':
			//case 'SUPPLIER_PROPOSAL_DELETE':
			//case 'LINESUPPLIER_PROPOSAL_INSERT':
			//case 'LINESUPPLIER_PROPOSAL_UPDATE':
			//case 'LINESUPPLIER_PROPOSAL_DELETE':

			// Contracts
			case 'CONTRACT_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_CONTRACT) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'CONTRACT_MODIFY':
			//case 'CONTRACT_ACTIVATE':
			//case 'CONTRACT_CANCEL':
			//case 'CONTRACT_CLOSE':
			//case 'CONTRACT_DELETE':
			//case 'LINECONTRACT_INSERT':
			//case 'LINECONTRACT_UPDATE':
			//case 'LINECONTRACT_DELETE':

			// Bills
			case 'BILL_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_INVOICE) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'BILL_MODIFY':
			case 'BILL_VALIDATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_INVOICE) && !empty($conf->global->BLOCKOUTSTANDING_VALIDATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf, 'customer', true);
				}
				break;
			//case 'BILL_UNVALIDATE':
			//case 'BILL_SENTBYMAIL':
			//case 'BILL_CANCEL':
			//case 'BILL_DELETE':
			//case 'BILL_PAYED':
			//case 'LINEBILL_INSERT':
			//case 'LINEBILL_UPDATE':
			//case 'LINEBILL_DELETE':

			//Supplier Bill
			case 'BILL_SUPPLIER_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_SUPPLIER_INVOICE) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf, 'supplier');
				}
				break;
			//case 'BILL_SUPPLIER_UPDATE':
			//case 'BILL_SUPPLIER_DELETE':
			//case 'BILL_SUPPLIER_PAYED':
			//case 'BILL_SUPPLIER_UNPAYED':
			case 'BILL_SUPPLIER_VALIDATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_SUPPLIER_INVOICE) && !empty($conf->global->BLOCKOUTSTANDING_VALIDATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf, 'supplier', true);
				}
				break;
			//case 'BILL_SUPPLIER_UNVALIDATE':
			//case 'LINEBILL_SUPPLIER_CREATE':
			//case 'LINEBILL_SUPPLIER_UPDATE':
			//case 'LINEBILL_SUPPLIER_DELETE':

			// Payments
			//case 'PAYMENT_CUSTOMER_CREATE':
			//case 'PAYMENT_SUPPLIER_CREATE':
			//case 'PAYMENT_ADD_TO_BANK':
			//case 'PAYMENT_DELETE':

			// Online
			//case 'PAYMENT_PAYBOX_OK':
			//case 'PAYMENT_PAYPAL_OK':
			//case 'PAYMENT_STRIPE_OK':

			// Donation
			//case 'DON_CREATE':
			//case 'DON_UPDATE':
			//case 'DON_DELETE':

			// Interventions
			case 'FICHINTER_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_INTERVENTION) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'FICHINTER_MODIFY':
			//case 'FICHINTER_VALIDATE':
			//case 'FICHINTER_DELETE':
			//case 'LINEFICHINTER_CREATE':
			//case 'LINEFICHINTER_UPDATE':
			//case 'LINEFICHINTER_DELETE':

			// Members
			//case 'MEMBER_CREATE':
			//case 'MEMBER_VALIDATE':
			//case 'MEMBER_SUBSCRIPTION':
			//case 'MEMBER_MODIFY':
			//case 'MEMBER_NEW_PASSWORD':
			//case 'MEMBER_RESILIATE':
			//case 'MEMBER_DELETE':

			// Categories
			//case 'CATEGORY_CREATE':
			//case 'CATEGORY_MODIFY':
			//case 'CATEGORY_DELETE':
			//case 'CATEGORY_SET_MULTILANGS':

			// Projects
			case 'PROJECT_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_PROJECT) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'PROJECT_MODIFY':
			//case 'PROJECT_DELETE':

			// Project tasks
			//case 'TASK_CREATE':
			//case 'TASK_MODIFY':
			//case 'TASK_DELETE':

			// Task time spent
			//case 'TASK_TIMESPENT_CREATE':
			//case 'TASK_TIMESPENT_MODIFY':
			//case 'TASK_TIMESPENT_DELETE':
			//case 'PROJECT_ADD_CONTACT':
			//case 'PROJECT_DELETE_CONTACT':
			//case 'PROJECT_DELETE_RESOURCE':

			// Shipping
			case 'SHIPPING_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_SHIPMENT) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			//case 'SHIPPING_MODIFY':
			//case 'SHIPPING_VALIDATE':
			//case 'SHIPPING_SENTBYMAIL':
			//case 'SHIPPING_BILLED':
			//case 'SHIPPING_CLOSED':
			//case 'SHIPPING_REOPEN':
			//case 'SHIPPING_DELETE':

			case 'TICKET_CREATE':
				if (!empty($conf->global->BLOCKOUTSTANDING_TICKET) && !empty($conf->global->BLOCKOUTSTANDING_CREATE)) {
					$result = $this->validateOutstanding($user, $object, $langs, $conf);
				}
				break;
			// and more...

			default:
				dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id.". result=".$result);
				break;
		}

		return $result;
	}

	/**
	 * validateOutstanding
	 *
	 * @param User			$user	 			User
	 * @param CommonObject 	$object 			Object
	 * @param Translate 	$langs 				Object langs
	 * @param Conf 			$conf 				Object conf
	 * @param String 		$mode 				'customer' or 'supplier'
	 * @param Boolean		$validateInvoice	If from invoice validation (no need to take in account invoiced amount because already in opened outstanding bills)
	 * @return int              		<0 if KO, 0 if no outstanding or not validated, >0 if validated as warning
	 */
	private function validateOutstanding($user, $object, $langs, $conf, $mode = 'customer', $validateInvoice = false)
	{
		$langs->load("blockoutstanding@blockoutstanding");
		$object->fetch_thirdparty();
		$soc = $object->thirdparty;
		$mesg = '';
		$actionFromGetPost = GETPOST('action');
		$totalFromGetPost = GETPOST('total', 'int');
		if ($soc->id > 0) {
			if (!isset($soc->outstanding_limit)) {
				$outstandingLimit = price2num($conf->global->BLOCKOUTSTANDING_DEFAULT_AMOUNT, 'MT');
			} else {
				$outstandingLimit = $soc->outstanding_limit;
			}
			if ($validateInvoice) {
				$objectTotalTTC = 0;
			} else {
				if ($object->total_ttc) {
					$objectTotalTTC = $object->total_ttc;
				} elseif ($totalFromGetPost) {
					$objectTotalTTC = (float) $totalFromGetPost;
				} else {
					$objectTotalTTC = 0;
				}
			}
			$arrayoutstandingbills = $soc->getOutstandingBills($mode);
			$outstandingbill = $arrayoutstandingbills['opened'];
			if ($outstandingbill > 0 &&
				(isset($soc->outstanding_limit) || !empty($outstandingLimit)) &&
				$outstandingbill + $objectTotalTTC > $outstandingLimit) {
				if ($validateInvoice) {
					$objectTotalTTC = $object->total_ttc;
				}
				$mesg = $langs->trans('BlockedOutstanding', price($outstandingLimit), price($objectTotalTTC), price($outstandingbill));
				if ($conf->global->BLOCKOUTSTANDING_LEVEL == '1' && empty($user->rights->blockoutstanding->ignore)) {
					if ($object->element == 'ticket') $mesg = $langs->trans('BlockedOutstandingErrorForTicket');
					$this->errors[] = $mesg;
					if (in_array($actionFromGetPost, array('confirm_closeas', 'confirm_shipped'))) { // when workflow module is used
						setEventMessage($mesg, 'errors');
					}
					return -1;
				} else {
					if ($object->element == 'ticket') $mesg = $langs->trans('BlockedOutstandingWarningForTicket');
					setEventMessage($mesg, 'warnings');
					return 1;
				}
			}
		}
		return 0;
	}
}
