*
* 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 2 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, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*/
/**
\file htdocs/compta/prelevement/create.php
\brief Prelevement
\version $Revision$
*/
require("./pre.inc.php");
require_once(DOL_DOCUMENT_ROOT."/includes/modules/modPrelevement.class.php");
if (!$user->rights->prelevement->bons->creer)
accessforbidden();
/*
* Actions
*/
if ($_GET["action"] == 'create')
{
$bprev = new BonPrelevement($db);
$result=$bprev->create($_GET["banque"],$_GET["guichet"]);
if ($result < 0)
{
$mesg=''.$bprev->error.'
';
}
if ($result == 0)
{
$mesg='Aucune facture prélevable, prélevé avec succès
';
}
}
llxHeader();
$h=0;
$head[$h][0] = DOL_URL_ROOT.'/compta/prelevement/create.php';
$head[$h][1] = $langs->trans("NewStandingOrder");
$h++;
dolibarr_fiche_head($head, $hselected, $langs->trans("StandingOrders"));
$bprev = new BonPrelevement($db);
$nb=$bprev->NbFactureAPrelever();
$nb1=$bprev->NbFactureAPrelever(1);
$nb11=$bprev->NbFactureAPrelever(1,1);
if ($nb < 0 || $nb1 < 0 || $nb11 < 0)
{
dolibarr_print_error($bprev->error);
}
print '';
print '| Nb de facture à prélever : | ';
print '';
print $nb;
print ' | Notre banque : | ';
print $nb1;
print ' | Notre agence : | ';
print $nb11;
print ' |
';
print '| Somme à prélever | ';
print '';
print price($bprev->SommeAPrelever());
print ' | ';
print ' | ';
print '
';
print '';
if ($mesg) print $mesg;
if ($nb)
{
print "\n";
}
else
{
print "Aucune facture en mode de paiement 'Prélevement' n'a de demande de prélèvements en attente.
";
}
print '
';
/*
* Liste des derniers bons
*
*/
$limit=5;
$sql = "SELECT p.rowid, p.ref, p.amount,".$db->pdate("p.datec")." as datec";
$sql.= ", p.statut";
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p";
$sql.= " ORDER BY datec DESC";
$sql.=$db->plimit($limit);
$result = $db->query($sql);
if ($result)
{
$num = $db->num_rows($result);
$i = 0;
print"\n\n";
print '';
print '| '.$langs->trans("LastWithdrawalReceipts",$limit).' | ';
print '| '.$langs->trans("Amount").' | ';
print ' |
';
$var=True;
while ($i < min($num,$limit))
{
$obj = $db->fetch_object($result);
$var=!$var;
print "";
print ' ';
print ''.$obj->ref." | \n";
print ''.strftime("%d/%m/%Y",$obj->datec)." | \n";
print ''.price($obj->amount).' '.$langs->trans("Currency".$conf->monnaie)." | \n";
print "
\n";
$i++;
}
print "
";
$db->free($result);
}
else
{
dolibarr_print_error($db);
}
/*
* Factures en attente de prélèvement
*
*/
$sql = "SELECT f.facnumber, f.rowid, s.nom, s.idp";
$sql .= " FROM ".MAIN_DB_PREFIX."facture as f, ".MAIN_DB_PREFIX."societe as s";
$sql .= " , ".MAIN_DB_PREFIX."prelevement_facture_demande as pfd";
$sql .= " WHERE s.idp = f.fk_soc";
$sql .= " AND pfd.traite = 0 AND pfd.fk_facture = f.rowid";
if ($socid)
{
$sql .= " AND f.fk_soc = $socid";
}
if ( $db->query($sql) )
{
$num = $db->num_rows();
$i = 0;
if ($num)
{
print '
";
}
}
else
{
dolibarr_print_error($db);
}
llxFooter('$Date$ - $Revision$');
?>