<?php
/* Copyright (C) 2004-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2005-2012 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2010-2015 Juanjo Menent        <jmenent@2byte.es>
 * Copyright (C) 2010-2014 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2014-2016 Ferran Marcet        <fmarcet@2byte.es>
 * Copyright (C) 2018      Nicolas ZABOURI      <info@inovea-conseil.com>
 * Copyright (C) 2019      JC Prieto			<jcprieto@virtual20.com><prietojc@gmail.com>
 * Copyright (C) 2024      MDW					<mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024      Frédéric France      <frederic.france@free.fr>
 *
 * 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/compta/prelevement/class/bonprelevement.class.php
 * \ingroup    prelevement
 * \brief      File of withdrawal receipts class
 */

require_once DOL_DOCUMENT_ROOT . '/core/class/commonobject.class.php';
require_once DOL_DOCUMENT_ROOT . '/core/lib/bank.lib.php';
require_once DOL_DOCUMENT_ROOT . '/compta/bank/class/account.class.php';
require_once DOL_DOCUMENT_ROOT . '/compta/facture/class/facture.class.php';
require_once DOL_DOCUMENT_ROOT . '/compta/paiement/class/paiement.class.php';
require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.facture.class.php';
require_once DOL_DOCUMENT_ROOT . '/fourn/class/paiementfourn.class.php';
require_once DOL_DOCUMENT_ROOT . '/salaries/class/salary.class.php';
require_once DOL_DOCUMENT_ROOT . '/salaries/class/paymentsalary.class.php';
require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php';
require_once DOL_DOCUMENT_ROOT . '/user/class/userbankaccount.class.php';


/**
 *	Class to manage withdrawal receipts
 */
class BonPrelevement extends CommonObject
{
	/**
	 * @var string ID to identify managed object
	 */
	public $element = 'widthdraw';

	/**
	 * @var string Name of table without prefix where object is stored
	 */
	public $table_element = 'prelevement_bons';

	/**
	 * @var string String with name of icon for myobject. Must be the part after the 'object_' into object_myobject.png
	 */
	public $picto = 'payment';

	/**
	 * @var int|string
	 */
	public $date_echeance;
	/**
	 * @var string
	 */
	public $raison_sociale;
	/**
	 * @var string
	 */
	public $reference_remise;
	/**
	 * @var string
	 */
	public $emetteur_code_guichet;
	/**
	 * @var string
	 */
	public $emetteur_numero_compte;
	/**
	 * @var string
	 */
	public $emetteur_code_banque;
	/**
	 * @var string
	 */
	public $emetteur_number_key;
	/**
	 * @var bool
	 */
	public $sepa_xml_pti_in_ctti;

	/**
	 * @var string
	 */
	public $emetteur_iban;
	/**
	 * @var string
	 */
	public $emetteur_bic;
	/**
	 * @var string
	 */
	public $emetteur_ics;

	/**
	 * @var int
	 */
	public $user_trans;
	/**
	 * @var int
	 */
	public $user_credit;

	/**
	 * @var float|int|string
	 */
	public $total;
	/**
	 * @var int
	 */
	public $fetched;
	public $labelStatus = array();

	public $factures = array();

	/**
	 * @var array<int,string>
	 */
	public $methodes_trans = array();

	public $invoice_in_error = array();
	public $thirdparty_in_error = array();

	/**
	 * @var resource	Handler of the file for direct debit or credit transfer order
	 */
	public $file;

	/**
	 * @var string filename
	 */
	public $filename;

	const STATUS_DRAFT = 0;
	const STATUS_TRANSFERED = 1;
	const STATUS_CREDITED = 2;		// STATUS_CREDITED and STATUS_DEBITED is same. Difference is in ->type
	const STATUS_DEBITED = 2;		// STATUS_CREDITED and STATUS_DEBITED is same. Difference is in ->type


	/**
	 *  'type' field format:
	 *  	'integer', 'integer:ObjectClass:PathToClass[:AddCreateButtonOrNot[:Filter[:Sortfield]]]',
	 *  	'select' (list of values are in 'options'),
	 *  	'sellist:TableName:LabelFieldName[:KeyFieldName[:KeyFieldParent[:Filter[:Sortfield]]]]',
	 *  	'chkbxlst:...',
	 *  	'varchar(x)',
	 *  	'text', 'text:none', 'html',
	 *   	'double(24,8)', 'real', 'price',
	 *  	'date', 'datetime', 'timestamp', 'duration',
	 *  	'boolean', 'checkbox', 'radio', 'array',
	 *  	'mail', 'phone', 'url', 'password', 'ip'
	 *		Note: Filter must be a Nube filter syntax string. Example: "(t.ref:like:'SO-%') or (t.date_creation:<:'20160101') or (t.status:!=:0) or (t.nature:is:NULL)"
	 *  'label' the translation key.
	 *  'picto' is code of a picto to show before value in forms
	 *  'enabled' is a condition when the field must be managed (Example: 1 or '$conf->global->MY_SETUP_PARAM' or 'isModEnabled("multicurrency")' ...)
	 *  'position' is the sort order of field.
	 *  'notnull' is set to 1 if not null in database. Set to -1 if we must set data to null if empty ('' or 0).
	 *  'visible' says if field is visible in list (Examples: 0=Not visible, 1=Visible on list and create/update/view forms, 2=Visible on list only, 3=Visible on create/update/view form only (not list), 4=Visible on list and update/view form only (not create). 5=Visible on list and view only (not create/not update). Using a negative value means field is not shown by default on list but can be selected for viewing)
	 *  'noteditable' says if field is not editable (1 or 0)
	 *  'alwayseditable' says if field can be modified also when status is not draft ('1' or '0')
	 *  'default' is a default value for creation (can still be overwrote by the Setup of Default Values if field is editable in creation form). Note: If default is set to '(PROV)' and field is 'ref', the default value will be set to '(PROVid)' where id is rowid when a new record is created.
	 *  'index' if we want an index in database.
	 *  'foreignkey'=>'tablename.field' if the field is a foreign key (it is recommended to name the field fk_...).
	 *  'searchall' is 1 if we want to search in this field when making a search from the quick search button.
	 *  'isameasure' must be set to 1 or 2 if field can be used for measure. Field type must be summable like integer or double(24,8). Use 1 in most cases, or 2 if you don't want to see the column total into list (for example for percentage)
	 *  'css' and 'cssview' and 'csslist' is the CSS style to use on field. 'css' is used in creation and update. 'cssview' is used in view mode. 'csslist' is used for columns in lists. For example: 'css'=>'minwidth300 maxwidth500 widthcentpercentminusx', 'cssview'=>'wordbreak', 'csslist'=>'tdoverflowmax200'
	 *  'help' is a 'TranslationString' to use to show a tooltip on field. You can also use 'TranslationString:keyfortooltiponlick' for a tooltip on click.
	 *  'showoncombobox' if value of the field must be visible into the label of the combobox that list record
	 *  'disabled' is 1 if we want to have the field locked by a 'disabled' attribute. In most cases, this is never set into the definition of $fields into class, but is set dynamically by some part of code.
	 *  'arrayofkeyval' to set a list of values if type is a list of predefined values. For example: array("0"=>"Draft","1"=>"Active","-1"=>"Cancel"). Note that type can be 'integer' or 'varchar'
	 *  'autofocusoncreate' to have field having the focus on a create form. Only 1 field should have this property set to 1.
	 *  'comment' is not used. You can store here any text of your choice. It is not used by application.
	 *	'validate' is 1 if need to validate with $this->validateField()
	 *  'copytoclipboard' is 1 or 2 to allow to add a picto to copy value into clipboard (1=picto after label, 2=picto after value)
	 *
	 *  Note: To have value dynamic, you can set value to 0 in definition and edit the value on the fly into the constructor.
	 */

	// BEGIN MODULEBUILDER PROPERTIES
	/**
	 * @var array<string,array{type:string,label:string,enabled:int<0,2>|string,position:int,notnull?:int,visible:int<-5,5>|string,alwayseditable?:int<0,1>,noteditable?:int<0,1>,default?:string,index?:int,foreignkey?:string,searchall?:int<0,1>,isameasure?:int<0,1>,css?:string,csslist?:string,help?:string,showoncombobox?:int<0,4>,disabled?:int<0,1>,arrayofkeyval?:array<int|string,string>,autofocusoncreate?:int<0,1>,comment?:string,copytoclipboard?:int<1,2>,validate?:int<0,1>,showonheader?:int<0,1>}>  Array with all fields and their property. Do not use it as a static var. It may be modified by constructor.
	 */
	public $fields = array(
		'rowid' => array('type' => 'integer', 'label' => 'TechnicalID', 'enabled' => 1, 'position' => 10, 'notnull' => 1, 'visible' => 0,),
		'ref' => array('type' => 'varchar(12)', 'label' => 'Ref', 'enabled' => 1, 'position' => 15, 'notnull' => 0, 'visible' => -1, 'csslist' => 'tdoverflowmax150', 'showoncombobox' => 1,),
		'datec' => array('type' => 'datetime', 'label' => 'DateCreation', 'enabled' => 1, 'position' => 25, 'notnull' => 0, 'visible' => -1,),
		'amount' => array('type' => 'double(24,8)', 'label' => 'Amount', 'enabled' => 1, 'position' => 30, 'notnull' => 0, 'visible' => -1,),
		'statut' => array('type' => 'smallint(6)', 'label' => 'Statut', 'enabled' => 1, 'position' => 500, 'notnull' => 0, 'visible' => -1, 'arrayofkeyval' => array(0 => 'Wait', 1 => 'Transfered', 2 => 'Credited')),
		'credite' => array('type' => 'smallint(6)', 'label' => 'Credite', 'enabled' => 1, 'position' => 40, 'notnull' => 0, 'visible' => -1,),
		'note' => array('type' => 'text', 'label' => 'Note', 'enabled' => 1, 'position' => 45, 'notnull' => 0, 'visible' => -1,),
		'date_trans' => array('type' => 'datetime', 'label' => 'Datetrans', 'enabled' => 1, 'position' => 50, 'notnull' => 0, 'visible' => -1,),
		'method_trans' => array('type' => 'smallint(6)', 'label' => 'Methodtrans', 'enabled' => 1, 'position' => 55, 'notnull' => 0, 'visible' => -1,),
		'fk_user_trans' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'Fkusertrans', 'enabled' => 1, 'position' => 60, 'notnull' => 0, 'visible' => -1, 'css' => 'maxwidth500 widthcentpercentminusxx', 'csslist' => 'tdoverflowmax150',),
		'date_credit' => array('type' => 'datetime', 'label' => 'Datecredit', 'enabled' => 1, 'position' => 65, 'notnull' => 0, 'visible' => -1,),
		'fk_user_credit' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'Fkusercredit', 'enabled' => 1, 'position' => 70, 'notnull' => 0, 'visible' => -1, 'css' => 'maxwidth500 widthcentpercentminusxx', 'csslist' => 'tdoverflowmax150',),
		'type' => array('type' => 'varchar(16)', 'label' => 'Type', 'enabled' => 1, 'position' => 75, 'notnull' => 0, 'visible' => -1,),
		'fk_bank_account' => array('type' => 'integer', 'label' => 'Fkbankaccount', 'enabled' => 1, 'position' => 80, 'notnull' => 0, 'visible' => -1, 'css' => 'maxwidth500 widthcentpercentminusxx',),
	);
	/**
	 * @var int
	 */
	public $rowid;
	/**
	 * @var string
	 */
	public $ref;
	/**
	 * @var int|string
	 */
	public $datec;
	/**
	 * @var float
	 */
	public $amount;

	/**
	 * @var int	Status
	 * @deprecated Use $status
	 */
	public $statut;
	/**
	 * @var int	Status
	 */
	public $status;

	/**
	 * @var int
	 */
	public $credite;
	/**
	 * @var string
	 */
	public $note;
	/**
	 * @var int|string
	 */
	public $date_trans;
	/**
	 * @var int Current transport method, index to $methodes_trans
	 */
	public $method_trans;
	/**
	 * @var int
	 */
	public $fk_user_trans;
	/**
	 * @var int|string
	 */
	public $date_credit;
	/**
	 * @var int
	 */
	public $fk_user_credit;
	/**
	 * @var string
	 */
	public $type;
	/**
	 * @var int
	 */
	public $fk_bank_account;
	// END MODULEBUILDER PROPERTIES



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

		$this->filename = '';

		$this->date_echeance = dol_now();
		$this->raison_sociale = "";
		$this->reference_remise = "";

		$this->emetteur_code_guichet = "";
		$this->emetteur_numero_compte = "";
		$this->emetteur_code_banque = "";
		$this->emetteur_number_key = "";
		$this->sepa_xml_pti_in_ctti = false;

		$this->emetteur_iban = "";
		$this->emetteur_bic = "";
		$this->emetteur_ics = "";

		$this->factures = array();

		$this->methodes_trans = array(0 => 'Internet', 2 => 'Email', 3 => 'Api');

		$this->fetched = 0;
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 * Add invoice to withdrawal
	 *
	 * @param	int		$invoice_id 	ID of invoice to add or ID of salary to add
	 * @param	int		$client_id  	id invoice customer
	 * @param	string	$client_nom 	customer name
	 * @param	int		$amount 		amount of invoice
	 * @param	string	$code_banque 	code of bank withdrawal
	 * @param	string	$code_guichet 	code of bank's office
	 * @param	string	$number bank 	account number
	 * @param	string	$number_key 	number key of account number
	 * @param	string	$type			'debit-order' or 'bank-transfer'
	 * @param   string  $sourcetype     'salary' for salary, '' for invoices
	 * @return	int						>0 if OK, <0 if KO
	 */
	public function AddFacture($invoice_id, $client_id, $client_nom, $amount, $code_banque, $code_guichet, $number, $number_key, $type = 'debit-order', $sourcetype = '')
	{
		// phpcs:enable
		$result = 0;
		$line_id = 0;

		// Add lines into prelevement_lignes
		$result = $this->addline($line_id, $client_id, $client_nom, $amount, $code_banque, $code_guichet, $number, $number_key, $sourcetype);


		if ($result == 0) {
			if ($line_id > 0) {
				$sql = "INSERT INTO " . MAIN_DB_PREFIX . "prelevement (";
				if ($type != 'bank-transfer') {
					$sql .= "fk_facture";
				} else {
					if ($sourcetype == 'salary') {
						$sql .= "fk_salary";
					} else {
						$sql .= "fk_facture_fourn";
					}
				}
				$sql .= ",fk_prelevement_lignes";
				$sql .= ") VALUES (";
				$sql .= ((int) $invoice_id);
				$sql .= ", " . ((int) $line_id);
				$sql .= ")";

				if ($this->db->query($sql)) {
					$result = 0;
				} else {
					$result = -1;
					$this->errors[] = get_class($this) . "::AddFacture " . $this->db->lasterror;
					dol_syslog(get_class($this) . "::AddFacture Error $result");
				}
			} else {
				$result = -2;
				$this->errors[] = get_class($this) . "::AddFacture linedid Empty";
				dol_syslog(get_class($this) . "::AddFacture Error $result");
			}
		} else {
			$result = -3;
			dol_syslog(get_class($this) . "::AddFacture Error $result");
		}

		return $result;
	}

	/**
	 *	Add line to withdrawal
	 *
	 *	@param	int		$line_id 		ID of line added (returned parameter)
	 *	@param	int		$client_id  	ID of thirdparty for invoices, ID of user for salaries
	 *	@param	string	$client_nom 	customer name
	 *	@param	int		$amount 		amount of invoice
	 *	@param	string	$code_banque 	code of bank withdrawal
	 *	@param	string	$code_guichet 	code of bank's office
	 *	@param	string	$number 		bank account number
	 *	@param  string	$number_key 	number key of account number
	 *  @param  string  $sourcetype     'salary' for salary, '' for invoices
	 *	@return	int						>0 if OK, <0 if KO
	 */
	public function addline(&$line_id, $client_id, $client_nom, $amount, $code_banque, $code_guichet, $number, $number_key, $sourcetype = '')
	{
		$result = -1;
		$concat = 0;	// ??? what is this for. Seems not used.

		if ($concat == 1) {
			/*
			 * We aggregate the lines
			 */
			$sql = "SELECT rowid";
			$sql .= " FROM  " . MAIN_DB_PREFIX . "prelevement_lignes";
			$sql .= " WHERE fk_prelevement_bons = " . ((int) $this->id);
			if ($sourcetype == 'salary') {
				$sql .= " AND fk_soc = " . ((int) $client_id);
			} else {
				$sql .= " AND fk_user = " . ((int) $client_id);
			}
			$sql .= " AND code_banque = '" . $this->db->escape($code_banque) . "'";
			$sql .= " AND code_guichet = '" . $this->db->escape($code_guichet) . "'";
			$sql .= " AND number = '" . $this->db->escape($number) . "'";

			$resql = $this->db->query($sql);
			if ($resql) {
				$num = $this->db->num_rows($resql);
			} else {
				$result = -1;
			}
		} else {
			/*
			 * No aggregate
			 */
			$sql = "INSERT INTO " . MAIN_DB_PREFIX . "prelevement_lignes (";
			$sql .= "fk_prelevement_bons";
			$sql .= ", fk_soc";
			$sql .= ", client_nom";
			$sql .= ", amount";
			$sql .= ", code_banque";
			$sql .= ", code_guichet";
			$sql .= ", number";
			$sql .= ", cle_rib";
			$sql .= ($sourcetype == 'salary' ? ", fk_user" : "");
			$sql .= ") VALUES (";
			$sql .= $this->id;
			$sql .= ", " . (($sourcetype != 'salary') ? ((int) $client_id) : "0");	// fk_soc can't be null
			$sql .= ", '" . $this->db->escape($client_nom) . "'";
			$sql .= ", " . ((float) price2num($amount));
			$sql .= ", '" . $this->db->escape($code_banque) . "'";
			$sql .= ", '" . $this->db->escape($code_guichet) . "'";
			$sql .= ", '" . $this->db->escape($number) . "'";
			$sql .= ", '" . $this->db->escape($number_key) . "'";
			$sql .= (($sourcetype == 'salary') ? ", " . ((int) $client_id) : '');
			$sql .= ")";
			if ($this->db->query($sql)) {
				$line_id = $this->db->last_insert_id(MAIN_DB_PREFIX . "prelevement_lignes");
				$result = 0;
			} else {
				$this->errors[] = get_class($this) . "::addline Error -2 " . $this->db->lasterror;
				dol_syslog(get_class($this) . "::addline Error -2");
				$result = -2;
			}
		}

		return $result;
	}

	/**
	 *	Return error string
	 *
	 *  @param	int		$error 		 Id of error
	 *	@return	string               Error string
	 */
	public function getErrorString($error)
	{
		global $langs;

		$errors = array();

		$errors[1027] = $langs->trans("DateInvalid");

		return $errors[abs($error)];
	}

	/**
	 *	Get object and lines from database
	 *
	 *	@param	int		$rowid		Id of object to load
	 *  @param	string	$ref		Ref of direct debit
	 *	@return	int					>0 if OK, 0=Not found, <0 if KO
	 */
	public function fetch($rowid, $ref = '')
	{
		$sql = "SELECT p.rowid, p.ref, p.amount, p.note";
		$sql .= ", p.datec as dc";
		$sql .= ", p.date_trans as date_trans";
		$sql .= ", p.method_trans, p.fk_user_trans";
		$sql .= ", p.date_credit as date_credit";
		$sql .= ", p.fk_user_credit";
		$sql .= ", p.type";
		$sql .= ", p.fk_bank_account";
		$sql .= ", p.statut as status";
		$sql .= " FROM " . MAIN_DB_PREFIX . "prelevement_bons as p";
		$sql .= " WHERE p.entity IN (" . getEntity('invoice') . ")";
		if ($rowid > 0) {
			$sql .= " AND p.rowid = " . ((int) $rowid);
		} else {
			$sql .= " AND p.ref = '" . $this->db->escape($ref) . "'";
		}

		dol_syslog(get_class($this) . "::fetch", LOG_DEBUG);
		$result = $this->db->query($sql);
		if ($result) {
			if ($this->db->num_rows($result)) {
				$obj = $this->db->fetch_object($result);

				$this->id             = $obj->rowid;
				$this->ref            = $obj->ref;
				$this->amount         = $obj->amount;
				$this->note           = $obj->note;
				$this->datec          = $this->db->jdate($obj->dc);

				$this->date_trans     = $this->db->jdate($obj->date_trans);
				$this->method_trans   = $obj->method_trans;
				$this->user_trans     = $obj->fk_user_trans;

				$this->date_credit    = $this->db->jdate($obj->date_credit);
				$this->user_credit    = $obj->fk_user_credit;

				$this->type           = $obj->type;
				$this->fk_bank_account = $obj->fk_bank_account;

				$this->status         = $obj->status;
				if (empty($this->status)) {		// Value is sometimes null in database
					$this->status = 0;
				}
				$this->statut         = $this->status; // For backward compatibility

				$this->fetched = 1;

				return 1;
			} else {
				dol_syslog(get_class($this) . "::Fetch no record found");
				return 0;
			}
		} else {
			return -1;
		}
	}

	/**
	 * Update object into database
	 *
	 * @param  User $user      User that modifies
	 * @param  int 	$notrigger 0=launch triggers after, 1=disable triggers
	 * @return int             Return integer <0 if KO, >0 if OK
	 */
	public function update(User $user, $notrigger = 0)
	{
		return $this->updateCommon($user, $notrigger);
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Set direct debit or credit transfer order to "paid" status.
	 *  Then create the payment for each invoice or salary of the prelemevement_bon.
	 *
	 *	@param	User	$user			Id of user
	 *	@param 	int		$date			date of action
	 *  @param  string  $type        	'salary' for type=salary
	 *	@return	int						>0 if OK, <0 if KO
	 */
	public function set_infocredit($user, $date, $type = '')
	{
		// phpcs:enable
		global $conf, $langs;

		$error = 0;

		if ($this->fetched == 1) {
			if ($date < $this->date_trans) {
				$langs->load("errors");
				$this->error = $langs->trans('ErrorDateOfMovementLowerThanDateOfFileTransmission');
				dol_syslog("bon-prelevment::set_infocredit 1027 " . $this->error);
				return -1027;
			}

			$this->db->begin();

			$sql = " UPDATE " . MAIN_DB_PREFIX . "prelevement_bons";
			$sql .= " SET fk_user_credit = " . ((int) $user->id);
			$sql .= ", statut = " . self::STATUS_CREDITED;
			$sql .= ", date_credit = '" . $this->db->idate($date) . "'";
			$sql .= " WHERE rowid = " . ((int) $this->id);
			$sql .= " AND entity = " . ((int) $conf->entity);
			$sql .= " AND statut = " . self::STATUS_TRANSFERED;

			$resql = $this->db->query($sql);
			if ($resql) {
				$langs->load('withdrawals');
				$subject = $langs->trans("InfoCreditSubject", $this->ref);
				$message = $langs->trans("InfoCreditMessage", $this->ref, dol_print_date($date, 'dayhour'));

				// Add payment of withdrawal into bank
				$fk_bank_account = $this->fk_bank_account;
				if (empty($fk_bank_account)) {
					$fk_bank_account = ($this->type == 'bank-transfer' ? getDolGlobalInt('PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') : getDolGlobalInt('PRELEVEMENT_ID_BANKACCOUNT'));
				}

				$amounts = array();
				$amountsperthirdparty = array();

				$facs = $this->getListInvoices(1, $type);
				if ($this->error) {
					$error++;
				}

				// Loop on each invoice or salary.
				// $facs should be array(0=>id, 1=>amount requested)
				$num = count($facs);
				for ($i = 0; $i < $num; $i++) {
					if ($this->type == 'bank-transfer') {
						if ($type == 'salary') {
							$fac = new Salary($this->db);
						} else {
							$fac = new FactureFournisseur($this->db);
						}
					} else {
						$fac = new Facture($this->db);
					}

					$result = $fac->fetch($facs[$i][0]);

					$amounts[$fac->id] = $facs[$i][1];
					if ($this->type == 'bank-transfer') {
						if ($type == 'salary') {
							$amountsperthirdparty[$fac->fk_user][$fac->id] = $facs[$i][1];
						} else {
							$amountsperthirdparty[$fac->socid][$fac->id] = $facs[$i][1];
						}
					} else {
						$amountsperthirdparty[$fac->socid][$fac->id] = $facs[$i][1];
					}

					$totalpaid = $fac->getSommePaiement();
					$totalcreditnotes = 0;
					if (method_exists($fac, 'getSumCreditNotesUsed')) {
						$totalcreditnotes = $fac->getSumCreditNotesUsed();
					}
					$totaldeposits = 0;
					if (method_exists($fac, 'getSumDepositsUsed')) {
						$totaldeposits = $fac->getSumDepositsUsed();
					}
					$alreadypayed = $totalpaid + $totalcreditnotes + $totaldeposits;

					// Set the main document to pay with status Paid.
					// @TODO Move this after creation of payments done after
					$amountofdocument = $fac->total_ttc;
					if ($type == 'salary') {
						$amountofdocument = $fac->amount;
					}
					if (price2num($alreadypayed + $facs[$i][1], 'MT') == price2num($amountofdocument, 'MT')) {
						$result = $fac->setPaid($user);
						if ($result < 0) {
							$this->error = $fac->error;
							$this->errors = $fac->errors;
						}
					}
				}

				// Make one payment per customer or employee
				foreach ($amountsperthirdparty as $thirdpartyid => $cursoramounts) {
					if ($this->type == 'bank-transfer') {
						if ($type == 'salary') {
							$paiement = new PaymentSalary($this->db);
						} else {
							$paiement = new PaiementFourn($this->db);
						}
					} else {
						$paiement = new Paiement($this->db);
					}
					$paiement->datepaye = $date;
					$paiement->amounts = $cursoramounts; // Array with detail of dispatching of payments for each invoice

					if ($this->type == 'bank-transfer') {
						if ($type == 'salary') {
							$paiement->datep = $date;

							$paiement->paiementid = 2;
							$paiement->fk_typepayment = 2;
							$paiement->paiementcode = 'VIR';
						} else {
							$paiement->paiementid = 2;
							$paiement->paiementcode = 'VIR';
						}
					} else {
						$paiement->paiementid = 3;
						$paiement->paiementcode = 'PRE';
					}

					$paiement->num_payment = $this->ref; // Set ref of direct debit note
					$paiement->id_prelevement = $this->id;

					$result = $paiement->create($user); // This use ->paiementid, that is ID of payment mode

					if ($result < 0) {
						$error++;
						$this->error = $paiement->error;
						$this->errors = $paiement->errors;
						dol_syslog(get_class($this) . "::set_infocredit AddPayment Error " . $this->error);
					} else {
						if ($this->type == 'bank-transfer') {
							if ($type == 'salary') {
								$modeforaddpayment = 'payment_salary';
								$labelforaddpayment = '(SalaryPayment)';
								$addbankurl = 'credit-transfer';
							} else {
								$modeforaddpayment = 'payment_supplier';
								$labelforaddpayment = '(SupplierInvoicePayment)';
								$addbankurl = 'credit-transfer';
							}
						} else {
							$modeforaddpayment = 'payment';
							$labelforaddpayment = '(CustomerInvoicePayment)';
							$addbankurl = 'direct-debit';	// = 'directdebit'
						}


						if ($paiement instanceof PaymentSalary) {
							// Only 6 arguments for PaymentSalary
							$result = $paiement->addPaymentToBank($user, $modeforaddpayment, $labelforaddpayment, $fk_bank_account, '', '');
						} else {
							$result = $paiement->addPaymentToBank($user, $modeforaddpayment, $labelforaddpayment, $fk_bank_account, '', '', 0, '', $addbankurl);
						}

						if ($result < 0) {
							$error++;
							$this->error = $paiement->error;
							$this->errors = $paiement->errors;
							dol_syslog(get_class($this) . "::set_infocredit AddPaymentToBank Error " . $this->error);
						}
					}
				}

				// Update withdrawal line
				// TODO: Translate to ligneprelevement.class.php
				if (!$error) {
					$sql = " UPDATE " . MAIN_DB_PREFIX . "prelevement_lignes";
					$sql .= " SET statut = 2";
					$sql .= " WHERE fk_prelevement_bons = " . ((int) $this->id);

					if (!$this->db->query($sql)) {
						dol_syslog(get_class($this) . "::set_infocredit Update lines Error");
						$error++;
					}
				}
			} else {
				$this->error = $this->db->lasterror();
				dol_syslog(get_class($this) . "::set_infocredit Update Bons Error");
				$error++;
			}

			// End of procedure
			if ($error == 0) {
				$this->date_credit = $date;		// date credit or debit
				$this->statut = self::STATUS_CREDITED;
				$this->status = self::STATUS_CREDITED;

				$this->db->commit();
				return 0;
			} else {
				$this->db->rollback();
				return -1;
			}
		} else {
			return -1026;
		}
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Set withdrawal to transmitted status
	 *
	 *	@param	User		$user		Id of user
	 *	@param 	int			$date		Date of action
	 *	@param	int			$method		Method of transmission to bank (0=Internet, 1=Api...)
	 *	@return	int						>0 if OK, <0 if KO
	 */
	public function set_infotrans($user, $date, $method)
	{
		// phpcs:enable
		global $conf, $langs;

		$error = 0;

		dol_syslog(get_class($this) . "::set_infotrans Start", LOG_INFO);

		if ($this->db->begin()) {
			$sql = "UPDATE " . MAIN_DB_PREFIX . "prelevement_bons ";
			$sql .= " SET fk_user_trans = " . $user->id;
			$sql .= " , date_trans = '" . $this->db->idate($date) . "'";
			$sql .= " , method_trans = " . ((int) $method);
			$sql .= " , statut = " . self::STATUS_TRANSFERED;
			$sql .= " WHERE rowid = " . ((int) $this->id);
			$sql .= " AND entity = " . ((int) $conf->entity);
			$sql .= " AND statut = " . self::STATUS_DRAFT;

			if ($this->db->query($sql)) {
				$this->method_trans = $method;
				$langs->load('withdrawals');
				$subject = $langs->trans("InfoTransSubject", $this->ref);
				$message = $langs->trans("InfoTransMessage", $this->ref, dolGetFirstLastname($user->firstname, $user->lastname));
				$message .= $langs->trans("InfoTransData", price($this->amount), $this->methodes_trans[$this->method_trans], dol_print_date($date, 'day'));

				// TODO Call trigger to create a notification using notification module
			} else {
				$error++;
			}

			if ($error == 0) {
				$this->date_trans = $date;
				$this->statut = self::STATUS_TRANSFERED;
				$this->status = self::STATUS_TRANSFERED;
				$this->user_trans = $user->id;

				$this->db->commit();

				return 0;
			} else {
				$this->db->rollback();
				dol_syslog(get_class($this) . "::set_infotrans ROLLBACK", LOG_ERR);

				return -1;
			}
		} else {
			dol_syslog(get_class($this) . "::set_infotrans Ouverture transaction SQL impossible", LOG_CRIT);
			return -2;
		}
	}

	/**
	 *	Get invoice or salary list (with amount or not)
	 *
	 *  @param	int<0,1>	$amounts 		If you want to get the amount of the order for each invoice or salary
	 *  @param	'bank-transfer'|'salary'|'' $type	'salary' for type=salary (default = supplier invoice
	 *	@return	array<array{int,float}>|int[]	Array(Id of invoices/salary, Amount to pay)
	 *	@phpstan-return	($amounts is 0 ? int[] : array<array{int,float}>)
	 */
	private function getListInvoices($amounts = 0, $type = '')
	{
		global $conf;

		$arr = array();

		dol_syslog(get_class($this) . "::getListInvoices");

		// Returns all invoices presented within same order
		$sql = "SELECT ";
		if ($this->type == 'bank-transfer') {
			if ($type == 'salary') {
				$sql .= " p.fk_salary";
			} else {
				$sql .= " p.fk_facture_fourn";
			}
		} else {
			$sql .= " p.fk_facture";
		}
		if ($amounts) {
			$sql .= ", SUM(pl.amount)";
		}
		$sql .= " FROM " . MAIN_DB_PREFIX . "prelevement_bons as pb,";
		$sql .= " " . MAIN_DB_PREFIX . "prelevement_lignes as pl,";
		$sql .= " " . MAIN_DB_PREFIX . "prelevement as p";
		$sql .= " WHERE p.fk_prelevement_lignes = pl.rowid";
		$sql .= " AND pl.fk_prelevement_bons = pb.rowid";
		$sql .= " AND pb.rowid = " . ((int) $this->id);
		$sql .= " AND pb.entity = " . ((int) $conf->entity);
		if ($amounts) {
			if ($this->type == 'bank-transfer') {
				if ($type == 'salary') {
					$sql .= " GROUP BY p.fk_salary";
				} else {
					$sql .= " GROUP BY p.fk_facture_fourn";
				}
			} else {
				$sql .= " GROUP BY p.fk_facture";
			}
		}

		$resql = $this->db->query($sql);
		if ($resql) {
			$num = $this->db->num_rows($resql);

			if ($num) {
				$i = 0;
				while ($i < $num) {
					$row = $this->db->fetch_row($resql);
					if (!$amounts) {
						$arr[$i] = $row[0];
					} else {
						$arr[$i] = array(
							$row[0],
							$row[1]
						);
					}
					$i++;
				}
			}
			$this->db->free($resql);
		} else {
			$this->error = $this->db->lasterror();
		}

		return $arr;
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Returns amount waiting for direct debit payment or credit transfer payment
	 *
	 *	@param	string	$mode		'direct-debit' or 'bank-transfer'
	 *  @param  string  $type      	for type=salary
	 *	@return	float 	 			Return integer <O if KO, Total amount
	 */
	public function SommeAPrelever($mode = 'direct-debit', $type = '')
	{
		// phpcs:enable
		$sql = "SELECT sum(pd.amount) as nb";
		if ($type !== 'salary') {
			if ($mode != 'bank-transfer') {
				$sql .= " FROM " . MAIN_DB_PREFIX . "facture as f,";
			} else {
				$sql .= " FROM " . MAIN_DB_PREFIX . "facture_fourn as f,";
			}
		} else {
			$sql .= " FROM " . MAIN_DB_PREFIX . "salary as s,";
		}
		$sql .= " " . MAIN_DB_PREFIX . "prelevement_demande as pd";
		$sql .= ($type !== 'salary' ? " WHERE f.entity IN (" . getEntity('invoice') . ")" : " WHERE s.entity IN (" . getEntity('salary') . ")");
		if (!getDolGlobalString('WITHDRAWAL_ALLOW_ANY_INVOICE_STATUS')) {
			$sql .= ($type !== 'salary' ? " AND f.fk_statut = " . Facture::STATUS_VALIDATED : " AND s.paye = " . Salary::STATUS_UNPAID);
		}
		if ($type !== 'salary') {
			if ($mode != 'bank-transfer') {
				$sql .= " AND f.rowid = pd.fk_facture";
			} else {
				$sql .= " AND f.rowid = pd.fk_facture_fourn";
			}
		} else {
			$sql .= " AND s.rowid = pd.fk_salary";
		}
		$sql .= ($type !== 'salary' ? " AND f.paye = 0" : "");
		$sql .= " AND pd.traite = 0";
		$sql .= " AND pd.ext_payment_id IS NULL";
		$sql .= ($type !== 'salary' ? " AND f.total_ttc > 0" : "");

		$resql = $this->db->query($sql);
		if ($resql) {
			$obj = $this->db->fetch_object($resql);

			$this->db->free($resql);

			return $obj->nb;
		} else {
			$error = 1;
			dol_syslog(get_class($this) . "::SommeAPrelever Erreur -1");
			dol_syslog($this->db->error());

			return -1;
		}
	}

	/**
	 *	Get number of invoices waiting for payment
	 *
	 *	@param	'direct-debit'|'bank-transfer'	$mode	'direct-debit' or 'bank-transfer'
	 *  @param  string  $type        for salary invoice
	 *	@return	int					Return integer <O if KO, number of invoices if OK
	 */
	public function nbOfInvoiceToPay($mode = 'direct-debit', $type = '')
	{
		if ($type === 'salary') {
			return $this->NbFactureAPrelever($mode, 1);
		} else {
			return $this->NbFactureAPrelever($mode);
		}
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Get number of invoices to pay
	 *
	 *	@param	string	$type		'direct-debit' or 'bank-transfer'
	 *  @param  int     $forsalary  0= for facture & facture_supplier, 1=for salary
	 *	@return	int					Return integer <O if KO, number of invoices if OK
	 */
	public function NbFactureAPrelever($type = 'direct-debit', $forsalary = 0)
	{
		// phpcs:enable
		if ($forsalary == 1) {
			$sql = "SELECT count(s.rowid) as nb";
			$sql .= " FROM " . MAIN_DB_PREFIX . "salary as s";
		} else {
			$sql = "SELECT count(f.rowid) as nb";

			if ($type == 'bank-transfer') {
				$sql .= " FROM " . MAIN_DB_PREFIX . "facture_fourn as f";
			} else {
				$sql .= " FROM " . MAIN_DB_PREFIX . "facture as f";
			}
		}
		$sql .= ", " . MAIN_DB_PREFIX . "prelevement_demande as pd";
		if ($forsalary == 1) {
			$sql .= " WHERE s.entity IN (" . getEntity('invoice') . ")";
			if (!getDolGlobalString('WITHDRAWAL_ALLOW_ANY_INVOICE_STATUS')) {
				$sql .= " AND s.paye = 0";
			}
		} else {
			$sql .= " WHERE f.entity IN (" . getEntity('invoice') . ")";
			if (!getDolGlobalString('WITHDRAWAL_ALLOW_ANY_INVOICE_STATUS')) {
				$sql .= " AND f.fk_statut = " . Facture::STATUS_VALIDATED;
			}
		}
		if ($forsalary == 1) {
			$sql .= " AND s.rowid = pd.fk_salary";
		} else {
			if ($type == 'bank-transfer') {
				$sql .= " AND f.rowid = pd.fk_facture_fourn";
			} else {
				$sql .= " AND f.rowid = pd.fk_facture";
			}
		}
		$sql .= " AND pd.traite = 0";
		$sql .= " AND pd.ext_payment_id IS NULL";
		if (!$forsalary == 1) {
			$sql .= " AND f.total_ttc > 0";
		} else {
			$sql .= " AND s.paye = 0";
		}

		dol_syslog(get_class($this) . "::NbFactureAPrelever");
		$resql = $this->db->query($sql);

		if ($resql) {
			$obj = $this->db->fetch_object($resql);
			$this->db->free($resql);

			return $obj->nb;
		} else {
			$this->error = get_class($this) . "::NbFactureAPrelever Erreur -1 sql=" . $this->db->error();
			return -1;
		}
	}


	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Create a BAN payment order:
	 *  - Select waiting requests from prelevement_demande (or use $did if provided)
	 *  - Check BAN values
	 *  - Then create a direct debit order or a credit transfer order
	 *  - Link the order with the prelevement_demande lines
	 *  TODO delete params banque and agence when not necessary
	 *
	 *	@param 	int		$banque				dolibarr mysoc bank
	 *	@param	int		$agence				dolibarr mysoc bank office (guichet)
	 *	@param	string	$mode				real=do action, simu=test only
	 *  @param	string	$format				FRST, RCUR or ALL
	 *  @param  int  	$executiondate		Date to execute the transfer
	 *  @param	int	    $notrigger			Disable triggers
	 *  @param	string	$type				'direct-debit' or 'bank-transfer'
	 *  @param	int		$did				ID of an existing payment request. If $did is defined, we use the existing payment request.
	 *  @param	int		$fk_bank_account	Bank account ID the receipt is generated for. Will use the ID into the setup of module Direct Debit or Credit Transfer if 0.
	 *  @param	string	$sourcetype			'invoice' or 'salary'
	 *	@return	int							Return integer <0 if KO, No of invoice included into file if OK
	 */
	public function create($banque = 0, $agence = 0, $mode = 'real', $format = 'ALL', $executiondate = 0, $notrigger = 0, $type = 'direct-debit', $did = 0, $fk_bank_account = 0, $sourcetype = 'invoice')
	{
		// phpcs:enable
		global $conf, $langs, $user;

		dol_syslog(__METHOD__ . " Bank=".$banque." Office=".$agence." mode=".$mode." format=".$format." type=".$type." did=".$did." fk_bank_account=".$fk_bank_account." sourcetype=".$sourcetype, LOG_DEBUG);

		require_once DOL_DOCUMENT_ROOT . "/compta/facture/class/facture.class.php";
		require_once DOL_DOCUMENT_ROOT . "/societe/class/societe.class.php";

		// Check params
		if ($type != 'bank-transfer') {
			if (empty($format)) {
				$this->error = 'ErrorBadParametersForDirectDebitFileCreate';
				return -1;
			}
		}

		// Clean params
		if (empty($fk_bank_account)) {
			$fk_bank_account = ($type == 'bank-transfer' ? getDolGlobalInt('PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') : getDolGlobalInt('PRELEVEMENT_ID_BANKACCOUNT'));
		}

		$error = 0;
		// Pre-store some values into variables to simplify following sql requests
		if ($sourcetype != 'salary') {
			$entities = $type != 'bank-transfer' ? getEntity('invoice') : getEntity('supplier_invoice');
			$sqlTable = $type != 'bank-transfer' ? "facture" : "facture_fourn";
			$socOrUser = 'fk_soc';
			$societeOrUser = 'societe';
		} else {
			$entities = getEntity('salary');
			$sqlTable = 'salary';
			$socOrUser = 'fk_user';
			$societeOrUser = 'user';
		}

		$thirdpartyBANId = 0;

		// Check if there is an iban associated to the bank transfer request or if we take the default
		if ($did > 0) {
			$sql = "SELECT pd.fk_societe_rib";
			$sql .= " FROM " . $this->db->prefix() . "prelevement_demande as pd";
			$sql .= " WHERE pd.rowid = ".((int) $did);

			$resql = $this->db->query($sql);

			if (!$resql) {
				$this->error = $this->db->lasterror();
				dol_syslog(__METHOD__ . " Read fk_societe_rib error " . $this->db->lasterror(), LOG_ERR);
				return -1;
			}

			$obj = $this->db->fetch_object($resql);
			if ($obj) {
				$thirdpartyBANId = $obj->fk_societe_rib;

				dol_syslog(__METHOD__ . " Found an BAN ID to use: ".$thirdpartyBANId);
			}

			$this->db->free($resql);
		}

		$datetimeprev = dol_now('gmt');
		// Choice of the date of the execution direct debit
		if (!empty($executiondate)) {
			$datetimeprev = $executiondate;
		}

		$month = dol_print_date($datetimeprev, "%m", 'gmt');
		$year = dol_print_date($datetimeprev, "%Y", 'gmt');

		$this->invoice_in_error = array();
		$this->thirdparty_in_error = array();

		// Read invoices
		$factures = array();
		$factures_prev = array();
		$factures_result = array();
		$factures_prev_id = array();
		$factures_errors = array();

		if (!$error) {
			dol_syslog(__METHOD__ . " Read invoices for did=" . ((int) $did), LOG_DEBUG);

			$sql = "SELECT f.rowid, pd.rowid as pfdrowid";
			$sql .= ", f.".$this->db->sanitize($socOrUser);		// fk_soc or fk_user
			$sql .= ", pd.code_banque, pd.code_guichet, pd.number, pd.cle_rib";
			$sql .= ", pd.amount";
			if ($sourcetype != 'salary') {
				$sql .= ", s.nom as name";
				$sql .= ", f.ref, sr.bic, sr.iban_prefix, sr.frstrecur";
			} else {
				$sql .= ", CONCAT(s.firstname,' ',s.lastname) as name";
				$sql .= ", f.ref, sr.bic, sr.iban_prefix, 'FRST' as frstrecur";
			}
			$sql .= " FROM " . $this->db->prefix() . $sqlTable . " as f";	// f is salary, facture or facture_fourn
			$sql .= " LEFT JOIN " . $this->db->prefix() . "prelevement_demande as pd ON f.rowid = pd.fk_".$this->db->sanitize($sqlTable);
			$sql .= " LEFT JOIN " . $this->db->prefix() . $this->db->sanitize($societeOrUser)." as s ON s.rowid = f.".$this->db->sanitize($socOrUser);
			$sql .= " LEFT JOIN " . $this->db->prefix() . $this->db->sanitize($societeOrUser."_rib")." as sr ON s.rowid = sr.".$this->db->sanitize($socOrUser);
			if ($sourcetype != 'salary') {
				if (!empty($thirdpartyBANId)) {
					$sql .= " AND sr.rowid = " . ((int) $thirdpartyBANId);
				} else {
					$sql .= " AND sr.default_rib = 1";
				}
				// TODO Add 'AND sr.default_rib = 1' in sourcetype salary too Note: the column has been created in v21 in llx_user_rib and default to 0
				// If we add a test on sr.default_rib = 1, we must also check we have a correct error management to stop if no default BAN is found.
			}
			$sql .= " WHERE f.entity IN (".$this->db->escape($entities).')';
			if ($sourcetype != 'salary') {
				$sql .= " AND f.fk_statut = 1"; // Invoice validated
				$sql .= " AND f.paye = 0";
				$sql .= " AND f.total_ttc > 0";
			} else {
				//$sql .= " AND f.fk_statut = 1"; // Invoice validated
				$sql .= " AND f.paye = 0";
				$sql .= " AND f.amount > 0";
			}
			$sql .= " AND pd.traite = 0";
			$sql .= " AND pd.ext_payment_id IS NULL";
			if ($sourcetype != 'salary') {
				$sql .= " AND sr.type = 'ban'";		// TODO Add AND sr.type = 'ban' for users too
			}
			if ($did > 0) {
				$sql .= " AND pd.rowid = " . ((int) $did);
			}

			$resql = $this->db->query($sql);
			if ($resql) {
				$num = $this->db->num_rows($resql);
				$i = 0;

				while ($i < $num) {
					$row = $this->db->fetch_row($resql);	// TODO Replace with fetch_object()
					'@phan-var-force array<int<0,12>,string> $row';

					// All fields: 0=rowid, 1=pfdrowid, 2=$socOrUser, 3=code_banque, 4=code_guichet, 5=number, 6=key, 7=amount, 8=name, 9=ref, 10=bic, 11=iban, 12=frstrecur
					$factures[$i] = $row;

					// Decode BAN
					$factures[$i][11] = dolDecrypt($factures[$i][11]);

					if ($row[7] == 0) {
						$error++;
						dol_syslog(__METHOD__ . " Read invoices/salary error Found a null amount", LOG_ERR);
						$this->invoice_in_error[$row[0]] = "Error for invoice or salary id " . $row[0] . ", found a null amount";
						break;
					}
					$i++;
				}

				$this->db->free($resql);
				dol_syslog(__METHOD__ . " Read invoices/salary, " . $i . " invoices/salary to withdraw", LOG_DEBUG);
			} else {
				$this->error = $this->db->lasterror();
				dol_syslog(__METHOD__ . " Read invoices/salary error " . $this->db->lasterror(), LOG_ERR);
				return -1;
			}
		}

		if (!$error) {
			// Make some checks
			require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php';
			require_once DOL_DOCUMENT_ROOT . '/user/class/user.class.php';
			require_once DOL_DOCUMENT_ROOT . '/societe/class/companybankaccount.class.php';
			require_once DOL_DOCUMENT_ROOT . '/core/lib/bank.lib.php';

			$tmpsoc = new Societe($this->db);
			$tmpuser = new User($this->db);

			// Check BAN
			$i = 0;
			dol_syslog(__METHOD__ . " Check BAN for each invoices or salary", LOG_DEBUG);

			if (count($factures) > 0) {
				foreach ($factures as $key => $fac) {
					// Check if $fac[8] s.nom is null
					if ($fac[8] != null) {
						if ($type != 'bank-transfer') {
							if ($format == 'FRST' && $fac[12] != 'FRST') {
								continue;
							}
							if ($format == 'RCUR' && $fac[12] != 'RCUR') {
								continue;
							}
						}

						$verif = checkSwiftForAccount(null, $fac[10]);
						if ($verif || (empty($fac[10]) && getDolGlobalInt("WITHDRAWAL_WITHOUT_BIC"))) {
							dol_syslog(__METHOD__." now call checkIbanForAccount(null, ".$fac[11].")");
							$verif = checkIbanForAccount(null, $fac[11]);
						}

						if ($verif) {
							$factures_prev[$i] = $fac;
							/* second array necessary for BonPrelevement */
							$factures_prev_id[$i] = $fac[0];
							$i++;
							//dol_syslog(__METHOD__."::RIB is ok", LOG_DEBUG);
						} else {
							if ($type != 'bank-transfer') {
								$tmpsoc->id = (int) $fac[2];
								$tmpsoc->name = $fac[8];
								$invoice_url = "<a href='" . DOL_URL_ROOT . '/compta/facture/card.php?facid=' . $fac[0] . "'>" . $fac[9] . "</a>";
								$this->invoice_in_error[$fac[0]] = "Error on default bank number IBAN/BIC for invoice " . $invoice_url . " for thirdparty " . $tmpsoc->getNomUrl(0);
								$this->thirdparty_in_error[$tmpsoc->id] = "Error on default bank number IBAN/BIC for invoice " . $invoice_url . " for thirdparty " . $tmpsoc->getNomUrl(0);
								$error++;
							}
							if ($type == 'bank-transfer' && $sourcetype != 'salary') {
								$tmpsoc->id = (int) $fac[2];
								$tmpsoc->name = $fac[8];
								$invoice_url = "<a href='" . DOL_URL_ROOT . '/fourn/facture/card.php?facid=' . $fac[0] . "'>" . $fac[9] . "</a>";
								$this->invoice_in_error[$fac[0]] = "Error on default bank number IBAN/BIC for invoice " . $invoice_url . " for thirdparty " . $tmpsoc->getNomUrl(0);
								$this->thirdparty_in_error[$tmpsoc->id] = "Error on default bank number IBAN/BIC for invoice " . $invoice_url . " for thirdparty " . $tmpsoc->getNomUrl(0);
								$error++;
							}
							if ($type == 'bank-transfer' && $sourcetype == 'salary') {
								$tmpuser->id = (int) $fac[2];
								$tmpuser->firstname = $fac[8];
								$salary_url = "<a href='" . DOL_URL_ROOT . '/salaries/card.php?id=' . $fac[0] . "'>" . $fac[0] . "</a>";
								$this->invoice_in_error[$fac[0]] = "Error on default bank number IBAN/BIC for salary " . $salary_url . " for employee " . $tmpuser->getNomUrl(0);
								$this->thirdparty_in_error[$tmpuser->id] = "Error on default bank number IBAN/BIC for salary " . $salary_url . " for employee " . $tmpuser->getNomUrl(0);
								$error++;
							}
							dol_syslog(__METHOD__ . " Check BAN Error on default bank number IBAN/BIC reported by verif(): " . implode(', ', $fac), LOG_WARNING);
						}
					} else {
						dol_syslog(__METHOD__ . " Check BAN Failed to read company", LOG_WARNING);
					}
					/*
					} else {
						dol_syslog(__METHOD__." Check BAN Failed to read invoice", LOG_WARNING);
					}
					*/
				}
			} else {
				dol_syslog(__METHOD__ . " Check BAN No invoice to process", LOG_WARNING);
			}
		}

		$ok = 0;

		// Withdraw invoices in factures_prev array
		$out = count($factures_prev) . " invoices or salaries will be included.";
		//print $out."\n";
		dol_syslog($out);

		// Return warning
		/*$i=0;
		 foreach ($this->thirdparty_in_error as $key => $val)
		 {
		 if ($i < 10) setEventMessages($val, null, 'warnings');
		 else setEventMessages('More error were discarded...', null, 'warnings');
		 $i++;
		 }*/

		if (count($factures_prev) > 0) {
			if ($mode == 'real') {
				$ok = 1;
			} else {
				print $langs->trans("ModeWarning"); // "Option for real mode was not set, we stop after this simulation\n";
			}
		}
		if ($ok) {
			/*
			 * We are in real mode.
			 * We create order and build file into disk
			 */
			$this->db->begin();

			$now = dol_now();
			$ref = '';

			/*
			 * Process order generation
			 */
			if (!$error) {
				$ref = substr($year, -2) . $month;

				// Get next free number for the ref of bon prelevement
				$sql = "SELECT substring(ref from char_length(ref) - 1)";	// To extract "YYMMXX" from "TYYMMXX"
				$sql .= " FROM " . MAIN_DB_PREFIX . "prelevement_bons";
				$sql .= " WHERE ref LIKE '_" . $this->db->escape($ref) . "%'";
				$sql .= " AND entity = " . ((int) $conf->entity);
				$sql .= " ORDER BY ref DESC LIMIT 1";

				dol_syslog(get_class($this) . " get next free number", LOG_DEBUG);
				$resql = $this->db->query($sql);

				if ($resql) {
					$row = $this->db->fetch_row($resql);

					// Build the new ref
					$ref = "T" . $ref . sprintf("%02d", (intval($row[0]) + 1));

					// $conf->abc->dir_output may be:
					// /home/ldestailleur/git/dolibarr_15.0/documents/abc/
					// or
					// /home/ldestailleur/git/dolibarr_15.0/documents/X/abc with X >= 2 with multicompany.
					if ($type != 'bank-transfer') {
						$dir = $conf->prelevement->dir_output . '/receipts';
					} else {
						$dir = $conf->paymentbybanktransfer->dir_output . '/receipts';
					}
					if (!is_dir($dir)) {
						dol_mkdir($dir);
					}

					if (isModEnabled('multicompany')) {
						$labelentity = $conf->entity;
						$this->filename = $dir . '/' . $ref . '-' . $labelentity . '.xml';
					} else {
						$this->filename = $dir . '/' . $ref . '.xml';
					}

					// Create withdraw order in database
					$sql = "INSERT INTO " . MAIN_DB_PREFIX . "prelevement_bons (";
					$sql .= "ref, entity, datec, type, fk_bank_account";
					$sql .= ") VALUES (";
					$sql .= "'" . $this->db->escape($ref) . "'";
					$sql .= ", " . ((int) $conf->entity);
					$sql .= ", '" . $this->db->idate($now) . "'";
					$sql .= ", '" . ($type == 'bank-transfer' ? 'bank-transfer' : 'debit-order') . "'";
					$sql .= ", " . ((int) $fk_bank_account);
					$sql .= ")";

					$resql = $this->db->query($sql);


					if ($resql) {
						$prev_id = $this->db->last_insert_id(MAIN_DB_PREFIX . "prelevement_bons");
						$this->id = $prev_id;
						$this->ref = $ref;
					} else {
						$error++;
						dol_syslog(__METHOD__ . " Create withdraw receipt " . $this->db->lasterror(), LOG_ERR);
					}
				} else {
					$error++;
					dol_syslog(__METHOD__ . " Get last withdraw receipt " . $this->db->lasterror(), LOG_ERR);
				}
			}

			if (!$error) {
				dol_syslog(__METHOD__ . " Now loop on each document to insert them in llx_prelevement_demande");

				// Add lines for the bon
				if (count($factures_prev) > 0) {
					foreach ($factures_prev as $fac) {	// Add a link in database for each invoice ro salary
						/*
						 * Add standing order. This add record into llx_prelevement_lignes and llx_prelevement
						 *
						 * $fac[0] : invoice_id
						 * $fac[1] : ???
						 * $fac[2] : third party id
						 * $fac[3] : banque
						 * $fac[4] : guichet
						 * $fac[5] : number
						 * $fac[6] : cle rib
						 * $fac[7] : amount
						 * $fac[8] : client nom
						 * $fac[9] : Invoice ref
						 * $fac[10] : BIC
						 * $fac[11] : IBAN
						 * $fac[12] : frstrcur
						 */
						$ri = $this->AddFacture($fac[0], $fac[2], $fac[8], $fac[7], $fac[3], $fac[4], $fac[5], $fac[6], $type, $sourcetype);

						if ($ri != 0) {
							$error++;
						}

						// Update invoice requests as done
						$sql = "UPDATE " . MAIN_DB_PREFIX . "prelevement_demande";
						$sql .= " SET traite = 1";
						$sql .= ", date_traite = '" . $this->db->idate($now) . "'";
						$sql .= ", fk_prelevement_bons = " . ((int) $this->id);
						$sql .= " WHERE rowid = " . ((int) $fac[1]);

						$resql = $this->db->query($sql);
						if (!$resql) {
							$error++;
							$this->errors[] = $this->db->lasterror();
							dol_syslog(__METHOD__ . " Update Error=" . $this->db->lasterror(), LOG_ERR);
						}
					}
				}
			}

			if (!$error) {
				/*
				 * Create file of type='direct-debit' for direct debit order or type='bank-transfer' for credit transfer into a XML file
				 */

				dol_syslog(__METHOD__ . " Init direct debit or credit transfer file for " . count($factures_prev) . " invoices", LOG_DEBUG);

				if (count($factures_prev) > 0) {
					$this->date_echeance = $datetimeprev;
					$this->reference_remise = $ref;

					$account = new Account($this->db);
					if ($account->fetch($fk_bank_account) > 0) {
						$this->emetteur_code_banque        = $account->code_banque;
						$this->emetteur_code_guichet       = $account->code_guichet;
						$this->emetteur_numero_compte      = $account->number;
						$this->emetteur_number_key         = $account->cle_rib;
						$this->sepa_xml_pti_in_ctti        = (bool) $account->pti_in_ctti;
						$this->emetteur_iban               = $account->iban;
						$this->emetteur_bic                = $account->bic;

						$this->emetteur_ics = (($type == 'bank-transfer' && getDolGlobalString("SEPA_USE_IDS")) ? $account->ics_transfer : $account->ics);	// Example "FR78ZZZ123456"

						$this->raison_sociale = $account->owner_name;
					}
					$this->factures = $factures_prev_id;
					$this->context['factures_prev'] = $factures_prev;
					// Generation of direct debit or credit transfer file $this->filename (May be a SEPA file for european countries)
					// This also set the property $this->total with amount that is included into file
					$userid = 0;
					if ($sourcetype == 'salary') {
						$userid = $this->context['factures_prev'][0][2];
					}
					$result = $this->generate($format, $executiondate, $type, $fk_bank_account, $userid, $thirdpartyBANId);
					if ($result < 0) {
						//var_dump($this->error);
						//var_dump($this->invoice_in_error);
						$error++;
					}
				}
				dol_syslog(__METHOD__ . " Bank order file has been generated under filename " . $this->filename, LOG_DEBUG);
			}


			/*
			 * Update total defined after generation of file
			 */
			if (!$error) {
				$sql = "UPDATE " . MAIN_DB_PREFIX . "prelevement_bons";
				$sql .= " SET amount = " . price2num($this->total);
				$sql .= " WHERE rowid = " . ((int) $this->id);
				$sql .= " AND entity = " . ((int) $conf->entity);
				$resql = $this->db->query($sql);

				if (!$resql) {
					$error++;
					dol_syslog(__METHOD__ . " Error update total: " . $this->db->error(), LOG_ERR);
				}
			}

			if (!$error && !$notrigger) {
				$triggername = 'DIRECT_DEBIT_ORDER_CREATE';
				if ($type != 'bank-transfer') {
					$triggername = 'CREDIT_TRANSFER_ORDER_CREATE';
				}

				// Call trigger
				$result = $this->call_trigger($triggername, $user);
				if ($result < 0) {
					$error++;
				}
				// End call triggers
			}

			if (!$error) {
				$this->db->commit();
				return count($factures_prev);	// The error of failed lines are into $this->invoice_in_error and $this->thirdparty_in_error
			} else {
				$this->db->rollback();
				return -1;
			}
		} else {
			return 0;
		}
	}


	/**
	 *  Get object and lines from database
	 *
	 *  @param	?User	$user		Object user that delete
	 *  @param	int		$notrigger	1=Does not execute triggers, 0= execute triggers
	 *  @return	int					>0 if OK, <0 if KO
	 */
	public function delete($user = null, $notrigger = 0)
	{
		$this->db->begin();

		$error = 0;
		$resql1 = $resql2 = $resql3 = $resql4 = 0;

		if (!$notrigger) {
			$triggername = 'DIRECT_DEBIT_ORDER_DELETE';
			if ($this->type == 'bank-transfer') {
				$triggername = 'PAYMENTBYBANKTRANFER_DELETE';
			}
			// Call trigger
			$result = $this->call_trigger($triggername, $user);
			if ($result < 0) {
				$error++;
			}
			// End call triggers
		}

		if (!$error) {
			$sql = "DELETE FROM " . MAIN_DB_PREFIX . "prelevement WHERE fk_prelevement_lignes IN (SELECT rowid FROM " . MAIN_DB_PREFIX . "prelevement_lignes WHERE fk_prelevement_bons = " . ((int) $this->id) . ")";
			$resql1 = $this->db->query($sql);
			if (!$resql1) {
				dol_print_error($this->db);
			}
		}

		if (!$error) {
			$sql = "DELETE FROM " . MAIN_DB_PREFIX . "prelevement_lignes WHERE fk_prelevement_bons = " . ((int) $this->id);
			$resql2 = $this->db->query($sql);
			if (!$resql2) {
				dol_print_error($this->db);
			}
		}

		if (!$error) {
			$sql = "DELETE FROM " . MAIN_DB_PREFIX . "prelevement_bons WHERE rowid = " . ((int) $this->id);
			$resql3 = $this->db->query($sql);
			if (!$resql3) {
				dol_print_error($this->db);
			}
		}

		if (!$error) {
			$sql = "UPDATE " . MAIN_DB_PREFIX . "prelevement_demande SET fk_prelevement_bons = NULL, traite = 0 WHERE fk_prelevement_bons = " . ((int) $this->id);
			$resql4 = $this->db->query($sql);
			if (!$resql4) {
				dol_print_error($this->db);
			}
		}

		if ($resql1 && $resql2 && $resql3 && $resql4 && !$error) {
			$this->db->commit();
			return 1;
		} else {
			$this->db->rollback();
			return -1;
		}
	}


	/**
	 *	Returns clickable name (with picto)
	 *
	 *  @param  int     $withpicto                  Include picto in link (0=No picto, 1=Include picto into link, 2=Only picto)
	 *  @param  string  $option                     On what the link point to ('nolink', ...)
	 *  @param  int     $notooltip                  1=Disable tooltip
	 *  @param  string  $morecss                    Add more css on link
	 *  @param  int     $save_lastsearch_value      -1=Auto, 0=No save of lastsearch_values when clicking, 1=Save lastsearch_values whenclicking
	 *	@return	string								URL of target
	 */
	public function getNomUrl($withpicto = 0, $option = '', $notooltip = 0, $morecss = '', $save_lastsearch_value = -1)
	{
		global $conf, $langs, $hookmanager;

		if (!empty($conf->dol_no_mouse_hover)) {
			$notooltip = 1; // Force disable tooltips
		}

		$result = '';

		$labeltoshow = 'PaymentByDirectDebit';
		if (!empty($this->type) && $this->type == 'bank-transfer') {
			$labeltoshow = 'PaymentByBankTransfer';
		}

		$label = img_picto('', $this->picto) . ' <u>' . $langs->trans($labeltoshow) . '</u> ' . $this->getLibStatut(5);
		$label .= '<br>';
		$label .= '<b>' . $langs->trans('Ref') . ':</b> ' . $this->ref;
		if (isset($this->amount)) {
			$label .= '<br><b>' . $langs->trans("Amount") . ":</b> " . price($this->amount);
		}
		if (isset($this->date_trans)) {
			$label .= '<br><b>' . $langs->trans("TransData") . ":</b> " . dol_print_date($this->date_trans, 'dayhour', 'tzuserrel');
		}
		/*if (isset($this->date_credit)) {
			$label .= '<br><b>'.$langs->trans("TransData").":</b> ".dol_print_date($this->date_credit, 'dayhour', 'tzuserrel');
		}*/

		$url = DOL_URL_ROOT . '/compta/prelevement/card.php?id=' . $this->id;
		if (!empty($this->type) && $this->type == 'bank-transfer') {
			$url = DOL_URL_ROOT . '/compta/prelevement/card.php?id=' . $this->id;
		}

		if ($option != 'nolink') {
			// Add param to save lastsearch_values or not
			$add_save_lastsearch_values = ($save_lastsearch_value == 1 ? 1 : 0);
			if ($save_lastsearch_value == -1 && isset($_SERVER["PHP_SELF"]) && preg_match('/list\.php/', $_SERVER["PHP_SELF"])) {
				$add_save_lastsearch_values = 1;
			}
			if ($add_save_lastsearch_values) {
				$url .= '&save_lastsearch_values=1';
			}
		}

		$linkclose = '';
		if (empty($notooltip)) {
			if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
				$label = $langs->trans("ShowMyObject");
				$linkclose .= ' alt="' . dol_escape_htmltag($label, 1) . '"';
			}
			$linkclose .= ' title="' . dol_escape_htmltag($label, 1) . '"';
			$linkclose .= ' class="classfortooltip' . ($morecss ? ' ' . $morecss : '') . '"';
		} else {
			$linkclose = ($morecss ? ' class="' . $morecss . '"' : '');
		}

		$linkstart = '<a href="' . $url . '"';
		$linkstart .= $linkclose . '>';
		$linkend = '</a>';

		$result .= $linkstart;
		if ($withpicto) {
			$result .= img_object(($notooltip ? '' : $label), ($this->picto ? $this->picto : 'generic'), ($notooltip ? (($withpicto != 2) ? 'class="paddingright"' : '') : 'class="' . (($withpicto != 2) ? 'paddingright ' : '') . 'classfortooltip"'), 0, 0, $notooltip ? 0 : 1);
		}
		if ($withpicto != 2) {
			$result .= $this->ref;
		}
		$result .= $linkend;

		global $action, $hookmanager;
		$hookmanager->initHooks(array('banktransferdao'));
		$parameters = array('id' => $this->id, 'getnomurl' => &$result);
		$reshook = $hookmanager->executeHooks('getNomUrl', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
		if ($reshook > 0) {
			$result = $hookmanager->resPrint;
		} else {
			$result .= $hookmanager->resPrint;
		}

		return $result;
	}


	/**
	 *	Delete a notification def by id
	 *
	 *	@param	int		$rowid		id of notification
	 *	@return	int					0 if OK, <0 if KO
	 */
	public function deleteNotificationById($rowid)
	{
		$sql = "DELETE FROM " . MAIN_DB_PREFIX . "notify_def";
		$sql .= " WHERE rowid = " . ((int) $rowid);

		if ($this->db->query($sql)) {
			return 0;
		} else {
			return -1;
		}
	}

	/**
	 *	Delete a notification
	 *
	 *	@param	int|User	$user		notification user
	 *	@param	string		$action		notification action
	 *	@return	int						>0 if OK, <0 if KO
	 */
	public function deleteNotification($user, $action)
	{
		if (is_object($user)) {
			$userid = $user->id;
		} else {	// If user is an id
			$userid = $user;
		}

		$sql = "DELETE FROM " . MAIN_DB_PREFIX . "notify_def";
		$sql .= " WHERE fk_user=" . ((int) $userid) . " AND fk_action='" . $this->db->escape($action) . "'";

		if ($this->db->query($sql)) {
			return 0;
		} else {
			return -1;
		}
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Add a notification
	 *
	 *	@param	DoliDB		$db			database handler
	 *	@param	int|User	$user		notification user
	 *	@param	string		$action		notification action
	 *	@return	int						0 if OK, <0 if KO
	 */
	public function addNotification($db, $user, $action)
	{
		// phpcs:enable
		$result = 0;

		if (is_object($user)) {
			$userid = $user->id;
		} else {	// If user is an id
			$userid = $user;
		}

		if ($this->deleteNotification($user, $action) == 0) {
			$now = dol_now();

			$sql = "INSERT INTO " . MAIN_DB_PREFIX . "notify_def (datec,fk_user, fk_soc, fk_contact, fk_action)";
			$sql .= " VALUES ('" . $this->db->idate($now) . "', " . ((int) $userid) . ", 'NULL', 'NULL', '" . $this->db->escape($action) . "')";

			dol_syslog("adnotiff: " . $sql);
			if ($this->db->query($sql)) {
				$result = 0;
			} else {
				$result = -1;
				dol_syslog(get_class($this) . "::addNotification Error $result");
			}
		}

		return $result;
	}


	/**
	 * Generate a direct debit or credit transfer file.
	 * Generation Formats:
	 * - Europe: SEPA (France: CFONB no more supported, Spain: AEB19 if external module EsAEB is enabled)
	 * - Others countries: Warning message
	 * File is generated with name this->filename
	 *
	 * @param   string  $format				FRST, RCUR or ALL
	 * @param 	int 	$executiondate		Timestamp date to execute transfer
	 * @param	string	$type				'direct-debit' or 'bank-transfer'
	 * @param   int     $fk_bank_account	Bank account ID the receipt is generated for. Will use the ID into the setup of module Direct Debit or Credit Transfer if 0.
	 * @param   int  	$forsalary          If the SEPA is to pay salaries
	 * @param   int  	$thirdpartyBANId	If defined, will use this ID to get the RIB. Otherwise, the first default BAN will be taken.
	 * @return	int							>=0 if OK, <0 if KO
	 */
	public function generate(string $format = 'ALL', int $executiondate = 0, string $type = 'direct-debit', int $fk_bank_account = 0, int $forsalary = 0, int $thirdpartyBANId = 0)
	{
		global $conf, $langs, $mysoc;

		//TODO: Optimize code to read lines in a single function

		// Clean params
		if (empty($fk_bank_account)) {
			$fk_bank_account = ($type == 'bank-transfer' ? getDolGlobalInt('PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') : getDolGlobalInt('PRELEVEMENT_ID_BANKACCOUNT'));
		}

		$result = 0;

		dol_syslog(get_class($this) . "::generate build file=" . $this->filename . " type=" . $type);

		$this->file = fopen($this->filename, "w");
		if ($this->file == false) {
			$this->error = $langs->trans('ErrorFailedToOpenFile', $this->filename);
			return -1;
		}

		$found = 0;
		$this->total = 0;

		// Build file for European countries
		if ($mysoc->isInEEC()) {
			$found++;

			if ($type != 'bank-transfer') {
				/**
				 * SECTION CREATION FICHIER SEPA - DIRECT DEBIT
				 */
				// SEPA Initialisation
				$CrLf = "\n";

				$now = dol_now();

				$dateTime_ECMA = dol_print_date($now, '%Y-%m-%dT%H:%M:%S');

				$date_actu = $now;
				if (!empty($executiondate)) {
					$date_actu = $executiondate;
				}

				$dateTime_YMD = dol_print_date($date_actu, '%Y%m%d');
				$dateTime_YMDHMS = dol_print_date($date_actu, '%Y%m%d%H%M%S');
				$fileDebiteurSection = '';
				$fileEmetteurSection = '';
				$i = 0;

				/*
				 * Section Debitor (sepa Debiteurs block lines)
				 */

				$sql = "SELECT soc.rowid as socid, soc.code_client as code, soc.address, soc.zip, soc.town, c.code as country_code,";
				$sql .= " pl.client_nom as nom, pl.code_banque as cb, pl.code_guichet as cg, pl.number as cc, pl.amount as somme,";
				$sql .= " f.ref as reffac, p.fk_facture as idfac,";
				$sql .= " rib.rowid, rib.datec, rib.iban_prefix as iban, rib.bic as bic, rib.rowid as drum, rib.rum, rib.date_rum";
				$sql .= " FROM";
				$sql .= " " . MAIN_DB_PREFIX . "prelevement_lignes as pl,";
				$sql .= " " . MAIN_DB_PREFIX . "facture as f,";
				$sql .= " " . MAIN_DB_PREFIX . "prelevement as p,";
				$sql .= " " . MAIN_DB_PREFIX . "societe as soc,";
				$sql .= " " . MAIN_DB_PREFIX . "c_country as c,";
				$sql .= " " . MAIN_DB_PREFIX . "societe_rib as rib";
				$sql .= " WHERE pl.fk_prelevement_bons = " . ((int) $this->id);
				$sql .= " AND pl.rowid = p.fk_prelevement_lignes";
				$sql .= " AND p.fk_facture = f.rowid";
				$sql .= " AND f.fk_soc = soc.rowid";
				$sql .= " AND soc.fk_pays = c.rowid";
				$sql .= " AND rib.fk_soc = f.fk_soc";
				if (!empty($thirdpartyBANId)) {
					$sql .= " AND rib.rowid = " . ((int) $thirdpartyBANId);
				} else {
					$sql .= " AND rib.default_rib = 1";
				}
				$sql .= " AND rib.type = 'ban'";

				// Define $fileDebiteurSection. One section DrctDbtTxInf per invoice.
				$resql = $this->db->query($sql);
				$nbtotalDrctDbtTxInf = -1;
				if ($resql) {
					$cachearraytotestduplicate = array();

					$num = $this->db->num_rows($resql);
					while ($i < $num) {
						$obj = $this->db->fetch_object($resql);

						if (!empty($cachearraytotestduplicate[$obj->idfac])) {
							$this->error = $langs->trans('ErrorCompanyHasDuplicateDefaultBAN', $obj->socid);
							$this->invoice_in_error[$obj->idfac] = $this->error;
							$result = -2;
							break;
						}
						$cachearraytotestduplicate[$obj->idfac] = $obj->rowid;

						$daterum = (!empty($obj->date_rum)) ? $this->db->jdate($obj->date_rum) : $this->db->jdate($obj->datec);
						$iban = dolDecrypt($obj->iban);

						$fileDebiteurSection .= $this->EnregDestinataireSEPA($obj->code, $obj->nom, $obj->address, $obj->zip, $obj->town, $obj->country_code, $obj->cb, $obj->cg, $obj->cc, $obj->somme, $obj->reffac, $obj->idfac, $iban, $obj->bic, $daterum, $obj->drum, $obj->rum, $type);

						$this->total += $obj->somme;
						$i++;
					}
					$nbtotalDrctDbtTxInf = $i;
				} else {
					$this->error = $this->db->lasterror();
					fwrite($this->file, 'ERROR DEBITOR ' . $sql . $CrLf); // DEBITOR = Customers
					$result = -2;
				}

				// Define $fileEmetteurSection. Start of block PmtInf. Will contains all $nbtotalDrctDbtTxInf
				if ($result != -2) {
					$fileEmetteurSection .= $this->EnregEmetteurSEPA($conf, $date_actu, $nbtotalDrctDbtTxInf, $this->total, $CrLf, $format, $type, $fk_bank_account);
				}

				if (getDolGlobalString('SEPA_FORCE_TWO_DECIMAL')) {
					$this->total = number_format((float) price2num($this->total, 'MT'), 2, ".", "");
				}

				/**
				 * SECTION CREATION SEPA FILE - ISO200022
				 */
				// SEPA File Header
				fwrite($this->file, '<' . '?xml version="1.0" encoding="UTF-8" standalone="yes"?' . '>' . $CrLf);
				fwrite($this->file, '<Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' . $CrLf);
				fwrite($this->file, '	<CstmrDrctDbtInitn>' . $CrLf);
				// SEPA Group header
				fwrite($this->file, '		<GrpHdr>' . $CrLf);
				fwrite($this->file, '			<MsgId>' . ('DOL/' . $dateTime_YMD . '/DD' . $this->id) . '</MsgId>' . $CrLf);
				fwrite($this->file, '			<CreDtTm>' . $dateTime_ECMA . '</CreDtTm>' . $CrLf);
				fwrite($this->file, '			<NbOfTxs>' . $i . '</NbOfTxs>' . $CrLf);
				fwrite($this->file, '			<CtrlSum>' . $this->total . '</CtrlSum>' . $CrLf);
				fwrite($this->file, '			<InitgPty>' . $CrLf);
				fwrite($this->file, '				<Nm>' . dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($this->raison_sociale), ' '))) . '</Nm>' . $CrLf);
				fwrite($this->file, '				<Id>' . $CrLf);
				fwrite($this->file, '				    <PrvtId>' . $CrLf);
				fwrite($this->file, '					<Othr>' . $CrLf);
				fwrite($this->file, '						<Id>' . $this->emetteur_ics . '</Id>' . $CrLf);
				fwrite($this->file, '					</Othr>' . $CrLf);
				fwrite($this->file, '				    </PrvtId>' . $CrLf);
				fwrite($this->file, '				</Id>' . $CrLf);
				fwrite($this->file, '			</InitgPty>' . $CrLf);
				fwrite($this->file, '		</GrpHdr>' . $CrLf);
				// SEPA File Emetteur
				if ($result != -2) {
					fwrite($this->file, $fileEmetteurSection);
				}
				// SEPA File Debiteurs
				if ($result != -2) {
					fwrite($this->file, $fileDebiteurSection);
				}
				// SEPA FILE FOOTER
				fwrite($this->file, '		</PmtInf>' . $CrLf);
				fwrite($this->file, '	</CstmrDrctDbtInitn>' . $CrLf);
				fwrite($this->file, '</Document>' . $CrLf);
			} else {
				/**
				 * SECTION CREATION FICHIER SEPA - CREDIT TRANSFER
				 */
				// SEPA Initialisation
				$CrLf = "\n";

				$now = dol_now();

				$dateTime_ECMA = dol_print_date($now, '%Y-%m-%dT%H:%M:%S');

				$date_actu = $now;
				if (!empty($executiondate)) {
					$date_actu = $executiondate;
				}

				$dateTime_YMD = dol_print_date($date_actu, '%Y%m%d');
				$dateTime_YMDHMS = dol_print_date($date_actu, '%Y%m%d%H%M%S');
				$fileCrediteurSection = '';
				$fileEmetteurSection = '';
				$i = 0;

				/*
				 * Section Creditor (sepa Crediteurs block lines)
				 */
				if (!empty($forsalary)) {
					$sql = "SELECT u.rowid as userId, u.address, u.zip, u.town, c.code as country_code, CONCAT(u.firstname,' ',u.lastname) as nom,";
					$sql .= " pl.code_banque as cb, pl.code_guichet as cg, pl.number as cc, pl.amount as somme,";
					$sql .= " s.ref as reffac, p.fk_salary as idfac,";
					$sql .= " rib.rowid, rib.datec, rib.iban_prefix as iban, rib.bic as bic, rib.rowid as drum, '' as rum, '' as date_rum";
					$sql .= " FROM";
					$sql .= " " . MAIN_DB_PREFIX . "prelevement_lignes as pl,";
					$sql .= " " . MAIN_DB_PREFIX . "salary as s,";
					$sql .= " " . MAIN_DB_PREFIX . "prelevement as p,";
					$sql .= " " . MAIN_DB_PREFIX . "user as u";
					$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "c_country as c ON u.fk_country = c.rowid,";
					$sql .= " " . MAIN_DB_PREFIX . "user_rib as rib";
					$sql .= " WHERE pl.fk_prelevement_bons=" . ((int) $this->id);
					$sql .= " AND pl.rowid = p.fk_prelevement_lignes";
					$sql .= " AND p.fk_salary = s.rowid";
					$sql .= " AND s.fk_user = u.rowid";
					$sql .= " AND rib.fk_user = s.fk_user";
				} else {
					$sql = "SELECT soc.rowid as socid, soc.code_client as code, soc.address, soc.zip, soc.town, c.code as country_code,";
					$sql .= " pl.client_nom as nom, pl.code_banque as cb, pl.code_guichet as cg, pl.number as cc, pl.amount as somme,";
					$sql .= " f.ref as reffac, f.ref_supplier as fac_ref_supplier, p.fk_facture_fourn as idfac,";
					$sql .= " rib.rowid, rib.datec, rib.iban_prefix as iban, rib.bic as bic, rib.rowid as drum, rib.rum, rib.date_rum";
					$sql .= " FROM";
					$sql .= " " . MAIN_DB_PREFIX . "prelevement_lignes as pl,";
					$sql .= " " . MAIN_DB_PREFIX . "facture_fourn as f,";
					$sql .= " " . MAIN_DB_PREFIX . "prelevement as p,";
					$sql .= " " . MAIN_DB_PREFIX . "societe as soc";
					$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "c_country as c ON soc.fk_pays = c.rowid,";
					$sql .= " " . MAIN_DB_PREFIX . "societe_rib as rib";
					$sql .= " WHERE pl.fk_prelevement_bons = " . ((int) $this->id);
					$sql .= " AND pl.rowid = p.fk_prelevement_lignes";
					$sql .= " AND p.fk_facture_fourn = f.rowid";
					$sql .= " AND f.fk_soc = soc.rowid";
					$sql .= " AND rib.fk_soc = f.fk_soc";
					if (!empty($thirdpartyBANId)) {
						$sql .= " AND rib.rowid = " . ((int) $thirdpartyBANId);
					} else {
						$sql .= " AND rib.default_rib = 1";
					}
					$sql .= " AND rib.type = 'ban'";
				}
				// Define $fileCrediteurSection. One section DrctDbtTxInf per invoice.
				$nbtotalDrctDbtTxInf = -1;

				$resql = $this->db->query($sql);
				if ($resql) {
					$cachearraytotestduplicate = array();

					$num = $this->db->num_rows($resql);
					while ($i < $num) {
						$obj = $this->db->fetch_object($resql);
						if (!empty($cachearraytotestduplicate[$obj->idfac])) {
							$this->error = $langs->trans('ErrorCompanyHasDuplicateDefaultBAN', $obj->socid);
							$this->invoice_in_error[$obj->idfac] = $this->error;
							$result = -2;
							break;
						}
						$cachearraytotestduplicate[$obj->idfac] = $obj->rowid;

						$daterum = (!empty($obj->date_rum)) ? $this->db->jdate($obj->date_rum) : $this->db->jdate($obj->datec);
						$iban = dolDecrypt($obj->iban);
						$refobj = $obj->reffac;
						if (empty($refobj) && !empty($forsalary)) {	// If ref of salary not defined, we force a value
							$refobj = "SAL" . $obj->idfac;
						}

						$fileCrediteurSection .= $this->EnregDestinataireSEPA($obj->code, $obj->nom, $obj->address, $obj->zip, $obj->town, $obj->country_code, $obj->cb, $obj->cg, $obj->cc, $obj->somme, $refobj, $obj->idfac, $iban, $obj->bic, $daterum, $obj->drum, $obj->rum, $type, $obj->fac_ref_supplier);

						$this->total += $obj->somme;
						$i++;
					}
					$nbtotalDrctDbtTxInf = $i;
				} else {
					$this->error = $this->db->lasterror();
					fwrite($this->file, 'ERROR CREDITOR ' . $sql . $CrLf); // CREDITORS = Suppliers
					$result = -2;
				}
				// Define $fileEmetteurSection. Start of block PmtInf. Will contains all $nbtotalDrctDbtTxInf
				if ($result != -2) {
					$fileEmetteurSection .= $this->EnregEmetteurSEPA($conf, $date_actu, $nbtotalDrctDbtTxInf, $this->total, $CrLf, $format, $type);
				}

				if (getDolGlobalString('SEPA_FORCE_TWO_DECIMAL')) {
					$this->total = number_format((float) price2num($this->total, 'MT'), 2, ".", "");
				}

				/**
				 * SECTION CREATION SEPA FILE - CREDIT TRANSFER - ISO200022
				 */
				// SEPA File Header
				fwrite($this->file, '<' . '?xml version="1.0" encoding="UTF-8" standalone="yes"?' . '>' . $CrLf);
				fwrite($this->file, '<Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.001.001.03" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' . $CrLf);
				fwrite($this->file, '	<CstmrCdtTrfInitn>' . $CrLf);
				// SEPA Group header
				fwrite($this->file, '		<GrpHdr>' . $CrLf);
				fwrite($this->file, '			<MsgId>' . ('DOL/' . $dateTime_YMD . '/CT' . $this->id) . '</MsgId>' . $CrLf);
				fwrite($this->file, '			<CreDtTm>' . $dateTime_ECMA . '</CreDtTm>' . $CrLf);
				fwrite($this->file, '			<NbOfTxs>' . $i . '</NbOfTxs>' . $CrLf);
				fwrite($this->file, '			<CtrlSum>' . $this->total . '</CtrlSum>' . $CrLf);
				fwrite($this->file, '			<InitgPty>' . $CrLf);
				fwrite($this->file, '				<Nm>' . dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($this->raison_sociale), ' '))) . '</Nm>' . $CrLf);
				fwrite($this->file, '				<Id>' . $CrLf);
				fwrite($this->file, '				    <PrvtId>' . $CrLf);
				fwrite($this->file, '					<Othr>' . $CrLf);
				fwrite($this->file, '						<Id>' . $this->emetteur_ics . '</Id>' . $CrLf);
				fwrite($this->file, '					</Othr>' . $CrLf);
				fwrite($this->file, '				    </PrvtId>' . $CrLf);
				fwrite($this->file, '				</Id>' . $CrLf);
				fwrite($this->file, '			</InitgPty>' . $CrLf);
				fwrite($this->file, '		</GrpHdr>' . $CrLf);
				// SEPA File Emetteur (mycompany)
				if ($result != -2) {
					fwrite($this->file, $fileEmetteurSection);
				}
				// SEPA File Creditors
				if ($result != -2) {
					fwrite($this->file, $fileCrediteurSection);
				}
				// SEPA FILE FOOTER
				fwrite($this->file, '		</PmtInf>' . $CrLf);
				fwrite($this->file, '	</CstmrCdtTrfInitn>' . $CrLf);
				fwrite($this->file, '</Document>' . $CrLf);
			}
		}

		// Build file for Other Countries with unknown format
		if (!$found) {
			if ($type != 'bank-transfer') {
				$sql = "SELECT pl.amount";
				$sql .= " FROM";
				$sql .= " " . MAIN_DB_PREFIX . "prelevement_lignes as pl,";
				$sql .= " " . MAIN_DB_PREFIX . "facture as f,";
				$sql .= " " . MAIN_DB_PREFIX . "prelevement as p";
				$sql .= " WHERE pl.fk_prelevement_bons = " . ((int) $this->id);
				$sql .= " AND pl.rowid = p.fk_prelevement_lignes";
				$sql .= " AND p.fk_facture = f.rowid";

				// Lines
				$i = 0;
				$resql = $this->db->query($sql);
				if ($resql) {
					$num = $this->db->num_rows($resql);

					while ($i < $num) {
						$obj = $this->db->fetch_object($resql);
						$this->total += $obj->amount;

						// TODO Write record into file
						$i++;
					}
				} else {
					$result = -2;
				}
			} else {
				$sql = "SELECT pl.amount";
				$sql .= " FROM";
				$sql .= " " . MAIN_DB_PREFIX . "prelevement_lignes as pl,";
				$sql .= " " . MAIN_DB_PREFIX . "facture_fourn as f,";
				$sql .= " " . MAIN_DB_PREFIX . "prelevement as p";
				$sql .= " WHERE pl.fk_prelevement_bons = " . ((int) $this->id);
				$sql .= " AND pl.rowid = p.fk_prelevement_lignes";
				$sql .= " AND p.fk_facture_fourn = f.rowid";
				// Lines
				$i = 0;
				$resql = $this->db->query($sql);
				if ($resql) {
					$num = $this->db->num_rows($resql);

					while ($i < $num) {
						$obj = $this->db->fetch_object($resql);
						$this->total += $obj->amount;

						// TODO Write record into file
						$i++;
					}
				} else {
					$result = -2;
				}
			}

			$langs->load('withdrawals');

			// TODO Add here code to generate a generic file
			fwrite($this->file, $langs->transnoentitiesnoconv('WithdrawalFileNotCapable', $mysoc->country_code));
		}

		fclose($this->file);
		dolChmod($this->filename);

		return $result;
	}


	/**
	 * Generate dynamically a RUM number for a customer bank account
	 *
	 * @param	string		$row_code_client	Customer code (soc.code_client)
	 * @param	int			$row_datec			Creation date of bank account (rib.datec)
	 * @param	string		$row_drum			Id of customer bank account (rib.rowid)
	 * @return 	string		RUM number
	 */
	public static function buildRumNumber($row_code_client, $row_datec, $row_drum)
	{
		global $langs;

		$pre = substr(dol_string_nospecial(dol_string_unaccent($langs->transnoentitiesnoconv('RUM'))), 0, 3); // Must always be on 3 char ('RUM' or 'UMR'. This is a protection against bad translation)

		// 3 char + '-' + 12 + '-' + id + '-' + code 		Must be lower than 32.
		return $pre . '-' . dol_print_date($row_datec, 'dayhourlogsmall') . '-' . dol_trunc($row_drum . ($row_code_client ? '-' . $row_code_client : ''), 13, 'right', 'UTF-8', 1);
	}


	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Write recipient of request (customer)
	 *
	 *	@param	int		$rowid			id of line
	 *	@param	string	$client_nom		name of customer
	 *	@param	string	$rib_banque		code of bank
	 *	@param	string	$rib_guichet 	code of bank office
	 *	@param	string	$rib_number		bank account
	 *	@param	float	$amount			amount
	 *	@param	string	$ref		ref of invoice
	 *	@param	int		$facid			id of invoice
	 *  @param	string	$rib_dom		bank address
	 *  @param	string	$type			'direct-debit' or 'bank-transfer'
	 *	@return	void
	 *  @see EnregDestinataireSEPA()
	 */
	public function EnregDestinataire($rowid, $client_nom, $rib_banque, $rib_guichet, $rib_number, $amount, $ref, $facid, $rib_dom = '', $type = 'direct-debit')
	{
		// phpcs:enable
		fwrite($this->file, "06");
		fwrite($this->file, "08"); // Prelevement ordinaire

		fwrite($this->file, "        "); // Zone Reservee B2

		fwrite($this->file, $this->emetteur_ics); // ICS

		// Date d'echeance C1

		fwrite($this->file, "       ");
		fwrite($this->file, dol_print_date($this->date_echeance, "%d%m", 'gmt'));
		fwrite($this->file, substr(dol_print_date($this->date_echeance, "%y", 'gmt'), 1));

		// Raison Sociale Destinataire C2

		fwrite($this->file, substr(strtoupper($client_nom) . "                         ", 0, 24));

		// Address optional D1
		$address = strtr($rib_dom, array(" " => "-", chr(13) => " ", chr(10) => ""));
		fwrite($this->file, substr($address . "                         ", 0, 24));

		// Zone Reservee D2

		fwrite($this->file, substr("                             ", 0, 8));

		// Code Guichet  D3

		fwrite($this->file, $rib_guichet);

		// Numero de compte D4

		fwrite($this->file, substr("000000000000000" . $rib_number, -11));

		// Zone E Montant

		$montant = (round($amount, 2) * 100);

		fwrite($this->file, substr("000000000000000" . $montant, -16));

		// Label F

		fwrite($this->file, substr("*_" . $ref . "_RDVnet" . $rowid . "                               ", 0, 31));

		// Code etablissement G1

		fwrite($this->file, $rib_banque);

		// Zone Reservee G2

		fwrite($this->file, substr("                                        ", 0, 5));

		fwrite($this->file, "\n");
	}


	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Write recipient (thirdparty concerned by request)
	 *
	 *	@param	string		$row_code_client	soc.code_client as code,
	 *	@param	string		$row_nom			pl.client_nom AS name,
	 *	@param	string		$row_address		soc.address AS adr,
	 *	@param	string		$row_zip			soc.zip
	 *  @param	string		$row_town			soc.town
	 *	@param	string		$row_country_code	c.code AS country,
	 *	@param	string		$row_cb				pl.code_banque AS cb,		Not used for SEPA
	 *	@param	string		$row_cg				pl.code_guichet AS cg,		Not used for SEPA
	 *	@param	string		$row_cc				pl.number AS cc,			Not used for SEPA
	 *	@param	float		$row_somme			pl.amount AS somme,
	 *	@param	string		$row_ref			Invoice ref (f.ref) or Salary ref
	 *	@param	int			$row_idfac			p.fk_facture AS idfac or p.fk_facture_fourn or p.fk_salary,
	 *	@param	string		$row_iban			rib.iban_prefix AS iban,
	 *	@param	string		$row_bic			rib.bic AS bic,
	 *	@param	int 		$row_datec			rib.datec,
	 *	@param	string		$row_drum			rib.rowid used to generate rum
	 * 	@param	string		$row_rum			rib.rum Rum defined on company bank account
	 *  @param	string		$type				'direct-debit' or 'bank-transfer'
	 *  @param  string      $row_comment		A free text string for the Unstructured data field
	 *	@return	string							Return string with SEPA part DrctDbtTxInf
	 *  @see EnregDestinataire()
	 */
	public function EnregDestinataireSEPA($row_code_client, $row_nom, $row_address, $row_zip, $row_town, $row_country_code, $row_cb, $row_cg, $row_cc, $row_somme, $row_ref, $row_idfac, $row_iban, $row_bic, $row_datec, $row_drum, $row_rum, $type = 'direct-debit', $row_comment = '')
	{
		// phpcs:enable
		global $conf, $mysoc;

		if (getDolGlobalString('SEPA_FORCE_TWO_DECIMAL')) {
			$row_somme = number_format((float) price2num($row_somme, 'MT'), 2, ".", "");
		} else {
			$row_somme = round((float) $row_somme, 2);
		}

		include_once DOL_DOCUMENT_ROOT . '/core/lib/functions2.lib.php';

		$CrLf = "\n";
		$Rowing = sprintf("%010d", $row_idfac);

		// Define value for RUM
		// Example:  RUM-CustomerCode-CustomerBankAccountId-01424448606	(note: Date is the timestamp of the date of creation of CustomerBankAccountId)
		$Rum = (empty($row_rum) ? $this->buildRumNumber($row_code_client, $row_datec, $row_drum) : $row_rum);

		// Define date of RUM signature
		$DtOfSgntr = dol_print_date($row_datec, '%Y-%m-%d');

		if ($type != 'bank-transfer') {
			// SEPA Paiement Information of buyer for Direct Debit
			$XML_DEBITOR = '';
			$XML_DEBITOR .= '			<DrctDbtTxInf>' . $CrLf;
			$XML_DEBITOR .= '				<PmtId>' . $CrLf;
			// Add EndToEndId. Must be a unique ID for each payment (for example by including bank, buyer or seller, date, checksum)
			$XML_DEBITOR .= '					<EndToEndId>' . ((getDolGlobalString('PRELEVEMENT_END_TO_END') != "") ? $conf->global->PRELEVEMENT_END_TO_END : ('DD-' . dol_trunc($row_idfac . '-' . $row_ref, 20, 'right', 'UTF-8', 1)) . '-' . $Rowing) . '</EndToEndId>' . $CrLf; // ISO20022 states that EndToEndId has a MaxLength of 35 characters
			$XML_DEBITOR .= '				</PmtId>' . $CrLf;
			$XML_DEBITOR .= '				<InstdAmt Ccy="EUR">' . $row_somme . '</InstdAmt>' . $CrLf;
			$XML_DEBITOR .= '				<DrctDbtTx>' . $CrLf;
			$XML_DEBITOR .= '					<MndtRltdInf>' . $CrLf;
			$XML_DEBITOR .= '						<MndtId>' . $Rum . '</MndtId>' . $CrLf;
			$XML_DEBITOR .= '						<DtOfSgntr>' . $DtOfSgntr . '</DtOfSgntr>' . $CrLf;
			$XML_DEBITOR .= '						<AmdmntInd>false</AmdmntInd>' . $CrLf;
			$XML_DEBITOR .= '					</MndtRltdInf>' . $CrLf;
			$XML_DEBITOR .= '				</DrctDbtTx>' . $CrLf;
			$XML_DEBITOR .= '				<DbtrAgt>' . $CrLf;
			$XML_DEBITOR .= '					<FinInstnId>' . $CrLf;
			if (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0) {
				$XML_DEBITOR .= '						<BIC>' . $row_bic . '</BIC>' . $CrLf;
			}
			$XML_DEBITOR .= '					</FinInstnId>' . $CrLf;
			$XML_DEBITOR .= '				</DbtrAgt>' . $CrLf;
			$XML_DEBITOR .= '				<Dbtr>' . $CrLf;
			$XML_DEBITOR .= '					<Nm>' . dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($row_nom), ' '))) . '</Nm>' . $CrLf;
			$XML_DEBITOR .= '					<PstlAdr>' . $CrLf;
			$XML_DEBITOR .= '						<Ctry>' . $row_country_code . '</Ctry>' . $CrLf;
			$addressline1 = strtr($row_address, array(chr(13) => ", ", chr(10) => ""));
			$addressline2 = strtr($row_zip . (($row_zip && $row_town) ? ' ' : (string) $row_town), array(chr(13) => ", ", chr(10) => ""));
			if (trim($addressline1)) {
				$XML_DEBITOR .= '						<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline1), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
			}
			if (trim($addressline2)) {
				$XML_DEBITOR .= '						<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline2), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
			}
			$XML_DEBITOR .= '					</PstlAdr>' . $CrLf;
			$XML_DEBITOR .= '				</Dbtr>' . $CrLf;
			$XML_DEBITOR .= '				<DbtrAcct>' . $CrLf;
			$XML_DEBITOR .= '					<Id>' . $CrLf;
			$XML_DEBITOR .= '						<IBAN>' . preg_replace('/\s/', '', $row_iban) . '</IBAN>' . $CrLf;
			$XML_DEBITOR .= '					</Id>' . $CrLf;
			$XML_DEBITOR .= '				</DbtrAcct>' . $CrLf;
			$XML_DEBITOR .= '				<RmtInf>' . $CrLf;

			// Structured data for Belgium
			if (getDolGlobalString('INVOICE_PAYMENT_ENABLE_STRUCTURED_COMMUNICATION') && $mysoc->country_code == 'BE') {
				include_once DOL_DOCUMENT_ROOT.'/core/lib/functions_be.lib.php';

				$invoicestatic = new Facture($this->db);
				$invoicestatic->fetch($row_idfac);

				$invoicePaymentKey = dolBECalculateStructuredCommunication($invoicestatic->ref, $invoicestatic->type);
				$XML_DEBITOR .= '					<strd>' . $invoicePaymentKey . '</strd>' . $CrLf;
			} else {
				// A string with some information on payment - 140 max
				$XML_DEBITOR .= '					<Ustrd>' . getDolGlobalString('PRELEVEMENT_USTRD', dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($row_ref . ($row_comment ? ' - ' . $row_comment : '')), '', '', '', 1), 135, 'right', 'UTF-8', 1))) . '</Ustrd>' . $CrLf; // Free unstuctured data - 140 max
			}
			$XML_DEBITOR .= '				</RmtInf>' . $CrLf;
			$XML_DEBITOR .= '			</DrctDbtTxInf>' . $CrLf;
			return $XML_DEBITOR;
		} else {
			// SEPA Payment Information of seller for Credit Transfer
			$XML_CREDITOR = '';
			$XML_CREDITOR .= '			<CdtTrfTxInf>' . $CrLf;
			$XML_CREDITOR .= '				<PmtId>' . $CrLf;
			// Add EndToEndId. Must be a unique ID for each payment (for example by including bank, buyer or seller, date, checksum)
			$XML_CREDITOR .= '					<EndToEndId>' . ((getDolGlobalString('PRELEVEMENT_END_TO_END') != "") ? $conf->global->PRELEVEMENT_END_TO_END : ('CT-' . dol_trunc($row_idfac . '-' . $row_ref, 20, 'right', 'UTF-8', 1)) . '-' . $Rowing) . '</EndToEndId>' . $CrLf; // ISO20022 states that EndToEndId has a MaxLength of 35 characters
			$XML_CREDITOR .= '				</PmtId>' . $CrLf;
			if (!empty($this->sepa_xml_pti_in_ctti)) {
				$XML_CREDITOR .= '				<PmtTpInf>' . $CrLf;

				// Can be 'NORM' for normal or 'HIGH' for high priority level
				if (getDolGlobalString('PAYMENTBYBANKTRANSFER_FORCE_HIGH_PRIORITY')) {
					$instrprty = 'HIGH';
				} else {
					$instrprty = 'NORM';
				}

				// Set $categoryPurpose: CORE, TREA, SUPP, ...
				$categoryPurpose = getDolGlobalString('PAYMENTBYBANKTRANSFER_CUSTOM_CATEGORY_PURPOSE', 'CORE');

				$XML_CREDITOR .= '					<InstrPrty>' . $instrprty . '</InstrPrty>' . $CrLf;
				$XML_CREDITOR .= '					<SvcLvl>' . $CrLf;
				$XML_CREDITOR .= '						<Cd>SEPA</Cd>' . $CrLf;
				$XML_CREDITOR .= '					</SvcLvl>' . $CrLf;
				$XML_CREDITOR .= '					<CtgyPurp>' . $CrLf;
				$XML_CREDITOR .= '						<Cd>' . $categoryPurpose . '</Cd>' . $CrLf;
				$XML_CREDITOR .= '					</CtgyPurp>' . $CrLf;
				$XML_CREDITOR .= '				</PmtTpInf>' . $CrLf;
			}
			$XML_CREDITOR .= '				<Amt>' . $CrLf;
			$XML_CREDITOR .= '				<InstdAmt Ccy="EUR">'.round((float) $row_somme, 2).'</InstdAmt>'.$CrLf;
			$XML_CREDITOR .= '				</Amt>' . $CrLf;
			/*
			 $XML_CREDITOR .= '				<DrctDbtTx>'.$CrLf;
			 $XML_CREDITOR .= '					<MndtRltdInf>'.$CrLf;
			 $XML_CREDITOR .= '						<MndtId>'.$Rum.'</MndtId>'.$CrLf;
			 $XML_CREDITOR .= '						<DtOfSgntr>'.$DtOfSgntr.'</DtOfSgntr>'.$CrLf;
			 $XML_CREDITOR .= '						<AmdmntInd>false</AmdmntInd>'.$CrLf;
			 $XML_CREDITOR .= '					</MndtRltdInf>'.$CrLf;
			 $XML_CREDITOR .= '				</DrctDbtTx>'.$CrLf;
			 */
			//$XML_CREDITOR .= '				<ChrgBr>SLEV</ChrgBr>'.$CrLf;
			$XML_CREDITOR .= '				<CdtrAgt>' . $CrLf;
			$XML_CREDITOR .= '					<FinInstnId>' . $CrLf;
			$XML_CREDITOR .= '						<BIC>' . $row_bic . '</BIC>' . $CrLf;
			$XML_CREDITOR .= '					</FinInstnId>' . $CrLf;
			$XML_CREDITOR .= '				</CdtrAgt>' . $CrLf;
			$XML_CREDITOR .= '				<Cdtr>' . $CrLf;
			$XML_CREDITOR .= '					<Nm>' . dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($row_nom), ' '))) . '</Nm>' . $CrLf;
			$XML_CREDITOR .= '					<PstlAdr>' . $CrLf;
			$XML_CREDITOR .= '						<Ctry>' . $row_country_code . '</Ctry>' . $CrLf;
			$addressline1 = strtr($row_address, array(chr(13) => ", ", chr(10) => ""));
			$addressline2 = strtr($row_zip . (($row_zip && $row_town) ? ' ' : (string) $row_town), array(chr(13) => ", ", chr(10) => ""));
			if (trim($addressline1)) {
				$XML_CREDITOR .= '						<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline1), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
			}
			if (trim($addressline2)) {
				$XML_CREDITOR .= '						<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline2), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
			}
			$XML_CREDITOR .= '					</PstlAdr>' . $CrLf;
			$XML_CREDITOR .= '				</Cdtr>' . $CrLf;
			$XML_CREDITOR .= '				<CdtrAcct>' . $CrLf;
			$XML_CREDITOR .= '					<Id>' . $CrLf;
			$XML_CREDITOR .= '						<IBAN>' . preg_replace('/\s/', '', $row_iban) . '</IBAN>' . $CrLf;
			$XML_CREDITOR .= '					</Id>' . $CrLf;
			$XML_CREDITOR .= '				</CdtrAcct>' . $CrLf;
			$XML_CREDITOR .= '				<RmtInf>' . $CrLf;
			// A string with some information on payment - 140 max
			$XML_CREDITOR .= '					<Ustrd>' . getDolGlobalString('CREDITTRANSFER_USTRD', dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($row_ref . ($row_comment ? ' - ' . $row_comment : '')), '', '', '', 1), 135, 'right', 'UTF-8', 1))) . '</Ustrd>' . $CrLf; // Free unstructured data - 140 max
			$XML_CREDITOR .= '				</RmtInf>' . $CrLf;
			$XML_CREDITOR .= '			</CdtTrfTxInf>' . $CrLf;
			return $XML_CREDITOR;
		}
	}


	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Write sender of request (me).
	 *  TODO This method seems not used anymore. What is it for ?
	 *
	 *  @param	string		$type				'direct-debit' or 'bank-transfer'
	 *	@return	void
	 *  @see EnregEmetteurSEPA()
	 */
	public function EnregEmetteur($type = 'direct-debit')
	{
		// phpcs:enable
		fwrite($this->file, "03");
		fwrite($this->file, "08"); // Prelevement ordinaire

		fwrite($this->file, "        "); // Zone Reservee B2

		fwrite($this->file, $this->emetteur_ics); // ICS

		// Date d'echeance C1

		fwrite($this->file, "       ");
		fwrite($this->file, dol_print_date($this->date_echeance, "%d%m", 'gmt'));
		fwrite($this->file, substr(dol_print_date($this->date_echeance, "%y", 'gmt'), 1));

		// Raison Sociale C2

		fwrite($this->file, substr($this->raison_sociale . "                           ", 0, 24));

		// Ref of thirdparty on 7 characters

		fwrite($this->file, substr($this->reference_remise . "                           ", 0, 7));

		// Zone Reservee D1-2

		fwrite($this->file, substr("                                    ", 0, 17));

		// Zone Reservee D2

		fwrite($this->file, substr("                             ", 0, 2));
		fwrite($this->file, "E");
		fwrite($this->file, substr("                             ", 0, 5));

		// Code Guichet  D3

		fwrite($this->file, $this->emetteur_code_guichet);

		// Numero de compte D4

		fwrite($this->file, substr("000000000000000" . $this->emetteur_numero_compte, -11));

		// Zone Reservee E

		fwrite($this->file, substr("                                        ", 0, 16));

		// Zone Reservee F

		fwrite($this->file, substr("                                        ", 0, 31));

		// Code etablissement

		fwrite($this->file, $this->emetteur_code_banque);

		// Zone Reservee G

		fwrite($this->file, substr("                                        ", 0, 5));

		fwrite($this->file, "\n");
	}


	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Write sender of request (me).
	 *  Note: The tag PmtInf is opened here but closed into caller
	 *
	 *	@param	Conf	$configuration		conf
	 *	@param	int     $ladate				Date
	 *	@param	int		$nombre				0 or 1
	 *	@param	float	$total				Total
	 *	@param	string	$CrLf				End of line character
	 *  @param	string	$format				FRST or RCUR or ALL
	 *  @param	string	$type				'direct-debit' or 'bank-transfer'
	 *  @param	int		$fk_bank_account	Bank account ID the receipt is generated for. Will use the ID into the setup of module Direct Debit or Credit Transfer if 0.
	 *	@return	string						String with SEPA Sender
	 */
	public function EnregEmetteurSEPA($configuration, $ladate, $nombre, $total, $CrLf = '\n', $format = 'FRST', $type = 'direct-debit', $fk_bank_account = 0)
	{
		// phpcs:enable

		// Clean parameters
		$dateTime_YMD = dol_print_date($ladate, '%Y%m%d');
		$dateTime_ETAD = dol_print_date($ladate, '%Y-%m-%d');
		$dateTime_YMDHMS = dol_print_date($ladate, '%Y-%m-%dT%H:%M:%S');

		// Clean params
		if (empty($fk_bank_account)) {
			$fk_bank_account = ($type == 'bank-transfer' ? getDolGlobalInt('PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') : getDolGlobalInt('PRELEVEMENT_ID_BANKACCOUNT'));
		}

		// Get data of bank account
		$account = new Account($this->db);
		if ($account->fetch($fk_bank_account) > 0) {
			$this->emetteur_code_banque = $account->code_banque;
			$this->emetteur_code_guichet = $account->code_guichet;
			$this->emetteur_numero_compte = $account->number;
			$this->emetteur_number_key = $account->cle_rib;
			$this->sepa_xml_pti_in_ctti = (bool) $account->pti_in_ctti;
			$this->emetteur_iban = $account->iban;
			$this->emetteur_bic = $account->bic;

			$this->emetteur_ics = (($type == 'bank-transfer' && getDolGlobalString("SEPA_USE_IDS")) ? $account->ics_transfer : $account->ics);  // Ex: PRELEVEMENT_ICS = "FR78ZZZ123456";

			$this->raison_sociale = $account->owner_name;
		}

		// Get pending payments
		$sql = "SELECT rowid, ref";
		$sql .= " FROM " . MAIN_DB_PREFIX . "prelevement_bons as pb";
		$sql .= " WHERE pb.rowid = " . ((int) $this->id);

		$resql = $this->db->query($sql);
		if ($resql) {
			$obj = $this->db->fetch_object($resql);

			$country = explode(':', $configuration->global->MAIN_INFO_SOCIETE_COUNTRY);
			$IdBon  = sprintf("%05d", $obj->rowid);
			$RefBon = $obj->ref;
			$localInstrument = getDolGlobalString('PAYMENTBYBANKTRANSFER_CUSTOM_LOCAL_INSTRUMENT', 'CORE');

			if (!empty($configuration->global->SEPA_FORCE_TWO_DECIMAL)) {
				$total = number_format((float) price2num($total, 'MT'), 2, ".", "");
			}

			if ($type != 'bank-transfer') {
				// SEPA Paiement Information of my company for Direct Debit
				$XML_SEPA_INFO = '';
				$XML_SEPA_INFO .= '		<PmtInf>' . $CrLf;
				$XML_SEPA_INFO .= '			<PmtInfId>' . ('DOL/' . $dateTime_YMD . '/DD' . $IdBon . '-' . $RefBon) . '</PmtInfId>' . $CrLf;
				$XML_SEPA_INFO .= '			<PmtMtd>DD</PmtMtd>' . $CrLf;
				$XML_SEPA_INFO .= '			<NbOfTxs>' . $nombre . '</NbOfTxs>' . $CrLf;
				$XML_SEPA_INFO .= '			<CtrlSum>' . $total . '</CtrlSum>' . $CrLf;
				$XML_SEPA_INFO .= '			<PmtTpInf>' . $CrLf;
				$XML_SEPA_INFO .= '				<SvcLvl>' . $CrLf;
				$XML_SEPA_INFO .= '					<Cd>SEPA</Cd>' . $CrLf;
				$XML_SEPA_INFO .= '				</SvcLvl>' . $CrLf;
				$XML_SEPA_INFO .= '				<LclInstrm>' . $CrLf;
				$XML_SEPA_INFO .= '					<Cd>' . $localInstrument . '</Cd>' . $CrLf;
				$XML_SEPA_INFO .= '				</LclInstrm>' . $CrLf;
				$XML_SEPA_INFO .= '				<SeqTp>' . $format . '</SeqTp>' . $CrLf;
				$XML_SEPA_INFO .= '			</PmtTpInf>' . $CrLf;
				$XML_SEPA_INFO .= '			<ReqdColltnDt>' . $dateTime_ETAD . '</ReqdColltnDt>' . $CrLf;
				$XML_SEPA_INFO .= '			<Cdtr>' . $CrLf;
				$XML_SEPA_INFO .= '				<Nm>' . dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($this->raison_sociale), ' '))) . '</Nm>' . $CrLf;
				$XML_SEPA_INFO .= '				<PstlAdr>' . $CrLf;
				$XML_SEPA_INFO .= '					<Ctry>' . $country[1] . '</Ctry>' . $CrLf;
				$addressline1 = strtr($configuration->global->MAIN_INFO_SOCIETE_ADDRESS, array(chr(13) => ", ", chr(10) => ""));
				$addressline2 = strtr($configuration->global->MAIN_INFO_SOCIETE_ZIP . (($configuration->global->MAIN_INFO_SOCIETE_ZIP || ' ' . $configuration->global->MAIN_INFO_SOCIETE_TOWN) ? ' ' : '') . $configuration->global->MAIN_INFO_SOCIETE_TOWN, array(chr(13) => ", ", chr(10) => ""));
				if ($addressline1) {
					$XML_SEPA_INFO .= '					<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline1), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
				}
				if ($addressline2) {
					$XML_SEPA_INFO .= '					<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline2), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
				}
				$XML_SEPA_INFO .= '				</PstlAdr>' . $CrLf;
				$XML_SEPA_INFO .= '			</Cdtr>' . $CrLf;
				$XML_SEPA_INFO .= '			<CdtrAcct>' . $CrLf;
				$XML_SEPA_INFO .= '				<Id>' . $CrLf;
				$XML_SEPA_INFO .= '					<IBAN>' . preg_replace('/\s/', '', $this->emetteur_iban) . '</IBAN>' . $CrLf;
				$XML_SEPA_INFO .= '				</Id>' . $CrLf;
				$XML_SEPA_INFO .= '			</CdtrAcct>' . $CrLf;
				$XML_SEPA_INFO .= '			<CdtrAgt>' . $CrLf;
				$XML_SEPA_INFO .= '				<FinInstnId>' . $CrLf;
				$XML_SEPA_INFO .= '					<BIC>' . $this->emetteur_bic . '</BIC>' . $CrLf;
				$XML_SEPA_INFO .= '				</FinInstnId>' . $CrLf;
				$XML_SEPA_INFO .= '			</CdtrAgt>' . $CrLf;
				/* $XML_SEPA_INFO .= '			<UltmtCdtr>'.$CrLf;
				 $XML_SEPA_INFO .= '				<Nm>'.dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($this->raison_sociale), ' '))).'</Nm>'.$CrLf;
				 $XML_SEPA_INFO .= '				<PstlAdr>'.$CrLf;
				 $XML_SEPA_INFO .= '					<Ctry>'.$country[1].'</Ctry>'.$CrLf;
				 $XML_SEPA_INFO .= '					<AdrLine>'.dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($conf->global->MAIN_INFO_SOCIETE_ADDRESS), ' '), 70, 'right', 'UTF-8', 1)).'</AdrLine>'.$CrLf;
				 $XML_SEPA_INFO .= '					<AdrLine>'.dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($conf->global->MAIN_INFO_SOCIETE_ZIP.' '.$conf->global->MAIN_INFO_SOCIETE_TOWN), ' '), 70, 'right', 'UTF-8', 1)).'</AdrLine>'.$CrLf;
				 $XML_SEPA_INFO .= '				</PstlAdr>'.$CrLf;
				 $XML_SEPA_INFO .= '			</UltmtCdtr>'.$CrLf;*/
				$XML_SEPA_INFO .= '			<ChrgBr>SLEV</ChrgBr>' . $CrLf; // Field "Responsible of fees". Must be SLEV
				$XML_SEPA_INFO .= '			<CdtrSchmeId>' . $CrLf;
				$XML_SEPA_INFO .= '				<Id>' . $CrLf;
				$XML_SEPA_INFO .= '					<PrvtId>' . $CrLf;
				$XML_SEPA_INFO .= '						<Othr>' . $CrLf;
				$XML_SEPA_INFO .= '							<Id>' . $this->emetteur_ics . '</Id>' . $CrLf;
				$XML_SEPA_INFO .= '							<SchmeNm>' . $CrLf;
				$XML_SEPA_INFO .= '								<Prtry>SEPA</Prtry>' . $CrLf;
				$XML_SEPA_INFO .= '							</SchmeNm>' . $CrLf;
				$XML_SEPA_INFO .= '						</Othr>' . $CrLf;
				$XML_SEPA_INFO .= '					</PrvtId>' . $CrLf;
				$XML_SEPA_INFO .= '				</Id>' . $CrLf;
				$XML_SEPA_INFO .= '			</CdtrSchmeId>' . $CrLf;
			} else {
				// SEPA Paiement Information of my company for Credit Transfer
				$XML_SEPA_INFO = '';
				$XML_SEPA_INFO .= '		<PmtInf>' . $CrLf;
				$XML_SEPA_INFO .= '			<PmtInfId>' . ('DOL/' . $dateTime_YMD . '/CT' . $IdBon . '-' . $RefBon) . '</PmtInfId>' . $CrLf;
				$XML_SEPA_INFO .= '			<PmtMtd>TRF</PmtMtd>' . $CrLf;
				//$XML_SEPA_INFO .= '			<BtchBookg>False</BtchBookg>'.$CrLf;
				$XML_SEPA_INFO .= '			<NbOfTxs>' . $nombre . '</NbOfTxs>' . $CrLf;
				$XML_SEPA_INFO .= '			<CtrlSum>' . $total . '</CtrlSum>' . $CrLf;
				if (!empty($this->sepa_xml_pti_in_ctti) && !empty($format)) {	// @TODO Using $format (FRST ou RCUR) in a section for a Credit Transfer looks strange.
					$XML_SEPA_INFO .= '			<PmtTpInf>' . $CrLf;
					$XML_SEPA_INFO .= '				<SvcLvl>' . $CrLf;
					$XML_SEPA_INFO .= '					<Cd>SEPA</Cd>' . $CrLf;
					$XML_SEPA_INFO .= '				</SvcLvl>' . $CrLf;
					$XML_SEPA_INFO .= '				<LclInstrm>' . $CrLf;
					$XML_SEPA_INFO .= '					<Cd>' . $localInstrument . '</Cd>' . $CrLf;
					$XML_SEPA_INFO .= '				</LclInstrm>' . $CrLf;
					$XML_SEPA_INFO .= '				<SeqTp>' . $format . '</SeqTp>' . $CrLf;
					$XML_SEPA_INFO .= '			</PmtTpInf>' . $CrLf;
				}
				$XML_SEPA_INFO .= '			<ReqdExctnDt>' . dol_print_date($dateTime_ETAD, 'dayrfc') . '</ReqdExctnDt>' . $CrLf;
				$XML_SEPA_INFO .= '			<Dbtr>' . $CrLf;
				$XML_SEPA_INFO .= '				<Nm>' . dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($this->raison_sociale), ' '))) . '</Nm>' . $CrLf;
				$XML_SEPA_INFO .= '				<PstlAdr>' . $CrLf;
				$XML_SEPA_INFO .= '					<Ctry>' . $country[1] . '</Ctry>' . $CrLf;
				$addressline1 = strtr($configuration->global->MAIN_INFO_SOCIETE_ADDRESS, array(chr(13) => ", ", chr(10) => ""));
				$addressline2 = strtr($configuration->global->MAIN_INFO_SOCIETE_ZIP . (($configuration->global->MAIN_INFO_SOCIETE_ZIP || ' ' . $configuration->global->MAIN_INFO_SOCIETE_TOWN) ? ' ' : '') . $configuration->global->MAIN_INFO_SOCIETE_TOWN, array(chr(13) => ", ", chr(10) => ""));
				if ($addressline1) {
					$XML_SEPA_INFO .= '					<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline1), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
				}
				if ($addressline2) {
					$XML_SEPA_INFO .= '					<AdrLine>' . dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($addressline2), ' '), 70, 'right', 'UTF-8', 1)) . '</AdrLine>' . $CrLf;
				}
				$XML_SEPA_INFO .= '				</PstlAdr>' . $CrLf;
				$XML_SEPA_INFO .= '			</Dbtr>' . $CrLf;
				$XML_SEPA_INFO .= '			<DbtrAcct>' . $CrLf;
				$XML_SEPA_INFO .= '				<Id>' . $CrLf;
				$XML_SEPA_INFO .= '					<IBAN>' . preg_replace('/\s/', '', $this->emetteur_iban) . '</IBAN>' . $CrLf;
				$XML_SEPA_INFO .= '				</Id>' . $CrLf;
				$XML_SEPA_INFO .= '			</DbtrAcct>' . $CrLf;
				$XML_SEPA_INFO .= '			<DbtrAgt>' . $CrLf;
				$XML_SEPA_INFO .= '				<FinInstnId>' . $CrLf;
				$XML_SEPA_INFO .= '					<BIC>' . $this->emetteur_bic . '</BIC>' . $CrLf;
				$XML_SEPA_INFO .= '				</FinInstnId>' . $CrLf;
				$XML_SEPA_INFO .= '			</DbtrAgt>' . $CrLf;
				/* $XML_SEPA_INFO .= '			<UltmtCdtr>'.$CrLf;
				 $XML_SEPA_INFO .= '				<Nm>'.dolEscapeXML(strtoupper(dol_string_nospecial(dol_string_unaccent($this->raison_sociale), ' '))).'</Nm>'.$CrLf;
				 $XML_SEPA_INFO .= '				<PstlAdr>'.$CrLf;
				 $XML_SEPA_INFO .= '					<Ctry>'.$country[1].'</Ctry>'.$CrLf;
				 $XML_SEPA_INFO .= '					<AdrLine>'.dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($conf->global->MAIN_INFO_SOCIETE_ADDRESS), ' '), 70, 'right', 'UTF-8', 1)).'</AdrLine>'.$CrLf;
				 $XML_SEPA_INFO .= '					<AdrLine>'.dolEscapeXML(dol_trunc(dol_string_nospecial(dol_string_unaccent($conf->global->MAIN_INFO_SOCIETE_ZIP.' '.$conf->global->MAIN_INFO_SOCIETE_TOWN), ' '), 70, 'right', 'UTF-8', 1)).'</AdrLine>'.$CrLf;
				 $XML_SEPA_INFO .= '				</PstlAdr>'.$CrLf;
				 $XML_SEPA_INFO .= '			</UltmtCdtr>'.$CrLf;*/
				$XML_SEPA_INFO .= '			<ChrgBr>SLEV</ChrgBr>' . $CrLf; // Field "Responsible of fees". Must be SLEV
				/*$XML_SEPA_INFO .= '			<CdtrSchmeId>'.$CrLf;
				 $XML_SEPA_INFO .= '				<Id>'.$CrLf;
				 $XML_SEPA_INFO .= '					<PrvtId>'.$CrLf;
				 $XML_SEPA_INFO .= '						<Othr>'.$CrLf;
				 $XML_SEPA_INFO .= '							<Id>'.$this->emetteur_ics.'</Id>'.$CrLf;
				 $XML_SEPA_INFO .= '							<SchmeNm>'.$CrLf;
				 $XML_SEPA_INFO .= '								<Prtry>SEPA</Prtry>'.$CrLf;
				 $XML_SEPA_INFO .= '							</SchmeNm>'.$CrLf;
				 $XML_SEPA_INFO .= '						</Othr>'.$CrLf;
				 $XML_SEPA_INFO .= '					</PrvtId>'.$CrLf;
				 $XML_SEPA_INFO .= '				</Id>'.$CrLf;
				 $XML_SEPA_INFO .= '			</CdtrSchmeId>'.$CrLf;*/
			}
		} else {
			fwrite($this->file, 'INCORRECT EMETTEUR ' . $this->raison_sociale . $CrLf);
			$XML_SEPA_INFO = '';
		}
		return $XML_SEPA_INFO;
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *	Write end
	 *
	 *	@param	int		$total	total amount
	 *	@return	void
	 */
	public function EnregTotal($total)
	{
		// phpcs:enable
		fwrite($this->file, "08");
		fwrite($this->file, "08"); // Prelevement ordinaire

		fwrite($this->file, "        "); // Zone Reservee B2

		fwrite($this->file, $this->emetteur_ics); // ICS

		// Reserve C1

		fwrite($this->file, substr("                           ", 0, 12));


		// Raison Sociale C2

		fwrite($this->file, substr("                           ", 0, 24));

		// D1

		fwrite($this->file, substr("                                    ", 0, 24));

		// Zone Reservee D2

		fwrite($this->file, substr("                             ", 0, 8));

		// Code Guichet  D3

		fwrite($this->file, substr("                             ", 0, 5));

		// Numero de compte D4

		fwrite($this->file, substr("                             ", 0, 11));

		// Zone E Montant

		$montant = ($total * 100);

		fwrite($this->file, substr("000000000000000" . $montant, -16));

		// Zone Reservee F

		fwrite($this->file, substr("                                        ", 0, 31));

		// Code etablissement

		fwrite($this->file, substr("                                        ", 0, 5));

		// Zone Reservee F

		fwrite($this->file, substr("                                        ", 0, 5));

		fwrite($this->file, "\n");
	}

	/**
	 *  Return status label of object
	 *
	 *  @param  int		$mode       0=long label, 1=short label, 2=Picto + short label, 3=Picto, 4=Picto + long label, 5=Short label + Picto, 6=Long label + Picto
	 * 	@return	string     			Label
	 */
	public function getLibStatut($mode = 0)
	{
		return $this->LibStatut($this->statut, $mode);
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *  Return status label for a status
	 *
	 *  @param	int		$status     Id status
	 *  @param  int		$mode       0=long label, 1=short label, 2=Picto + short label, 3=Picto, 4=Picto + long label, 5=Short label + Picto, 6=Long label + Picto
	 * 	@return	string  		    Label
	 */
	public function LibStatut($status, $mode = 0)
	{
		// phpcs:enable
		if (empty($this->labelStatus) || empty($this->labelStatusShort)) {
			global $langs;
			//$langs->load("mymodule");
			$this->labelStatus[self::STATUS_DRAFT] = $langs->transnoentitiesnoconv('StatusWaiting');
			$this->labelStatus[self::STATUS_TRANSFERED] = $langs->transnoentitiesnoconv('StatusTrans');
			$this->labelStatusShort[self::STATUS_DRAFT] = $langs->transnoentitiesnoconv('StatusWaiting');
			$this->labelStatusShort[self::STATUS_TRANSFERED] = $langs->transnoentitiesnoconv('StatusTrans');
			if ($this->type == 'bank-transfer') {
				$this->labelStatus[self::STATUS_DEBITED] = $langs->transnoentitiesnoconv('StatusDebited');
				$this->labelStatusShort[self::STATUS_DEBITED] = $langs->transnoentitiesnoconv('StatusDebited');
			} else {
				$this->labelStatus[self::STATUS_CREDITED] = $langs->transnoentitiesnoconv('StatusCredited');
				$this->labelStatusShort[self::STATUS_CREDITED] = $langs->transnoentitiesnoconv('StatusCredited');
			}
		}

		$statusType = 'status1';
		if ($status == self::STATUS_TRANSFERED) {
			$statusType = 'status3';
		}
		if ($status == self::STATUS_CREDITED || $status == self::STATUS_DEBITED) {
			$statusType = 'status6';
		}

		return dolGetStatus($this->labelStatus[$status], $this->labelStatusShort[$status], '', $statusType, $mode);
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
	/**
	 *      Load indicators for dashboard (this->nbtodo and this->nbtodolate)
	 *
	 *      @param      User	$user       	Object user
	 *      @param		string	$mode			Mode 'direct_debit' or 'credit_transfer'
	 *      @return 	WorkboardResponse|int 	Return integer <0 if KO, WorkboardResponse if OK
	 */
	public function load_board($user, $mode)
	{
		// phpcs:enable
		if ($user->socid) {
			return -1; // protection pour eviter appel par utilisateur externe
		}

		/*
		 if ($mode == 'direct_debit') {
		 $sql = "SELECT b.rowid, f.datedue as datefin";
		 $sql .= " FROM ".MAIN_DB_PREFIX."facture as f";
		 $sql .= " WHERE f.entity IN (".getEntity('facture').")";
		 $sql .= " AND f.total_ttc > 0";
		 } else {
		 $sql = "SELECT b.rowid, f.datedue as datefin";
		 $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f";
		 $sql .= " WHERE f.entity IN (".getEntity('facture_fourn').")";
		 $sql .= " AND f.total_ttc > 0";
		 }

		 $resql = $this->db->query($sql);
		 if ($resql) {
		 $langs->load("banks");
		 $now = dol_now();

		 $response = new WorkboardResponse();
		 if ($mode == 'direct_debit') {
		 $response->warning_delay = $conf->prelevement->warning_delay / 60 / 60 / 24;
		 $response->label = $langs->trans("PendingDirectDebitToComplete");
		 $response->labelShort = $langs->trans("PendingDirectDebitToCompleteShort");
		 $response->url = DOL_URL_ROOT.'/compta/prelevement/index.php?leftmenu=checks&mainmenu=bank';
		 } else {
		 $response->warning_delay = $conf->paymentbybanktransfer->warning_delay / 60 / 60 / 24;
		 $response->label = $langs->trans("PendingCreditTransferToComplete");
		 $response->labelShort = $langs->trans("PendingCreditTransferToCompleteShort");
		 $response->url = DOL_URL_ROOT.'/compta/paymentbybanktransfer/index.php?leftmenu=checks&mainmenu=bank';
		 }
		 $response->img = img_object('', "payment");

		 while ($obj = $this->db->fetch_object($resql)) {
		 $response->nbtodo++;

		 if ($this->db->jdate($obj->datefin) < ($now - $conf->withdraw->warning_delay)) {
		 $response->nbtodolate++;
		 }
		 }

		 $response->nbtodo = 0;
		 $response->nbtodolate = 0;
		 // Return workboard only if quantity is not 0
		 if ($response->nbtodo) {
		 return $response;
		 } else {
		 return 0;
		 }
		 } else {
		 dol_print_error($this->db);
		 $this->error = $this->db->error();
		 return -1;
		 }
		 */
		return 0;
	}

	/**
	 *	Return clickable link of object (with eventually picto)
	 *
	 *	@param      string	    			$option                 Where point the link (0=> main card, 1,2 => shipment, 'nolink'=>No link)
	 *  @param		?array{string,mixed}	$arraydata				Array of data
	 *  @return		string											HTML Code for Kanban thumb.
	 */
	public function getKanbanView($option = '', $arraydata = null)
	{
		global $langs;

		$selected = (empty($arraydata['selected']) ? 0 : $arraydata['selected']);

		$return = '<div class="box-flex-item box-flex-grow-zero">';
		$return .= '<div class="info-box info-box-sm">';
		$return .= '<span class="info-box-icon bg-infobox-action">';
		$return .= img_picto('', $this->picto);
		$return .= '</span>';
		$return .= '<div class="info-box-content">';
		$return .= '<span class="info-box-ref inline-block tdoverflowmax150 valignmiddle">' . (method_exists($this, 'getNomUrl') ? $this->getNomUrl(1) : $this->ref) . '</span>';
		if ($selected >= 0) {
			$return .= '<input id="cb' . $this->id . '" class="flat checkforselect fright" type="checkbox" name="toselect[]" value="' . $this->id . '"' . ($selected ? ' checked="checked"' : '') . '>';
		}
		if (property_exists($this, 'date_echeance')) {
			$return .= '<br><span class="opacitymedium">' . $langs->trans("Date") . '</span> : <span class="info-box-label">' . dol_print_date($this->db->jdate($this->date_echeance), 'day') . '</span>';
		}
		if (property_exists($this, 'total')) {
			$return .= '<br><span class="opacitymedium">' . $langs->trans("Amount") . '</span> : <span class="amount">' . price($this->total) . '</span>';
		}
		if (method_exists($this, 'LibStatut')) {
			$return .= '<br><div class="info-box-status">' . $this->getLibStatut(3) . '</div>';
		}
		$return .= '</div>';
		$return .= '</div>';
		$return .= '</div>';
		return $return;
	}

	/**
	 * Check if is bon prelevement for salary invoice
	 *
	 * @return  int  	1 if OK, O if K0
	 */
	public function checkIfSalaryBonPrelevement()
	{
		if (!empty($this->id)) {
			$id = $this->id;
		} else {
			return 0;
		}
		if ($id) {
			$sql = "SELECT COUNT(*) AS nb FROM " . MAIN_DB_PREFIX . "prelevement_lignes";
			$sql .= " WHERE fk_prelevement_bons = " . ((int) $id);
			$sql .= " AND fk_soc = 0";	// fk_soc can't be NULL
			$sql .= " AND fk_user IS NOT NULL";

			$num = 0;
			$resql = $this->db->query($sql);
			if ($resql) {
				$obj = $this->db->fetch_object($resql);
				$num = $obj->nb;
			}
			if ($num > 0) {
				return 1;
			}
		} else {
			dol_print_error($this->db);
		}

		return 0;
	}
}
