* Copyright (C) 2007-2011 Laurent Destailleur * Copyright (C) 2009 Regis Houssin * * 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 */ 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'; $langs->load("banks"); $langs->load("categories"); $langs->load("compta"); $langs->load("bills"); // Security check if ($user->societe_id) $socid=$user->societe_id; $result = restrictedArea($user, 'banque', '',''); $checkdepositstatic=new RemiseCheque($db); $accountstatic=new Account($db); /* * View */ llxHeader('',$langs->trans("ChequesArea")); print_fiche_titre($langs->trans("ChequesArea")); //print ''; //print '

'; print '

'; $sql = "SELECT count(b.rowid)"; $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', 1).")"; $sql.= " AND b.fk_type = 'CHQ'"; $sql.= " AND b.fk_bordereau = 0"; $sql.= " AND b.amount > 0"; $resql = $db->query($sql); print ''; print ''; print '\n"; print "\n"; if ($resql) { $var=false; if ($row = $db->fetch_row($resql) ) { $num = $row[0]; } print ""; print ''; print ''; print "

'.$langs->trans("BankChecks")."
'.$langs->trans("BankChecksToReceipt").'	'; print ''.$num.''; print '

\n"; } else { dol_print_error($db); } //print '

'; print '

'; $max=10; $sql = "SELECT bc.rowid, bc.date_bordereau as db, bc.amount, bc.number as ref"; $sql.= ", bc.statut, bc.nbcheque"; $sql.= ", ba.label, ba.rowid as bid"; $sql.= " FROM ".MAIN_DB_PREFIX."bordereau_cheque as bc"; $sql.= ", ".MAIN_DB_PREFIX."bank_account as ba"; $sql.= " WHERE ba.rowid = bc.fk_bank_account"; $sql.= " AND bc.entity = ".$conf->entity; $sql.= " ORDER BY bc.date_bordereau DESC, rowid DESC"; $sql.= $db->plimit($max); $resql = $db->query($sql); if ($resql) { print ''; print ''; print ''; print '"; print ''; print ''; print ''; print ''; print "\n"; $var=true; while ( $objp = $db->fetch_object($resql) ) { $checkdepositstatic->id=$objp->rowid; $checkdepositstatic->ref=($objp->ref?$objp->ref:$objp->rowid); $checkdepositstatic->statut=$objp->statut; $accountstatic->id=$objp->bid; $accountstatic->label=$objp->label; $var=!$var; print "\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; } print "

'.$langs->trans("LastCheckReceiptShort",$max).'	'.$langs->trans("Date")."	'.$langs->trans("Account").'	'.$langs->trans("NbOfCheques").'	'.$langs->trans("Amount").'	'.$langs->trans("Status").'
'.$checkdepositstatic->getNomUrl(1).'	'.dol_print_date($db->jdate($objp->db),'day').'	'.$accountstatic->getNomUrl(1).'	'.$objp->nbcheque.'	'.price($objp->amount).'	'.$checkdepositstatic->LibStatut($objp->statut,3).'

"; $db->free($resql); } else { dol_print_error($db); } //print "

\n"; print ''; llxFooter(); $db->close();