mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-31 14:12:29 +01:00
619 lines
16 KiB
PHP
619 lines
16 KiB
PHP
<?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');
|
|
}
|
|
|
|
}
|
|
?>
|