/htdocs/contrat/class/contrat.class.php
PHP | 1990 lines | 1421 code | 236 blank | 333 comment | 320 complexity | 8c4a3f14839347a78face6de42f6b3d7 MD5 | raw file
Possible License(s): LGPL-3.0, LGPL-2.1, GPL-3.0, MIT
Large files files are truncated, but you can click here to view the full file
- <?php
- /* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2004-2012 Destailleur Laurent <eldy@users.sourceforge.net>
- * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@capnetworks.com>
- * Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
- * Copyright (C) 2008 Raphael Bertrand (Resultic) <raphael.bertrand@resultic.fr>
- * Copyright (C) 2010-2011 Juanjo Menent <jmenent@2byte.es>
- * Copyright (C) 2011 Herve Prot <herve.prot@symeos.com>
- *
- * 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 3 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, see <http://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/contrat/class/contrat.class.php
- * \ingroup contrat
- * \brief File of class to manage contracts
- */
- require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
- /**
- * Class to manage contracts
- */
- class Contrat extends CommonObject
- {
- public $element='contrat';
- public $table_element='contrat';
- public $table_element_line='contratdet';
- public $fk_element='fk_contrat';
- var $id;
- var $ref;
- var $socid;
- var $societe; // Objet societe
- var $statut=0; // 0=Draft,
- var $product;
- var $user_author;
- var $date_creation;
- var $date_validation;
- var $date_contrat;
- var $date_cloture;
- var $commercial_signature_id;
- var $commercial_suivi_id;
- var $note; // deprecated
- var $note_private;
- var $note_public;
- var $fk_projet;
- var $extraparams=array();
- var $lines=array();
- /**
- * Constructor
- *
- * @param DoliDB $db Database handler
- */
- function __construct($db = '')
- {
- $this->db = $db;
- }
- /**
- * Return next contract ref
- *
- * @param Societe $soc objet society
- * @return string free reference for contract
- */
- function getNextNumRef($soc)
- {
- global $db, $langs, $conf;
- $langs->load("contract");
- $dir = DOL_DOCUMENT_ROOT . "/core/modules/contract";
- if (empty($conf->global->CONTRACT_ADDON))
- {
- $conf->global->CONTRACT_ADDON='mod_contract_serpis';
- }
- $file = $conf->global->CONTRACT_ADDON.".php";
- // Chargement de la classe de numerotation
- $classname = $conf->global->CONTRACT_ADDON;
- $result=include_once $dir.'/'.$file;
- if ($result)
- {
- $obj = new $classname();
- $numref = "";
- $numref = $obj->getNextValue($soc,$this);
- if ( $numref != "")
- {
- return $numref;
- }
- else
- {
- dol_print_error($db,get_class($this)."::getNextValue ".$obj->error);
- return "";
- }
- }
- else
- {
- print $langs->trans("Error")." ".$langs->trans("Error_CONTRACT_ADDON_NotDefined");
- return "";
- }
- }
- /**
- * Activate a contract line
- *
- * @param User $user Objet User qui active le contrat
- * @param int $line_id Id de la ligne de detail a activer
- * @param timestamp $date Date d'ouverture
- * @param timestamp $date_end Date fin prevue
- * @param string $comment A comment typed by user
- * @return int <0 if KO, >0 if OK
- */
- function active_line($user, $line_id, $date, $date_end='', $comment='')
- {
- global $langs,$conf;
- $error=0;
- $this->db->begin();
- $sql = "UPDATE ".MAIN_DB_PREFIX."contratdet SET statut = 4,";
- $sql.= " date_ouverture = ".(dol_strlen($date)!=0?"'".$this->db->idate($date)."'":"null").",";
- $sql.= " date_fin_validite = ".(dol_strlen($date_end)!=0?"'".$this->db->idate($date_end)."'":"null").",";
- $sql.= " fk_user_ouverture = ".$user->id.",";
- $sql.= " date_cloture = null,";
- $sql.= " commentaire = '".$this->db->escape($comment)."'";
- $sql.= " WHERE rowid = ".$line_id . " AND (statut = 0 OR statut = 3 OR statut = 5)";
- dol_syslog(get_class($this)."::active_line sql=".$sql);
- $resql = $this->db->query($sql);
- if ($resql)
- {
- // Appel des triggers
- include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('CONTRACT_SERVICE_ACTIVATE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
- $this->db->commit();
- return 1;
- }
- else
- {
- $this->error=$this->db->lasterror();
- dol_syslog(get_class($this)."::active_line error ".$this->error, LOG_ERR);
- $this->db->rollback();
- return -1;
- }
- }
- /**
- * Close a contract line
- *
- * @param User $user Objet User qui active le contrat
- * @param int $line_id Id de la ligne de detail a activer
- * @param timestamp $date_end Date fin
- * @param string $comment A comment typed by user
- * @return int <0 if KO, >0 if OK
- */
- function close_line($user, $line_id, $date_end, $comment='')
- {
- global $langs,$conf;
- $error=0;
- // statut actif : 4
- $this->db->begin();
- $sql = "UPDATE ".MAIN_DB_PREFIX."contratdet SET statut = 5,";
- $sql.= " date_cloture = '".$this->db->idate($date_end)."',";
- $sql.= " fk_user_cloture = ".$user->id.",";
- $sql.= " commentaire = '".$this->db->escape($comment)."'";
- $sql.= " WHERE rowid = ".$line_id . " AND statut = 4";
- $resql = $this->db->query($sql);
- if ($resql)
- {
- // Appel des triggers
- include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('CONTRACT_SERVICE_CLOSE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
- $this->db->commit();
- return 1;
- }
- else
- {
- $this->error=$this->db->lasterror();
- dol_syslog(get_class($this)."::close_line error ".$this->error, LOG_ERR);
- $this->db->rollback();
- return -1;
- }
- }
- /**
- * Close all lines of a contract
- *
- * @param User $user Object User making action
- * @return void
- */
- function cloture($user)
- {
- $this->db->begin();
- // Load lines
- $this->fetch_lines();
- $ok=true;
- foreach($this->lines as $contratline)
- {
- // Close line not already closed
- if ($contratline->statut != 5)
- {
- $contratline->date_cloture=dol_now();
- $contratline->fk_user_cloture=$user->id;
- $contratline->statut='5';
- $result=$contratline->update($user);
- if ($result < 0)
- {
- $ok=false;
- break;
- }
- }
- }
- if ($this->statut == 0)
- {
- $result=$this->validate($user);
- if ($result < 0) $ok=false;
- }
- if ($ok)
- {
- $this->db->commit();
- }
- else
- {
- dol_print_error($this->db,'Error in cloture function');
- $this->db->rollback();
- }
- }
- /**
- * Validate a contract
- *
- * @param User $user Objet User
- * @return int <0 if KO, >0 if OK
- */
- function validate($user)
- {
- global $langs, $conf;
- $error=0;
- $sql = "UPDATE ".MAIN_DB_PREFIX."contrat SET statut = 1";
- $sql .= " WHERE rowid = ".$this->id . " AND statut = 0";
- $resql = $this->db->query($sql);
- if ($resql)
- {
- // Appel des triggers
- include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('CONTRACT_VALIDATE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
- return 1;
- }
- else
- {
- $this->error=$this->db->error();
- return -1;
- }
- }
- /**
- * Load a contract from database
- *
- * @param int $id Id of contract to load
- * @param string $ref Ref
- * @return int <0 if KO, id of contract if OK
- */
- function fetch($id,$ref='')
- {
- $sql = "SELECT rowid, statut, ref, fk_soc, mise_en_service as datemise,";
- $sql.= " fk_user_mise_en_service, date_contrat as datecontrat,";
- $sql.= " fk_user_author,";
- $sql.= " fk_projet,";
- $sql.= " fk_commercial_signature, fk_commercial_suivi,";
- $sql.= " note as note_private, note_public, extraparams";
- $sql.= " FROM ".MAIN_DB_PREFIX."contrat";
- if ($ref)
- {
- $sql.= " WHERE ref='".$ref."'";
- $sql.= " AND entity IN (".getEntity('contract').")";
- }
- else $sql.= " WHERE rowid=".$id;
- dol_syslog(get_class($this)."::fetch sql=".$sql, LOG_DEBUG);
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $result = $this->db->fetch_array($resql);
- if ($result)
- {
- $this->id = $result["rowid"];
- $this->ref = (!isset($result["ref"]) || !$result["ref"]) ? $result["rowid"] : $result["ref"];
- $this->statut = $result["statut"];
- $this->mise_en_service = $this->db->jdate($result["datemise"]);
- $this->date_contrat = $this->db->jdate($result["datecontrat"]);
- $this->user_author_id = $result["fk_user_author"];
- $this->commercial_signature_id = $result["fk_commercial_signature"];
- $this->commercial_suivi_id = $result["fk_commercial_suivi"];
- $this->note = $result["note_private"]; // deprecated
- $this->note_private = $result["note_private"];
- $this->note_public = $result["note_public"];
- $this->fk_projet = $result["fk_projet"]; // deprecated
- $this->fk_project = $result["fk_projet"];
- $this->socid = $result["fk_soc"];
- $this->fk_soc = $result["fk_soc"];
- $this->extraparams = (array) json_decode($result["extraparams"], true);
- $this->db->free($resql);
- return $this->id;
- }
- else
- {
- dol_syslog(get_class($this)."::Fetch Erreur contrat non trouve");
- $this->error="Contract not found";
- return -2;
- }
- }
- else
- {
- dol_syslog(get_class($this)."::Fetch Erreur lecture contrat");
- $this->error=$this->db->error();
- return -1;
- }
- }
- /**
- * Load lignes array into this->lines
- *
- * @return Array Return array of contract lines
- */
- function fetch_lines()
- {
- $this->nbofserviceswait=0;
- $this->nbofservicesopened=0;
- $this->nbofservicesexpired=0;
- $this->nbofservicesclosed=0;
- $total_ttc=0;
- $total_vat=0;
- $total_ht=0;
- $now=dol_now();
- $this->lines=array();
- // Selectionne les lignes contrats liees a un produit
- $sql = "SELECT p.label, p.description as product_desc, p.ref,";
- $sql.= " d.rowid, d.fk_contrat, d.statut, d.description, d.price_ht, d.tva_tx, d.localtax1_tx, d.localtax2_tx, d.qty, d.remise_percent, d.subprice,";
- $sql.= " d.total_ht,";
- $sql.= " d.total_tva,";
- $sql.= " d.total_localtax1,";
- $sql.= " d.total_localtax2,";
- $sql.= " d.total_ttc,";
- $sql.= " d.info_bits, d.fk_product,";
- $sql.= " d.date_ouverture_prevue, d.date_ouverture,";
- $sql.= " d.date_fin_validite, d.date_cloture,";
- $sql.= " d.fk_user_author,";
- $sql.= " d.fk_user_ouverture,";
- $sql.= " d.fk_user_cloture";
- $sql.= " FROM ".MAIN_DB_PREFIX."contratdet as d, ".MAIN_DB_PREFIX."product as p";
- $sql.= " WHERE d.fk_contrat = ".$this->id ." AND d.fk_product = p.rowid";
- $sql.= " ORDER by d.rowid ASC";
- dol_syslog(get_class($this)."::fetch_lines sql=".$sql);
- $result = $this->db->query($sql);
- if ($result)
- {
- $num = $this->db->num_rows($result);
- $i = 0;
- while ($i < $num)
- {
- $objp = $this->db->fetch_object($result);
- $line = new ContratLigne($this->db);
- $line->id = $objp->rowid;
- $line->ref = $objp->rowid;
- $line->fk_contrat = $objp->fk_contrat;
- $line->desc = $objp->description; // Description ligne
- $line->qty = $objp->qty;
- $line->tva_tx = $objp->tva_tx;
- $line->localtax1_tx = $objp->localtax1_tx;
- $line->localtax2_tx = $objp->localtax2_tx;
- $line->subprice = $objp->subprice;
- $line->statut = $objp->statut;
- $line->remise_percent = $objp->remise_percent;
- $line->price_ht = $objp->price_ht;
- $line->price = $objp->price_ht; // For backward compatibility
- $line->total_ht = $objp->total_ht;
- $line->total_tva = $objp->total_tva;
- $line->total_localtax1 = $objp->total_localtax1;
- $line->total_localtax2 = $objp->total_localtax2;
- $line->total_ttc = $objp->total_ttc;
- $line->fk_product = $objp->fk_product;
- $line->info_bits = $objp->info_bits;
- $line->fk_user_author = $objp->fk_user_author;
- $line->fk_user_ouverture= $objp->fk_user_ouverture;
- $line->fk_user_cloture = $objp->fk_user_cloture;
- $line->ref = $objp->ref;
- $line->libelle = $objp->label; // Label produit
- $line->label = $objp->label; // For backward compatibility
- $line->product_desc = $objp->product_desc; // Description produit
- $line->description = $objp->description;
- $line->date_ouverture_prevue = $this->db->jdate($objp->date_ouverture_prevue);
- $line->date_ouverture = $this->db->jdate($objp->date_ouverture);
- $line->date_fin_validite = $this->db->jdate($objp->date_fin_validite);
- $line->date_cloture = $this->db->jdate($objp->date_cloture);
- // For backward compatibility
- $line->date_debut_prevue = $this->db->jdate($objp->date_ouverture_prevue);
- $line->date_debut_reel = $this->db->jdate($objp->date_ouverture);
- $line->date_fin_prevue = $this->db->jdate($objp->date_fin_validite);
- $line->date_fin_reel = $this->db->jdate($objp->date_cloture);
- $this->lines[] = $line;
- //dol_syslog("1 ".$line->desc);
- //dol_syslog("2 ".$line->product_desc);
- if ($line->statut == 0) $this->nbofserviceswait++;
- if ($line->statut == 4 && (empty($line->date_fin_prevue) || $line->date_fin_prevue >= $now)) $this->nbofservicesopened++;
- if ($line->statut == 4 && $line->date_fin_prevue < $now) $this->nbofservicesexpired++;
- if ($line->statut == 5) $this->nbofservicesclosed++;
- $total_ttc+=$objp->total_ttc; // TODO Not saved into database
- $total_vat+=$objp->total_tva;
- $total_ht+=$objp->total_ht;
- $i++;
- }
- $this->db->free($result);
- }
- else
- {
- dol_syslog(get_class($this)."::Fetch Erreur lecture des lignes de contrats liees aux produits");
- return -3;
- }
- // Selectionne les lignes contrat liees a aucun produit
- $sql = "SELECT d.rowid, d.fk_contrat, d.statut, d.qty, d.description, d.price_ht, d.tva_tx, d.localtax1_tx, d.localtax2_tx, d.rowid, d.remise_percent, d.subprice,";
- $sql.= " d.total_ht,";
- $sql.= " d.total_tva,";
- $sql.= " d.total_localtax1,";
- $sql.= " d.total_localtax2,";
- $sql.= " d.total_ttc,";
- $sql.= " d.info_bits, d.fk_product,";
- $sql.= " d.date_ouverture_prevue, d.date_ouverture,";
- $sql.= " d.date_fin_validite, d.date_cloture,";
- $sql.= " d.fk_user_author,";
- $sql.= " d.fk_user_ouverture,";
- $sql.= " d.fk_user_cloture";
- $sql.= " FROM ".MAIN_DB_PREFIX."contratdet as d";
- $sql.= " WHERE d.fk_contrat = ".$this->id;
- $sql.= " AND (d.fk_product IS NULL OR d.fk_product = 0)"; // fk_product = 0 gardee pour compatibilitee
- $result = $this->db->query($sql);
- if ($result)
- {
- $num = $this->db->num_rows($result);
- $i = 0;
- while ($i < $num)
- {
- $objp = $this->db->fetch_object($result);
- $line = new ContratLigne($this->db);
- $line->id = $objp->rowid;
- $line->fk_contrat = $objp->fk_contrat;
- $line->libelle = $objp->description;
- $line->desc = $objp->description;
- $line->qty = $objp->qty;
- $line->statut = $objp->statut;
- $line->ref = $objp->ref;
- $line->tva_tx = $objp->tva_tx;
- $line->localtax1_tx = $objp->localtax1_tx;
- $line->localtax2_tx = $objp->localtax2_tx;
- $line->subprice = $objp->subprice;
- $line->remise_percent = $objp->remise_percent;
- $line->price_ht = $objp->price_ht;
- $line->price = $objp->price; // For backward compatibility
- $line->total_ht = $objp->total_ht;
- $line->total_tva = $objp->total_tva;
- $line->total_localtax1= $objp->total_localtax1;
- $line->total_localtax2= $objp->total_localtax2;
- $line->total_ttc = $objp->total_ttc;
- $line->fk_product = 0;
- $line->info_bits = $objp->info_bits;
- $line->fk_user_author = $objp->fk_user_author;
- $line->fk_user_ouverture= $objp->fk_user_ouverture;
- $line->fk_user_cloture = $objp->fk_user_cloture;
- $line->description = $objp->description;
- $line->date_ouverture_prevue = $this->db->jdate($objp->date_ouverture_prevue);
- $line->date_ouverture = $this->db->jdate($objp->date_ouverture);
- $line->date_fin_validite = $this->db->jdate($objp->date_fin_validite);
- $line->date_cloture = $this->db->jdate($objp->date_cloture);
- // For backward compatibility
- $line->date_debut_prevue = $this->db->jdate($objp->date_ouverture_prevue);
- $line->date_debut_reel = $this->db->jdate($objp->date_ouverture);
- $line->date_fin_prevue = $this->db->jdate($objp->date_fin_validite);
- $line->date_fin_reel = $this->db->jdate($objp->date_cloture);
- if ($line->statut == 0) $this->nbofserviceswait++;
- if ($line->statut == 4 && (empty($line->date_fin_prevue) || $line->date_fin_prevue >= $now)) $this->nbofservicesopened++;
- if ($line->statut == 4 && $line->date_fin_prevue < $now) $this->nbofservicesexpired++;
- if ($line->statut == 5) $this->nbofservicesclosed++;
- $this->lines[] = $line;
- $total_ttc+=$objp->total_ttc;
- $total_vat+=$objp->total_tva;
- $total_ht+=$objp->total_ht;
- $i++;
- }
- $this->db->free($result);
- }
- else
- {
- dol_syslog(get_class($this)."::Fetch Erreur lecture des lignes de contrat non liees aux produits");
- $this->error=$this->db->error();
- return -2;
- }
- $this->nbofservices=count($this->lines);
- $this->total_ttc = price2num($total_ttc); // TODO For the moment value is false as value is not stored in database for line linked to products
- $this->total_vat = price2num($total_vat); // TODO For the moment value is false as value is not stored in database for line linked to products
- $this->total_ht = price2num($total_ht); // TODO For the moment value is false as value is not stored in database for line linked to products
- return $this->lines;
- }
- /**
- * Create a contract into database
- *
- * @param User $user User that create
- * @return int <0 if KO, id of contract if OK
- */
- function create($user)
- {
- global $conf,$langs,$mysoc;
- // Check parameters
- $paramsok=1;
- if ($this->commercial_signature_id <= 0)
- {
- $langs->load("commercial");
- $this->error.=$langs->trans("ErrorFieldRequired",$langs->trans("SalesRepresentativeSignature"));
- $paramsok=0;
- }
- if ($this->commercial_suivi_id <= 0)
- {
- $langs->load("commercial");
- $this->error.=($this->error?"<br>":'');
- $this->error.=$langs->trans("ErrorFieldRequired",$langs->trans("SalesRepresentativeFollowUp"));
- $paramsok=0;
- }
- if (! $paramsok) return -1;
- $this->db->begin();
- $now=dol_now();
- // Insert contract
- $sql = "INSERT INTO ".MAIN_DB_PREFIX."contrat (datec, fk_soc, fk_user_author, date_contrat,";
- $sql.= " fk_commercial_signature, fk_commercial_suivi, fk_projet,";
- $sql.= " ref, entity)";
- $sql.= " VALUES (".$this->db->idate($now).",".$this->socid.",".$user->id;
- $sql.= ",".$this->db->idate($this->date_contrat);
- $sql.= ",".($this->commercial_signature_id>0?$this->commercial_signature_id:"NULL");
- $sql.= ",".($this->commercial_suivi_id>0?$this->commercial_suivi_id:"NULL");
- $sql.= ",".($this->fk_projet>0?$this->fk_projet:"NULL");
- $sql.= ", ".(dol_strlen($this->ref)<=0 ? "null" : "'".$this->ref."'");
- $sql.= ", ".$conf->entity;
- $sql.= ")";
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $error=0;
- $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX."contrat");
- // Insert contacts commerciaux ('SALESREPSIGN','contrat')
- $result=$this->add_contact($this->commercial_signature_id,'SALESREPSIGN','internal');
- if ($result < 0) $error++;
- // Insert contacts commerciaux ('SALESREPFOLL','contrat')
- $result=$this->add_contact($this->commercial_suivi_id,'SALESREPFOLL','internal');
- if ($result < 0) $error++;
- if (! $error)
- {
- // Appel des triggers
- include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('CONTRACT_CREATE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
- if (! $error)
- {
- $this->db->commit();
- return $this->id;
- }
- else
- {
- $this->error=$interface->error;
- dol_syslog(get_class($this)."::create - 30 - ".$this->error, LOG_ERR);
- $this->db->rollback();
- return -3;
- }
- }
- else
- {
- $this->error="Failed to add contact";
- dol_syslog(get_class($this)."::create - 20 - ".$this->error, LOG_ERR);
- $this->db->rollback();
- return -2;
- }
- }
- else
- {
- $this->error=$langs->trans("UnknownError: ".$this->db->error()." - sql=".$sql);
- dol_syslog(get_class($this)."::create - 10 - ".$this->error, LOG_ERR);
- $this->db->rollback();
- return -1;
- }
- }
- /**
- * Supprime l'objet de la base
- *
- * @param User $user Utilisateur qui supprime
- * @return int < 0 si erreur, > 0 si ok
- */
- function delete($user)
- {
- global $conf, $langs;
- $error=0;
- $this->db->begin();
- if (! $error)
- {
- // Delete linked contacts
- $res = $this->delete_linked_contact();
- if ($res < 0)
- {
- dol_syslog(get_class($this)."::delete error", LOG_ERR);
- $error++;
- }
- }
- if (! $error)
- {
- // Delete contratdet_log
- /*
- $sql = "DELETE cdl";
- $sql.= " FROM ".MAIN_DB_PREFIX."contratdet_log as cdl, ".MAIN_DB_PREFIX."contratdet as cd";
- $sql.= " WHERE cdl.fk_contratdet=cd.rowid AND cd.fk_contrat=".$this->id;
- */
- $sql = "SELECT cdl.rowid as cdlrowid ";
- $sql.= " FROM ".MAIN_DB_PREFIX."contratdet_log as cdl, ".MAIN_DB_PREFIX."contratdet as cd";
- $sql.= " WHERE cdl.fk_contratdet=cd.rowid AND cd.fk_contrat=".$this->id;
- dol_syslog(get_class($this)."::delete contratdet_log sql=".$sql, LOG_DEBUG);
- $resql=$this->db->query($sql);
- if (! $resql)
- {
- $this->error=$this->db->error();
- $error++;
- }
- $numressql=$this->db->num_rows($resql);
- if (! $error && $numressql )
- {
- $tab_resql=array();
- for($i=0;$i<$numressql;$i++)
- {
- $objresql=$this->db->fetch_object($resql);
- $tab_resql[]= $objresql->cdlrowid;
- }
- $this->db->free($resql);
- $sql= "DELETE FROM ".MAIN_DB_PREFIX."contratdet_log ";
- $sql.= " WHERE ".MAIN_DB_PREFIX."contratdet_log.rowid IN (".implode(",",$tab_resql).")";
- dol_syslog(get_class($this)."::delete contratdet_log sql=".$sql, LOG_DEBUG);
- $resql=$this->db->query($sql);
- if (! $resql)
- {
- $this->error=$this->db->error();
- $error++;
- }
- }
- }
- if (! $error)
- {
- // Delete contratdet
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."contratdet";
- $sql.= " WHERE fk_contrat=".$this->id;
- dol_syslog(get_class($this)."::delete contratdet sql=".$sql, LOG_DEBUG);
- $resql=$this->db->query($sql);
- if (! $resql)
- {
- $this->error=$this->db->error();
- $error++;
- }
- }
- if (! $error)
- {
- // Delete contrat
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."contrat";
- $sql.= " WHERE rowid=".$this->id;
- dol_syslog(get_class($this)."::delete contrat sql=".$sql);
- $resql=$this->db->query($sql);
- if (! $resql)
- {
- $this->error=$this->db->error();
- $error++;
- }
- }
- if (! $error)
- {
- // Appel des triggers
- include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('CONTRACT_DELETE',$this,$user,$langs,$conf);
- if ($result < 0) {
- $error++; $this->errors=$interface->errors;
- }
- // Fin appel triggers
- }
- if (! $error)
- {
- // We remove directory
- $ref = dol_sanitizeFileName($this->ref);
- if ($conf->contrat->dir_output)
- {
- $dir = $conf->contrat->dir_output . "/" . $ref;
- if (file_exists($dir))
- {
- $res=@dol_delete_dir_recursive($dir);
- if (! $res)
- {
- $this->error='ErrorFailToDeleteDir';
- $error++;
- }
- }
- }
- }
- if (! $error)
- {
- $this->db->commit();
- return 1;
- }
- else
- {
- $this->error=$this->db->error();
- dol_syslog(get_class($this)."::delete ERROR ".$this->error, LOG_ERR);
- $this->db->rollback();
- return -1;
- }
- }
- /**
- * Ajoute une ligne de contrat en base
- *
- * @param string $desc Description de la ligne
- * @param float $pu_ht Prix unitaire HT
- * @param int $qty Quantite
- * @param float $txtva Taux tva
- * @param float $txlocaltax1 Local tax 1 rate
- * @param float $txlocaltax2 Local tax 2 rate
- * @param int $fk_product Id produit
- * @param float $remise_percent Pourcentage de remise de la ligne
- * @param timestamp $date_start Date de debut prevue
- * @param timestamp $date_end Date de fin prevue
- * @param float $price_base_type HT or TTC
- * @param float $pu_ttc Prix unitaire TTC
- * @param int $info_bits Bits de type de lignes
- * @return int <0 si erreur, >0 si ok
- */
- function addline($desc, $pu_ht, $qty, $txtva, $txlocaltax1, $txlocaltax2, $fk_product, $remise_percent, $date_start, $date_end, $price_base_type='HT', $pu_ttc=0, $info_bits=0)
- {
- global $user, $langs, $conf;
- dol_syslog(get_class($this)."::addline $desc, $pu_ht, $qty, $txtva, $txlocaltax1, $txlocaltax2, $fk_product, $remise_percent, $date_start, $date_end, $price_base_type, $pu_ttc, $info_bits");
- if ($this->statut >= 0)
- {
- $this->db->begin();
- // Clean parameters
- $remise_percent=price2num($remise_percent);
- $qty=price2num($qty);
- if (! $qty) $qty=1;
- if (! $info_bits) $info_bits=0;
- if (! $pu_ht) $pu_ht=0;
- if (! $pu_ttc) $pu_ttc=0;
- $pu_ht=price2num($pu_ht);
- $pu_ttc=price2num($pu_ttc);
- $txtva=price2num($txtva);
- $txlocaltax1=price2num($txlocaltax1);
- $txlocaltax2=price2num($txlocaltax2);
- if ($price_base_type=='HT')
- {
- $pu=$pu_ht;
- }
- else
- {
- $pu=$pu_ttc;
- }
- // Calcul du total TTC et de la TVA pour la ligne a partir de
- // qty, pu, remise_percent et txtva
- // TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
- // la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
- $tabprice=calcul_price_total($qty, $pu, $remise_percent, $txtva, $txlocaltax1, $txlocaltax2, 0, $price_base_type, $info_bits);
- $total_ht = $tabprice[0];
- $total_tva = $tabprice[1];
- $total_ttc = $tabprice[2];
- $total_localtax1= $tabprice[9];
- $total_localtax2= $tabprice[10];
- // TODO A virer
- // Anciens indicateurs: $price, $remise (a ne plus utiliser)
- $remise = 0;
- $price = price2num(round($pu_ht, 2));
- if (dol_strlen($remise_percent) > 0)
- {
- $remise = round(($pu_ht * $remise_percent / 100), 2);
- $price = $pu_ht - $remise;
- }
- // Insertion dans la base
- $sql = "INSERT INTO ".MAIN_DB_PREFIX."contratdet";
- $sql.= " (fk_contrat, label, description, fk_product, qty, tva_tx,";
- $sql.= " localtax1_tx, localtax2_tx, remise_percent, subprice,";
- $sql.= " total_ht, total_tva, total_localtax1, total_localtax2, total_ttc,";
- $sql.= " info_bits,";
- $sql.= " price_ht, remise"; // TODO A virer
- if ($date_start > 0) { $sql.= ",date_ouverture_prevue"; }
- if ($date_end > 0) { $sql.= ",date_fin_validite"; }
- $sql.= ") VALUES ($this->id, '', '" . $this->db->escape($desc) . "',";
- $sql.= ($fk_product>0 ? $fk_product : "null").",";
- $sql.= " '".$qty."',";
- $sql.= " '".$txtva."',";
- $sql.= " '".$txlocaltax1."',";
- $sql.= " '".$txlocaltax2."',";
- $sql.= " ".price2num($remise_percent).",".price2num($pu_ht).",";
- $sql.= " ".price2num($total_ht).",".price2num($total_tva).",".price2num($total_localtax1).",".price2num($total_localtax2).",".price2num($total_ttc).",";
- $sql.= " '".$info_bits."',";
- $sql.= " ".price2num($price).",".price2num($remise); // TODO A virer
- if ($date_start > 0) { $sql.= ",'".$this->db->idate($date_start)."'"; }
- if ($date_end > 0) { $sql.= ",'".$this->db->idate($date_end)."'"; }
- $sql.= ")";
- dol_syslog(get_class($this)."::addline sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $result=$this->update_statut($user);
- if ($result > 0)
- {
- $this->db->commit();
- return 1;
- }
- else
- {
- dol_syslog("Error sql=$sql, error=".$this->error,LOG_ERR);
- $this->db->rollback();
- return -1;
- }
- }
- else
- {
- $this->db->rollback();
- $this->error=$this->db->error()." sql=".$sql;
- dol_syslog(get_class($this)."::addline ".$this->error,LOG_ERR);
- return -1;
- }
- }
- else
- {
- dol_syslog(get_class($this)."::addline ErrorTryToAddLineOnValidatedContract", LOG_ERR);
- return -2;
- }
- }
- /**
- * Mets a jour une ligne de contrat
- *
- * @param int $rowid Id de la ligne de facture
- * @param string $desc Description de la ligne
- * @param float $pu Prix unitaire
- * @param int $qty Quantite
- * @param float $remise_percent Pourcentage de remise de la ligne
- * @param timestamp $date_start Date de debut prevue
- * @param timestamp $date_end Date de fin prevue
- * @param float $tvatx Taux TVA
- * @param float $localtax1tx Local tax 1 rate
- * @param float $localtax2tx Local tax 2 rate
- * @param timestamp $date_debut_reel Date de debut reelle
- * @param timestamp $date_fin_reel Date de fin reelle
- * @param float $price_base_type HT or TTC
- * @param int $info_bits Bits de type de lignes
- * @return int < 0 si erreur, > 0 si ok
- */
- function updateline($rowid, $desc, $pu, $qty, $remise_percent, $date_start, $date_end, $tvatx, $localtax1tx=0, $localtax2tx=0, $date_debut_reel='', $date_fin_reel='', $price_base_type='HT', $info_bits=0)
- {
- global $user, $conf, $langs;
- // Nettoyage parametres
- $qty=trim($qty);
- $desc=trim($desc);
- $desc=trim($desc);
- $price = price2num($pu);
- $tvatx = price2num($tvatx);
- $localtax1tx = price2num($localtax1tx);
- $localtax2tx = price2num($localtax2tx);
- $subprice = $price;
- $remise = 0;
- if (dol_strlen($remise_percent) > 0)
- {
- $remise = round(($pu * $remise_percent / 100), 2);
- $price = $pu - $remise;
- }
- else
- {
- $remise_percent=0;
- }
- dol_syslog(get_class($this)."::updateline $rowid, $desc, $pu, $qty, $remise_percent, $date_start, $date_end, $date_debut_reel, $date_fin_reel, $tvatx, $localtax1tx, $localtax2tx, $price_base_type, $info_bits");
- $this->db->begin();
- // Calcul du total TTC et de la TVA pour la ligne a partir de
- // qty, pu, remise_percent et txtva
- // TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
- // la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
- $tabprice=calcul_price_total($qty, $pu, $remise_percent, $txtva, $localtaxtx1, $txlocaltaxtx2, 0, $price_base_type, $info_bits);
- $total_ht = $tabprice[0];
- $total_tva = $tabprice[1];
- $total_ttc = $tabprice[2];
- $total_localtax1= $tabprice[9];
- $total_localtax2= $tabprice[10];
- // TODO A virer
- // Anciens indicateurs: $price, $remise (a ne plus utiliser)
- $remise = 0;
- $price = price2num(round($pu_ht, 2));
- if (dol_strlen($remise_percent) > 0)
- {
- $remise = round(($pu_ht * $remise_percent / 100), 2);
- $price = $pu_ht - $remise;
- }
- $sql = "UPDATE ".MAIN_DB_PREFIX."contratdet set description='".$this->db->escape($desc)."'";
- $sql.= ",price_ht='" . price2num($price)."'";
- $sql.= ",subprice='" . price2num($subprice)."'";
- $sql.= ",remise='" . price2num($remise)."'";
- $sql.= ",remise_percent='".price2num($remise_percent)."'";
- $sql.= ",qty='".$qty."'";
- $sql.= ",tva_tx='". price2num($tvatx)."'";
- $sql.= ",localtax1_tx='". price2num($localtax1tx)."'";
- $sql.= ",localtax2_tx='". price2num($localtax2tx)."'";
- $sql.= ", total_ht='". price2num($total_ht)."'";
- $sql.= ", total_tva='". price2num($total_tva)."'";
- $sql.= ", total_localtax1='".price2num($total_localtax1)."'";
- $sql.= ", total_localtax2='".price2num($total_localtax2)."'";
- $sql.= ", total_ttc='". price2num($total_ttc)."'";
- if ($date_start > 0) { $sql.= ",date_ouverture_prevue='".$this->db->idate($date_start)."'"; }
- else { $sql.=",date_ouverture_prevue=null"; }
- if ($date_end > 0) { $sql.= ",date_fin_validite='".$this->db->idate($date_end)."'"; }
- else { $sql.=",date_fin_validite=null"; }
- if ($date_debut_reel > 0) { $sql.= ",date_ouverture='".$this->db->idate($date_debut_reel)."'"; }
- else { $sql.=",date_ouverture=null"; }
- if ($date_fin_reel > 0) { $sql.= ",date_cloture='".$this->db->idate($date_fin_reel)."'"; }
- else { $sql.=",date_cloture=null"; }
- $sql .= " WHERE rowid = ".$rowid;
- dol_syslog(get_class($this)."::updateline sql=".$sql);
- $result = $this->db->query($sql);
- if ($result)
- {
- $result=$this->update_statut($user);
- if ($result >= 0)
- {
- $this->db->commit();
- return 1;
- }
- else
- {
- $this->db->rollback();
- dol_syslog(get_class($this)."::updateligne Erreur -2");
- return -2;
- }
- }
- else
- {
- $this->db->rollback();
- $this->error=$this->db->error();
- dol_syslog(get_class($this)."::updateligne Erreur -1");
- return -1;
- }
- }
- /**
- * Delete a contract line
- *
- * @param int $idline Id of line to delete
- * @param User $user User that delete
- * @return int >0 if OK, <0 if KO
- */
- function deleteline($idline,$user)
- {
- global $conf, $langs;
- $error=0;
- if ($this->statut >= 0)
- {
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."contratdet";
- $sql.= " WHERE rowid=".$idline;
- dol_syslog(get_class($this)."::delete sql=".$sql);
- $resql = $this->db->query($sql);
- if (! $resql)
- {
- $this->error="Error ".$this->db->lasterror();
- dol_syslog(get_class($this)."::delete ".$this->error, LOG_ERR);
- return -1;
- }
- // Appel des triggers
- include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('CONTRACTLINE_DELETE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
- return 1;
- }
- else
- {
- return -2;
- }
- }
- /**
- * Update statut of contract according to services
- *
- * @param User $user Object user
- * @return int <0 if KO, >0 if OK
- */
- function update_statut($user)
- {
- // If draft, we keep it (should not happen)
- if ($this->statut == 0) return 1;
- // Load $this->lines array
- // $this->fetch_lines();
- $newstatut=1;
- foreach($this->lines as $key => $contractline)
- {
- // if ($contractline) // Loop on each service
- }
- return 1;
- }
- /**
- * Return label of a contract status
- *
- * @param int $mode 0=libelle long, 1=libelle court, 2=Picto + Libelle court, 3=Picto, 4=Picto + Long label of all services, 5=Libelle court + Picto, 6=Picto of all services
- * @return string Label
- */
- function getLibStatut($mode)
- {
- return $this->LibStatut($this->statut,$mode);
- }
- /**
- * Renvoi label of a given contrat status
- *
- * @param int $statut Status id
- * @param int $mode 0=Long label, 1=Short label, 2=Picto + Libelle court, 3=Picto, 4=Picto + Long label of all services, 5=Libelle court + Picto, 6=Picto of all services
- * @return string Label
- */
- function LibStatut($statut,$mode)
- {
- global $langs;
- $langs->load("contracts");
- if ($mode == 0)
- {
- if ($statut == 0) { return $langs->trans("ContractStatusDraft"); }
- if ($statut == 1) { return $langs->trans("ContractStatusValidated"); }
- if ($statut == 2) { return $langs->trans("ContractStatusClosed"); }
- }
- if ($mode == 1)
- {
- if ($statut == 0) { return $langs->trans("ContractStatusDraft"); }
- if ($statut == 1) { return $langs->trans("ContractStatusValidated"); }
- if ($statut == 2) { return $langs->trans("ContractStatusClosed"); }
- }
- if ($mode == 2)
- {
- if ($statut == 0) { return img_picto($langs->trans('ContractStatusDraft'),'statut0').' '.$langs->trans("ContractStatusDraft"); }
- if ($statut == 1) { return img_picto($langs->trans('ContractStatusValidated'),'statut4').' '.$langs->trans("ContractStatusValidated"); }
- if ($statut == 2) { return img_picto($langs->trans('ContractStatusClosed'),'statut6').' '.$langs->trans("ContractStatusClosed"); }
- }
- if ($mode == 3)
- {
- if ($statut == 0) { return img_picto($langs->trans('ContractStatusDraft'),'statut0'); }
- if ($statut == 1) { return img_picto($langs->trans('ContractStatusValidated'),'statut4'); }
- if ($statut == 2) { return img_picto($langs->trans('ContractStatusClosed'),'statut6'); }
- }
- if ($mode == 4 || $mode == 6)
- {
- $line=new ContratLigne($this->db);
- $text='';
- if ($mode == 4)
- {
- $text=($this->nbofserviceswait+$this->nbofservicesopened+$this->nbofservicesexpired+$this->nbofservicesclosed);
- $text.=' '.$langs->trans("Services");
- $text.=': ';
- }
- $text.=$this->nbofserviceswait.' '.$line->LibStatut(0,3).' ';
- $text.=$this->nbofservicesopened.' '.$line->LibStatut(4,3,0).' ';
- $text.=$this->nbofservicesexpired.' '.$line->LibStatut(4,3,1).' ';
- $text.=$this->nbofservicesclosed.' '.$line->LibStatut(5,3);
- return $text;
- }
- if ($mode == 5)
- {
- if ($statut == 0) { return $langs->trans("ContractStatusDraft").' '.img_picto($langs->trans('ContractStatusDraft'),'statut0'); }
- if ($statut == 1) { return $langs->trans("ContractStatusValidated").' '.img_picto($langs->trans('ContractStatusValidated'),'statut4'); }
- if ($statut == 2) { return $langs->trans("ContractStatusClosed").' '.img_picto($langs->trans('ContractStatusClosed'),'statut6'); }
- }
- }
- /**
- * Renvoie nom clicable (avec eventuellement le picto)
- *
- * @param int $withpicto 0=Pas de picto, 1=Inclut le picto dans le lien, 2=Picto seul
- * @param int $maxlength Max length of ref
- * @return string Chaine avec URL
- */
- function getNomUrl($withpicto=0,$maxlength=0)
- {
- global $langs;
- $result='';
- $lien = '<a href="'.DOL_URL_ROOT.'/contrat/fiche.php?id='.$this->id.'">';
- $lienfin='</a>';
- $picto='contract';
- $label=$langs->trans("ShowContract").': '.$this->ref;
- if ($withpicto) $result.=($lien.img_object($label,$picto).$lienfin);
- if ($withpicto && $withpicto != 2) $result.=' ';
- if ($withpicto != 2) $result.=$lien.($maxlength?dol_trunc($this->ref,$maxlength):$this->ref).$lienfin;
- return $result;
- }
- /**
- * Charge les informations d'ordre info dans l'objet contrat
- *
- * @param int $id id du contrat a charger
- * @return void
- */
- function info($id)
- {
- $sql = "SELECT c.rowid, c.ref, c.datec, c.date_cloture,";
- $sql.= " c.tms as date_modification,";
- $sql.= " fk_user_author, fk_user_cloture";
- $sql.= " FROM ".MAIN_DB_PREFIX."contrat as c";
- $sql.= " WHERE c.rowid = ".$id;
- $result=$this->db->query($sql);
- if ($result)
- {
- if ($this->db->num_rows($result))
- {
- $obj = $this->db->fetch_object($result);
- $this->id = $obj->rowid;
- if ($obj->fk_user_author) {
- $cuser = new User($this->db);
- $cuser->fetch($obj->fk_user_author);
- $this->user_creation = $cuser;
- }
- if ($obj->fk_user_cloture) {
- $cuser = new User($this->db);
- $cuser->fetch($obj->fk_user_cloture);
- $this->user_cloture = $cuser;
- }
- $this->ref = (! $obj->ref) ? $obj->rowid : $obj->ref;
- $this->date_creation = $this->db->jdate($obj->datec);
- $this->date_modification = $this->db->jdate($obj->date_modification);
- $this->date_cloture = $this->db->jdate($obj->date_cloture);
- }
- $this->db->free($result);
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- /**
- * Return list of line rowid
- *
- * @param int $statut Status of lines to get
- * @return array Array of line's rowid
- */
- function array_detail($statut=-1)
- {
- $tab=array();
- $sql = "SELECT cd.rowid";
- $sql.= " FROM ".MAIN_DB_PREFIX."contratdet as cd";
- $sql.= " WHERE fk_contrat =".$this->id;
- if ($statut >= 0) $sql.= " AND statut = '$statut'";
- dol_syslog(get_class($this)."::array_detail() sql=".$sql,LOG_DEBUG);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num=$this->db->num_rows($resql);
- $i=0;
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $tab[$i]=$obj->rowid;
- $i++;
- }
- return $tab;
- }
- else
- {
- $this->error=$this->db->error();
- return -1;
- }
- }
- /**
- * Return list of other contracts for same company than current contract
- *
- * @param string $option 'all' or 'others'
- * @return array Array of contracts id
- */
- function getListOfContracts($option='all')
- {
- $tab=array();
- $sql = "SELECT c.rowid, c.ref";
- $sql.= " FROM ".MAIN_DB_PREFIX."contrat as c";
- $sql.= " WHERE fk_soc =".$this->socid;
- if ($option == 'others') $sql.= " AND c.rowid != ".$this->id;
- dol_syslog(get_class($this)."::getOtherContracts() sql=".$sql,LOG_DEBUG);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num=$this->db->num_rows($resql);
- $i=0;
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $contrat=new Contrat($this->db);
- $contrat->fetch($obj->rowid);
- $tab[]=$contrat;
- $i++;
- }
- return $tab;
- }
- else
- {
- $this->error=$this->db->error();
- return -1;
- }
- }
- /**
- * Load indicators for dashboard (this->nbtodo and this->nbtodolate)
- *
- * @param User $user Objet user
- * @param string $mode "inactive" pour services a activer, "expired" pour services expires
- * @return int <0 if KO, >0 if OK
- */
- function load_board($user,$mode)
- {
- global $conf, $user;
- $now=dol_now();
- $this->nbtodo=$this->nbtodolate=0;
- $this->from = " FROM ".MAIN_DB_PREFIX."contrat as c";
- $this->from.= ", ".MAIN_DB_PREFIX."contratdet as cd";
- $this->from.= ", ".MAIN_DB_PREFIX."societe as s";
- if (!$user->rights->societe->client->voir && !$user->societe_id) $this->from.= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
- if ($mode == 'inactives')
- {
- $sql = "SELECT cd.rowid, cd.date_ouverture_prevue as datefin";
- $sql.= $this->from;
- $sql.= " WHERE c.statut = 1";
- $sql.= " AND c.rowid = cd.fk_contrat";
- $sql.= " AND cd.statut = 0";
- }
- if ($mode == 'expired')
- {
- $sql = "SELECT cd.rowid, cd.date_fin_validite as datefin";
- $sql.= $this->from;
- $sql.= " WHERE c.statut = 1";
- $sql.= " AND c.rowid = cd.fk_contrat";
- $sql.= " AND cd.statut = 4";
- $sql.= " AND cd.date_fin_validite < '".$this->db->idate(time())."'";
- }
- $sql.= " AND c.fk_soc = s.rowid";
- $sql.= " AND c.entity = ".$conf->entity;
- if ($user->societe_id) $sql.=" AND c.fk_soc = ".$user->societe_id;
- if (!$user->rights->societe->client->voir && !$user->societe_id) $sql.= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " .$user->id;
- $resql=$this->db->query($sql);
- if ($resql)
- {
- while ($obj=$this->db->fetch_object($resql))
- {
- $this->nbtodo++;
- if ($mode == 'inactives')
- if ($obj->datefin && $this->db->jdate($obj->datefin) < ($now - $conf->contrat->services->inactifs->warning_delay)) $this->nbtodolate++;
- if ($mode == 'expired')
- if ($obj->datefin && $this->db->jdate($obj->datefin) < ($now - $conf->contrat->services->expires->warning_delay)) $this->nbtodolate++;
- }
- return 1;
- }
- else
- {
- dol_print_error($this->db);
- $this->error=$this->db->error();
- return -1;
- }
- }
- /**
- * Charge indicateurs this->nb de tableau de bord
- *
- * @return int <0 si ko, >0 si ok
- */
- function load_state_board()
- {
- global $conf, $user;
- $this->nb=array();
- $clause = "WHERE";
- $sql = "SELECT count(c.rowid) as nb";
- $sql.= " FROM ".MAIN_DB_PREFIX."contrat as c";
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON c.fk_soc = s.rowid";
- if (!$user->rights->contrat->activer && !$user->societe_id)
- {
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe_commerciaux as sc ON s.rowid = sc.fk_soc";
- $sql.= " WHERE sc.fk_user = " .$user->id;
- $clause = "AND";
- }
- $sql.= " ".$clause." c.entity = ".$conf->entity;
- $resql=$this->db->query($sql);
- if ($resql)
- {
- while ($obj=$this->db->fetch_object($resql))
- {
- $this->nb["Contracts"]=$obj->nb;
- }
- return 1;
- }
- else
- {
- dol_print_error($this->db);
- $this->error=$this->db->error();
- return -1;
- }
- }
- /* gestion des contacts d'un contrat */
- /**
- * Return id des contacts clients de facturation
- *
- * @return array Liste des id contacts facturation
- */
- function getIdBillingContact()
- {
- return $this->getIdContact('external','BILLING');
- }
- /**
- * Return id des contacts clients de prestation
- *
- * @return array Liste des id contacts prestation
- */
- function getIdServiceContact()
- {
- return $this->getIdContact('external','SERVICE');
- }
- /**
- * Initialise an instance with random values.
- * Used to build previews or test instances.
- * id must be 0 if object instance is a specimen.
- *
- * @return void
- */
- function initAsSpecimen()
- {
- global $user,$langs,$conf;
- $prodids = array();
- $sql = "SELECT rowid";
- $sql.= " FROM ".MAIN_DB_PREFIX."product";
- $sql.= " WHERE entity IN (".getEntity('product', 1).")";
- $sql.= " AND tosell = 1";
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $num_prods = $this->db->num_rows($resql);
- $i = 0;
- while ($i < $num_prods)
- {
- $i++;
- $row = $this->db->fetch_row($resql);
- $prodids[$i] = $row[0];
- }
- }
- // Initialise parametres
- $this->id=0;
- $this->specimen=1;
- $this->ref = 'DOLIBARR';
- $this->socid = 1;
- $this->statut= 0;
- $this->date_contrat = dol_now();
- $this->commercial_signature_id = 1;
- $this->commercial_suivi_id = 1;
- $this->note='This is a comment (private)';
- $this->note='This is a comment (public)';
- $this->fk_projet = 0;
- // Lines
- $nbp = 5;
- $xnbp = 0;
- while ($xnbp < $nbp)
- {
- $line=new ContratLigne($this->db);
- $line->desc=$langs->trans("Description")." ".$xnbp;
- $line->qty=1;
- $line->subprice=100;
- $line->price=100;
- $line->tva_tx=19.6;
- $line->remise_percent=10;
- $line->total_ht=90;
- $line->total_ttc=107.64; // 90 * 1.196
- $line->total_tva=17.64;
- $prodid = rand(1, $num_prods);
- $line->fk_product=$prodids[$prodid];
- $this->lines[$xnbp]=$line;
- $xnbp++;
- }
- $this->amount_ht = $xnbp*100;
- $this->total_ht = $xnbp*100;
- $this->total_tva = $xnbp*19.6;
- $this->total_ttc = $xnbp*119.6;
- }
- }
- /**
- * Classe permettant la gestion des lignes de contrats
- */
- class ContratLigne
- {
- var $db; //!< To store db handler
- var $error; //!< To return error code (or message)
- var $errors=array(); //!< To return several error codes (or messages)
- //var $element='contratdet'; //!< Id that identify managed objects
- //var $table_element='contratdet'; //!< Name of table without prefix where object is stored
- var $id;
- var $ref;
- var $tms;
- var $fk_contrat;
- var $fk_product;
- var $statut; // 0 inactive, 4 active, 5 closed
- var $label;
- var $description;
- var $date_commande;
- var $date_ouverture_prevue; // date start planned
- var $date_ouverture; // date start real
- var $date_fin_validite; // date end planned
- var $date_cloture; // date end real
- var $tva_tx;
- var $localtax1_tx;
- var $localtax2_tx;
- var $qty;
- var $remise_percent;
- var $remise;
- var $fk_remise_except;
- var $subprice; // Unit price HT
- var $price_ht;
- var $total_ht;
- var $total_tva;
- var $total_localtax1;
- var $total_localtax2;
- var $total_ttc;
- var $info_bits;
- var $fk_user_author;
- var $fk_user_ouverture;
- var $fk_user_cloture;
- var $commentaire;
- /**
- * Constructor
- *
- * @param DoliDb $db Database handler
- */
- function __construct($db = '')
- {
- $this->db = $db;
- }
- /**
- * Return label of this contract line status
- *
- * @param int $mode 0=libelle long, 1=libelle court, 2=Picto + Libelle court, 3=Picto, 4=Picto + Libelle long, 5=Libelle court + Picto
- * @return string Libelle
- */
- function getLibStatut($mode)
- {
- return $this->LibStatut($this->statut,$mode,(isset($this->date_fin_validite)?($this->date_fin_validite < dol_now()?1:0):-1));
- }
- /**
- * Return label of a contract line status
- *
- * @param int $statut Id statut
- * @param int $mode 0=libelle long, 1=libelle court, 2=Picto + Libelle court, 3=Picto, 4=Picto + Libelle long, 5=Libelle court + Picto
- * @param int $expired 0=Not expired, 1=Expired, -1=Both or unknown
- * @return string Libelle
- */
- function LibStatut($statut,$mode,$expired=-1)
- {
- global $langs;
- $langs->load("contracts");
- if ($mode == 0)
- {
- if ($statut == 0) { return $langs->trans("ServiceStatusInitial"); }
- if ($statut == 4 && $expired == -1) { return $langs->trans("ServiceStatusRunning"); }
- if ($statut == 4 && $expired == 0) { return $langs->trans("ServiceStatusNotLate"); }
- if ($statut == 4 && $expired == 1) { return $langs->trans("ServiceStatusLate"); }
- if ($statut == 5) { return $langs->trans("ServiceStatusClosed"); }
- }
- if ($mode == 1)
- {
- if ($statut == 0) { return $langs->trans("ServiceStatusInitial"); }
- if ($statut == 4 && $expired == -1) { return $langs->trans("ServiceStatusRunning"); }
- if ($statut == 4 && $expired == 0) { return $langs->trans("ServiceStatusNotLateShort"); }
- if ($statut == 4 && $expired == 1) { return $langs->trans("ServiceStatusLateShort"); }
- if ($statut == 5) { return $langs->trans("Serviā¦
Large files files are truncated, but you can click here to view the full file