<?php

/* Copyright (C) 2018		ATM Consulting		<support@atm-consulting.fr>
 * Copyright (C) 2021-2024  Frédéric France     <frederic.france@free.fr>
 * Copyright (C) 2025		MDW					<mdeweerd@users.noreply.github.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 *
 * Needs the following variables defined:
 * $object					Proposal, order, invoice (including supplier versions)
 * $thirdparty				Third party of object
 * $discount_type			0 => Customer discounts, 1 => Supplier discounts
 * $backtopage				URL to come back to from discount modification pages
 */

/**
 * @var	Conf		$conf
 * @var Form 		$form
 * @var Object		$object
 * @var Translate 	$langs
 * @var Societe		$thirdparty
 * @var string		$backtopage
 *
 * @var	float		$absolute_discount				Amount of fixed discounts available
 * @var	float		$absolute_creditnote			Amount of credit notes available
 * @var int			$nb_creditnote_notyetavailable	Nb of cedit notes not yet available (not yet converted into discount)
 * @var	string		$filterabsolutediscount
 * @var	string		$filtercreditnote
 * @var	string		$resteapayer
 * @var int			$cannotApplyDiscount
 * @var	int			$discount_type
 */

print '<!-- BEGIN object_discounts.tpl.php -->'."\n";

'
@phan-var-force Propal|Commande|CommandeFournisseur|Facture|FactureFournisseur $object
@phan-var-force Societe 	$thirdparty
@phan-var-force string 		$backtopage
@phan-var-force string 		$filtercreditnote
@phan-var-force string 		$filterabsolutediscount
@phan-var-force int<0,1> 	$discount_type
@phan-var-force int 		$resteapayer
';

$objclassname = get_class($object);
$isInvoice = in_array($object->element, array('facture', 'invoice', 'facture_fourn', 'invoice_supplier'));
$isNewObject = empty($object->id) && empty($object->rowid);

// Clean variables not defined
if (empty($absolute_discount)) {
	$absolute_discount = 0;
}
if (empty($absolute_creditnote)) {
	$absolute_creditnote = 0;
}
if (empty($nb_creditnote_notyetavailable)) {
	$nb_creditnote_notyetavailable = 0;
}


// Relative and absolute discounts
$addrelativediscount = '<a class="editfielda" href="'.DOL_URL_ROOT.'/comm/remise.php?id='.((int) $thirdparty->id).'&backtopage='.urlencode($backtopage).'&action=create&token='.newToken().(!empty($discount_type) ? '&discount_type=1' : '').'">'.img_edit($langs->trans("EditRelativeDiscount")).'</a>';
$addabsolutediscount = '<a class="editfielda" href="'.DOL_URL_ROOT.'/comm/remx.php?id='.((int) $thirdparty->id).'&backtopage='.urlencode($backtopage).'&action=create&token='.newToken().'">'.img_edit($langs->trans("EditGlobalDiscounts")).'</a>';
$viewabsolutediscount = '<a class="editfielda" href="'.DOL_URL_ROOT.'/comm/remx.php?id='.((int) $thirdparty->id).'&backtopage='.urlencode($backtopage).'">'.$langs->trans("ViewAvailableGlobalDiscounts").'</a>';

$fixedDiscount = $thirdparty->remise_percent;
if (!empty($discount_type)) {
	$fixedDiscount = $thirdparty->remise_supplier_percent;
}

if ($fixedDiscount > 0) {
	$translationKey = (empty($discount_type)) ? 'CompanyHasRelativeDiscount' : 'HasRelativeDiscountFromSupplier';
	print $langs->trans($translationKey, $fixedDiscount);
} else {
	if ($conf->dol_optimize_smallscreen) {
		$translationKey = 'RelativeDiscount';
	} else {
		$translationKey = (empty($discount_type)) ? 'CompanyHasNoRelativeDiscount' : 'HasNoRelativeDiscountFromSupplier';
	}
	print '<span class="opacitymedium">'.$langs->trans($translationKey).'</span>';
}
// Add link to edit the relative discount
print ' '.$addrelativediscount;


// Is there is commercial discount or down payment available ?
if ($absolute_discount > 0) {
	print '<!-- absolute_discount -->';
	if (!empty($cannotApplyDiscount) || !$isInvoice || $isNewObject || $object->statut > $objclassname::STATUS_DRAFT || $object->type == $objclassname::TYPE_CREDIT_NOTE || $object->type == $objclassname::TYPE_DEPOSIT) {
		$translationKey = empty($discount_type) ? 'CompanyHasDownPaymentOrCommercialDiscount' : 'HasDownPaymentOrCommercialDiscountFromSupplier';
		$text = $langs->trans($translationKey, price($absolute_discount, 0, $langs, 1, -1, -1, $conf->currency));

		if ($isInvoice && !$isNewObject && $object->statut > $objclassname::STATUS_DRAFT && $object->type != $objclassname::TYPE_CREDIT_NOTE && $object->type != $objclassname::TYPE_DEPOSIT) {
			$text = $form->textwithpicto($text, $langs->trans('AbsoluteDiscountUse'));
		}
		if ($isNewObject) {
			$text .= ' '.$addabsolutediscount;
		}

		if ($isNewObject) {
			print '<br>'.$text;
		} else {
			print '<div class="inline-block clearboth">'.$text.'</div>';
		}
	} else {
		// Discount available of type fixed amount (not credit note)
		$more = $addabsolutediscount;
		// TODO: Check $resteapayer - is '$maxvalue' in form_remise_dispo()
		$form->form_remise_dispo($_SERVER["PHP_SELF"].'?facid='.$object->id, GETPOSTINT('discountid'), 'remise_id', $thirdparty->id, $absolute_discount, $filterabsolutediscount, $resteapayer, $more, 0, $discount_type);
	}
}


// Is there credit notes availables ?
if ($absolute_creditnote > 0) {
	print '<!-- absolute_creditnote -->';
	// If validated, we show link "add credit note to payment"
	if (!empty($cannotApplyDiscount) || !$isInvoice || $isNewObject || $object->statut != $objclassname::STATUS_VALIDATED || $object->type == $objclassname::TYPE_CREDIT_NOTE) {
		$translationKey = empty($discount_type) ? 'CompanyHasCreditNote' : 'HasCreditNoteFromSupplier';
		$text = $langs->trans($translationKey, price($absolute_creditnote, 0, $langs, 1, -1, -1, $conf->currency));

		if ($isInvoice && !$isNewObject && $object->statut == $objclassname::STATUS_DRAFT && $object->type != $objclassname::TYPE_DEPOSIT) {
			$text = $form->textwithpicto($text, $langs->trans('CreditNoteDepositUse'));
		}

		if ($absolute_discount <= 0 || $isNewObject) {
			$text .= ' '.$addabsolutediscount;
		}

		if ($isNewObject) {
			print '<br>'.$text;
		} else {
			print '<div class="inline-block clearboth">'.$text.'</div>';
		}
	} else {  // We can add a credit note on a down payment or standard invoice or situation invoice
		// There is credit notes discounts available
		$more = $isInvoice && !$isNewObject ? ' ('.$viewabsolutediscount.')' : '';
		$form->form_remise_dispo($_SERVER["PHP_SELF"].'?facid='.$object->id, 0, 'remise_id_for_payment', $thirdparty->id, $absolute_creditnote, $filtercreditnote, 0, $more, 0, $discount_type); // We allow credit note even if amount is higher
	}
}

if ($absolute_discount <= 0 && $absolute_creditnote <= 0) {
	if ($conf->dol_optimize_smallscreen) {
		$translationKey = 'AbsoluteDiscount';
	} else {
		$translationKey = !empty($discount_type) ? 'HasNoAbsoluteDiscountFromSupplier' : 'CompanyHasNoAbsoluteDiscount';
	}
	print '<br><span class="opacitymedium">'.$langs->trans($translationKey).'</span>';

	if ($isInvoice && $object->statut == $objclassname::STATUS_DRAFT && $object->type != $objclassname::TYPE_CREDIT_NOTE && $object->type != $objclassname::TYPE_DEPOSIT) {
		print ' '.$addabsolutediscount;
	}
}

if ($nb_creditnote_notyetavailable > 0) {
	print '<!-- absolute_creditnote not yet converted -->';
	$translationKey = 'SomeNotConvertedCreditNoteExists';
	print '<br><span class="opacitymedium">'.$langs->trans($translationKey, $nb_creditnote_notyetavailable).'</span>';
}

print '<!-- END template -->';
