* Copyright (C) 2007-2011 Laurent Destailleur * Copyright (C) 2009 Regis Houssin * Copyright (C) 2016 Juanjo Menent * Copyright (C) 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 . */ /** * \file htdocs/compta/paiement/cheque/index.php * \ingroup compta * \brief Home page for cheque receipts */ // Load Dolibarr environment require '../../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/compta/paiement/cheque/class/remisecheque.class.php'; require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php'; /** * @var Conf $conf * @var DoliDB $db * @var HookManager $hookmanager * @var Translate $langs * @var User $user */ // Load translation files required by the page $langs->loadLangs(array('banks', 'categories', 'compta', 'bills')); $checkdepositstatic = new RemiseCheque($db); $accountstatic = new Account($db); // Security check if ($user->socid) { $socid = $user->socid; } $result = restrictedArea($user, 'banque', '', ''); $usercancreate = $user->hasRight('banque', 'cheque'); // List of payment mode to support // Example: BANK_PAYMENT_MODES_FOR_DEPOSIT_MANAGEMENT = 'CHQ','TRA' $arrayofpaymentmodetomanage = explode(',', getDolGlobalString('BANK_PAYMENT_MODES_FOR_DEPOSIT_MANAGEMENT', 'CHQ')); /* * Actions */ // None /* * View */ if (getDolGlobalString('BANK_PAYMENT_MODES_FOR_DEPOSIT_MANAGEMENT', 'CHQ') == 'CHQ') { $title = $langs->trans("ChequesArea"); } else { $title = $langs->trans("DocumentsDepositArea"); } llxHeader('', $title); $newcardbutton = ''; if ($usercancreate) { $newcardbutton .= dolGetButtonTitle($langs->trans('NewDeposit'), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/compta/paiement/cheque/card.php?action=new'); } print load_fiche_titre($title, $newcardbutton, $checkdepositstatic->picto); print '
'; print '
'; print ''; print ''; print '\n"; print "\n"; foreach ($arrayofpaymentmodetomanage as $val) { $sql = "SELECT count(b.rowid) as nb"; $sql .= " FROM ".MAIN_DB_PREFIX."bank as b"; $sql .= ", ".MAIN_DB_PREFIX."bank_account as ba"; $sql .= " WHERE ba.rowid = b.fk_account"; $sql .= " AND ba.entity IN (".getEntity('bank_account').")"; $sql .= " AND b.fk_type = '".$db->escape($val)."'"; $sql .= " AND b.fk_bordereau = 0"; $sql .= " AND b.amount > 0"; $resql = $db->query($sql); if ($resql) { $num = ''; if ($obj = $db->fetch_object($resql)) { $num = $obj->nb; } print ''; print ''; print ''; } else { dol_print_error($db); } } print "
'.$langs->trans("DocumentsForDeposit")."
'; if ($val == 'CHQ') { print $langs->trans("BankChecks"); } else { print($langs->trans("PaymentType".$val) != "PaymentType".$val ? $langs->trans("PaymentType".$val) : $langs->trans("PaymentMode").' '.$val); } print ''; print ''.dol_escape_htmltag($num).''; print '
\n"; print '
'; $max = 10; foreach ($arrayofpaymentmodetomanage as $val) { $sql = "SELECT bc.rowid, bc.date_bordereau as db, bc.amount, bc.ref as ref,"; $sql .= " bc.statut as status, bc.nbcheque, bc.type,"; $sql .= " ba.ref as bref, ba.label, ba.rowid as bid, ba.number, ba.currency_code, ba.account_number, ba.fk_accountancy_journal,"; $sql .= " aj.code"; $sql .= " FROM ".MAIN_DB_PREFIX."bordereau_cheque as bc, ".MAIN_DB_PREFIX."bank_account as ba"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_journal as aj ON aj.rowid = ba.fk_accountancy_journal"; $sql .= " WHERE ba.rowid = bc.fk_bank_account"; $sql .= " AND bc.entity = ".((int) $conf->entity); $sql .= " AND bc.type = '".$db->escape($val)."'"; $sql .= " ORDER BY bc.date_bordereau DESC, rowid DESC"; $sql .= $db->plimit($max); $resql = $db->query($sql); if ($resql) { print '
'; // You can use div-table-responsive-no-min if you don't need reserved height for your table print ''; print ''; print ''; print '"; print ''; print ''; print ''; print ''; print "\n"; $i = 0; while ($objp = $db->fetch_object($resql)) { $i++; $checkdepositstatic->id = $objp->rowid; $checkdepositstatic->ref = ($objp->ref ? $objp->ref : $objp->rowid); $checkdepositstatic->statut = $objp->status; $checkdepositstatic->status = $objp->status; $accountstatic->id = $objp->bid; $accountstatic->ref = $objp->bref; $accountstatic->label = $objp->label; $accountstatic->number = $objp->number; $accountstatic->currency_code = $objp->currency_code; $accountstatic->account_number = $objp->account_number; $accountstatic->accountancy_journal = $objp->code; $accountstatic->fk_accountancy_journal = $objp->fk_accountancy_journal; print ''."\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; } if ($i == 0) { print ''; } print "
'; if ($val == 'CHQ') { print $langs->trans("LastCheckReceiptShort", $max); } else { $labelpaymentmode = ($langs->trans("PaymentType".$val) != "PaymentType".$val ? $langs->trans("PaymentType".$val) : $val); print $langs->trans("LastPaymentForDepositShort", $max, $labelpaymentmode); } print ''.$langs->trans("Date")."'.$langs->trans("BankAccount").''.$langs->trans("NbOfCheques").''.$langs->trans("Amount").''.$langs->trans("Status").'
'.$checkdepositstatic->getNomUrl(1).''.dol_print_date($db->jdate($objp->db), 'day').''.$accountstatic->getNomUrl(1).''.dol_escape_htmltag($objp->nbcheque).''.price($objp->amount).''.$checkdepositstatic->LibStatut($objp->status, 3).'
'.$langs->trans("None").'
"; print '
'; $db->free($resql); } else { dol_print_error($db); } } print '
'; // End of page llxFooter(); $db->close();