<?php
/* Copyright (C) 2001-2006  Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2017  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005       Marc Barilley / Ocebo   <marc@ocebo.com>
 * Copyright (C) 2005-2012  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2007       Franky Van Liedekerke   <franky.van.liedekerke@telenet.be>
 * Copyright (C) 2012       Cédric Salvador         <csalvador@gpcsolutions.fr>
 * Copyright (C) 2014       Raphaël Doursenaud      <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2014       Teddy Andreotti         <125155@supinfo.com>
 * Copyright (C) 2015       Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2018-2021  Frédéric France         <frederic.france@netlogic.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/paiement.php
 *	\ingroup    facture
 *	\brief      Payment page for customers invoices
 */

// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';

// Load translation files required by the page
$langs->loadLangs(array('companies', 'bills', 'banks', 'multicurrency'));

$action		= GETPOST('action', 'alpha');
$confirm	= GETPOST('confirm', 'alpha');

$facid = GETPOST('facid', 'int');
$accountid = GETPOST('accountid', 'int');
$paymentnum	= GETPOST('num_paiement', 'alpha');
$socid      = GETPOST('socid', 'int');

$sortfield	= GETPOST('sortfield', 'aZ09comma');
$sortorder	= GETPOST('sortorder', 'aZ09comma');
$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');

$amounts = array();
$amountsresttopay = array();
$addwarning = 0;

$multicurrency_amounts = array();
$multicurrency_amountsresttopay = array();

// Security check
if ($user->socid > 0) {
	$socid = $user->socid;
}

$object = new Facture($db);

// Load object
if ($facid > 0) {
	$ret = $object->fetch($facid);
}

// Initialize technical object to manage hooks of paiements. Note that conf->hooks_modules contains array array
$hookmanager->initHooks(array('paiementcard', 'globalcard'));

$formquestion = array();

$usercanissuepayment = !empty($user->rights->facture->paiement);

$fieldid = 'rowid';
$isdraft = (($object->statut == Facture::STATUS_DRAFT) ? 1 : 0);
$result = restrictedArea($user, 'facture', $object->id, '', '', 'fk_soc', $fieldid, $isdraft);


/*
 * Actions
 */

$parameters = array('socid'=>$socid);
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) {
	setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}

if (empty($reshook)) {
	if (($action == 'add_paiement' || ($action == 'confirm_paiement' && $confirm == 'yes')) && $usercanissuepayment) {
		$error = 0;

		$datepaye = dol_mktime(12, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int'));
		$paiement_id = 0;
		$totalpayment = 0;
		$multicurrency_totalpayment = 0;
		$atleastonepaymentnotnull = 0;
		$formquestion = array();
		$i = 0;

		// Generate payment array and check if there is payment higher than invoice and payment date before invoice date
		$tmpinvoice = new Facture($db);
		foreach ($_POST as $key => $value) {
			if (substr($key, 0, 7) == 'amount_' && GETPOST($key) != '') {
				$cursorfacid = substr($key, 7);
				$amounts[$cursorfacid] = price2num(GETPOST($key));
				$totalpayment = $totalpayment + $amounts[$cursorfacid];
				if (!empty($amounts[$cursorfacid])) {
					$atleastonepaymentnotnull++;
				}
				$result = $tmpinvoice->fetch($cursorfacid);
				if ($result <= 0) {
					dol_print_error($db);
				}
				$amountsresttopay[$cursorfacid] = price2num($tmpinvoice->total_ttc - $tmpinvoice->getSommePaiement());
				if ($amounts[$cursorfacid]) {
					// Check amount
					if ($amounts[$cursorfacid] && (abs($amounts[$cursorfacid]) > abs($amountsresttopay[$cursorfacid]))) {
						$addwarning = 1;
						$formquestion['text'] = img_warning($langs->trans("PaymentHigherThanReminderToPay")).' '.$langs->trans("HelpPaymentHigherThanReminderToPay");
					}
					// Check date
					if ($datepaye && ($datepaye < $tmpinvoice->date)) {
						$langs->load("errors");
						//$error++;
						setEventMessages($langs->transnoentities("WarningPaymentDateLowerThanInvoiceDate", dol_print_date($datepaye, 'day'), dol_print_date($tmpinvoice->date, 'day'), $tmpinvoice->ref), null, 'warnings');
					}
				}

				$formquestion[$i++] = array('type' => 'hidden', 'name' => $key, 'value' => GETPOST($key));
			} elseif (substr($key, 0, 21) == 'multicurrency_amount_') {
				$cursorfacid = substr($key, 21);
				$multicurrency_amounts[$cursorfacid] = price2num(GETPOST($key));
				$multicurrency_totalpayment += floatval($multicurrency_amounts[$cursorfacid]);
				if (!empty($multicurrency_amounts[$cursorfacid])) {
					$atleastonepaymentnotnull++;
				}
				$result = $tmpinvoice->fetch($cursorfacid);
				if ($result <= 0) {
					dol_print_error($db);
				}
				$multicurrency_amountsresttopay[$cursorfacid] = price2num($tmpinvoice->multicurrency_total_ttc - $tmpinvoice->getSommePaiement(1));
				if ($multicurrency_amounts[$cursorfacid]) {
					// Check amount
					if ($multicurrency_amounts[$cursorfacid] && (abs($multicurrency_amounts[$cursorfacid]) > abs($multicurrency_amountsresttopay[$cursorfacid]))) {
						$addwarning = 1;
						$formquestion['text'] = img_warning($langs->trans("PaymentHigherThanReminderToPay")).' '.$langs->trans("HelpPaymentHigherThanReminderToPay");
					}
					// Check date
					if ($datepaye && ($datepaye < $tmpinvoice->date)) {
						$langs->load("errors");
						//$error++;
						setEventMessages($langs->transnoentities("WarningPaymentDateLowerThanInvoiceDate", dol_print_date($datepaye, 'day'), dol_print_date($tmpinvoice->date, 'day'), $tmpinvoice->ref), null, 'warnings');
					}
				}

				$formquestion[$i++] = array('type' => 'hidden', 'name' => $key, 'value' => GETPOST($key, 'int'));
			}
		}

		// Check parameters
		if (!GETPOST('paiementcode')) {
			setEventMessages($langs->transnoentities('ErrorFieldRequired', $langs->transnoentities('PaymentMode')), null, 'errors');
			$error++;
		}

		if (isModEnabled("banque")) {
			// If bank module is on, account is required to enter a payment
			if (GETPOST('accountid') <= 0) {
				setEventMessages($langs->transnoentities('ErrorFieldRequired', $langs->transnoentities('AccountToCredit')), null, 'errors');
				$error++;
			}
		}

		if (empty($totalpayment) && empty($multicurrency_totalpayment) && empty($atleastonepaymentnotnull)) {
			setEventMessages($langs->transnoentities('ErrorFieldRequired', $langs->trans('PaymentAmount')), null, 'errors');
			$error++;
		}

		if (empty($datepaye)) {
			setEventMessages($langs->transnoentities('ErrorFieldRequired', $langs->transnoentities('Date')), null, 'errors');
			$error++;
		}

		// Check if payments in both currency
		if ($totalpayment > 0 && $multicurrency_totalpayment > 0) {
			$langs->load("errors");
			setEventMessages($langs->transnoentities('ErrorPaymentInBothCurrency'), null, 'errors');
			$error++;
		}
	}

	/*
	 * Action add_paiement
	 */
	if ($action == 'add_paiement') {
		if ($error) {
			$action = 'create';
		}
		// The next of this action is displayed at the page's bottom.
	}

	/*
	 * Action confirm_paiement
	 */
	if ($action == 'confirm_paiement' && $confirm == 'yes' && $usercanissuepayment) {
		$error = 0;

		$datepaye = dol_mktime(12, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int'), 'tzuser');

		$db->begin();

		$thirdparty = new Societe($db);
		if ($socid > 0) {
			$thirdparty->fetch($socid);
		}

		$multicurrency_code = array();

		// Clean parameters amount if payment is for a credit note
		foreach ($amounts as $key => $value) {	// How payment is dispatched
			$tmpinvoice = new Facture($db);
			$tmpinvoice->fetch($key);
			if ($tmpinvoice->type == Facture::TYPE_CREDIT_NOTE) {
				$newvalue = price2num($value, 'MT');
				$amounts[$key] = - abs($newvalue);
			}
			$multicurrency_code[$key] = $tmpinvoice->multicurrency_code;
		}

		foreach ($multicurrency_amounts as $key => $value) {	// How payment is dispatched
			$tmpinvoice = new Facture($db);
			$tmpinvoice->fetch($key);
			if ($tmpinvoice->type == Facture::TYPE_CREDIT_NOTE) {
				$newvalue = price2num($value, 'MT');
				$multicurrency_amounts[$key] = - abs($newvalue);
			}
			$multicurrency_code[$key] = $tmpinvoice->multicurrency_code;
		}

		if (isModEnabled("banque")) {
			// If the bank module is active, an account is required to input a payment
			if (GETPOST('accountid', 'int') <= 0) {
				setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentities('AccountToCredit')), null, 'errors');
				$error++;
			}
		}

		// Creation of payment line
		$paiement = new Paiement($db);
		$paiement->datepaye     = $datepaye;
		$paiement->amounts      = $amounts; // Array with all payments dispatching with invoice id
		$paiement->multicurrency_amounts = $multicurrency_amounts; // Array with all payments dispatching
		$paiement->multicurrency_code = $multicurrency_code; // Array with all currency of payments dispatching
		$paiement->paiementid   = dol_getIdFromCode($db, GETPOST('paiementcode'), 'c_paiement', 'code', 'id', 1);
		$paiement->num_payment  = GETPOST('num_paiement', 'alpha');
		$paiement->note_private = GETPOST('comment', 'alpha');
		$paiement->fk_account   = GETPOST('accountid', 'int');

		if (!$error) {
			// Create payment and update this->multicurrency_amounts if this->amounts filled or
			// this->amounts if this->multicurrency_amounts filled.
			// This also set ->amount and ->multicurrency_amount
			$paiement_id = $paiement->create($user, (GETPOST('closepaidinvoices') == 'on' ? 1 : 0), $thirdparty); // This include closing invoices and regenerating documents
			if ($paiement_id < 0) {
				setEventMessages($paiement->error, $paiement->errors, 'errors');
				$error++;
			}
		}

		if (!$error) {
			$label = '(CustomerInvoicePayment)';
			if (GETPOST('type') == Facture::TYPE_CREDIT_NOTE) {
				$label = '(CustomerInvoicePaymentBack)'; // Refund of a credit note
			}
			$result = $paiement->addPaymentToBank($user, 'payment', $label, GETPOST('accountid', 'int'), GETPOST('chqemetteur'), GETPOST('chqbank'));
			if ($result < 0) {
				setEventMessages($paiement->error, $paiement->errors, 'errors');
				$error++;
			}
		}

		if (!$error) {
			$db->commit();

			// If payment dispatching on more than one invoice, we stay on summary page, otherwise jump on invoice card
			$invoiceid = 0;
			foreach ($paiement->amounts as $key => $amount) {
				$facid = $key;
				if (is_numeric($amount) && $amount <> 0) {
					if ($invoiceid != 0) {
						$invoiceid = -1; // There is more than one invoice payed by this payment
					} else {
						$invoiceid = $facid;
					}
				}
			}
			if ($invoiceid > 0) {
				$loc = DOL_URL_ROOT.'/compta/facture/card.php?facid='.$invoiceid;
			} else {
				$loc = DOL_URL_ROOT.'/compta/paiement/card.php?id='.$paiement_id;
			}
			header('Location: '.$loc);
			exit;
		} else {
			$db->rollback();
		}
	}
}


/*
 * View
 */

$form = new Form($db);


llxHeader('', $langs->trans("Payment"));



if ($action == 'create' || $action == 'confirm_paiement' || $action == 'add_paiement') {
	$facture = new Facture($db);
	$result = $facture->fetch($facid);

	if ($result >= 0) {
		$facture->fetch_thirdparty();

		$title = '';
		if ($facture->type != Facture::TYPE_CREDIT_NOTE) {
			$title .= $langs->trans("EnterPaymentReceivedFromCustomer");
		}
		if ($facture->type == Facture::TYPE_CREDIT_NOTE) {
			$title .= $langs->trans("EnterPaymentDueToCustomer");
		}
		print load_fiche_titre($title);

		// Initialize data for confirmation (this is used because data can be change during confirmation)
		if ($action == 'add_paiement') {
			$i = 0;

			$formquestion[$i++] = array('type' => 'hidden', 'name' => 'facid', 'value' => $facture->id);
			$formquestion[$i++] = array('type' => 'hidden', 'name' => 'socid', 'value' => $facture->socid);
			$formquestion[$i++] = array('type' => 'hidden', 'name' => 'type', 'value' => $facture->type);
		}

		// Invoice with Paypal transaction
		// TODO add hook here
		if (!empty($conf->paypalplus->enabled) && $conf->global->PAYPAL_ENABLE_TRANSACTION_MANAGEMENT && !empty($facture->ref_ext)) {
			if (!empty($conf->global->PAYPAL_BANK_ACCOUNT)) {
				$accountid = $conf->global->PAYPAL_BANK_ACCOUNT;
			}
			$paymentnum = $facture->ref_ext;
		}

		// Add realtime total information
		if (!empty($conf->use_javascript_ajax)) {
			print "\n".'<script type="text/javascript">';
			print '$(document).ready(function () {
            			setPaiementCode();

            			$("#selectpaiementcode").change(function() {
            				setPaiementCode();
            			});

            			function setPaiementCode()
            			{
            				var code = $("#selectpaiementcode option:selected").val();
							console.log("setPaiementCode code="+code);

                            if (code == \'CHQ\' || code == \'VIR\')
            				{
            					if (code == \'CHQ\')
			                    {
			                        $(\'.fieldrequireddyn\').addClass(\'fieldrequired\');
			                    }
            					if ($(\'#fieldchqemetteur\').val() == \'\')
            					{
            						var emetteur = ('.$facture->type.' == '.Facture::TYPE_CREDIT_NOTE.') ? \''.dol_escape_js(dol_escape_htmltag($conf->global->MAIN_INFO_SOCIETE_NOM)).'\' : jQuery(\'#thirdpartylabel\').val();
            						$(\'#fieldchqemetteur\').val(emetteur);
            					}
            				}
            				else
            				{
            					$(\'.fieldrequireddyn\').removeClass(\'fieldrequired\');
            					$(\'#fieldchqemetteur\').val(\'\');
            				}
            			}

						function _elemToJson(selector)
						{
							var subJson = {};
							$.map(selector.serializeArray(), function(n,i)
							{
								subJson[n["name"]] = n["value"];
							});

							return subJson;
						}
						function callForResult(imgId)
						{
							var json = {};
							var form = $("#payment_form");

							json["invoice_type"] = $("#invoice_type").val();
            				json["amountPayment"] = $("#amountpayment").attr("value");
							json["amounts"] = _elemToJson(form.find("input.amount"));
							json["remains"] = _elemToJson(form.find("input.remain"));
							json["token"] = "'.currentToken().'";
							if (imgId != null) {
								json["imgClicked"] = imgId;
							}

							$.post("'.DOL_URL_ROOT.'/compta/ajaxpayment.php", json, function(data)
							{
								json = $.parseJSON(data);

								form.data(json);

								for (var key in json)
								{
									if (key == "result")	{
										if (json["makeRed"]) {
											$("#"+key).addClass("error");
										} else {
											$("#"+key).removeClass("error");
										}
										json[key]=json["label"]+" "+json[key];
										$("#"+key).text(json[key]);
									} else {console.log(key);
										form.find("input[name*=\""+key+"\"]").each(function() {
											$(this).attr("value", json[key]);
										});
									}
								}
							});
						}
						$("#payment_form").find("input.amount").change(function() {
							callForResult();
						});
						$("#payment_form").find("input.amount").keyup(function() {
							callForResult();
						});
			';

			print '	});'."\n";

			//Add js for AutoFill
			print ' $(document).ready(function () {';
			print ' 	$(".AutoFillAmout").on(\'click touchstart\', function(){
							$("input[name="+$(this).data(\'rowname\')+"]").val($(this).data("value")).trigger("change");
						});';
			print '	});'."\n";

			print '	</script>'."\n";
		}

		print '<form id="payment_form" name="add_paiement" action="'.$_SERVER["PHP_SELF"].'" method="POST">';
		print '<input type="hidden" name="token" value="'.newToken().'">';
		print '<input type="hidden" name="action" value="add_paiement">';
		print '<input type="hidden" name="facid" value="'.$facture->id.'">';
		print '<input type="hidden" name="socid" value="'.$facture->socid.'">';
		print '<input type="hidden" name="type" id="invoice_type" value="'.$facture->type.'">';
		print '<input type="hidden" name="thirdpartylabel" id="thirdpartylabel" value="'.dol_escape_htmltag($facture->thirdparty->name).'">';

		print dol_get_fiche_head();

		print '<table class="border centpercent">';

		// Third party
		print '<tr><td class="titlefieldcreate"><span class="fieldrequired">'.$langs->trans('Company').'</span></td><td>'.$facture->thirdparty->getNomUrl(4)."</td></tr>\n";

		// Date payment
		print '<tr><td><span class="fieldrequired">'.$langs->trans('Date').'</span></td><td>';
		$datepayment = dol_mktime(12, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int'));
		$datepayment = ($datepayment == '' ? (empty($conf->global->MAIN_AUTOFILL_DATE) ?-1 : '') : $datepayment);
		print $form->selectDate($datepayment, '', '', '', 0, "add_paiement", 1, 1, 0, '', '', $facture->date);
		print '</td></tr>';

		// Payment mode
		print '<tr><td><span class="fieldrequired">'.$langs->trans('PaymentMode').'</span></td><td>';
		$form->select_types_paiements((GETPOST('paiementcode') ?GETPOST('paiementcode') : $facture->mode_reglement_code), 'paiementcode', '', 2);
		print "</td>\n";
		print '</tr>';

		// Bank account
		print '<tr>';
		if (isModEnabled("banque")) {
			if ($facture->type != 2) {
				print '<td><span class="fieldrequired">'.$langs->trans('AccountToCredit').'</span></td>';
			}
			if ($facture->type == 2) {
				print '<td><span class="fieldrequired">'.$langs->trans('AccountToDebit').'</span></td>';
			}

			print '<td>';
			print img_picto('', 'bank_account');
			print $form->select_comptes($accountid, 'accountid', 0, '', 2, '', 0, 'widthcentpercentminusx maxwidth500', 1);
			print '</td>';
		} else {
			print '<td>&nbsp;</td>';
		}
		print "</tr>\n";

		// Bank check number
		print '<tr><td>'.$langs->trans('Numero');
		print ' <em class="opacitymedium">('.$langs->trans("ChequeOrTransferNumber").')</em>';
		print '</td>';
		print '<td><input name="num_paiement" type="text" class="maxwidth200" value="'.$paymentnum.'"></td></tr>';

		// Check transmitter
		print '<tr><td class="'.(GETPOST('paiementcode') == 'CHQ' ? 'fieldrequired ' : '').'fieldrequireddyn">'.$langs->trans('CheckTransmitter');
		print ' <em class="opacitymedium">('.$langs->trans("ChequeMaker").')</em>';
		print '</td>';
		print '<td><input id="fieldchqemetteur" class="maxwidth300" name="chqemetteur" type="text" value="'.GETPOST('chqemetteur', 'alphanohtml').'"></td></tr>';

		// Bank name
		print '<tr><td>'.$langs->trans('Bank');
		print ' <em class="opacitymedium">('.$langs->trans("ChequeBank").')</em>';
		print '</td>';
		print '<td><input name="chqbank" class="maxwidth300" type="text" value="'.GETPOST('chqbank', 'alphanohtml').'"></td></tr>';

		// Comments
		print '<tr><td>'.$langs->trans('Comments').'</td>';
		print '<td class="tdtop">';
		print '<textarea name="comment" wrap="soft" class="quatrevingtpercent" rows="'.ROWS_3.'">'.GETPOST('comment', 'restricthtml').'</textarea>';
		print '</td></tr>';

		print '</table>';

		print dol_get_fiche_end();


		/*
		 * List of unpaid invoices
		 */

		$sql = 'SELECT f.rowid as facid, f.ref, f.total_ttc, f.multicurrency_code, f.multicurrency_total_ttc, f.type,';
		$sql .= ' f.datef as df, f.fk_soc as socid, f.date_lim_reglement as dlr';
		$sql .= ' FROM '.MAIN_DB_PREFIX.'facture as f';
		$sql .= ' WHERE f.entity IN ('.getEntity('facture').')';
		$sql .= ' AND (f.fk_soc = '.((int) $facture->socid);
		// Can pay invoices of all child of parent company
		if (!empty($conf->global->FACTURE_PAYMENTS_ON_DIFFERENT_THIRDPARTIES_BILLS) && !empty($facture->thirdparty->parent)) {
			$sql .= ' OR f.fk_soc IN (SELECT rowid FROM '.MAIN_DB_PREFIX.'societe WHERE parent = '.((int) $facture->thirdparty->parent).')';
		}
		// Can pay invoices of all child of myself
		if (!empty($conf->global->FACTURE_PAYMENTS_ON_SUBSIDIARY_COMPANIES)) {
			$sql .= ' OR f.fk_soc IN (SELECT rowid FROM '.MAIN_DB_PREFIX.'societe WHERE parent = '.((int) $facture->thirdparty->id).')';
		}
		$sql .= ') AND f.paye = 0';
		$sql .= ' AND f.fk_statut = 1'; // Statut=0 => not validated, Statut=2 => canceled
		if ($facture->type != Facture::TYPE_CREDIT_NOTE) {
			$sql .= ' AND type IN (0,1,3,5)'; // Standard invoice, replacement, deposit, situation
		} else {
			$sql .= ' AND type = 2'; // If paying back a credit note, we show all credit notes
		}
		// Sort invoices by date and serial number: the older one comes first
		$sql .= ' ORDER BY f.datef ASC, f.ref ASC';

		$resql = $db->query($sql);
		if ($resql) {
			$num = $db->num_rows($resql);
			if ($num > 0) {
				$arraytitle = $langs->trans('Invoice');
				if ($facture->type == 2) {
					$arraytitle = $langs->trans("CreditNotes");
				}
				$alreadypayedlabel = $langs->trans('Received');
				$multicurrencyalreadypayedlabel = $langs->trans('MulticurrencyReceived');
				if ($facture->type == 2) {
					$alreadypayedlabel = $langs->trans("PaidBack");
					$multicurrencyalreadypayedlabel = $langs->trans("MulticurrencyPaidBack");
				}
				$remaindertopay = $langs->trans('RemainderToTake');
				$multicurrencyremaindertopay = $langs->trans('MulticurrencyRemainderToTake');
				if ($facture->type == 2) {
					$remaindertopay = $langs->trans("RemainderToPayBack");
					$multicurrencyremaindertopay = $langs->trans("MulticurrencyRemainderToPayBack");
				}

				$i = 0;
				//print '<tr><td colspan="3">';
				print '<br>';

				print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you dont need reserved height for your table
				print '<table class="noborder centpercent">';

				print '<tr class="liste_titre">';
				print '<td>'.$arraytitle.'</td>';
				print '<td class="center">'.$langs->trans('Date').'</td>';
				print '<td class="center">'.$langs->trans('DateMaxPayment').'</td>';
				if (isModEnabled('multicurrency')) {
					print '<td>'.$langs->trans('Currency').'</td>';
					print '<td class="right">'.$langs->trans('MulticurrencyAmountTTC').'</td>';
					print '<td class="right">'.$multicurrencyalreadypayedlabel.'</td>';
					print '<td class="right">'.$multicurrencyremaindertopay.'</td>';
					print '<td class="right">'.$langs->trans('MulticurrencyPaymentAmount').'</td>';
				}
				print '<td class="right">'.$langs->trans('AmountTTC').'</td>';
				print '<td class="right">'.$alreadypayedlabel.'</td>';
				print '<td class="right">'.$remaindertopay.'</td>';
				print '<td class="right">'.$langs->trans('PaymentAmount').'</td>';

				$parameters = array();
				$reshook = $hookmanager->executeHooks('printFieldListTitle', $parameters, $facture, $action); // Note that $action and $object may have been modified by hook

				print '<td align="right">&nbsp;</td>';
				print "</tr>\n";

				$total_ttc = 0;
				$totalrecu = 0;
				$totalrecucreditnote = 0;
				$totalrecudeposits = 0;

				while ($i < $num) {
					$objp = $db->fetch_object($resql);

					$sign = 1;
					if ($facture->type == Facture::TYPE_CREDIT_NOTE) {
						$sign = -1;
					}

					$soc = new Societe($db);
					$soc->fetch($objp->socid);

					$invoice = new Facture($db);
					$invoice->fetch($objp->facid);
					$paiement = $invoice->getSommePaiement();
					$creditnotes = $invoice->getSumCreditNotesUsed();
					$deposits = $invoice->getSumDepositsUsed();
					$alreadypayed = price2num($paiement + $creditnotes + $deposits, 'MT');
					$remaintopay = price2num($invoice->total_ttc - $paiement - $creditnotes - $deposits, 'MT');

					// Multicurrency Price
					if (isModEnabled('multicurrency')) {
						$multicurrency_payment = $invoice->getSommePaiement(1);
						$multicurrency_creditnotes = $invoice->getSumCreditNotesUsed(1);
						$multicurrency_deposits = $invoice->getSumDepositsUsed(1);
						$multicurrency_alreadypayed = price2num($multicurrency_payment + $multicurrency_creditnotes + $multicurrency_deposits, 'MT');
						$multicurrency_remaintopay = price2num($invoice->multicurrency_total_ttc - $multicurrency_payment - $multicurrency_creditnotes - $multicurrency_deposits, 'MT');
					}


					print '<tr class="oddeven'.(($invoice->id == $facid) ? ' highlight' : '').'">';

					print '<td class="nowraponall">';
					print $invoice->getNomUrl(1, '');
					if ($objp->socid != $facture->thirdparty->id) {
						print ' - '.$soc->getNomUrl(1).' ';
					}
					print "</td>\n";

					// Date
					print '<td class="center">'.dol_print_date($db->jdate($objp->df), 'day')."</td>\n";

					// Due date
					if ($objp->dlr > 0) {
						print '<td class="nowraponall center">';
						print dol_print_date($db->jdate($objp->dlr), 'day');

						if ($invoice->hasDelay()) {
							print img_warning($langs->trans('Late'));
						}

						print '</td>';
					} else {
						print '<td align="center"></td>';
					}

					// Currency
					if (isModEnabled('multicurrency')) {
						print '<td class="center">'.$objp->multicurrency_code."</td>\n";
					}

					// Multicurrency Price
					if (isModEnabled('multicurrency')) {
						print '<td class="right">';
						if ($objp->multicurrency_code && $objp->multicurrency_code != $conf->currency) {
							print price($sign * $objp->multicurrency_total_ttc);
						}
						print '</td>';

						// Multicurrency Price
						print '<td class="right">';
						if ($objp->multicurrency_code && $objp->multicurrency_code != $conf->currency) {
							print price($sign * $multicurrency_payment);
							if ($multicurrency_creditnotes) {
								print '+'.price($multicurrency_creditnotes);
							}
							if ($multicurrency_deposits) {
								print '+'.price($multicurrency_deposits);
							}
						}
						print '</td>';

						// Multicurrency remain to pay
						print '<td class="right">';
						if ($objp->multicurrency_code && $objp->multicurrency_code != $conf->currency) {
							print price($sign * $multicurrency_remaintopay);
						}
						print '</td>';

						print '<td class="right nowraponall">';

						// Add remind multicurrency amount
						$namef = 'multicurrency_amount_'.$objp->facid;
						$nameRemain = 'multicurrency_remain_'.$objp->facid;

						if ($objp->multicurrency_code && $objp->multicurrency_code != $conf->currency) {
							if ($action != 'add_paiement') {
								if (!empty($conf->use_javascript_ajax)) {
									print img_picto("Auto fill", 'rightarrow', "class='AutoFillAmout' data-rowname='".$namef."' data-value='".($sign * $multicurrency_remaintopay)."'");
								}
								print '<input type="text" class="maxwidth75 multicurrency_amount" name="'.$namef.'" value="'.GETPOST($namef).'">';
								print '<input type="hidden" class="multicurrency_remain" name="'.$nameRemain.'" value="'.$multicurrency_remaintopay.'">';
							} else {
								print '<input type="text" class="maxwidth75" name="'.$namef.'_disabled" value="'.GETPOST($namef).'" disabled>';
								print '<input type="hidden" name="'.$namef.'" value="'.GETPOST($namef).'">';
							}
						}
						print "</td>";
					}

					// Price
					print '<td class="right"><span class="amount">'.price($sign * $objp->total_ttc).'</span></td>';

					// Received + already paid
					print '<td class="right"><span class="amount">'.price($sign * $paiement);
					if ($creditnotes) {
						print '<span class="opacitymedium">+'.price($creditnotes).'</span>';
					}
					if ($deposits) {
						print '<span class="opacitymedium">+'.price($deposits).'</span>';
					}
					print '</span></td>';

					// Remain to take or to pay back
					print '<td class="right">';
					print price($sign * $remaintopay);
					if (!empty($conf->prelevement->enabled)) {
						$numdirectdebitopen = 0;
						$totaldirectdebit = 0;
						$sql = "SELECT COUNT(pfd.rowid) as nb, SUM(pfd.amount) as amount";
						$sql .= " FROM ".MAIN_DB_PREFIX."prelevement_demande as pfd";
						$sql .= " WHERE fk_facture = ".((int) $objp->facid);
						$sql .= " AND pfd.traite = 0";
						$sql .= " AND pfd.ext_payment_id IS NULL";

						$result_sql = $db->query($sql);
						if ($result_sql) {
							$obj = $db->fetch_object($result_sql);
							$numdirectdebitopen = $obj->nb;
							$totaldirectdebit = $obj->amount;
						} else {
							dol_print_error($db);
						}
						if ($numdirectdebitopen) {
							$langs->load("withdrawals");
							print img_warning($langs->trans("WarningSomeDirectDebitOrdersAlreadyExists", $numdirectdebitopen, price(price2num($totaldirectdebit, 'MT'), 0, $langs, 1, -1, -1, $conf->currency)), '', 'classfortooltip');
						}
					}
					print '</td>';
					//$test= price(price2num($objp->total_ttc - $paiement - $creditnotes - $deposits));

					// Amount
					print '<td class="right nowraponall">';

					// Add remind amount
					$namef = 'amount_'.$objp->facid;
					$nameRemain = 'remain_'.$objp->facid;

					if ($action != 'add_paiement') {
						if (!empty($conf->use_javascript_ajax)) {
							print img_picto("Auto fill", 'rightarrow', "class='AutoFillAmout' data-rowname='".$namef."' data-value='".($sign * $remaintopay)."'");
						}
						print '<input type="text" class="maxwidth75 amount" name="'.$namef.'" value="'.dol_escape_htmltag(GETPOST($namef)).'">';
						print '<input type="hidden" class="remain" name="'.$nameRemain.'" value="'.$remaintopay.'">';
					} else {
						print '<input type="text" class="maxwidth75" name="'.$namef.'_disabled" value="'.dol_escape_htmltag(GETPOST($namef)).'" disabled>';
						print '<input type="hidden" name="'.$namef.'" value="'.dol_escape_htmltag(GETPOST($namef)).'">';
					}
					print "</td>";

					$parameters = array();
					$reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $objp, $action); // Note that $action and $object may have been modified by hook

					// Warning
					print '<td align="center" width="16">';
					//print "xx".$amounts[$invoice->id]."-".$amountsresttopay[$invoice->id]."<br>";
					if (!empty($amounts[$invoice->id]) && (abs($amounts[$invoice->id]) > abs($amountsresttopay[$invoice->id]))
						|| !empty($multicurrency_amounts[$invoice->id]) && (abs($multicurrency_amounts[$invoice->id]) > abs($multicurrency_amountsresttopay[$invoice->id]))) {
						print ' '.img_warning($langs->trans("PaymentHigherThanReminderToPay"));
					}
					print '</td>';

					print "</tr>\n";

					$total_ttc += $objp->total_ttc;
					$totalrecu += $paiement;
					$totalrecucreditnote += $creditnotes;
					$totalrecudeposits += $deposits;
					$i++;
				}

				if ($i > 1) {
					// Print total
					print '<tr class="liste_total">';
					print '<td colspan="3" class="left">'.$langs->trans('TotalTTC').'</td>';
					if (isModEnabled('multicurrency')) {
						print '<td></td>';
						print '<td></td>';
						print '<td></td>';
						print '<td></td>';
						print '<td class="right" id="multicurrency_result" style="font-weight: bold;"></td>';
					}
					print '<td class="right"><b>'.price($sign * $total_ttc).'</b></td>';
					print '<td class="right"><b>'.price($sign * $totalrecu);
					if ($totalrecucreditnote) {
						print '+'.price($totalrecucreditnote);
					}
					if ($totalrecudeposits) {
						print '+'.price($totalrecudeposits);
					}
					print '</b></td>';
					print '<td class="right"><b>'.price($sign * price2num($total_ttc - $totalrecu - $totalrecucreditnote - $totalrecudeposits, 'MT')).'</b></td>';
					print '<td class="right" id="result" style="font-weight: bold;"></td>'; // Autofilled
					print '<td align="center">&nbsp;</td>';
					print "</tr>\n";
				}
				print "</table>";
				print "</div>\n";
			}
			$db->free($resql);
		} else {
			dol_print_error($db);
		}

		$formconfirm = '';

		// Save button
		if ($action != 'add_paiement') {
			$checkboxlabel = $langs->trans("ClosePaidInvoicesAutomatically");
			if ($facture->type == Facture::TYPE_CREDIT_NOTE) {
				$checkboxlabel = $langs->trans("ClosePaidCreditNotesAutomatically");
			}
			$buttontitle = $langs->trans('ToMakePayment');
			if ($facture->type == Facture::TYPE_CREDIT_NOTE) {
				$buttontitle = $langs->trans('ToMakePaymentBack');
			}

			print '<br><div class="center">';
			print '<input type="checkbox" checked name="closepaidinvoices"> '.$checkboxlabel;
			/*if (!empty($conf->prelevement->enabled))
			{
				$langs->load("withdrawals");
				if (!empty($conf->global->WITHDRAW_DISABLE_AUTOCREATE_ONPAYMENTS)) print '<br>'.$langs->trans("IfInvoiceNeedOnWithdrawPaymentWontBeClosed");
			}*/
			print '<br><input type="submit" class="button" value="'.dol_escape_htmltag($buttontitle).'"><br><br>';
			print '</div>';
		}

		// Form to confirm payment
		if ($action == 'add_paiement') {
			$preselectedchoice = $addwarning ? 'no' : 'yes';

			print '<br>';
			if (!empty($totalpayment)) {
				$text = $langs->trans('ConfirmCustomerPayment', $totalpayment, $langs->trans("Currency".$conf->currency));
			}
			if (!empty($multicurrency_totalpayment)) {
				$text .= '<br>'.$langs->trans('ConfirmCustomerPayment', $multicurrency_totalpayment, $langs->trans("paymentInInvoiceCurrency"));
			}
			if (GETPOST('closepaidinvoices')) {
				$text .= '<br>'.$langs->trans("AllCompletelyPayedInvoiceWillBeClosed");
				print '<input type="hidden" name="closepaidinvoices" value="'.GETPOST('closepaidinvoices').'">';
			}
			$formconfirm = $form->formconfirm($_SERVER['PHP_SELF'].'?facid='.$facture->id.'&socid='.$facture->socid.'&type='.$facture->type, $langs->trans('ReceivedCustomersPayments'), $text, 'confirm_paiement', $formquestion, $preselectedchoice);
		}

		// Call Hook formConfirm
		$parameters = array('formConfirm' => $formconfirm);
		$reshook = $hookmanager->executeHooks('formConfirm', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
		if (empty($reshook)) {
			$formconfirm .= $hookmanager->resPrint;
		} elseif ($reshook > 0) {
			$formconfirm = $hookmanager->resPrint;
		}

		// Print form confirm
		print $formconfirm;

		print "</form>\n";
	}
}


/**
 *  Show list of payments
 */
if (!GETPOST('action', 'aZ09')) {
	if (empty($page) || $page == -1) {
		$page = 0;
	}
	$limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
	$offset = $limit * $page;

	if (!$sortorder) {
		$sortorder = 'DESC';
	}
	if (!$sortfield) {
		$sortfield = 'p.datep';
	}

	$sql = 'SELECT p.datep as dp, p.amount, f.total_ttc as fa_amount, f.ref';
	$sql .= ', f.rowid as facid, c.libelle as paiement_type, p.num_paiement as num_payment';
	$sql .= ' FROM '.MAIN_DB_PREFIX.'paiement as p LEFT JOIN '.MAIN_DB_PREFIX.'c_paiement as c ON p.fk_paiement = c.id';
	$sql .= ', '.MAIN_DB_PREFIX.'facture as f';
	$sql .= ' WHERE p.fk_facture = f.rowid';
	$sql .= ' AND f.entity IN ('.getEntity('invoice').')';
	if ($socid) {
		$sql .= ' AND f.fk_soc = '.((int) $socid);
	}

	$sql .= $db->order($sortfield, $sortorder);
	$sql .= $db->plimit($limit + 1, $offset);
	$resql = $db->query($sql);

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

		print_barre_liste($langs->trans('Payments'), $page, $_SERVER["PHP_SELF"], '', $sortfield, $sortorder, '', $num);
		print '<table class="noborder centpercent">';
		print '<tr class="liste_titre">';
		print_liste_field_titre('Invoice', $_SERVER["PHP_SELF"], 'f.ref', '', '', '', $sortfield, $sortorder);
		print_liste_field_titre('Date', $_SERVER["PHP_SELF"], 'p.datep', '', '', '', $sortfield, $sortorder);
		print_liste_field_titre('Type', $_SERVER["PHP_SELF"], 'c.libelle', '', '', '', $sortfield, $sortorder);
		print_liste_field_titre('Amount', $_SERVER["PHP_SELF"], 'p.amount', '', '', '', $sortfield, $sortorder, 'right ');
		print_liste_field_titre('', $_SERVER["PHP_SELF"], "", '', '', '', $sortfield, $sortorder, 'maxwidthsearch ');
		print "</tr>\n";

		while ($i < min($num, $limit)) {
			$objp = $db->fetch_object($resql);

			print '<tr class="oddeven">';
			print '<td><a href="'.DOL_URL_ROOT.'/compta/facture/card.php?facid='.$objp->facid.'">'.$objp->ref."</a></td>\n";
			print '<td>'.dol_print_date($db->jdate($objp->dp))."</td>\n";
			print '<td>'.$objp->paiement_type.' '.$objp->num_payment."</td>\n";
			print '<td class="right"><span class="amount">'.price($objp->amount).'</span></td>';
			print '<td>&nbsp;</td>';
			print '</tr>';

			$parameters = array();
			$reshook = $hookmanager->executeHooks('printObjectLine', $parameters, $objp, $action); // Note that $action and $object may have been modified by hook

			$i++;
		}
		print '</table>';
	}
}

llxFooter();

$db->close();
