<?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$
 *
 */

/*!	\file htdocs/includes/modules/rapport/pdf_paiement.class.php
		\ingroup    banque
		\brief      Fichier de la classe permettant de générer les rapports de paiement
		\version    $Revision$
*/


/*!	\class pdf_paiement
		\brief  Classe permettant de générer les rapports de paiement
*/

class pdf_paiement {

    /*!		\brief  Constructeur
    		\param	db		handler accès base de donnée
    */
  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));
	  //	    }
	}
    }


    /*!
    		\brief  Fonction générant le rapport sur le disque
    		\param	_dir		repertoire
    		\param	month		mois du rapport
    		\param	year		annee du rapport
    */
  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($result);
	      $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);      
    }

}

?>