* Copyright (C) 2021-2024 Frédéric France * * 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 . * * Needs the following variables defined: * $object Proposal, order, invoice (including supplier versions) * $thirdparty Thirdparty of object * $absolute_discount Amount of fixed discounts available * $absolute_creditnote Amount of credit notes available * $discount_type 0 => Customer discounts, 1 => Supplier discounts * $cannotApplyDiscount Set it to prevent form to apply discount * $backtopage URL to come back to from discount modification pages */ print ''."\n"; $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; } // Relative and absolute discounts $addrelativediscount = ''.img_edit($langs->trans("EditRelativeDiscount")).''; $addabsolutediscount = ''.img_edit($langs->trans("EditGlobalDiscounts")).''; $viewabsolutediscount = ''.$langs->trans("ViewAvailableGlobalDiscounts").''; $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 ''.$langs->trans($translationKey).''; } // Add link to edit the relative discount print ' '.$addrelativediscount; // Is there is commercial discount or down payment available ? if ($absolute_discount > 0) { print ''; 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 '
'.$text; } else { print '

'.$text.'

'; } } else { // Discount available of type fixed amount (not credit note) $more = $addabsolutediscount; $form->form_remise_dispo($_SERVER["PHP_SELF"].'?facid='.$object->id, GETPOST('discountid'), 'remise_id', $thirdparty->id, $absolute_discount, $filterabsolutediscount, $resteapayer, $more, 0, $discount_type); } } // Is there credit notes availables ? if ($absolute_creditnote > 0) { print ''; // 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 '
'.$text; } else { print '

'.$text.'

'; } } 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 '
'.$langs->trans($translationKey).''; if ($isInvoice && $object->statut == $objclassname::STATUS_DRAFT && $object->type != $objclassname::TYPE_CREDIT_NOTE && $object->type != $objclassname::TYPE_DEPOSIT) { print ' '.$addabsolutediscount; } } print '';