Mise jour
This commit is contained in:
Rodolphe Quiedeville
parent
e68b619dfa
commit
25cb54afd9
135
htdocs/compta/paiement/rapport.php
Normal file
135
htdocs/compta/paiement/rapport.php
Normal file
@ -0,0 +1,135 @@
|
|||||||
|
<?PHP
|
||||||
|
/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||||
|
*
|
||||||
|
* 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$
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
require("./pre.inc.php");
|
||||||
|
/*
|
||||||
|
* Sécurité accés
|
||||||
|
*/
|
||||||
|
if ($user->societe_id > 0)
|
||||||
|
{
|
||||||
|
block_access();
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
require("../../includes/modules/rapport/pdf_paiement.class.php");
|
||||||
|
|
||||||
|
$dir = DOL_DOCUMENT_ROOT."/document/rapport/";
|
||||||
|
|
||||||
|
if ($HTTP_POST_VARS["action"] == 'gen')
|
||||||
|
{
|
||||||
|
$rap = new pdf_paiement($db);
|
||||||
|
$rap->write_pdf_file($dir, $HTTP_POST_VARS["remonth"], $HTTP_POST_VARS["reyear"]);
|
||||||
|
|
||||||
|
$year = $HTTP_POST_VARS["reyear"];
|
||||||
|
}
|
||||||
|
|
||||||
|
llxHeader();
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
*
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
print_titre("Rapport paiements");
|
||||||
|
|
||||||
|
print '<form method="post" action="rapport.php?year='.$year.'">';
|
||||||
|
print '<input type="hidden" name="action" value="gen">';
|
||||||
|
$cmonth = date("n", time());
|
||||||
|
$syear = date("Y", time());
|
||||||
|
|
||||||
|
$strmonth[1] = "Janvier";
|
||||||
|
$strmonth[2] = "Février";
|
||||||
|
$strmonth[3] = "Mars";
|
||||||
|
$strmonth[4] = "Avril";
|
||||||
|
$strmonth[5] = "Mai";
|
||||||
|
$strmonth[6] = "Juin";
|
||||||
|
$strmonth[7] = "Juillet";
|
||||||
|
$strmonth[8] = "Août";
|
||||||
|
$strmonth[9] = "Septembre";
|
||||||
|
$strmonth[10] = "Octobre";
|
||||||
|
$strmonth[11] = "Novembre";
|
||||||
|
$strmonth[12] = "Décembre";
|
||||||
|
|
||||||
|
print '<select name="remonth">';
|
||||||
|
for ($month = 1 ; $month < 13 ; $month++)
|
||||||
|
{
|
||||||
|
if ($month == $cmonth)
|
||||||
|
{
|
||||||
|
print "<option value=\"$month\" SELECTED>" . $strmonth[$month];
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
print "<option value=\"$month\">" . $strmonth[$month];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print "</select>";
|
||||||
|
|
||||||
|
print '<select name="reyear">';
|
||||||
|
|
||||||
|
for ($formyear = $syear - 2; $formyear < $syear +1 ; $formyear++)
|
||||||
|
{
|
||||||
|
if ($formyear == $syear)
|
||||||
|
{
|
||||||
|
print "<option value=\"$formyear\" SELECTED>$formyear";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
print "<option value=\"$formyear\">$formyear";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print "</select>\n";
|
||||||
|
print '<input type="submit" value="Générer">';
|
||||||
|
print '</form>';
|
||||||
|
|
||||||
|
clearstatcache();
|
||||||
|
|
||||||
|
$handle=opendir($dir);
|
||||||
|
|
||||||
|
while (($file = readdir($handle))!==false)
|
||||||
|
{
|
||||||
|
if (is_dir($dir.$file) && substr($file, 0, 1) <> '.')
|
||||||
|
{
|
||||||
|
print '<a href="index.php?year='.$file.'">'.$file.'</a> ';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($year)
|
||||||
|
{
|
||||||
|
$handle=opendir($dir.'/'.$year);
|
||||||
|
|
||||||
|
print '<table width="100%" id="wiborder">';
|
||||||
|
print '<tr><td>Rapport</td><td>Taille</td><td>Date de génération</td></tr>';
|
||||||
|
while (($file = readdir($handle))!==false)
|
||||||
|
{
|
||||||
|
if (substr($file, 0, 8) == 'paiement')
|
||||||
|
{
|
||||||
|
$tfile = $dir . '/'.$year.'/'.$file;
|
||||||
|
print '<tr><td><a href="'.DOL_URL_ROOT.'/document/rapport/'.$year.'/'.$file.'">'.$file.'</a></td>';
|
||||||
|
print '<td align="right">'.filesize($tfile). ' bytes</td>';
|
||||||
|
print '<td align="right">'.strftime("%d %b %Y %H:%M:%S",filemtime($tfile)).'</td></tr>';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print '</table>';
|
||||||
|
}
|
||||||
|
$db->close();
|
||||||
|
|
||||||
|
llxFooter("<em>Dernière modification $Date$ révision $Revision$</em>");
|
||||||
|
?>
|
||||||
@ -32,7 +32,7 @@ Class pdf_paiement {
|
|||||||
|
|
||||||
$this->tab_top = 30;
|
$this->tab_top = 30;
|
||||||
|
|
||||||
$this->line_height = 8;
|
$this->line_height = 5;
|
||||||
$this->line_per_page = 25;
|
$this->line_per_page = 25;
|
||||||
$this->tab_height = $this->line_height * $this->line_per_page;
|
$this->tab_height = $this->line_height * $this->line_per_page;
|
||||||
|
|
||||||
@ -66,15 +66,16 @@ Class pdf_paiement {
|
|||||||
|
|
||||||
$pdf->SetFont('Arial','',12);
|
$pdf->SetFont('Arial','',12);
|
||||||
|
|
||||||
$pdf->Text(11,$this->tab_top + 6,'Facture');
|
$pdf->Text(11,$this->tab_top + 6,'Date');
|
||||||
|
|
||||||
$pdf->line(40, $this->tab_top, 40, $this->tab_top + $this->tab_height + 10);
|
$pdf->line(40, $this->tab_top, 40, $this->tab_top + $this->tab_height + 10);
|
||||||
$pdf->Text(42, $this->tab_top + 6,'Date');
|
$pdf->Text(42, $this->tab_top + 6,'Type paiement');
|
||||||
|
|
||||||
$pdf->line(80, $this->tab_top, 80, $this->tab_top + $this->tab_height + 10);
|
$pdf->line(80, $this->tab_top, 80, $this->tab_top + $this->tab_height + 10);
|
||||||
$pdf->Text(82, $this->tab_top + 6,'Type paiement');
|
$pdf->Text(82, $this->tab_top + 6,'Facture');
|
||||||
|
|
||||||
$pdf->line(120, $this->tab_top, 120, $this->tab_top + $this->tab_height + 10);
|
$pdf->line(120, $this->tab_top, 120, $this->tab_top + $this->tab_height + 10);
|
||||||
$pdf->Text(122, $this->tab_top + 6,'Numéro');
|
$pdf->Text(122, $this->tab_top + 6,'Montant Fac');
|
||||||
|
|
||||||
$pdf->line(160, $this->tab_top, 160, $this->tab_top + $this->tab_height + 10);
|
$pdf->line(160, $this->tab_top, 160, $this->tab_top + $this->tab_height + 10);
|
||||||
|
|
||||||
@ -88,31 +89,51 @@ Class pdf_paiement {
|
|||||||
|
|
||||||
Function Body(&$pdf, $page, $lines)
|
Function Body(&$pdf, $page, $lines)
|
||||||
{
|
{
|
||||||
$pdf->SetFont('Arial','', 10);
|
$pdf->SetFont('Arial','', 9);
|
||||||
for ($i = 0 ; $i < $this->line_per_page ; $i++)
|
$oldprowid = 0;
|
||||||
{
|
|
||||||
$j = $i + (($page - 1) * $this->line_per_page );
|
|
||||||
$pdf->SetFillColor(220,220,220);
|
$pdf->SetFillColor(220,220,220);
|
||||||
|
$yp = 0;
|
||||||
$pdf->SetXY (10, $this->tab_top + 10 + ($i * $this->line_height) );
|
for ($j = 0 ; $j < sizeof($lines) ; $j++)
|
||||||
$pdf->MultiCell(30, $this->line_height, $lines[$j][0], 0, 'J', 0);
|
|
||||||
|
|
||||||
$pdf->SetXY (40, $this->tab_top + 10 + ($i * $this->line_height) );
|
|
||||||
$pdf->MultiCell(40, $this->line_height, $lines[$j][1], 0, 'J', 0);
|
|
||||||
|
|
||||||
$pdf->SetXY (80, $this->tab_top + 10 + ($i * $this->line_height) );
|
|
||||||
$pdf->MultiCell(40, $this->line_height, $lines[$j][2], 0, 'J', 0);
|
|
||||||
|
|
||||||
$pdf->SetXY (120, $this->tab_top + 10 + ($i * $this->line_height) );
|
|
||||||
$pdf->MultiCell(40, $this->line_height, $lines[$j][3], 0, 'J', 0);
|
|
||||||
|
|
||||||
$pdf->SetXY (160, $this->tab_top + 10 + ($i * $this->line_height) );
|
|
||||||
$pdf->MultiCell(40, $this->line_height, $lines[$j][4], 0, 'R', 0);
|
|
||||||
|
|
||||||
if ($i < $this->line_per_page - 1)
|
|
||||||
{
|
{
|
||||||
$pdf->line(10, $this->tab_top + 10 + (($i+1) * $this->line_height), 200, $this->tab_top + 10 + (($i+1) * $this->line_height));
|
$i = $j;
|
||||||
|
if ($oldprowid <> $lines[$j][7])
|
||||||
|
{
|
||||||
|
$pdf->SetXY (10, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(30, $this->line_height, $lines[$j][1], 0, 'J', 1);
|
||||||
|
|
||||||
|
$pdf->SetXY (40, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, $lines[$j][2], 0, 'J', 1);
|
||||||
|
|
||||||
|
$pdf->SetXY (80, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, '', 0, 'J', 1);
|
||||||
|
|
||||||
|
$pdf->SetXY (120, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, $lines[$j][3], 0, 'J', 1);
|
||||||
|
|
||||||
|
$pdf->SetXY (160, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, $lines[$j][4], 0, 'R', 1);
|
||||||
|
$yp = $yp + 5;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
$pdf->SetXY (80, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, $lines[$j][0], 0, 'J', 0);
|
||||||
|
|
||||||
|
$pdf->SetXY (120, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, $lines[$j][5], 0, 'J', 0);
|
||||||
|
|
||||||
|
$pdf->SetXY (160, $this->tab_top + 10 + $yp);
|
||||||
|
$pdf->MultiCell(40, $this->line_height, $lines[$j][6], 0, 'R', 0);
|
||||||
|
$yp = $yp + 5;
|
||||||
|
|
||||||
|
if ($oldprowid <> $lines[$j][7])
|
||||||
|
{
|
||||||
|
$oldprowid = $lines[$j][7];
|
||||||
|
}
|
||||||
|
|
||||||
|
// if ($i < $this->line_per_page - 1)
|
||||||
|
// {
|
||||||
|
// $pdf->line(10, $this->tab_top + 10 + (($i+1) * $this->line_height), 200, $this->tab_top + 10 + (($i+1) * $this->line_height));
|
||||||
|
// }
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -142,7 +163,6 @@ Class pdf_paiement {
|
|||||||
$_file = $_dir . "paiements-$month-$year" . ".pdf";
|
$_file = $_dir . "paiements-$month-$year" . ".pdf";
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$pdf = new FPDF('P','mm','A4');
|
$pdf = new FPDF('P','mm','A4');
|
||||||
$pdf->Open();
|
$pdf->Open();
|
||||||
|
|
||||||
@ -150,13 +170,22 @@ Class pdf_paiement {
|
|||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
|
|
||||||
$sql = "SELECT ".$this->db->pdate("p.datep")." as dp, p.amount, f.amount as fa_amount, f.facnumber";
|
$sql = "SELECT ".$this->db->pdate("p.datep")." as dp, f.facnumber";
|
||||||
$sql .=", f.rowid as facid, c.libelle as paiement_type, p.num_paiement";
|
$sql .= ", c.libelle as paiement_type, p.num_paiement";
|
||||||
$sql .= " FROM ".MAIN_DB_PREFIX."paiement as p, ".MAIN_DB_PREFIX."facture as f, ".MAIN_DB_PREFIX."c_paiement as c";
|
$sql .= ", p.amount as paiement_amount, f.total_ttc as facture_amount ";
|
||||||
$sql .= " WHERE p.fk_facture = f.rowid AND p.fk_paiement = c.id";
|
$sql .= ", pf.amount as pf_amount ";
|
||||||
$sql .= " AND date_format(p.datep, '%m%Y') = " . $month.$year;
|
$sql .= ", p.rowid as prowid";
|
||||||
$sql .= " ORDER BY p.datep ASC";
|
$sql .= " FROM ".MAIN_DB_PREFIX."paiement as p, ".MAIN_DB_PREFIX."facture as f, ";
|
||||||
|
$sql .= MAIN_DB_PREFIX."c_paiement as c, ".MAIN_DB_PREFIX."paiement_facture as pf";
|
||||||
|
|
||||||
|
$sql .= " WHERE pf.fk_facture = f.rowid AND pf.fk_paiement = p.rowid";
|
||||||
|
|
||||||
|
$sql .= " AND date_format(p.datep, '%Y') = " . $year;
|
||||||
|
$sql .= " AND p.fk_paiement = c.id ";
|
||||||
|
// $sql .= " AND date_format(p.datep, '%m%Y') = " . $month.$year;
|
||||||
|
$sql .= " ORDER BY p.datep ASC, pf.fk_paiement ASC";
|
||||||
$result = $this->db->query($sql);
|
$result = $this->db->query($sql);
|
||||||
|
// print $sql ;
|
||||||
|
|
||||||
if ($result)
|
if ($result)
|
||||||
{
|
{
|
||||||
@ -173,7 +202,10 @@ Class pdf_paiement {
|
|||||||
$lines[$i][1] = strftime("%d %B %Y",$objp->dp);
|
$lines[$i][1] = strftime("%d %B %Y",$objp->dp);
|
||||||
$lines[$i][2] = $objp->paiement_type ;
|
$lines[$i][2] = $objp->paiement_type ;
|
||||||
$lines[$i][3] = $objp->num_paiement;
|
$lines[$i][3] = $objp->num_paiement;
|
||||||
$lines[$i][4] = price($objp->amount);
|
$lines[$i][4] = price($objp->paiement_amount);
|
||||||
|
$lines[$i][5] = price($objp->facture_amount);
|
||||||
|
$lines[$i][6] = price($objp->pf_amount);
|
||||||
|
$lines[$i][7] = price($objp->prowid);
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -190,13 +222,19 @@ Class pdf_paiement {
|
|||||||
// force à générer au moins une page si le rapport ne contient aucune ligne
|
// force à générer au moins une page si le rapport ne contient aucune ligne
|
||||||
$pages = 1;
|
$pages = 1;
|
||||||
}
|
}
|
||||||
|
/*
|
||||||
for ($i = 0 ; $i < $pages ; $i++)
|
for ($i = 0 ; $i < $pages ; $i++)
|
||||||
{
|
{
|
||||||
$pdf->AddPage();
|
$pdf->AddPage();
|
||||||
$this->Header($pdf, $i+1, $pages);
|
$this->Header($pdf, $i+1, $pages);
|
||||||
$this->Body($pdf, $i+1, $lines);
|
$this->Body($pdf, $i+1, $lines);
|
||||||
}
|
}
|
||||||
|
*/
|
||||||
|
|
||||||
|
$pdf->AddPage();
|
||||||
|
$this->Header($pdf, $i+1, $pages);
|
||||||
|
$this->Body($pdf, $i+1, $lines);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user