<?php
/* Copyright (C) 2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2007 Laurent Destailleur  <eldy@users.sourceforge.net>
 *
 * 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/paiement/cheque/resimecheque.class.php
		\ingroup    compta
		\brief      Fichier de la classe des bordereau de remise de cheque
		\version    $Revision$
*/

/**
		\class RemiseCheque
		\brief Classe permettant la gestion des remises de cheque
*/

class RemiseCheque
{
  var $db;
  var $id;
  var $num;
  var $intitule;
  //! Numero d'erreur Plage 1024-1279
  var $errno;

  /**
   *    \brief  Constructeur de la classe
   *    \param  DB          handler accès base de données
   *    \param  id          id compte (0 par defaut)
   */
	 
  function RemiseCheque($DB,$langs='')
    {
      $this->db = $DB;
      $this->langs = $langs;
      $this->next_id = 0;
      $this->previous_id = 0;
    }  

  /**
     \brief Lecture
     \param id identifiant de ligne
  */
  function Fetch($id)
  {
    $sql = "SELECT bc.rowid, bc.datec, bc.fk_user_author,bc.fk_bank_account,bc.amount,bc.number,bc.statut,bc.nbcheque";
    $sql.= ",".$this->db->pdate("date_bordereau"). " as date_bordereau";
    $sql.=",ba.label as account_label";
    $sql.= " FROM ".MAIN_DB_PREFIX."bordereau_cheque as bc";
    $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."bank_account as ba ON bc.fk_bank_account = ba.rowid";
    $sql.= " WHERE bc.rowid = $id;";

    $resql = $this->db->query($sql);

    if ($resql)
      {
	if ($obj = $this->db->fetch_object($resql) )
	  {
	    $this->id             = $obj->rowid;
	    $this->amount         = $obj->amount;
	    $this->date_bordereau = $obj->date_bordereau;
	    $this->account_id     = $obj->fk_bank_account;
	    $this->account_label  = $obj->account_label;
	    $this->author_id      = $obj->fk_user_author;
	    $this->nbcheque       = $obj->nbcheque;
	    $this->statut         = $obj->statut;

	    if ($this->statut == 0)
	      {
		$this->number         = "(PROV".$this->id.")";
	      }
	    else
	      {
		$this->number         = $obj->number;
	      }

	  }
	$this->db->free($resql);

	return 0;
      }
    else
      {
	return -1;
      }


  }
  /**
     \brief  Insère la remise en base
     \param  user utilisateur qui effectue l'operation
     \param  account_id Compte bancaire concerne
   */	 
  function Create($user, $account_id)
  {
    $this->errno = 0;
    $this->db->begin();
    $this->id = 0;

    $sql = "INSERT INTO ".MAIN_DB_PREFIX."bordereau_cheque (datec, date_bordereau,fk_user_author,fk_bank_account)";
    $sql .= " VALUES (now(),now(),".$user->id.",".$account_id.")";
		
    $resql = $this->db->query($sql);
    if ( $resql )
      {
	$this->id = $this->db->last_insert_id(MAIN_DB_PREFIX."bordereau_cheque");
	
	if ($this->id == 0)
	  {
	    $this->errno = -1024;
	    dolibarr_syslog("Remisecheque::Create Erreur Lecture ID ($this->errno)");
	  }

	if ($this->id > 0 && $this->errno === 0)
	  {
	    $sql = "UPDATE ".MAIN_DB_PREFIX."bordereau_cheque";
	    $sql.= " SET number='(PROV".$this->id.")'";
	    $sql.= " WHERE rowid='".$this->id."';";
	    $resql = $this->db->query($sql);	    
	    if (!$resql)
	      {		
		$this->errno = -1025;
		dolibarr_syslog("RemiseCheque::Create ERREUR UPDATE ($this->errno)");
	      }	    
	  }

	if ($this->id > 0 && $this->errno === 0)
	  {
	    $lines = array();
	    $sql = "SELECT b.rowid";
	    $sql.= " FROM ".MAIN_DB_PREFIX."bank as b";
	    $sql.= " WHERE b.fk_type = 'CHQ' AND b.amount > 0";
	    $sql.= " AND b.fk_bordereau = 0 AND b.fk_account='$account_id'";
	    $sql.= " LIMIT 40;"; // On limite a 40 pour ne générer des PDF que d'une page

	    $resql = $this->db->query($sql);

	    if ($resql)
	      {
		while ( $row = $this->db->fetch_row($resql) )
		  {
		    array_push($lines, $row[0]);
		  }
		$this->db->free($resql);
	      }
	    else
	      {
		$this->errno = -1026;
		dolibarr_syslog("RemiseCheque::Create ERREUR SELECT ($this->errno)");
	      }
	  }

	if ($this->id > 0 && $this->errno === 0)
	  {
	    foreach ($lines as $lineid)
	      {
		$sql = "UPDATE ".MAIN_DB_PREFIX."bank as b";
		$sql.= " SET fk_bordereau = ".$this->id;
		$sql.= " WHERE b.rowid = $lineid;";
		
		$resql = $this->db->query($sql);
		if (!$resql)
		  {		
		    $this->errno = -18;
		    dolibarr_syslog("RemiseCheque::Create ERREUR UPDATE ($this->errno)");
		  }
	      }
	  }

	if ($this->id > 0 && $this->errno === 0)
	  {
	    if ($this->UpdateAmount() <> 0)
	      {		
		$this->errno = -1027;
		dolibarr_syslog("RemiseCheque::Create ERREUR ($this->errno)");
	      }
	  }
      }
    else
      {
	$result = -1;
	dolibarr_syslog("RemiseCheque::Create Erreur $result INSERT Mysql");
      }
    

    if ($this->errno === 0)
      {
	$this->db->commit();
      }
    else
      {
	$this->db->rollback();
	dolibarr_syslog("RemiseCheque::Create ROLLBACK ($this->errno)");
      }
    
    return $this->errno;
  }

  /**
     \brief  Supprime la remise en base
     \param  user utilisateur qui effectue l'operation
     \param  account_id Compte bancaire concerne
   */	 
  function Delete()
  {
    $this->errno = 0;
    $this->db->begin();

    $sql = "DELETE FROM ".MAIN_DB_PREFIX."bordereau_cheque";
    $sql .= " WHERE rowid = $this->id;";
		
    $resql = $this->db->query($sql);
    if ( $resql )
      {
	$num = $this->db->affected_rows($resql);
	
	if ($num <> 1)
	  {
	    $this->errno = -2;
	    dolibarr_syslog("Remisecheque::Delete Erreur Lecture ID ($this->errno)");
	  }

	if ( $this->errno === 0)
	  {
	    $sql = "UPDATE ".MAIN_DB_PREFIX."bank";
	    $sql.= " SET fk_bordereau=0";
	    $sql.= " WHERE fk_bordereau='".$this->id."';";
	    $resql = $this->db->query($sql);	    
	    if (!$resql)
	      {		
		$this->errno = -1028;
		dolibarr_syslog("RemiseCheque::Delete ERREUR UPDATE ($this->errno)");
	      }	    
	  }
      }

    if ($this->errno === 0)
      {
	$this->db->commit();
      }
    else
      {
	$this->db->rollback();
	dolibarr_syslog("RemiseCheque::Delete ROLLBACK ($this->errno)");
      }
    
    return $this->errno;
  }
  /**
     \brief  Supprime la remise en base
     \param  user utilisateur qui effectue l'operation
     \param  account_id Compte bancaire concerne
   */	 
  function Validate($user)
  {
    $this->errno = 0;
    $this->db->begin();

    $sql = "SELECT MAX(number) FROM ".MAIN_DB_PREFIX."bordereau_cheque;";

    $resql = $this->db->query($sql);
    if ( $resql )
      {
	$row = $this->db->fetch_row($resql);
	$num = $row[0];
	$this->db->free($resql);
      }
    else
      {
	$this->errno = -1034;
	dolibarr_syslog("Remisecheque::Validate Erreur SELECT ($this->errno)");
      }

    if ($this->errno === 0)
      {
	$sql = "UPDATE ".MAIN_DB_PREFIX."bordereau_cheque";
	$sql.= " SET statut=1, number='".($num+1)."'";
	$sql .= " WHERE rowid = $this->id AND statut=0;";
	
	$resql = $this->db->query($sql);
	if ( $resql )
	  {
	    $num = $this->db->affected_rows($resql);
	    
	    if ($num == 1)
	      {
		$this->statut = 1;
	      }
	    else
	      {
		$this->errno = -1029;
		dolibarr_syslog("Remisecheque::Validate Erreur UPDATE ($this->errno)");
	      }
	  }
	else
	  {
	    $this->errno = -1033;
	    dolibarr_syslog("Remisecheque::Validate Erreur UPDATE ($this->errno)");
	  }
      }

    if ($this->errno === 0)
      {
	$this->GeneratePdf();
      }

    if ($this->errno === 0)
      {
	$this->db->commit();
      }
    else
      {
	$this->db->rollback();
	dolibarr_syslog("RemiseCheque::Validate ROLLBACK ($this->errno)");
      }
    
    return $this->errno;
  }

  
      /**
     *      \brief      Charge indicateurs this->nbtodo et this->nbtodolate de tableau de bord
     *      \param      user        Objet user
     *      \return     int         <0 si ko, >0 si ok
     */
    function load_board($user)
    {
        global $conf;
        
        if ($user->societe_id) return -1;   // protection pour eviter appel par utilisateur externe

        $this->nbtodo=$this->nbtodolate=0;
		$sql = "SELECT b.rowid,".$this->db->pdate("b.datev")." as datefin";
		$sql.= " FROM ".MAIN_DB_PREFIX."bank as b";
		$sql.= " WHERE b.fk_type = 'CHQ' AND b.fk_bordereau = 0";
		$sql.= " AND b.amount > 0";

        $resql=$this->db->query($sql);
        if ($resql)
        {
            while ($obj=$this->db->fetch_object($resql))
            {
                $this->nbtodo++;
                if ($obj->datefin < (time() - $conf->bank->cheque->warning_delay)) $this->nbtodolate++;
            }
            return 1;
        }
        else 
        {
            dolibarr_print_error($this->db);
            $this->error=$this->db->error();
            return -1;
        }
    }
	
	
  /**
     \brief  	Génère le fichier PDF
     \param 	model 		Nom du modele
     \return 	int			<0 si KO, 0 si OK
     \todo 		Finir la gestion multi modèle
   */
  function GeneratePdf($model='Blochet')
  {
    require_once(DOL_DOCUMENT_ROOT ."/compta/bank/account.class.php");
    require_once(DOL_DOCUMENT_ROOT ."/compta/paiement/cheque/pdf/pdf_blochet.class.php");

    $result = $this->Fetch($this->id);

    $pdf = new BordereauChequeBlochet($db);

    $sql = "SELECT b.banque, b.emetteur, b.amount, b.num_chq ";
    $sql.= " FROM ".MAIN_DB_PREFIX."bank as b, ".MAIN_DB_PREFIX."bank_account as ba ";
    $sql.= " , ".MAIN_DB_PREFIX."bordereau_cheque as bc";
    $sql.= " WHERE b.fk_account = ba.rowid AND b.fk_bordereau = bc.rowid";
    $sql.= " AND bc.rowid = ".$this->id;
    $sql.= " ORDER BY b.emetteur ASC, b.rowid ASC;";

    $result = $this->db->query($sql);
    
    if ($result)
      {
	$i = 0;
	while ( $objp = $this->db->fetch_object($result) )
	  {	    
	    $pdf->lines[$i]->bank_chq = $objp->banque;
	    $pdf->lines[$i]->emetteur_chq = $objp->emetteur;
	    $pdf->lines[$i]->amount_chq = $objp->amount;
	    $pdf->lines[$i]->num_chq = $objp->num_chq;
	    $i++;
	  }
      }
    $pdf->nbcheque = $this->nbcheque;
    $pdf->number = $this->number;
    $pdf->amount = $this->amount;
    $pdf->date   = $this->date_bordereau;

    $account = new Account($this->db);
    $account->fetch($this->account_id);

    $pdf->account = &$account;
    
    $pdf->write_pdf_file(DOL_DATA_ROOT.'/compta/bordereau', $this->number );
  }

  /**
     \brief  Mets a jour le montant total
     \return int, 0 en cas de succes
   */	 
  function UpdateAmount()
  {
    $this->errno = 0;
    $this->db->begin();
    $total = 0;
    $nb = 0;
    $sql = "SELECT amount ";
    $sql.= " FROM ".MAIN_DB_PREFIX."bank";
    $sql.= " WHERE fk_bordereau = $this->id;";
		
    $resql = $this->db->query($sql);
    if ( $resql )
      {
	while ( $row = $this->db->fetch_row($resql) )
	  {
	    $total += $row[0];
	    $nb++;
	  }
	
	$this->db->free($resql);

	$sql = "UPDATE ".MAIN_DB_PREFIX."bordereau_cheque";
	$sql.= " SET amount='".ereg_replace(",",".",$total)."'";
	$sql.= " ,nbcheque=$nb";
	$sql.= " WHERE rowid='".$this->id."';";
	$resql = $this->db->query($sql);	    
	if (!$resql)
	  {		
	    $this->errno = -1030;
	    dolibarr_syslog("RemiseCheque::UpdateAmount ERREUR UPDATE ($this->errno)");
	  }	    
      }
    else
      {		
	$this->errno = -1031;
	dolibarr_syslog("RemiseCheque::UpdateAmount ERREUR SELECT ($this->errno)");
      }	    

    if ($this->errno === 0)
      {
	$this->db->commit();
      }
    else
      {
	$this->db->rollback();
	dolibarr_syslog("RemiseCheque::UpdateAmount ROLLBACK ($this->errno)");
      }
    
    return $this->errno;
  }

  /**
     \brief  Insère la remise en base
     \param  user utilisateur qui effectue l'operation
     \param  account_id Compte bancaire concerne
   */	 
  function RemoveCheck($account_id)
  {
    $this->errno = 0;

    if ($this->id > 0)
      {
	$sql = "UPDATE ".MAIN_DB_PREFIX."bank";
	$sql.= " SET fk_bordereau = 0 ";
	$sql.= " WHERE rowid = '".$account_id."' AND fk_bordereau='".$this->id."';";
	$resql = $this->db->query($sql);	    
	if ($resql)
	  {
	    $this->UpdateAmount();
	  }
	else	
	  {
	    $this->errno = -1032;
	    dolibarr_syslog("RemiseCheque::RemoveCheck ERREUR UPDATE ($this->errno)");
	  }	    
      }
    return 0;
  }
  /**
     \brief      Charge les propriétés ref_previous et ref_next
     \return     int   <0 si ko, 0 si ok
   */
  function load_previous_next_id()
  {
    $this->errno = 0;

    $sql = "SELECT MAX(rowid)";
    $sql.= " FROM ".MAIN_DB_PREFIX."bordereau_cheque";
    $sql.= " WHERE rowid < '".$this->id."'";

    $result = $this->db->query($sql) ;
    if (! $result)
      {
	$this->errno = -1035;
      }
    $row = $this->db->fetch_row($result);
    $this->previous_id = $row[0];
    
    $sql = "SELECT MIN(rowid)";
    $sql.= " FROM ".MAIN_DB_PREFIX."bordereau_cheque";
    $sql.= " WHERE rowid > '".$this->id."'";
    $result = $this->db->query($sql) ;
    if (! $result)
      {
	$this->errno = -1035;
      }
    $row = $this->db->fetch_row($result);
    $this->next_id = $row[0];
    
    return $this->errno;
  }


	/**
	 *    	\brief      Renvoie nom clicable (avec eventuellement le picto)
	 *		\param		withpicto		Inclut le picto dans le lien
	 *		\param		option			Sur quoi pointe le lien
	 *		\return		string			Chaine avec URL
	 */
	function getNomUrl($withpicto=0,$option='')
	{
		global $langs;	// TODO Renvoyer le libellé anglais et faire traduction a affichage
		
		$result='';

		$number=$this->number;
		if ($this->statut == 0) $number='(PROV'.$this->rowid.')';

		$lien = '<a href="'.DOL_URL_ROOT.'/compta/paiement/cheque/fiche.php?id='.$this->rowid.'">';
		$lienfin='</a>';

		if ($withpicto) $result.=($lien.img_object($langs->trans("ShowCheckReceipt"),'payment').$lienfin.' ');
		$result.=$lien.$number.$lienfin;
		return $result;
	}

	/**
	*    	\brief      Retourne le libellé du statut d'une facture (brouillon, validée, abandonnée, payée)
	*    	\param      mode        0=libellé long, 1=libellé court, 2=Picto + Libellé court, 3=Picto, 4=Picto + Libellé long, 5=Libellé court + Picto
	*    	\return     string		Libelle
	*/
	function getLibStatut($mode=0)
	{
		return $this->LibStatut($this->statut,$mode);
	}
	
	/**
	*    	\brief      Renvoi le libellé d'un statut donne
	*    	\param      status      Statut
	*		\param      mode        0=libellé long, 1=libellé court, 2=Picto + Libellé court, 3=Picto, 4=Picto + Libellé long, 5=Libellé court + Picto
	*    	\return     string      Libellé du statut
	*/
	function LibStatut($status,$mode=0)
	{
		global $langs;	// TODO Renvoyer le libellé anglais et faire traduction a affichage
		$langs->load('compta');
		if ($mode == 0)
		{
			if ($status == 0) return $langs->trans('ToValidate');
			if ($status == 1) return $langs->trans('Validated');
		}
		if ($mode == 1)
		{
			if ($status == 0) return $langs->trans('ToValidate');
			if ($status == 1) return $langs->trans('Validated');
		}
		if ($mode == 2)
		{
			if ($status == 0) return img_picto($langs->trans('ToValidate'),'statut1').' '.$langs->trans('ToValidate');
			if ($status == 1) return img_picto($langs->trans('Validated'),'statut4').' '.$langs->trans('Validated');
		}
		if ($mode == 3)
		{
			if ($status == 0) return img_picto($langs->trans('ToValidate'),'statut1');
			if ($status == 1) return img_picto($langs->trans('Validated'),'statut4');
		}
		if ($mode == 4)
		{
			if ($status == 0) return img_picto($langs->trans('ToValidate'),'statut1').' '.$langs->trans('ToValidate');
			if ($status == 1) return img_picto($langs->trans('Validated'),'statut4').' '.$langs->trans('Validated');
		}
		if ($mode == 5)
		{
			if ($status == 0) return $langs->trans('ToValidate').' '.img_picto($langs->trans('ToValidate'),'statut1');
			if ($status == 1) return $langs->trans('Validated').' '.img_picto($langs->trans('Validated'),'statut4');
		}
		return $langs->trans('Unknown');
	}
  
}
?>