* Copyright (C) 2005 Simon TOSSER * Copyright (C) 2013-2017 Alexandre Spangaro * Copyright (C) 2013-2014 Olivier Geffroy * Copyright (C) 2013-2014 Florian Henry * Copyright (C) 2014 Juanjo Menent * Copyright (C) 2015 Jean-François Ferry * * 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/accountancy/supplier/card.php * \ingroup Accountancy (Double entries) * \brief Card expense report ventilation */ require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/html.formaccounting.class.php'; // Load translation files required by the page $langs->loadLangs(array("bills", "accountancy", "trips")); $action = GETPOST('action', 'aZ09'); $cancel = GETPOST('cancel', 'alpha'); $backtopage = GETPOST('backtopage', 'alpha'); $codeventil = GETPOST('codeventil', 'int'); $id = GETPOST('id', 'int'); // Security check if (!isModEnabled('accounting')) { accessforbidden(); } if ($user->socid > 0) { accessforbidden(); } if (empty($user->rights->accounting->mouvements->lire)) { accessforbidden(); } /* * Actions */ if ($action == 'ventil' && $user->rights->accounting->bind->write) { if (!$cancel) { if ($codeventil < 0) { $codeventil = 0; } $sql = " UPDATE ".MAIN_DB_PREFIX."expensereport_det"; $sql .= " SET fk_code_ventilation = ".((int) $codeventil); $sql .= " WHERE rowid = ".((int) $id); $resql = $db->query($sql); if (!$resql) { setEventMessages($db->lasterror(), null, 'errors'); } else { setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs'); if ($backtopage) { header("Location: ".$backtopage); exit(); } } } else { header("Location: ./lines.php"); exit(); } } /* * View */ llxHeader("", $langs->trans('FicheVentilation')); if ($cancel == $langs->trans("Cancel")) { $action = ''; } // Create $form = new Form($db); $expensereport_static = new ExpenseReport($db); $formaccounting = new FormAccounting($db); if (!empty($id)) { $sql = "SELECT er.ref, er.rowid as facid, erd.fk_c_type_fees, erd.comments, erd.rowid, erd.fk_code_ventilation,"; $sql .= " f.id as type_fees_id, f.code as type_fees_code, f.label as type_fees_label,"; $sql .= " aa.account_number, aa.label"; $sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_type_fees as f ON f.id = erd.fk_c_type_fees"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON erd.fk_code_ventilation = aa.rowid"; $sql .= " INNER JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport"; $sql .= " WHERE er.fk_statut > 0 AND erd.rowid = ".((int) $id); $sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy dol_syslog("/accounting/expensereport/card.php", LOG_DEBUG); $result = $db->query($sql); if ($result) { $num_lines = $db->num_rows($result); $i = 0; if ($num_lines) { $objp = $db->fetch_object($result); print '
'."\n"; print ''; print ''; print ''; print load_fiche_titre($langs->trans('ExpenseReportsVentilation'), '', 'title_accountancy'); print dol_get_fiche_head(); print ''; // Ref print ''; $expensereport_static->ref = $objp->ref; $expensereport_static->id = $objp->erid; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '
'.$langs->trans("ExpenseReport").''.$expensereport_static->getNomUrl(1).'
'.$langs->trans("Line").''.stripslashes(nl2br($objp->rowid)).'
'.$langs->trans("Description").''.stripslashes(nl2br($objp->comments)).'
'.$langs->trans("TypeFees").''.($langs->trans($objp->type_fees_code) == $objp->type_fees_code ? $objp->type_fees_label : $langs->trans(($objp->type_fees_code))).'
'.$langs->trans("Account").''; print $formaccounting->select_account($objp->fk_code_ventilation, 'codeventil', 1); print '
'; print dol_get_fiche_end(); print '
'; print ''; print '     '; print ''; print '
'; print '
'; } else { print "Error"; } } else { print "Error"; } } else { print "Error ID incorrect"; } // End of page llxFooter(); $db->close();