forked from Wavyzz/dolibarr
88acbc5134
par "function" (avec f minuscule), qui est le mot correct (bien que cela ne gène pas le php, cela gène doxygen et autres outils d'analyse syntaxique).
259 lines
7.2 KiB
PHP
259 lines
7.2 KiB
PHP
<?PHP
|
|
/* Copyright (C) 2003-2004 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.
|
|
* or see http://www.gnu.org/
|
|
*
|
|
* $Id$
|
|
* $Source$
|
|
*
|
|
*/
|
|
|
|
Class pdf_paiement {
|
|
|
|
function pdf_paiement($db=0)
|
|
{
|
|
$this->db = $db;
|
|
$this->description = "Liste des paiements";
|
|
|
|
$this->url = DOL_URL_ROOT."/document/rapport/" . "paiements" . ".pdf";
|
|
|
|
$this->tab_top = 30;
|
|
|
|
$this->line_height = 5;
|
|
$this->line_per_page = 25;
|
|
$this->tab_height = 230;//$this->line_height * $this->line_per_page;
|
|
|
|
}
|
|
|
|
function print_link()
|
|
{
|
|
if (file_exists($this->file))
|
|
{
|
|
print '<a href="'.$this->url.'">paiements.pdf</a>';
|
|
print '<table><tr>';
|
|
print '<td align="right">'.filesize($this->file). ' bytes</td>';
|
|
print '<td align="right">'.strftime("%d %b %Y %H:%M:%S",filemtime($this->file)).'</td>';
|
|
print '</tr></table>';
|
|
}
|
|
}
|
|
|
|
function Header(&$pdf, $page, $pages)
|
|
{
|
|
$pdf->SetFont('Arial','B',12);
|
|
$pdf->Text(10, 10, FAC_PDF_INTITULE);
|
|
|
|
$pdf->SetFont('Arial','B',12);
|
|
$pdf->Text(90, 10, "Liste des paiements encaissés");
|
|
|
|
$pdf->SetFont('Arial','B',12);
|
|
$pdf->Text(11, 16, "Date : " . strftime("%d %b %Y", time()));
|
|
|
|
$pdf->SetFont('Arial','B',12);
|
|
$pdf->Text(11, 22, "Page " . $page);
|
|
// $pdf->Text(11, 22, "Page " . $page . " sur " . $pages);
|
|
|
|
$pdf->SetFont('Arial','',12);
|
|
|
|
$pdf->Text(11,$this->tab_top + 6,'Date');
|
|
|
|
$pdf->line(40, $this->tab_top, 40, $this->tab_top + $this->tab_height + 10);
|
|
$pdf->Text(42, $this->tab_top + 6,'Type paiement');
|
|
|
|
$pdf->line(80, $this->tab_top, 80, $this->tab_top + $this->tab_height + 10);
|
|
$pdf->Text(82, $this->tab_top + 6,'Facture');
|
|
|
|
$pdf->line(120, $this->tab_top, 120, $this->tab_top + $this->tab_height + 10);
|
|
$pdf->Text(122, $this->tab_top + 6,'Montant Fac');
|
|
|
|
$pdf->line(160, $this->tab_top, 160, $this->tab_top + $this->tab_height + 10);
|
|
|
|
$pdf->SetXY (160, $this->tab_top);
|
|
$pdf->MultiCell(40, 10, "Montant", 0, 'R');
|
|
|
|
$pdf->Rect(10, $this->tab_top, 190, $this->tab_height + 10);
|
|
$pdf->line(10, $this->tab_top + 10, 200, $this->tab_top + 10 );
|
|
|
|
}
|
|
|
|
function Body(&$pdf, $page, $lines)
|
|
{
|
|
$pdf->SetFont('Arial','', 9);
|
|
$oldprowid = 0;
|
|
$pdf->SetFillColor(220,220,220);
|
|
$yp = 0;
|
|
for ($j = 0 ; $j < sizeof($lines) ; $j++)
|
|
{
|
|
$i = $j;
|
|
if ($oldprowid <> $lines[$j][7])
|
|
{
|
|
if ($yp > 200)
|
|
{
|
|
$page++;
|
|
$pdf->AddPage();
|
|
$this->Header($pdf, $page, $pages);
|
|
$pdf->SetFont('Arial','', 9);
|
|
$yp = 0;
|
|
}
|
|
|
|
|
|
$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));
|
|
// }
|
|
}
|
|
}
|
|
|
|
function write_pdf_file($_dir, $month, $year)
|
|
{
|
|
if (! file_exists($_dir))
|
|
{
|
|
umask(0);
|
|
if (! mkdir($_dir, 0755))
|
|
{
|
|
print "Impossible de créer $_dir !";
|
|
die;
|
|
}
|
|
}
|
|
$_dir = $_dir . '/' . $year . '/';
|
|
if (! file_exists($_dir))
|
|
{
|
|
umask(0);
|
|
if (! mkdir($_dir, 0755))
|
|
{
|
|
print "Impossible de créer $_dir !";
|
|
die;
|
|
}
|
|
}
|
|
|
|
$month = substr("0".$month, strlen("0".$month)-2,2);
|
|
$_file = $_dir . "paiements-$month-$year" . ".pdf";
|
|
|
|
|
|
$pdf = new FPDF('P','mm','A4');
|
|
$pdf->Open();
|
|
|
|
/*
|
|
*
|
|
*/
|
|
|
|
$sql = "SELECT ".$this->db->pdate("p.datep")." as dp, f.facnumber";
|
|
$sql .= ", c.libelle as paiement_type, p.num_paiement";
|
|
$sql .= ", p.amount as paiement_amount, f.total_ttc as facture_amount ";
|
|
$sql .= ", pf.amount as pf_amount ";
|
|
$sql .= ", p.rowid as prowid";
|
|
$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);
|
|
// print $sql ;
|
|
|
|
if ($result)
|
|
{
|
|
$lignes = $this->db->num_rows();
|
|
$i = 0;
|
|
$var=True;
|
|
|
|
while ($i < $lignes)
|
|
{
|
|
$objp = $this->db->fetch_object( $i);
|
|
$var=!$var;
|
|
|
|
$lines[$i][0] = $objp->facnumber;
|
|
$lines[$i][1] = strftime("%d %B %Y",$objp->dp);
|
|
$lines[$i][2] = $objp->paiement_type ;
|
|
$lines[$i][3] = $objp->num_paiement;
|
|
$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++;
|
|
}
|
|
}
|
|
|
|
$pages = intval($lignes / $this->line_per_page);
|
|
|
|
if (($lignes % $this->line_per_page)>0)
|
|
{
|
|
$pages++;
|
|
}
|
|
|
|
if ($pages == 0)
|
|
{
|
|
// force à générer au moins une page si le rapport ne contient aucune ligne
|
|
$pages = 1;
|
|
}
|
|
/*
|
|
for ($i = 0 ; $i < $pages ; $i++)
|
|
{
|
|
$pdf->AddPage();
|
|
$this->Header($pdf, $i+1, $pages);
|
|
$this->Body($pdf, $i+1, $lines);
|
|
}
|
|
*/
|
|
|
|
$pdf->AddPage();
|
|
$this->Header($pdf, 1, $pages);
|
|
$this->Body($pdf, 1, $lines);
|
|
|
|
/*
|
|
*
|
|
*/
|
|
|
|
$pdf->Output($_file);
|
|
}
|
|
|
|
}
|
|
|
|
?>
|