2004-10-20 23:06:45 +02:00
< ? php
2019-02-24 23:32:09 +01:00
/* Copyright ( C ) 2001 - 2007 Rodolphe Quiedeville < rodolphe @ quiedeville . org >
2014-10-02 09:30:31 +02:00
* Copyright ( C ) 2004 - 2014 Laurent Destailleur < eldy @ users . sourceforge . net >
2018-10-27 14:43:12 +02:00
* Copyright ( C ) 2005 - 2015 Regis Houssin < regis . houssin @ inodbox . com >
2014-10-02 09:30:31 +02:00
* Copyright ( C ) 2006 Andre Cianfarani < acianfa @ free . fr >
* Copyright ( C ) 2007 - 2011 Jean Heimburger < jean @ tiaris . info >
2018-10-11 15:44:23 +02:00
* Copyright ( C ) 2010 - 2018 Juanjo Menent < jmenent @ 2 byte . es >
2016-03-17 09:40:05 +01:00
* Copyright ( C ) 2012 Cedric Salvador < csalvador @ gpcsolutions . fr >
2014-10-02 09:30:31 +02:00
* Copyright ( C ) 2013 - 2014 Cedric GROSS < c . gross @ kreiz - it . fr >
2016-03-30 11:38:39 +02:00
* Copyright ( C ) 2013 - 2016 Marcos García < marcosgdf @ gmail . com >
2020-03-01 05:09:57 +01:00
* Copyright ( C ) 2011 - 2020 Alexandre Spangaro < aspangaro @ open - dsi . fr >
2014-10-02 09:30:31 +02:00
* Copyright ( C ) 2014 Henry Florian < florian . henry @ open - concept . pro >
2016-03-17 09:40:05 +01:00
* Copyright ( C ) 2014 - 2016 Philippe Grand < philippe . grand @ atoo - net . com >
* Copyright ( C ) 2014 Ion agorria < ion @ agorria . com >
2018-10-17 10:01:02 +02:00
* Copyright ( C ) 2016 - 2018 Ferran Marcet < fmarcet @ 2 byte . es >
2017-06-09 12:50:56 +02:00
* Copyright ( C ) 2017 Gustavo Novaro
2019-03-07 22:40:16 +01:00
* Copyright ( C ) 2019 Frédéric France < frederic . france @ netlogic . fr >
2006-11-30 15:23:38 +01:00
*
2002-04-30 17:52:56 +02:00
* 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
2013-01-16 15:36:08 +01:00
* the Free Software Foundation ; either version 3 of the License , or
2002-04-30 17:52:56 +02:00
* ( 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
2019-09-23 21:55:30 +02:00
* along with this program . If not , see < https :// www . gnu . org / licenses />.
2002-04-30 17:52:56 +02:00
*/
2005-03-01 22:44:32 +01:00
/**
2018-11-06 12:13:16 +01:00
* \file htdocs / product / class / product . class . php
* \ingroup produit
* \brief File of class to manage predefined products or services
2008-07-27 22:47:13 +02:00
*/
2015-01-31 14:53:14 +01:00
require_once DOL_DOCUMENT_ROOT . '/core/class/commonobject.class.php' ;
2014-03-05 10:30:06 +01:00
require_once DOL_DOCUMENT_ROOT . '/product/class/productbatch.class.php' ;
2016-12-05 18:08:09 +01:00
require_once DOL_DOCUMENT_ROOT . '/product/stock/class/entrepot.class.php' ;
2007-11-05 23:37:41 +01:00
2005-03-01 22:44:32 +01:00
/**
2012-02-22 12:37:39 +01:00
* Class to manage products or services
2008-07-27 22:47:13 +02:00
*/
2007-11-05 23:37:41 +01:00
class Product extends CommonObject
2003-06-22 14:16:11 +02:00
{
2020-09-07 10:18:17 +02:00
/**
* @ var string ID to identify managed object
*/
public $element = 'product' ;
/**
* @ var string Name of table without prefix where object is stored
*/
public $table_element = 'product' ;
/**
* @ var int Field with ID of parent key if this field has a parent
*/
public $fk_element = 'fk_product' ;
/**
* @ var array List of child tables . To test if we can delete object .
*/
protected $childtables = array ( 'supplier_proposaldet' , 'propaldet' , 'commandedet' , 'facturedet' , 'contratdet' , 'facture_fourn_det' , 'commande_fournisseurdet' );
/**
* 0 = No test on entity , 1 = Test with field entity , 2 = Test with link by societe
*
* @ var int
*/
public $ismultientitymanaged = 1 ;
public $picto = 'product' ;
/**
* { @ inheritdoc }
*/
protected $table_ref_field = 'ref' ;
public $regeximgext = '\.gif|\.jpg|\.jpeg|\.png|\.bmp|\.webp|\.xpm|\.xbm' ; // See also into images.lib.php
/*
* @ deprecated
* @ see label
*/
public $libelle ;
/**
* Product label
*
* @ var string
*/
public $label ;
/**
* Product description
*
* @ var string
*/
public $description ;
/**
* Product other fields PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION
*
* @ var string
*/
public $other ;
/**
* Check TYPE constants
*
* @ var int
*/
public $type = self :: TYPE_PRODUCT ;
/**
* Selling price
*
* @ var float
*/
public $price ; // Price net
/**
* Price with tax
*
* @ var float
*/
public $price_ttc ;
/**
* Minimum price net
*
* @ var float
*/
public $price_min ;
/**
* Minimum price with tax
*
* @ var float
*/
public $price_min_ttc ;
/**
* Base price ( 'TTC' for price including tax or 'HT' for net price )
* @ var string
*/
public $price_base_type ;
//! Arrays for multiprices
public $multiprices = array ();
public $multiprices_ttc = array ();
public $multiprices_base_type = array ();
public $multiprices_min = array ();
public $multiprices_min_ttc = array ();
public $multiprices_tva_tx = array ();
public $multiprices_recuperableonly = array ();
//! Price by quantity arrays
public $price_by_qty ;
public $prices_by_qty = array ();
public $prices_by_qty_id = array ();
public $prices_by_qty_list = array ();
//! Default VAT code for product (link to code into llx_c_tva but without foreign keys)
public $default_vat_code ;
//! Default VAT rate of product
public $tva_tx ;
//! French VAT NPR (0 or 1)
public $tva_npr = 0 ;
//! Other local taxes
public $localtax1_tx ;
public $localtax2_tx ;
public $localtax1_type ;
public $localtax2_type ;
/**
* Stock real
*
* @ var int
*/
public $stock_reel = 0 ;
/**
* Stock virtual
*
* @ var int
*/
public $stock_theorique ;
/**
* Cost price
*
* @ var float
*/
public $cost_price ;
//! Average price value for product entry into stock (PMP)
public $pmp ;
/**
* Stock alert
*
* @ var float
*/
public $seuil_stock_alerte = 0 ;
/**
* Ask for replenishment when $desiredstock < $stock_reel
*/
public $desiredstock = 0 ;
/*
* Service expiration
*/
public $duration_value ;
/**
* Exoiration unit
*/
public $duration_unit ;
/**
* Status indicates whether the product is on sale '1' or not '0'
*
* @ var int
*/
public $status = 0 ;
/**
* Status indicate whether the product is available for purchase '1' or not '0'
*
* @ var int
*/
public $status_buy = 0 ;
/**
* Status indicates whether the product is a finished product '1' or a raw material '0'
*
* @ var int
*/
public $finished ;
/**
* We must manage lot / batch number , sell - by date and so on : '1' : yes '0' : no
*
* @ var int
*/
public $status_batch = 0 ;
/**
* Customs code
*
* @ var string
*/
public $customcode ;
/**
* Product URL
*
* @ var string
*/
public $url ;
//! Metric of products
public $weight ;
public $weight_units ;
public $length ;
public $length_units ;
public $width ;
public $width_units ;
public $height ;
public $height_units ;
public $surface ;
public $surface_units ;
public $volume ;
public $volume_units ;
public $net_measure ;
public $net_measure_units ;
public $accountancy_code_sell ;
public $accountancy_code_sell_intra ;
public $accountancy_code_sell_export ;
public $accountancy_code_buy ;
public $accountancy_code_buy_intra ;
public $accountancy_code_buy_export ;
/**
* Main Barcode value
*
* @ var string
*/
public $barcode ;
/**
* Main Barcode type ID
*
* @ var int
*/
public $barcode_type ;
/**
* Main Barcode type code
*
* @ var string
*/
public $barcode_type_code ;
/**
* Additional barcodes ( Some products have different barcodes according to the country of origin of manufacture )
*
* @ var array
*/
public $barcodes_extra = array ();
public $stats_propale = array ();
public $stats_commande = array ();
public $stats_contrat = array ();
public $stats_facture = array ();
public $stats_commande_fournisseur = array ();
public $stats_reception = array ();
public $stats_mrptoconsume = array ();
public $stats_mrptoproduce = array ();
public $multilangs = array ();
//! Size of image
public $imgWidth ;
public $imgHeight ;
/**
* @ var integer | string date_creation
*/
public $date_creation ;
/**
* @ var integer | string date_modification
*/
public $date_modification ;
//! Id du fournisseur
public $product_fourn_id ;
//! Product ID already linked to a reference supplier
public $product_id_already_linked ;
public $nbphoto = 0 ;
//! Contains detail of stock of product into each warehouse
public $stock_warehouse = array ();
public $oldcopy ;
public $fk_default_warehouse ;
/**
* @ var int ID
*/
public $fk_price_expression ;
/* To store supplier price found */
public $fourn_pu ;
public $fourn_price_base_type ;
public $fourn_socid ;
/**
* @ deprecated
* @ see $ref_supplier
*/
public $ref_fourn ;
public $ref_supplier ;
/**
* Unit code ( 'km' , 'm' , 'l' , 'p' , ... )
*
* @ var string
*/
public $fk_unit ;
/**
* Price is generated using multiprice rules
*
* @ var int
*/
public $price_autogen = 0 ;
public $fields = array (
'rowid' => array ( 'type' => 'integer' , 'label' => 'TechnicalID' , 'enabled' => 1 , 'visible' =>- 2 , 'notnull' => 1 , 'index' => 1 , 'position' => 1 , 'comment' => 'Id' ),
'ref' => array ( 'type' => 'varchar(128)' , 'label' => 'Ref' , 'enabled' => 1 , 'visible' => 1 , 'notnull' => 1 , 'showoncombobox' => 1 , 'index' => 1 , 'position' => 10 , 'searchall' => 1 , 'comment' => 'Reference of object' ),
'entity' => array ( 'type' => 'integer' , 'label' => 'Entity' , 'enabled' => 1 , 'visible' => 0 , 'default' => 1 , 'notnull' => 1 , 'index' => 1 , 'position' => 20 ),
'label' => array ( 'type' => 'varchar(255)' , 'label' => 'Label' , 'enabled' => 1 , 'visible' => 1 , 'notnull' => 1 , 'showoncombobox' => 1 ),
'note_public' => array ( 'type' => 'html' , 'label' => 'NotePublic' , 'enabled' => 1 , 'visible' => 0 , 'position' => 61 ),
'note' => array ( 'type' => 'html' , 'label' => 'NotePrivate' , 'enabled' => 1 , 'visible' => 0 , 'position' => 62 ),
'datec' => array ( 'type' => 'datetime' , 'label' => 'DateCreation' , 'enabled' => 1 , 'visible' =>- 2 , 'notnull' => 1 , 'position' => 500 ),
'tms' => array ( 'type' => 'timestamp' , 'label' => 'DateModification' , 'enabled' => 1 , 'visible' =>- 2 , 'notnull' => 1 , 'position' => 501 ),
//'date_valid' =>array('type'=>'datetime', 'label'=>'DateCreation', 'enabled'=>1, 'visible'=>-2, 'position'=>502),
'fk_user_author' => array ( 'type' => 'integer' , 'label' => 'UserAuthor' , 'enabled' => 1 , 'visible' =>- 2 , 'notnull' => 1 , 'position' => 510 , 'foreignkey' => 'llx_user.rowid' ),
'fk_user_modif' => array ( 'type' => 'integer' , 'label' => 'UserModif' , 'enabled' => 1 , 'visible' =>- 2 , 'notnull' =>- 1 , 'position' => 511 ),
//'fk_user_valid' =>array('type'=>'integer', 'label'=>'UserValidation', 'enabled'=>1, 'visible'=>-1, 'position'=>512),
'import_key' => array ( 'type' => 'varchar(14)' , 'label' => 'ImportId' , 'enabled' => 1 , 'visible' =>- 2 , 'notnull' =>- 1 , 'index' => 0 , 'position' => 1000 ),
//'tosell' =>array('type'=>'integer', 'label'=>'Status', 'enabled'=>1, 'visible'=>1, 'notnull'=>1, 'default'=>0, 'index'=>1, 'position'=>1000, 'arrayofkeyval'=>array(0=>'Draft', 1=>'Active', -1=>'Cancel')),
//'tobuy' =>array('type'=>'integer', 'label'=>'Status', 'enabled'=>1, 'visible'=>1, 'notnull'=>1, 'default'=>0, 'index'=>1, 'position'=>1000, 'arrayofkeyval'=>array(0=>'Draft', 1=>'Active', -1=>'Cancel')),
);
/**
* Regular product
*/
const TYPE_PRODUCT = 0 ;
/**
* Service
*/
const TYPE_SERVICE = 1 ;
/**
* Advanced feature : assembly kit
*/
const TYPE_ASSEMBLYKIT = 2 ;
/**
* Advanced feature : stock kit
*/
const TYPE_STOCKKIT = 3 ;
/**
* Constructor
*
* @ param DoliDB $db Database handler
*/
public function __construct ( $db )
{
$this -> db = $db ;
$this -> canvas = '' ;
}
/**
* Check that ref and label are ok
*
* @ return int > 1 if OK , <= 0 if KO
*/
public function check ()
{
$this -> ref = dol_sanitizeFileName ( stripslashes ( $this -> ref ));
$err = 0 ;
if ( dol_strlen ( trim ( $this -> ref )) == 0 ) {
$err ++ ;
}
if ( dol_strlen ( trim ( $this -> label )) == 0 ) {
$err ++ ;
}
if ( $err > 0 ) {
return 0 ;
} else {
return 1 ;
}
}
/**
* Insert product into database
*
* @ param User $user User making insert
* @ param int $notrigger Disable triggers
* @ return int Id of product / service if OK , < 0 if KO
*/
public function create ( $user , $notrigger = 0 )
{
global $conf , $langs ;
$error = 0 ;
// Clean parameters
$this -> ref = dol_sanitizeFileName ( dol_string_nospecial ( trim ( $this -> ref )));
$this -> label = trim ( $this -> label );
$this -> price_ttc = price2num ( $this -> price_ttc );
$this -> price = price2num ( $this -> price );
$this -> price_min_ttc = price2num ( $this -> price_min_ttc );
$this -> price_min = price2num ( $this -> price_min );
if ( empty ( $this -> tva_tx )) {
$this -> tva_tx = 0 ;
}
if ( empty ( $this -> tva_npr )) {
$this -> tva_npr = 0 ;
}
//Local taxes
if ( empty ( $this -> localtax1_tx )) {
$this -> localtax1_tx = 0 ;
}
if ( empty ( $this -> localtax2_tx )) {
$this -> localtax2_tx = 0 ;
}
if ( empty ( $this -> localtax1_type )) {
$this -> localtax1_type = '0' ;
}
if ( empty ( $this -> localtax2_type )) {
$this -> localtax2_type = '0' ;
}
if ( empty ( $this -> price )) {
$this -> price = 0 ;
}
if ( empty ( $this -> price_min )) {
$this -> price_min = 0 ;
}
// Price by quantity
if ( empty ( $this -> price_by_qty )) {
$this -> price_by_qty = 0 ;
}
if ( empty ( $this -> status )) {
$this -> status = 0 ;
}
if ( empty ( $this -> status_buy )) {
$this -> status_buy = 0 ;
}
$price_ht = 0 ;
$price_ttc = 0 ;
$price_min_ht = 0 ;
$price_min_ttc = 0 ;
//
if ( $this -> price_base_type == 'TTC' && $this -> price_ttc > 0 ) {
$price_ttc = price2num ( $this -> price_ttc , 'MU' );
$price_ht = price2num ( $this -> price_ttc / ( 1 + ( $this -> tva_tx / 100 )), 'MU' );
}
//
if ( $this -> price_base_type != 'TTC' && $this -> price > 0 ) {
$price_ht = price2num ( $this -> price , 'MU' );
$price_ttc = price2num ( $this -> price * ( 1 + ( $this -> tva_tx / 100 )), 'MU' );
}
//
if (( $this -> price_min_ttc > 0 ) && ( $this -> price_base_type == 'TTC' )) {
$price_min_ttc = price2num ( $this -> price_min_ttc , 'MU' );
$price_min_ht = price2num ( $this -> price_min_ttc / ( 1 + ( $this -> tva_tx / 100 )), 'MU' );
}
//
if (( $this -> price_min > 0 ) && ( $this -> price_base_type != 'TTC' )) {
$price_min_ht = price2num ( $this -> price_min , 'MU' );
$price_min_ttc = price2num ( $this -> price_min * ( 1 + ( $this -> tva_tx / 100 )), 'MU' );
}
$this -> accountancy_code_buy = trim ( $this -> accountancy_code_buy );
$this -> accountancy_code_buy_intra = trim ( $this -> accountancy_code_buy_intra );
$this -> accountancy_code_buy_export = trim ( $this -> accountancy_code_buy_export );
$this -> accountancy_code_sell = trim ( $this -> accountancy_code_sell );
$this -> accountancy_code_sell_intra = trim ( $this -> accountancy_code_sell_intra );
$this -> accountancy_code_sell_export = trim ( $this -> accountancy_code_sell_export );
// Barcode value
$this -> barcode = trim ( $this -> barcode );
// Check parameters
if ( empty ( $this -> label )) {
$this -> error = 'ErrorMandatoryParametersNotProvided' ;
return - 1 ;
}
if ( empty ( $this -> ref ) || $this -> ref == 'auto' ) {
// Load object modCodeProduct
$module = ( ! empty ( $conf -> global -> PRODUCT_CODEPRODUCT_ADDON ) ? $conf -> global -> PRODUCT_CODEPRODUCT_ADDON : 'mod_codeproduct_leopard' );
if ( $module != 'mod_codeproduct_leopard' ) // Do not load module file for leopard
{
if ( substr ( $module , 0 , 16 ) == 'mod_codeproduct_' && substr ( $module , - 3 ) == 'php' ) {
$module = substr ( $module , 0 , dol_strlen ( $module ) - 4 );
}
dol_include_once ( '/core/modules/product/' . $module . '.php' );
$modCodeProduct = new $module ;
if ( ! empty ( $modCodeProduct -> code_auto )) {
$this -> ref = $modCodeProduct -> getNextValue ( $this , $this -> type );
}
unset ( $modCodeProduct );
}
if ( empty ( $this -> ref )) {
$this -> error = 'ProductModuleNotSetupForAutoRef' ;
return - 2 ;
}
}
dol_syslog ( get_class ( $this ) . " ::create ref= " . $this -> ref . " price= " . $this -> price . " price_ttc= " . $this -> price_ttc . " tva_tx= " . $this -> tva_tx . " price_base_type= " . $this -> price_base_type , LOG_DEBUG );
$now = dol_now ();
$this -> db -> begin ();
// For automatic creation during create action (not used by Dolibarr GUI, can be used by scripts)
if ( $this -> barcode == - 1 ) {
$this -> barcode = $this -> get_barcode ( $this , $this -> barcode_type_code );
}
// Check more parameters
// If error, this->errors[] is filled
$result = $this -> verify ();
if ( $result >= 0 ) {
$sql = " SELECT count(*) as nb " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product " ;
$sql .= " WHERE entity IN ( " . getEntity ( 'product' ) . " ) " ;
$sql .= " AND ref = ' " . $this -> db -> escape ( $this -> ref ) . " ' " ;
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
if ( $obj -> nb == 0 ) {
// Produit non deja existant
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " product ( " ;
$sql .= " datec " ;
$sql .= " , entity " ;
$sql .= " , ref " ;
$sql .= " , ref_ext " ;
$sql .= " , price_min " ;
$sql .= " , price_min_ttc " ;
$sql .= " , label " ;
$sql .= " , fk_user_author " ;
$sql .= " , fk_product_type " ;
$sql .= " , price " ;
$sql .= " , price_ttc " ;
$sql .= " , price_base_type " ;
$sql .= " , tobuy " ;
$sql .= " , tosell " ;
$sql .= " , accountancy_code_buy " ;
$sql .= " , accountancy_code_buy_intra " ;
$sql .= " , accountancy_code_buy_export " ;
$sql .= " , accountancy_code_sell " ;
$sql .= " , accountancy_code_sell_intra " ;
$sql .= " , accountancy_code_sell_export " ;
$sql .= " , canvas " ;
$sql .= " , finished " ;
$sql .= " , tobatch " ;
$sql .= " , fk_unit " ;
$sql .= " ) VALUES ( " ;
$sql .= " ' " . $this -> db -> idate ( $now ) . " ' " ;
$sql .= " , " . $conf -> entity ;
$sql .= " , ' " . $this -> db -> escape ( $this -> ref ) . " ' " ;
$sql .= " , " . ( ! empty ( $this -> ref_ext ) ? " ' " . $this -> db -> escape ( $this -> ref_ext ) . " ' " : " null " );
$sql .= " , " . price2num ( $price_min_ht );
$sql .= " , " . price2num ( $price_min_ttc );
$sql .= " , " . ( ! empty ( $this -> label ) ? " ' " . $this -> db -> escape ( $this -> label ) . " ' " : " null " );
$sql .= " , " . $user -> id ;
$sql .= " , " . $this -> type ;
$sql .= " , " . price2num ( $price_ht );
$sql .= " , " . price2num ( $price_ttc );
$sql .= " , ' " . $this -> db -> escape ( $this -> price_base_type ) . " ' " ;
$sql .= " , " . $this -> status ;
$sql .= " , " . $this -> status_buy ;
$sql .= " , ' " . $this -> db -> escape ( $this -> accountancy_code_buy ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> accountancy_code_buy_intra ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> accountancy_code_buy_export ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> accountancy_code_sell ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> accountancy_code_sell_intra ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> accountancy_code_sell_export ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> canvas ) . " ' " ;
$sql .= " , " . (( ! isset ( $this -> finished ) || $this -> finished < 0 || $this -> finished == '' ) ? 'null' : ( int ) $this -> finished );
$sql .= " , " . (( empty ( $this -> status_batch ) || $this -> status_batch < 0 ) ? '0' : $this -> status_batch );
$sql .= " , " . ( ! $this -> fk_unit ? 'NULL' : $this -> fk_unit );
$sql .= " ) " ;
dol_syslog ( get_class ( $this ) . " ::Create " , LOG_DEBUG );
$result = $this -> db -> query ( $sql );
if ( $result ) {
$id = $this -> db -> last_insert_id ( MAIN_DB_PREFIX . " product " );
if ( $id > 0 ) {
$this -> id = $id ;
$this -> price = $price_ht ;
$this -> price_ttc = $price_ttc ;
$this -> price_min = $price_min_ht ;
$this -> price_min_ttc = $price_min_ttc ;
$result = $this -> _log_price ( $user );
if ( $result > 0 ) {
if ( $this -> update ( $id , $user , true , 'add' ) <= 0 ) {
$error ++ ;
}
} else {
$error ++ ;
$this -> error = $this -> db -> lasterror ();
}
} else {
$error ++ ;
$this -> error = 'ErrorFailedToGetInsertedId' ;
}
} else {
$error ++ ;
$this -> error = $this -> db -> lasterror ();
}
} else {
// Product already exists with this ref
$langs -> load ( " products " );
$error ++ ;
$this -> error = " ErrorProductAlreadyExists " ;
}
} else {
$error ++ ;
$this -> error = $this -> db -> lasterror ();
}
if ( ! $error && ! $notrigger ) {
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_CREATE' , $user );
if ( $result < 0 ) { $error ++ ;
}
// End call triggers
}
if ( ! $error ) {
$this -> db -> commit ();
return $this -> id ;
} else {
$this -> db -> rollback ();
return - $error ;
}
} else {
$this -> db -> rollback ();
dol_syslog ( get_class ( $this ) . " ::Create fails verify " . join ( ',' , $this -> errors ), LOG_WARNING );
return - 3 ;
}
}
/**
* Check properties of product are ok ( like name , barcode , ... ) .
* All properties must be already loaded on object ( this -> barcode , this -> barcode_type_code , ... ) .
*
* @ return int 0 if OK , < 0 if KO
*/
public function verify ()
{
$this -> errors = array ();
$result = 0 ;
$this -> ref = trim ( $this -> ref );
if ( ! $this -> ref ) {
$this -> errors [] = 'ErrorBadRef' ;
$result = - 2 ;
}
$rescode = $this -> check_barcode ( $this -> barcode , $this -> barcode_type_code );
if ( $rescode ) {
if ( $rescode == - 1 ) {
$this -> errors [] = 'ErrorBadBarCodeSyntax' ;
} elseif ( $rescode == - 2 ) {
$this -> errors [] = 'ErrorBarCodeRequired' ;
} elseif ( $rescode == - 3 ) {
// Note: Common usage is to have barcode unique. For variants, we should have a different barcode.
$this -> errors [] = 'ErrorBarCodeAlreadyUsed' ;
}
$result = - 3 ;
}
return $result ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Check barcode
*
* @ param string $valuetotest Value to test
* @ param string $typefortest Type of barcode ( ISBN , EAN , ... )
* @ return int 0 if OK
* - 1 ErrorBadBarCodeSyntax
* - 2 ErrorBarCodeRequired
* - 3 ErrorBarCodeAlreadyUsed
*/
public function check_barcode ( $valuetotest , $typefortest )
{
// phpcs:enable
global $conf ;
if ( ! empty ( $conf -> barcode -> enabled ) && ! empty ( $conf -> global -> BARCODE_PRODUCT_ADDON_NUM )) {
$module = strtolower ( $conf -> global -> BARCODE_PRODUCT_ADDON_NUM );
$dirsociete = array_merge ( array ( '/core/modules/barcode/' ), $conf -> modules_parts [ 'barcode' ]);
foreach ( $dirsociete as $dirroot )
{
$res = dol_include_once ( $dirroot . $module . '.php' );
if ( $res ) { break ;
}
}
$mod = new $module ();
dol_syslog ( get_class ( $this ) . " ::check_barcode value= " . $valuetotest . " type= " . $typefortest . " module= " . $module );
$result = $mod -> verif ( $this -> db , $valuetotest , $this , 0 , $typefortest );
return $result ;
} else {
return 0 ;
}
}
/**
* Update a record into database .
* If batch flag is set to on , we create records into llx_product_batch
*
* @ param int $id Id of product
* @ param User $user Object user making update
* @ param int $notrigger Disable triggers
* @ param string $action Current action for hookmanager ( 'add' or 'update' )
* @ param boolean $updatetype Update product type
* @ return int 1 if OK , - 1 if ref already exists , - 2 if other error
*/
public function update ( $id , $user , $notrigger = false , $action = 'update' , $updatetype = false )
{
global $langs , $conf , $hookmanager ;
$error = 0 ;
// Check parameters
if ( ! $this -> label ) { $this -> label = 'MISSING LABEL' ;
}
// Clean parameters
$this -> ref = dol_string_nospecial ( trim ( $this -> ref ));
$this -> label = trim ( $this -> label );
$this -> description = trim ( $this -> description );
$this -> note = ( isset ( $this -> note ) ? trim ( $this -> note ) : null );
$this -> net_measure = price2num ( $this -> net_measure );
$this -> net_measure_units = trim ( $this -> net_measure_units );
$this -> weight = price2num ( $this -> weight );
$this -> weight_units = trim ( $this -> weight_units );
$this -> length = price2num ( $this -> length );
$this -> length_units = trim ( $this -> length_units );
$this -> width = price2num ( $this -> width );
$this -> width_units = trim ( $this -> width_units );
$this -> height = price2num ( $this -> height );
$this -> height_units = trim ( $this -> height_units );
// set unit not defined
if ( is_numeric ( $this -> length_units )) {
$this -> width_units = $this -> length_units ; // Not used yet
}
if ( is_numeric ( $this -> length_units )) {
$this -> height_units = $this -> length_units ; // Not used yet
}
// Automated compute surface and volume if not filled
if ( empty ( $this -> surface ) && ! empty ( $this -> length ) && ! empty ( $this -> width ) && $this -> length_units == $this -> width_units ) {
$this -> surface = $this -> length * $this -> width ;
$this -> surface_units = measuring_units_squared ( $this -> length_units );
}
if ( empty ( $this -> volume ) && ! empty ( $this -> surface_units ) && ! empty ( $this -> height ) && $this -> length_units == $this -> height_units ) {
$this -> volume = $this -> surface * $this -> height ;
$this -> volume_units = measuring_units_cubed ( $this -> height_units );
}
$this -> surface = price2num ( $this -> surface );
$this -> surface_units = trim ( $this -> surface_units );
$this -> volume = price2num ( $this -> volume );
$this -> volume_units = trim ( $this -> volume_units );
if ( empty ( $this -> tva_tx )) {
$this -> tva_tx = 0 ;
}
if ( empty ( $this -> tva_npr )) {
$this -> tva_npr = 0 ;
}
if ( empty ( $this -> localtax1_tx )) {
$this -> localtax1_tx = 0 ;
}
if ( empty ( $this -> localtax2_tx )) {
$this -> localtax2_tx = 0 ;
}
if ( empty ( $this -> localtax1_type )) {
$this -> localtax1_type = '0' ;
}
if ( empty ( $this -> localtax2_type )) {
$this -> localtax2_type = '0' ;
}
if ( empty ( $this -> status )) {
$this -> status = 0 ;
}
if ( empty ( $this -> status_buy )) {
$this -> status_buy = 0 ;
}
if ( empty ( $this -> country_id )) {
$this -> country_id = 0 ;
}
// Barcode value
$this -> barcode = trim ( $this -> barcode );
$this -> accountancy_code_buy = trim ( $this -> accountancy_code_buy );
$this -> accountancy_code_buy_intra = trim ( $this -> accountancy_code_buy_intra );
$this -> accountancy_code_buy_export = trim ( $this -> accountancy_code_buy_export );
$this -> accountancy_code_sell = trim ( $this -> accountancy_code_sell );
$this -> accountancy_code_sell_intra = trim ( $this -> accountancy_code_sell_intra );
$this -> accountancy_code_sell_export = trim ( $this -> accountancy_code_sell_export );
$this -> db -> begin ();
// Check name is required and codes are ok or unique.
// If error, this->errors[] is filled
if ( $action != 'add' ) {
$result = $this -> verify (); // We don't check when update called during a create because verify was already done
}
if ( $result >= 0 ) {
if ( empty ( $this -> oldcopy )) {
$org = new self ( $this -> db );
$org -> fetch ( $this -> id );
$this -> oldcopy = $org ;
}
// Test if batch management is activated on existing product
// If yes, we create missing entries into product_batch
if ( $this -> hasbatch () && ! $this -> oldcopy -> hasbatch ()) {
//$valueforundefinedlot = 'Undefined'; // In previous version, 39 and lower
$valueforundefinedlot = '000000' ;
dol_syslog ( " Flag batch of product id= " . $this -> id . " is set to ON, so we will create missing records into product_batch " );
$this -> load_stock ();
foreach ( $this -> stock_warehouse as $idW => $ObjW ) // For each warehouse where we have stocks defined for this product (for each lines in product_stock)
{
$qty_batch = 0 ;
foreach ( $ObjW -> detail_batch as $detail ) // Each lines of detail in product_batch of the current $ObjW = product_stock
{
if ( $detail -> batch == $valueforundefinedlot || $detail -> batch == 'Undefined' ) {
// We discard this line, we will create it later
$sqlclean = " DELETE FROM " . MAIN_DB_PREFIX . " product_batch WHERE batch in('Undefined', ' " . $valueforundefinedlot . " ') AND fk_product_stock = " . $ObjW -> id ;
$result = $this -> db -> query ( $sqlclean );
if ( ! $result ) {
dol_print_error ( $this -> db );
exit ;
}
continue ;
}
$qty_batch += $detail -> qty ;
}
// Quantities in batch details are not same as stock quantity,
// so we add a default batch record to complete and get same qty in parent and child table
if ( $ObjW -> real <> $qty_batch ) {
$ObjBatch = new Productbatch ( $this -> db );
$ObjBatch -> batch = $valueforundefinedlot ;
$ObjBatch -> qty = ( $ObjW -> real - $qty_batch );
$ObjBatch -> fk_product_stock = $ObjW -> id ;
if ( $ObjBatch -> create ( $user , 1 ) < 0 ) {
$error ++ ;
$this -> errors = $ObjBatch -> errors ;
}
}
}
}
// For automatic creation
if ( $this -> barcode == - 1 ) { $this -> barcode = $this -> get_barcode ( $this , $this -> barcode_type_code );
}
$sql = " UPDATE " . MAIN_DB_PREFIX . " product " ;
$sql .= " SET label = ' " . $this -> db -> escape ( $this -> label ) . " ' " ;
if ( $updatetype && ( $this -> isProduct () || $this -> isService ())) {
$sql .= " , fk_product_type = " . $this -> type ;
}
$sql .= " , ref = ' " . $this -> db -> escape ( $this -> ref ) . " ' " ;
$sql .= " , ref_ext = " . ( ! empty ( $this -> ref_ext ) ? " ' " . $this -> db -> escape ( $this -> ref_ext ) . " ' " : " null " );
$sql .= " , default_vat_code = " . ( $this -> default_vat_code ? " ' " . $this -> db -> escape ( $this -> default_vat_code ) . " ' " : " null " );
$sql .= " , tva_tx = " . $this -> tva_tx ;
$sql .= " , recuperableonly = " . $this -> tva_npr ;
$sql .= " , localtax1_tx = " . $this -> localtax1_tx ;
$sql .= " , localtax2_tx = " . $this -> localtax2_tx ;
$sql .= " , localtax1_type = " . ( $this -> localtax1_type != '' ? " ' " . $this -> db -> escape ( $this -> localtax1_type ) . " ' " : " '0' " );
$sql .= " , localtax2_type = " . ( $this -> localtax2_type != '' ? " ' " . $this -> db -> escape ( $this -> localtax2_type ) . " ' " : " '0' " );
$sql .= " , barcode = " . ( empty ( $this -> barcode ) ? " null " : " ' " . $this -> db -> escape ( $this -> barcode ) . " ' " );
$sql .= " , fk_barcode_type = " . ( empty ( $this -> barcode_type ) ? " null " : $this -> db -> escape ( $this -> barcode_type ));
$sql .= " , tosell = " . ( int ) $this -> status ;
$sql .= " , tobuy = " . ( int ) $this -> status_buy ;
$sql .= " , tobatch = " . (( empty ( $this -> status_batch ) || $this -> status_batch < 0 ) ? '0' : ( int ) $this -> status_batch );
$sql .= " , finished = " . (( ! isset ( $this -> finished ) || $this -> finished < 0 ) ? " null " : ( int ) $this -> finished );
$sql .= " , net_measure = " . ( $this -> net_measure != '' ? " ' " . $this -> db -> escape ( $this -> net_measure ) . " ' " : 'null' );
$sql .= " , net_measure_units = " . ( $this -> net_measure_units != '' ? " ' " . $this -> db -> escape ( $this -> net_measure_units ) . " ' " : 'null' );
$sql .= " , weight = " . ( $this -> weight != '' ? " ' " . $this -> db -> escape ( $this -> weight ) . " ' " : 'null' );
$sql .= " , weight_units = " . ( $this -> weight_units != '' ? " ' " . $this -> db -> escape ( $this -> weight_units ) . " ' " : 'null' );
$sql .= " , length = " . ( $this -> length != '' ? " ' " . $this -> db -> escape ( $this -> length ) . " ' " : 'null' );
$sql .= " , length_units = " . ( $this -> length_units != '' ? " ' " . $this -> db -> escape ( $this -> length_units ) . " ' " : 'null' );
$sql .= " , width= " . ( $this -> width != '' ? " ' " . $this -> db -> escape ( $this -> width ) . " ' " : 'null' );
$sql .= " , width_units = " . ( $this -> width_units != '' ? " ' " . $this -> db -> escape ( $this -> width_units ) . " ' " : 'null' );
$sql .= " , height = " . ( $this -> height != '' ? " ' " . $this -> db -> escape ( $this -> height ) . " ' " : 'null' );
$sql .= " , height_units = " . ( $this -> height_units != '' ? " ' " . $this -> db -> escape ( $this -> height_units ) . " ' " : 'null' );
$sql .= " , surface = " . ( $this -> surface != '' ? " ' " . $this -> db -> escape ( $this -> surface ) . " ' " : 'null' );
$sql .= " , surface_units = " . ( $this -> surface_units != '' ? " ' " . $this -> db -> escape ( $this -> surface_units ) . " ' " : 'null' );
$sql .= " , volume = " . ( $this -> volume != '' ? " ' " . $this -> db -> escape ( $this -> volume ) . " ' " : 'null' );
$sql .= " , volume_units = " . ( $this -> volume_units != '' ? " ' " . $this -> db -> escape ( $this -> volume_units ) . " ' " : 'null' );
$sql .= " , fk_default_warehouse = " . ( $this -> fk_default_warehouse > 0 ? $this -> db -> escape ( $this -> fk_default_warehouse ) : 'null' );
$sql .= " , seuil_stock_alerte = " . (( isset ( $this -> seuil_stock_alerte ) && is_numeric ( $this -> seuil_stock_alerte )) ? ( float ) $this -> seuil_stock_alerte : 'null' );
$sql .= " , description = ' " . $this -> db -> escape ( $this -> description ) . " ' " ;
$sql .= " , url = " . ( $this -> url ? " ' " . $this -> db -> escape ( $this -> url ) . " ' " : 'null' );
$sql .= " , customcode = ' " . $this -> db -> escape ( $this -> customcode ) . " ' " ;
$sql .= " , fk_country = " . ( $this -> country_id > 0 ? ( int ) $this -> country_id : 'null' );
$sql .= " , note = " . ( isset ( $this -> note ) ? " ' " . $this -> db -> escape ( $this -> note ) . " ' " : 'null' );
$sql .= " , duration = ' " . $this -> db -> escape ( $this -> duration_value . $this -> duration_unit ) . " ' " ;
$sql .= " , accountancy_code_buy = ' " . $this -> db -> escape ( $this -> accountancy_code_buy ) . " ' " ;
$sql .= " , accountancy_code_buy_intra = ' " . $this -> db -> escape ( $this -> accountancy_code_buy_intra ) . " ' " ;
$sql .= " , accountancy_code_buy_export = ' " . $this -> db -> escape ( $this -> accountancy_code_buy_export ) . " ' " ;
$sql .= " , accountancy_code_sell= ' " . $this -> db -> escape ( $this -> accountancy_code_sell ) . " ' " ;
$sql .= " , accountancy_code_sell_intra= ' " . $this -> db -> escape ( $this -> accountancy_code_sell_intra ) . " ' " ;
$sql .= " , accountancy_code_sell_export= ' " . $this -> db -> escape ( $this -> accountancy_code_sell_export ) . " ' " ;
$sql .= " , desiredstock = " . (( isset ( $this -> desiredstock ) && is_numeric ( $this -> desiredstock )) ? ( float ) $this -> desiredstock : " null " );
$sql .= " , cost_price = " . ( $this -> cost_price != '' ? $this -> db -> escape ( $this -> cost_price ) : 'null' );
$sql .= " , fk_unit= " . ( ! $this -> fk_unit ? 'NULL' : ( int ) $this -> fk_unit );
$sql .= " , price_autogen = " . ( ! $this -> price_autogen ? 0 : 1 );
$sql .= " , fk_price_expression = " . ( $this -> fk_price_expression != 0 ? ( int ) $this -> fk_price_expression : 'NULL' );
$sql .= " , fk_user_modif = " . ( $user -> id > 0 ? $user -> id : 'NULL' );
// stock field is not here because it is a denormalized value from product_stock.
$sql .= " WHERE rowid = " . $id ;
dol_syslog ( get_class ( $this ) . " ::update " , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$this -> id = $id ;
// Multilangs
if ( ! empty ( $conf -> global -> MAIN_MULTILANGS )) {
if ( $this -> setMultiLangs ( $user ) < 0 ) {
$this -> error = $langs -> trans ( " Error " ) . " : " . $this -> db -> error () . " - " . $sql ;
return - 2 ;
}
}
$action = 'update' ;
// Actions on extra fields
if ( ! $error ) {
$result = $this -> insertExtraFields ();
if ( $result < 0 ) {
$error ++ ;
}
}
if ( ! $error && ! $notrigger ) {
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_MODIFY' , $user );
if ( $result < 0 ) {
$error ++ ;
}
// End call triggers
}
if ( ! $error && ( is_object ( $this -> oldcopy ) && $this -> oldcopy -> ref !== $this -> ref )) {
// We remove directory
if ( $conf -> product -> dir_output ) {
$olddir = $conf -> product -> dir_output . " / " . dol_sanitizeFileName ( $this -> oldcopy -> ref );
$newdir = $conf -> product -> dir_output . " / " . dol_sanitizeFileName ( $this -> ref );
if ( file_exists ( $olddir )) {
//include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php';
//$res = dol_move($olddir, $newdir);
// do not use dol_move with directory
$res = @ rename ( $olddir , $newdir );
if ( ! $res ) {
$langs -> load ( " errors " );
$this -> error = $langs -> trans ( 'ErrorFailToRenameDir' , $olddir , $newdir );
$error ++ ;
}
}
}
}
if ( ! $error ) {
if ( $conf -> variants -> enabled ) {
include_once DOL_DOCUMENT_ROOT . '/variants/class/ProductCombination.class.php' ;
$comb = new ProductCombination ( $this -> db );
foreach ( $comb -> fetchAllByFkProductParent ( $this -> id ) as $currcomb ) {
$currcomb -> updateProperties ( $this , $user );
}
}
$this -> db -> commit ();
return 1 ;
} else {
$this -> db -> rollback ();
return - $error ;
}
} else {
if ( $this -> db -> errno () == 'DB_ERROR_RECORD_ALREADY_EXISTS' ) {
$langs -> load ( " errors " );
if ( empty ( $conf -> barcode -> enabled ) || empty ( $this -> barcode )) {
$this -> error = $langs -> trans ( " Error " ) . " : " . $langs -> trans ( " ErrorProductAlreadyExists " , $this -> ref );
} else {
$this -> error = $langs -> trans ( " Error " ) . " : " . $langs -> trans ( " ErrorProductBarCodeAlreadyExists " , $this -> barcode );
}
$this -> errors [] = $this -> error ;
$this -> db -> rollback ();
return - 1 ;
} else {
$this -> error = $langs -> trans ( " Error " ) . " : " . $this -> db -> error () . " - " . $sql ;
$this -> errors [] = $this -> error ;
$this -> db -> rollback ();
return - 2 ;
}
}
} else {
$this -> db -> rollback ();
dol_syslog ( get_class ( $this ) . " ::Update fails verify " . join ( ',' , $this -> errors ), LOG_WARNING );
return - 3 ;
}
}
/**
* Delete a product from database ( if not used )
*
* @ param User $user User ( object ) deleting product
* @ param int $notrigger Do not execute trigger
* @ return int < 0 if KO , 0 = Not possible , > 0 if OK
*/
public function delete ( User $user , $notrigger = 0 )
{
global $conf , $langs ;
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
$error = 0 ;
// Check parameters
if ( empty ( $this -> id )) {
$this -> error = " Object must be fetched before calling delete " ;
return - 1 ;
}
if (( $this -> type == Product :: TYPE_PRODUCT && empty ( $user -> rights -> produit -> supprimer )) || ( $this -> type == Product :: TYPE_SERVICE && empty ( $user -> rights -> service -> supprimer ))) {
$this -> error = " ErrorForbidden " ;
return 0 ;
}
$objectisused = $this -> isObjectUsed ( $this -> id );
if ( empty ( $objectisused )) {
$this -> db -> begin ();
if ( ! $error && empty ( $notrigger )) {
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_DELETE' , $user );
if ( $result < 0 ) {
$error ++ ;
}
// End call triggers
}
// Delete from product_batch on product delete
if ( ! $error ) {
$sql = " DELETE FROM " . MAIN_DB_PREFIX . 'product_batch' ;
$sql .= " WHERE fk_product_stock IN ( " ;
$sql .= " SELECT rowid FROM " . MAIN_DB_PREFIX . 'product_stock' ;
$sql .= " WHERE fk_product = " . ( int ) $this -> id . " ) " ;
$result = $this -> db -> query ( $sql );
if ( ! $result ) {
$error ++ ;
$this -> errors [] = $this -> db -> lasterror ();
}
}
// Delete all child tables
if ( ! $error ) {
$elements = array ( 'product_fournisseur_price' , 'product_price' , 'product_lang' , 'categorie_product' , 'product_stock' , 'product_customer_price' , 'product_lot' ); // product_batch is done before
foreach ( $elements as $table )
{
if ( ! $error ) {
$sql = " DELETE FROM " . MAIN_DB_PREFIX . $table ;
$sql .= " WHERE fk_product = " . ( int ) $this -> id ;
$result = $this -> db -> query ( $sql );
if ( ! $result ) {
$error ++ ;
$this -> errors [] = $this -> db -> lasterror ();
}
}
}
}
if ( ! $error ) {
include_once DOL_DOCUMENT_ROOT . '/variants/class/ProductCombination.class.php' ;
include_once DOL_DOCUMENT_ROOT . '/variants/class/ProductCombination2ValuePair.class.php' ;
//If it is a parent product, then we remove the association with child products
$prodcomb = new ProductCombination ( $this -> db );
if ( $prodcomb -> deleteByFkProductParent ( $user , $this -> id ) < 0 ) {
$error ++ ;
$this -> errors [] = 'Error deleting combinations' ;
}
//We also check if it is a child product
if ( ! $error && ( $prodcomb -> fetchByFkProductChild ( $this -> id ) > 0 ) && ( $prodcomb -> delete ( $user ) < 0 )) {
$error ++ ;
$this -> errors [] = 'Error deleting child combination' ;
}
}
// Delete from product_association
if ( ! $error ) {
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " product_association " ;
$sql .= " WHERE fk_product_pere = " . ( int ) $this -> id . " OR fk_product_fils = " . ( int ) $this -> id ;
$result = $this -> db -> query ( $sql );
if ( ! $result ) {
$error ++ ;
$this -> errors [] = $this -> db -> lasterror ();
}
}
// Delete product
if ( ! $error ) {
$sqlz = " DELETE FROM " . MAIN_DB_PREFIX . " product " ;
$sqlz .= " WHERE rowid = " . ( int ) $this -> id ;
$resultz = $this -> db -> query ( $sqlz );
if ( ! $resultz ) {
$error ++ ;
$this -> errors [] = $this -> db -> lasterror ();
}
}
if ( ! $error ) {
// We remove directory
$ref = dol_sanitizeFileName ( $this -> ref );
if ( $conf -> product -> dir_output ) {
$dir = $conf -> product -> dir_output . " / " . $ref ;
if ( file_exists ( $dir )) {
$res = @ dol_delete_dir_recursive ( $dir );
if ( ! $res ) {
$this -> errors [] = 'ErrorFailToDeleteDir' ;
$error ++ ;
}
}
}
}
// Remove extrafields
if ( ! $error )
{
$result = $this -> deleteExtraFields ();
if ( $result < 0 ) {
$error ++ ;
dol_syslog ( get_class ( $this ) . " ::delete error -4 " . $this -> error , LOG_ERR );
}
}
if ( ! $error ) {
$this -> db -> commit ();
return 1 ;
} else {
foreach ( $this -> errors as $errmsg )
{
dol_syslog ( get_class ( $this ) . " ::delete " . $errmsg , LOG_ERR );
$this -> error .= ( $this -> error ? ', ' . $errmsg : $errmsg );
}
$this -> db -> rollback ();
return - $error ;
}
} else {
$this -> error = " ErrorRecordIsUsedCantDelete " ;
return 0 ;
}
}
/**
* Update or add a translation for a product
*
* @ param User $user Object user making update
* @ return int < 0 if KO , > 0 if OK
*/
public function setMultiLangs ( $user )
{
global $conf , $langs ;
$langs_available = $langs -> get_available_languages ( DOL_DOCUMENT_ROOT , 0 , 2 );
$current_lang = $langs -> getDefaultLang ();
foreach ( $langs_available as $key => $value )
{
if ( $key == $current_lang ) {
$sql = " SELECT rowid " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_lang " ;
$sql .= " WHERE fk_product= " . $this -> id ;
$sql .= " AND lang=' " . $this -> db -> escape ( $key ) . " ' " ;
$result = $this -> db -> query ( $sql );
if ( $this -> db -> num_rows ( $result )) // if there is already a description line for this language
{
$sql2 = " UPDATE " . MAIN_DB_PREFIX . " product_lang " ;
$sql2 .= " SET " ;
$sql2 .= " label=' " . $this -> db -> escape ( $this -> label ) . " ', " ;
$sql2 .= " description=' " . $this -> db -> escape ( $this -> description ) . " ' " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION )) { $sql2 .= " , note=' " . $this -> db -> escape ( $this -> other ) . " ' " ;
}
$sql2 .= " WHERE fk_product= " . $this -> id . " AND lang=' " . $this -> db -> escape ( $key ) . " ' " ;
} else {
$sql2 = " INSERT INTO " . MAIN_DB_PREFIX . " product_lang (fk_product, lang, label, description " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION )) { $sql2 .= " , note " ;
}
$sql2 .= " ) " ;
$sql2 .= " VALUES( " . $this -> id . " ,' " . $this -> db -> escape ( $key ) . " ',' " . $this -> db -> escape ( $this -> label ) . " ', " ;
$sql2 .= " ' " . $this -> db -> escape ( $this -> description ) . " ' " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION )) {
$sql2 .= " , ' " . $this -> db -> escape ( $this -> other ) . " ' " ;
}
$sql2 .= " ) " ;
}
dol_syslog ( get_class ( $this ) . '::setMultiLangs key = current_lang = ' . $key );
if ( ! $this -> db -> query ( $sql2 )) {
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
} elseif ( isset ( $this -> multilangs [ $key ])) {
$sql = " SELECT rowid " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_lang " ;
$sql .= " WHERE fk_product= " . $this -> id ;
$sql .= " AND lang=' " . $this -> db -> escape ( $key ) . " ' " ;
$result = $this -> db -> query ( $sql );
if ( $this -> db -> num_rows ( $result )) // if there is already a description line for this language
{
$sql2 = " UPDATE " . MAIN_DB_PREFIX . " product_lang " ;
$sql2 .= " SET " ;
$sql2 .= " label=' " . $this -> db -> escape ( $this -> multilangs [ " $key " ][ " label " ]) . " ', " ;
$sql2 .= " description=' " . $this -> db -> escape ( $this -> multilangs [ " $key " ][ " description " ]) . " ' " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION )) {
$sql2 .= " , note=' " . $this -> db -> escape ( $this -> multilangs [ " $key " ][ " other " ]) . " ' " ;
}
$sql2 .= " WHERE fk_product= " . $this -> id . " AND lang=' " . $this -> db -> escape ( $key ) . " ' " ;
} else {
$sql2 = " INSERT INTO " . MAIN_DB_PREFIX . " product_lang (fk_product, lang, label, description " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION )) { $sql2 .= " , note " ;
}
$sql2 .= " ) " ;
$sql2 .= " VALUES( " . $this -> id . " ,' " . $this -> db -> escape ( $key ) . " ',' " . $this -> db -> escape ( $this -> multilangs [ " $key " ][ " label " ]) . " ', " ;
$sql2 .= " ' " . $this -> db -> escape ( $this -> multilangs [ " $key " ][ " description " ]) . " ' " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OTHER_FIELD_IN_TRANSLATION )) {
$sql2 .= " , ' " . $this -> db -> escape ( $this -> multilangs [ " $key " ][ " other " ]) . " ' " ;
}
$sql2 .= " ) " ;
}
// We do not save if main fields are empty
if ( $this -> multilangs [ " $key " ][ " label " ] || $this -> multilangs [ " $key " ][ " description " ]) {
if ( ! $this -> db -> query ( $sql2 )) {
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
}
} else {
// language is not current language and we didn't provide a multilang description for this language
}
}
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_SET_MULTILANGS' , $user );
if ( $result < 0 ) {
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
// End call triggers
return 1 ;
}
/**
* Delete a language for this product
*
* @ param string $langtodelete Language code to delete
* @ param User $user Object user making delete
*
* @ return int < 0 if KO , > 0 if OK
*/
public function delMultiLangs ( $langtodelete , $user )
{
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " product_lang " ;
$sql .= " WHERE fk_product= " . $this -> id . " AND lang=' " . $this -> db -> escape ( $langtodelete ) . " ' " ;
dol_syslog ( get_class ( $this ) . '::delMultiLangs' , LOG_DEBUG );
$result = $this -> db -> query ( $sql );
if ( $result ) {
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_DEL_MULTILANGS' , $user );
if ( $result < 0 ) {
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . '::delMultiLangs error=' . $this -> error , LOG_ERR );
return - 1 ;
}
// End call triggers
return 1 ;
} else {
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . '::delMultiLangs error=' . $this -> error , LOG_ERR );
return - 1 ;
}
}
/**
* Sets an accountancy code for a product .
* Also calls PRODUCT_MODIFY trigger when modified
*
* @ param string $type It can be 'buy' , 'buy_intra' , 'buy_export' , 'sell' , 'sell_intra' or 'sell_export'
* @ param string $value Accountancy code
* @ return int < 0 KO > 0 OK
*/
public function setAccountancyCode ( $type , $value )
{
global $user , $langs , $conf ;
$error = 0 ;
$this -> db -> begin ();
if ( $type == 'buy' ) {
$field = 'accountancy_code_buy' ;
} elseif ( $type == 'buy_intra' ) {
$field = 'accountancy_code_buy_intra' ;
} elseif ( $type == 'buy_export' ) {
$field = 'accountancy_code_buy_export' ;
} elseif ( $type == 'sell' ) {
$field = 'accountancy_code_sell' ;
} elseif ( $type == 'sell_intra' ) {
$field = 'accountancy_code_sell_intra' ;
} elseif ( $type == 'sell_export' ) {
$field = 'accountancy_code_sell_export' ;
} else {
return - 1 ;
}
$sql = " UPDATE " . MAIN_DB_PREFIX . $this -> table_element . " SET " ;
$sql .= " $field = ' " . $this -> db -> escape ( $value ) . " ' " ;
$sql .= " WHERE rowid = " . $this -> id ;
dol_syslog ( __METHOD__ . " sql= " . $sql , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_MODIFY' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
if ( $error ) {
$this -> db -> rollback ();
return - 1 ;
}
$this -> $field = $value ;
$this -> db -> commit ();
return 1 ;
} else {
$this -> error = $this -> db -> lasterror ();
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Load array this -> multilangs
*
* @ return int < 0 if KO , > 0 if OK
*/
public function getMultiLangs ()
{
global $langs ;
$current_lang = $langs -> getDefaultLang ();
$sql = " SELECT lang, label, description, note as other " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_lang " ;
$sql .= " WHERE fk_product= " . $this -> id ;
$result = $this -> db -> query ( $sql );
if ( $result ) {
while ( $obj = $this -> db -> fetch_object ( $result ))
{
//print 'lang='.$obj->lang.' current='.$current_lang.'<br>';
if ( $obj -> lang == $current_lang ) // si on a les traduct. dans la langue courante on les charge en infos principales.
{
$this -> label = $obj -> label ;
$this -> description = $obj -> description ;
$this -> other = $obj -> other ;
}
$this -> multilangs [ " $obj->lang " ][ " label " ] = $obj -> label ;
$this -> multilangs [ " $obj->lang " ][ " description " ] = $obj -> description ;
$this -> multilangs [ " $obj->lang " ][ " other " ] = $obj -> other ;
}
return 1 ;
} else {
$this -> error = " Error: " . $this -> db -> lasterror () . " - " . $sql ;
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Insert a track that we changed a customer price
*
* @ param User $user User making change
* @ param int $level price level to change
* @ return int < 0 if KO , > 0 if OK
*/
private function _log_price ( $user , $level = 0 )
{
// phpcs:enable
global $conf ;
$now = dol_now ();
// Clean parameters
if ( empty ( $this -> price_by_qty )) {
$this -> price_by_qty = 0 ;
}
// Add new price
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " product_price(price_level,date_price, fk_product, fk_user_author, price, price_ttc, price_base_type,tosell, tva_tx, default_vat_code, recuperableonly, " ;
$sql .= " localtax1_tx, localtax2_tx, localtax1_type, localtax2_type, price_min,price_min_ttc,price_by_qty,entity,fk_price_expression) " ;
$sql .= " VALUES( " . ( $level ? $level : 1 ) . " , ' " . $this -> db -> idate ( $now ) . " ', " . $this -> id . " , " . $user -> id . " , " . $this -> price . " , " . $this -> price_ttc . " ,' " . $this -> db -> escape ( $this -> price_base_type ) . " ', " . $this -> status . " , " . $this -> tva_tx . " , " . ( $this -> default_vat_code ? ( " ' " . $this -> db -> escape ( $this -> default_vat_code ) . " ' " ) : " null " ) . " , " . $this -> tva_npr . " , " ;
$sql .= " " . $this -> localtax1_tx . " , " . $this -> localtax2_tx . " , ' " . $this -> db -> escape ( $this -> localtax1_type ) . " ', ' " . $this -> db -> escape ( $this -> localtax2_type ) . " ', " . $this -> price_min . " , " . $this -> price_min_ttc . " , " . $this -> price_by_qty . " , " . $conf -> entity . " , " . ( $this -> fk_price_expression > 0 ? $this -> fk_price_expression : 'null' );
$sql .= " ) " ;
dol_syslog ( get_class ( $this ) . " ::_log_price " , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( ! $resql ) {
$this -> error = $this -> db -> lasterror ();
dol_print_error ( $this -> db );
return - 1 ;
} else {
return 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Delete a price line
*
* @ param User $user Object user
* @ param int $rowid Line id to delete
* @ return int < 0 if KO , > 0 if OK
*/
public function log_price_delete ( $user , $rowid )
{
// phpcs:enable
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " product_price_by_qty " ;
$sql .= " WHERE fk_product_price= " . $rowid ;
$resql = $this -> db -> query ( $sql );
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " product_price " ;
$sql .= " WHERE rowid= " . $rowid ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
return 1 ;
} else {
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
}
/**
* Return price of sell of a product for a seller / buyer / product .
*
* @ param Societe $thirdparty_seller Seller
* @ param Societe $thirdparty_buyer Buyer
* @ param int $pqp Id of product per price if a selection was done of such a price
* @ return array Array of price information array ( 'pu_ht' => , 'pu_ttc' => , 'tva_tx' => 'X.Y (code)' , ... ), 'tva_npr' => 0 , ... )
* @ see get_buyprice (), find_min_price_product_fournisseur ()
*/
public function getSellPrice ( $thirdparty_seller , $thirdparty_buyer , $pqp = 0 )
{
global $conf , $db ;
// Update if prices fields are defined
$tva_tx = get_default_tva ( $thirdparty_seller , $thirdparty_buyer , $this -> id );
$tva_npr = get_default_npr ( $thirdparty_seller , $thirdparty_buyer , $this -> id );
if ( empty ( $tva_tx )) $tva_npr = 0 ;
$pu_ht = $this -> price ;
$pu_ttc = $this -> price_ttc ;
$price_min = $this -> price_min ;
$price_base_type = $this -> price_base_type ;
// If price per segment
if ( ! empty ( $conf -> global -> PRODUIT_MULTIPRICES ) && ! empty ( $thirdparty_buyer -> price_level )) {
$pu_ht = $this -> multiprices [ $thirdparty_buyer -> price_level ];
$pu_ttc = $this -> multiprices_ttc [ $thirdparty_buyer -> price_level ];
$price_min = $this -> multiprices_min [ $thirdparty_buyer -> price_level ];
$price_base_type = $this -> multiprices_base_type [ $thirdparty_buyer -> price_level ];
if ( ! empty ( $conf -> global -> PRODUIT_MULTIPRICES_USE_VAT_PER_LEVEL )) // using this option is a bug. kept for backward compatibility
{
if ( isset ( $this -> multiprices_tva_tx [ $thirdparty_buyer -> price_level ])) $tva_tx = $this -> multiprices_tva_tx [ $thirdparty_buyer -> price_level ];
if ( isset ( $this -> multiprices_recuperableonly [ $thirdparty_buyer -> price_level ])) $tva_npr = $this -> multiprices_recuperableonly [ $thirdparty_buyer -> price_level ];
if ( empty ( $tva_tx )) $tva_npr = 0 ;
}
} elseif ( ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES )) {
// If price per customer
require_once DOL_DOCUMENT_ROOT . '/product/class/productcustomerprice.class.php' ;
$prodcustprice = new Productcustomerprice ( $db );
$filter = array ( 't.fk_product' => $this -> id , 't.fk_soc' => $thirdparty_buyer -> id );
$result = $prodcustprice -> fetch_all ( '' , '' , 0 , 0 , $filter );
if ( $result ) {
if ( count ( $prodcustprice -> lines ) > 0 ) {
$pu_ht = price ( $prodcustprice -> lines [ 0 ] -> price );
$pu_ttc = price ( $prodcustprice -> lines [ 0 ] -> price_ttc );
$price_base_type = $prodcustprice -> lines [ 0 ] -> price_base_type ;
$tva_tx = $prodcustprice -> lines [ 0 ] -> tva_tx ;
if ( $prodcustprice -> lines [ 0 ] -> default_vat_code && ! preg_match ( '/\(.*\)/' , $tva_tx )) $tva_tx .= ' (' . $prodcustprice -> lines [ 0 ] -> default_vat_code . ')' ;
$tva_npr = $prodcustprice -> lines [ 0 ] -> recuperableonly ;
if ( empty ( $tva_tx )) $tva_npr = 0 ;
}
}
} elseif ( ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES_BY_QTY )) {
// If price per quantity
if ( $this -> prices_by_qty [ 0 ]) {
// yes, this product has some prices per quantity
// Search price into product_price_by_qty from $this->id
foreach ( $this -> prices_by_qty_list [ 0 ] as $priceforthequantityarray ) {
if ( $priceforthequantityarray [ 'rowid' ] != $pqp ) continue ;
// We found the price
if ( $priceforthequantityarray [ 'price_base_type' ] == 'HT' )
{
$pu_ht = $priceforthequantityarray [ 'unitprice' ];
} else {
$pu_ttc = $priceforthequantityarray [ 'unitprice' ];
}
break ;
}
}
} elseif ( ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES )) {
// If price per quantity and customer
if ( $this -> prices_by_qty [ $thirdparty_buyer -> price_level ]) {
// yes, this product has some prices per quantity
// Search price into product_price_by_qty from $this->id
foreach ( $this -> prices_by_qty_list [ $thirdparty_buyer -> price_level ] as $priceforthequantityarray )
{
if ( $priceforthequantityarray [ 'rowid' ] != $pqp ) continue ;
// We found the price
if ( $priceforthequantityarray [ 'price_base_type' ] == 'HT' )
{
$pu_ht = $priceforthequantityarray [ 'unitprice' ];
} else {
$pu_ttc = $priceforthequantityarray [ 'unitprice' ];
}
break ;
}
}
}
return array ( 'pu_ht' => $pu_ht , 'pu_ttc' => $pu_ttc , 'price_min' => $price_min , 'price_base_type' => $price_base_type , 'tva_tx' => $tva_tx , 'tva_npr' => $tva_npr );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Read price used by a provider .
* We enter as input couple prodfournprice / qty or triplet qty / product_id / fourn_ref .
* This also set some properties on product like -> buyprice , -> fourn_pu , ...
*
* @ param int $prodfournprice Id du tarif = rowid table product_fournisseur_price
* @ param double $qty Quantity asked or - 1 to get first entry found
* @ param int $product_id Filter on a particular product id
* @ param string $fourn_ref Filter on a supplier price ref . 'none' to exclude ref in search .
* @ param int $fk_soc If of supplier
* @ return int <- 1 if KO , - 1 if qty not enough , 0 if OK but nothing found , id_product if OK and found . May also initialize some properties like ( -> ref_supplier , buyprice , fourn_pu , vatrate_supplier ... )
* @ see getSellPrice (), find_min_price_product_fournisseur ()
*/
public function get_buyprice ( $prodfournprice , $qty , $product_id = 0 , $fourn_ref = '' , $fk_soc = 0 )
{
// phpcs:enable
global $conf ;
$result = 0 ;
// We do a first seach with a select by searching with couple prodfournprice and qty only (later we will search on triplet qty/product_id/fourn_ref)
$sql = " SELECT pfp.rowid, pfp.price as price, pfp.quantity as quantity, pfp.remise_percent, " ;
$sql .= " pfp.fk_product, pfp.ref_fourn, pfp.desc_fourn, pfp.fk_soc, pfp.tva_tx, pfp.fk_supplier_price_expression " ;
$sql .= " ,pfp.default_vat_code " ;
$sql .= " ,pfp.multicurrency_price, pfp.multicurrency_unitprice, pfp.multicurrency_tx, pfp.fk_multicurrency, pfp.multicurrency_code " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_SUPPLIER_PACKAGING )) $sql .= " , pfp.packaging " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_fournisseur_price as pfp " ;
$sql .= " WHERE pfp.rowid = " . $prodfournprice ;
if ( $qty > 0 ) { $sql .= " AND pfp.quantity <= " . $qty ;
}
$sql .= " ORDER BY pfp.quantity DESC " ;
dol_syslog ( get_class ( $this ) . " ::get_buyprice first search by prodfournprice/qty " , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$obj = $this -> db -> fetch_object ( $resql );
if ( $obj && $obj -> quantity > 0 ) // If we found a supplier prices from the id of supplier price
{
if ( ! empty ( $conf -> dynamicprices -> enabled ) && ! empty ( $obj -> fk_supplier_price_expression )) {
include_once DOL_DOCUMENT_ROOT . '/product/dynamic_price/class/price_parser.class.php' ;
$prod_supplier = new ProductFournisseur ( $this -> db );
$prod_supplier -> product_fourn_price_id = $obj -> rowid ;
$prod_supplier -> id = $obj -> fk_product ;
$prod_supplier -> fourn_qty = $obj -> quantity ;
$prod_supplier -> fourn_tva_tx = $obj -> tva_tx ;
$prod_supplier -> fk_supplier_price_expression = $obj -> fk_supplier_price_expression ;
$priceparser = new PriceParser ( $this -> db );
$price_result = $priceparser -> parseProductSupplier ( $prod_supplier );
if ( $price_result >= 0 ) {
$obj -> price = $price_result ;
}
}
$this -> product_fourn_price_id = $obj -> rowid ;
$this -> buyprice = $obj -> price ; // deprecated
$this -> fourn_pu = $obj -> price / $obj -> quantity ; // Unit price of product of supplier
$this -> fourn_price_base_type = 'HT' ; // Price base type
$this -> fourn_socid = $obj -> fk_soc ; // Company that offer this price
$this -> ref_fourn = $obj -> ref_fourn ; // deprecated
$this -> ref_supplier = $obj -> ref_fourn ; // Ref supplier
$this -> desc_supplier = $obj -> desc_fourn ; // desc supplier
$this -> remise_percent = $obj -> remise_percent ; // remise percent if present and not typed
$this -> vatrate_supplier = $obj -> tva_tx ; // Vat ref supplier
$this -> default_vat_code = $obj -> default_vat_code ; // Vat code supplier
$this -> fourn_multicurrency_price = $obj -> multicurrency_price ;
$this -> fourn_multicurrency_unitprice = $obj -> multicurrency_unitprice ;
$this -> fourn_multicurrency_tx = $obj -> multicurrency_tx ;
$this -> fourn_multicurrency_id = $obj -> fk_multicurrency ;
$this -> fourn_multicurrency_code = $obj -> multicurrency_code ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_SUPPLIER_PACKAGING )) $this -> packaging = $obj -> packaging ;
$result = $obj -> fk_product ;
return $result ;
} else // If not found
{
// We do a second search by doing a select again but searching with less reliable criteria: couple qty/id product, and if set fourn_ref or fk_soc.
$sql = " SELECT pfp.rowid, pfp.price as price, pfp.quantity as quantity, pfp.fk_soc, " ;
$sql .= " pfp.fk_product, pfp.ref_fourn as ref_supplier, pfp.desc_fourn as desc_supplier, pfp.tva_tx, pfp.fk_supplier_price_expression " ;
$sql .= " ,pfp.default_vat_code " ;
$sql .= " ,pfp.multicurrency_price, pfp.multicurrency_unitprice, pfp.multicurrency_tx, pfp.fk_multicurrency, pfp.multicurrency_code " ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_SUPPLIER_PACKAGING )) $sql .= " , pfp.packaging " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_fournisseur_price as pfp " ;
$sql .= " WHERE pfp.fk_product = " . $product_id ;
if ( $fourn_ref != 'none' ) { $sql .= " AND pfp.ref_fourn = ' " . $fourn_ref . " ' " ;
}
if ( $fk_soc > 0 ) { $sql .= " AND pfp.fk_soc = " . $fk_soc ;
}
if ( $qty > 0 ) { $sql .= " AND pfp.quantity <= " . $qty ;
}
$sql .= " ORDER BY pfp.quantity DESC " ;
$sql .= " LIMIT 1 " ;
dol_syslog ( get_class ( $this ) . " ::get_buyprice second search from qty/ref/product_id " , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$obj = $this -> db -> fetch_object ( $resql );
if ( $obj && $obj -> quantity > 0 ) // If found
{
if ( ! empty ( $conf -> dynamicprices -> enabled ) && ! empty ( $obj -> fk_supplier_price_expression )) {
include_once DOL_DOCUMENT_ROOT . '/product/dynamic_price/class/price_parser.class.php' ;
$prod_supplier = new ProductFournisseur ( $this -> db );
$prod_supplier -> product_fourn_price_id = $obj -> rowid ;
$prod_supplier -> id = $obj -> fk_product ;
$prod_supplier -> fourn_qty = $obj -> quantity ;
$prod_supplier -> fourn_tva_tx = $obj -> tva_tx ;
$prod_supplier -> fk_supplier_price_expression = $obj -> fk_supplier_price_expression ;
$priceparser = new PriceParser ( $this -> db );
$price_result = $priceparser -> parseProductSupplier ( $prod_supplier );
if ( $result >= 0 ) {
$obj -> price = $price_result ;
}
}
$this -> product_fourn_price_id = $obj -> rowid ;
$this -> buyprice = $obj -> price ; // deprecated
$this -> fourn_qty = $obj -> quantity ; // min quantity for price for a virtual supplier
$this -> fourn_pu = $obj -> price / $obj -> quantity ; // Unit price of product for a virtual supplier
$this -> fourn_price_base_type = 'HT' ; // Price base type for a virtual supplier
$this -> fourn_socid = $obj -> fk_soc ; // Company that offer this price
$this -> ref_fourn = $obj -> ref_supplier ; // deprecated
$this -> ref_supplier = $obj -> ref_supplier ; // Ref supplier
$this -> desc_supplier = $obj -> desc_supplier ; // desc supplier
$this -> remise_percent = $obj -> remise_percent ; // remise percent if present and not typed
$this -> vatrate_supplier = $obj -> tva_tx ; // Vat ref supplier
$this -> default_vat_code = $obj -> default_vat_code ; // Vat code supplier
$this -> fourn_multicurrency_price = $obj -> multicurrency_price ;
$this -> fourn_multicurrency_unitprice = $obj -> multicurrency_unitprice ;
$this -> fourn_multicurrency_tx = $obj -> multicurrency_tx ;
$this -> fourn_multicurrency_id = $obj -> fk_multicurrency ;
$this -> fourn_multicurrency_code = $obj -> multicurrency_code ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_SUPPLIER_PACKAGING )) $this -> packaging = $obj -> packaging ;
$result = $obj -> fk_product ;
return $result ;
} else {
return - 1 ; // Ce produit n'existe pas avec cet id tarif fournisseur ou existe mais qte insuffisante, ni pour le couple produit/ref fournisseur dans la quantité.
}
} else {
$this -> error = $this -> db -> lasterror ();
return - 3 ;
}
}
} else {
$this -> error = $this -> db -> lasterror ();
return - 2 ;
}
}
/**
* Modify customer price of a product / Service
*
* @ param double $newprice New price
* @ param string $newpricebase HT or TTC
* @ param User $user Object user that make change
* @ param double $newvat New VAT Rate ( For example 8.5 . Should not be a string )
* @ param double $newminprice New price min
* @ param int $level 0 = standard , > 0 = level if multilevel prices
* @ param int $newnpr 0 = Standard vat rate , 1 = Special vat rate for French NPR VAT
* @ param int $newpbq 1 if it has price by quantity
* @ param int $ignore_autogen Used to avoid infinite loops
* @ param array $localtaxes_array Array with localtaxes info array ( '0' => type1 , '1' => rate1 , '2' => type2 , '3' => rate2 ) ( loaded by getLocalTaxesFromRate ( vatrate , 0 , ... ) function ) .
* @ param string $newdefaultvatcode Default vat code
* @ return int < 0 if KO , > 0 if OK
*/
public function updatePrice ( $newprice , $newpricebase , $user , $newvat = '' , $newminprice = 0 , $level = 0 , $newnpr = 0 , $newpbq = 0 , $ignore_autogen = 0 , $localtaxes_array = array (), $newdefaultvatcode = '' )
{
global $conf , $langs ;
$id = $this -> id ;
dol_syslog ( get_class ( $this ) . " ::update_price id= " . $id . " newprice= " . $newprice . " newpricebase= " . $newpricebase . " newminprice= " . $newminprice . " level= " . $level . " npr= " . $newnpr . " newdefaultvatcode= " . $newdefaultvatcode );
// Clean parameters
if ( empty ( $this -> tva_tx )) {
$this -> tva_tx = 0 ;
}
if ( empty ( $newnpr )) {
$newnpr = 0 ;
}
if ( empty ( $newminprice )) {
$newminprice = 0 ;
}
if ( empty ( $newminprice )) {
$newminprice = 0 ;
}
// Check parameters
if ( $newvat == '' ) {
$newvat = $this -> tva_tx ;
}
// If multiprices are enabled, then we check if the current product is subject to price autogeneration
// Price will be modified ONLY when the first one is the one that is being modified
if (( ! empty ( $conf -> global -> PRODUIT_MULTIPRICES ) || ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES )) && ! $ignore_autogen && $this -> price_autogen && ( $level == 1 )) {
return $this -> generateMultiprices ( $user , $newprice , $newpricebase , $newvat , $newnpr , $newpbq );
}
if ( ! empty ( $newminprice ) && ( $newminprice > $newprice )) {
$this -> error = 'ErrorPriceCantBeLowerThanMinPrice' ;
return - 1 ;
}
if ( $newprice !== '' || $newprice === 0 ) {
if ( $newpricebase == 'TTC' ) {
$price_ttc = price2num ( $newprice , 'MU' );
$price = price2num ( $newprice ) / ( 1 + ( $newvat / 100 ));
$price = price2num ( $price , 'MU' );
if ( $newminprice != '' || $newminprice == 0 ) {
$price_min_ttc = price2num ( $newminprice , 'MU' );
$price_min = price2num ( $newminprice ) / ( 1 + ( $newvat / 100 ));
$price_min = price2num ( $price_min , 'MU' );
} else {
$price_min = 0 ;
$price_min_ttc = 0 ;
}
} else {
$price = price2num ( $newprice , 'MU' );
$price_ttc = ( $newnpr != 1 ) ? price2num ( $newprice ) * ( 1 + ( $newvat / 100 )) : $price ;
$price_ttc = price2num ( $price_ttc , 'MU' );
if ( $newminprice !== '' || $newminprice === 0 ) {
$price_min = price2num ( $newminprice , 'MU' );
$price_min_ttc = price2num ( $newminprice ) * ( 1 + ( $newvat / 100 ));
$price_min_ttc = price2num ( $price_min_ttc , 'MU' );
//print 'X'.$newminprice.'-'.$price_min;
} else {
$price_min = 0 ;
$price_min_ttc = 0 ;
}
}
//print 'x'.$id.'-'.$newprice.'-'.$newpricebase.'-'.$price.'-'.$price_ttc.'-'.$price_min.'-'.$price_min_ttc;
if ( count ( $localtaxes_array ) > 0 ) {
$localtaxtype1 = $localtaxes_array [ '0' ];
$localtax1 = $localtaxes_array [ '1' ];
$localtaxtype2 = $localtaxes_array [ '2' ];
$localtax2 = $localtaxes_array [ '3' ];
} else // old method. deprecated because ot can't retreive type
{
$localtaxtype1 = '0' ;
$localtax1 = get_localtax ( $newvat , 1 );
$localtaxtype2 = '0' ;
$localtax2 = get_localtax ( $newvat , 2 );
}
if ( empty ( $localtax1 )) {
$localtax1 = 0 ; // If = '' then = 0
}
if ( empty ( $localtax2 )) {
$localtax2 = 0 ; // If = '' then = 0
}
$this -> db -> begin ();
// Ne pas mettre de quote sur les numeriques decimaux.
// Ceci provoque des stockages avec arrondis en base au lieu des valeurs exactes.
$sql = " UPDATE " . MAIN_DB_PREFIX . " product SET " ;
$sql .= " price_base_type=' " . $newpricebase . " ', " ;
$sql .= " price= " . $price . " , " ;
$sql .= " price_ttc= " . $price_ttc . " , " ;
$sql .= " price_min= " . $price_min . " , " ;
$sql .= " price_min_ttc= " . $price_min_ttc . " , " ;
$sql .= " localtax1_tx= " . ( $localtax1 >= 0 ? $localtax1 : 'NULL' ) . " , " ;
$sql .= " localtax2_tx= " . ( $localtax2 >= 0 ? $localtax2 : 'NULL' ) . " , " ;
$sql .= " localtax1_type= " . ( $localtaxtype1 != '' ? " ' " . $localtaxtype1 . " ' " : " '0' " ) . " , " ;
$sql .= " localtax2_type= " . ( $localtaxtype2 != '' ? " ' " . $localtaxtype2 . " ' " : " '0' " ) . " , " ;
$sql .= " default_vat_code= " . ( $newdefaultvatcode ? " ' " . $this -> db -> escape ( $newdefaultvatcode ) . " ' " : " null " ) . " , " ;
$sql .= " tva_tx=' " . price2num ( $newvat ) . " ', " ;
$sql .= " recuperableonly=' " . $newnpr . " ' " ;
$sql .= " WHERE rowid = " . $id ;
dol_syslog ( get_class ( $this ) . " ::update_price " , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$this -> multiprices [ $level ] = $price ;
$this -> multiprices_ttc [ $level ] = $price_ttc ;
$this -> multiprices_min [ $level ] = $price_min ;
$this -> multiprices_min_ttc [ $level ] = $price_min_ttc ;
$this -> multiprices_base_type [ $level ] = $newpricebase ;
$this -> multiprices_default_vat_code [ $level ] = $newdefaultvatcode ;
$this -> multiprices_tva_tx [ $level ] = $newvat ;
$this -> multiprices_recuperableonly [ $level ] = $newnpr ;
$this -> price = $price ;
$this -> price_ttc = $price_ttc ;
$this -> price_min = $price_min ;
$this -> price_min_ttc = $price_min_ttc ;
$this -> price_base_type = $newpricebase ;
$this -> default_vat_code = $newdefaultvatcode ;
$this -> tva_tx = $newvat ;
$this -> tva_npr = $newnpr ;
//Local taxes
$this -> localtax1_tx = $localtax1 ;
$this -> localtax2_tx = $localtax2 ;
$this -> localtax1_type = $localtaxtype1 ;
$this -> localtax2_type = $localtaxtype2 ;
// Price by quantity
$this -> price_by_qty = $newpbq ;
$this -> _log_price ( $user , $level ); // Save price for level into table product_price
$this -> level = $level ; // Store level of price edited for trigger
// Call trigger
$result = $this -> call_trigger ( 'PRODUCT_PRICE_MODIFY' , $user );
if ( $result < 0 ) {
$this -> db -> rollback ();
return - 1 ;
}
// End call triggers
$this -> db -> commit ();
} else {
$this -> db -> rollback ();
dol_print_error ( $this -> db );
}
}
return 1 ;
}
/**
* Sets the supplier price expression
*
* @ param int $expression_id Expression
* @ return int < 0 if KO , > 0 if OK
* @ deprecated Use Product :: update instead
*/
public function setPriceExpression ( $expression_id )
{
global $user ;
$this -> fk_price_expression = $expression_id ;
return $this -> update ( $this -> id , $user );
}
/**
* Load a product in memory from database
*
* @ param int $id Id of product / service to load
* @ param string $ref Ref of product / service to load
* @ param string $ref_ext Ref ext of product / service to load
* @ param string $barcode Barcode of product / service to load
* @ param int $ignore_expression Ignores the math expression for calculating price and uses the db value instead
* @ param int $ignore_price_load Load product without loading prices arrays ( when we are sure we don ' t need them )
* @ param int $ignore_lang_load Load product without loading language arrays ( when we are sure we don ' t need them )
* @ return int < 0 if KO , 0 if not found , > 0 if OK
*/
public function fetch ( $id = '' , $ref = '' , $ref_ext = '' , $barcode = '' , $ignore_expression = 0 , $ignore_price_load = 0 , $ignore_lang_load = 0 )
{
include_once DOL_DOCUMENT_ROOT . '/core/lib/company.lib.php' ;
global $langs , $conf ;
dol_syslog ( get_class ( $this ) . " ::fetch id= " . $id . " ref= " . $ref . " ref_ext= " . $ref_ext );
// Check parameters
if ( ! $id && ! $ref && ! $ref_ext && ! $barcode ) {
$this -> error = 'ErrorWrongParameters' ;
dol_syslog ( get_class ( $this ) . " ::fetch " . $this -> error );
return - 1 ;
}
$sql = " SELECT rowid, ref, ref_ext, label, description, url, note_public, note as note_private, customcode, fk_country, price, price_ttc, " ;
$sql .= " price_min, price_min_ttc, price_base_type, cost_price, default_vat_code, tva_tx, recuperableonly as tva_npr, localtax1_tx, localtax2_tx, localtax1_type, localtax2_type, tosell, " ;
$sql .= " tobuy, fk_product_type, duration, fk_default_warehouse, seuil_stock_alerte, canvas, net_measure, net_measure_units, weight, weight_units, " ;
$sql .= " length, length_units, width, width_units, height, height_units, " ;
$sql .= " surface, surface_units, volume, volume_units, barcode, fk_barcode_type, finished, " ;
$sql .= " accountancy_code_buy, accountancy_code_buy_intra, accountancy_code_buy_export, " ;
$sql .= " accountancy_code_sell, accountancy_code_sell_intra, accountancy_code_sell_export, stock, pmp, " ;
$sql .= " datec, tms, import_key, entity, desiredstock, tobatch, fk_unit, " ;
$sql .= " fk_price_expression, price_autogen, model_pdf " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product " ;
if ( $id ) {
$sql .= " WHERE rowid = " . ( int ) $id ;
} else {
$sql .= " WHERE entity IN ( " . getEntity ( $this -> element ) . " ) " ;
if ( $ref ) {
$sql .= " AND ref = ' " . $this -> db -> escape ( $ref ) . " ' " ;
} elseif ( $ref_ext ) {
$sql .= " AND ref_ext = ' " . $this -> db -> escape ( $ref_ext ) . " ' " ;
} elseif ( $barcode ) {
$sql .= " AND barcode = ' " . $this -> db -> escape ( $barcode ) . " ' " ;
}
}
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
unset ( $this -> oldcopy );
if ( $this -> db -> num_rows ( $resql ) > 0 ) {
$obj = $this -> db -> fetch_object ( $resql );
$this -> id = $obj -> rowid ;
$this -> ref = $obj -> ref ;
$this -> ref_ext = $obj -> ref_ext ;
$this -> label = $obj -> label ;
$this -> description = $obj -> description ;
$this -> url = $obj -> url ;
$this -> note_public = $obj -> note_public ;
$this -> note_private = $obj -> note_private ;
$this -> note = $obj -> note_private ; // deprecated
$this -> type = $obj -> fk_product_type ;
$this -> status = $obj -> tosell ;
$this -> status_buy = $obj -> tobuy ;
$this -> status_batch = $obj -> tobatch ;
$this -> customcode = $obj -> customcode ;
$this -> country_id = $obj -> fk_country ;
$this -> country_code = getCountry ( $this -> country_id , 2 , $this -> db );
$this -> price = $obj -> price ;
$this -> price_ttc = $obj -> price_ttc ;
$this -> price_min = $obj -> price_min ;
$this -> price_min_ttc = $obj -> price_min_ttc ;
$this -> price_base_type = $obj -> price_base_type ;
$this -> cost_price = $obj -> cost_price ;
$this -> default_vat_code = $obj -> default_vat_code ;
$this -> tva_tx = $obj -> tva_tx ;
//! French VAT NPR
$this -> tva_npr = $obj -> tva_npr ;
$this -> recuperableonly = $obj -> tva_npr ; // For backward compatibility
//! Local taxes
$this -> localtax1_tx = $obj -> localtax1_tx ;
$this -> localtax2_tx = $obj -> localtax2_tx ;
$this -> localtax1_type = $obj -> localtax1_type ;
$this -> localtax2_type = $obj -> localtax2_type ;
$this -> finished = $obj -> finished ;
$this -> duration = $obj -> duration ;
$this -> duration_value = substr ( $obj -> duration , 0 , dol_strlen ( $obj -> duration ) - 1 );
$this -> duration_unit = substr ( $obj -> duration , - 1 );
$this -> canvas = $obj -> canvas ;
$this -> net_measure = $obj -> net_measure ;
$this -> net_measure_units = $obj -> net_measure_units ;
$this -> weight = $obj -> weight ;
$this -> weight_units = $obj -> weight_units ;
$this -> length = $obj -> length ;
$this -> length_units = $obj -> length_units ;
$this -> width = $obj -> width ;
$this -> width_units = $obj -> width_units ;
$this -> height = $obj -> height ;
$this -> height_units = $obj -> height_units ;
$this -> surface = $obj -> surface ;
$this -> surface_units = $obj -> surface_units ;
$this -> volume = $obj -> volume ;
$this -> volume_units = $obj -> volume_units ;
$this -> barcode = $obj -> barcode ;
$this -> barcode_type = $obj -> fk_barcode_type ;
$this -> accountancy_code_buy = $obj -> accountancy_code_buy ;
$this -> accountancy_code_buy_intra = $obj -> accountancy_code_buy_intra ;
$this -> accountancy_code_buy_export = $obj -> accountancy_code_buy_export ;
$this -> accountancy_code_sell = $obj -> accountancy_code_sell ;
$this -> accountancy_code_sell_intra = $obj -> accountancy_code_sell_intra ;
$this -> accountancy_code_sell_export = $obj -> accountancy_code_sell_export ;
$this -> fk_default_warehouse = $obj -> fk_default_warehouse ;
$this -> seuil_stock_alerte = $obj -> seuil_stock_alerte ;
$this -> desiredstock = $obj -> desiredstock ;
$this -> stock_reel = $obj -> stock ;
$this -> pmp = $obj -> pmp ;
$this -> date_creation = $obj -> datec ;
$this -> date_modification = $obj -> tms ;
$this -> import_key = $obj -> import_key ;
$this -> entity = $obj -> entity ;
$this -> ref_ext = $obj -> ref_ext ;
$this -> fk_price_expression = $obj -> fk_price_expression ;
$this -> fk_unit = $obj -> fk_unit ;
$this -> price_autogen = $obj -> price_autogen ;
$this -> model_pdf = $obj -> model_pdf ;
$this -> db -> free ( $resql );
// Retreive all extrafield
// fetch optionals attributes and labels
$this -> fetch_optionals ();
// multilangs
if ( ! empty ( $conf -> global -> MAIN_MULTILANGS ) && empty ( $ignore_lang_load )) {
$this -> getMultiLangs ();
}
// Load multiprices array
if ( ! empty ( $conf -> global -> PRODUIT_MULTIPRICES ) && empty ( $ignore_price_load )) // prices per segment
{
for ( $i = 1 ; $i <= $conf -> global -> PRODUIT_MULTIPRICES_LIMIT ; $i ++ )
{
$sql = " SELECT price, price_ttc, price_min, price_min_ttc, " ;
$sql .= " price_base_type, tva_tx, default_vat_code, tosell, price_by_qty, rowid, recuperableonly " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price " ;
$sql .= " WHERE entity IN ( " . getEntity ( 'productprice' ) . " ) " ;
$sql .= " AND price_level= " . $i ;
$sql .= " AND fk_product = " . $this -> id ;
$sql .= " ORDER BY date_price DESC, rowid DESC " ;
$sql .= " LIMIT 1 " ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$result = $this -> db -> fetch_array ( $resql );
$this -> multiprices [ $i ] = $result [ " price " ];
$this -> multiprices_ttc [ $i ] = $result [ " price_ttc " ];
$this -> multiprices_min [ $i ] = $result [ " price_min " ];
$this -> multiprices_min_ttc [ $i ] = $result [ " price_min_ttc " ];
$this -> multiprices_base_type [ $i ] = $result [ " price_base_type " ];
// Next two fields are used only if PRODUIT_MULTIPRICES_USE_VAT_PER_LEVEL is on
$this -> multiprices_tva_tx [ $i ] = $result [ " tva_tx " ]; // TODO Add ' ('.$result['default_vat_code'].')'
$this -> multiprices_recuperableonly [ $i ] = $result [ " recuperableonly " ];
// Price by quantity
/*
$this -> prices_by_qty [ $i ] = $result [ " price_by_qty " ];
$this -> prices_by_qty_id [ $i ] = $result [ " rowid " ];
// Récuperation de la liste des prix selon qty si flag positionné
if ( $this -> prices_by_qty [ $i ] == 1 )
{
$sql = " SELECT rowid, price, unitprice, quantity, remise_percent, remise, price_base_type " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price_by_qty " ;
$sql .= " WHERE fk_product_price = " . $this -> prices_by_qty_id [ $i ];
$sql .= " ORDER BY quantity ASC " ;
$resultat = array ();
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$ii = 0 ;
while ( $result = $this -> db -> fetch_array ( $resql )) {
$resultat [ $ii ] = array ();
$resultat [ $ii ][ " rowid " ] = $result [ " rowid " ];
$resultat [ $ii ][ " price " ] = $result [ " price " ];
$resultat [ $ii ][ " unitprice " ] = $result [ " unitprice " ];
$resultat [ $ii ][ " quantity " ] = $result [ " quantity " ];
$resultat [ $ii ][ " remise_percent " ] = $result [ " remise_percent " ];
$resultat [ $ii ][ " remise " ] = $result [ " remise " ]; // deprecated
$resultat [ $ii ][ " price_base_type " ] = $result [ " price_base_type " ];
$ii ++ ;
}
$this -> prices_by_qty_list [ $i ] = $resultat ;
}
else
{
dol_print_error ( $this -> db );
return - 1 ;
}
} */
} else {
$this -> error = $this -> db -> lasterror ;
return - 1 ;
}
}
} elseif ( ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES ) && empty ( $ignore_price_load )) // prices per customers
{
// Nothing loaded by default. List may be very long.
} elseif ( ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES_BY_QTY ) && empty ( $ignore_price_load )) // prices per quantity
{
$sql = " SELECT price, price_ttc, price_min, price_min_ttc, " ;
$sql .= " price_base_type, tva_tx, default_vat_code, tosell, price_by_qty, rowid " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price " ;
$sql .= " WHERE fk_product = " . $this -> id ;
$sql .= " ORDER BY date_price DESC, rowid DESC " ;
$sql .= " LIMIT 1 " ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$result = $this -> db -> fetch_array ( $resql );
// Price by quantity
$this -> prices_by_qty [ 0 ] = $result [ " price_by_qty " ];
$this -> prices_by_qty_id [ 0 ] = $result [ " rowid " ];
// Récuperation de la liste des prix selon qty si flag positionné
if ( $this -> prices_by_qty [ 0 ] == 1 ) {
$sql = " SELECT rowid,price, unitprice, quantity, remise_percent, remise, remise, price_base_type " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price_by_qty " ;
$sql .= " WHERE fk_product_price = " . $this -> prices_by_qty_id [ 0 ];
$sql .= " ORDER BY quantity ASC " ;
$resultat = array ();
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$ii = 0 ;
while ( $result = $this -> db -> fetch_array ( $resql )) {
$resultat [ $ii ] = array ();
$resultat [ $ii ][ " rowid " ] = $result [ " rowid " ];
$resultat [ $ii ][ " price " ] = $result [ " price " ];
$resultat [ $ii ][ " unitprice " ] = $result [ " unitprice " ];
$resultat [ $ii ][ " quantity " ] = $result [ " quantity " ];
$resultat [ $ii ][ " remise_percent " ] = $result [ " remise_percent " ];
//$resultat[$ii]["remise"]= $result["remise"]; // deprecated
$resultat [ $ii ][ " price_base_type " ] = $result [ " price_base_type " ];
$ii ++ ;
}
$this -> prices_by_qty_list [ 0 ] = $resultat ;
} else {
$this -> error = $this -> db -> lasterror ;
return - 1 ;
}
}
} else {
$this -> error = $this -> db -> lasterror ;
return - 1 ;
}
} elseif ( ! empty ( $conf -> global -> PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES ) && empty ( $ignore_price_load )) // prices per customer and quantity
{
for ( $i = 1 ; $i <= $conf -> global -> PRODUIT_MULTIPRICES_LIMIT ; $i ++ )
{
$sql = " SELECT price, price_ttc, price_min, price_min_ttc, " ;
$sql .= " price_base_type, tva_tx, default_vat_code, tosell, price_by_qty, rowid, recuperableonly " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price " ;
$sql .= " WHERE entity IN ( " . getEntity ( 'productprice' ) . " ) " ;
$sql .= " AND price_level= " . $i ;
$sql .= " AND fk_product = " . $this -> id ;
$sql .= " ORDER BY date_price DESC, rowid DESC " ;
$sql .= " LIMIT 1 " ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$result = $this -> db -> fetch_array ( $resql );
$this -> multiprices [ $i ] = $result [ " price " ];
$this -> multiprices_ttc [ $i ] = $result [ " price_ttc " ];
$this -> multiprices_min [ $i ] = $result [ " price_min " ];
$this -> multiprices_min_ttc [ $i ] = $result [ " price_min_ttc " ];
$this -> multiprices_base_type [ $i ] = $result [ " price_base_type " ];
// Next two fields are used only if PRODUIT_MULTIPRICES_USE_VAT_PER_LEVEL is on
$this -> multiprices_tva_tx [ $i ] = $result [ " tva_tx " ]; // TODO Add ' ('.$result['default_vat_code'].')'
$this -> multiprices_recuperableonly [ $i ] = $result [ " recuperableonly " ];
// Price by quantity
$this -> prices_by_qty [ $i ] = $result [ " price_by_qty " ];
$this -> prices_by_qty_id [ $i ] = $result [ " rowid " ];
// Récuperation de la liste des prix selon qty si flag positionné
if ( $this -> prices_by_qty [ $i ] == 1 ) {
$sql = " SELECT rowid, price, unitprice, quantity, remise_percent, remise, price_base_type " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price_by_qty " ;
$sql .= " WHERE fk_product_price = " . $this -> prices_by_qty_id [ $i ];
$sql .= " ORDER BY quantity ASC " ;
$resultat = array ();
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$ii = 0 ;
while ( $result = $this -> db -> fetch_array ( $resql )) {
$resultat [ $ii ] = array ();
$resultat [ $ii ][ " rowid " ] = $result [ " rowid " ];
$resultat [ $ii ][ " price " ] = $result [ " price " ];
$resultat [ $ii ][ " unitprice " ] = $result [ " unitprice " ];
$resultat [ $ii ][ " quantity " ] = $result [ " quantity " ];
$resultat [ $ii ][ " remise_percent " ] = $result [ " remise_percent " ];
$resultat [ $ii ][ " remise " ] = $result [ " remise " ]; // deprecated
$resultat [ $ii ][ " price_base_type " ] = $result [ " price_base_type " ];
$ii ++ ;
}
$this -> prices_by_qty_list [ $i ] = $resultat ;
} else {
$this -> error = $this -> db -> lasterror ;
return - 1 ;
}
}
} else {
$this -> error = $this -> db -> lasterror ;
return - 1 ;
}
}
}
if ( ! empty ( $conf -> dynamicprices -> enabled ) && ! empty ( $this -> fk_price_expression ) && empty ( $ignore_expression )) {
include_once DOL_DOCUMENT_ROOT . '/product/dynamic_price/class/price_parser.class.php' ;
$priceparser = new PriceParser ( $this -> db );
$price_result = $priceparser -> parseProduct ( $this );
if ( $price_result >= 0 ) {
$this -> price = $price_result ;
// Calculate the VAT
$this -> price_ttc = price2num ( $this -> price ) * ( 1 + ( $this -> tva_tx / 100 ));
$this -> price_ttc = price2num ( $this -> price_ttc , 'MU' );
}
}
// We should not load stock during the fetch. If someone need stock of product, he must call load_stock after fetching product.
// Instead we just init the stock_warehouse array
$this -> stock_warehouse = array ();
return 1 ;
} else {
return 0 ;
}
} else {
$this -> error = $this -> db -> lasterror ;
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats propale pour le produit / service
*
* @ param int $socid Id societe
* @ return integer Tableau des stats dans $this -> stats_propale , < 0 if ko > 0 if ok
*/
public function load_stats_propale ( $socid = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT p.fk_soc) as nb_customers, COUNT(DISTINCT p.rowid) as nb, " ;
$sql .= " COUNT(pd.rowid) as nb_rows, SUM(pd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " propaldet as pd " ;
$sql .= " , " . MAIN_DB_PREFIX . " propal as p " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE p.rowid = pd.fk_propal " ;
$sql .= " AND p.fk_soc = s.rowid " ;
$sql .= " AND p.entity IN ( " . getEntity ( 'propal' ) . " ) " ;
$sql .= " AND pd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND p.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
//$sql.= " AND pr.fk_statut != 0";
if ( $socid > 0 ) {
$sql .= " AND p.fk_soc = " . $socid ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_propale [ 'customers' ] = $obj -> nb_customers ;
$this -> stats_propale [ 'nb' ] = $obj -> nb ;
$this -> stats_propale [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_propale [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
// if it's a virtual product, maybe it is in proposal by extension
if ( ! empty ( $conf -> global -> PRODUCT_STATS_WITH_PARENT_PROD_IF_INCDEC )) {
$TFather = $this -> getFather ();
if ( is_array ( $TFather ) && ! empty ( $TFather )) {
foreach ( $TFather as & $fatherData ) {
$pFather = new Product ( $this -> db );
$pFather -> id = $fatherData [ 'id' ];
$qtyCoef = $fatherData [ 'qty' ];
if ( $fatherData [ 'incdec' ]) {
$pFather -> load_stats_propale ( $socid );
$this -> stats_propale [ 'customers' ] += $pFather -> stats_propale [ 'customers' ];
$this -> stats_propale [ 'nb' ] += $pFather -> stats_propale [ 'nb' ];
$this -> stats_propale [ 'rows' ] += $pFather -> stats_propale [ 'rows' ];
$this -> stats_propale [ 'qty' ] += $pFather -> stats_propale [ 'qty' ] * $qtyCoef ;
}
}
}
}
$parameters = array ( 'socid' => $socid );
$reshook = $hookmanager -> executeHooks ( 'loadStatsCustomerProposal' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_propale = $hookmanager -> resArray [ 'stats_propale' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats propale pour le produit / service
*
* @ param int $socid Id thirdparty
* @ return array Tableau des stats
*/
public function load_stats_proposal_supplier ( $socid = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT p.fk_soc) as nb_suppliers, COUNT(DISTINCT p.rowid) as nb, " ;
$sql .= " COUNT(pd.rowid) as nb_rows, SUM(pd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " supplier_proposaldet as pd " ;
$sql .= " , " . MAIN_DB_PREFIX . " supplier_proposal as p " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) { $sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE p.rowid = pd.fk_supplier_proposal " ;
$sql .= " AND p.fk_soc = s.rowid " ;
$sql .= " AND p.entity IN ( " . getEntity ( 'supplier_proposal' ) . " ) " ;
$sql .= " AND pd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) { $sql .= " AND p.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
//$sql.= " AND pr.fk_statut != 0";
if ( $socid > 0 ) { $sql .= " AND p.fk_soc = " . $socid ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_proposal_supplier [ 'suppliers' ] = $obj -> nb_suppliers ;
$this -> stats_proposal_supplier [ 'nb' ] = $obj -> nb ;
$this -> stats_proposal_supplier [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_proposal_supplier [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
$parameters = array ( 'socid' => $socid );
$reshook = $hookmanager -> executeHooks ( 'loadStatsSupplierProposal' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_proposal_supplier = $hookmanager -> resArray [ 'stats_proposal_supplier' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats commande client pour le produit / service
*
* @ param int $socid Id societe pour filtrer sur une societe
* @ param string $filtrestatut Id statut pour filtrer sur un statut
* @ param int $forVirtualStock Ignore rights filter for virtual stock calculation .
* @ return integer Array of stats in $this -> stats_commande ( nb = nb of order , qty = qty ordered ), < 0 if ko or > 0 if ok
*/
public function load_stats_commande ( $socid = 0 , $filtrestatut = '' , $forVirtualStock = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT c.fk_soc) as nb_customers, COUNT(DISTINCT c.rowid) as nb, " ;
$sql .= " COUNT(cd.rowid) as nb_rows, SUM(cd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " commandedet as cd " ;
$sql .= " , " . MAIN_DB_PREFIX . " commande as c " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE c.rowid = cd.fk_commande " ;
$sql .= " AND c.fk_soc = s.rowid " ;
$sql .= " AND c.entity IN ( " . getEntity ( 'commande' ) . " ) " ;
$sql .= " AND cd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND c.fk_soc = " . $socid ;
}
if ( $filtrestatut <> '' ) {
$sql .= " AND c.fk_statut in ( " . $filtrestatut . " ) " ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_commande [ 'customers' ] = $obj -> nb_customers ;
$this -> stats_commande [ 'nb' ] = $obj -> nb ;
$this -> stats_commande [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_commande [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
// if it's a virtual product, maybe it is in order by extension
if ( ! empty ( $conf -> global -> PRODUCT_STATS_WITH_PARENT_PROD_IF_INCDEC )) {
$TFather = $this -> getFather ();
if ( is_array ( $TFather ) && ! empty ( $TFather )) {
foreach ( $TFather as & $fatherData ) {
$pFather = new Product ( $this -> db );
$pFather -> id = $fatherData [ 'id' ];
$qtyCoef = $fatherData [ 'qty' ];
if ( $fatherData [ 'incdec' ]) {
$pFather -> load_stats_commande ( $socid , $filtrestatut );
$this -> stats_commande [ 'customers' ] += $pFather -> stats_commande [ 'customers' ];
$this -> stats_commande [ 'nb' ] += $pFather -> stats_commande [ 'nb' ];
$this -> stats_commande [ 'rows' ] += $pFather -> stats_commande [ 'rows' ];
$this -> stats_commande [ 'qty' ] += $pFather -> stats_commande [ 'qty' ] * $qtyCoef ;
}
}
}
}
// If stock decrease is on invoice validation, the theorical stock continue to
// count the orders to ship in theorical stock when some are already removed b invoice validation.
// If option DECREASE_ONLY_UNINVOICEDPRODUCTS is on, we make a compensation.
if ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_BILL )) {
if ( ! empty ( $conf -> global -> DECREASE_ONLY_UNINVOICEDPRODUCTS )) {
$adeduire = 0 ;
$sql = " SELECT sum(fd.qty) as count FROM " . MAIN_DB_PREFIX . " facturedet fd " ;
$sql .= " JOIN " . MAIN_DB_PREFIX . " facture f ON fd.fk_facture = f.rowid " ;
$sql .= " JOIN " . MAIN_DB_PREFIX . " element_element el ON el.fk_target = f.rowid and el.targettype = 'facture' and sourcetype = 'commande' " ;
$sql .= " JOIN " . MAIN_DB_PREFIX . " commande c ON el.fk_source = c.rowid " ;
$sql .= " WHERE c.fk_statut IN ( " . $filtrestatut . " ) AND c.facture = 0 AND fd.fk_product = " . $this -> id ;
dol_syslog ( __METHOD__ . " :: sql $sql " , LOG_NOTICE );
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
if ( $this -> db -> num_rows ( $resql ) > 0 ) {
$obj = $this -> db -> fetch_object ( $resql );
$adeduire += $obj -> count ;
}
}
$this -> stats_commande [ 'qty' ] -= $adeduire ;
}
}
$parameters = array ( 'socid' => $socid , 'filtrestatut' => $filtrestatut , 'forVirtualStock' => $forVirtualStock );
$reshook = $hookmanager -> executeHooks ( 'loadStatsCustomerOrder' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_commande = $hookmanager -> resArray [ 'stats_commande' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats commande fournisseur pour le produit / service
*
* @ param int $socid Id societe pour filtrer sur une societe
* @ param string $filtrestatut Id des statuts pour filtrer sur des statuts
* @ param int $forVirtualStock Ignore rights filter for virtual stock calculation .
* @ return array Tableau des stats
*/
public function load_stats_commande_fournisseur ( $socid = 0 , $filtrestatut = '' , $forVirtualStock = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT c.fk_soc) as nb_suppliers, COUNT(DISTINCT c.rowid) as nb, " ;
$sql .= " COUNT(cd.rowid) as nb_rows, SUM(cd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseurdet as cd " ;
$sql .= " , " . MAIN_DB_PREFIX . " commande_fournisseur as c " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE c.rowid = cd.fk_commande " ;
$sql .= " AND c.fk_soc = s.rowid " ;
$sql .= " AND c.entity IN ( " . getEntity ( 'supplier_order' ) . " ) " ;
$sql .= " AND cd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND c.fk_soc = " . $socid ;
}
if ( $filtrestatut != '' ) {
$sql .= " AND c.fk_statut in ( " . $filtrestatut . " ) " ; // Peut valoir 0
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_commande_fournisseur [ 'suppliers' ] = $obj -> nb_suppliers ;
$this -> stats_commande_fournisseur [ 'nb' ] = $obj -> nb ;
$this -> stats_commande_fournisseur [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_commande_fournisseur [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
$parameters = array ( 'socid' => $socid , 'filtrestatut' => $filtrestatut , 'forVirtualStock' => $forVirtualStock );
$reshook = $hookmanager -> executeHooks ( 'loadStatsSupplierOrder' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_commande_fournisseur = $hookmanager -> resArray [ 'stats_commande_fournisseur' ];
return 1 ;
} else {
$this -> error = $this -> db -> error () . ' sql=' . $sql ;
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats expedition client pour le produit / service
*
* @ param int $socid Id societe pour filtrer sur une societe
* @ param string $filtrestatut [ = '' ] Ids order status separated by comma
* @ param int $forVirtualStock Ignore rights filter for virtual stock calculation .
* @ param string $filterShipmentStatus [ = '' ] Ids shipment status separated by comma
* @ return int < 0 if KO , > 0 if OK ( Tableau des stats )
*/
public function load_stats_sending ( $socid = 0 , $filtrestatut = '' , $forVirtualStock = 0 , $filterShipmentStatus = '' )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT e.fk_soc) as nb_customers, COUNT(DISTINCT e.rowid) as nb, " ;
$sql .= " COUNT(ed.rowid) as nb_rows, SUM(ed.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " expeditiondet as ed " ;
$sql .= " , " . MAIN_DB_PREFIX . " commandedet as cd " ;
$sql .= " , " . MAIN_DB_PREFIX . " commande as c " ;
$sql .= " , " . MAIN_DB_PREFIX . " expedition as e " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE e.rowid = ed.fk_expedition " ;
$sql .= " AND c.rowid = cd.fk_commande " ;
$sql .= " AND e.fk_soc = s.rowid " ;
$sql .= " AND e.entity IN ( " . getEntity ( 'expedition' ) . " ) " ;
$sql .= " AND ed.fk_origin_line = cd.rowid " ;
$sql .= " AND cd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " AND e.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND e.fk_soc = " . $socid ;
}
if ( $filtrestatut <> '' ) {
$sql .= " AND c.fk_statut in ( " . $filtrestatut . " ) " ;
}
if ( ! empty ( $filterShipmentStatus )) $sql .= " AND e.fk_statut IN ( " . $filterShipmentStatus . " ) " ;
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_expedition [ 'customers' ] = $obj -> nb_customers ;
$this -> stats_expedition [ 'nb' ] = $obj -> nb ;
$this -> stats_expedition [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_expedition [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
// if it's a virtual product, maybe it is in sending by extension
if ( ! empty ( $conf -> global -> PRODUCT_STATS_WITH_PARENT_PROD_IF_INCDEC )) {
$TFather = $this -> getFather ();
if ( is_array ( $TFather ) && ! empty ( $TFather )) {
foreach ( $TFather as & $fatherData ) {
$pFather = new Product ( $this -> db );
$pFather -> id = $fatherData [ 'id' ];
$qtyCoef = $fatherData [ 'qty' ];
if ( $fatherData [ 'incdec' ]) {
$pFather -> load_stats_sending ( $socid , $filtrestatut , $forVirtualStock );
$this -> stats_expedition [ 'customers' ] += $pFather -> stats_expedition [ 'customers' ];
$this -> stats_expedition [ 'nb' ] += $pFather -> stats_expedition [ 'nb' ];
$this -> stats_expedition [ 'rows' ] += $pFather -> stats_expedition [ 'rows' ];
$this -> stats_expedition [ 'qty' ] += $pFather -> stats_expedition [ 'qty' ] * $qtyCoef ;
}
}
}
}
$parameters = array ( 'socid' => $socid , 'filtrestatut' => $filtrestatut , 'forVirtualStock' => $forVirtualStock , 'filterShipmentStatus' => $filterShipmentStatus );
$reshook = $hookmanager -> executeHooks ( 'loadStatsSending' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_expedition = $hookmanager -> resArray [ 'stats_expedition' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats réception fournisseur pour le produit / service
*
* @ param int $socid Id societe pour filtrer sur une societe
* @ param string $filtrestatut Id statut pour filtrer sur un statut
* @ param int $forVirtualStock Ignore rights filter for virtual stock calculation .
* @ return array Tableau des stats
*/
public function load_stats_reception ( $socid = 0 , $filtrestatut = '' , $forVirtualStock = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT cf.fk_soc) as nb_suppliers, COUNT(DISTINCT cf.rowid) as nb, " ;
$sql .= " COUNT(fd.rowid) as nb_rows, SUM(fd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseur_dispatch as fd " ;
$sql .= " , " . MAIN_DB_PREFIX . " commande_fournisseur as cf " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) { $sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE cf.rowid = fd.fk_commande " ;
$sql .= " AND cf.fk_soc = s.rowid " ;
$sql .= " AND cf.entity IN ( " . getEntity ( 'supplier_order' ) . " ) " ;
$sql .= " AND fd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) { $sql .= " AND cf.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) { $sql .= " AND cf.fk_soc = " . $socid ;
}
if ( $filtrestatut <> '' ) { $sql .= " AND cf.fk_statut in ( " . $filtrestatut . " ) " ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_reception [ 'suppliers' ] = $obj -> nb_suppliers ;
$this -> stats_reception [ 'nb' ] = $obj -> nb ;
$this -> stats_reception [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_reception [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
$parameters = array ( 'socid' => $socid , 'filtrestatut' => $filtrestatut , 'forVirtualStock' => $forVirtualStock );
$reshook = $hookmanager -> executeHooks ( 'loadStatsReception' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_reception = $hookmanager -> resArray [ 'stats_reception' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats commande client pour le produit / service
*
* @ param int $socid Id societe pour filtrer sur une societe
* @ param string $filtrestatut Id statut pour filtrer sur un statut
* @ param int $forVirtualStock Ignore rights filter for virtual stock calculation .
* @ return integer Array of stats in $this -> stats_commande ( nb = nb of order , qty = qty ordered ), < 0 if ko or > 0 if ok
*/
public function load_stats_inproduction ( $socid = 0 , $filtrestatut = '' , $forVirtualStock = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT m.fk_soc) as nb_customers, COUNT(DISTINCT m.rowid) as nb, " ;
$sql .= " COUNT(mp.rowid) as nb_rows, SUM(mp.qty) as qty, role " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " mrp_production as mp " ;
$sql .= " , " . MAIN_DB_PREFIX . " mrp_mo as m " ;
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " societe as s ON s.rowid = m.fk_soc " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE m.rowid = mp.fk_mo " ;
$sql .= " AND m.entity IN ( " . getEntity ( 'mrp' ) . " ) " ;
$sql .= " AND mp.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid && ! $forVirtualStock ) {
$sql .= " AND m.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND m.fk_soc = " . $socid ;
}
if ( $filtrestatut <> '' ) {
$sql .= " AND m.status in ( " . $filtrestatut . " ) " ;
}
$sql .= " GROUP BY role " ;
$this -> stats_mrptoconsume [ 'customers' ] = 0 ;
$this -> stats_mrptoconsume [ 'nb' ] = 0 ;
$this -> stats_mrptoconsume [ 'rows' ] = 0 ;
$this -> stats_mrptoconsume [ 'qty' ] = 0 ;
$this -> stats_mrptoproduce [ 'customers' ] = 0 ;
$this -> stats_mrptoproduce [ 'nb' ] = 0 ;
$this -> stats_mrptoproduce [ 'rows' ] = 0 ;
$this -> stats_mrptoproduce [ 'qty' ] = 0 ;
$result = $this -> db -> query ( $sql );
if ( $result ) {
while ( $obj = $this -> db -> fetch_object ( $result )) {
if ( $obj -> role == 'toconsume' ) {
$this -> stats_mrptoconsume [ 'customers' ] += $obj -> nb_customers ;
$this -> stats_mrptoconsume [ 'nb' ] += $obj -> nb ;
$this -> stats_mrptoconsume [ 'rows' ] += $obj -> nb_rows ;
$this -> stats_mrptoconsume [ 'qty' ] += ( $obj -> qty ? $obj -> qty : 0 );
}
if ( $obj -> role == 'consumed' ) {
//$this->stats_mrptoconsume['customers'] += $obj->nb_customers;
//$this->stats_mrptoconsume['nb'] += $obj->nb;
//$this->stats_mrptoconsume['rows'] += $obj->nb_rows;
$this -> stats_mrptoconsume [ 'qty' ] -= ( $obj -> qty ? $obj -> qty : 0 );
}
if ( $obj -> role == 'toproduce' ) {
$this -> stats_mrptoproduce [ 'customers' ] += $obj -> nb_customers ;
$this -> stats_mrptoproduce [ 'nb' ] += $obj -> nb ;
$this -> stats_mrptoproduce [ 'rows' ] += $obj -> nb_rows ;
$this -> stats_mrptoproduce [ 'qty' ] += ( $obj -> qty ? $obj -> qty : 0 );
}
if ( $obj -> role == 'produced' ) {
//$this->stats_mrptoproduce['customers'] += $obj->nb_customers;
//$this->stats_mrptoproduce['nb'] += $obj->nb;
//$this->stats_mrptoproduce['rows'] += $obj->nb_rows;
$this -> stats_mrptoproduce [ 'qty' ] -= ( $obj -> qty ? $obj -> qty : 0 );
}
}
// Clean data
if ( $this -> stats_mrptoconsume [ 'qty' ] < 0 ) $this -> stats_mrptoconsume [ 'qty' ] = 0 ;
if ( $this -> stats_mrptoproduce [ 'qty' ] < 0 ) $this -> stats_mrptoproduce [ 'qty' ] = 0 ;
$parameters = array ( 'socid' => $socid , 'filtrestatut' => $filtrestatut , 'forVirtualStock' => $forVirtualStock );
$reshook = $hookmanager -> executeHooks ( 'loadStatsInProduction' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_mrptoproduce = $hookmanager -> resArray [ 'stats_mrptoproduce' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats contrat pour le produit / service
*
* @ param int $socid Id societe
* @ return array Tableau des stats
*/
public function load_stats_contrat ( $socid = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT c.fk_soc) as nb_customers, COUNT(DISTINCT c.rowid) as nb, " ;
$sql .= " COUNT(cd.rowid) as nb_rows, SUM(cd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " contratdet as cd " ;
$sql .= " , " . MAIN_DB_PREFIX . " contrat as c " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE c.rowid = cd.fk_contrat " ;
$sql .= " AND c.fk_soc = s.rowid " ;
$sql .= " AND c.entity IN ( " . getEntity ( 'contract' ) . " ) " ;
$sql .= " AND cd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
//$sql.= " AND c.statut != 0";
if ( $socid > 0 ) {
$sql .= " AND c.fk_soc = " . $socid ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_contrat [ 'customers' ] = $obj -> nb_customers ;
$this -> stats_contrat [ 'nb' ] = $obj -> nb ;
$this -> stats_contrat [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_contrat [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
// if it's a virtual product, maybe it is in contract by extension
if ( ! empty ( $conf -> global -> PRODUCT_STATS_WITH_PARENT_PROD_IF_INCDEC )) {
$TFather = $this -> getFather ();
if ( is_array ( $TFather ) && ! empty ( $TFather )) {
foreach ( $TFather as & $fatherData ) {
$pFather = new Product ( $this -> db );
$pFather -> id = $fatherData [ 'id' ];
$qtyCoef = $fatherData [ 'qty' ];
if ( $fatherData [ 'incdec' ]) {
$pFather -> load_stats_contrat ( $socid );
$this -> stats_contrat [ 'customers' ] += $pFather -> stats_contrat [ 'customers' ];
$this -> stats_contrat [ 'nb' ] += $pFather -> stats_contrat [ 'nb' ];
$this -> stats_contrat [ 'rows' ] += $pFather -> stats_contrat [ 'rows' ];
$this -> stats_contrat [ 'qty' ] += $pFather -> stats_contrat [ 'qty' ] * $qtyCoef ;
}
}
}
}
$parameters = array ( 'socid' => $socid );
$reshook = $hookmanager -> executeHooks ( 'loadStatsContract' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_contrat = $hookmanager -> resArray [ 'stats_contrat' ];
return 1 ;
} else {
$this -> error = $this -> db -> error () . ' sql=' . $sql ;
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats facture pour le produit / service
*
* @ param int $socid Id societe
* @ return array Tableau des stats
*/
public function load_stats_facture ( $socid = 0 )
{
// phpcs:enable
global $db , $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT f.fk_soc) as nb_customers, COUNT(DISTINCT f.rowid) as nb, " ;
$sql .= " COUNT(fd.rowid) as nb_rows, SUM( " . $db -> ifsql ( 'f.type != 2' , 'fd.qty' , 'fd.qty * -1' ) . " ) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " facturedet as fd " ;
$sql .= " , " . MAIN_DB_PREFIX . " facture as f " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE f.rowid = fd.fk_facture " ;
$sql .= " AND f.fk_soc = s.rowid " ;
$sql .= " AND f.entity IN ( " . getEntity ( 'invoice' ) . " ) " ;
$sql .= " AND fd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND f.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
//$sql.= " AND f.fk_statut != 0";
if ( $socid > 0 ) {
$sql .= " AND f.fk_soc = " . $socid ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_facture [ 'customers' ] = $obj -> nb_customers ;
$this -> stats_facture [ 'nb' ] = $obj -> nb ;
$this -> stats_facture [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_facture [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
// if it's a virtual product, maybe it is in invoice by extension
if ( ! empty ( $conf -> global -> PRODUCT_STATS_WITH_PARENT_PROD_IF_INCDEC )) {
$TFather = $this -> getFather ();
if ( is_array ( $TFather ) && ! empty ( $TFather )) {
foreach ( $TFather as & $fatherData ) {
$pFather = new Product ( $this -> db );
$pFather -> id = $fatherData [ 'id' ];
$qtyCoef = $fatherData [ 'qty' ];
if ( $fatherData [ 'incdec' ]) {
$pFather -> load_stats_facture ( $socid );
$this -> stats_facture [ 'customers' ] += $pFather -> stats_facture [ 'customers' ];
$this -> stats_facture [ 'nb' ] += $pFather -> stats_facture [ 'nb' ];
$this -> stats_facture [ 'rows' ] += $pFather -> stats_facture [ 'rows' ];
$this -> stats_facture [ 'qty' ] += $pFather -> stats_facture [ 'qty' ] * $qtyCoef ;
}
}
}
}
$parameters = array ( 'socid' => $socid );
$reshook = $hookmanager -> executeHooks ( 'loadStatsCustomerInvoice' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_facture = $hookmanager -> resArray [ 'stats_facture' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Charge tableau des stats facture pour le produit / service
*
* @ param int $socid Id societe
* @ return array Tableau des stats
*/
public function load_stats_facture_fournisseur ( $socid = 0 )
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$sql = " SELECT COUNT(DISTINCT f.fk_soc) as nb_suppliers, COUNT(DISTINCT f.rowid) as nb, " ;
$sql .= " COUNT(fd.rowid) as nb_rows, SUM(fd.qty) as qty " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " facture_fourn_det as fd " ;
$sql .= " , " . MAIN_DB_PREFIX . " facture_fourn as f " ;
$sql .= " , " . MAIN_DB_PREFIX . " societe as s " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE f.rowid = fd.fk_facture_fourn " ;
$sql .= " AND f.fk_soc = s.rowid " ;
$sql .= " AND f.entity IN ( " . getEntity ( 'facture_fourn' ) . " ) " ;
$sql .= " AND fd.fk_product = " . $this -> id ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND f.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
//$sql.= " AND f.fk_statut != 0";
if ( $socid > 0 ) {
$sql .= " AND f.fk_soc = " . $socid ;
}
$result = $this -> db -> query ( $sql );
if ( $result ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> stats_facture_fournisseur [ 'suppliers' ] = $obj -> nb_suppliers ;
$this -> stats_facture_fournisseur [ 'nb' ] = $obj -> nb ;
$this -> stats_facture_fournisseur [ 'rows' ] = $obj -> nb_rows ;
$this -> stats_facture_fournisseur [ 'qty' ] = $obj -> qty ? $obj -> qty : 0 ;
$parameters = array ( 'socid' => $socid );
$reshook = $hookmanager -> executeHooks ( 'loadStatsSupplierInvoice' , $parameters , $this , $action );
if ( $reshook > 0 ) $this -> stats_facture_fournisseur = $hookmanager -> resArray [ 'stats_facture_fournisseur' ];
return 1 ;
} else {
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return an array formated for showing graphs
*
* @ param string $sql Request to execute
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $year Year ( 0 = current year )
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
private function _get_stats ( $sql , $mode , $year = 0 )
{
// phpcs:enable
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$num = $this -> db -> num_rows ( $resql );
$i = 0 ;
while ( $i < $num )
{
$arr = $this -> db -> fetch_array ( $resql );
if ( $mode == 'byunit' ) {
$tab [ $arr [ 1 ]] = $arr [ 0 ]; // 1st field
}
if ( $mode == 'bynumber' ) {
$tab [ $arr [ 1 ]] = $arr [ 2 ]; // 3rd field
}
$i ++ ;
}
} else {
$this -> error = $this -> db -> error () . ' sql=' . $sql ;
return - 1 ;
}
if ( empty ( $year )) {
$year = strftime ( '%Y' , time ());
$month = strftime ( '%m' , time ());
} else {
$month = 12 ; // We imagine we are at end of year, so we get last 12 month before, so all correct year.
}
$result = array ();
for ( $j = 0 ; $j < 12 ; $j ++ )
{
//$idx = ucfirst(dol_trunc(dol_print_date(dol_mktime(12, 0, 0, $month, 1, $year), "%b"), 3, 'right', 'UTF-8', 1));
$idx = ucfirst ( dol_trunc ( dol_print_date ( dol_mktime ( 12 , 0 , 0 , $month , 1 , $year ), " %b " ), 1 , 'right' , 'UTF-8' , 1 ));
$result [ $j ] = array ( $idx , isset ( $tab [ $year . $month ]) ? $tab [ $year . $month ] : 0 );
// $result[$j] = array($monthnum,isset($tab[$year.$month])?$tab[$year.$month]:0);
$month = " 0 " . ( $month - 1 );
if ( dol_strlen ( $month ) == 3 ) {
$month = substr ( $month , 1 );
}
if ( $month == 0 ) {
$month = 12 ;
$year = $year - 1 ;
}
}
return array_reverse ( $result );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units or customers invoices in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_vente ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf ;
global $user ;
$sql = " SELECT sum(d.qty), date_format(f.datef, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT f.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " facturedet as d, " . MAIN_DB_PREFIX . " facture as f, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as p " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE f.rowid = d.fk_facture " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND p.rowid = d.fk_product AND p.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND f.fk_soc = s.rowid " ;
$sql .= " AND f.entity IN ( " . getEntity ( 'invoice' ) . " ) " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND f.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND f.fk_soc = $socid " ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(f.datef,'%Y%m') " ;
$sql .= " ORDER BY date_format(f.datef,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units or supplier invoices in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_achat ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf ;
global $user ;
$sql = " SELECT sum(d.qty), date_format(f.datef, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT f.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " facture_fourn_det as d, " . MAIN_DB_PREFIX . " facture_fourn as f, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as p " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE f.rowid = d.fk_facture_fourn " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND p.rowid = d.fk_product AND p.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND f.fk_soc = s.rowid " ;
$sql .= " AND f.entity IN ( " . getEntity ( 'facture_fourn' ) . " ) " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND f.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND f.fk_soc = $socid " ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(f.datef,'%Y%m') " ;
$sql .= " ORDER BY date_format(f.datef,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units in proposals in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_propal ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf ;
global $user ;
$sql = " SELECT sum(d.qty), date_format(p.datep, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT p.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " propaldet as d, " . MAIN_DB_PREFIX . " propal as p, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as prod " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE p.rowid = d.fk_propal " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND prod.rowid = d.fk_product AND prod.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND p.fk_soc = s.rowid " ;
$sql .= " AND p.entity IN ( " . getEntity ( 'propal' ) . " ) " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND p.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND p.fk_soc = " . $socid ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(p.datep,'%Y%m') " ;
$sql .= " ORDER BY date_format(p.datep,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units in proposals in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_propalsupplier ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf ;
global $user ;
$sql = " SELECT sum(d.qty), date_format(p.date_valid, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT p.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " supplier_proposaldet as d, " . MAIN_DB_PREFIX . " supplier_proposal as p, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as prod " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE p.rowid = d.fk_supplier_proposal " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND prod.rowid = d.fk_product AND prod.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND p.fk_soc = s.rowid " ;
$sql .= " AND p.entity IN ( " . getEntity ( 'supplier_proposal' ) . " ) " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND p.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND p.fk_soc = " . $socid ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(p.date_valid,'%Y%m') " ;
$sql .= " ORDER BY date_format(p.date_valid,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units in orders in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_order ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf , $user ;
$sql = " SELECT sum(d.qty), date_format(c.date_commande, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT c.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " commandedet as d, " . MAIN_DB_PREFIX . " commande as c, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as p " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE c.rowid = d.fk_commande " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND p.rowid = d.fk_product AND p.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND c.fk_soc = s.rowid " ;
$sql .= " AND c.entity IN ( " . getEntity ( 'commande' ) . " ) " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND c.fk_soc = " . $socid ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(c.date_commande,'%Y%m') " ;
$sql .= " ORDER BY date_format(c.date_commande,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units in orders in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_ordersupplier ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf , $user ;
$sql = " SELECT sum(d.qty), date_format(c.date_commande, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT c.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseurdet as d, " . MAIN_DB_PREFIX . " commande_fournisseur as c, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as p " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE c.rowid = d.fk_commande " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND p.rowid = d.fk_product AND p.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND c.fk_soc = s.rowid " ;
$sql .= " AND c.entity IN ( " . getEntity ( 'supplier_order' ) . " ) " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND c.fk_soc = " . $socid ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(c.date_commande,'%Y%m') " ;
$sql .= " ORDER BY date_format(c.date_commande,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units in orders in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_contract ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf , $user ;
$sql = " SELECT sum(d.qty), date_format(c.date_contrat, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT c.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " contratdet as d, " . MAIN_DB_PREFIX . " contrat as c, " . MAIN_DB_PREFIX . " societe as s " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as p " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE c.entity IN ( " . getEntity ( 'contract' ) . " ) " ;
$sql .= " AND c.rowid = d.fk_contrat " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND p.rowid = d.fk_product AND p.fk_product_type = " . $filteronproducttype ;
}
$sql .= " AND c.fk_soc = s.rowid " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND c.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND c.fk_soc = " . $socid ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(c.date_contrat,'%Y%m') " ;
$sql .= " ORDER BY date_format(c.date_contrat,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return nb of units in orders in which product is included
*
* @ param int $socid Limit count on a particular third party id
* @ param string $mode 'byunit' = number of unit , 'bynumber' = nb of entities
* @ param int $filteronproducttype 0 = To filter on product only , 1 = To filter on services only
* @ param int $year Year ( 0 = last 12 month )
* @ param string $morefilter More sql filters
* @ return array < 0 if KO , result [ month ] = array ( valuex , valuey ) where month is 0 to 11
*/
public function get_nb_mos ( $socid , $mode , $filteronproducttype = - 1 , $year = 0 , $morefilter = '' )
{
// phpcs:enable
global $conf , $user ;
$sql = " SELECT sum(d.qty), date_format(d.date_valid, '%Y%m') " ;
if ( $mode == 'bynumber' ) {
$sql .= " , count(DISTINCT d.rowid) " ;
}
$sql .= " FROM " . MAIN_DB_PREFIX . " mrp_mo as d LEFT JOIN " . MAIN_DB_PREFIX . " societe as s ON d.fk_soc = s.rowid " ;
if ( $filteronproducttype >= 0 ) {
$sql .= " , " . MAIN_DB_PREFIX . " product as p " ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
}
$sql .= " WHERE d.entity IN ( " . getEntity ( 'mo' ) . " ) " ;
$sql .= " AND d.status > 0 " ;
if ( $this -> id > 0 ) {
$sql .= " AND d.fk_product = " . $this -> id ;
} else {
$sql .= " AND d.fk_product > 0 " ;
}
if ( $filteronproducttype >= 0 ) {
$sql .= " AND p.rowid = d.fk_product AND p.fk_product_type = " . $filteronproducttype ;
}
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) {
$sql .= " AND d.fk_soc = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
if ( $socid > 0 ) {
$sql .= " AND d.fk_soc = " . $socid ;
}
$sql .= $morefilter ;
$sql .= " GROUP BY date_format(d.date_valid,'%Y%m') " ;
$sql .= " ORDER BY date_format(d.date_valid,'%Y%m') DESC " ;
return $this -> _get_stats ( $sql , $mode , $year );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Link a product / service to a parent product / service
*
* @ param int $id_pere Id of parent product / service
* @ param int $id_fils Id of child product / service
* @ param int $qty Quantity
* @ param int $incdec 1 = Increase / decrease stock of child when parent stock increase / decrease
* @ return int < 0 if KO , > 0 if OK
*/
public function add_sousproduit ( $id_pere , $id_fils , $qty , $incdec = 1 )
{
// phpcs:enable
// Clean parameters
if ( ! is_numeric ( $id_pere )) {
$id_pere = 0 ;
}
if ( ! is_numeric ( $id_fils )) {
$id_fils = 0 ;
}
if ( ! is_numeric ( $incdec )) {
$incdec = 0 ;
}
$result = $this -> del_sousproduit ( $id_pere , $id_fils );
if ( $result < 0 ) {
return $result ;
}
// Check not already father of id_pere (to avoid father -> child -> father links)
$sql = 'SELECT fk_product_pere from ' . MAIN_DB_PREFIX . 'product_association' ;
$sql .= ' WHERE fk_product_pere = ' . $id_fils . ' AND fk_product_fils = ' . $id_pere ;
if ( ! $this -> db -> query ( $sql )) {
dol_print_error ( $this -> db );
return - 1 ;
} else {
$result = $this -> db -> query ( $sql );
if ( $result ) {
$num = $this -> db -> num_rows ( $result );
if ( $num > 0 ) {
$this -> error = " isFatherOfThis " ;
return - 1 ;
} else {
$sql = 'INSERT INTO ' . MAIN_DB_PREFIX . 'product_association(fk_product_pere,fk_product_fils,qty,incdec)' ;
$sql .= ' VALUES (' . $id_pere . ', ' . $id_fils . ', ' . $qty . ', ' . $incdec . ')' ;
if ( ! $this -> db -> query ( $sql )) {
dol_print_error ( $this -> db );
return - 1 ;
} else {
return 1 ;
}
}
}
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Modify composed product
*
* @ param int $id_pere Id of parent product / service
* @ param int $id_fils Id of child product / service
* @ param int $qty Quantity
* @ param int $incdec 1 = Increase / decrease stock of child when parent stock increase / decrease
* @ return int < 0 if KO , > 0 if OK
*/
public function update_sousproduit ( $id_pere , $id_fils , $qty , $incdec = 1 )
{
// phpcs:enable
// Clean parameters
if ( ! is_numeric ( $id_pere )) {
$id_pere = 0 ;
}
if ( ! is_numeric ( $id_fils )) {
$id_fils = 0 ;
}
if ( ! is_numeric ( $incdec )) {
$incdec = 1 ;
}
if ( ! is_numeric ( $qty )) {
$qty = 1 ;
}
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'product_association SET ' ;
$sql .= 'qty=' . $qty ;
$sql .= ',incdec=' . $incdec ;
$sql .= ' WHERE fk_product_pere=' . $id_pere . ' AND fk_product_fils=' . $id_fils ;
if ( ! $this -> db -> query ( $sql )) {
dol_print_error ( $this -> db );
return - 1 ;
} else {
return 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Retire le lien entre un sousproduit et un produit / service
*
* @ param int $fk_parent Id du produit auquel ne sera plus lie le produit lie
* @ param int $fk_child Id du produit a ne plus lie
* @ return int < 0 if KO , > 0 if OK
*/
public function del_sousproduit ( $fk_parent , $fk_child )
{
// phpcs:enable
if ( ! is_numeric ( $fk_parent )) {
$fk_parent = 0 ;
}
if ( ! is_numeric ( $fk_child )) {
$fk_child = 0 ;
}
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " product_association " ;
$sql .= " WHERE fk_product_pere = " . $fk_parent ;
$sql .= " AND fk_product_fils = " . $fk_child ;
dol_syslog ( get_class ( $this ) . '::del_sousproduit' , LOG_DEBUG );
if ( ! $this -> db -> query ( $sql )) {
dol_print_error ( $this -> db );
return - 1 ;
}
return 1 ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Verifie si c ' est un sous - produit
*
* @ param int $fk_parent Id du produit auquel le produit est lie
* @ param int $fk_child Id du produit lie
* @ return int < 0 si erreur , > 0 si ok
*/
public function is_sousproduit ( $fk_parent , $fk_child )
{
// phpcs:enable
$sql = " SELECT fk_product_pere, qty, incdec " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_association " ;
$sql .= " WHERE fk_product_pere = ' " . $fk_parent . " ' " ;
$sql .= " AND fk_product_fils = ' " . $fk_child . " ' " ;
$result = $this -> db -> query ( $sql );
if ( $result ) {
$num = $this -> db -> num_rows ( $result );
if ( $num > 0 ) {
$obj = $this -> db -> fetch_object ( $result );
$this -> is_sousproduit_qty = $obj -> qty ;
$this -> is_sousproduit_incdec = $obj -> incdec ;
return true ;
} else {
return false ;
}
} else {
dol_print_error ( $this -> db );
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Add a supplier price for the product .
* Note : Duplicate ref is accepted for different quantity only , or for different companies .
*
* @ param User $user User that make link
* @ param int $id_fourn Supplier id
* @ param string $ref_fourn Supplier ref
* @ param float $quantity Quantity minimum for price
* @ return int < 0 if KO , 0 if link already exists for this product , > 0 if OK
*/
public function add_fournisseur ( $user , $id_fourn , $ref_fourn , $quantity )
{
// phpcs:enable
global $conf ;
$now = dol_now ();
dol_syslog ( get_class ( $this ) . " ::add_fournisseur id_fourn = " . $id_fourn . " ref_fourn= " . $ref_fourn . " quantity= " . $quantity , LOG_DEBUG );
// Clean parameters
$quantity = price2num ( $quantity , 'MS' );
if ( $ref_fourn ) {
$sql = " SELECT rowid, fk_product " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_fournisseur_price " ;
$sql .= " WHERE fk_soc = " . $id_fourn ;
$sql .= " AND ref_fourn = ' " . $this -> db -> escape ( $ref_fourn ) . " ' " ;
$sql .= " AND fk_product != " . $this -> id ;
$sql .= " AND entity IN ( " . getEntity ( 'productsupplierprice' ) . " ) " ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$obj = $this -> db -> fetch_object ( $resql );
if ( $obj ) {
// If the supplier ref already exists but for another product (duplicate ref is accepted for different quantity only or different companies)
$this -> product_id_already_linked = $obj -> fk_product ;
return - 3 ;
}
$this -> db -> free ( $resql );
}
}
$sql = " SELECT rowid " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_fournisseur_price " ;
$sql .= " WHERE fk_soc = " . $id_fourn ;
if ( $ref_fourn ) { $sql .= " AND ref_fourn = ' " . $this -> db -> escape ( $ref_fourn ) . " ' " ;
} else { $sql .= " AND (ref_fourn = '' OR ref_fourn IS NULL) " ;
}
$sql .= " AND quantity = " . $quantity ;
$sql .= " AND fk_product = " . $this -> id ;
$sql .= " AND entity IN ( " . getEntity ( 'productsupplierprice' ) . " ) " ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$obj = $this -> db -> fetch_object ( $resql );
// The reference supplier does not exist, we create it for this product.
if ( ! $obj ) {
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " product_fournisseur_price( " ;
$sql .= " datec " ;
$sql .= " , entity " ;
$sql .= " , fk_product " ;
$sql .= " , fk_soc " ;
$sql .= " , ref_fourn " ;
$sql .= " , quantity " ;
$sql .= " , fk_user " ;
$sql .= " , tva_tx " ;
$sql .= " ) VALUES ( " ;
$sql .= " ' " . $this -> db -> idate ( $now ) . " ' " ;
$sql .= " , " . $conf -> entity ;
$sql .= " , " . $this -> id ;
$sql .= " , " . $id_fourn ;
$sql .= " , ' " . $this -> db -> escape ( $ref_fourn ) . " ' " ;
$sql .= " , " . $quantity ;
$sql .= " , " . $user -> id ;
$sql .= " , 0 " ;
$sql .= " ) " ;
if ( $this -> db -> query ( $sql )) {
$this -> product_fourn_price_id = $this -> db -> last_insert_id ( MAIN_DB_PREFIX . " product_fournisseur_price " );
return 1 ;
} else {
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
} else {
// If the supplier price already exists for this product and quantity
$this -> product_fourn_price_id = $obj -> rowid ;
return 0 ;
}
} else {
$this -> error = $this -> db -> lasterror ();
return - 2 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Renvoie la liste des fournisseurs du produit / service
*
* @ return array Tableau des id de fournisseur
*/
public function list_suppliers ()
{
// phpcs:enable
global $conf ;
$list = array ();
$sql = " SELECT DISTINCT p.fk_soc " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_fournisseur_price as p " ;
$sql .= " WHERE p.fk_product = " . $this -> id ;
$sql .= " AND p.entity = " . $conf -> entity ;
$result = $this -> db -> query ( $sql );
if ( $result ) {
$num = $this -> db -> num_rows ( $result );
$i = 0 ;
while ( $i < $num )
{
$obj = $this -> db -> fetch_object ( $result );
$list [ $i ] = $obj -> fk_soc ;
$i ++ ;
}
}
return $list ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Recopie les prix d ' un produit / service sur un autre
*
* @ param int $fromId Id product source
* @ param int $toId Id product target
* @ return int < 0 if KO , > 0 if OK
*/
public function clone_price ( $fromId , $toId )
{
global $conf , $user ;
$now = dol_now ();
$this -> db -> begin ();
// prices
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " product_price ( " ;
$sql .= " entity " ;
$sql .= " , fk_product " ;
$sql .= " , date_price " ;
$sql .= " , price_level " ;
$sql .= " , price " ;
$sql .= " , price_ttc " ;
$sql .= " , price_min " ;
$sql .= " , price_min_ttc " ;
$sql .= " , price_base_type " ;
$sql .= " , default_vat_code " ;
$sql .= " , tva_tx " ;
$sql .= " , recuperableonly " ;
$sql .= " , localtax1_tx " ;
$sql .= " , localtax1_type " ;
$sql .= " , localtax2_tx " ;
$sql .= " , localtax2_type " ;
$sql .= " , fk_user_author " ;
$sql .= " , tosell " ;
$sql .= " , price_by_qty " ;
$sql .= " , fk_price_expression " ;
$sql .= " , fk_multicurrency " ;
$sql .= " , multicurrency_code " ;
$sql .= " , multicurrency_tx " ;
$sql .= " , multicurrency_price " ;
$sql .= " , multicurrency_price_ttc " ;
$sql .= " ) " ;
$sql .= " SELECT " ;
$sql .= " entity " ;
$sql .= " , " . $toId ;
$sql .= " , ' " . $this -> db -> idate ( $now ) . " ' " ;
$sql .= " , price_level " ;
$sql .= " , price " ;
$sql .= " , price_ttc " ;
$sql .= " , price_min " ;
$sql .= " , price_min_ttc " ;
$sql .= " , price_base_type " ;
$sql .= " , default_vat_code " ;
$sql .= " , tva_tx " ;
$sql .= " , recuperableonly " ;
$sql .= " , localtax1_tx " ;
$sql .= " , localtax1_type " ;
$sql .= " , localtax2_tx " ;
$sql .= " , localtax2_type " ;
$sql .= " , " . $user -> id ;
$sql .= " , tosell " ;
$sql .= " , price_by_qty " ;
$sql .= " , fk_price_expression " ;
$sql .= " , fk_multicurrency " ;
$sql .= " , multicurrency_code " ;
$sql .= " , multicurrency_tx " ;
$sql .= " , multicurrency_price " ;
$sql .= " , multicurrency_price_ttc " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_price " ;
$sql .= " WHERE fk_product = " . $fromId ;
$sql .= " ORDER BY date_price DESC " ;
if ( $conf -> global -> PRODUIT_MULTIPRICES_LIMIT > 0 ) {
$sql .= " LIMIT " . $conf -> global -> PRODUIT_MULTIPRICES_LIMIT ;
}
dol_syslog ( __METHOD__ , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( ! $resql ) {
$this -> db -> rollback ();
return - 1 ;
}
$this -> db -> commit ();
return 1 ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Clone links between products
*
* @ param int $fromId Product id
* @ param int $toId Product id
* @ return int < 0 if KO , > 0 if OK
*/
public function clone_associations ( $fromId , $toId )
{
// phpcs:enable
$this -> db -> begin ();
$sql = 'INSERT INTO ' . MAIN_DB_PREFIX . 'product_association (fk_product_pere, fk_product_fils, qty)' ;
$sql .= " SELECT " . $toId . " , fk_product_fils, qty FROM " . MAIN_DB_PREFIX . " product_association " ;
$sql .= " WHERE fk_product_pere = " . $fromId ;
dol_syslog ( get_class ( $this ) . '::clone_association' , LOG_DEBUG );
if ( ! $this -> db -> query ( $sql )) {
$this -> db -> rollback ();
return - 1 ;
}
$this -> db -> commit ();
return 1 ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Recopie les fournisseurs et prix fournisseurs d ' un produit / service sur un autre
*
* @ param int $fromId Id produit source
* @ param int $toId Id produit cible
* @ return int < 0 si erreur , > 0 si ok
*/
public function clone_fournisseurs ( $fromId , $toId )
{
// phpcs:enable
$this -> db -> begin ();
$now = dol_now ();
// les fournisseurs
/* $sql = " INSERT " . MAIN_DB_PREFIX . " product_fournisseur ( "
. " datec, fk_product, fk_soc, ref_fourn, fk_user_author ) "
. " SELECT ' " . $this -> db -> idate ( $now ) . " ', " . $toId . " , fk_soc, ref_fourn, fk_user_author "
. " FROM " . MAIN_DB_PREFIX . " product_fournisseur "
. " WHERE fk_product = " . $fromId ;
if ( ! $this -> db -> query ( $sql ) )
{
$this -> db -> rollback ();
return - 1 ;
} */
// les prix de fournisseurs.
$sql = " INSERT " . MAIN_DB_PREFIX . " product_fournisseur_price ( " ;
$sql .= " datec, fk_product, fk_soc, price, quantity, fk_user) " ;
$sql .= " SELECT ' " . $this -> db -> idate ( $now ) . " ', " . $toId . " , fk_soc, price, quantity, fk_user " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_fournisseur_price " ;
$sql .= " WHERE fk_product = " . $fromId ;
dol_syslog ( get_class ( $this ) . '::clone_fournisseurs' , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( ! $resql ) {
$this -> db -> rollback ();
return - 1 ;
} else {
$this -> db -> commit ();
return 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Fonction recursive uniquement utilisee par get_arbo_each_prod , recompose l ' arborescence des sousproduits
* Define value of this -> res
*
* @ param array $prod Products array
* @ param string $compl_path Directory path of parents to add before
* @ param int $multiply Because each sublevel must be multiplicated by parent nb
* @ param int $level Init level
* @ param int $id_parent Id parent
* @ return void
*/
public function fetch_prod_arbo ( $prod , $compl_path = " " , $multiply = 1 , $level = 1 , $id_parent = 0 )
{
// phpcs:enable
global $conf , $langs ;
$tmpproduct = null ;
//var_dump($prod);
foreach ( $prod as $id_product => $desc_pere ) // $id_product is 0 (first call starting with root top) or an id of a sub_product
{
if ( is_array ( $desc_pere )) // If desc_pere is an array, this means it's a child
{
$id = ( ! empty ( $desc_pere [ 0 ]) ? $desc_pere [ 0 ] : '' );
$nb = ( ! empty ( $desc_pere [ 1 ]) ? $desc_pere [ 1 ] : '' );
$type = ( ! empty ( $desc_pere [ 2 ]) ? $desc_pere [ 2 ] : '' );
$label = ( ! empty ( $desc_pere [ 3 ]) ? $desc_pere [ 3 ] : '' );
$incdec = ! empty ( $desc_pere [ 4 ]) ? $desc_pere [ 4 ] : 0 ;
if ( $multiply < 1 ) { $multiply = 1 ;
}
//print "XXX We add id=".$id." - label=".$label." - nb=".$nb." - multiply=".$multiply." fullpath=".$compl_path.$label."\n";
if ( is_null ( $tmpproduct )) $tmpproduct = new Product ( $this -> db ); // So we initialize tmpproduct only once for all loop.
$tmpproduct -> fetch ( $id ); // Load product to get ->ref
$tmpproduct -> load_stock ( 'nobatch,novirtual' ); // Load stock to get true ->stock_reel
//$this->fetch($id); // Load product to get ->ref
//$this->load_stock('nobatch,novirtual'); // Load stock to get true ->stock_reel
$this -> res [] = array (
'id' => $id , // Id product
'id_parent' => $id_parent ,
'ref' => $tmpproduct -> ref , // Ref product
'nb' => $nb , // Nb of units that compose parent product
'nb_total' => $nb * $multiply , // Nb of units for all nb of product
'stock' => $tmpproduct -> stock_reel , // Stock
'stock_alert' => $tmpproduct -> seuil_stock_alerte , // Stock alert
'label' => $label ,
'fullpath' => $compl_path . $label , // Label
'type' => $type , // Nb of units that compose parent product
'desiredstock' => $tmpproduct -> desiredstock ,
'level' => $level ,
'incdec' => $incdec ,
'entity' => $tmpproduct -> entity
);
// Recursive call if there is childs to child
if ( is_array ( $desc_pere [ 'childs' ])) {
//print 'YYY We go down for '.$desc_pere[3]." -> \n";
$this -> fetch_prod_arbo ( $desc_pere [ 'childs' ], $compl_path . $desc_pere [ 3 ] . " -> " , $desc_pere [ 1 ] * $multiply , $level + 1 , $id );
}
}
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Build the tree of subproducts into an array
* this -> sousprods is loaded by this -> get_sousproduits_arbo ()
*
* @ param int $multiply Because each sublevel must be multiplicated by parent nb
* @ return array $this -> res
*/
public function get_arbo_each_prod ( $multiply = 1 )
{
// phpcs:enable
$this -> res = array ();
if ( isset ( $this -> sousprods ) && is_array ( $this -> sousprods )) {
foreach ( $this -> sousprods as $prod_name => $desc_product )
{
if ( is_array ( $desc_product )) { $this -> fetch_prod_arbo ( $desc_product , " " , $multiply , 1 , $this -> id );
}
}
}
//var_dump($this->res);
return $this -> res ;
}
/**
* Return all parent products for current product ( first level only )
*
* @ return int Nb of father + child
*/
public function hasFatherOrChild ()
{
$nb = 0 ;
$sql = " SELECT COUNT(pa.rowid) as nb " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_association as pa " ;
$sql .= " WHERE pa.fk_product_fils = " . $this -> id . " OR pa.fk_product_pere = " . $this -> id ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$obj = $this -> db -> fetch_object ( $resql );
if ( $obj ) { $nb = $obj -> nb ;
}
} else {
return - 1 ;
}
return $nb ;
}
/**
* Return if a product has variants or not
*
* @ return int Number of variants
*/
public function hasVariants ()
{
$nb = 0 ;
$sql = " SELECT count(rowid) as nb FROM " . MAIN_DB_PREFIX . " product_attribute_combination WHERE fk_product_parent = " . $this -> id ;
$sql .= " AND entity IN ( " . getEntity ( 'product' ) . " ) " ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
$obj = $this -> db -> fetch_object ( $resql );
if ( $obj ) { $nb = $obj -> nb ;
}
}
return $nb ;
}
/**
* Return if loaded product is a variant
*
* @ return int
*/
public function isVariant ()
{
global $conf ;
if ( ! empty ( $conf -> variants -> enabled )) {
$sql = " SELECT rowid FROM " . MAIN_DB_PREFIX . " product_attribute_combination WHERE fk_product_child = " . $this -> id . " AND entity IN ( " . getEntity ( 'product' ) . " ) " ;
$query = $this -> db -> query ( $sql );
if ( $query ) {
if ( ! $this -> db -> num_rows ( $query )) {
return false ;
}
return true ;
} else {
dol_print_error ( $this -> db );
return - 1 ;
}
} else {
return false ;
}
}
/**
* Return all parent products for current product ( first level only )
*
* @ return array Array of product
*/
public function getFather ()
{
$sql = " SELECT p.rowid, p.label as label, p.ref as ref, pa.fk_product_pere as id, p.fk_product_type, pa.qty, pa.incdec, p.entity " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_association as pa, " ;
$sql .= " " . MAIN_DB_PREFIX . " product as p " ;
$sql .= " WHERE p.rowid = pa.fk_product_pere " ;
$sql .= " AND pa.fk_product_fils = " . $this -> id ;
$res = $this -> db -> query ( $sql );
if ( $res ) {
$prods = array ();
while ( $record = $this -> db -> fetch_array ( $res ))
{
// $record['id'] = $record['rowid'] = id of father
$prods [ $record [ 'id' ]][ 'id' ] = $record [ 'rowid' ];
$prods [ $record [ 'id' ]][ 'ref' ] = $record [ 'ref' ];
$prods [ $record [ 'id' ]][ 'label' ] = $record [ 'label' ];
$prods [ $record [ 'id' ]][ 'qty' ] = $record [ 'qty' ];
$prods [ $record [ 'id' ]][ 'incdec' ] = $record [ 'incdec' ];
$prods [ $record [ 'id' ]][ 'fk_product_type' ] = $record [ 'fk_product_type' ];
$prods [ $record [ 'id' ]][ 'entity' ] = $record [ 'entity' ];
}
return $prods ;
} else {
dol_print_error ( $this -> db );
return - 1 ;
}
}
/**
* Return childs of product $id
*
* @ param int $id Id of product to search childs of
* @ param int $firstlevelonly Return only direct child
* @ param int $level Level of recursing call ( start to 1 )
* @ return array Return array ( prodid => array ( 0 = prodid , 1 => qty , 2 => ... )
*/
public function getChildsArbo ( $id , $firstlevelonly = 0 , $level = 1 )
{
global $alreadyfound ;
$sql = " SELECT p.rowid, p.label as label, pa.qty as qty, pa.fk_product_fils as id, p.fk_product_type, pa.incdec " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product as p " ;
$sql .= " , " . MAIN_DB_PREFIX . " product_association as pa " ;
$sql .= " WHERE p.rowid = pa.fk_product_fils " ;
$sql .= " AND pa.fk_product_pere = " . $id ;
$sql .= " AND pa.fk_product_fils != " . $id ; // This should not happens, it is to avoid infinite loop if it happens
dol_syslog ( get_class ( $this ) . '::getChildsArbo id=' . $id . ' level=' . $level , LOG_DEBUG );
if ( $level == 1 ) { $alreadyfound = array ( $id => 1 ); // We init array of found object to start of tree, so if we found it later (should not happened), we stop immediatly
}
// Protection against infinite loop
if ( $level > 30 ) { return array ();
}
$res = $this -> db -> query ( $sql );
if ( $res ) {
$prods = array ();
while ( $rec = $this -> db -> fetch_array ( $res ))
{
if ( ! empty ( $alreadyfound [ $rec [ 'rowid' ]])) {
dol_syslog ( get_class ( $this ) . '::getChildsArbo the product id=' . $rec [ 'rowid' ] . ' was already found at a higher level in tree. We discard to avoid infinite loop' , LOG_WARNING );
continue ;
}
$alreadyfound [ $rec [ 'rowid' ]] = 1 ;
$prods [ $rec [ 'rowid' ]] = array (
0 => $rec [ 'rowid' ],
1 => $rec [ 'qty' ],
2 => $rec [ 'fk_product_type' ],
3 => $this -> db -> escape ( $rec [ 'label' ]),
4 => $rec [ 'incdec' ]
);
//$prods[$this->db->escape($rec['label'])]= array(0=>$rec['id'],1=>$rec['qty'],2=>$rec['fk_product_type']);
//$prods[$this->db->escape($rec['label'])]= array(0=>$rec['id'],1=>$rec['qty']);
if ( empty ( $firstlevelonly )) {
$listofchilds = $this -> getChildsArbo ( $rec [ 'rowid' ], 0 , $level + 1 );
foreach ( $listofchilds as $keyChild => $valueChild )
{
$prods [ $rec [ 'rowid' ]][ 'childs' ][ $keyChild ] = $valueChild ;
}
}
}
return $prods ;
} else {
dol_print_error ( $this -> db );
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return tree of all subproducts for product . Tree contains id , name and quantity .
* Set this -> sousprods
*
* @ return void
*/
public function get_sousproduits_arbo ()
{
// phpcs:enable
$parent = array ();
foreach ( $this -> getChildsArbo ( $this -> id ) as $keyChild => $valueChild ) // Warning. getChildsArbo can call getChildsArbo recursively. Starting point is $value[0]=id of product
{
$parent [ $this -> label ][ $keyChild ] = $valueChild ;
}
foreach ( $parent as $key => $value ) // key=label, value is array of childs
{
$this -> sousprods [ $key ] = $value ;
}
}
/**
* Return clicable link of object ( with eventually picto )
*
* @ param int $withpicto Add picto into link
* @ param string $option Where point the link ( 'stock' , 'composition' , 'category' , 'supplier' , '' )
* @ param int $maxlength Maxlength of ref
* @ param int $save_lastsearch_value - 1 = Auto , 0 = No save of lastsearch_values when clicking , 1 = Save lastsearch_values whenclicking
* @ param int $notooltip No tooltip
* @ return string String with URL
*/
public function getNomUrl ( $withpicto = 0 , $option = '' , $maxlength = 0 , $save_lastsearch_value = - 1 , $notooltip = 0 )
{
global $conf , $langs , $hookmanager ;
include_once DOL_DOCUMENT_ROOT . '/core/lib/product.lib.php' ;
$result = '' ;
$newref = $this -> ref ;
if ( $maxlength ) { $newref = dol_trunc ( $newref , $maxlength , 'middle' );
}
if ( $this -> type == Product :: TYPE_PRODUCT ) { $label = '<u>' . $langs -> trans ( " Product " ) . '</u>' ;
}
if ( $this -> type == Product :: TYPE_SERVICE ) { $label = '<u>' . $langs -> trans ( " Service " ) . '</u>' ;
}
if ( ! empty ( $this -> ref )) {
$label .= '<br><b>' . $langs -> trans ( 'ProductRef' ) . ':</b> ' . $this -> ref ;
}
if ( ! empty ( $this -> label )) {
$label .= '<br><b>' . $langs -> trans ( 'ProductLabel' ) . ':</b> ' . $this -> label ;
}
if ( $this -> type == Product :: TYPE_PRODUCT || ! empty ( $conf -> global -> STOCK_SUPPORTS_SERVICES )) {
if ( ! empty ( $conf -> productbatch -> enabled )) {
$langs -> load ( " productbatch " );
$label .= " <br><b> " . $langs -> trans ( " ManageLotSerial " ) . '</b>: ' . $this -> getLibStatut ( 0 , 2 );
}
}
if ( ! empty ( $conf -> barcode -> enabled )) {
$label .= '<br><b>' . $langs -> trans ( 'BarCode' ) . ':</b> ' . $this -> barcode ;
}
if ( $this -> type == Product :: TYPE_PRODUCT )
{
if ( $this -> weight ) {
$label .= " <br><b> " . $langs -> trans ( " Weight " ) . '</b>: ' . $this -> weight . ' ' . measuringUnitString ( 0 , " weight " , $this -> weight_units );
}
$labelsize = " " ;
if ( $this -> length ) {
$labelsize .= ( $labelsize ? " - " : " " ) . " <b> " . $langs -> trans ( " Length " ) . '</b>: ' . $this -> length . ' ' . measuringUnitString ( 0 , 'size' , $this -> length_units );
}
if ( $this -> width ) {
$labelsize .= ( $labelsize ? " - " : " " ) . " <b> " . $langs -> trans ( " Width " ) . '</b>: ' . $this -> width . ' ' . measuringUnitString ( 0 , 'size' , $this -> width_units );
}
if ( $this -> height ) {
$labelsize .= ( $labelsize ? " - " : " " ) . " <b> " . $langs -> trans ( " Height " ) . '</b>: ' . $this -> height . ' ' . measuringUnitString ( 0 , 'size' , $this -> height_units );
}
if ( $labelsize ) $label .= " <br> " . $labelsize ;
$labelsurfacevolume = " " ;
if ( $this -> surface ) {
$labelsurfacevolume .= ( $labelsurfacevolume ? " - " : " " ) . " <b> " . $langs -> trans ( " Surface " ) . '</b>: ' . $this -> surface . ' ' . measuringUnitString ( 0 , 'surface' , $this -> surface_units );
}
if ( $this -> volume ) {
$labelsurfacevolume .= ( $labelsurfacevolume ? " - " : " " ) . " <b> " . $langs -> trans ( " Volume " ) . '</b>: ' . $this -> volume . ' ' . measuringUnitString ( 0 , 'volume' , $this -> volume_units );
}
if ( $labelsurfacevolume ) $label .= " <br> " . $labelsurfacevolume ;
}
if ( ! empty ( $conf -> accounting -> enabled ) && $this -> status ) {
include_once DOL_DOCUMENT_ROOT . '/core/lib/accounting.lib.php' ;
$label .= '<br><b>' . $langs -> trans ( 'ProductAccountancySellCode' ) . ':</b> ' . length_accountg ( $this -> accountancy_code_sell );
$label .= '<br><b>' . $langs -> trans ( 'ProductAccountancySellIntraCode' ) . ':</b> ' . length_accountg ( $this -> accountancy_code_sell_intra );
$label .= '<br><b>' . $langs -> trans ( 'ProductAccountancySellExportCode' ) . ':</b> ' . length_accountg ( $this -> accountancy_code_sell_export );
}
if ( ! empty ( $conf -> accounting -> enabled ) && $this -> status_buy ) {
include_once DOL_DOCUMENT_ROOT . '/core/lib/accounting.lib.php' ;
$label .= '<br><b>' . $langs -> trans ( 'ProductAccountancyBuyCode' ) . ':</b> ' . length_accountg ( $this -> accountancy_code_buy );
$label .= '<br><b>' . $langs -> trans ( 'ProductAccountancyBuyIntraCode' ) . ':</b> ' . length_accountg ( $this -> accountancy_code_buy_intra );
$label .= '<br><b>' . $langs -> trans ( 'ProductAccountancyBuyExportCode' ) . ':</b> ' . length_accountg ( $this -> accountancy_code_buy_export );
}
if ( isset ( $this -> status ) && isset ( $this -> status_buy )) {
$label .= '<br><b>' . $langs -> trans ( " Status " ) . " :</b> " . $this -> getLibStatut ( 5 , 0 );
$label .= ' ' . $this -> getLibStatut ( 5 , 1 );
}
if ( ! empty ( $this -> entity )) {
$tmpphoto = $this -> show_photos ( 'product' , $conf -> product -> multidir_output [ $this -> entity ], 1 , 1 , 0 , 0 , 0 , 80 );
if ( $this -> nbphoto > 0 ) { $label .= '<br>' . $tmpphoto ;
}
}
$linkclose = '' ;
if ( empty ( $notooltip )) {
if ( ! empty ( $conf -> global -> MAIN_OPTIMIZEFORTEXTBROWSER )) {
$label = $langs -> trans ( " ShowProduct " );
$linkclose .= ' alt="' . dol_escape_htmltag ( $label , 1 ) . '"' ;
}
$linkclose .= ' title="' . dol_escape_htmltag ( $label , 1 , 1 ) . '"' ;
$linkclose .= ' class="nowraponall classfortooltip"' ;
} else {
$linkclose = ' class="nowraponall"' ;
}
if ( $option == 'supplier' || $option == 'category' ) {
$url = DOL_URL_ROOT . '/product/fournisseurs.php?id=' . $this -> id ;
} elseif ( $option == 'stock' ) {
$url = DOL_URL_ROOT . '/product/stock/product.php?id=' . $this -> id ;
} elseif ( $option == 'composition' ) {
$url = DOL_URL_ROOT . '/product/composition/card.php?id=' . $this -> id ;
} else {
$url = DOL_URL_ROOT . '/product/card.php?id=' . $this -> id ;
}
if ( $option !== 'nolink' ) {
// Add param to save lastsearch_values or not
$add_save_lastsearch_values = ( $save_lastsearch_value == 1 ? 1 : 0 );
if ( $save_lastsearch_value == - 1 && preg_match ( '/list\.php/' , $_SERVER [ " PHP_SELF " ])) { $add_save_lastsearch_values = 1 ;
}
if ( $add_save_lastsearch_values ) { $url .= '&save_lastsearch_values=1' ;
}
}
$linkstart = '<a href="' . $url . '"' ;
$linkstart .= $linkclose . '>' ;
$linkend = '</a>' ;
$result .= $linkstart ;
if ( $withpicto )
{
if ( $this -> type == Product :: TYPE_PRODUCT ) {
$result .= ( img_object (( $notooltip ? '' : $label ), 'product' , ( $notooltip ? 'class="paddingright"' : 'class="paddingright classfortooltip"' ), 0 , 0 , $notooltip ? 0 : 1 ));
}
if ( $this -> type == Product :: TYPE_SERVICE ) {
$result .= ( img_object (( $notooltip ? '' : $label ), 'service' , ( $notooltip ? 'class="paddinright"' : 'class="paddingright classfortooltip"' ), 0 , 0 , $notooltip ? 0 : 1 ));
}
}
$result .= $newref ;
$result .= $linkend ;
2018-08-29 21:25:22 +02:00
2020-09-07 10:18:17 +02:00
global $action ;
$hookmanager -> initHooks ( array ( 'productdao' ));
$parameters = array ( 'id' => $this -> id , 'getnomurl' => $result );
$reshook = $hookmanager -> executeHooks ( 'getNomUrl' , $parameters , $this , $action ); // Note that $action and $object may have been modified by some hooks
if ( $reshook > 0 ) {
$result = $hookmanager -> resPrint ;
} else {
$result .= $hookmanager -> resPrint ;
}
2018-09-01 15:27:55 +02:00
2020-09-07 10:18:17 +02:00
return $result ;
}
2018-10-06 12:14:47 +02:00
2007-11-05 23:37:41 +01:00
2020-09-07 10:18:17 +02:00
/**
* Create a document onto disk according to template module .
*
* @ param string $modele Force model to use ( '' to not force )
* @ param Translate $outputlangs Object langs to use for output
* @ param int $hidedetails Hide details of lines
* @ param int $hidedesc Hide description
* @ param int $hideref Hide ref
* @ return int 0 if KO , 1 if OK
*/
public function generateDocument ( $modele , $outputlangs , $hidedetails = 0 , $hidedesc = 0 , $hideref = 0 )
{
global $conf , $user , $langs ;
2014-12-25 21:47:39 +01:00
2020-09-07 10:18:17 +02:00
$langs -> load ( " products " );
$outputlangs -> load ( " products " );
2020-04-24 23:56:57 +02:00
2020-09-07 10:18:17 +02:00
// Positionne le modele sur le nom du modele a utiliser
if ( ! dol_strlen ( $modele )) {
if ( ! empty ( $conf -> global -> PRODUCT_ADDON_PDF )) {
$modele = $conf -> global -> PRODUCT_ADDON_PDF ;
} else {
$modele = 'strato' ;
}
}
2020-04-24 23:56:57 +02:00
2020-09-07 10:18:17 +02:00
$modelpath = " core/modules/product/doc/ " ;
2014-10-18 14:56:06 +02:00
2020-09-07 10:18:17 +02:00
return $this -> commonGenerateDocument ( $modelpath , $modele , $outputlangs , $hidedetails , $hidedesc , $hideref );
}
2017-06-09 12:50:56 +02:00
2020-09-07 10:18:17 +02:00
/**
* Return label of status of object
*
* @ param int $mode 0 = long label , 1 = short label , 2 = Picto + short label , 3 = Picto , 4 = Picto + long label , 5 = Short label + Picto
* @ param int $type 0 = Sell , 1 = Buy , 2 = Batch Number management
* @ return string Label of status
*/
public function getLibStatut ( $mode = 0 , $type = 0 )
{
switch ( $type )
{
case 0 :
return $this -> LibStatut ( $this -> status , $mode , $type );
case 1 :
return $this -> LibStatut ( $this -> status_buy , $mode , $type );
case 2 :
return $this -> LibStatut ( $this -> status_batch , $mode , $type );
default :
//Simulate previous behavior but should return an error string
return $this -> LibStatut ( $this -> status_buy , $mode , $type );
}
}
2017-06-09 12:50:56 +02:00
2020-09-07 10:18:17 +02:00
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2019-10-24 16:09:35 +02:00
/**
2020-09-07 10:18:17 +02:00
* Return label of a given status
*
* @ param int $status Statut
* @ param int $mode 0 = long label , 1 = short label , 2 = Picto + short label , 3 = Picto , 4 = Picto + long label , 5 = Short label + Picto , 6 = Long label + Picto
* @ param int $type 0 = Status " to sell " , 1 = Status " to buy " , 2 = Status " to Batch "
* @ return string Label of status
*/
public function LibStatut ( $status , $mode = 0 , $type = 0 )
{
// phpcs:enable
global $conf , $langs ;
2008-07-27 22:47:13 +02:00
2020-09-07 10:18:17 +02:00
$labelStatus = $labelStatusShort = '' ;
2008-07-27 22:47:13 +02:00
2020-09-07 10:18:17 +02:00
$langs -> load ( 'products' );
if ( ! empty ( $conf -> productbatch -> enabled )) { $langs -> load ( " productbatch " );
}
if ( $type == 2 ) {
switch ( $mode )
2019-10-20 11:59:21 +02:00
{
2020-09-07 10:18:17 +02:00
case 0 :
$label = ( $status == 0 ? $langs -> trans ( 'ProductStatusNotOnBatch' ) : $langs -> trans ( 'ProductStatusOnBatch' ));
return dolGetStatus ( $label );
case 1 :
$label = ( $status == 0 ? $langs -> trans ( 'ProductStatusNotOnBatchShort' ) : $langs -> trans ( 'ProductStatusOnBatchShort' ));
return dolGetStatus ( $label );
case 2 :
return $this -> LibStatut ( $status , 3 , 2 ) . ' ' . $this -> LibStatut ( $status , 1 , 2 );
case 3 :
return dolGetStatus ( $langs -> trans ( 'ProductStatusNotOnBatch' ), '' , '' , empty ( $status ) ? 'status5' : 'status4' , 3 , 'dot' );
case 4 :
return $this -> LibStatut ( $status , 3 , 2 ) . ' ' . $this -> LibStatut ( $status , 0 , 2 );
case 5 :
return $this -> LibStatut ( $status , 1 , 2 ) . ' ' . $this -> LibStatut ( $status , 3 , 2 );
default :
return dolGetStatus ( $langs -> trans ( 'Unknown' ));
2019-10-20 11:59:21 +02:00
}
2020-09-07 10:18:17 +02:00
}
2019-10-20 11:59:21 +02:00
2020-09-07 10:18:17 +02:00
$statuttrans = empty ( $status ) ? 'status5' : 'status4' ;
if ( $status == 0 ) {
// $type 0=Status "to sell", 1=Status "to buy", 2=Status "to Batch"
if ( $type == 0 ) {
$labelStatus = $langs -> trans ( 'ProductStatusNotOnSellShort' );
$labelStatusShort = $langs -> trans ( 'ProductStatusNotOnSell' );
} elseif ( $type == 1 ) {
$labelStatus = $langs -> trans ( 'ProductStatusNotOnBuyShort' );
$labelStatusShort = $langs -> trans ( 'ProductStatusNotOnBuy' );
} elseif ( $type == 2 ) {
$labelStatus = $langs -> trans ( 'ProductStatusNotOnBatch' );
$labelStatusShort = $langs -> trans ( 'ProductStatusNotOnBatchShort' );
2019-10-20 11:59:21 +02:00
}
2020-09-07 10:18:17 +02:00
} elseif ( $status == 1 ) {
// $type 0=Status "to sell", 1=Status "to buy", 2=Status "to Batch"
if ( $type == 0 ) {
$labelStatus = $langs -> trans ( 'ProductStatusOnSellShort' );
$labelStatusShort = $langs -> trans ( 'ProductStatusOnSell' );
} elseif ( $type == 1 ) {
$labelStatus = $langs -> trans ( 'ProductStatusOnBuyShort' );
$labelStatusShort = $langs -> trans ( 'ProductStatusOnBuy' );
} elseif ( $type == 2 ) {
$labelStatus = $langs -> trans ( 'ProductStatusOnBatch' );
$labelStatusShort = $langs -> trans ( 'ProductStatusOnBatchShort' );
2019-10-20 11:59:21 +02:00
}
2020-09-07 10:18:17 +02:00
}
if ( $mode > 6 ) {
return dolGetStatus ( $langs -> trans ( 'Unknown' ), '' , '' , 'status0' , 0 );
} else {
return dolGetStatus ( $labelStatus , $labelStatusShort , '' , $statuttrans , $mode );
}
}
/**
* Retour label of nature of product
*
* @ return string Label
*/
public function getLibFinished ()
{
global $langs ;
$langs -> load ( 'products' );
if ( $this -> finished == '0' ) { return $langs -> trans ( " RowMaterial " );
}
if ( $this -> finished == '1' ) { return $langs -> trans ( " Finished " );
}
return '' ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Adjust stock in a warehouse for product
*
* @ param User $user user asking change
* @ param int $id_entrepot id of warehouse
* @ param double $nbpiece nb of units
* @ param int $movement 0 = add , 1 = remove
* @ param string $label Label of stock movement
* @ param double $price Unit price HT of product , used to calculate average weighted price ( PMP in french ) . If 0 , average weighted price is not changed .
* @ param string $inventorycode Inventory code
* @ param string $origin_element Origin element type
* @ param int $origin_id Origin id of element
* @ return int < 0 if KO , > 0 if OK
*/
public function correct_stock ( $user , $id_entrepot , $nbpiece , $movement , $label = '' , $price = 0 , $inventorycode = '' , $origin_element = '' , $origin_id = null )
{
// phpcs:enable
if ( $id_entrepot ) {
$this -> db -> begin ();
include_once DOL_DOCUMENT_ROOT . '/product/stock/class/mouvementstock.class.php' ;
$op [ 0 ] = " + " . trim ( $nbpiece );
$op [ 1 ] = " - " . trim ( $nbpiece );
$movementstock = new MouvementStock ( $this -> db );
$movementstock -> setOrigin ( $origin_element , $origin_id ); // Set ->origin and ->origin->id
$result = $movementstock -> _create ( $user , $this -> id , $id_entrepot , $op [ $movement ], $movement , $price , $label , $inventorycode );
if ( $result >= 0 ) {
$this -> db -> commit ();
return 1 ;
} else {
$this -> error = $movementstock -> error ;
$this -> errors = $movementstock -> errors ;
$this -> db -> rollback ();
return - 1 ;
2019-10-20 11:59:21 +02:00
}
}
2020-09-07 10:18:17 +02:00
}
2019-01-26 15:20:36 +01:00
2020-09-07 10:18:17 +02:00
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Adjust stock in a warehouse for product with batch number
*
* @ param User $user user asking change
* @ param int $id_entrepot id of warehouse
* @ param double $nbpiece nb of units
* @ param int $movement 0 = add , 1 = remove
* @ param string $label Label of stock movement
* @ param double $price Price to use for stock eval
* @ param integer $dlc eat - by date
* @ param integer $dluo sell - by date
* @ param string $lot Lot number
* @ param string $inventorycode Inventory code
* @ param string $origin_element Origin element type
* @ param int $origin_id Origin id of element
* @ return int < 0 if KO , > 0 if OK
*/
public function correct_stock_batch ( $user , $id_entrepot , $nbpiece , $movement , $label = '' , $price = 0 , $dlc = '' , $dluo = '' , $lot = '' , $inventorycode = '' , $origin_element = '' , $origin_id = null )
{
// phpcs:enable
if ( $id_entrepot ) {
$this -> db -> begin ();
2020-01-24 14:51:45 +01:00
2020-09-07 10:18:17 +02:00
include_once DOL_DOCUMENT_ROOT . '/product/stock/class/mouvementstock.class.php' ;
2020-01-24 14:51:45 +01:00
2020-09-07 10:18:17 +02:00
$op [ 0 ] = " + " . trim ( $nbpiece );
$op [ 1 ] = " - " . trim ( $nbpiece );
2019-09-10 20:46:54 +02:00
2020-09-07 10:18:17 +02:00
$movementstock = new MouvementStock ( $this -> db );
$movementstock -> setOrigin ( $origin_element , $origin_id );
$result = $movementstock -> _create ( $user , $this -> id , $id_entrepot , $op [ $movement ], $movement , $price , $label , $inventorycode , '' , $dlc , $dluo , $lot );
2019-09-10 20:46:54 +02:00
2020-09-07 10:18:17 +02:00
if ( $result >= 0 ) {
$this -> db -> commit ();
return 1 ;
} else {
$this -> error = $movementstock -> error ;
$this -> errors = $movementstock -> errors ;
2010-02-21 02:45:58 +01:00
2020-09-07 10:18:17 +02:00
$this -> db -> rollback ();
return - 1 ;
}
}
}
2018-11-06 12:13:16 +01:00
2020-09-07 10:18:17 +02:00
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Load information about stock of a product into -> stock_reel , -> stock_warehouse [] ( including stock_warehouse [ idwarehouse ] -> detail_batch for batch products )
* This function need a lot of load . If you use it on list , use a cache to execute it once for each product id .
* If ENTREPOT_EXTRA_STATUS set , filtering on warehouse status possible .
*
* @ param string $option '' = Load all stock info , also from closed and internal warehouses , 'nobatch' , 'novirtual'
* @ param int $includedraftpoforvirtual Include draft status of PO for virtual stock calculation
* @ return int < 0 if KO , > 0 if OK
* @ see load_virtual_stock (), loadBatchInfo ()
*/
public function load_stock ( $option = '' , $includedraftpoforvirtual = null )
{
// phpcs:enable
global $conf ;
$this -> stock_reel = 0 ;
$this -> stock_warehouse = array ();
$this -> stock_theorique = 0 ;
$warehouseStatus = array ();
if ( preg_match ( '/warehouseclosed/' , $option )) {
$warehouseStatus [] = Entrepot :: STATUS_CLOSED ;
}
if ( preg_match ( '/warehouseopen/' , $option )) {
$warehouseStatus [] = Entrepot :: STATUS_OPEN_ALL ;
}
if ( preg_match ( '/warehouseinternal/' , $option )) {
$warehouseStatus [] = Entrepot :: STATUS_OPEN_INTERNAL ;
2020-03-01 04:52:12 +01:00
}
2017-01-06 16:44:09 +01:00
2020-09-07 10:18:17 +02:00
$sql = " SELECT ps.rowid, ps.reel, ps.fk_entrepot " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product_stock as ps " ;
$sql .= " , " . MAIN_DB_PREFIX . " entrepot as w " ;
$sql .= " WHERE w.entity IN ( " . getEntity ( 'stock' ) . " ) " ;
$sql .= " AND w.rowid = ps.fk_entrepot " ;
$sql .= " AND ps.fk_product = " . $this -> id ;
if ( $conf -> global -> ENTREPOT_EXTRA_STATUS && count ( $warehouseStatus )) {
2019-11-29 11:42:08 +01:00
$sql .= " AND w.statut IN ( " . $this -> db -> escape ( implode ( ',' , $warehouseStatus )) . " ) " ;
2020-09-07 10:18:17 +02:00
}
dol_syslog ( get_class ( $this ) . " ::load_stock " , LOG_DEBUG );
$result = $this -> db -> query ( $sql );
if ( $result ) {
$num = $this -> db -> num_rows ( $result );
$i = 0 ;
if ( $num > 0 ) {
while ( $i < $num )
{
$row = $this -> db -> fetch_object ( $result );
$this -> stock_warehouse [ $row -> fk_entrepot ] = new stdClass ();
$this -> stock_warehouse [ $row -> fk_entrepot ] -> real = $row -> reel ;
$this -> stock_warehouse [ $row -> fk_entrepot ] -> id = $row -> rowid ;
if (( ! preg_match ( '/nobatch/' , $option )) && $this -> hasbatch ()) {
2019-11-29 11:42:08 +01:00
$this -> stock_warehouse [ $row -> fk_entrepot ] -> detail_batch = Productbatch :: findAll ( $this -> db , $row -> rowid , 1 , $this -> id );
2020-09-07 10:18:17 +02:00
}
$this -> stock_reel += $row -> reel ;
$i ++ ;
}
}
$this -> db -> free ( $result );
2018-11-06 12:13:16 +01:00
2020-09-07 10:18:17 +02:00
if ( ! preg_match ( '/novirtual/' , $option )) {
$this -> load_virtual_stock ( $includedraftpoforvirtual ); // This also load stats_commande_fournisseur, ...
}
2018-11-06 12:13:16 +01:00
2020-09-07 10:18:17 +02:00
return 1 ;
} else {
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
}
2008-07-27 22:47:13 +02:00
2017-12-01 13:40:24 +01:00
2019-02-24 23:32:09 +01:00
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2014-07-03 10:24:29 +02:00
/**
2020-04-16 16:02:06 +02:00
* Load value -> stock_theorique of a product . Property this -> id must be defined .
* This function need a lot of load . If you use it on list , use a cache to execute it one for each product id .
2014-07-03 10:24:29 +02:00
*
2020-04-16 16:02:06 +02:00
* @ param int $includedraftpoforvirtual Include draft status of PO for virtual stock calculation
* @ return int < 0 if KO , > 0 if OK
* @ see load_stock (), loadBatchInfo ()
2014-07-03 10:24:29 +02:00
*/
2020-04-15 16:05:50 +02:00
public function load_virtual_stock ( $includedraftpoforvirtual = null )
2018-10-15 13:26:18 +02:00
{
// phpcs:enable
global $conf , $hookmanager , $action ;
2014-07-03 10:24:29 +02:00
2019-11-13 19:37:08 +01:00
$stock_commande_client = 0 ;
$stock_commande_fournisseur = 0 ;
$stock_sending_client = 0 ;
$stock_reception_fournisseur = 0 ;
2020-01-23 20:59:18 +01:00
$stock_inproduction = 0 ;
2014-07-04 15:06:45 +02:00
2020-02-28 16:12:42 +01:00
//dol_syslog("load_virtual_stock");
2019-11-13 19:37:08 +01:00
if ( ! empty ( $conf -> commande -> enabled ))
2018-10-15 13:26:18 +02:00
{
2019-11-13 19:37:08 +01:00
$result = $this -> load_stats_commande ( 0 , '1,2' , 1 );
2019-01-27 11:55:16 +01:00
if ( $result < 0 ) dol_print_error ( $this -> db , $this -> error );
2019-11-13 19:37:08 +01:00
$stock_commande_client = $this -> stats_commande [ 'qty' ];
2018-10-15 13:26:18 +02:00
}
2019-11-13 19:37:08 +01:00
if ( ! empty ( $conf -> expedition -> enabled ))
2018-10-15 13:26:18 +02:00
{
2020-09-07 10:18:17 +02:00
require_once DOL_DOCUMENT_ROOT . '/expedition/class/expedition.class.php' ;
$filterShipmentStatus = '' ;
if ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SHIPMENT )) {
$filterShipmentStatus = Expedition :: STATUS_VALIDATED . ',' . Expedition :: STATUS_CLOSED ;
} elseif ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SHIPMENT_CLOSE )) {
$filterShipmentStatus = Expedition :: STATUS_CLOSED ;
}
2019-11-14 09:52:13 +01:00
$result = $this -> load_stats_sending ( 0 , '1,2' , 1 , $filterShipmentStatus );
2019-01-27 11:55:16 +01:00
if ( $result < 0 ) dol_print_error ( $this -> db , $this -> error );
2019-11-13 19:37:08 +01:00
$stock_sending_client = $this -> stats_expedition [ 'qty' ];
2018-10-15 13:26:18 +02:00
}
2020-03-24 22:02:58 +01:00
if ( ! empty ( $conf -> fournisseur -> enabled ) && empty ( $conf -> global -> MAIN_USE_NEW_SUPPLIERMOD ) || ! empty ( $conf -> supplier_order -> enabled ))
2018-10-15 13:26:18 +02:00
{
2020-09-07 10:18:17 +02:00
$filterStatus = '1,2,3,4' ;
if ( isset ( $includedraftpoforvirtual )) $filterStatus = '0,' . $filterStatus ;
2020-04-15 16:05:50 +02:00
$result = $this -> load_stats_commande_fournisseur ( 0 , $filterStatus , 1 );
2019-01-27 11:55:16 +01:00
if ( $result < 0 ) dol_print_error ( $this -> db , $this -> error );
2019-11-13 19:37:08 +01:00
$stock_commande_fournisseur = $this -> stats_commande_fournisseur [ 'qty' ];
2020-01-23 20:59:18 +01:00
}
2020-03-24 22:02:58 +01:00
if (( ! empty ( $conf -> fournisseur -> enabled ) && empty ( $conf -> global -> MAIN_USE_NEW_SUPPLIERMOD ) || ! empty ( $conf -> supplier_order -> enabled ) || ! empty ( $conf -> supplier_invoice -> enabled )) && empty ( $conf -> reception -> enabled ))
2020-01-23 20:59:18 +01:00
{
2020-09-07 10:18:17 +02:00
$filterStatus = '4' ;
if ( isset ( $includedraftpoforvirtual )) $filterStatus = '0,' . $filterStatus ;
2020-04-15 16:05:50 +02:00
$result = $this -> load_stats_reception ( 0 , $filterStatus , 1 );
2019-01-27 11:55:16 +01:00
if ( $result < 0 ) dol_print_error ( $this -> db , $this -> error );
2019-11-13 19:37:08 +01:00
$stock_reception_fournisseur = $this -> stats_reception [ 'qty' ];
2018-10-15 13:26:18 +02:00
}
2020-03-24 22:02:58 +01:00
if (( ! empty ( $conf -> fournisseur -> enabled ) && empty ( $conf -> global -> MAIN_USE_NEW_SUPPLIERMOD ) || ! empty ( $conf -> supplier_order -> enabled ) || ! empty ( $conf -> supplier_invoice -> enabled )) && empty ( $conf -> reception -> enabled ))
2020-01-23 20:59:18 +01:00
{
2020-09-07 10:18:17 +02:00
$filterStatus = '4' ;
if ( isset ( $includedraftpoforvirtual )) $filterStatus = '0,' . $filterStatus ;
2020-04-23 18:55:10 +02:00
$result = $this -> load_stats_reception ( 0 , $filterStatus , 1 ); // Use same tables than when module reception is not used.
2020-01-23 20:59:18 +01:00
if ( $result < 0 ) dol_print_error ( $this -> db , $this -> error );
$stock_reception_fournisseur = $this -> stats_reception [ 'qty' ];
}
if ( ! empty ( $conf -> mrp -> enabled ))
{
2020-01-24 14:51:45 +01:00
$result = $this -> load_stats_inproduction ( 0 , '1,2' , 1 );
if ( $result < 0 ) dol_print_error ( $this -> db , $this -> error );
$stock_inproduction = $this -> stats_mrptoproduce [ 'qty' ] - $this -> stats_mrptoconsume [ 'qty' ];
2020-01-23 20:59:18 +01:00
}
$this -> stock_theorique = $this -> stock_reel + $stock_inproduction ;
2014-07-03 10:24:29 +02:00
2018-10-15 13:26:18 +02:00
// Stock decrease mode
2019-11-13 19:37:08 +01:00
if ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SHIPMENT ) || ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SHIPMENT_CLOSE )) {
2020-01-23 20:59:18 +01:00
$this -> stock_theorique -= ( $stock_commande_client - $stock_sending_client );
2020-05-21 15:05:19 +02:00
} elseif ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_VALIDATE_ORDER )) {
2020-01-23 20:59:18 +01:00
$this -> stock_theorique += 0 ;
2020-05-21 15:05:19 +02:00
} elseif ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_BILL )) {
2020-01-23 20:59:18 +01:00
$this -> stock_theorique -= $stock_commande_client ;
2018-10-15 13:26:18 +02:00
}
// Stock Increase mode
2020-09-07 10:18:17 +02:00
if ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_RECEPTION ) || ! empty ( $conf -> global -> STOCK_CALCULATE_ON_RECEPTION_CLOSE )) {
$this -> stock_theorique += ( $stock_commande_fournisseur - $stock_reception_fournisseur );
} elseif ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER )) {
2020-01-23 20:59:18 +01:00
$this -> stock_theorique += ( $stock_commande_fournisseur - $stock_reception_fournisseur );
2020-05-21 15:05:19 +02:00
} elseif ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SUPPLIER_VALIDATE_ORDER )) {
2019-11-13 19:37:08 +01:00
$this -> stock_theorique -= $stock_reception_fournisseur ;
2020-05-21 15:05:19 +02:00
} elseif ( ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SUPPLIER_BILL )) {
2020-01-23 20:59:18 +01:00
$this -> stock_theorique += ( $stock_commande_fournisseur - $stock_reception_fournisseur );
2018-10-15 13:26:18 +02:00
}
2018-05-02 17:29:31 +02:00
2019-11-13 19:37:08 +01:00
if ( ! is_object ( $hookmanager )) {
2018-10-15 13:26:18 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/hookmanager.class.php' ;
2019-11-13 19:37:08 +01:00
$hookmanager = new HookManager ( $this -> db );
2018-10-15 13:26:18 +02:00
}
$hookmanager -> initHooks ( array ( 'productdao' ));
2020-04-15 16:05:50 +02:00
$parameters = array ( 'id' => $this -> id , 'includedraftpoforvirtual' => $includedraftpoforvirtual );
2018-10-15 13:26:18 +02:00
// Note that $action and $object may have been modified by some hooks
2019-11-13 19:37:08 +01:00
$reshook = $hookmanager -> executeHooks ( 'loadvirtualstock' , $parameters , $this , $action );
2018-10-15 13:26:18 +02:00
if ( $reshook > 0 ) $this -> stock_theorique = $hookmanager -> resArray [ 'stock_theorique' ];
2018-05-02 17:29:31 +02:00
2018-10-15 13:26:18 +02:00
return 1 ;
}
2017-06-09 11:02:34 +02:00
2016-07-14 18:40:49 +02:00
2020-09-07 10:18:17 +02:00
/**
* Load existing information about a serial
*
* @ param string $batch Lot / serial number
* @ return array Array with record into product_batch
* @ see load_stock (), load_virtual_stock ()
*/
public function loadBatchInfo ( $batch )
{
$result = array ();
$sql = " SELECT pb.batch, pb.eatby, pb.sellby, SUM(pb.qty) AS qty FROM " . MAIN_DB_PREFIX . " product_batch as pb, " . MAIN_DB_PREFIX . " product_stock as ps " ;
$sql .= " WHERE pb.fk_product_stock = ps.rowid AND ps.fk_product = " . $this -> id . " AND pb.batch = ' " . $this -> db -> escape ( $batch ) . " ' " ;
$sql .= " GROUP BY pb.batch, pb.eatby, pb.sellby " ;
dol_syslog ( get_class ( $this ) . " ::loadBatchInfo load first entry found for lot/serial = " . $batch , 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 );
$result [] = array ( 'batch' => $batch , 'eatby' => $this -> db -> jdate ( $obj -> eatby ), 'sellby' => $this -> db -> jdate ( $obj -> sellby ), 'qty' => $obj -> qty );
$i ++ ;
}
return $result ;
} else {
dol_print_error ( $this -> db );
$this -> db -> rollback ();
return array ();
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Move an uploaded file described into $file array into target directory $sdir .
*
* @ param string $sdir Target directory
* @ param string $file Array of file info of file to upload : array ( 'name' =>... , 'tmp_name' =>... )
* @ return int < 0 if KO , > 0 if OK
*/
public function add_photo ( $sdir , $file )
{
// phpcs:enable
global $conf ;
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
$result = 0 ;
$dir = $sdir ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OLD_PATH_FOR_PHOTO )) {
$dir .= '/' . get_exdir ( $this -> id , 2 , 0 , 0 , $this , 'product' ) . $this -> id . " /photos " ;
} else {
$dir .= '/' . get_exdir ( 0 , 0 , 0 , 0 , $this , 'product' ) . dol_sanitizeFileName ( $this -> ref );
}
dol_mkdir ( $dir );
$dir_osencoded = $dir ;
if ( is_dir ( $dir_osencoded )) {
$originImage = $dir . '/' . $file [ 'name' ];
// Cree fichier en taille origine
$result = dol_move_uploaded_file ( $file [ 'tmp_name' ], $originImage , 1 );
if ( file_exists ( dol_osencode ( $originImage ))) {
// Create thumbs
$this -> addThumbs ( $originImage );
}
}
if ( is_numeric ( $result ) && $result > 0 ) {
return 1 ;
} else {
return - 1 ;
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return if at least one photo is available
*
* @ param string $sdir Directory to scan
* @ return boolean True if at least one photo is available , False if not
*/
public function is_photo_available ( $sdir )
{
// phpcs:enable
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
include_once DOL_DOCUMENT_ROOT . '/core/lib/images.lib.php' ;
global $conf ;
$dir = $sdir ;
if ( ! empty ( $conf -> global -> PRODUCT_USE_OLD_PATH_FOR_PHOTO )) {
$dir .= '/' . get_exdir ( $this -> id , 2 , 0 , 0 , $this , 'product' ) . $this -> id . " /photos/ " ;
} else {
$dir .= '/' . get_exdir ( 0 , 0 , 0 , 0 , $this , 'product' ) . dol_sanitizeFileName ( $this -> ref ) . '/' ;
}
$nbphoto = 0 ;
$dir_osencoded = dol_osencode ( $dir );
if ( file_exists ( $dir_osencoded )) {
$handle = opendir ( $dir_osencoded );
if ( is_resource ( $handle )) {
while (( $file = readdir ( $handle )) !== false )
{
if ( ! utf8_check ( $file )) {
$file = utf8_encode ( $file ); // To be sure data is stored in UTF8 in memory
}
if ( dol_is_file ( $dir . $file ) && image_format_supported ( $file ) >= 0 ) {
return true ;
}
}
}
}
return false ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Retourne tableau de toutes les photos du produit
*
* @ param string $dir Repertoire a scanner
* @ param int $nbmax Nombre maximum de photos ( 0 = pas de max )
* @ return array Tableau de photos
*/
public function liste_photos ( $dir , $nbmax = 0 )
{
// phpcs:enable
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
include_once DOL_DOCUMENT_ROOT . '/core/lib/images.lib.php' ;
$nbphoto = 0 ;
$tabobj = array ();
$dir_osencoded = dol_osencode ( $dir );
$handle = @ opendir ( $dir_osencoded );
if ( is_resource ( $handle )) {
while (( $file = readdir ( $handle )) !== false )
{
if ( ! utf8_check ( $file )) { $file = utf8_encode ( $file ); // readdir returns ISO
}
if ( dol_is_file ( $dir . $file ) && image_format_supported ( $file ) >= 0 ) {
$nbphoto ++ ;
// On determine nom du fichier vignette
$photo = $file ;
$photo_vignette = '' ;
if ( preg_match ( '/(' . $this -> regeximgext . ')$/i' , $photo , $regs )) {
$photo_vignette = preg_replace ( '/' . $regs [ 0 ] . '/i' , '' , $photo ) . '_small' . $regs [ 0 ];
}
$dirthumb = $dir . 'thumbs/' ;
// Objet
$obj = array ();
$obj [ 'photo' ] = $photo ;
if ( $photo_vignette && dol_is_file ( $dirthumb . $photo_vignette )) { $obj [ 'photo_vignette' ] = 'thumbs/' . $photo_vignette ;
} else { $obj [ 'photo_vignette' ] = " " ;
}
$tabobj [ $nbphoto - 1 ] = $obj ;
// On continue ou on arrete de boucler ?
if ( $nbmax && $nbphoto >= $nbmax ) { break ;
}
}
}
closedir ( $handle );
}
return $tabobj ;
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Efface la photo du produit et sa vignette
*
* @ param string $file Chemin de l ' image
* @ return void
*/
public function delete_photo ( $file )
{
// phpcs:enable
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
include_once DOL_DOCUMENT_ROOT . '/core/lib/images.lib.php' ;
$dir = dirname ( $file ) . '/' ; // Chemin du dossier contenant l'image d'origine
$dirthumb = $dir . '/thumbs/' ; // Chemin du dossier contenant la vignette
$filename = preg_replace ( '/' . preg_quote ( $dir , '/' ) . '/i' , '' , $file ); // Nom du fichier
// On efface l'image d'origine
dol_delete_file ( $file , 0 , 0 , 0 , $this ); // For triggers
// Si elle existe, on efface la vignette
if ( preg_match ( '/(' . $this -> regeximgext . ')$/i' , $filename , $regs )) {
$photo_vignette = preg_replace ( '/' . $regs [ 0 ] . '/i' , '' , $filename ) . '_small' . $regs [ 0 ];
if ( file_exists ( dol_osencode ( $dirthumb . $photo_vignette ))) {
dol_delete_file ( $dirthumb . $photo_vignette );
}
$photo_vignette = preg_replace ( '/' . $regs [ 0 ] . '/i' , '' , $filename ) . '_mini' . $regs [ 0 ];
if ( file_exists ( dol_osencode ( $dirthumb . $photo_vignette ))) {
dol_delete_file ( $dirthumb . $photo_vignette );
}
}
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Load size of image file
*
* @ param string $file Path to file
* @ return void
*/
public function get_image_size ( $file )
{
// phpcs:enable
$file_osencoded = dol_osencode ( $file );
$infoImg = getimagesize ( $file_osencoded ); // Get information on image
$this -> imgWidth = $infoImg [ 0 ]; // Largeur de l'image
$this -> imgHeight = $infoImg [ 1 ]; // Hauteur de l'image
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Load indicators this -> nb for the dashboard
*
* @ return int < 0 if KO , > 0 if OK
*/
public function load_state_board ()
{
// phpcs:enable
global $conf , $user , $hookmanager ;
$this -> nb = array ();
$sql = " SELECT count(p.rowid) as nb, fk_product_type " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product as p " ;
$sql .= ' WHERE p.entity IN (' . getEntity ( $this -> element , 1 ) . ')' ;
// Add where from hooks
if ( is_object ( $hookmanager )) {
$parameters = array ();
$reshook = $hookmanager -> executeHooks ( 'printFieldListWhere' , $parameters ); // Note that $action and $object may have been modified by hook
$sql .= $hookmanager -> resPrint ;
}
$sql .= ' GROUP BY fk_product_type' ;
$resql = $this -> db -> query ( $sql );
if ( $resql ) {
while ( $obj = $this -> db -> fetch_object ( $resql ))
{
if ( $obj -> fk_product_type == 1 ) { $this -> nb [ " services " ] = $obj -> nb ;
} else { $this -> nb [ " products " ] = $obj -> nb ;
}
}
$this -> db -> free ( $resql );
return 1 ;
} else {
dol_print_error ( $this -> db );
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
/**
* Return if object is a product
*
* @ return boolean True if it ' s a product
*/
public function isProduct ()
{
return ( $this -> type == Product :: TYPE_PRODUCT ? true : false );
}
/**
* Return if object is a product
*
* @ return boolean True if it ' s a service
*/
public function isService ()
{
return ( $this -> type == Product :: TYPE_SERVICE ? true : false );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Get a barcode from the module to generate barcode values .
* Return value is stored into this -> barcode
*
* @ param Product $object Object product or service
* @ param string $type Barcode type ( ean , isbn , ... )
* @ return string
*/
public function get_barcode ( $object , $type = '' )
{
// phpcs:enable
global $conf ;
$result = '' ;
if ( ! empty ( $conf -> global -> BARCODE_PRODUCT_ADDON_NUM )) {
$dirsociete = array_merge ( array ( '/core/modules/barcode/' ), $conf -> modules_parts [ 'barcode' ]);
foreach ( $dirsociete as $dirroot )
{
$res = dol_include_once ( $dirroot . $conf -> global -> BARCODE_PRODUCT_ADDON_NUM . '.php' );
if ( $res ) { break ;
}
}
$var = $conf -> global -> BARCODE_PRODUCT_ADDON_NUM ;
$mod = new $var ;
$result = $mod -> getNextValue ( $object , $type );
dol_syslog ( get_class ( $this ) . " ::get_barcode barcode= " . $result . " module= " . $var );
}
return $result ;
}
/**
* 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
*/
public function initAsSpecimen ()
{
global $user , $langs , $conf , $mysoc ;
$now = dol_now ();
// Initialize parameters
$this -> specimen = 1 ;
$this -> id = 0 ;
$this -> ref = 'PRODUCT_SPEC' ;
$this -> label = 'PRODUCT SPECIMEN' ;
$this -> description = 'This is description of this product specimen that was created the ' . dol_print_date ( $now , 'dayhourlog' ) . '.' ;
$this -> specimen = 1 ;
$this -> country_id = 1 ;
$this -> tosell = 1 ;
$this -> tobuy = 1 ;
$this -> tobatch = 0 ;
$this -> note = 'This is a comment (private)' ;
$this -> date_creation = $now ;
$this -> date_modification = $now ;
$this -> weight = 4 ;
$this -> weight_unit = 1 ;
$this -> length = 5 ;
$this -> length_unit = 1 ;
$this -> width = 6 ;
$this -> width_unit = 0 ;
$this -> height = null ;
$this -> height_unit = null ;
$this -> surface = 30 ;
$this -> surface_unit = 0 ;
$this -> volume = 300 ;
$this -> volume_unit = 0 ;
$this -> barcode = - 1 ; // Create barcode automatically
}
/**
* Returns the text label from units dictionary
*
* @ param string $type Label type ( long or short )
* @ return string | int < 0 if ko , label if ok
*/
public function getLabelOfUnit ( $type = 'long' )
{
global $langs ;
if ( ! $this -> fk_unit ) {
return '' ;
}
$langs -> load ( 'products' );
$label_type = 'label' ;
if ( $type == 'short' ) {
$label_type = 'short_label' ;
}
$sql = 'select ' . $label_type . ', code from ' . MAIN_DB_PREFIX . 'c_units where rowid=' . $this -> fk_unit ;
$resql = $this -> db -> query ( $sql );
if ( $resql && $this -> db -> num_rows ( $resql ) > 0 ) {
$res = $this -> db -> fetch_array ( $resql );
$label = ( $label_type == 'short' ? $res [ $label_type ] : 'unit' . $res [ 'code' ]);
$this -> db -> free ( $resql );
return $label ;
} else {
$this -> error = $this -> db -> error () . ' sql=' . $sql ;
dol_syslog ( get_class ( $this ) . " ::getLabelOfUnit Error " . $this -> error , LOG_ERR );
return - 1 ;
}
}
/**
* Return if object has a sell - by date or eat - by date
*
* @ return boolean True if it ' s has
*/
public function hasbatch ()
{
return ( $this -> status_batch == 1 ? true : false );
}
// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
/**
* Return minimum product recommended price
*
* @ return int Minimum recommanded price that is higher price among all suppliers * PRODUCT_MINIMUM_RECOMMENDED_PRICE
*/
public function min_recommended_price ()
{
// phpcs:enable
global $conf ;
$maxpricesupplier = 0 ;
if ( ! empty ( $conf -> global -> PRODUCT_MINIMUM_RECOMMENDED_PRICE )) {
include_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.product.class.php' ;
$product_fourn = new ProductFournisseur ( $this -> db );
$product_fourn_list = $product_fourn -> list_product_fournisseur_price ( $this -> id , '' , '' );
if ( is_array ( $product_fourn_list ) && count ( $product_fourn_list ) > 0 ) {
foreach ( $product_fourn_list as $productfourn )
{
if ( $productfourn -> fourn_unitprice > $maxpricesupplier ) {
$maxpricesupplier = $productfourn -> fourn_unitprice ;
}
}
$maxpricesupplier *= $conf -> global -> PRODUCT_MINIMUM_RECOMMENDED_PRICE ;
}
}
return $maxpricesupplier ;
}
/**
* Sets object to supplied categories .
*
* Deletes object from existing categories not supplied .
* Adds it to non existing supplied categories .
* Existing categories are left untouch .
*
* @ param int [] | int $categories Category or categories IDs
* @ return void
*/
public function setCategories ( $categories )
{
// Handle single category
if ( ! is_array ( $categories )) {
$categories = array ( $categories );
}
// Get current categories
include_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php' ;
$c = new Categorie ( $this -> db );
$existing = $c -> containing ( $this -> id , Categorie :: TYPE_PRODUCT , 'id' );
// Diff
if ( is_array ( $existing )) {
$to_del = array_diff ( $existing , $categories );
$to_add = array_diff ( $categories , $existing );
} else {
$to_del = array (); // Nothing to delete
$to_add = $categories ;
}
// Process
foreach ( $to_del as $del ) {
if ( $c -> fetch ( $del ) > 0 ) {
$c -> del_type ( $this , Categorie :: TYPE_PRODUCT );
}
}
foreach ( $to_add as $add ) {
if ( $c -> fetch ( $add ) > 0 ) {
$c -> add_type ( $this , Categorie :: TYPE_PRODUCT );
}
}
return ;
}
/**
* Function used to replace a thirdparty id with another one .
*
* @ param DoliDB $db Database handler
* @ param int $origin_id Old thirdparty id
* @ param int $dest_id New thirdparty id
* @ return bool
*/
public static function replaceThirdparty ( DoliDB $db , $origin_id , $dest_id )
{
$tables = array (
'product_customer_price' ,
'product_customer_price_log'
);
return CommonObject :: commonReplaceThirdparty ( $db , $origin_id , $dest_id , $tables );
}
/**
* Generates prices for a product based on product multiprice generation rules
*
* @ param User $user User that updates the prices
* @ param float $baseprice Base price
* @ param string $price_type Base price type
* @ param float $price_vat VAT % tax
* @ param int $npr NPR
* @ param string $psq ¿ ?
* @ return int - 1 KO , 1 OK
*/
public function generateMultiprices ( User $user , $baseprice , $price_type , $price_vat , $npr , $psq )
{
global $conf , $db ;
$sql = " SELECT rowid, level, fk_level, var_percent, var_min_percent FROM " . MAIN_DB_PREFIX . " product_pricerules " ;
$query = $db -> query ( $sql );
$rules = array ();
while ( $result = $db -> fetch_object ( $query )) {
$rules [ $result -> level ] = $result ;
}
//Because prices can be based on other level's prices, we temporarily store them
$prices = array (
1 => $baseprice
);
for ( $i = 1 ; $i <= $conf -> global -> PRODUIT_MULTIPRICES_LIMIT ; $i ++ ) {
$price = $baseprice ;
$price_min = $baseprice ;
//We have to make sure it does exist and it is > 0
//First price level only allows changing min_price
if ( $i > 1 && isset ( $rules [ $i ] -> var_percent ) && $rules [ $i ] -> var_percent ) {
$price = $prices [ $rules [ $i ] -> fk_level ] * ( 1 + ( $rules [ $i ] -> var_percent / 100 ));
}
$prices [ $i ] = $price ;
//We have to make sure it does exist and it is > 0
if ( isset ( $rules [ $i ] -> var_min_percent ) && $rules [ $i ] -> var_min_percent ) {
$price_min = $price * ( 1 - ( $rules [ $i ] -> var_min_percent / 100 ));
}
//Little check to make sure the price is modified before triggering generation
$check_amount = (( $price == $this -> multiprices [ $i ]) && ( $price_min == $this -> multiprices_min [ $i ]));
$check_type = ( $baseprice == $this -> multiprices_base_type [ $i ]);
if ( $check_amount && $check_type ) {
continue ;
}
if ( $this -> updatePrice ( $price , $price_type , $user , $price_vat , $price_min , $i , $npr , $psq , true ) < 0 ) {
return - 1 ;
}
}
return 1 ;
}
/**
* Returns the rights used for this class
*
* @ return Object
*/
public function getRights ()
{
global $user ;
if ( $this -> isProduct ()) {
return $user -> rights -> produit ;
} else {
return $user -> rights -> service ;
}
}
/**
* Load information for tab info
*
* @ param int $id Id of thirdparty to load
* @ return void
*/
public function info ( $id )
{
$sql = " SELECT p.rowid, p.ref, p.datec as date_creation, p.tms as date_modification, " ;
$sql .= " p.fk_user_author, p.fk_user_modif " ;
$sql .= " FROM " . MAIN_DB_PREFIX . $this -> table_element . " as p " ;
$sql .= " WHERE p.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_modif ) {
$muser = new User ( $this -> db );
$muser -> fetch ( $obj -> fk_user_modif );
$this -> user_modification = $muser ;
}
$this -> ref = $obj -> ref ;
$this -> date_creation = $this -> db -> jdate ( $obj -> date_creation );
$this -> date_modification = $this -> db -> jdate ( $obj -> date_modification );
}
$this -> db -> free ( $result );
} else {
dol_print_error ( $this -> db );
}
}
2002-04-30 17:52:56 +02:00
}
2020-04-24 23:56:57 +02:00
/**
2020-05-02 03:29:33 +02:00
* Class to manage products or services .
* Do not use 'Service' as class name since it is already used by APIs .
2020-04-24 23:56:57 +02:00
*/
2020-05-02 03:29:33 +02:00
class ProductService extends Product
2020-04-24 23:56:57 +02:00
{
public $picto = 'service' ;
}