forked from Wavyzz/dolibarr
63b2fff4a7
* Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored
316 lines
12 KiB
PHP
316 lines
12 KiB
PHP
<?php
|
|
/* Copyright (C) 2001-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004-2014 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2005-2010 Regis Houssin <regis.houssin@inodbox.com>
|
|
* Copyright (C) 2011-2023 Alexandre Spangaro <aspangaro@easya.solutions>
|
|
* Copyright (C) 2011-2014 Juanjo Menent <jmenent@2byte.es>
|
|
* Copyright (C) 2015 Jean-François Ferry <jfefe@aternatik.fr>
|
|
* Copyright (C) 2021 Gauthier VERDOL <gauthier.verdol@atm-consulting.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/tva/payments.php
|
|
* \ingroup compta
|
|
* \brief Page to list payments of special expenses
|
|
*/
|
|
|
|
// Load Dolibarr environment
|
|
require '../../main.inc.php';
|
|
require_once DOL_DOCUMENT_ROOT . '/compta/tva/class/tva.class.php';
|
|
require_once DOL_DOCUMENT_ROOT . '/compta/tva/class/tva.class.php';
|
|
require_once DOL_DOCUMENT_ROOT . '/compta/tva/class/paymentvat.class.php';
|
|
require_once DOL_DOCUMENT_ROOT . '/compta/bank/class/account.class.php';
|
|
require_once DOL_DOCUMENT_ROOT . '/salaries/class/paymentsalary.class.php';
|
|
require_once DOL_DOCUMENT_ROOT . '/core/lib/date.lib.php';
|
|
|
|
// Load translation files required by the page
|
|
$langs->loadLangs(array('compta', 'bills'));
|
|
|
|
$mode = GETPOST("mode", 'alpha');
|
|
$year = GETPOSTINT("year");
|
|
$filtre = GETPOST("filtre", 'alpha');
|
|
$optioncss = GETPOST('optioncss', 'alpha');
|
|
if (!$year && $mode != 'tvaonly') {
|
|
$year = date("Y", time());
|
|
}
|
|
|
|
$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
|
|
$sortfield = GETPOST('sortfield', 'aZ09comma');
|
|
$sortorder = GETPOST('sortorder', 'aZ09comma');
|
|
$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
|
|
if (empty($page) || $page == -1) {
|
|
$page = 0;
|
|
} // If $page is not defined, or '' or -1
|
|
$offset = $limit * $page;
|
|
$pageprev = $page - 1;
|
|
$pagenext = $page + 1;
|
|
if (!$sortfield) {
|
|
$sortfield = "ptva.datep";
|
|
}
|
|
if (!$sortorder) {
|
|
$sortorder = "DESC";
|
|
}
|
|
|
|
$object = new Tva($db);
|
|
|
|
// Security check
|
|
if ($user->socid) {
|
|
$socid = $user->socid;
|
|
}
|
|
//$result = restrictedArea($user, 'tax|salaries', '', '', 'charges|');
|
|
$result = restrictedArea($user, 'tax', '', 'tva', 'charges');
|
|
|
|
|
|
/*
|
|
* View
|
|
*/
|
|
|
|
$tva_static = new Tva($db);
|
|
$tva = new Tva($db);
|
|
$accountlinestatic = new AccountLine($db);
|
|
$payment_vat_static = new PaymentVAT($db);
|
|
$sal_static = new PaymentSalary($db);
|
|
|
|
llxHeader('', $langs->trans("VATExpensesArea"));
|
|
|
|
$title = $langs->trans("VATPayments");
|
|
|
|
$param = '';
|
|
if (!empty($contextpage) && $contextpage != $_SERVER["PHP_SELF"]) {
|
|
$param .= '&contextpage=' . $contextpage;
|
|
}
|
|
if ($limit > 0 && $limit != $conf->liste_limit) {
|
|
$param .= '&limit=' . $limit;
|
|
}
|
|
if ($sortfield) {
|
|
$param .= '&sortfield=' . $sortfield;
|
|
}
|
|
if ($sortorder) {
|
|
$param .= '&sortorder=' . $sortorder;
|
|
}
|
|
|
|
$center = '';
|
|
|
|
if ($year) {
|
|
$param .= '&year=' . $year;
|
|
}
|
|
|
|
$sql = "SELECT tva.rowid, tva.label as label, b.fk_account, ptva.fk_bank";
|
|
$sql .= ", tva.datev";
|
|
$sql .= ", tva.amount as total,";
|
|
$sql .= " ptva.rowid as pid, ptva.datep, ptva.amount as totalpaid, ptva.num_paiement as num_payment,";
|
|
$sql .= " pct.code as payment_code";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "tva as tva,";
|
|
$sql .= " " . MAIN_DB_PREFIX . "payment_vat as ptva";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "bank as b ON (b.rowid = ptva.fk_bank)";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "bank_account as bank ON (bank.rowid = b.fk_account)";
|
|
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "c_paiement as pct ON ptva.fk_typepaiement = pct.id";
|
|
$sql .= " WHERE ptva.fk_tva = tva.rowid";
|
|
$sql .= " AND tva.entity = " . $conf->entity;
|
|
if ($year > 0) {
|
|
$sql .= " AND (";
|
|
// Si period renseignee on l'utilise comme critere de date, sinon on prend date echeance,
|
|
// ceci afin d'etre compatible avec les cas ou la periode n'etait pas obligatoire
|
|
$sql .= " (tva.datev IS NOT NULL AND tva.datev between '" . $db->idate(dol_get_first_day($year)) . "' AND '" . $db->idate(dol_get_last_day($year)) . "')";
|
|
$sql .= " OR (tva.datev IS NULL AND tva.datev between '" . $db->idate(dol_get_first_day($year)) . "' AND '" . $db->idate(dol_get_last_day($year)) . "')";
|
|
$sql .= ")";
|
|
}
|
|
if (preg_match('/^cs\./', $sortfield)
|
|
|| preg_match('/^tva\./', $sortfield)
|
|
|| preg_match('/^ptva\./', $sortfield)
|
|
|| preg_match('/^pct\./', $sortfield)
|
|
|| preg_match('/^bank\./', $sortfield)) {
|
|
$sql .= $db->order($sortfield, $sortorder);
|
|
}
|
|
//$sql.= $db->plimit($limit+1,$offset);
|
|
//print $sql;
|
|
|
|
dol_syslog("compta/tva/payments.php: select payment", LOG_DEBUG);
|
|
$resql = $db->query($sql);
|
|
if ($resql) {
|
|
$num = $db->num_rows($resql);
|
|
} else {
|
|
setEventMessages($db->lasterror, null, 'errors');
|
|
}
|
|
|
|
// @phan-suppress-next-line PhanPluginSuspiciousParamPosition
|
|
print_barre_liste($title, $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $center, $num, $num, 'title_accountancy', 0, '', '', $limit);
|
|
|
|
if (isModEnabled('tax') && $user->hasRight('tax', 'charges', 'lire')) {
|
|
print '<form method="POST" action="' . $_SERVER["PHP_SELF"] . '">';
|
|
if ($optioncss != '') {
|
|
print '<input type="hidden" name="optioncss" value="' . $optioncss . '">';
|
|
}
|
|
print '<input type="hidden" name="token" value="' . newToken() . '">';
|
|
print '<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
|
|
print '<input type="hidden" name="sortfield" value="' . $sortfield . '">';
|
|
print '<input type="hidden" name="sortorder" value="' . $sortorder . '">';
|
|
print '<input type="hidden" name="page" value="' . $page . '">';
|
|
print '<input type="hidden" name="mode" value="' . $mode . '">';
|
|
|
|
print '<div class="div-table-responsive">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
|
|
print '<table class="noborder centpercent">';
|
|
print '<tr class="liste_titre">';
|
|
print_liste_field_titre("RefPayment", $_SERVER["PHP_SELF"], "ptva.rowid", "", $param, '', $sortfield, $sortorder);
|
|
print_liste_field_titre("VATDeclaration", $_SERVER["PHP_SELF"], "tva.rowid", "", $param, '', $sortfield, $sortorder);
|
|
print_liste_field_titre("Label", $_SERVER["PHP_SELF"], "tva.label", "", $param, '', $sortfield, $sortorder);
|
|
print_liste_field_titre("PeriodEndDate", $_SERVER["PHP_SELF"], "tva.datev", "", $param, '', $sortfield, $sortorder, 'nowraponall');
|
|
print_liste_field_titre("DatePayment", $_SERVER["PHP_SELF"], "ptva.datep", "", $param, 'align="center"', $sortfield, $sortorder);
|
|
print_liste_field_titre("PaymentMode", $_SERVER["PHP_SELF"], "pct.code", "", $param, '', $sortfield, $sortorder);
|
|
print_liste_field_titre("Numero", $_SERVER["PHP_SELF"], "ptva.num_paiement", "", $param, '', $sortfield, $sortorder, '', 'ChequeOrTransferNumber');
|
|
if (isModEnabled("bank")) {
|
|
print_liste_field_titre("BankTransactionLine", $_SERVER["PHP_SELF"], "ptva.fk_bank", "", $param, '', $sortfield, $sortorder);
|
|
print_liste_field_titre("BankAccount", $_SERVER["PHP_SELF"], "bank.ref", "", $param, '', $sortfield, $sortorder);
|
|
}
|
|
//print_liste_field_titre("TypeContrib", $_SERVER["PHP_SELF"], "tva.fk_type", "", $param, '', $sortfield, $sortorder);
|
|
print_liste_field_titre("ExpectedToPay", $_SERVER["PHP_SELF"], "tva.amount", "", $param, 'class="right"', $sortfield, $sortorder);
|
|
print_liste_field_titre("PayedByThisPayment", $_SERVER["PHP_SELF"], "ptva.amount", "", $param, 'class="right"', $sortfield, $sortorder);
|
|
print "</tr>\n";
|
|
|
|
$sql = "SELECT tva.rowid, tva.label as label, b.fk_account, ptva.fk_bank";
|
|
$sql .= ", tva.datev";
|
|
$sql .= ", tva.amount as total,";
|
|
$sql .= " ptva.rowid as pid, ptva.datep, ptva.amount as totalpaid, ptva.num_paiement as num_payment,";
|
|
$sql .= " pct.code as payment_code";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "tva as tva,";
|
|
$sql .= " " . MAIN_DB_PREFIX . "payment_vat as ptva";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "bank as b ON (b.rowid = ptva.fk_bank)";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "bank_account as bank ON (bank.rowid = b.fk_account)";
|
|
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "c_paiement as pct ON ptva.fk_typepaiement = pct.id";
|
|
$sql .= " WHERE ptva.fk_tva = tva.rowid";
|
|
$sql .= " AND tva.entity = " . $conf->entity;
|
|
if ($year > 0) {
|
|
$sql .= " AND (";
|
|
// Si period renseignee on l'utilise comme critere de date, sinon on prend date echeance,
|
|
// ceci afin d'etre compatible avec les cas ou la periode n'etait pas obligatoire
|
|
$sql .= " (tva.datev IS NOT NULL AND tva.datev between '" . $db->idate(dol_get_first_day($year)) . "' AND '" . $db->idate(dol_get_last_day($year)) . "')";
|
|
$sql .= " OR (tva.datev IS NULL AND tva.datev between '" . $db->idate(dol_get_first_day($year)) . "' AND '" . $db->idate(dol_get_last_day($year)) . "')";
|
|
$sql .= ")";
|
|
}
|
|
if (preg_match('/^cs\./', $sortfield)
|
|
|| preg_match('/^tva\./', $sortfield)
|
|
|| preg_match('/^ptva\./', $sortfield)
|
|
|| preg_match('/^pct\./', $sortfield)
|
|
|| preg_match('/^bank\./', $sortfield)) {
|
|
$sql .= $db->order($sortfield, $sortorder);
|
|
}
|
|
|
|
if ($num) {
|
|
$num = $db->num_rows($resql);
|
|
$i = 0;
|
|
$total = 0;
|
|
$totalnb = 0;
|
|
$totalpaid = 0;
|
|
|
|
while ($i < min($num, $limit)) {
|
|
$obj = $db->fetch_object($resql);
|
|
|
|
$tva->id = $obj->rowid;
|
|
$tva->ref = $obj->rowid;
|
|
$tva->label = $obj->label;
|
|
|
|
$payment_vat_static->id = $obj->pid;
|
|
$payment_vat_static->ref = $obj->pid;
|
|
|
|
print '<tr class="oddeven">';
|
|
|
|
// Ref payment
|
|
print '<td>' . $payment_vat_static->getNomUrl(1) . "</td>\n";
|
|
|
|
// VAT
|
|
print '<td>';
|
|
print $tva->getNomUrl(1, '20');
|
|
print '</td>';
|
|
|
|
// Label
|
|
print '<td class="tdoverflowmax150" title="' . dol_escape_htmltag($obj->label) . '">' . dol_escape_htmltag($obj->label) . '</td>';
|
|
|
|
// Date
|
|
$date = $db->jdate($obj->datev);
|
|
print '<td class="center nowraponall">' . dol_print_date($date, 'day') . '</td>';
|
|
|
|
// Date payment
|
|
$datep = $db->jdate($obj->datep);
|
|
print '<td class="center nowraponalls">' . dol_print_date($datep, 'day') . '</td>';
|
|
|
|
// Type payment
|
|
$labelpaymenttype = '';
|
|
if ($obj->payment_code) {
|
|
$labelpaymenttype = $langs->trans("PaymentTypeShort" . $obj->payment_code) . ' ';
|
|
}
|
|
|
|
print '<td class="tdoverflowmax100" title="' . dol_escape_htmltag($labelpaymenttype) . '">';
|
|
print dol_escape_htmltag($labelpaymenttype);
|
|
print '</td>';
|
|
|
|
// Chq number
|
|
print '<td>' . dol_escape_htmltag($obj->num_payment) . '</td>';
|
|
|
|
if (isModEnabled("bank")) {
|
|
// Bank transaction
|
|
print '<td>';
|
|
$accountlinestatic->id = $obj->fk_bank;
|
|
print $accountlinestatic->getNomUrl(1);
|
|
print '</td>';
|
|
|
|
// Account
|
|
print '<td>';
|
|
$account = new Account($db);
|
|
$account->fetch($obj->fk_account);
|
|
print $account->getNomUrl(1);
|
|
print '</td>';
|
|
}
|
|
|
|
// Expected to pay
|
|
print '<td class="right"><span class="amount">' . price($obj->total) . '</span></td>';
|
|
|
|
// Paid
|
|
print '<td class="right"><span class="amount">';
|
|
if ($obj->totalpaid) {
|
|
print price($obj->totalpaid);
|
|
}
|
|
print '</span></td>';
|
|
print '</tr>';
|
|
|
|
$total = $total + $obj->total;
|
|
$totalpaid = $totalpaid + $obj->totalpaid;
|
|
$i++;
|
|
}
|
|
|
|
// Total
|
|
print '<tr class="liste_total"><td colspan="3" class="liste_total">' . $langs->trans("Total") . '</td>';
|
|
print '<td class="liste_total right"></td>'; // A total here has no sense
|
|
print '<td class="center liste_total"> </td>';
|
|
print '<td class="center liste_total"> </td>';
|
|
if (isModEnabled("bank")) {
|
|
print '<td class="center liste_total"> </td>';
|
|
print '<td class="center liste_total"> </td>';
|
|
}
|
|
print '<td class="center liste_total"> </td>';
|
|
print '<td class="center liste_total"> </td>';
|
|
print '<td class="liste_total right">' . price($totalpaid) . "</td>";
|
|
print "</tr>";
|
|
}
|
|
print '</table>';
|
|
print '</div>';
|
|
|
|
print '</form>';
|
|
}
|
|
|
|
// End of page
|
|
llxFooter();
|
|
$db->close();
|