2004-11-30 20:25:48 +01:00
< ? php
2012-03-18 11:13:01 +01:00
/* Copyright ( C ) 2003 - 2006 Rodolphe Quiedeville < rodolphe @ quiedeville . org >
2017-10-07 13:04:31 +02:00
* Copyright ( C ) 2004 - 2017 Laurent Destailleur < eldy @ users . sourceforge . net >
2012-12-30 15:13:49 +01:00
* Copyright ( C ) 2005 - 2012 Regis Houssin < regis . houssin @ capnetworks . com >
2012-03-18 11:13:01 +01:00
* Copyright ( C ) 2007 Franky Van Liedekerke < franky . van . liedekerke @ telenet . be >
2014-07-04 11:07:10 +02:00
* Copyright ( C ) 2010 - 2014 Juanjo Menent < jmenent @ 2 byte . es >
2016-02-16 16:45:19 +01:00
* Copyright ( C ) 2010 - 2016 Philippe Grand < philippe . grand @ atoo - net . com >
2015-02-15 15:07:24 +01:00
* Copyright ( C ) 2012 - 2015 Marcos García < marcosgdf @ gmail . com >
2013-04-09 17:18:07 +02:00
* Copyright ( C ) 2013 Florian Henry < florian . henry @ open - concept . pro >
2013-06-04 16:33:23 +02:00
* Copyright ( C ) 2013 Cédric Salvador < csalvador @ gpcsolutions . fr >
2018-12-04 14:29:47 +01:00
* Copyright ( C ) 2018 Nicolas ZABOURI < info @ inovea - conseil . com >
2018-11-27 11:36:31 +01:00
* Copyright ( C ) 2018 Ferran Marcet < fmarcet @ 2 byte . es >
2004-11-30 20:25:48 +01: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
2004-11-30 20:25:48 +01: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
2011-08-01 01:45:11 +02:00
* along with this program . If not , see < http :// www . gnu . org / licenses />.
2004-11-30 20:25:48 +01:00
*/
2006-12-11 21:52:39 +01:00
/**
2010-07-21 14:35:56 +02:00
* \file htdocs / fourn / class / fournisseur . commande . class . php
2009-01-09 22:46:58 +01:00
* \ingroup fournisseur , commande
2010-07-21 13:57:52 +02:00
* \brief File of class to manage suppliers orders
2008-07-01 21:46:18 +02:00
*/
2004-11-30 20:25:48 +01:00
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/commonorder.class.php' ;
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/product/class/product.class.php' ;
2014-03-15 10:28:01 +01:00
if ( ! empty ( $conf -> productbatch -> enabled )) require_once DOL_DOCUMENT_ROOT . '/product/class/productbatch.class.php' ;
2016-02-16 23:58:21 +01:00
require_once DOL_DOCUMENT_ROOT . '/multicurrency/class/multicurrency.class.php' ;
2004-11-30 20:25:48 +01:00
2008-07-01 21:46:18 +02:00
/**
2012-04-14 20:21:06 +02:00
* Class to manage predefined suppliers products
2008-07-01 21:46:18 +02:00
*/
2012-07-11 18:13:41 +02:00
class CommandeFournisseur extends CommonOrder
2004-11-30 20:25:48 +01:00
{
2011-09-20 19:19:46 +02:00
public $element = 'order_supplier' ;
public $table_element = 'commande_fournisseur' ;
public $table_element_line = 'commande_fournisseurdet' ;
public $fk_element = 'fk_commande' ;
2016-09-19 13:57:50 +02:00
public $picto = 'order' ;
2017-12-18 15:39:40 +01:00
/**
* 0 = No test on entity , 1 = Test with field entity , 2 = Test with link by societe
* @ var int
*/
public $ismultientitymanaged = 1 ;
/**
* 0 = Default , 1 = View may be restricted to sales representative only if no permission to see all or to company of external user if external user
* @ var integer
*/
public $restrictiononfksoc = 1 ;
2017-06-30 11:40:26 +02:00
2014-12-25 21:47:39 +01:00
/**
* { @ inheritdoc }
*/
protected $table_ref_field = 'ref' ;
2016-07-19 12:57:23 +02:00
public $id ;
2014-05-01 19:17:45 +02:00
2015-04-03 05:18:47 +02:00
/**
2016-02-16 16:45:19 +01:00
* Supplier order reference
2015-11-16 13:29:37 +01:00
* @ var string
2015-04-03 05:18:47 +02:00
*/
2016-07-19 12:57:23 +02:00
public $ref ;
public $ref_supplier ;
public $brouillon ;
2017-10-07 13:04:31 +02:00
public $statut ; // 0=Draft -> 1=Validated -> 2=Approved -> 3=Ordered/Process runing -> 4=Received partially -> 5=Received totally -> (reopen) 4=Received partially
// -> 7=Canceled/Never received -> (reopen) 3=Process runing
// -> 6=Canceled -> (reopen) 2=Approved
2012-04-14 20:21:06 +02:00
// -> 9=Refused -> (reopen) 1=Validated
2015-11-29 15:42:20 +01:00
// Note: billed or not is on another field "billed"
2016-07-19 12:57:23 +02:00
public $statuts ; // List of status
public $socid ;
public $fourn_id ;
public $date ;
public $date_valid ;
public $date_approve ;
2016-08-04 15:46:31 +02:00
public $date_approve2 ; // Used when SUPPLIER_ORDER_3_STEPS_TO_BE_APPROVED is set
2016-07-19 12:57:23 +02:00
public $date_commande ;
2015-09-06 19:23:46 +02:00
/**
* Delivery date
*/
2016-07-19 12:57:23 +02:00
public $date_livraison ;
public $total_ht ;
public $total_tva ;
public $total_localtax1 ; // Total Local tax 1
public $total_localtax2 ; // Total Local tax 2
public $total_ttc ;
public $source ;
2015-04-23 23:21:06 +02:00
/**
* @ deprecated
* @ see note_private , note_public
*/
2016-07-19 12:57:23 +02:00
public $note ;
2015-04-23 23:21:06 +02:00
public $note_private ;
public $note_public ;
2016-07-19 12:57:23 +02:00
public $model_pdf ;
public $fk_project ;
public $cond_reglement_id ;
public $cond_reglement_code ;
public $fk_account ;
public $mode_reglement_id ;
public $mode_reglement_code ;
public $user_author_id ;
public $user_valid_id ;
public $user_approve_id ;
2016-08-04 15:46:31 +02:00
public $user_approve_id2 ; // Used when SUPPLIER_ORDER_3_STEPS_TO_BE_APPROVED is set
2012-04-11 14:37:36 +02:00
2016-02-16 16:45:19 +01:00
//Incoterms
2016-07-19 12:57:23 +02:00
public $fk_incoterms ;
public $location_incoterms ;
public $libelle_incoterms ; //Used into tooltip
2015-04-01 21:00:51 +02:00
2016-07-19 12:57:23 +02:00
public $extraparams = array ();
2011-09-11 20:35:38 +02:00
2015-03-23 01:39:12 +01:00
/**
* @ var CommandeFournisseurLigne []
*/
public $lines = array ();
2016-02-16 16:45:19 +01:00
//Add for supplier_proposal
2016-07-19 12:57:23 +02:00
public $origin ;
public $origin_id ;
public $linked_objects = array ();
2011-09-11 20:35:38 +02:00
2016-02-16 23:58:21 +01:00
// Multicurrency
2016-07-19 12:57:23 +02:00
public $fk_multicurrency ;
public $multicurrency_code ;
public $multicurrency_tx ;
public $multicurrency_total_ht ;
public $multicurrency_total_tva ;
public $multicurrency_total_ttc ;
2016-08-05 09:46:17 +02:00
2017-10-07 13:04:31 +02:00
/**
* Draft status
*/
const STATUS_DRAFT = 0 ;
/**
* Validated status
*/
const STATUS_VALIDATED = 1 ;
/**
* Accepted
*/
const STATUS_ACCEPTED = 2 ;
/**
* Order sent , shipment on process
*/
const STATUS_ORDERSENT = 3 ;
/**
* Received partially
*/
const STATUS_RECEIVED_PARTIALLY = 4 ;
/**
* Received completely
*/
const STATUS_RECEIVED_COMPLETELY = 5 ;
/**
* Order canceled
*/
const STATUS_CANCELED = 6 ;
/**
* Order canceled / never received
*/
const STATUS_CANCELED_AFTER_ORDER = 7 ;
/**
* Refused
*/
const STATUS_REFUSED = 9 ;
2017-06-30 11:40:26 +02:00
2015-03-23 01:39:12 +01:00
/**
2012-01-19 09:53:27 +01:00
* Constructor
*
2012-04-15 16:49:49 +02:00
* @ param DoliDB $db Database handler
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function __construct ( $db )
2011-09-11 20:35:38 +02:00
{
2012-01-19 09:53:27 +01:00
$this -> db = $db ;
2011-09-11 20:35:38 +02:00
2018-04-21 16:01:05 +02:00
$this -> products = array ();
2011-09-11 20:35:38 +02:00
}
/**
* Get object and lines from database
2011-11-09 22:10:58 +01:00
*
* @ param int $id Id of order to load
* @ param string $ref Ref of object
2012-02-08 16:41:06 +01:00
* @ return int > 0 if OK , < 0 if KO , 0 if not found
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function fetch ( $id , $ref = '' )
2011-09-11 20:35:38 +02:00
{
global $conf ;
// Check parameters
if ( empty ( $id ) && empty ( $ref )) return - 1 ;
2018-02-24 16:21:16 +01:00
$sql = " SELECT c.rowid, c.entity, c.ref, ref_supplier, c.fk_soc, c.fk_statut, c.amount_ht, c.total_ht, c.total_ttc, c.tva as total_vat, " ;
2011-09-11 20:35:38 +02:00
$sql .= " c.localtax1, c.localtax2, " ;
2015-04-01 21:00:51 +02:00
$sql .= " c.date_creation, c.date_valid, c.date_approve, c.date_approve2, " ;
$sql .= " c.fk_user_author, c.fk_user_valid, c.fk_user_approve, c.fk_user_approve2, " ;
2012-07-22 16:58:37 +02:00
$sql .= " c.date_commande as date_commande, c.date_livraison as date_livraison, c.fk_cond_reglement, c.fk_mode_reglement, c.fk_projet as fk_project, c.remise_percent, c.source, c.fk_input_method, " ;
2014-07-09 18:00:21 +02:00
$sql .= " c.fk_account, " ;
2015-11-16 14:55:46 +01:00
$sql .= " c.note_private, c.note_public, c.model_pdf, c.extraparams, c.billed, " ;
2016-02-16 23:58:21 +01:00
$sql .= " c.fk_multicurrency, c.multicurrency_code, c.multicurrency_tx, c.multicurrency_total_ht, c.multicurrency_total_tva, c.multicurrency_total_ttc, " ;
2011-09-11 20:35:38 +02:00
$sql .= " cm.libelle as methode_commande, " ;
$sql .= " cr.code as cond_reglement_code, cr.libelle as cond_reglement_libelle, " ;
$sql .= " p.code as mode_reglement_code, p.libelle as mode_reglement_libelle " ;
2015-02-23 09:16:14 +01:00
$sql .= ', c.fk_incoterms, c.location_incoterms' ;
$sql .= ', i.libelle as libelle_incoterms' ;
2011-09-11 20:35:38 +02:00
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseur as c " ;
2018-03-07 17:32:57 +01:00
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " c_payment_term as cr ON c.fk_cond_reglement = cr.rowid " ;
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " c_paiement as p ON c.fk_mode_reglement = p.id " ;
2012-07-22 16:58:37 +02:00
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " c_input_method as cm ON cm.rowid = c.fk_input_method " ;
2015-02-23 09:16:14 +01:00
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'c_incoterms as i ON c.fk_incoterms = i.rowid' ;
2011-09-11 20:35:38 +02:00
$sql .= " WHERE c.entity = " . $conf -> entity ;
2014-09-13 19:04:25 +02:00
if ( $ref ) $sql .= " AND c.ref=' " . $this -> db -> escape ( $ref ) . " ' " ;
2011-09-11 20:35:38 +02:00
else $sql .= " AND c.rowid= " . $id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::fetch " , LOG_DEBUG );
2011-09-20 15:32:16 +02:00
$resql = $this -> db -> query ( $sql );
2011-09-11 20:35:38 +02:00
if ( $resql )
{
$obj = $this -> db -> fetch_object ( $resql );
2012-02-08 16:41:06 +01:00
if ( ! $obj )
{
2014-07-02 21:29:07 +02:00
$this -> error = 'Bill with id ' . $id . ' not found' ;
2012-02-08 16:41:06 +01:00
dol_syslog ( get_class ( $this ) . '::fetch ' . $this -> error );
return 0 ;
}
2011-09-11 20:35:38 +02:00
2012-03-18 11:13:01 +01:00
$this -> id = $obj -> rowid ;
2018-02-24 16:21:16 +01:00
$this -> entity = $obj -> entity ;
2012-03-18 11:13:01 +01:00
$this -> ref = $obj -> ref ;
2012-04-11 14:37:36 +02:00
$this -> ref_supplier = $obj -> ref_supplier ;
2012-03-18 11:13:01 +01:00
$this -> socid = $obj -> fk_soc ;
$this -> fourn_id = $obj -> fk_soc ;
$this -> statut = $obj -> fk_statut ;
2015-11-16 14:55:46 +01:00
$this -> billed = $obj -> billed ;
2012-03-18 11:13:01 +01:00
$this -> user_author_id = $obj -> fk_user_author ;
2012-04-12 10:03:55 +02:00
$this -> user_valid_id = $obj -> fk_user_valid ;
2012-04-15 16:49:49 +02:00
$this -> user_approve_id = $obj -> fk_user_approve ;
2015-04-01 21:00:51 +02:00
$this -> user_approve_id2 = $obj -> fk_user_approve2 ;
2012-03-18 11:13:01 +01:00
$this -> total_ht = $obj -> total_ht ;
2017-03-23 12:23:32 +01:00
$this -> total_tva = $obj -> total_vat ;
2012-03-18 11:13:01 +01:00
$this -> total_localtax1 = $obj -> localtax1 ;
$this -> total_localtax2 = $obj -> localtax2 ;
$this -> total_ttc = $obj -> total_ttc ;
$this -> date = $this -> db -> jdate ( $obj -> date_creation );
2012-04-12 10:52:53 +02:00
$this -> date_valid = $this -> db -> jdate ( $obj -> date_valid );
2012-04-15 16:49:49 +02:00
$this -> date_approve = $this -> db -> jdate ( $obj -> date_approve );
2015-04-01 21:00:51 +02:00
$this -> date_approve2 = $this -> db -> jdate ( $obj -> date_approve2 );
$this -> date_commande = $this -> db -> jdate ( $obj -> date_commande ); // date we make the order to supplier
2012-04-10 19:43:44 +02:00
$this -> date_livraison = $this -> db -> jdate ( $obj -> date_livraison );
2012-03-18 11:13:01 +01:00
$this -> remise_percent = $obj -> remise_percent ;
2012-07-22 16:58:37 +02:00
$this -> methode_commande_id = $obj -> fk_input_method ;
2012-03-18 11:13:01 +01:00
$this -> methode_commande = $obj -> methode_commande ;
$this -> source = $obj -> source ;
$this -> fk_project = $obj -> fk_project ;
$this -> cond_reglement_id = $obj -> fk_cond_reglement ;
$this -> cond_reglement_code = $obj -> cond_reglement_code ;
$this -> cond_reglement = $obj -> cond_reglement_libelle ;
$this -> cond_reglement_doc = $obj -> cond_reglement_libelle ;
2014-07-09 18:00:21 +02:00
$this -> fk_account = $obj -> fk_account ;
2012-03-18 11:13:01 +01:00
$this -> mode_reglement_id = $obj -> fk_mode_reglement ;
$this -> mode_reglement_code = $obj -> mode_reglement_code ;
$this -> mode_reglement = $obj -> mode_reglement_libelle ;
$this -> note = $obj -> note_private ; // deprecated
$this -> note_private = $obj -> note_private ;
$this -> note_public = $obj -> note_public ;
$this -> modelpdf = $obj -> model_pdf ;
2012-04-11 14:37:36 +02:00
2015-02-23 09:16:14 +01:00
//Incoterms
$this -> fk_incoterms = $obj -> fk_incoterms ;
2015-04-01 21:00:51 +02:00
$this -> location_incoterms = $obj -> location_incoterms ;
2015-02-23 09:16:14 +01:00
$this -> libelle_incoterms = $obj -> libelle_incoterms ;
2015-04-01 21:00:51 +02:00
2016-02-16 23:58:21 +01:00
// Multicurrency
$this -> fk_multicurrency = $obj -> fk_multicurrency ;
$this -> multicurrency_code = $obj -> multicurrency_code ;
$this -> multicurrency_tx = $obj -> multicurrency_tx ;
$this -> multicurrency_total_ht = $obj -> multicurrency_total_ht ;
$this -> multicurrency_total_tva = $obj -> multicurrency_total_tva ;
$this -> multicurrency_total_ttc = $obj -> multicurrency_total_ttc ;
2016-08-05 09:46:17 +02:00
2012-03-18 19:59:38 +01:00
$this -> extraparams = ( array ) json_decode ( $obj -> extraparams , true );
2011-09-11 20:35:38 +02:00
$this -> db -> free ( $resql );
2014-08-30 18:27:34 +02:00
2018-02-20 19:38:18 +01:00
// Retreive all extrafield
2014-07-31 17:02:17 +02:00
// fetch optionals attributes and labels
2018-02-20 19:38:18 +01:00
$this -> fetch_optionals ();
2011-09-11 20:35:38 +02:00
if ( $this -> statut == 0 ) $this -> brouillon = 1 ;
2018-04-14 17:04:38 +02:00
/*
* Lines
*/
$result = $this -> fetch_lines ();
if ( $result < 0 )
2011-09-11 20:35:38 +02:00
{
2018-04-15 18:20:04 +02:00
return - 1 ;
}
else
{
return 1 ;
2011-09-11 20:35:38 +02:00
}
}
else
{
$this -> error = $this -> db -> error () . " sql= " . $sql ;
return - 1 ;
}
}
2018-04-14 17:04:38 +02:00
/**
* Load array lines
*
* @ param int $only_product Return only physical products
* @ return int < 0 if KO , > 0 if OK
*/
function fetch_lines ( $only_product = 0 )
{
//$result=$this->fetch_lines();
$this -> lines = array ();
$sql = " SELECT l.rowid, l.ref as ref_supplier, l.fk_product, l.product_type, l.label, l.description, l.qty, " ;
$sql .= " l.vat_src_code, l.tva_tx, l.remise_percent, l.subprice, " ;
$sql .= " l.localtax1_tx, l. localtax2_tx, l.localtax1_type, l. localtax2_type, l.total_localtax1, l.total_localtax2, " ;
$sql .= " l.total_ht, l.total_tva, l.total_ttc, l.special_code, l.fk_parent_line, l.rang, " ;
$sql .= " p.rowid as product_id, p.ref as product_ref, p.label as product_label, p.description as product_desc, " ;
$sql .= " l.fk_unit, " ;
$sql .= " l.date_start, l.date_end, " ;
$sql .= ' l.fk_multicurrency, l.multicurrency_code, l.multicurrency_subprice, l.multicurrency_total_ht, l.multicurrency_total_tva, l.multicurrency_total_ttc' ;
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseurdet as l " ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'product as p ON l.fk_product = p.rowid' ;
$sql .= " WHERE l.fk_commande = " . $this -> id ;
if ( $only_product ) $sql .= ' AND p.fk_product_type = 0' ;
$sql .= " ORDER BY l.rang, l.rowid " ;
//print $sql;
dol_syslog ( get_class ( $this ) . " ::fetch get lines " , LOG_DEBUG );
$result = $this -> db -> query ( $sql );
if ( $result )
{
$num = $this -> db -> num_rows ( $result );
$i = 0 ;
while ( $i < $num )
{
$objp = $this -> db -> fetch_object ( $result );
$line = new CommandeFournisseurLigne ( $this -> db );
$line -> id = $objp -> rowid ;
$line -> desc = $objp -> description ;
$line -> description = $objp -> description ;
$line -> qty = $objp -> qty ;
$line -> tva_tx = $objp -> tva_tx ;
$line -> localtax1_tx = $objp -> localtax1_tx ;
$line -> localtax2_tx = $objp -> localtax2_tx ;
$line -> localtax1_type = $objp -> localtax1_type ;
$line -> localtax2_type = $objp -> localtax2_type ;
$line -> subprice = $objp -> subprice ;
$line -> pu_ht = $objp -> subprice ;
$line -> remise_percent = $objp -> remise_percent ;
$line -> vat_src_code = $objp -> vat_src_code ;
$line -> total_ht = $objp -> total_ht ;
$line -> total_tva = $objp -> total_tva ;
$line -> total_localtax1 = $objp -> total_localtax1 ;
$line -> total_localtax2 = $objp -> total_localtax2 ;
$line -> total_ttc = $objp -> total_ttc ;
$line -> product_type = $objp -> product_type ;
$line -> fk_product = $objp -> fk_product ;
$line -> libelle = $objp -> product_label ;
$line -> product_label = $objp -> product_label ;
$line -> product_desc = $objp -> product_desc ;
$line -> ref = $objp -> product_ref ; // Ref of product
$line -> product_ref = $objp -> product_ref ; // Ref of product
$line -> ref_fourn = $objp -> ref_supplier ; // The supplier ref of price when product was added. May have change since
$line -> ref_supplier = $objp -> ref_supplier ; // The supplier ref of price when product was added. May have change since
$line -> date_start = $this -> db -> jdate ( $objp -> date_start );
$line -> date_end = $this -> db -> jdate ( $objp -> date_end );
$line -> fk_unit = $objp -> fk_unit ;
// Multicurrency
$line -> fk_multicurrency = $objp -> fk_multicurrency ;
$line -> multicurrency_code = $objp -> multicurrency_code ;
$line -> multicurrency_subprice = $objp -> multicurrency_subprice ;
$line -> multicurrency_total_ht = $objp -> multicurrency_total_ht ;
$line -> multicurrency_total_tva = $objp -> multicurrency_total_tva ;
$line -> multicurrency_total_ttc = $objp -> multicurrency_total_ttc ;
$line -> special_code = $objp -> special_code ;
$line -> fk_parent_line = $objp -> fk_parent_line ;
$line -> rang = $objp -> rang ;
// Retreive all extrafield
// fetch optionals attributes and labels
$line -> fetch_optionals ();
$this -> lines [ $i ] = $line ;
$i ++ ;
}
$this -> db -> free ( $result );
return $num ;
}
else
{
$this -> error = $this -> db -> error () . " sql= " . $sql ;
return - 1 ;
}
}
2011-09-11 20:35:38 +02:00
/**
* Validate an order
2011-11-09 22:10:58 +01:00
*
2012-04-14 20:21:06 +02:00
* @ param User $user Validator User
* @ param int $idwarehouse Id of warehouse to use for stock decrease
2016-09-24 07:18:38 +02:00
* @ param int $notrigger 1 = Does not execute triggers , 0 = execute triggers
2012-04-14 20:21:06 +02:00
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function valid ( $user , $idwarehouse = 0 , $notrigger = 0 )
2011-09-11 20:35:38 +02:00
{
global $langs , $conf ;
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
2011-09-11 20:35:38 +02:00
$error = 0 ;
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::valid " );
2011-09-11 20:35:38 +02:00
$result = 0 ;
2015-01-25 21:32:40 +01:00
if (( empty ( $conf -> global -> MAIN_USE_ADVANCED_PERMS ) && ! empty ( $user -> rights -> fournisseur -> commande -> creer ))
|| ( ! empty ( $conf -> global -> MAIN_USE_ADVANCED_PERMS ) && ! empty ( $user -> rights -> fournisseur -> supplier_order_advance -> validate )))
2011-09-11 20:35:38 +02:00
{
$this -> db -> begin ();
2016-02-16 16:45:19 +01:00
// Definition of supplier order numbering model name
2011-09-11 20:35:38 +02:00
$soc = new Societe ( $this -> db );
$soc -> fetch ( $this -> fourn_id );
// Check if object has a temporary ref
2015-10-06 16:38:27 +02:00
if ( preg_match ( '/^[\(]?PROV/i' , $this -> ref ) || empty ( $this -> ref )) // empty should not happened, but when it occurs, the test save life
2011-09-11 20:35:38 +02:00
{
$num = $this -> getNextNumRef ( $soc );
}
else
2014-10-27 03:24:45 +01:00
{
2011-09-11 20:35:38 +02:00
$num = $this -> ref ;
}
2014-10-27 03:24:45 +01:00
$this -> newref = $num ;
2011-09-11 20:35:38 +02:00
$sql = 'UPDATE ' . MAIN_DB_PREFIX . " commande_fournisseur " ;
2014-10-27 03:24:45 +01:00
$sql .= " SET ref=' " . $this -> db -> escape ( $num ) . " ', " ;
2017-10-07 13:04:31 +02:00
$sql .= " fk_statut = " . self :: STATUS_VALIDATED . " , " ;
2012-04-15 18:41:38 +02:00
$sql .= " date_valid=' " . $this -> db -> idate ( dol_now ()) . " ', " ;
$sql .= " fk_user_valid = " . $user -> id ;
2011-09-11 20:35:38 +02:00
$sql .= " WHERE rowid = " . $this -> id ;
2017-10-07 13:04:31 +02:00
$sql .= " AND fk_statut = " . self :: STATUS_DRAFT ;
2011-09-11 20:35:38 +02:00
$resql = $this -> db -> query ( $sql );
if ( ! $resql )
{
dol_print_error ( $this -> db );
$error ++ ;
}
2014-10-27 03:24:45 +01:00
if ( ! $error && ! $notrigger )
{
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_VALIDATE' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
}
2011-09-11 20:35:38 +02:00
if ( ! $error )
{
2014-10-27 03:24:45 +01:00
$this -> oldref = $this -> ref ;
2012-07-11 18:13:41 +02:00
2011-09-11 20:35:38 +02:00
// Rename directory if dir was a temporary ref
if ( preg_match ( '/^[\(]?PROV/i' , $this -> ref ))
{
2016-02-16 16:45:19 +01:00
// We rename directory ($this->ref = ancienne ref, $num = nouvelle ref)
2013-11-05 15:29:33 +01:00
// in order not to lose the attached files
2011-09-11 20:35:38 +02:00
$oldref = dol_sanitizeFileName ( $this -> ref );
$newref = dol_sanitizeFileName ( $num );
2017-10-06 14:05:13 +02:00
$dirsource = $conf -> fournisseur -> commande -> dir_output . '/' . $oldref ;
$dirdest = $conf -> fournisseur -> commande -> dir_output . '/' . $newref ;
2011-09-11 20:35:38 +02:00
if ( file_exists ( $dirsource ))
{
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::valid rename dir " . $dirsource . " into " . $dirdest );
2011-09-11 20:35:38 +02:00
if ( @ rename ( $dirsource , $dirdest ))
{
dol_syslog ( " Rename ok " );
2014-10-27 03:24:45 +01:00
// Rename docs starting with $oldref with $newref
2017-10-06 14:05:13 +02:00
$listoffiles = dol_dir_list ( $conf -> fournisseur -> commande -> dir_output . '/' . $newref , 'files' , 1 , '^' . preg_quote ( $oldref , '/' ));
2014-10-27 03:24:45 +01:00
foreach ( $listoffiles as $fileentry )
{
$dirsource = $fileentry [ 'name' ];
$dirdest = preg_replace ( '/^' . preg_quote ( $oldref , '/' ) . '/' , $newref , $dirsource );
$dirsource = $fileentry [ 'path' ] . '/' . $dirsource ;
$dirdest = $fileentry [ 'path' ] . '/' . $dirdest ;
@ rename ( $dirsource , $dirdest );
}
2011-09-11 20:35:38 +02:00
}
}
}
}
if ( ! $error )
{
$result = 1 ;
2017-10-07 13:04:31 +02:00
$this -> statut = self :: STATUS_VALIDATED ;
2011-09-11 20:35:38 +02:00
$this -> ref = $num ;
}
if ( ! $error )
{
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
2015-11-07 11:13:58 +01:00
$this -> error = 'NotAuthorized' ;
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::valid " . $this -> error , LOG_ERR );
2011-09-11 20:35:38 +02:00
return - 1 ;
}
}
/**
* Return label of the status of object
2012-01-19 09:53:27 +01:00
*
2014-09-04 22:37:33 +02:00
* @ param int $mode 0 = long label , 1 = short label , 2 = Picto + short label , 3 = Picto , 4 = Picto + long label , 5 = short label + picto
* @ return string Label
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function getLibStatut ( $mode = 0 )
2011-09-11 20:35:38 +02:00
{
2015-12-19 19:48:36 +01:00
return $this -> LibStatut ( $this -> statut , $mode , $this -> billed );
2011-09-11 20:35:38 +02:00
}
/**
* Return label of a status
2012-01-19 09:53:27 +01:00
*
* @ param int $statut Id statut
* @ param int $mode 0 = Long label , 1 = Short label , 2 = Picto + Short label , 3 = Picto , 4 = Picto + Long label , 5 = Short label + Picto
2015-12-19 19:48:36 +01:00
* @ param int $billed 1 = Billed
2012-01-19 09:53:27 +01:00
* @ return string Label of status
2011-09-11 20:35:38 +02:00
*/
2015-12-19 19:48:36 +01:00
function LibStatut ( $statut , $mode = 0 , $billed = 0 )
2011-09-11 20:35:38 +02:00
{
2018-05-23 08:24:20 +02:00
global $conf , $langs ;
2018-05-16 15:23:52 +02:00
if ( empty ( $this -> statuts ) || empty ( $this -> statutshort ))
2018-04-21 16:01:05 +02:00
{
$langs -> load ( 'orders' );
$this -> statuts [ 0 ] = 'StatusOrderDraft' ;
$this -> statuts [ 1 ] = 'StatusOrderValidated' ;
$this -> statuts [ 2 ] = 'StatusOrderApproved' ;
if ( empty ( $conf -> global -> SUPPLIER_ORDER_USE_DISPATCH_STATUS )) $this -> statuts [ 3 ] = 'StatusOrderOnProcess' ;
else $this -> statuts [ 3 ] = 'StatusOrderOnProcessWithValidation' ;
$this -> statuts [ 4 ] = 'StatusOrderReceivedPartially' ;
$this -> statuts [ 5 ] = 'StatusOrderReceivedAll' ;
$this -> statuts [ 6 ] = 'StatusOrderCanceled' ; // Approved->Canceled
$this -> statuts [ 7 ] = 'StatusOrderCanceled' ; // Process running->canceled
//$this->statuts[8] = 'StatusOrderBilled'; // Everything is finished, order received totally and bill received
$this -> statuts [ 9 ] = 'StatusOrderRefused' ;
// List of language codes for status
2018-05-16 15:23:52 +02:00
$this -> statutshort [ 0 ] = 'StatusOrderDraftShort' ;
$this -> statutshort [ 1 ] = 'StatusOrderValidatedShort' ;
$this -> statutshort [ 2 ] = 'StatusOrderApprovedShort' ;
$this -> statutshort [ 3 ] = 'StatusOrderOnProcessShort' ;
$this -> statutshort [ 4 ] = 'StatusOrderReceivedPartiallyShort' ;
$this -> statutshort [ 5 ] = 'StatusOrderReceivedAllShort' ;
$this -> statutshort [ 6 ] = 'StatusOrderCanceledShort' ;
$this -> statutshort [ 7 ] = 'StatusOrderCanceledShort' ;
$this -> statutshort [ 9 ] = 'StatusOrderRefusedShort' ;
2018-04-21 16:01:05 +02:00
}
2015-11-29 15:42:20 +01:00
$billedtext = '' ;
//if ($statut==5 && $this->billed == 1) $statut = 8;
2015-12-19 19:48:36 +01:00
if ( $billed == 1 ) $billedtext = $langs -> trans ( " Billed " );
2016-08-05 09:46:17 +02:00
2011-09-11 20:35:38 +02:00
if ( $mode == 0 )
{
return $langs -> trans ( $this -> statuts [ $statut ]);
}
if ( $mode == 1 )
{
2018-05-16 15:23:52 +02:00
return $langs -> trans ( $this -> statutshort [ $statut ]);
2011-09-11 20:35:38 +02:00
}
if ( $mode == 2 )
{
return $langs -> trans ( $this -> statuts [ $statut ]);
}
if ( $mode == 3 )
{
if ( $statut == 0 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut0' );
if ( $statut == 1 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut1' );
if ( $statut == 2 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' );
if ( $statut == 3 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' );
if ( $statut == 4 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' );
if ( $statut == 5 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut6' );
if ( $statut == 6 || $statut == 7 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut5' );
if ( $statut == 9 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut5' );
}
if ( $mode == 4 )
{
2015-11-29 15:42:20 +01:00
if ( $statut == 0 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut0' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 1 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut1' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 2 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 3 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 4 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 5 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut6' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 6 || $statut == 7 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut5' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
if ( $statut == 9 ) return img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut5' ) . ' ' . $langs -> trans ( $this -> statuts [ $statut ]) . ( $billedtext ? ' - ' . $billedtext : '' );
2011-09-11 20:35:38 +02:00
}
if ( $mode == 5 )
{
2018-05-16 15:23:52 +02:00
if ( $statut == 0 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut0' );
if ( $statut == 1 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut1' );
if ( $statut == 2 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' );
if ( $statut == 3 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' );
if ( $statut == 4 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut3' );
if ( $statut == 5 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut6' );
if ( $statut == 6 || $statut == 7 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut5' );
if ( $statut == 9 ) return '<span class="hideonsmartphone">' . $langs -> trans ( $this -> statutshort [ $statut ]) . ' </span>' . img_picto ( $langs -> trans ( $this -> statuts [ $statut ]), 'statut5' );
2011-09-11 20:35:38 +02:00
}
}
/**
2015-03-15 14:04:07 +01:00
* Return clicable name ( with picto eventually )
2011-12-19 17:12:29 +01:00
*
2017-10-03 14:50:52 +02:00
* @ param int $withpicto 0 = No picto , 1 = Include picto into link , 2 = Only picto
* @ param string $option On what the link points
* @ param int $notooltip 1 = Disable tooltip
* @ param int $save_lastsearch_value - 1 = Auto , 0 = No save of lastsearch_values when clicking , 1 = Save lastsearch_values whenclicking
* @ return string Chain with URL
2011-09-11 20:35:38 +02:00
*/
2017-10-03 14:50:52 +02:00
public function getNomUrl ( $withpicto = 0 , $option = '' , $notooltip = 0 , $save_lastsearch_value =- 1 )
2011-09-11 20:35:38 +02:00
{
2015-11-16 13:25:00 +01:00
global $langs , $conf ;
2011-09-11 20:35:38 +02:00
$result = '' ;
2015-01-24 15:36:47 +01:00
$label = '<u>' . $langs -> trans ( " ShowOrder " ) . '</u>' ;
if ( ! empty ( $this -> ref ))
$label .= '<br><b>' . $langs -> trans ( 'Ref' ) . ':</b> ' . $this -> ref ;
if ( ! empty ( $this -> ref_supplier ))
$label .= '<br><b>' . $langs -> trans ( 'RefSupplier' ) . ':</b> ' . $this -> ref_supplier ;
if ( ! empty ( $this -> total_ht ))
$label .= '<br><b>' . $langs -> trans ( 'AmountHT' ) . ':</b> ' . price ( $this -> total_ht , 0 , $langs , 0 , - 1 , - 1 , $conf -> currency );
if ( ! empty ( $this -> total_tva ))
2015-11-15 15:08:54 +01:00
$label .= '<br><b>' . $langs -> trans ( 'VAT' ) . ':</b> ' . price ( $this -> total_tva , 0 , $langs , 0 , - 1 , - 1 , $conf -> currency );
2015-01-24 15:36:47 +01:00
if ( ! empty ( $this -> total_ttc ))
$label .= '<br><b>' . $langs -> trans ( 'AmountTTC' ) . ':</b> ' . price ( $this -> total_ttc , 0 , $langs , 0 , - 1 , - 1 , $conf -> currency );
2011-09-11 20:35:38 +02:00
$picto = 'order' ;
2016-11-08 11:23:40 +01:00
$url = DOL_URL_ROOT . '/fourn/commande/card.php?id=' . $this -> id ;
2017-06-30 11:40:26 +02:00
2017-10-03 14:50:52 +02:00
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' ;
}
2016-11-08 11:23:40 +01:00
$linkclose = '' ;
if ( empty ( $notooltip ))
{
if ( ! empty ( $conf -> global -> MAIN_OPTIMIZEFORTEXTBROWSER ))
{
$label = $langs -> trans ( " ShowOrder " );
$linkclose .= ' alt="' . dol_escape_htmltag ( $label , 1 ) . '"' ;
}
$linkclose .= ' title="' . dol_escape_htmltag ( $label , 1 ) . '"' ;
$linkclose .= ' class="classfortooltip"' ;
}
2017-06-30 11:40:26 +02:00
2016-11-08 11:23:40 +01:00
$linkstart = '<a href="' . $url . '"' ;
$linkstart .= $linkclose . '>' ;
$linkend = '</a>' ;
2011-09-11 20:35:38 +02:00
2017-11-05 01:00:15 +01:00
$result .= $linkstart ;
if ( $withpicto ) $result .= img_object (( $notooltip ? '' : $label ), $this -> picto , ( $notooltip ? (( $withpicto != 2 ) ? 'class="paddingright"' : '' ) : 'class="' . (( $withpicto != 2 ) ? 'paddingright ' : '' ) . 'classfortooltip"' ), 0 , 0 , $notooltip ? 0 : 1 );
if ( $withpicto != 2 ) $result .= $this -> ref ;
$result .= $linkend ;
2011-09-11 20:35:38 +02:00
return $result ;
}
/**
2016-02-16 16:45:19 +01:00
* Returns the following order reference not used depending on the numbering model activated
* defined within COMMANDE_SUPPLIER_ADDON_NUMBER
2012-01-19 09:53:27 +01:00
*
2016-02-20 11:18:02 +01:00
* @ param Company $soc company object
* @ return string free reference for the invoice
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function getNextNumRef ( $soc )
2011-09-11 20:35:38 +02:00
{
global $db , $langs , $conf ;
$langs -> load ( " orders " );
2013-04-11 17:24:17 +02:00
if ( ! empty ( $conf -> global -> COMMANDE_SUPPLIER_ADDON_NUMBER ))
2011-09-11 20:35:38 +02:00
{
2015-01-17 18:58:05 +01:00
$mybool = false ;
2013-04-11 17:24:17 +02:00
$file = $conf -> global -> COMMANDE_SUPPLIER_ADDON_NUMBER . '.php' ;
2015-01-17 18:58:05 +01:00
$classname = $conf -> global -> COMMANDE_SUPPLIER_ADDON_NUMBER ;
2011-09-11 20:35:38 +02:00
2015-01-17 18:58:05 +01:00
// Include file with class
$dirmodels = array_merge ( array ( '/' ), ( array ) $conf -> modules_parts [ 'models' ]);
2011-09-11 20:35:38 +02:00
2015-01-17 18:58:05 +01:00
foreach ( $dirmodels as $reldir ) {
2011-09-11 20:35:38 +02:00
2015-01-17 18:58:05 +01:00
$dir = dol_buildpath ( $reldir . " core/modules/supplier_order/ " );
2011-09-11 20:35:38 +02:00
2015-01-17 18:58:05 +01:00
// Load file with numbering class (if found)
$mybool |=@ include_once $dir . $file ;
2011-09-11 20:35:38 +02:00
}
2015-01-17 18:58:05 +01:00
if ( ! $mybool )
2011-09-11 20:35:38 +02:00
{
2015-01-17 18:58:05 +01:00
dol_print_error ( '' , " Failed to include file " . $file );
return '' ;
}
$obj = new $classname ();
$numref = $obj -> getNextValue ( $soc , $this );
if ( $numref != " " )
{
return $numref ;
2011-09-11 20:35:38 +02:00
}
else
2015-01-18 17:13:42 +01:00
{
2015-01-17 18:58:05 +01:00
$this -> error = $obj -> error ;
2015-01-18 17:13:42 +01:00
return - 1 ;
2011-09-11 20:35:38 +02:00
}
}
else
2015-01-18 17:13:42 +01:00
{
$this -> error = " Error_COMMANDE_SUPPLIER_ADDON_NotDefined " ;
return - 2 ;
2011-09-11 20:35:38 +02:00
}
}
2015-11-16 14:55:46 +01:00
/**
* Class invoiced the supplier order
*
2016-04-09 18:50:22 +02:00
* @ param User $user Object user making the change
* @ return int < 0 if KO , > 0 if KO
2015-11-16 14:55:46 +01:00
*/
2016-07-19 12:57:23 +02:00
public function classifyBilled ( User $user )
2015-11-16 14:55:46 +01:00
{
2016-07-19 12:57:23 +02:00
$error = 0 ;
2016-04-09 18:50:22 +02:00
$this -> db -> begin ();
2016-08-05 09:46:17 +02:00
2015-11-16 14:55:46 +01:00
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'commande_fournisseur SET billed = 1' ;
2017-10-07 13:04:31 +02:00
$sql .= ' WHERE rowid = ' . $this -> id . ' AND fk_statut > ' . self :: STATUS_DRAFT ;
2016-04-09 18:50:22 +02:00
if ( $this -> db -> query ( $sql ))
2015-11-16 14:55:46 +01:00
{
2016-04-09 18:50:22 +02:00
if ( ! $error )
{
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_CLASSIFY_BILLED' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
}
2016-08-05 09:46:17 +02:00
2016-04-09 18:50:22 +02:00
if ( ! $error )
{
$this -> billed = 1 ;
2016-08-05 09:46:17 +02:00
2016-04-09 18:50:22 +02:00
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
2015-11-16 14:55:46 +01:00
}
else
{
dol_print_error ( $this -> db );
2016-08-05 09:46:17 +02:00
2016-04-09 18:50:22 +02:00
$this -> db -> rollback ();
2015-11-16 14:55:46 +01:00
return - 1 ;
}
}
2011-09-11 20:35:38 +02:00
/**
2015-02-17 19:49:17 +01:00
* Approve a supplier order
2011-11-08 00:03:19 +01:00
*
2011-11-09 22:10:58 +01:00
* @ param User $user Object user
* @ param int $idwarehouse Id of warhouse for stock change
2016-08-04 15:46:31 +02:00
* @ param int $secondlevel 0 = Standard approval , 1 = Second level approval ( used when option SUPPLIER_ORDER_3_STEPS_TO_BE_APPROVED is set )
2011-11-09 22:10:58 +01:00
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function approve ( $user , $idwarehouse = 0 , $secondlevel = 0 )
2011-09-11 20:35:38 +02:00
{
global $langs , $conf ;
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
2011-09-11 20:35:38 +02:00
$error = 0 ;
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::approve " );
2011-09-11 20:35:38 +02:00
if ( $user -> rights -> fournisseur -> commande -> approuver )
{
2015-04-01 21:00:51 +02:00
$now = dol_now ();
2011-09-11 20:35:38 +02:00
$this -> db -> begin ();
2016-02-20 11:18:02 +01:00
// Definition of order numbering model name
2012-04-16 09:50:02 +02:00
$soc = new Societe ( $this -> db );
$soc -> fetch ( $this -> fourn_id );
// Check if object has a temporary ref
2015-10-06 16:38:27 +02:00
if ( preg_match ( '/^[\(]?PROV/i' , $this -> ref ) || empty ( $this -> ref )) // empty should not happened, but when it occurs, the test save life
2012-04-16 09:50:02 +02:00
{
$num = $this -> getNextNumRef ( $soc );
}
else
2014-10-27 03:24:45 +01:00
{
2012-04-16 09:50:02 +02:00
$num = $this -> ref ;
}
2014-10-27 03:24:45 +01:00
$this -> newref = $num ;
2012-04-16 09:50:02 +02:00
2015-04-01 21:00:51 +02:00
// Do we have to change status now ? (If double approval is required and first approval, we keep status to 1 = validated)
$movetoapprovestatus = true ;
2015-12-14 10:33:18 +01:00
$comment = '' ;
2016-08-05 09:46:17 +02:00
2012-04-15 16:49:49 +02:00
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur " ;
2012-04-15 18:41:38 +02:00
$sql .= " SET ref=' " . $this -> db -> escape ( $num ) . " ', " ;
2015-04-01 21:00:51 +02:00
if ( empty ( $secondlevel )) // standard or first level approval
{
$sql .= " date_approve=' " . $this -> db -> idate ( $now ) . " ', " ;
$sql .= " fk_user_approve = " . $user -> id ;
2016-08-04 15:46:31 +02:00
if ( ! empty ( $conf -> global -> SUPPLIER_ORDER_3_STEPS_TO_BE_APPROVED ) && $conf -> global -> MAIN_FEATURES_LEVEL > 0 && $this -> total_ht >= $conf -> global -> SUPPLIER_ORDER_3_STEPS_TO_BE_APPROVED )
2015-07-29 15:39:34 +02:00
{
2016-08-05 09:46:17 +02:00
if ( empty ( $this -> user_approve_id2 ))
2015-12-14 10:33:18 +01:00
{
$movetoapprovestatus = false ; // second level approval not done
$comment = ' (first level)' ;
}
2015-07-29 15:39:34 +02:00
}
2015-04-01 21:00:51 +02:00
}
else // request a second level approval
{
$sql .= " date_approve2=' " . $this -> db -> idate ( $now ) . " ', " ;
$sql .= " fk_user_approve2 = " . $user -> id ;
if ( empty ( $this -> user_approve_id )) $movetoapprovestatus = false ; // first level approval not done
2015-12-14 10:33:18 +01:00
$comment = ' (second level)' ;
2015-04-01 21:00:51 +02:00
}
// If double approval is required and first approval, we keep status to 1 = validated
2017-10-07 13:04:31 +02:00
if ( $movetoapprovestatus ) $sql .= " , fk_statut = " . self :: STATUS_ACCEPTED ;
else $sql .= " , fk_statut = " . self :: STATUS_VALIDATED ;
2012-04-15 16:49:49 +02:00
$sql .= " WHERE rowid = " . $this -> id ;
2017-10-07 13:04:31 +02:00
$sql .= " AND fk_statut = " . self :: STATUS_VALIDATED ;
2011-09-11 20:35:38 +02:00
if ( $this -> db -> query ( $sql ))
{
2015-02-17 19:49:17 +01:00
if ( ! empty ( $conf -> global -> SUPPLIER_ORDER_AUTOADD_USER_CONTACT ))
{
$result = $this -> add_contact ( $user -> id , 'SALESREPFOLL' , 'internal' , 1 );
2015-02-26 15:52:14 +01:00
if ( $result < 0 && $result != - 2 ) // -2 means already exists
2015-02-17 19:49:17 +01:00
{
$error ++ ;
}
}
2011-09-11 20:35:38 +02:00
// If stock is incremented on validate order, we must increment it
2015-04-01 21:00:51 +02:00
if ( ! $error && $movetoapprovestatus && ! empty ( $conf -> stock -> enabled ) && ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SUPPLIER_VALIDATE_ORDER ))
2011-09-11 20:35:38 +02:00
{
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/product/stock/class/mouvementstock.class.php' ;
2011-11-09 22:10:58 +01:00
$langs -> load ( " agenda " );
2011-09-11 20:35:38 +02:00
2011-11-08 00:03:19 +01:00
$cpt = count ( $this -> lines );
for ( $i = 0 ; $i < $cpt ; $i ++ )
2011-09-11 20:35:38 +02:00
{
// Product with reference
if ( $this -> lines [ $i ] -> fk_product > 0 )
{
2016-07-19 12:57:23 +02:00
$this -> line = $this -> lines [ $i ];
2011-09-11 20:35:38 +02:00
$mouvP = new MouvementStock ( $this -> db );
2014-03-15 02:18:39 +01:00
$mouvP -> origin = & $this ;
2011-09-11 20:35:38 +02:00
// We decrement stock of product (and sub-products)
2014-03-01 14:49:30 +01:00
$up_ht_disc = $this -> lines [ $i ] -> subprice ;
if ( ! empty ( $this -> lines [ $i ] -> remise_percent ) && empty ( $conf -> global -> STOCK_EXCLUDE_DISCOUNT_FOR_PMP )) $up_ht_disc = price2num ( $up_ht_disc * ( 100 - $this -> lines [ $i ] -> remise_percent ) / 100 , 'MU' );
$result = $mouvP -> reception ( $user , $this -> lines [ $i ] -> fk_product , $idwarehouse , $this -> lines [ $i ] -> qty , $up_ht_disc , $langs -> trans ( " OrderApprovedInDolibarr " , $this -> ref ));
2011-09-11 20:35:38 +02:00
if ( $result < 0 ) { $error ++ ; }
2016-07-19 12:57:23 +02:00
unset ( $this -> line );
2011-09-11 20:35:38 +02:00
}
}
}
2011-11-09 22:10:58 +01:00
if ( ! $error )
2011-09-11 20:35:38 +02:00
{
2014-07-11 15:32:23 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_APPROVE' , $user );
2014-08-30 18:27:34 +02:00
if ( $result < 0 ) $error ++ ;
2014-07-11 15:32:23 +02:00
// End call triggers
2011-09-11 20:35:38 +02:00
}
2011-11-09 22:10:58 +01:00
if ( ! $error )
2011-09-11 20:35:38 +02:00
{
2015-11-25 10:19:11 +01:00
$this -> ref = $this -> newref ;
2016-08-05 09:46:17 +02:00
2017-10-07 13:04:31 +02:00
if ( $movetoapprovestatus ) $this -> statut = self :: STATUS_ACCEPTED ;
else $this -> statut = self :: STATUS_VALIDATED ;
2015-04-01 21:00:51 +02:00
if ( empty ( $secondlevel )) // standard or first level approval
{
$this -> date_approve = $now ;
$this -> user_approve_id = $user -> id ;
}
else // request a second level approval
{
$this -> date_approve2 = $now ;
$this -> user_approve_id2 = $user -> id ;
}
2011-09-11 20:35:38 +02:00
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
$this -> db -> rollback ();
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
}
else
{
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::approve Not Authorized " , LOG_ERR );
2011-09-11 20:35:38 +02:00
}
return - 1 ;
}
/**
* Refuse an order
2012-01-19 09:53:27 +01:00
*
2011-12-19 17:12:29 +01:00
* @ param User $user User making action
* @ return int 0 if Ok , < 0 if Ko
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function refuse ( $user )
2011-09-11 20:35:38 +02:00
{
global $conf , $langs ;
2011-12-05 19:41:38 +01:00
$error = 0 ;
2012-01-19 09:53:27 +01:00
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::refuse " );
2011-09-11 20:35:38 +02:00
$result = 0 ;
if ( $user -> rights -> fournisseur -> commande -> approuver )
{
2014-06-24 10:53:18 +02:00
$this -> db -> begin ();
2014-06-28 14:53:28 +02:00
2017-10-07 13:04:31 +02:00
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur SET fk_statut = " . self :: STATUS_REFUSED ;
2011-09-11 20:35:38 +02:00
$sql .= " WHERE rowid = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
$result = 0 ;
if ( $error == 0 )
{
2014-07-11 15:32:23 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_REFUSE' , $user );
if ( $result < 0 )
2014-06-28 14:53:28 +02:00
{
2014-06-24 10:53:18 +02:00
$error ++ ;
2014-06-28 14:53:28 +02:00
$this -> db -> rollback ();
2014-06-24 10:53:18 +02:00
}
2014-08-30 18:27:34 +02:00
else
2014-07-11 15:32:23 +02:00
$this -> db -> commit ();
// End call triggers
2011-09-11 20:35:38 +02:00
}
}
else
{
2014-06-24 10:53:18 +02:00
$this -> db -> rollback ();
$this -> error = $this -> db -> lasterror ();
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::refuse Error -1 " );
2011-09-11 20:35:38 +02:00
$result = - 1 ;
}
}
else
{
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::refuse Not Authorized " );
2011-09-11 20:35:38 +02:00
}
return $result ;
}
/**
* Cancel an approved order .
2016-02-20 11:18:02 +01:00
* The cancellation is done after approval
2011-12-19 17:12:29 +01:00
*
2012-04-28 18:49:01 +02:00
* @ param User $user User making action
* @ param int $idwarehouse Id warehouse to use for stock change ( not used for supplier orders ) .
* @ return int > 0 if Ok , < 0 if Ko
2011-09-11 20:35:38 +02:00
*/
2012-04-28 18:49:01 +02:00
function Cancel ( $user , $idwarehouse =- 1 )
2011-09-11 20:35:38 +02:00
{
global $langs , $conf ;
2011-12-05 19:41:38 +01:00
$error = 0 ;
2012-01-19 09:53:27 +01:00
2011-09-11 20:35:38 +02:00
//dol_syslog("CommandeFournisseur::Cancel");
$result = 0 ;
if ( $user -> rights -> fournisseur -> commande -> commander )
{
2017-10-07 13:04:31 +02:00
$statut = self :: STATUS_CANCELED ;
2011-09-11 20:35:38 +02:00
$this -> db -> begin ();
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur SET fk_statut = " . $statut ;
$sql .= " WHERE rowid = " . $this -> id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::cancel " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
if ( $this -> db -> query ( $sql ))
{
$result = 0 ;
2014-07-11 15:32:23 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_CANCEL' , $user );
2014-08-30 18:27:34 +02:00
if ( $result < 0 ) $error ++ ;
2014-07-11 15:32:23 +02:00
// End call triggers
2011-09-11 20:35:38 +02:00
if ( $error == 0 )
{
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
$this -> db -> rollback ();
$this -> error = $this -> db -> lasterror ();
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::cancel " . $this -> error );
2011-09-11 20:35:38 +02:00
return - 1 ;
}
}
else
{
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::cancel Not Authorized " );
2011-09-11 20:35:38 +02:00
return - 1 ;
}
}
/**
2016-04-09 18:50:22 +02:00
* Submit a supplier order to supplier
2012-01-19 09:53:27 +01:00
*
2011-12-19 17:12:29 +01:00
* @ param User $user User making change
* @ param date $date Date
* @ param int $methode Method
* @ param string $comment Comment
2016-04-09 18:50:22 +02:00
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function commande ( $user , $date , $methode , $comment = '' )
2011-09-11 20:35:38 +02:00
{
2015-11-07 11:13:58 +01:00
global $langs ;
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::commande " );
2016-04-09 18:50:22 +02:00
$error = 0 ;
2011-09-11 20:35:38 +02:00
if ( $user -> rights -> fournisseur -> commande -> commander )
{
2016-04-09 18:50:22 +02:00
$this -> db -> begin ();
2017-10-07 13:04:31 +02:00
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur SET fk_statut = " . self :: STATUS_ORDERSENT . " , fk_input_method= " . $methode . " , date_commande=' " . $this -> db -> idate ( $date ) . " ' " ;
2011-09-11 20:35:38 +02:00
$sql .= " WHERE rowid = " . $this -> id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::commande " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
if ( $this -> db -> query ( $sql ))
{
2017-10-07 13:04:31 +02:00
$this -> statut = self :: STATUS_ORDERSENT ;
2015-11-07 09:49:25 +01:00
$this -> methode_commande_id = $methode ;
2016-10-29 19:00:43 +02:00
$this -> date_commande = $date ;
2016-08-05 09:46:17 +02:00
2016-04-09 18:50:22 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_SUBMIT' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
2011-09-11 20:35:38 +02:00
}
else
{
2016-04-09 18:50:22 +02:00
$error ++ ;
2015-11-07 09:49:25 +01:00
$this -> error = $this -> db -> lasterror ();
$this -> errors [] = $this -> db -> lasterror ();
2016-04-09 18:50:22 +02:00
}
2016-08-05 09:46:17 +02:00
2016-04-09 18:50:22 +02:00
if ( ! $error )
{
$this -> db -> commit ();
}
else
{
$this -> db -> rollback ();
2011-09-11 20:35:38 +02:00
}
}
else
{
2016-04-09 18:50:22 +02:00
$error ++ ;
2015-11-07 11:13:58 +01:00
$this -> error = $langs -> trans ( 'NotAuthorized' );
2015-12-15 14:04:52 +01:00
$this -> errors [] = $langs -> trans ( 'NotAuthorized' );
2016-10-29 19:00:43 +02:00
dol_syslog ( get_class ( $this ) . " ::commande User not Authorized " , LOG_WARNING );
2011-09-11 20:35:38 +02:00
}
2016-04-09 18:50:22 +02:00
return ( $error ? - 1 : 1 );
2011-09-11 20:35:38 +02:00
}
/**
2012-04-28 18:49:01 +02:00
* Create order with draft status
2012-01-19 09:53:27 +01:00
*
2012-04-28 18:49:01 +02:00
* @ param User $user User making creation
* @ param int $notrigger Disable all triggers
* @ return int < 0 if KO , Id of supplier order if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function create ( $user , $notrigger = 0 )
2011-09-11 20:35:38 +02:00
{
2013-04-08 17:17:13 +02:00
global $langs , $conf , $hookmanager ;
2011-09-11 20:35:38 +02:00
$this -> db -> begin ();
2012-01-19 09:53:27 +01:00
2011-12-05 19:41:38 +01:00
$error = 0 ;
2011-09-11 20:35:38 +02:00
$now = dol_now ();
2013-09-08 23:38:40 +02:00
// Clean parameters
if ( empty ( $this -> source )) $this -> source = 0 ;
2011-09-11 20:35:38 +02:00
2017-11-02 18:14:55 +01:00
// Multicurrency (test on $this->multicurrency_tx because we should take the default rate only if not using origin rate)
2016-02-16 23:58:21 +01:00
if ( ! empty ( $this -> multicurrency_code ) && empty ( $this -> multicurrency_tx )) list ( $this -> fk_multicurrency , $this -> multicurrency_tx ) = MultiCurrency :: getIdAndTxFromCode ( $this -> db , $this -> multicurrency_code );
else $this -> fk_multicurrency = MultiCurrency :: getIdFromCode ( $this -> db , $this -> multicurrency_code );
if ( empty ( $this -> fk_multicurrency ))
{
$this -> multicurrency_code = $conf -> currency ;
$this -> fk_multicurrency = 0 ;
$this -> multicurrency_tx = 1 ;
}
2016-08-05 09:46:17 +02:00
2016-02-22 13:35:46 +01:00
// We set order into draft status
2011-09-11 20:35:38 +02:00
$this -> brouillon = 1 ;
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " commande_fournisseur ( " ;
$sql .= " ref " ;
2013-03-12 15:06:38 +01:00
$sql .= " , ref_supplier " ;
2013-04-09 17:18:07 +02:00
$sql .= " , note_private " ;
2013-03-12 15:06:38 +01:00
$sql .= " , note_public " ;
2011-09-11 20:35:38 +02:00
$sql .= " , entity " ;
$sql .= " , fk_soc " ;
2016-08-03 01:42:05 +02:00
$sql .= " , fk_projet " ;
2011-09-11 20:35:38 +02:00
$sql .= " , date_creation " ;
2015-02-22 17:41:02 +01:00
$sql .= " , date_livraison " ;
2011-09-11 20:35:38 +02:00
$sql .= " , fk_user_author " ;
$sql .= " , fk_statut " ;
$sql .= " , source " ;
$sql .= " , model_pdf " ;
2013-07-30 16:21:39 +02:00
$sql .= " , fk_mode_reglement " ;
$sql .= " , fk_cond_reglement " ;
2014-07-09 18:00:21 +02:00
$sql .= " , fk_account " ;
2015-02-23 09:16:14 +01:00
$sql .= " , fk_incoterms, location_incoterms " ;
2016-02-16 23:58:21 +01:00
$sql .= " , fk_multicurrency " ;
$sql .= " , multicurrency_code " ;
$sql .= " , multicurrency_tx " ;
2011-09-11 20:35:38 +02:00
$sql .= " ) " ;
$sql .= " VALUES ( " ;
$sql .= " '' " ;
2015-09-12 11:23:44 +02:00
$sql .= " , ' " . $this -> db -> escape ( $this -> ref_supplier ) . " ' " ;
2015-02-22 17:41:02 +01:00
$sql .= " , ' " . $this -> db -> escape ( $this -> note_private ) . " ' " ;
$sql .= " , ' " . $this -> db -> escape ( $this -> note_public ) . " ' " ;
2011-09-11 20:35:38 +02:00
$sql .= " , " . $conf -> entity ;
$sql .= " , " . $this -> socid ;
2016-08-05 09:46:17 +02:00
$sql .= " , " . ( $this -> fk_project > 0 ? $this -> fk_project : " null " );
2013-05-07 17:09:31 +02:00
$sql .= " , ' " . $this -> db -> idate ( $now ) . " ' " ;
2015-02-22 17:41:02 +01:00
$sql .= " , " . ( $this -> date_livraison ? " ' " . $this -> db -> idate ( $this -> date_livraison ) . " ' " : " null " );
2011-09-11 20:35:38 +02:00
$sql .= " , " . $user -> id ;
2017-10-07 13:04:31 +02:00
$sql .= " , " . self :: STATUS_DRAFT ;
2015-09-12 11:23:44 +02:00
$sql .= " , " . $this -> db -> escape ( $this -> source );
2011-09-11 20:35:38 +02:00
$sql .= " , ' " . $conf -> global -> COMMANDE_SUPPLIER_ADDON_PDF . " ' " ;
2013-09-08 23:38:40 +02:00
$sql .= " , " . ( $this -> mode_reglement_id > 0 ? $this -> mode_reglement_id : 'null' );
$sql .= " , " . ( $this -> cond_reglement_id > 0 ? $this -> cond_reglement_id : 'null' );
2014-07-09 18:00:21 +02:00
$sql .= " , " . ( $this -> fk_account > 0 ? $this -> fk_account : 'NULL' );
2015-02-23 09:16:14 +01:00
$sql .= " , " . ( int ) $this -> fk_incoterms ;
$sql .= " , ' " . $this -> db -> escape ( $this -> location_incoterms ) . " ' " ;
2016-02-16 23:58:21 +01:00
$sql .= " , " . ( int ) $this -> fk_multicurrency ;
$sql .= " , ' " . $this -> db -> escape ( $this -> multicurrency_code ) . " ' " ;
$sql .= " , " . ( double ) $this -> multicurrency_tx ;
2011-09-11 20:35:38 +02:00
$sql .= " ) " ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::create " , LOG_DEBUG );
2012-01-19 09:53:27 +01:00
if ( $this -> db -> query ( $sql ))
2011-09-11 20:35:38 +02:00
{
$this -> id = $this -> db -> last_insert_id ( MAIN_DB_PREFIX . " commande_fournisseur " );
2012-12-01 15:45:05 +01:00
if ( $this -> id ) {
$num = count ( $this -> lines );
2016-02-22 13:35:46 +01:00
// insert products details into database
2012-12-01 15:45:05 +01:00
for ( $i = 0 ; $i < $num ; $i ++ )
{
2018-12-04 14:29:47 +01:00
2018-10-30 10:26:59 +01:00
$this -> special_code = $this -> lines [ $i ] -> special_code ; // TODO : remove this in 9.0 and add special_code param to addline()
2018-12-04 14:29:47 +01:00
2017-08-23 15:02:38 +02:00
$result = $this -> addline ( // This include test on qty if option SUPPLIER_ORDER_WITH_NOPRICEDEFINED is not set
2012-12-01 15:45:05 +01:00
$this -> lines [ $i ] -> desc ,
$this -> lines [ $i ] -> subprice ,
$this -> lines [ $i ] -> qty ,
$this -> lines [ $i ] -> tva_tx ,
$this -> lines [ $i ] -> localtax1_tx ,
$this -> lines [ $i ] -> localtax2_tx ,
$this -> lines [ $i ] -> fk_product ,
0 ,
2016-12-13 13:22:24 +01:00
$this -> lines [ $i ] -> ref_fourn , // $this->lines[$i]->ref_fourn comes from field ref into table of lines. Value may ba a ref that does not exists anymore, so we first try with value of product
2012-12-01 15:45:05 +01:00
$this -> lines [ $i ] -> remise_percent ,
'HT' ,
0 ,
2016-09-30 20:04:49 +02:00
$this -> lines [ $i ] -> product_type ,
$this -> lines [ $i ] -> info_bits ,
false ,
$this -> lines [ $i ] -> date_start ,
$this -> lines [ $i ] -> date_end ,
0 ,
$this -> lines [ $i ] -> fk_unit
2012-12-01 15:45:05 +01:00
);
if ( $result < 0 )
{
2013-06-09 16:15:49 +02:00
dol_syslog ( get_class ( $this ) . " ::create " . $this -> error , LOG_WARNING ); // do not use dol_print_error here as it may be a functionnal error
2012-12-01 15:45:05 +01:00
$this -> db -> rollback ();
return - 1 ;
}
}
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur " ;
$sql .= " SET ref='(PROV " . $this -> id . " )' " ;
$sql .= " WHERE rowid= " . $this -> id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::create " , LOG_DEBUG );
2012-12-01 15:45:05 +01:00
if ( $this -> db -> query ( $sql ))
{
2015-03-04 17:54:43 +01:00
// Add link with price request and supplier order
2015-02-03 16:54:04 +01:00
if ( $this -> id )
2017-10-19 19:06:48 +02:00
{
$this -> ref = " (PROV " . $this -> id . " ) " ;
if ( ! empty ( $this -> linkedObjectsIds ) && empty ( $this -> linked_objects )) // To use new linkedObjectsIds instead of old linked_objects
{
$this -> linked_objects = $this -> linkedObjectsIds ; // TODO Replace linked_objects with linkedObjectsIds
}
// Add object linked
if ( ! $error && $this -> id && is_array ( $this -> linked_objects ) && ! empty ( $this -> linked_objects ))
{
foreach ( $this -> linked_objects as $origin => $tmp_origin_id )
{
if ( is_array ( $tmp_origin_id )) // New behaviour, if linked_object can have several links per type, so is something like array('contract'=>array(id1, id2, ...))
{
foreach ( $tmp_origin_id as $origin_id )
{
$ret = $this -> add_object_linked ( $origin , $origin_id );
if ( ! $ret )
{
dol_print_error ( $this -> db );
$error ++ ;
}
}
}
else // Old behaviour, if linked_object has only one link per type, so is something like array('contract'=>id1))
{
$origin_id = $tmp_origin_id ;
$ret = $this -> add_object_linked ( $origin , $origin_id );
if ( ! $ret )
{
dol_print_error ( $this -> db );
$error ++ ;
}
}
}
}
}
2013-06-09 16:15:49 +02:00
2015-04-03 11:00:52 +02:00
if ( ! $error )
{
$result = $this -> insertExtraFields ();
if ( $result < 0 ) $error ++ ;
}
2015-03-04 17:54:43 +01:00
if ( ! $error && ! $notrigger )
2012-12-01 15:45:05 +01:00
{
2014-07-11 15:32:23 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_CREATE' , $user );
2014-08-30 18:27:34 +02:00
if ( $result < 0 )
2014-06-24 10:53:18 +02:00
{
$this -> db -> rollback ();
return - 1 ;
}
2014-07-11 15:32:23 +02:00
// End call triggers
2012-12-01 15:45:05 +01:00
}
$this -> db -> commit ();
return $this -> id ;
}
else
{
2015-03-04 17:54:43 +01:00
$this -> error = $this -> db -> lasterror ();
2012-12-01 15:45:05 +01:00
$this -> db -> rollback ();
return - 2 ;
}
}
}
else
{
2015-03-04 17:54:43 +01:00
$this -> error = $this -> db -> lasterror ();
2012-12-01 15:45:05 +01:00
$this -> db -> rollback ();
return - 1 ;
}
}
2011-09-11 20:35:38 +02:00
2012-12-01 15:45:05 +01:00
/**
* Load an object from its id and create a new one in database
*
* @ return int New id of clone
*/
2016-07-19 12:57:23 +02:00
public function createFromClone ()
2012-12-01 15:45:05 +01:00
{
2013-01-26 10:35:30 +01:00
global $conf , $user , $langs , $hookmanager ;
2011-09-11 20:35:38 +02:00
2012-12-01 15:45:05 +01:00
$error = 0 ;
2015-02-26 13:03:17 +01:00
$this -> context [ 'createfromclone' ] = 'createfromclone' ;
$this -> db -> begin ();
2012-12-01 15:45:05 +01:00
2015-09-24 16:32:48 +02:00
// Load source object
$objFrom = clone $this ;
2012-12-01 15:45:05 +01:00
$this -> id = 0 ;
2017-10-07 13:04:31 +02:00
$this -> statut = self :: STATUS_DRAFT ;
2012-12-01 15:45:05 +01:00
// Clear fields
$this -> user_author_id = $user -> id ;
$this -> user_valid = '' ;
$this -> date_creation = '' ;
$this -> date_validation = '' ;
2013-09-08 23:38:40 +02:00
$this -> ref_supplier = '' ;
2015-04-01 21:00:51 +02:00
$this -> user_approve_id = '' ;
$this -> user_approve_id2 = '' ;
$this -> date_approve = '' ;
$this -> date_approve2 = '' ;
2012-12-01 15:45:05 +01:00
// Create clone
$result = $this -> create ( $user );
if ( $result < 0 ) $error ++ ;
if ( ! $error )
{
// Hook of thirdparty module
if ( is_object ( $hookmanager ))
2011-09-11 20:35:38 +02:00
{
2012-12-01 15:45:05 +01:00
$parameters = array ( 'objFrom' => $objFrom );
$action = '' ;
$reshook = $hookmanager -> executeHooks ( 'createFrom' , $parameters , $this , $action ); // Note that $action and $object may have been modified by some hooks
if ( $reshook < 0 ) $error ++ ;
2011-09-11 20:35:38 +02:00
}
2012-12-01 15:45:05 +01:00
}
2015-02-26 13:03:17 +01:00
unset ( $this -> context [ 'createfromclone' ]);
// End
2012-12-01 15:45:05 +01:00
if ( ! $error )
{
$this -> db -> commit ();
return $this -> id ;
2011-09-11 20:35:38 +02:00
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Add order line
2011-12-05 19:41:38 +01:00
*
2011-12-19 17:12:29 +01:00
* @ param string $desc Description
2014-09-18 12:02:17 +02:00
* @ param float $pu_ht Unit price
* @ param float $qty Quantity
* @ param float $txtva Taux tva
* @ param float $txlocaltax1 Localtax1 tax
* @ param float $txlocaltax2 Localtax2 tax
2016-09-11 16:05:38 +02:00
* @ param int $fk_product Id product
2011-12-19 17:12:29 +01:00
* @ param int $fk_prod_fourn_price Id supplier price
2017-11-12 16:06:08 +01:00
* @ param string $ref_supplier Supplier reference price
2014-09-18 12:02:17 +02:00
* @ param float $remise_percent Remise
2011-12-19 17:12:29 +01:00
* @ param string $price_base_type HT or TTC
2014-09-18 12:02:17 +02:00
* @ param float $pu_ttc Unit price TTC
2011-12-19 17:12:29 +01:00
* @ param int $type Type of line ( 0 = product , 1 = service )
2012-01-19 09:53:27 +01:00
* @ param int $info_bits More information
2014-09-18 12:02:17 +02:00
* @ param bool $notrigger Disable triggers
* @ param int $date_start Date start of service
* @ param int $date_end Date end of service
2015-02-28 04:59:27 +01:00
* @ param array $array_options extrafields array
2015-04-21 15:49:58 +02:00
* @ param string $fk_unit Code of the unit to use . Null to use the default one
2016-12-11 02:09:57 +01:00
* @ param string $pu_ht_devise Amount in currency
2017-03-23 12:35:43 +01:00
* @ param string $origin 'order' , ...
* @ param int $origin_id Id of origin object
2011-12-19 17:12:29 +01:00
* @ return int <= 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2017-11-12 16:06:08 +01:00
public function addline ( $desc , $pu_ht , $qty , $txtva , $txlocaltax1 = 0.0 , $txlocaltax2 = 0.0 , $fk_product = 0 , $fk_prod_fourn_price = 0 , $ref_supplier = '' , $remise_percent = 0.0 , $price_base_type = 'HT' , $pu_ttc = 0.0 , $type = 0 , $info_bits = 0 , $notrigger = false , $date_start = null , $date_end = null , $array_options = 0 , $fk_unit = null , $pu_ht_devise = 0 , $origin = '' , $origin_id = 0 )
2011-09-11 20:35:38 +02:00
{
2016-05-17 22:59:46 +02:00
global $langs , $mysoc , $conf ;
2015-11-16 13:24:11 +01:00
$error = 0 ;
2011-09-11 20:35:38 +02:00
2018-05-30 12:13:18 +02:00
dol_syslog ( get_class ( $this ) . " ::addline $desc , $pu_ht , $qty , $txtva , $txlocaltax1 , $txlocaltax2 , $fk_product , $fk_prod_fourn_price , $ref_supplier , $remise_percent , $price_base_type , $pu_ttc , $type , $info_bits , $notrigger , $date_start , $date_end , $fk_unit , $pu_ht_devise , $origin , $origin_id " );
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php' ;
2011-09-11 20:35:38 +02:00
2018-12-03 12:28:17 +01:00
if ( $this -> statut == self :: STATUS_DRAFT )
2018-11-27 11:36:31 +01:00
{
2018-12-03 12:28:17 +01:00
include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php' ;
// Clean parameters
if ( ! $qty ) $qty = 1 ;
if ( ! $info_bits ) $info_bits = 0 ;
if ( empty ( $txtva )) $txtva = 0 ;
if ( empty ( $txlocaltax1 )) $txlocaltax1 = 0 ;
if ( empty ( $txlocaltax2 )) $txlocaltax2 = 0 ;
if ( empty ( $remise_percent )) $remise_percent = 0 ;
$remise_percent = price2num ( $remise_percent );
$qty = price2num ( $qty );
$pu_ht = price2num ( $pu_ht );
$pu_ht_devise = price2num ( $pu_ht_devise );
$pu_ttc = price2num ( $pu_ttc );
if ( ! preg_match ( '/\((.*)\)/' , $txtva )) {
$txtva = price2num ( $txtva ); // $txtva can have format '5.0(XXX)' or '5'
}
$txlocaltax1 = price2num ( $txlocaltax1 );
$txlocaltax2 = price2num ( $txlocaltax2 );
if ( $price_base_type == 'HT' )
{
$pu = $pu_ht ;
}
else
{
$pu = $pu_ttc ;
}
$desc = trim ( $desc );
2018-11-27 11:36:31 +01:00
2018-12-03 12:28:17 +01:00
// Check parameters
if ( $qty < 1 && ! $fk_product )
{
$this -> error = $langs -> trans ( " ErrorFieldRequired " , $langs -> trans ( " Product " ));
return - 1 ;
}
if ( $type < 0 ) return - 1 ;
2017-06-30 11:40:26 +02:00
2011-09-11 20:35:38 +02:00
$this -> db -> begin ();
2016-05-17 22:59:46 +02:00
if ( $fk_product > 0 )
2011-09-11 20:35:38 +02:00
{
2018-04-24 12:57:31 +02:00
if ( ! empty ( $conf -> global -> SUPPLIER_ORDER_WITH_PREDEFINED_PRICES_ONLY ))
2011-09-11 20:35:38 +02:00
{
2016-05-17 22:59:46 +02:00
// Check quantity is enough
2017-11-12 16:06:08 +01:00
dol_syslog ( get_class ( $this ) . " ::addline we check supplier prices fk_product= " . $fk_product . " fk_prod_fourn_price= " . $fk_prod_fourn_price . " qty= " . $qty . " ref_supplier= " . $ref_supplier );
2016-05-17 22:59:46 +02:00
$prod = new Product ( $this -> db , $fk_product );
if ( $prod -> fetch ( $fk_product ) > 0 )
2011-09-11 20:35:38 +02:00
{
2016-12-13 13:22:24 +01:00
$product_type = $prod -> type ;
2017-03-16 10:05:50 +01:00
$label = $prod -> label ;
2017-06-30 11:40:26 +02:00
2017-11-12 16:06:08 +01:00
// We use 'none' instead of $ref_supplier, because fourn_ref may not exists anymore. So we will take the first supplier price ok.
2016-12-13 13:22:24 +01:00
// If we want a dedicated supplier price, we must provide $fk_prod_fourn_price.
2017-11-12 16:06:08 +01:00
$result = $prod -> get_buyprice ( $fk_prod_fourn_price , $qty , $fk_product , 'none' , ( $this -> fk_soc ? $this -> fk_soc : $this -> socid )); // Search on couple $fk_prod_fourn_price/$qty first, then on triplet $qty/$fk_product/$ref_supplier/$this->fk_soc
2018-05-30 11:59:23 +02:00
// If supplier order created from customer order, we take best supplier price
// If $pu (defined previously from pu_ht or pu_ttc) is not defined at all, we also take the best supplier price
if ( $result > 0 && ( $origin == 'commande' || $pu === '' ))
2016-05-17 22:59:46 +02:00
{
2018-04-24 12:57:31 +02:00
$pu = $prod -> fourn_pu ; // Unit price supplier price set by get_buyprice
$ref_supplier = $prod -> ref_supplier ; // Ref supplier price set by get_buyprice
// is remise percent not keyed but present for the product we add it
2018-05-30 12:13:18 +02:00
if ( $remise_percent == 0 && $prod -> remise_percent != 0 ) $remise_percent = $prod -> remise_percent ;
2016-05-17 22:59:46 +02:00
}
2016-12-13 13:22:24 +01:00
if ( $result == 0 ) // If result == 0, we failed to found the supplier reference price
{
$langs -> load ( " errors " );
$this -> error = " Ref " . $prod -> ref . " " . $langs -> trans ( " ErrorQtyTooLowForThisSupplier " );
$this -> db -> rollback ();
dol_syslog ( get_class ( $this ) . " ::addline we did not found supplier price, so we can't guess unit price " );
2017-06-30 11:40:26 +02:00
//$pu = $prod->fourn_pu; // We do not overwrite unit price
2016-12-13 13:22:24 +01:00
//$ref = $prod->ref_fourn; // We do not overwrite ref supplier price
return - 1 ;
2016-05-17 22:59:46 +02:00
}
2016-12-13 13:22:24 +01:00
if ( $result == - 1 )
2016-05-17 22:59:46 +02:00
{
$langs -> load ( " errors " );
$this -> error = " Ref " . $prod -> ref . " " . $langs -> trans ( " ErrorQtyTooLowForThisSupplier " );
$this -> db -> rollback ();
dol_syslog ( get_class ( $this ) . " ::addline result= " . $result . " - " . $this -> error , LOG_DEBUG );
return - 1 ;
}
if ( $result < - 1 )
{
$this -> error = $prod -> error ;
$this -> db -> rollback ();
dol_syslog ( get_class ( $this ) . " ::addline result= " . $result . " - " . $this -> error , LOG_ERR );
return - 1 ;
}
2011-09-11 20:35:38 +02:00
}
2016-05-17 22:59:46 +02:00
else
{
2011-09-11 20:35:38 +02:00
$this -> error = $prod -> error ;
2018-04-24 12:57:31 +02:00
$this -> db -> rollback ();
2011-09-11 20:35:38 +02:00
return - 1 ;
}
}
}
else
{
$product_type = $type ;
}
2018-12-04 14:54:58 +01:00
if ( $conf -> multicurrency -> enabled && $pu_ht_devise > 0 ) {
$pu = 0 ;
}
2013-11-19 21:08:02 +01:00
2014-07-04 10:25:05 +02:00
$localtaxes_type = getLocalTaxesFromRate ( $txtva , 0 , $mysoc , $this -> thirdparty );
2016-08-05 09:46:17 +02:00
2016-10-29 21:02:08 +02:00
// Clean vat code
$vat_src_code = '' ;
if ( preg_match ( '/\((.*)\)/' , $txtva , $reg ))
{
$vat_src_code = $reg [ 1 ];
$txtva = preg_replace ( '/\s*\(.*\)/' , '' , $txtva ); // Remove code into vatrate.
}
2017-06-30 11:40:26 +02:00
2018-12-04 14:54:58 +01:00
// Calcul du total TTC et de la TVA pour la ligne a partir de
// qty, pu, remise_percent et txtva
// TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
// la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
2018-02-23 11:06:07 +01:00
2016-12-11 02:09:57 +01:00
$tabprice = calcul_price_total ( $qty , $pu , $remise_percent , $txtva , $txlocaltax1 , $txlocaltax2 , 0 , $price_base_type , $info_bits , $product_type , $this -> thirdparty , $localtaxes_type , 100 , $this -> multicurrency_tx , $pu_ht_devise );
2018-06-16 13:49:28 +02:00
2011-09-11 20:35:38 +02:00
$total_ht = $tabprice [ 0 ];
$total_tva = $tabprice [ 1 ];
$total_ttc = $tabprice [ 2 ];
$total_localtax1 = $tabprice [ 9 ];
$total_localtax2 = $tabprice [ 10 ];
2018-02-23 11:06:07 +01:00
$pu = $pu_ht = $tabprice [ 3 ];
2011-09-11 20:35:38 +02:00
2016-02-16 23:58:21 +01:00
// MultiCurrency
$multicurrency_total_ht = $tabprice [ 16 ];
$multicurrency_total_tva = $tabprice [ 17 ];
$multicurrency_total_ttc = $tabprice [ 18 ];
2016-12-11 02:09:57 +01:00
$pu_ht_devise = $tabprice [ 19 ];
2016-08-05 09:46:17 +02:00
2013-09-11 16:44:34 +02:00
$localtax1_type = $localtaxes_type [ 0 ];
$localtax2_type = $localtaxes_type [ 2 ];
2011-09-11 20:35:38 +02:00
$subprice = price2num ( $pu , 'MU' );
2017-06-30 11:40:26 +02:00
2017-04-26 16:12:27 +02:00
$rangmax = $this -> line_max ();
$rang = $rangmax + 1 ;
2011-09-11 20:35:38 +02:00
2016-07-19 12:57:23 +02:00
// Insert line
$this -> line = new CommandeFournisseurLigne ( $this -> db );
$this -> line -> context = $this -> context ;
$this -> line -> fk_commande = $this -> id ;
$this -> line -> label = $label ;
2016-09-13 18:41:13 +02:00
$this -> line -> ref_fourn = $ref_supplier ;
$this -> line -> ref_supplier = $ref_supplier ;
2016-07-19 12:57:23 +02:00
$this -> line -> desc = $desc ;
$this -> line -> qty = $qty ;
$this -> line -> tva_tx = $txtva ;
2018-01-05 01:43:51 +01:00
$this -> line -> localtax1_tx = ( $total_localtax1 ? $localtaxes_type [ 1 ] : 0 );
$this -> line -> localtax2_tx = ( $total_localtax2 ? $localtaxes_type [ 3 ] : 0 );
2016-07-19 12:57:23 +02:00
$this -> line -> localtax1_type = $localtaxes_type [ 0 ];
$this -> line -> localtax2_type = $localtaxes_type [ 2 ];
$this -> line -> fk_product = $fk_product ;
$this -> line -> product_type = $product_type ;
$this -> line -> remise_percent = $remise_percent ;
$this -> line -> subprice = $pu_ht ;
2018-04-13 15:53:49 +02:00
$this -> line -> rang = $rang ;
2016-07-19 12:57:23 +02:00
$this -> line -> info_bits = $info_bits ;
2017-06-30 11:40:26 +02:00
2016-10-29 21:02:08 +02:00
$this -> line -> vat_src_code = $vat_src_code ;
2016-07-19 12:57:23 +02:00
$this -> line -> total_ht = $total_ht ;
$this -> line -> total_tva = $total_tva ;
$this -> line -> total_localtax1 = $total_localtax1 ;
$this -> line -> total_localtax2 = $total_localtax2 ;
$this -> line -> total_ttc = $total_ttc ;
$this -> line -> product_type = $type ;
$this -> line -> special_code = $this -> special_code ;
2017-03-23 12:35:43 +01:00
$this -> line -> origin = $origin ;
$this -> line -> origin_id = $origin_id ;
2016-07-19 12:57:23 +02:00
$this -> line -> fk_unit = $fk_unit ;
$this -> line -> date_start = $date_start ;
$this -> line -> date_end = $date_end ;
// Multicurrency
$this -> line -> fk_multicurrency = $this -> fk_multicurrency ;
$this -> line -> multicurrency_code = $this -> multicurrency_code ;
2016-12-11 02:09:57 +01:00
$this -> line -> multicurrency_subprice = $pu_ht_devise ;
2016-07-19 12:57:23 +02:00
$this -> line -> multicurrency_total_ht = $multicurrency_total_ht ;
$this -> line -> multicurrency_total_tva = $multicurrency_total_tva ;
$this -> line -> multicurrency_total_ttc = $multicurrency_total_ttc ;
2016-12-11 02:09:57 +01:00
$this -> line -> subprice = $pu_ht ;
2016-07-19 12:57:23 +02:00
$this -> line -> price = $this -> line -> subprice ;
$this -> line -> remise_percent = $remise_percent ;
if ( is_array ( $array_options ) && count ( $array_options ) > 0 ) {
$this -> line -> array_options = $array_options ;
}
2011-09-11 20:35:38 +02:00
2016-07-19 12:57:23 +02:00
$result = $this -> line -> insert ( $notrigger );
if ( $result > 0 )
2011-09-11 20:35:38 +02:00
{
2016-07-19 12:57:23 +02:00
// Reorder if child line
if ( ! empty ( $fk_parent_line )) $this -> line_order ( true , 'DESC' );
2015-02-28 04:59:27 +01:00
2016-07-19 12:57:23 +02:00
// Mise a jour informations denormalisees au niveau de la commande meme
2017-06-30 11:40:26 +02:00
$result = $this -> update_price ( 1 , 'auto' , 0 , $this -> thirdparty ); // This method is designed to add line from user input so total calculation must be done using 'auto' mode.
2016-07-19 12:57:23 +02:00
if ( $result > 0 )
Add: hooks and triggers for a lot of core modules (action/calendrier, deplacement, dons, tva, contact/tiers, contrat, product lines, expedition, fournisseur commandes et factures, fiche intervention, projet et taches)
Signed-off-by: Stephen L. <lrq3000@gmail.com>
2012-08-14 15:50:45 +02:00
{
2016-07-19 12:57:23 +02:00
$this -> db -> commit ();
return $this -> line -> id ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
Add: hooks and triggers for a lot of core modules (action/calendrier, deplacement, dons, tva, contact/tiers, contrat, product lines, expedition, fournisseur commandes et factures, fiche intervention, projet et taches)
Signed-off-by: Stephen L. <lrq3000@gmail.com>
2012-08-14 15:50:45 +02:00
}
2011-09-11 20:35:38 +02:00
}
else
{
2016-07-19 12:57:23 +02:00
$this -> error = $this -> line -> error ;
2016-07-28 14:07:59 +02:00
$this -> errors = $this -> line -> errors ;
2016-07-19 12:57:23 +02:00
dol_syslog ( get_class ( $this ) . " ::addline error= " . $this -> error , LOG_ERR );
2011-09-11 20:35:38 +02:00
$this -> db -> rollback ();
return - 1 ;
}
}
}
/**
2015-02-11 22:54:06 +01:00
* Save a receiving into the tracking table of receiving ( commande_fournisseur_dispatch ) and add product into stock warehouse .
2011-11-08 00:03:19 +01:00
*
2015-02-12 13:20:03 +01:00
* @ param User $user User object making change
* @ param int $product Id of product to dispatch
* @ param double $qty Qty to dispatch
* @ param int $entrepot Id of warehouse to add product
* @ param double $price Unit Price for PMP value calculation ( Unit price without Tax and taking into account discount )
* @ param string $comment Comment for stock movement
* @ param date $eatby eat - by date
* @ param date $sellby sell - by date
* @ param string $batch Lot number
* @ param int $fk_commandefourndet Id of supplier order line
2015-03-31 15:48:08 +02:00
* @ param int $notrigger 1 = notrigger
2011-12-19 17:12:29 +01:00
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function dispatchProduct ( $user , $product , $qty , $entrepot , $price = 0 , $comment = '' , $eatby = '' , $sellby = '' , $batch = '' , $fk_commandefourndet = 0 , $notrigger = 0 )
2011-09-11 20:35:38 +02:00
{
2015-04-10 12:59:33 +02:00
global $conf , $langs ;
2015-04-09 15:14:50 +02:00
2011-09-11 20:35:38 +02:00
$error = 0 ;
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/product/stock/class/mouvementstock.class.php' ;
2011-09-11 20:35:38 +02:00
2015-04-09 15:14:50 +02:00
// Check parameters (if test are wrong here, there is bug into caller)
if ( $entrepot <= 0 )
{
$this -> error = 'ErrorBadValueForParameterWarehouse' ;
return - 1 ;
}
2018-04-26 16:42:08 +02:00
if ( $qty == 0 )
2011-09-11 20:35:38 +02:00
{
2015-04-09 15:14:50 +02:00
$this -> error = 'ErrorBadValueForParameterQty' ;
2011-09-11 20:35:38 +02:00
return - 1 ;
}
2015-02-11 15:03:33 +01:00
$dispatchstatus = 1 ;
2015-04-10 12:59:33 +02:00
if ( ! empty ( $conf -> global -> SUPPLIER_ORDER_USE_DISPATCH_STATUS )) $dispatchstatus = 0 ; // Setting dispatch status (a validation step after receiving products) will be done manually to 1 or 2 if this option is on
2015-02-11 15:03:33 +01:00
2011-09-11 20:35:38 +02:00
$now = dol_now ();
2017-10-07 13:04:31 +02:00
if (( $this -> statut == self :: STATUS_ORDERSENT || $this -> statut == self :: STATUS_RECEIVED_PARTIALLY || $this -> statut == self :: STATUS_RECEIVED_COMPLETELY ))
2011-09-11 20:35:38 +02:00
{
$this -> db -> begin ();
2015-02-11 14:46:16 +01:00
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " commande_fournisseur_dispatch " ;
2015-02-19 00:01:26 +01:00
$sql .= " (fk_commande, fk_product, qty, fk_entrepot, fk_user, datec, fk_commandefourndet, status, comment, eatby, sellby, batch) VALUES " ;
$sql .= " (' " . $this -> id . " ',' " . $product . " ',' " . $qty . " ', " . ( $entrepot > 0 ? " ' " . $entrepot . " ' " : " null " ) . " ,' " . $user -> id . " ',' " . $this -> db -> idate ( $now ) . " ',' " . $fk_commandefourndet . " ', " . $dispatchstatus . " , ' " . $this -> db -> escape ( $comment ) . " ', " ;
2015-02-11 22:54:06 +01:00
$sql .= ( $eatby ? " ' " . $this -> db -> idate ( $eatby ) . " ' " : " null " ) . " , " . ( $sellby ? " ' " . $this -> db -> idate ( $sellby ) . " ' " : " null " ) . " , " . ( $batch ? " ' " . $batch . " ' " : " null " );
$sql .= " ) " ;
2011-09-11 20:35:38 +02:00
2015-02-11 22:54:06 +01:00
dol_syslog ( get_class ( $this ) . " ::dispatchProduct " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
$resql = $this -> db -> query ( $sql );
2013-02-21 17:32:57 +01:00
if ( $resql )
{
if ( ! $notrigger )
{
global $conf , $langs , $user ;
2014-07-11 15:32:23 +02:00
// Call trigger
$result = $this -> call_trigger ( 'LINEORDER_SUPPLIER_DISPATCH' , $user );
2014-08-30 18:27:34 +02:00
if ( $result < 0 )
2014-06-28 14:53:28 +02:00
{
2015-04-12 04:01:28 +02:00
$error ++ ;
2014-06-24 10:53:18 +02:00
return - 1 ;
}
2014-07-11 15:32:23 +02:00
// End call triggers
2013-02-21 17:32:57 +01:00
}
}
else
2015-02-11 22:54:06 +01:00
{
2011-09-11 20:35:38 +02:00
$this -> error = $this -> db -> lasterror ();
$error ++ ;
}
// Si module stock gere et que incrementation faite depuis un dispatching en stock
2015-04-12 04:01:28 +02:00
if ( ! $error && $entrepot > 0 && ! empty ( $conf -> stock -> enabled ) && ! empty ( $conf -> global -> STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER ))
2011-09-11 20:35:38 +02:00
{
2015-02-11 22:54:06 +01:00
2011-09-11 20:35:38 +02:00
$mouv = new MouvementStock ( $this -> db );
if ( $product > 0 )
{
2014-03-01 14:49:30 +01:00
// $price should take into account discount (except if option STOCK_EXCLUDE_DISCOUNT_FOR_PMP is on)
2014-03-15 02:18:39 +01:00
$mouv -> origin = & $this ;
2014-03-16 20:49:56 +01:00
$result = $mouv -> reception ( $user , $product , $entrepot , $qty , $price , $comment , $eatby , $sellby , $batch );
2011-09-11 20:35:38 +02:00
if ( $result < 0 )
{
$this -> error = $mouv -> error ;
2015-04-12 04:01:28 +02:00
$this -> errors = $mouv -> errors ;
dol_syslog ( get_class ( $this ) . " ::dispatchProduct " . $this -> error . " " . join ( ',' , $this -> errors ), LOG_ERR );
2011-09-11 20:35:38 +02:00
$error ++ ;
}
}
}
if ( $error == 0 )
{
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
else
2015-04-10 12:59:33 +02:00
{
2011-09-11 20:35:38 +02:00
$this -> error = 'BadStatusForObject' ;
return - 2 ;
}
}
/**
* Delete line
2011-11-09 22:10:58 +01:00
*
2014-02-10 01:43:35 +01:00
* @ param int $idline Id of line to delete
* @ param int $notrigger 1 = Disable call to triggers
2016-09-17 02:35:02 +02:00
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function deleteline ( $idline , $notrigger = 0 )
2011-09-11 20:35:38 +02:00
{
2016-09-17 02:35:02 +02:00
if ( $this -> statut == 0 )
2011-09-11 20:35:38 +02:00
{
2016-09-17 02:35:02 +02:00
$line = new CommandeFournisseurLigne ( $this -> db );
2014-06-28 14:53:28 +02:00
2016-09-17 02:35:02 +02:00
if ( $line -> fetch ( $idline ) <= 0 )
{
return 0 ;
}
2014-06-28 14:53:28 +02:00
2016-09-17 02:35:02 +02:00
if ( $line -> delete ( $notrigger ) > 0 )
{
$this -> update_price ();
return 1 ;
}
else
{
$this -> error = $line -> error ;
$this -> errors = $line -> errors ;
return - 1 ;
}
2011-09-11 20:35:38 +02:00
}
else
2016-09-17 02:35:02 +02:00
{
return - 2 ;
2011-09-11 20:35:38 +02:00
}
}
/**
2011-11-09 22:10:58 +01:00
* Delete an order
*
2011-12-05 19:41:38 +01:00
* @ param User $user Object user
2017-04-07 14:09:19 +02:00
* @ param int $notrigger 1 = Does not execute triggers , 0 = execute triggers
2011-12-05 19:41:38 +01:00
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2017-04-07 14:09:19 +02:00
public function delete ( User $user , $notrigger = 0 )
2011-09-11 20:35:38 +02:00
{
global $langs , $conf ;
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
2011-09-11 20:35:38 +02:00
2011-12-05 19:41:38 +01:00
$error = 0 ;
2011-09-11 20:35:38 +02:00
2017-04-07 14:09:19 +02:00
$this -> db -> begin ();
if ( empty ( $notrigger ))
2014-07-11 15:32:23 +02:00
{
2017-04-07 14:09:19 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_DELETE' , $user );
if ( $result < 0 )
{
$this -> errors [] = 'ErrorWhenRunningTrigger' ;
dol_syslog ( get_class ( $this ) . " ::delete " . $this -> error , LOG_ERR );
return - 1 ;
}
// End call triggers
2014-07-11 15:32:23 +02:00
}
2011-09-11 20:35:38 +02:00
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " commande_fournisseurdet WHERE fk_commande = " . $this -> id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::delete " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
if ( ! $this -> db -> query ( $sql ) )
{
2015-10-21 17:31:51 +02:00
$this -> error = $this -> db -> lasterror ();
$this -> errors [] = $this -> db -> lasterror ();
2011-12-05 19:41:38 +01:00
$error ++ ;
2011-09-11 20:35:38 +02:00
}
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " commande_fournisseur WHERE rowid = " . $this -> id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::delete " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
if ( $resql = $this -> db -> query ( $sql ) )
{
if ( $this -> db -> affected_rows ( $resql ) < 1 )
{
2014-06-24 10:53:18 +02:00
$this -> error = $this -> db -> lasterror ();
2015-10-21 17:31:51 +02:00
$this -> errors [] = $this -> db -> lasterror ();
2011-12-05 19:41:38 +01:00
$error ++ ;
2011-09-11 20:35:38 +02:00
}
}
else
{
2014-06-24 10:53:18 +02:00
$this -> error = $this -> db -> lasterror ();
2015-10-21 17:31:51 +02:00
$this -> errors [] = $this -> db -> lasterror ();
2011-12-05 19:41:38 +01:00
$error ++ ;
2011-09-11 20:35:38 +02:00
}
2013-06-09 16:15:49 +02:00
2013-04-26 17:20:21 +02:00
// Remove extrafields
if (( ! $error ) && ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED ))) // For avoid conflicts if trigger used
{
$result = $this -> deleteExtraFields ();
if ( $result < 0 )
{
2015-10-21 17:31:51 +02:00
$this -> error = 'FailToDeleteExtraFields' ;
$this -> errors [] = 'FailToDeleteExtraFields' ;
2013-04-26 17:20:21 +02:00
$error ++ ;
dol_syslog ( get_class ( $this ) . " ::delete error -4 " . $this -> error , LOG_ERR );
}
}
2012-07-11 18:13:41 +02:00
2015-02-03 16:54:04 +01:00
// Delete linked object
$res = $this -> deleteObjectLinked ();
2015-10-21 17:31:51 +02:00
if ( $res < 0 ) {
$this -> error = 'FailToDeleteObjectLinked' ;
$this -> errors [] = 'FailToDeleteObjectLinked' ;
$error ++ ;
}
2015-03-04 17:54:43 +01:00
2012-07-02 19:30:37 +02:00
if ( ! $error )
{
// We remove directory
$ref = dol_sanitizeFileName ( $this -> ref );
if ( $conf -> fournisseur -> commande -> dir_output )
{
$dir = $conf -> fournisseur -> commande -> dir_output . " / " . $ref ;
$file = $dir . " / " . $ref . " .pdf " ;
if ( file_exists ( $file ))
{
if ( ! dol_delete_file ( $file , 0 , 0 , 0 , $this )) // For triggers
{
2012-07-29 14:15:29 +02:00
$this -> error = 'ErrorFailToDeleteFile' ;
2015-10-21 17:31:51 +02:00
$this -> errors [] = 'ErrorFailToDeleteFile' ;
2012-07-02 19:30:37 +02:00
$error ++ ;
}
}
if ( file_exists ( $dir ))
{
$res =@ dol_delete_dir_recursive ( $dir );
if ( ! $res )
{
$this -> error = 'ErrorFailToDeleteDir' ;
2015-10-21 17:31:51 +02:00
$this -> errors [] = 'ErrorFailToDeleteDir' ;
2012-07-02 19:30:37 +02:00
$error ++ ;
}
}
}
2012-06-11 21:45:59 +02:00
}
2012-07-11 18:13:41 +02:00
2012-06-11 21:45:59 +02:00
if ( ! $error )
{
dol_syslog ( get_class ( $this ) . " ::delete $this->id by $user->id " , LOG_DEBUG );
$this -> db -> commit ();
return 1 ;
}
else
{
dol_syslog ( get_class ( $this ) . " ::delete " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - $error ;
}
2011-09-11 20:35:38 +02:00
}
/**
2011-12-19 17:12:29 +01:00
* Get list of order methods
2012-01-19 09:53:27 +01:00
*
2011-12-19 17:12:29 +01:00
* @ return 0 if Ok , < 0 if Ko
2011-09-11 20:35:38 +02:00
*/
function get_methodes_commande ()
{
$sql = " SELECT rowid, libelle " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " c_input_method " ;
$sql .= " WHERE active = 1 " ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$i = 0 ;
$num = $this -> db -> num_rows ( $resql );
$this -> methodes_commande = array ();
while ( $i < $num )
{
$row = $this -> db -> fetch_row ( $resql );
$this -> methodes_commande [ $row [ 0 ]] = $row [ 1 ];
$i ++ ;
}
return 0 ;
}
else
{
return - 1 ;
}
}
2015-03-08 02:08:26 +01:00
/**
* Return array of dispathed lines waiting to be approved for this order
2018-04-04 14:05:50 +02:00
*
* @ since 8.0 Return dispatched quantity ( qty ) .
2015-04-01 21:00:51 +02:00
*
2015-03-08 02:08:26 +01:00
* @ param int $status Filter on stats ( - 1 = no filter , 0 = lines draft to be approved , 1 = approved lines )
* @ return array Array of lines
*/
2016-07-19 12:57:23 +02:00
public function getDispachedLines ( $status =- 1 )
2015-03-08 02:08:26 +01:00
{
$ret = array ();
2015-04-01 21:00:51 +02:00
2015-03-08 02:08:26 +01:00
// List of already dispatched lines
$sql = " SELECT p.ref, p.label, " ;
2017-12-01 12:57:56 +01:00
$sql .= " e.rowid as warehouse_id, e.ref as entrepot, " ;
2018-04-04 12:32:49 +02:00
$sql .= " cfd.rowid as dispatchedlineid, cfd.fk_product, cfd.qty, cfd.eatby, cfd.sellby, cfd.batch, cfd.comment, cfd.status " ;
2015-03-08 02:08:26 +01:00
$sql .= " FROM " . MAIN_DB_PREFIX . " product as p, " ;
$sql .= " " . MAIN_DB_PREFIX . " commande_fournisseur_dispatch as cfd " ;
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " entrepot as e ON cfd.fk_entrepot = e.rowid " ;
$sql .= " WHERE cfd.fk_commande = " . $this -> id ;
$sql .= " AND cfd.fk_product = p.rowid " ;
if ( $status >= 0 ) $sql .= " AND cfd.status = " . $status ;
$sql .= " ORDER BY cfd.rowid ASC " ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$num = $this -> db -> num_rows ( $resql );
$i = 0 ;
while ( $i < $num )
{
$objp = $this -> db -> fetch_object ( $resql );
2018-04-04 12:32:49 +02:00
if ( $objp )
{
$ret [] = array (
'id' => $objp -> dispatchedlineid ,
'productid' => $objp -> fk_product ,
'warehouseid' => $objp -> warehouse_id ,
'qty' => $objp -> qty ,
);
}
2015-04-01 21:00:51 +02:00
2015-03-08 02:08:26 +01:00
$i ++ ;
}
}
else dol_print_error ( $this -> db , 'Failed to execute request to get dispatched lines' );
2015-04-01 21:00:51 +02:00
2015-03-08 02:08:26 +01:00
return $ret ;
}
2015-04-01 21:00:51 +02:00
2011-09-11 20:35:38 +02:00
/**
* Set a delivery in database for this supplier order
2012-01-19 09:53:27 +01:00
*
* @ param User $user User that input data
* @ param date $date Date of reception
2015-03-08 02:08:26 +01:00
* @ param string $type Type of receipt ( 'tot' = total / done , 'par' = partial , 'nev' = never , 'can' = cancel )
2012-01-19 09:53:27 +01:00
* @ param string $comment Comment
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
function Livraison ( $user , $date , $type , $comment )
{
2015-11-07 11:13:58 +01:00
global $conf , $langs ;
2015-04-01 21:00:51 +02:00
2011-09-11 20:35:38 +02:00
$result = 0 ;
2015-03-08 02:08:26 +01:00
$error = 0 ;
2015-04-01 21:00:51 +02:00
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::Livraison " );
2011-09-11 20:35:38 +02:00
if ( $user -> rights -> fournisseur -> commande -> receptionner )
{
2017-10-07 20:21:47 +02:00
// Define the new status
2017-10-07 13:04:31 +02:00
if ( $type == 'par' ) $statut = self :: STATUS_RECEIVED_PARTIALLY ;
2017-10-07 20:21:47 +02:00
elseif ( $type == 'tot' ) $statut = self :: STATUS_RECEIVED_COMPLETELY ;
elseif ( $type == 'nev' ) $statut = self :: STATUS_CANCELED_AFTER_ORDER ;
elseif ( $type == 'can' ) $statut = self :: STATUS_CANCELED_AFTER_ORDER ;
else {
$error ++ ;
dol_syslog ( get_class ( $this ) . " ::Livraison Error -2 " , LOG_ERR );
return - 2 ;
}
2011-09-11 20:35:38 +02:00
2015-04-09 16:15:52 +02:00
// Some checks to accept the record
if ( ! empty ( $conf -> global -> SUPPLIER_ORDER_USE_DISPATCH_STATUS ))
{
// If option SUPPLIER_ORDER_USE_DISPATCH_STATUS is on, we check all reception are approved to allow status "total/done"
if ( ! $error && ( $type == 'tot' ))
{
$dispatchedlinearray = $this -> getDispachedLines ( 0 );
if ( count ( $dispatchedlinearray ) > 0 )
{
$result =- 1 ;
$error ++ ;
$this -> errors [] = 'ErrorCantSetReceptionToTotalDoneWithReceptionToApprove' ;
dol_syslog ( 'ErrorCantSetReceptionToTotalDoneWithReceptionToApprove' , LOG_DEBUG );
}
}
2017-03-25 03:53:11 +01:00
if ( ! $error && ! empty ( $conf -> global -> SUPPLIER_ORDER_USE_DISPATCH_STATUS_NEED_APPROVE ) && ( $type == 'tot' )) // Accept to move to reception done, only if status of all line are ok (refuse denied)
2015-03-08 02:08:26 +01:00
{
2015-04-09 16:15:52 +02:00
$dispatcheddenied = $this -> getDispachedLines ( 2 );
if ( count ( $dispatchedlinearray ) > 0 )
{
$result =- 1 ;
$error ++ ;
$this -> errors [] = 'ErrorCantSetReceptionToTotalDoneWithReceptionDenied' ;
dol_syslog ( 'ErrorCantSetReceptionToTotalDoneWithReceptionDenied' , LOG_DEBUG );
}
2015-03-08 02:08:26 +01:00
}
2015-04-09 16:15:52 +02:00
}
2016-09-12 01:05:45 +02:00
// TODO LDR01 Add a control test to accept only if ALL predefined products are received (same qty).
2015-04-09 16:15:52 +02:00
2015-03-08 02:08:26 +01:00
if ( ! $error )
2011-09-11 20:35:38 +02:00
{
$this -> db -> begin ();
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur " ;
$sql .= " SET fk_statut = " . $statut ;
$sql .= " WHERE rowid = " . $this -> id ;
2017-10-07 13:04:31 +02:00
$sql .= " AND fk_statut IN ( " . self :: STATUS_ORDERSENT . " , " . self :: STATUS_RECEIVED_PARTIALLY . " ) " ; // Process running or Partially received
2011-09-11 20:35:38 +02:00
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::Livraison " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$result = 0 ;
2016-11-26 22:13:31 +01:00
$old_statut = $this -> statut ;
2015-11-07 10:23:56 +01:00
$this -> statut = $statut ;
2017-03-25 03:53:11 +01:00
$this -> actionmsg2 = $comment ;
2017-06-30 11:40:26 +02:00
2016-04-09 18:50:22 +02:00
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_RECEIVE' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
2016-08-05 09:46:17 +02:00
2016-04-09 18:50:22 +02:00
if ( ! $error )
{
$this -> db -> commit ();
}
else
{
2016-11-26 22:13:31 +01:00
$this -> statut = $old_statut ;
2016-04-09 18:50:22 +02:00
$this -> db -> rollback ();
$this -> error = $this -> db -> lasterror ();
$result = - 1 ;
}
2011-09-11 20:35:38 +02:00
}
else
{
$this -> db -> rollback ();
$this -> error = $this -> db -> lasterror ();
$result = - 1 ;
}
}
}
else
{
2015-11-07 11:13:58 +01:00
$this -> error = $langs -> trans ( 'NotAuthorized' );
$this -> errors [] = $langs -> trans ( 'NotAuthorized' );
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::Livraison Not Authorized " );
2011-09-11 20:35:38 +02:00
$result = - 3 ;
}
return $result ;
}
2012-04-10 17:21:28 +02:00
/**
* Set the planned delivery date
*
2015-02-17 17:21:41 +01:00
* @ param User $user Objet user making change
* @ param timestamp $date_livraison Planned delivery date
2016-09-24 07:18:38 +02:00
* @ param int $notrigger 1 = Does not execute triggers , 0 = execute triggers
2015-02-17 17:21:41 +01:00
* @ return int < 0 if KO , > 0 if OK
2012-04-10 17:21:28 +02:00
*/
2016-08-25 14:38:16 +02:00
function set_date_livraison ( $user , $date_livraison , $notrigger = 0 )
2012-04-10 17:21:28 +02:00
{
if ( $user -> rights -> fournisseur -> commande -> creer )
{
2016-08-25 14:38:16 +02:00
$error = 0 ;
$this -> db -> begin ();
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur " ;
2012-04-10 17:21:28 +02:00
$sql .= " SET date_livraison = " . ( $date_livraison ? " ' " . $this -> db -> idate ( $date_livraison ) . " ' " : 'null' );
$sql .= " WHERE rowid = " . $this -> id ;
2016-08-25 14:38:16 +02:00
dol_syslog ( __METHOD__ , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( ! $resql )
{
$this -> errors [] = $this -> db -> error ();
$error ++ ;
}
if ( ! $error )
{
$this -> oldcopy = clone $this ;
$this -> date_livraison = $date_livraison ;
}
if ( ! $notrigger && empty ( $error ))
{
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_MODIFY' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
}
if ( ! $error )
{
$this -> db -> commit ();
return 1 ;
}
else
{
foreach ( $this -> errors as $errmsg )
{
dol_syslog ( __METHOD__ . ' Error: ' . $errmsg , LOG_ERR );
$this -> error .= ( $this -> error ? ', ' . $errmsg : $errmsg );
}
$this -> db -> rollback ();
return - 1 * $error ;
}
2012-04-10 17:21:28 +02:00
}
else
{
return - 2 ;
}
}
2015-02-03 15:22:03 +01:00
/**
* Set the id projet
*
* @ param User $user Objet utilisateur qui modifie
* @ param int $id_projet Date de livraison
2016-09-24 07:18:38 +02:00
* @ param int $notrigger 1 = Does not execute triggers , 0 = execute triggers
2015-02-03 15:22:03 +01:00
* @ return int < 0 si ko , > 0 si ok
*/
2016-08-25 14:38:16 +02:00
function set_id_projet ( $user , $id_projet , $notrigger = 0 )
2015-02-03 15:22:03 +01:00
{
if ( $user -> rights -> fournisseur -> commande -> creer )
{
2016-08-25 14:38:16 +02:00
$error = 0 ;
$this -> db -> begin ();
2015-02-03 15:22:03 +01:00
$sql = " UPDATE " . MAIN_DB_PREFIX . " commande_fournisseur " ;
2015-02-09 10:17:28 +01:00
$sql .= " SET fk_projet = " . ( $id_projet > 0 ? ( int ) $id_projet : 'null' );
2015-02-03 15:22:03 +01:00
$sql .= " WHERE rowid = " . $this -> id ;
2016-08-25 14:38:16 +02:00
dol_syslog ( __METHOD__ , LOG_DEBUG );
2015-02-03 15:22:03 +01:00
$resql = $this -> db -> query ( $sql );
2016-08-25 14:38:16 +02:00
if ( ! $resql )
2015-02-03 15:22:03 +01:00
{
2016-08-25 14:38:16 +02:00
$this -> errors [] = $this -> db -> error ();
$error ++ ;
}
if ( ! $error )
{
$this -> oldcopy = clone $this ;
$this -> fk_projet = $id_projet ;
}
if ( ! $notrigger && empty ( $error ))
{
// Call trigger
$result = $this -> call_trigger ( 'ORDER_SUPPLIER_MODIFY' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
}
if ( ! $error )
{
$this -> db -> commit ();
return 1 ;
2015-02-03 15:22:03 +01:00
}
else
{
2016-08-25 14:38:16 +02:00
foreach ( $this -> errors as $errmsg )
{
dol_syslog ( __METHOD__ . ' Error: ' . $errmsg , LOG_ERR );
$this -> error .= ( $this -> error ? ', ' . $errmsg : $errmsg );
}
$this -> db -> rollback ();
return - 1 * $error ;
2012-04-10 17:21:28 +02:00
}
}
else
{
return - 2 ;
}
}
2011-09-11 20:35:38 +02:00
/**
2012-01-19 09:53:27 +01:00
* Update a supplier order from a customer order
*
* @ param User $user User that create
* @ param int $idc Id of supplier order to update
* @ param int $comclientid Id of customer order to use as template
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function updateFromCommandeClient ( $user , $idc , $comclientid )
2011-09-11 20:35:38 +02:00
{
$comclient = new Commande ( $this -> db );
$comclient -> fetch ( $comclientid );
$this -> id = $idc ;
$this -> lines = array ();
2011-09-17 21:49:50 +02:00
$num = count ( $comclient -> lines );
for ( $i = 0 ; $i < $num ; $i ++ )
2011-09-11 20:35:38 +02:00
{
$prod = new Product ( $this -> db );
if ( $prod -> fetch ( $comclient -> lines [ $i ] -> fk_product ) > 0 )
{
$libelle = $prod -> libelle ;
$ref = $prod -> ref ;
}
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " commande_fournisseurdet " ;
$sql .= " (fk_commande,label,description,fk_product, price, qty, tva_tx, localtax1_tx, localtax2_tx, remise_percent, subprice, remise, ref) " ;
$sql .= " VALUES ( " . $idc . " , ' " . $this -> db -> escape ( $libelle ) . " ',' " . $this -> db -> escape ( $comclient -> lines [ $i ] -> desc ) . " ' " ;
$sql .= " , " . $comclient -> lines [ $i ] -> fk_product . " ,' " . price2num ( $comclient -> lines [ $i ] -> price ) . " ' " ;
$sql .= " , ' " . $comclient -> lines [ $i ] -> qty . " ', " . $comclient -> lines [ $i ] -> tva_tx . " , " . $comclient -> lines [ $i ] -> localtax1_tx . " , " . $comclient -> lines [ $i ] -> localtax2_tx . " , " . $comclient -> lines [ $i ] -> remise_percent ;
2011-09-20 15:32:16 +02:00
$sql .= " , ' " . price2num ( $comclient -> lines [ $i ] -> subprice ) . " ','0',' " . $ref . " '); " ;
2012-01-19 09:53:27 +01:00
if ( $this -> db -> query ( $sql ))
2011-09-11 20:35:38 +02:00
{
$this -> update_price ();
}
}
return 1 ;
}
/**
* Tag order with a particular status
2012-01-19 09:53:27 +01:00
*
2011-12-19 17:12:29 +01:00
* @ param User $user Object user that change status
* @ param int $status New status
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2017-10-07 13:04:31 +02:00
public function setStatus ( $user , $status )
2011-09-11 20:35:38 +02:00
{
global $conf , $langs ;
$error = 0 ;
$this -> db -> begin ();
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'commande_fournisseur' ;
$sql .= ' SET fk_statut=' . $status ;
$sql .= ' WHERE rowid = ' . $this -> id ;
2014-06-12 11:31:53 +02:00
dol_syslog ( get_class ( $this ) . " ::setStatus " , LOG_DEBUG );
2011-09-11 20:35:38 +02:00
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
2016-07-26 19:53:29 +02:00
// Trigger names for each status
$trigger_name [ 0 ] = 'DRAFT' ;
$trigger_name [ 1 ] = 'VALIDATED' ;
$trigger_name [ 2 ] = 'APPROVED' ;
2017-10-07 13:04:31 +02:00
$trigger_name [ 3 ] = 'ORDERED' ; // Ordered
2016-07-26 19:53:29 +02:00
$trigger_name [ 4 ] = 'RECEIVED_PARTIALLY' ;
2017-10-07 13:04:31 +02:00
$trigger_name [ 5 ] = 'RECEIVED_COMPLETELY' ;
2016-07-26 19:53:29 +02:00
$trigger_name [ 6 ] = 'CANCELED' ;
$trigger_name [ 7 ] = 'CANCELED' ;
$trigger_name [ 9 ] = 'REFUSED' ;
2016-07-10 23:05:51 +02:00
// Call trigger
2016-07-26 19:53:29 +02:00
$result = $this -> call_trigger ( " ORDER_SUPPLIER_STATUS_ " . $trigger_name [ $status ], $user );
2016-07-10 23:05:51 +02:00
if ( $result < 0 ) { $error ++ ; }
// End call triggers
2011-09-11 20:35:38 +02:00
}
else
{
$error ++ ;
$this -> error = $this -> db -> lasterror ();
2012-03-18 00:59:24 +01:00
dol_syslog ( get_class ( $this ) . " ::setStatus " . $this -> error );
2011-09-11 20:35:38 +02:00
}
if ( ! $error )
{
2015-11-07 11:13:58 +01:00
$this -> statut = $status ;
2011-09-11 20:35:38 +02:00
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Update line
2011-09-12 19:08:02 +02:00
*
2015-02-28 03:11:15 +01:00
* @ param int $rowid Id de la ligne de facture
* @ param string $desc Description de la ligne
* @ param double $pu Prix unitaire
* @ param double $qty Quantity
2017-11-12 16:06:08 +01:00
* @ param double $remise_percent Percent discount on line
* @ param double $txtva VAT rate
2015-02-28 03:11:15 +01:00
* @ param double $txlocaltax1 Localtax1 tax
* @ param double $txlocaltax2 Localtax2 tax
* @ param double $price_base_type Type of price base
* @ param int $info_bits Miscellaneous informations
* @ param int $type Type of line ( 0 = product , 1 = service )
* @ param int $notrigger Disable triggers
* @ param timestamp $date_start Date start of service
* @ param timestamp $date_end Date end of service
2015-04-21 15:49:58 +02:00
* @ param array $array_options Extrafields array
* @ param string $fk_unit Code of the unit to use . Null to use the default one
2016-12-11 02:09:57 +01:00
* @ param double $pu_ht_devise Unit price in currency
2017-11-12 16:06:08 +01:00
* @ param string $ref_supplier Supplier ref
2015-02-28 03:11:15 +01:00
* @ return int < 0 if error , > 0 if ok
2011-09-11 20:35:38 +02:00
*/
2017-12-12 16:11:40 +01:00
public function updateline ( $rowid , $desc , $pu , $qty , $remise_percent , $txtva , $txlocaltax1 = 0 , $txlocaltax2 = 0 , $price_base_type = 'HT' , $info_bits = 0 , $type = 0 , $notrigger = 0 , $date_start = '' , $date_end = '' , $array_options = 0 , $fk_unit = null , $pu_ht_devise = 0 , $ref_supplier = '' )
2011-09-11 20:35:38 +02:00
{
2016-07-19 12:57:23 +02:00
global $mysoc , $conf ;
2015-04-19 15:59:49 +02:00
dol_syslog ( get_class ( $this ) . " ::updateline $rowid , $desc , $pu , $qty , $remise_percent , $txtva , $price_base_type , $info_bits , $type , $fk_unit " );
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php' ;
2011-09-11 20:35:38 +02:00
2016-07-19 12:57:23 +02:00
$error = 0 ;
2011-09-11 20:35:38 +02:00
if ( $this -> brouillon )
{
$this -> db -> begin ();
// Clean parameters
if ( empty ( $qty )) $qty = 0 ;
if ( empty ( $info_bits )) $info_bits = 0 ;
if ( empty ( $txtva )) $txtva = 0 ;
if ( empty ( $txlocaltax1 )) $txlocaltax1 = 0 ;
if ( empty ( $txlocaltax2 )) $txlocaltax2 = 0 ;
if ( empty ( $remise )) $remise = 0 ;
if ( empty ( $remise_percent )) $remise_percent = 0 ;
$remise_percent = price2num ( $remise_percent );
$qty = price2num ( $qty );
if ( ! $qty ) $qty = 1 ;
$pu = price2num ( $pu );
2018-06-13 16:35:52 +02:00
$pu_ht_devise = price2num ( $pu_ht_devise );
2011-09-11 20:35:38 +02:00
$txtva = price2num ( $txtva );
$txlocaltax1 = price2num ( $txlocaltax1 );
$txlocaltax2 = price2num ( $txlocaltax2 );
// Check parameters
if ( $type < 0 ) return - 1 ;
// Calcul du total TTC et de la TVA pour la ligne a partir de
// qty, pu, remise_percent et txtva
// TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
// la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
2013-11-19 21:08:02 +01:00
2014-07-04 10:25:05 +02:00
$localtaxes_type = getLocalTaxesFromRate ( $txtva , 0 , $mysoc , $this -> thirdparty );
2016-08-05 09:46:17 +02:00
2016-10-29 21:02:08 +02:00
// Clean vat code
$vat_src_code = '' ;
2016-11-22 19:45:06 +01:00
if ( preg_match ( '/\((.*)\)/' , $txtva , $reg ))
2016-10-29 21:02:08 +02:00
{
$vat_src_code = $reg [ 1 ];
2017-03-19 14:51:25 +01:00
$txtva = preg_replace ( '/\s*\(.*\)/' , '' , $txtva ); // Remove code into vatrate.
2016-10-29 21:02:08 +02:00
}
2017-06-30 11:40:26 +02:00
2016-12-11 02:09:57 +01:00
$tabprice = calcul_price_total ( $qty , $pu , $remise_percent , $txtva , $txlocaltax1 , $txlocaltax2 , 0 , $price_base_type , $info_bits , $type , $this -> thirdparty , $localtaxes_type , 100 , $this -> multicurrency_tx , $pu_ht_devise );
2011-09-11 20:35:38 +02:00
$total_ht = $tabprice [ 0 ];
$total_tva = $tabprice [ 1 ];
$total_ttc = $tabprice [ 2 ];
$total_localtax1 = $tabprice [ 9 ];
$total_localtax2 = $tabprice [ 10 ];
2016-12-11 02:09:57 +01:00
$pu_ht = $tabprice [ 3 ];
$pu_tva = $tabprice [ 4 ];
$pu_ttc = $tabprice [ 5 ];
2011-09-11 20:35:38 +02:00
2016-02-16 23:58:21 +01:00
// MultiCurrency
$multicurrency_total_ht = $tabprice [ 16 ];
$multicurrency_total_tva = $tabprice [ 17 ];
$multicurrency_total_ttc = $tabprice [ 18 ];
2016-12-11 02:09:57 +01:00
$pu_ht_devise = $tabprice [ 19 ];
2016-08-05 09:46:17 +02:00
2013-09-11 16:44:34 +02:00
$localtax1_type = $localtaxes_type [ 0 ];
$localtax2_type = $localtaxes_type [ 2 ];
2011-09-11 20:35:38 +02:00
2016-12-11 02:50:31 +01:00
$subprice = price2num ( $pu_ht , 'MU' );
2011-09-11 20:35:38 +02:00
2017-02-08 23:27:58 +01:00
//Fetch current line from the database and then clone the object and set it in $oldline property
2016-07-19 12:57:23 +02:00
$this -> line = new CommandeFournisseurLigne ( $this -> db );
$this -> line -> fetch ( $rowid );
2017-02-08 23:27:58 +01:00
$oldline = clone $this -> line ;
$this -> line -> oldline = $oldline ;
2016-07-19 12:57:23 +02:00
$this -> line -> context = $this -> context ;
$this -> line -> fk_commande = $this -> id ;
//$this->line->label=$label;
$this -> line -> desc = $desc ;
$this -> line -> qty = $qty ;
2017-11-12 16:06:08 +01:00
$this -> line -> ref_supplier = $ref_supplier ;
2016-10-29 21:02:08 +02:00
$this -> line -> vat_src_code = $vat_src_code ;
$this -> line -> tva_tx = $txtva ;
$this -> line -> localtax1_tx = $txlocaltax1 ;
$this -> line -> localtax2_tx = $txlocaltax2 ;
2016-07-19 12:57:23 +02:00
$this -> line -> localtax1_type = $localtaxes_type [ 0 ];
$this -> line -> localtax2_type = $localtaxes_type [ 2 ];
2016-10-29 21:02:08 +02:00
$this -> line -> remise_percent = $remise_percent ;
2016-12-11 02:09:57 +01:00
$this -> line -> subprice = $pu_ht ;
2016-10-29 21:02:08 +02:00
$this -> line -> rang = $this -> rang ;
$this -> line -> info_bits = $info_bits ;
$this -> line -> total_ht = $total_ht ;
$this -> line -> total_tva = $total_tva ;
$this -> line -> total_localtax1 = $total_localtax1 ;
$this -> line -> total_localtax2 = $total_localtax2 ;
$this -> line -> total_ttc = $total_ttc ;
$this -> line -> product_type = $type ;
$this -> line -> special_code = $this -> special_code ;
$this -> line -> origin = $this -> origin ;
$this -> line -> fk_unit = $fk_unit ;
$this -> line -> date_start = $date_start ;
$this -> line -> date_end = $date_end ;
2016-07-19 12:57:23 +02:00
// Multicurrency
$this -> line -> fk_multicurrency = $this -> fk_multicurrency ;
$this -> line -> multicurrency_code = $this -> multicurrency_code ;
2016-12-11 02:09:57 +01:00
$this -> line -> multicurrency_subprice = $pu_ht_devise ;
2016-07-19 12:57:23 +02:00
$this -> line -> multicurrency_total_ht = $multicurrency_total_ht ;
$this -> line -> multicurrency_total_tva = $multicurrency_total_tva ;
$this -> line -> multicurrency_total_ttc = $multicurrency_total_ttc ;
2016-12-11 02:09:57 +01:00
$this -> line -> subprice = $pu_ht ;
2016-07-19 12:57:23 +02:00
$this -> line -> price = $this -> line -> subprice ;
$this -> line -> remise_percent = $remise_percent ;
if ( is_array ( $array_options ) && count ( $array_options ) > 0 ) {
$this -> line -> array_options = $array_options ;
}
Add: hooks and triggers for a lot of core modules (action/calendrier, deplacement, dons, tva, contact/tiers, contrat, product lines, expedition, fournisseur commandes et factures, fiche intervention, projet et taches)
Signed-off-by: Stephen L. <lrq3000@gmail.com>
2012-08-14 15:50:45 +02:00
2016-07-19 12:57:23 +02:00
$result = $this -> line -> update ( $notrigger );
Add: hooks and triggers for a lot of core modules (action/calendrier, deplacement, dons, tva, contact/tiers, contrat, product lines, expedition, fournisseur commandes et factures, fiche intervention, projet et taches)
Signed-off-by: Stephen L. <lrq3000@gmail.com>
2012-08-14 15:50:45 +02:00
2011-09-11 20:35:38 +02:00
2016-07-19 12:57:23 +02:00
// Mise a jour info denormalisees au niveau facture
2016-12-11 11:59:49 +01:00
if ( $result >= 0 )
2016-07-19 12:57:23 +02:00
{
$this -> update_price ( '' , 'auto' );
2016-12-11 02:50:31 +01:00
$this -> db -> commit ();
return $result ;
2011-09-11 20:35:38 +02:00
}
else
{
2015-02-28 18:10:31 +01:00
$this -> error = $this -> db -> lasterror ();
2011-09-11 20:35:38 +02:00
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
$this -> error = " Order status makes operation forbidden " ;
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::updateline " . $this -> error , LOG_ERR );
2011-09-11 20:35:38 +02:00
return - 2 ;
}
}
/**
2011-09-20 19:19:46 +02:00
* 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
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function initAsSpecimen ()
2011-09-11 20:35:38 +02:00
{
global $user , $langs , $conf ;
2012-04-14 20:21:06 +02:00
dol_syslog ( get_class ( $this ) . " ::initAsSpecimen " );
2011-09-11 20:35:38 +02:00
$now = dol_now ();
2012-12-05 00:45:10 +01:00
// Find first product
$prodid = 0 ;
2014-05-01 19:17:45 +02:00
$product = new ProductFournisseur ( $this -> db );
2011-09-11 20:35:38 +02:00
$sql = " SELECT rowid " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product " ;
2017-05-30 18:50:54 +02:00
$sql .= " WHERE entity IN ( " . getEntity ( 'product' ) . " ) " ;
2012-12-05 00:45:10 +01:00
$sql .= $this -> db -> order ( " rowid " , " ASC " );
$sql .= $this -> db -> plimit ( 1 );
2011-09-11 20:35:38 +02:00
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
2012-12-05 00:45:10 +01:00
$obj = $this -> db -> fetch_object ( $resql );
$prodid = $obj -> rowid ;
2011-09-11 20:35:38 +02:00
}
// Initialise parametres
$this -> id = 0 ;
$this -> ref = 'SPECIMEN' ;
$this -> specimen = 1 ;
$this -> socid = 1 ;
$this -> date = $now ;
$this -> date_commande = $now ;
$this -> date_lim_reglement = $this -> date + 3600 * 24 * 30 ;
$this -> cond_reglement_code = 'RECEP' ;
$this -> mode_reglement_code = 'CHQ' ;
$this -> note_public = 'This is a comment (public)' ;
2013-04-09 17:18:07 +02:00
$this -> note_private = 'This is a comment (private)' ;
2015-04-01 21:00:51 +02:00
$this -> statut = 0 ;
2011-09-11 20:35:38 +02:00
// Lines
$nbp = 5 ;
$xnbp = 0 ;
while ( $xnbp < $nbp )
{
$line = new CommandeFournisseurLigne ( $this -> db );
$line -> desc = $langs -> trans ( " Description " ) . " " . $xnbp ;
$line -> qty = 1 ;
$line -> subprice = 100 ;
$line -> price = 100 ;
$line -> tva_tx = 19.6 ;
$line -> localtax1_tx = 0 ;
$line -> localtax2_tx = 0 ;
if ( $xnbp == 2 )
{
$line -> total_ht = 50 ;
$line -> total_ttc = 59.8 ;
$line -> total_tva = 9.8 ;
$line -> remise_percent = 50 ;
}
else
{
$line -> total_ht = 100 ;
$line -> total_ttc = 119.6 ;
$line -> total_tva = 19.6 ;
$line -> remise_percent = 00 ;
}
2012-12-05 00:45:10 +01:00
$line -> fk_product = $prodid ;
2011-09-11 20:35:38 +02:00
$this -> lines [ $xnbp ] = $line ;
$this -> total_ht += $line -> total_ht ;
$this -> total_tva += $line -> total_tva ;
$this -> total_ttc += $line -> total_ttc ;
$xnbp ++ ;
}
}
2016-04-08 17:28:48 +02:00
/**
* Charge les informations d 'ordre info dans l' objet facture
*
* @ param int $id Id de la facture a charger
* @ return void
*/
2016-07-19 12:57:23 +02:00
public function info ( $id )
2016-04-08 17:28:48 +02:00
{
$sql = 'SELECT c.rowid, date_creation as datec, tms as datem, date_valid as date_validation, date_approve as datea, date_approve2 as datea2,' ;
$sql .= ' fk_user_author, fk_user_modif, fk_user_valid, fk_user_approve, fk_user_approve2' ;
$sql .= ' FROM ' . MAIN_DB_PREFIX . 'commande_fournisseur as c' ;
$sql .= ' WHERE c.rowid = ' . $id ;
$result = $this -> db -> query ( $sql );
if ( $result )
{
if ( $this -> db -> num_rows ( $result ))
{
$obj = $this -> db -> fetch_object ( $result );
$this -> id = $obj -> rowid ;
2016-08-05 09:46:17 +02:00
if ( $obj -> fk_user_author ) $this -> user_creation_id = $obj -> fk_user_author ;
2016-04-09 18:50:22 +02:00
if ( $obj -> fk_user_valid ) $this -> user_validation_id = $obj -> fk_user_valid ;
if ( $obj -> fk_user_modif ) $this -> user_modification_id = $obj -> fk_user_modif ;
if ( $obj -> fk_user_approve ) $this -> user_approve_id = $obj -> fk_user_approve ;
if ( $obj -> fk_user_approve2 ) $this -> user_approve_id2 = $obj -> fk_user_approve2 ;
2016-04-08 17:28:48 +02:00
$this -> date_creation = $this -> db -> idate ( $obj -> datec );
$this -> date_modification = $this -> db -> idate ( $obj -> datem );
$this -> date_approve = $this -> db -> idate ( $obj -> datea );
$this -> date_approve2 = $this -> db -> idate ( $obj -> datea2 );
$this -> date_validation = $this -> db -> idate ( $obj -> date_validation );
}
$this -> db -> free ( $result );
}
else
{
dol_print_error ( $this -> db );
}
}
2016-08-05 09:46:17 +02:00
2014-10-25 17:22:03 +02:00
/**
* Charge indicateurs this -> nb de tableau de bord
*
* @ return int < 0 si ko , > 0 si ok
*/
function load_state_board ()
{
global $conf , $user ;
$this -> nb = array ();
$clause = " WHERE " ;
$sql = " SELECT count(co.rowid) as nb " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseur as co " ;
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " societe as s ON co.fk_soc = s.rowid " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $user -> societe_id )
{
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " societe_commerciaux as sc ON s.rowid = sc.fk_soc " ;
$sql .= " WHERE sc.fk_user = " . $user -> id ;
$clause = " AND " ;
}
$sql .= " " . $clause . " co.entity = " . $conf -> entity ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
while ( $obj = $this -> db -> fetch_object ( $resql ))
{
$this -> nb [ " supplier_orders " ] = $obj -> nb ;
}
$this -> db -> free ( $resql );
return 1 ;
}
else
{
dol_print_error ( $this -> db );
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
2011-09-11 20:35:38 +02:00
/**
2011-12-19 17:12:29 +01:00
* Load indicators for dashboard ( this -> nbtodo and this -> nbtodolate )
2011-09-11 20:35:38 +02:00
*
2011-12-19 17:12:29 +01:00
* @ param User $user Objet user
2017-10-07 13:04:31 +02:00
* @ return WorkboardResponse | int < 0 if KO , WorkboardResponse if OK
2011-09-11 20:35:38 +02:00
*/
function load_board ( $user )
{
2016-01-18 15:56:51 +01:00
global $conf , $langs ;
2011-09-11 20:35:38 +02:00
$clause = " WHERE " ;
2015-11-03 14:02:36 +01:00
$sql = " SELECT c.rowid, c.date_creation as datec, c.date_commande, c.fk_statut, c.date_livraison as delivery_date " ;
2011-09-11 20:35:38 +02:00
$sql .= " FROM " . MAIN_DB_PREFIX . " commande_fournisseur as c " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $user -> societe_id )
{
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " societe_commerciaux as sc ON c.fk_soc = sc.fk_soc " ;
$sql .= " WHERE sc.fk_user = " . $user -> id ;
$clause = " AND " ;
}
$sql .= $clause . " c.entity = " . $conf -> entity ;
2017-10-07 13:04:31 +02:00
$sql .= " AND c.fk_statut IN ( " . self :: STATUS_VALIDATED . " , " . self :: STATUS_ACCEPTED . " ) " ;
2011-09-11 20:35:38 +02:00
if ( $user -> societe_id ) $sql .= " AND c.fk_soc = " . $user -> societe_id ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
2015-09-06 19:23:46 +02:00
$commandestatic = new CommandeFournisseur ( $this -> db );
2015-02-15 15:01:28 +01:00
2015-02-16 23:49:07 +01:00
$response = new WorkboardResponse ();
2015-02-15 15:01:28 +01:00
$response -> warning_delay = $conf -> commande -> fournisseur -> warning_delay / 60 / 60 / 24 ;
$response -> label = $langs -> trans ( " SuppliersOrdersToProcess " );
2016-06-04 14:45:03 +02:00
$response -> url = DOL_URL_ROOT . '/fourn/commande/list.php?statut=1,2,3&mainmenu=commercial&leftmenu=orders_suppliers' ;
2017-03-28 10:44:52 +02:00
$response -> img = img_object ( '' , " order " );
2015-02-15 15:01:28 +01:00
2011-09-11 20:35:38 +02:00
while ( $obj = $this -> db -> fetch_object ( $resql ))
{
2015-02-15 15:01:28 +01:00
$response -> nbtodo ++ ;
2014-08-30 18:27:34 +02:00
2015-09-06 19:23:46 +02:00
$commandestatic -> date_livraison = $this -> db -> jdate ( $obj -> delivery_date );
2015-11-05 01:50:30 +01:00
$commandestatic -> date_commande = $this -> db -> jdate ( $obj -> date_commande );
2015-09-06 19:23:46 +02:00
$commandestatic -> statut = $obj -> fk_statut ;
if ( $commandestatic -> hasDelay ()) {
2015-02-15 15:01:28 +01:00
$response -> nbtodolate ++ ;
}
2011-09-11 20:35:38 +02:00
}
2015-02-15 15:01:28 +01:00
return $response ;
2011-09-11 20:35:38 +02:00
}
else
{
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
2012-08-24 19:55:31 +02:00
/**
2014-10-12 02:07:50 +02:00
* Returns the translated input method of object ( defined if $this -> methode_commande_id > 0 ) .
* This function make a sql request to get translation . No cache yet , try to not use it inside a loop .
2012-09-08 02:17:08 +02:00
*
2012-08-24 19:55:31 +02:00
* @ return string
*/
2016-07-19 12:57:23 +02:00
public function getInputMethod ()
2012-08-24 19:55:31 +02:00
{
global $db , $langs ;
if ( $this -> methode_commande_id > 0 )
{
2014-10-12 02:07:50 +02:00
$sql = " SELECT rowid, code, libelle as label " ;
2012-08-24 19:55:31 +02:00
$sql .= " FROM " . MAIN_DB_PREFIX . 'c_input_method' ;
$sql .= " WHERE active=1 AND rowid = " . $db -> escape ( $this -> methode_commande_id );
2017-05-04 15:52:12 +02:00
$resql = $db -> query ( $sql );
if ( $resql )
2012-08-24 19:55:31 +02:00
{
2017-05-04 15:52:12 +02:00
if ( $db -> num_rows ( $query ))
2012-08-24 19:55:31 +02:00
{
2017-05-04 15:52:12 +02:00
$obj = $db -> fetch_object ( $query );
2017-09-15 15:41:07 +02:00
2017-05-04 15:52:12 +02:00
$string = $langs -> trans ( $obj -> code );
if ( $string == $obj -> code )
{
$string = $obj -> label != '-' ? $obj -> label : '' ;
}
return $string ;
2017-09-15 15:41:07 +02:00
}
2012-08-24 19:55:31 +02:00
}
2017-05-04 15:52:12 +02:00
else dol_print_error ( $db );
2012-08-24 19:55:31 +02:00
}
return '' ;
}
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
/**
* Create a document onto disk according to template model .
*
* @ param string $modele Force template to use ( '' to not force )
* @ param Translate $outputlangs Object lang to use for traduction
* @ param int $hidedetails Hide details of lines
* @ param int $hidedesc Hide description
* @ param int $hideref Hide ref
2018-06-15 09:47:28 +02:00
* @ param null | array $moreparams Array to provide more information
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
* @ return int 0 if KO , 1 if OK
*/
2018-06-15 09:47:28 +02:00
public function generateDocument ( $modele , $outputlangs , $hidedetails = 0 , $hidedesc = 0 , $hideref = 0 , $moreparams = null )
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
{
2017-01-16 21:16:05 +01:00
global $conf , $langs ;
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
2014-09-22 00:15:32 +02:00
$langs -> load ( " suppliers " );
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
2017-01-16 21:16:05 +01:00
if ( ! dol_strlen ( $modele )) {
$modele = 'muscadet' ;
if ( $this -> modelpdf ) {
$modele = $this -> modelpdf ;
} elseif ( ! empty ( $conf -> global -> COMMANDE_SUPPLIER_ADDON_PDF )) {
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
$modele = $conf -> global -> COMMANDE_SUPPLIER_ADDON_PDF ;
}
}
2014-09-22 00:15:32 +02:00
$modelpath = " core/modules/supplier_order/pdf/ " ;
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
2018-06-15 09:47:28 +02:00
return $this -> commonGenerateDocument ( $modelpath , $modele , $outputlangs , $hidedetails , $hidedesc , $hideref , $moreparams );
Created a method generateDocument for several classes
Which are: Commande, Contrat, Livraison, Facture, Projet, Propal, Task, Expedition, CommandeFournisseur, FactureFournisseur and therefore deprecated the following methods supplier_order_pdf_create, supplier_invoice_pdf_create, delivery_order_pdf_create, task_pdf_create, propale_pdf_create, project_pdf_create, facture_pdf_create, expedition_pdf_create, commande_pdf_create
2014-09-16 12:30:37 +02:00
}
2015-02-06 16:07:22 +01:00
/**
* Return the max number delivery delay in day
*
2015-02-08 00:39:51 +01:00
* @ param Translate $langs Language object
* @ return Translated string
*/
2016-07-19 12:57:23 +02:00
public function getMaxDeliveryTimeDay ( $langs )
2015-02-06 16:07:22 +01:00
{
2015-02-28 18:10:31 +01:00
if ( empty ( $this -> lines )) return '' ;
$obj = new ProductFournisseur ( $this -> db );
2015-02-08 00:39:51 +01:00
2015-02-06 16:07:22 +01:00
$nb = 0 ;
2015-02-28 18:10:31 +01:00
foreach ( $this -> lines as $line )
{
if ( $line -> fk_product > 0 )
{
$idp = $obj -> find_min_price_product_fournisseur ( $line -> fk_product , $line -> qty );
if ( $idp )
{
$obj -> fetch ( $idp );
if ( $obj -> delivery_time_days > $nb ) $nb = $obj -> delivery_time_days ;
}
2015-02-06 16:07:22 +01:00
}
}
2015-02-08 00:39:51 +01:00
2015-04-18 18:56:25 +02:00
if ( $nb === 0 ) return '' ;
2015-02-06 16:33:58 +01:00
else return $nb . ' ' . $langs -> trans ( 'Days' );
2015-02-06 16:07:22 +01:00
}
2015-03-23 01:39:12 +01:00
/**
* Returns the rights used for this class
* @ return stdClass
*/
public function getRights ()
{
global $user ;
return $user -> rights -> fournisseur -> commande ;
}
2015-04-18 18:11:01 +02:00
/**
* 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 (
'commande_fournisseur'
);
return CommonObject :: commonReplaceThirdparty ( $db , $origin_id , $dest_id , $tables );
}
2015-09-06 19:23:46 +02:00
/**
* Is the supplier order delayed ?
*
* @ return bool
*/
public function hasDelay ()
{
global $conf ;
2016-08-05 09:46:17 +02:00
2016-05-24 18:40:47 +02:00
if ( empty ( $this -> date_delivery ) && ! empty ( $this -> date_livraison )) $this -> date_delivery = $this -> date_livraison ; // For backward compatibility
2016-08-05 09:46:17 +02:00
2015-09-06 19:23:46 +02:00
$now = dol_now ();
2016-05-24 18:40:47 +02:00
$date_to_test = empty ( $this -> date_delivery ) ? $this -> date_commande : $this -> date_delivery ;
2016-08-05 09:46:17 +02:00
2016-05-24 18:40:47 +02:00
return ( $this -> statut > 0 && $this -> statut < 4 ) && $date_to_test && $date_to_test < ( $now - $conf -> commande -> fournisseur -> warning_delay );
2015-09-06 19:23:46 +02:00
}
2016-08-05 09:46:17 +02:00
2016-05-24 18:40:47 +02:00
/**
* Show the customer delayed info
*
* @ return string Show delayed information
*/
public function showDelay ()
{
global $conf , $langs ;
2016-08-05 09:46:17 +02:00
2016-05-24 18:40:47 +02:00
if ( empty ( $this -> date_delivery ) && ! empty ( $this -> date_livraison )) $this -> date_delivery = $this -> date_livraison ; // For backward compatibility
2016-08-05 09:46:17 +02:00
2016-05-24 18:40:47 +02:00
if ( empty ( $this -> date_delivery )) $text = $langs -> trans ( " OrderDate " ) . ' ' . dol_print_date ( $this -> date_commande , 'day' );
else $text = $text = $langs -> trans ( " DeliveryDate " ) . ' ' . dol_print_date ( $this -> date_delivery , 'day' );
$text .= ' ' . ( $conf -> commande -> fournisseur -> warning_delay > 0 ? '+' : '-' ) . ' ' . round ( abs ( $conf -> commande -> fournisseur -> warning_delay ) / 3600 / 24 , 1 ) . ' ' . $langs -> trans ( " days " ) . ' < ' . $langs -> trans ( " Today " );
2016-08-05 09:46:17 +02:00
2016-05-24 18:40:47 +02:00
return $text ;
2016-08-05 09:46:17 +02:00
}
2016-08-05 10:02:36 +02:00
2017-06-30 11:40:26 +02:00
2016-08-05 10:02:36 +02:00
/**
2017-05-04 17:48:52 +02:00
* Calc status regarding to dispatched stock
2016-08-05 10:02:36 +02:00
*
2016-09-12 01:05:45 +02:00
* @ param User $user User action
* @ param int $closeopenorder Close if received
2017-03-25 03:53:11 +01:00
* @ param string $comment Comment
2016-09-12 01:05:45 +02:00
* @ return int < 0 if KO , 0 if not applicable , > 0 if OK
2016-08-05 10:02:36 +02:00
*/
2017-06-30 11:40:26 +02:00
public function calcAndSetStatusDispatch ( User $user , $closeopenorder = 1 , $comment = '' )
2016-09-09 18:35:26 +02:00
{
2017-03-25 03:53:11 +01:00
global $conf , $langs ;
2016-08-05 10:02:36 +02:00
2017-03-25 03:53:11 +01:00
if ( ! empty ( $conf -> fournisseur -> enabled ))
2016-08-05 10:02:36 +02:00
{
require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.commande.dispatch.class.php' ;
$qtydelivered = array ();
$qtywished = array ();
$supplierorderdispatch = new CommandeFournisseurDispatch ( $this -> db );
$filter = array ( 't.fk_commande' => $this -> id );
2016-09-09 18:35:26 +02:00
if ( ! empty ( $conf -> global -> SUPPLIER_ORDER_USE_DISPATCH_STATUS )) {
2017-08-23 16:07:11 +02:00
$filter [ 't.status' ] = 1 ; // Restrict to lines with status validated
2016-08-05 10:02:36 +02:00
}
2017-08-23 16:07:11 +02:00
2016-08-05 10:02:36 +02:00
$ret = $supplierorderdispatch -> fetchAll ( '' , '' , 0 , 0 , $filter );
2017-06-30 11:40:26 +02:00
if ( $ret < 0 )
2016-09-09 18:35:26 +02:00
{
2016-08-05 10:02:36 +02:00
$this -> error = $supplierorderdispatch -> error ; $this -> errors = $supplierorderdispatch -> errors ;
return $ret ;
2017-06-30 11:40:26 +02:00
}
else
2016-09-09 18:35:26 +02:00
{
2017-06-30 11:40:26 +02:00
if ( is_array ( $supplierorderdispatch -> lines ) && count ( $supplierorderdispatch -> lines ) > 0 )
2016-09-09 18:35:26 +02:00
{
2017-08-23 16:07:11 +02:00
$date_liv = dol_now ();
// Build array with quantity deliverd by product
2016-08-05 10:02:36 +02:00
foreach ( $supplierorderdispatch -> lines as $line ) {
$qtydelivered [ $line -> fk_product ] += $line -> qty ;
}
foreach ( $this -> lines as $line ) {
$qtywished [ $line -> fk_product ] += $line -> qty ;
}
//Compare array
2017-08-23 16:07:11 +02:00
$diff_array = array_diff_assoc ( $qtydelivered , $qtywished ); // Warning: $diff_array is done only on common keys.
$keysinwishednotindelivered = array_diff ( array_keys ( $qtywished ), array_keys ( $qtydelivered )); // To check we also have same number of keys
$keysindeliverednotinwished = array_diff ( array_keys ( $qtydelivered ), array_keys ( $qtywished )); // To check we also have same number of keys
/* var_dump ( array_keys ( $qtydelivered ));
var_dump ( array_keys ( $qtywished ));
var_dump ( $diff_array );
var_dump ( $keysinwishednotindelivered );
var_dump ( $keysindeliverednotinwished );
exit ; */
if ( count ( $diff_array ) == 0 && count ( $keysinwishednotindelivered ) == 0 && count ( $keysindeliverednotinwished ) == 0 ) //No diff => mean everythings is received
2016-09-09 18:35:26 +02:00
{
2016-09-12 01:05:45 +02:00
if ( $closeopenorder )
{
2017-03-25 03:53:11 +01:00
//$ret=$this->setStatus($user,5);
$ret = $this -> Livraison ( $user , $date_liv , 'tot' , $comment ); // GETPOST("type") is 'tot', 'par', 'nev', 'can'
2016-09-12 01:05:45 +02:00
if ( $ret < 0 ) {
return - 1 ;
}
return 5 ;
}
else
{
//Diff => received partially
2017-03-25 03:53:11 +01:00
//$ret=$this->setStatus($user,4);
$ret = $this -> Livraison ( $user , $date_liv , 'par' , $comment ); // GETPOST("type") is 'tot', 'par', 'nev', 'can'
2016-09-12 01:05:45 +02:00
if ( $ret < 0 ) {
return - 1 ;
}
return 4 ;
2016-08-05 10:02:36 +02:00
}
2018-02-23 10:14:54 +01:00
} elseif ( ! empty ( $conf -> global -> SUPPLIER_ORDER_MORE_THAN_WISHED ) )
{ //set livraison to 'tot' if more products received than wished. (and if $closeopenorder is set to 1 of course...)
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
$close = 0 ;
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
if ( count ( $diff_array ) > 0 )
{ //there are some difference between the two arrays
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
//scan the array of results
foreach ( $diff_array as $key => $value )
{ //if the quantity delivered is greater or equal to wish quantity
if ( $qtydelivered [ $key ] >= $qtywished [ $key ] )
{
$close ++ ;
}
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
}
}
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
if ( $close == count ( $diff_array ))
{ //all the products are received equal or more than the wished quantity
if ( $closeopenorder )
{
$ret = $this -> Livraison ( $user , $date_liv , 'tot' , $comment ); // GETPOST("type") is 'tot', 'par', 'nev', 'can'
if ( $ret < 0 ) {
return - 1 ;
}
return 5 ;
}
else
{
//Diff => received partially
$ret = $this -> Livraison ( $user , $date_liv , 'par' , $comment ); // GETPOST("type") is 'tot', 'par', 'nev', 'can'
if ( $ret < 0 ) {
return - 1 ;
}
return 4 ;
}
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
}
else
{ //all the products are not received
$ret = $this -> Livraison ( $user , $date_liv , 'par' , $comment ); // GETPOST("type") is 'tot', 'par', 'nev', 'can'
if ( $ret < 0 ) {
return - 1 ;
}
return 4 ;
}
2018-02-26 14:09:15 +01:00
2018-02-23 10:14:54 +01:00
}
2017-06-30 11:40:26 +02:00
else
2016-09-09 18:35:26 +02:00
{
2016-08-05 10:02:36 +02:00
//Diff => received partially
2017-03-25 03:53:11 +01:00
$ret = $this -> Livraison ( $user , $date_liv , 'par' , $comment ); // GETPOST("type") is 'tot', 'par', 'nev', 'can'
2016-08-05 10:02:36 +02:00
if ( $ret < 0 ) {
2016-09-12 01:05:45 +02:00
return - 1 ;
2016-08-05 10:02:36 +02:00
}
2016-09-09 18:35:26 +02:00
return 4 ;
2016-08-05 10:02:36 +02:00
}
}
2016-09-09 18:35:26 +02:00
return 1 ;
2016-08-05 10:02:36 +02:00
}
}
2016-09-09 18:35:26 +02:00
return 0 ;
2016-08-05 10:02:36 +02:00
}
2004-11-30 20:25:48 +01:00
}
2006-02-17 18:59:43 +01:00
2007-03-23 00:20:21 +01:00
2010-11-13 18:37:22 +01:00
2007-03-23 00:20:21 +01:00
/**
2015-02-08 00:39:51 +01:00
* Class to manage line orders
2007-03-23 00:20:21 +01:00
*/
2014-08-18 23:02:04 +02:00
class CommandeFournisseurLigne extends CommonOrderLine
2006-02-17 18:59:43 +01:00
{
2016-07-19 12:57:23 +02:00
public $element = 'commande_fournisseurdet' ;
2015-02-28 03:11:15 +01:00
public $table_element = 'commande_fournisseurdet' ;
2015-04-01 21:00:51 +02:00
2016-07-19 12:57:23 +02:00
public $oldline ;
/**
* Id of parent order
* @ var int
*/
public $fk_commande ;
// From llx_commande_fournisseurdet
public $fk_parent_line ;
public $fk_facture ;
public $label ;
public $rang = 0 ;
2018-04-12 16:12:23 +02:00
public $special_code = 0 ;
2016-07-19 12:57:23 +02:00
2015-03-23 01:39:12 +01:00
/**
* Unit price without taxes
* @ var float
*/
public $pu_ht ;
2015-02-28 03:11:15 +01:00
2016-07-19 12:57:23 +02:00
public $date_start ;
public $date_end ;
2011-09-11 20:35:38 +02:00
2015-03-22 12:51:29 +01:00
// From llx_product_fournisseur_price
2015-03-23 01:39:12 +01:00
/**
2016-12-13 13:22:24 +01:00
* Supplier reference of price when we added the line . May have been changed after line was added .
2015-03-23 01:39:12 +01:00
* @ var string
*/
2016-07-19 12:57:23 +02:00
public $ref_supplier ;
public $remise ;
public $product_libelle ;
2011-09-11 20:35:38 +02:00
/**
* Constructor
*
2012-01-19 09:53:27 +01:00
* @ param DoliDB $db Database handler
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function __construct ( $db )
2011-09-11 20:35:38 +02:00
{
2012-01-19 09:53:27 +01:00
$this -> db = $db ;
2011-09-11 20:35:38 +02:00
}
/**
* Load line order
*
2012-01-19 09:53:27 +01:00
* @ param int $rowid Id line order
* @ return int < 0 if KO , > 0 if OK
2011-09-11 20:35:38 +02:00
*/
2016-07-19 12:57:23 +02:00
public function fetch ( $rowid )
2011-09-11 20:35:38 +02:00
{
2018-04-13 10:14:57 +02:00
$sql = 'SELECT cd.rowid, cd.fk_commande, cd.fk_product, cd.product_type, cd.description, cd.qty, cd.tva_tx, cd.special_code,' ;
2017-09-24 23:28:48 +02:00
$sql .= ' cd.localtax1_tx, cd.localtax2_tx, cd.localtax1_type, cd.localtax2_type, cd.ref,' ;
2011-09-11 20:35:38 +02:00
$sql .= ' cd.remise, cd.remise_percent, cd.subprice,' ;
$sql .= ' cd.info_bits, cd.total_ht, cd.total_tva, cd.total_ttc,' ;
2013-06-05 18:19:50 +02:00
$sql .= ' cd.total_localtax1, cd.total_localtax2,' ;
2014-08-18 23:02:04 +02:00
$sql .= ' p.ref as product_ref, p.label as product_libelle, p.description as product_desc,' ;
2017-03-07 10:55:17 +01:00
$sql .= ' cd.date_start, cd.date_end, cd.fk_unit,' ;
2017-03-07 11:33:18 +01:00
$sql .= ' cd.multicurrency_subprice, cd.multicurrency_total_ht, cd.multicurrency_total_tva, cd.multicurrency_total_ttc' ;
2011-09-11 20:35:38 +02:00
$sql .= ' FROM ' . MAIN_DB_PREFIX . 'commande_fournisseurdet as cd' ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'product as p ON cd.fk_product = p.rowid' ;
$sql .= ' WHERE cd.rowid = ' . $rowid ;
$result = $this -> db -> query ( $sql );
if ( $result )
{
$objp = $this -> db -> fetch_object ( $result );
2017-03-10 12:35:33 +01:00
2011-09-11 20:35:38 +02:00
$this -> rowid = $objp -> rowid ;
2016-07-19 12:57:23 +02:00
$this -> id = $objp -> rowid ;
2011-09-11 20:35:38 +02:00
$this -> fk_commande = $objp -> fk_commande ;
$this -> desc = $objp -> description ;
$this -> qty = $objp -> qty ;
2016-09-13 18:41:13 +02:00
$this -> ref_fourn = $objp -> ref ;
$this -> ref_supplier = $objp -> ref ;
2011-09-11 20:35:38 +02:00
$this -> subprice = $objp -> subprice ;
$this -> tva_tx = $objp -> tva_tx ;
$this -> localtax1_tx = $objp -> localtax1_tx ;
$this -> localtax2_tx = $objp -> localtax2_tx ;
2017-09-24 23:28:48 +02:00
$this -> localtax1_type = $objp -> localtax1_type ;
$this -> localtax2_type = $objp -> localtax2_type ;
2011-09-11 20:35:38 +02:00
$this -> remise = $objp -> remise ;
$this -> remise_percent = $objp -> remise_percent ;
$this -> fk_product = $objp -> fk_product ;
$this -> info_bits = $objp -> info_bits ;
$this -> total_ht = $objp -> total_ht ;
$this -> total_tva = $objp -> total_tva ;
$this -> total_localtax1 = $objp -> total_localtax1 ;
$this -> total_localtax2 = $objp -> total_localtax2 ;
$this -> total_ttc = $objp -> total_ttc ;
$this -> product_type = $objp -> product_type ;
2018-04-12 16:12:23 +02:00
$this -> special_code = $objp -> special_code ;
2011-09-11 20:35:38 +02:00
$this -> ref = $objp -> product_ref ;
2016-07-19 12:57:23 +02:00
$this -> product_ref = $objp -> product_ref ;
2011-09-11 20:35:38 +02:00
$this -> product_libelle = $objp -> product_libelle ;
$this -> product_desc = $objp -> product_desc ;
2017-03-07 10:55:17 +01:00
$this -> date_start = $this -> db -> jdate ( $objp -> date_start );
$this -> date_end = $this -> db -> jdate ( $objp -> date_end );
$this -> fk_unit = $objp -> fk_unit ;
2017-06-30 11:40:26 +02:00
2017-03-07 11:33:18 +01:00
$this -> multicurrency_subprice = $objp -> multicurrency_subprice ;
2017-03-07 10:55:17 +01:00
$this -> multicurrency_total_ht = $objp -> multicurrency_total_ht ;
$this -> multicurrency_total_tva = $objp -> multicurrency_total_tva ;
$this -> multicurrency_total_ttc = $objp -> multicurrency_total_ttc ;
2017-06-30 11:40:26 +02:00
2018-04-14 17:04:38 +02:00
$this -> fetch_optionals ();
2011-09-11 20:35:38 +02:00
$this -> db -> free ( $result );
2013-06-05 18:19:50 +02:00
return 1 ;
2011-09-11 20:35:38 +02:00
}
else
{
dol_print_error ( $this -> db );
2013-06-05 18:19:50 +02:00
return - 1 ;
2011-09-11 20:35:38 +02:00
}
}
2016-07-19 12:57:23 +02:00
/**
* Insert line into database
*
* @ param int $notrigger 1 = disable triggers
* @ return int < 0 if KO , > 0 if OK
*/
public function insert ( $notrigger = 0 )
{
global $conf , $user ;
$error = 0 ;
dol_syslog ( get_class ( $this ) . " ::insert rang= " . $this -> rang );
// Clean parameters
if ( empty ( $this -> tva_tx )) $this -> tva_tx = 0 ;
if ( empty ( $this -> localtax1_tx )) $this -> localtax1_tx = 0 ;
if ( empty ( $this -> localtax2_tx )) $this -> localtax2_tx = 0 ;
2016-10-29 21:02:08 +02:00
if ( empty ( $this -> localtax1_type )) $this -> localtax1_type = '0' ;
if ( empty ( $this -> localtax2_type )) $this -> localtax2_type = '0' ;
2016-07-19 12:57:23 +02:00
if ( empty ( $this -> total_localtax1 )) $this -> total_localtax1 = 0 ;
if ( empty ( $this -> total_localtax2 )) $this -> total_localtax2 = 0 ;
if ( empty ( $this -> rang )) $this -> rang = 0 ;
if ( empty ( $this -> remise )) $this -> remise = 0 ;
if ( empty ( $this -> remise_percent )) $this -> remise_percent = 0 ;
if ( empty ( $this -> info_bits )) $this -> info_bits = 0 ;
if ( empty ( $this -> special_code )) $this -> special_code = 0 ;
if ( empty ( $this -> fk_parent_line )) $this -> fk_parent_line = 0 ;
if ( empty ( $this -> pa_ht )) $this -> pa_ht = 0 ;
2016-07-28 14:10:43 +02:00
// Multicurrency
if ( ! empty ( $this -> multicurrency_code )) list ( $this -> fk_multicurrency , $this -> multicurrency_tx ) = MultiCurrency :: getIdAndTxFromCode ( $this -> db , $this -> multicurrency_code );
if ( empty ( $this -> fk_multicurrency ))
{
$this -> multicurrency_code = $conf -> currency ;
$this -> fk_multicurrency = 0 ;
$this -> multicurrency_tx = 1 ;
}
2016-08-05 09:46:17 +02:00
2016-07-19 12:57:23 +02:00
// Check parameters
if ( $this -> product_type < 0 ) return - 1 ;
$this -> db -> begin ();
// Insertion dans base de la ligne
$sql = 'INSERT INTO ' . MAIN_DB_PREFIX . $this -> table_element ;
$sql .= " (fk_commande, label, description, date_start, date_end, " ;
2018-04-13 15:53:49 +02:00
$sql .= " fk_product, product_type, special_code, rang, " ;
2016-10-29 21:02:08 +02:00
$sql .= " qty, vat_src_code, tva_tx, localtax1_tx, localtax2_tx, localtax1_type, localtax2_type, remise_percent, subprice, ref, " ;
2016-07-19 12:57:23 +02:00
$sql .= " total_ht, total_tva, total_localtax1, total_localtax2, total_ttc, fk_unit, " ;
$sql .= " fk_multicurrency, multicurrency_code, multicurrency_subprice, multicurrency_total_ht, multicurrency_total_tva, multicurrency_total_ttc " ;
$sql .= " ) " ;
2017-03-16 10:05:50 +01:00
$sql .= " VALUES ( " . $this -> fk_commande . " , ' " . $this -> db -> escape ( $this -> label ) . " ',' " . $this -> db -> escape ( $this -> desc ) . " ', " ;
2016-07-19 12:57:23 +02:00
$sql .= " " . ( $this -> date_start ? " ' " . $this -> db -> idate ( $this -> date_start ) . " ' " : " null " ) . " , " ;
$sql .= " " . ( $this -> date_end ? " ' " . $this -> db -> idate ( $this -> date_end ) . " ' " : " null " ) . " , " ;
if ( $this -> fk_product ) { $sql .= $this -> fk_product . " , " ; }
else { $sql .= " null, " ; }
2017-09-15 15:41:07 +02:00
$sql .= " ' " . $this -> db -> escape ( $this -> product_type ) . " ', " ;
2018-04-13 23:03:46 +02:00
$sql .= " ' " . $this -> db -> escape ( $this -> special_code ) . " ', " ;
$sql .= " ' " . $this -> db -> escape ( $this -> rang ) . " ', " ;
2017-09-15 15:41:07 +02:00
$sql .= " ' " . $this -> db -> escape ( $this -> qty ) . " ', " ;
$sql .= " " . ( empty ( $this -> vat_src_code ) ? " '' " : " ' " . $this -> db -> escape ( $this -> vat_src_code ) . " ' " ) . " , " ;
2016-10-29 21:02:08 +02:00
$sql .= " " . $this -> tva_tx . " , " ;
$sql .= " " . $this -> localtax1_tx . " , " ;
$sql .= " " . $this -> localtax2_tx . " , " ;
2017-09-15 15:41:07 +02:00
$sql .= " ' " . $this -> db -> escape ( $this -> localtax1_type ) . " ', " ;
$sql .= " ' " . $this -> db -> escape ( $this -> localtax2_type ) . " ', " ;
2016-10-29 21:02:08 +02:00
$sql .= " " . $this -> remise_percent . " , " . price2num ( $this -> subprice , 'MU' ) . " , ' " . $this -> db -> escape ( $this -> ref_supplier ) . " ', " ;
$sql .= " " . price2num ( $this -> total_ht ) . " , " ;
$sql .= " " . price2num ( $this -> total_tva ) . " , " ;
$sql .= " " . price2num ( $this -> total_localtax1 ) . " , " ;
$sql .= " " . price2num ( $this -> total_localtax2 ) . " , " ;
$sql .= " " . price2num ( $this -> total_ttc ) . " , " ;
2016-07-19 12:57:23 +02:00
$sql .= ( $this -> fk_unit ? " ' " . $this -> db -> escape ( $this -> fk_unit ) . " ' " : " null " );
2016-08-28 02:40:20 +02:00
$sql .= " , " . ( $this -> fk_multicurrency ? $this -> fk_multicurrency : " null " );
2016-07-19 12:57:23 +02:00
$sql .= " , ' " . $this -> db -> escape ( $this -> multicurrency_code ) . " ' " ;
2018-06-16 13:49:28 +02:00
$sql .= " , " . ( $this -> multicurrency_subprice ? price2num ( $this -> multicurrency_subprice ) : '0' );
$sql .= " , " . ( $this -> multicurrency_total_ht ? price2num ( $this -> multicurrency_total_ht ) : '0' );
$sql .= " , " . ( $this -> multicurrency_total_tva ? price2num ( $this -> multicurrency_total_tva ) : '0' );
$sql .= " , " . ( $this -> multicurrency_total_ttc ? price2num ( $this -> multicurrency_total_ttc ) : '0' );
2016-07-19 12:57:23 +02:00
$sql .= " ) " ;
dol_syslog ( get_class ( $this ) . " ::insert " , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$this -> id = $this -> db -> last_insert_id ( MAIN_DB_PREFIX . $this -> table_element );
$this -> rowid = $this -> id ;
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$result = $this -> insertExtraFields ();
if ( $result < 0 )
{
$error ++ ;
}
}
if ( ! $error && ! $notrigger )
{
// Call trigger
2016-09-15 23:45:13 +02:00
$result = $this -> call_trigger ( 'LINEORDER_SUPPLIER_CREATE' , $user );
2016-07-19 12:57:23 +02:00
if ( $result < 0 ) $error ++ ;
// End call triggers
}
if ( ! $error ) {
$this -> db -> commit ();
return 1 ;
}
foreach ( $this -> errors as $errmsg )
{
dol_syslog ( get_class ( $this ) . " ::delete " . $errmsg , LOG_ERR );
$this -> errors [] = ( $this -> errors ? ', ' . $errmsg : $errmsg );
}
$this -> db -> rollback ();
return - 1 * $error ;
}
else
{
$this -> errors [] = $this -> db -> error ();
$this -> db -> rollback ();
return - 2 ;
}
}
/**
* Update the line object into db
*
* @ param int $notrigger 1 = disable triggers
* @ return int < 0 si ko , > 0 si ok
*/
public function update ( $notrigger = 0 )
{
global $conf , $user ;
$error = 0 ;
// Mise a jour ligne en base
$sql = " UPDATE " . MAIN_DB_PREFIX . $this -> table_element . " SET " ;
2016-10-29 21:02:08 +02:00
$sql .= " description=' " . $this -> db -> escape ( $this -> desc ) . " ' " ;
2017-11-12 16:06:08 +01:00
$sql .= " , ref=' " . $this -> db -> escape ( $this -> ref_supplier ) . " ' " ;
2016-10-29 21:02:08 +02:00
$sql .= " , subprice=' " . price2num ( $this -> subprice ) . " ' " ;
2016-07-19 12:57:23 +02:00
//$sql.= ",remise='".price2num($remise)."'";
2016-10-29 21:02:08 +02:00
$sql .= " , remise_percent=' " . price2num ( $this -> remise_percent ) . " ' " ;
2017-06-30 11:40:26 +02:00
2016-10-29 21:02:08 +02:00
$sql .= " , vat_src_code = ' " . ( empty ( $this -> vat_src_code ) ? '' : $this -> vat_src_code ) . " ' " ;
$sql .= " , tva_tx=' " . price2num ( $this -> tva_tx ) . " ' " ;
$sql .= " , localtax1_tx=' " . price2num ( $this -> total_localtax1 ) . " ' " ;
$sql .= " , localtax2_tx=' " . price2num ( $this -> total_localtax2 ) . " ' " ;
2017-05-12 16:55:11 +02:00
$sql .= " , localtax1_type=' " . $this -> db -> escape ( $this -> localtax1_type ) . " ' " ;
$sql .= " , localtax2_type=' " . $this -> db -> escape ( $this -> localtax2_type ) . " ' " ;
2016-10-29 21:02:08 +02:00
$sql .= " , qty=' " . price2num ( $this -> qty ) . " ' " ;
$sql .= " , date_start= " . ( ! empty ( $this -> date_start ) ? " ' " . $this -> db -> idate ( $this -> date_start ) . " ' " : " null " );
$sql .= " , date_end= " . ( ! empty ( $this -> date_end ) ? " ' " . $this -> db -> idate ( $this -> date_end ) . " ' " : " null " );
2017-05-12 16:55:11 +02:00
$sql .= " , info_bits=' " . $this -> db -> escape ( $this -> info_bits ) . " ' " ;
2016-10-29 21:02:08 +02:00
$sql .= " , total_ht=' " . price2num ( $this -> total_ht ) . " ' " ;
$sql .= " , total_tva=' " . price2num ( $this -> total_tva ) . " ' " ;
$sql .= " , total_localtax1=' " . price2num ( $this -> total_localtax1 ) . " ' " ;
$sql .= " , total_localtax2=' " . price2num ( $this -> total_localtax2 ) . " ' " ;
$sql .= " , total_ttc=' " . price2num ( $this -> total_ttc ) . " ' " ;
$sql .= " , product_type= " . $this -> product_type ;
2018-04-12 16:12:23 +02:00
$sql .= " , special_code= " . ( ! empty ( $this -> special_code ) ? $this -> special_code : 0 );
2016-10-29 21:02:08 +02:00
$sql .= ( $this -> fk_unit ? " , fk_unit=' " . $this -> db -> escape ( $this -> fk_unit ) . " ' " : " , fk_unit=null " );
2016-07-19 12:57:23 +02:00
// Multicurrency
2016-12-11 02:09:57 +01:00
$sql .= " , multicurrency_subprice= " . price2num ( $this -> multicurrency_subprice ) . " " ;
2016-10-29 21:02:08 +02:00
$sql .= " , multicurrency_total_ht= " . price2num ( $this -> multicurrency_total_ht ) . " " ;
$sql .= " , multicurrency_total_tva= " . price2num ( $this -> multicurrency_total_tva ) . " " ;
$sql .= " , multicurrency_total_ttc= " . price2num ( $this -> multicurrency_total_ttc ) . " " ;
2016-07-19 12:57:23 +02:00
$sql .= " WHERE rowid = " . $this -> id ;
dol_syslog ( get_class ( $this ) . " ::updateline " , LOG_DEBUG );
$result = $this -> db -> query ( $sql );
if ( $result > 0 )
{
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$result = $this -> insertExtraFields ();
if ( $result < 0 )
{
$error ++ ;
}
}
if ( ! $error && ! $notrigger )
{
global $user ;
// Call trigger
$result = $this -> call_trigger ( 'LINEORDER_SUPPLIER_UPDATE' , $user );
if ( $result < 0 )
{
$this -> db -> rollback ();
return - 1 ;
}
// End call triggers
}
if ( ! $error )
{
$this -> db -> commit ();
return $result ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
$this -> error = $this -> db -> lasterror ();
$this -> db -> rollback ();
return - 1 ;
}
}
2016-09-17 02:35:02 +02:00
/**
* Delete line in database
*
* @ param int $notrigger 1 = Disable call to triggers
* @ return int < 0 if KO , > 0 if OK
*/
function delete ( $notrigger )
{
global $user ;
$error = 0 ;
$this -> db -> begin ();
2017-05-12 16:55:11 +02:00
$sql = 'DELETE FROM ' . MAIN_DB_PREFIX . " commande_fournisseurdet WHERE rowid= " . $this -> rowid ;
2016-09-17 02:35:02 +02:00
dol_syslog ( __METHOD__ , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
if ( ! $notrigger )
{
// Call trigger
$result = $this -> call_trigger ( 'LINEORDER_SUPPLIER_DELETE' , $user );
if ( $result < 0 ) $error ++ ;
// End call triggers
}
if ( ! $error )
{
$this -> db -> commit ();
return 1 ;
}
foreach ( $this -> errors as $errmsg )
{
dol_syslog ( get_class ( $this ) . " ::delete " . $errmsg , LOG_ERR );
$this -> error .= ( $this -> error ? ', ' . $errmsg : $errmsg );
}
$this -> db -> rollback ();
return - 1 * $error ;
}
else
{
$this -> error = $this -> db -> lasterror ();
return - 1 ;
}
}
2006-02-17 18:59:43 +01:00
}