2004-10-20 23:06:45 +02:00
< ? php
2012-02-15 15:16:33 +01:00
/* Copyright ( C ) 2002 - 2004 Rodolphe Quiedeville < rodolphe @ quiedeville . org >
* Copyright ( C ) 2004 Eric Seigne < eric . seigne @ ryxeo . com >
2012-03-18 20:45:01 +01:00
* Copyright ( C ) 2004 - 2011 Laurent Destailleur < eldy @ users . sourceforge . net >
* Copyright ( C ) 2005 Marc Barilley < marc @ ocebo . com >
2013-01-22 21:36:30 +01:00
* Copyright ( C ) 2005 - 2013 Regis Houssin < regis . houssin @ capnetworks . com >
2012-03-18 20:45:01 +01:00
* Copyright ( C ) 2006 Andre Cianfarani < acianfa @ free . fr >
* Copyright ( C ) 2008 Raphael Bertrand < raphael . bertrand @ resultic . fr >
2013-03-02 15:57:26 +01:00
* Copyright ( C ) 2010 - 2013 Juanjo Menent < jmenent @ 2 byte . es >
2012-03-18 20:45:01 +01:00
* Copyright ( C ) 2010 - 2011 Philippe Grand < philippe . grand @ atoo - net . com >
2013-04-09 17:18:07 +02:00
* Copyright ( C ) 2012 Christophe Battarel < christophe . battarel @ altairis . fr >
* Copyright ( C ) 2013 Florian Henry < florian . henry @ open - concept . pro >
2012-03-19 17:18:11 +01:00
*
2012-03-18 20:45:01 +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
2012-03-18 20:45:01 +01:00
* ( at your option ) any later version .
2012-03-19 17:18:11 +01:00
*
2012-03-18 20:45:01 +01:00
* 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 .
2012-03-19 17:18:11 +01:00
*
2012-03-18 20:45:01 +01:00
* You should have received a copy of the GNU General Public License
* along with this program . If not , see < http :// www . gnu . org / licenses />.
*/
2003-09-11 18:00:49 +02:00
2005-02-26 19:33:10 +01:00
/**
2010-04-28 19:30:59 +02:00
* \file htdocs / comm / propal / class / propal . class . php
2013-08-27 11:54:07 +02:00
* \brief File of class to manage proposals
2012-03-18 20:45:01 +01:00
*/
2004-08-07 17:35:08 +02:00
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/class/commonobject.class.php' ;
require_once DOL_DOCUMENT_ROOT . '/product/class/product.class.php' ;
require_once DOL_DOCUMENT_ROOT . '/contact/class/contact.class.php' ;
require_once DOL_DOCUMENT_ROOT . '/margin/lib/margins.lib.php' ;
2004-08-07 17:35:08 +02:00
2005-02-26 19:33:10 +01:00
/**
2013-08-27 11:54:07 +02:00
* Class to manage proposals
2008-08-28 01:00:37 +02:00
*/
2006-06-18 16:18:41 +02:00
class Propal extends CommonObject
2003-09-11 18:00:49 +02:00
{
2012-03-18 19:23:01 +01:00
public $element = 'propal' ;
public $table_element = 'propal' ;
public $table_element_line = 'propaldet' ;
public $fk_element = 'fk_propal' ;
protected $ismultientitymanaged = 1 ; // 0=No test on entity, 1=Test with field entity, 2=Test with link by societe
var $id ;
var $socid ; // Id client
var $client ; // Objet societe client (a charger par fetch_client)
var $contactid ;
var $fk_project ;
var $author ;
var $ref ;
var $ref_client ;
var $statut ; // 0 (draft), 1 (validated), 2 (signed), 3 (not signed), 4 (billed)
var $datec ; // Date of creation
var $datev ; // Date of validation
var $date ; // Date of proposal
var $datep ; // Same than date
var $date_livraison ;
var $fin_validite ;
var $user_author_id ;
var $user_valid_id ;
var $user_close_id ;
var $total_ht ; // Total net of tax
var $total_tva ; // Total VAT
var $total_localtax1 ; // Total Local Taxes 1
var $total_localtax2 ; // Total Local Taxes 2
var $total_ttc ; // Total with tax
var $price ; // deprecated (for compatibility)
var $tva ; // deprecated (for compatibility)
var $total ; // deprecated (for compatibility)
var $cond_reglement_id ;
var $cond_reglement_code ;
var $mode_reglement_id ;
var $mode_reglement_code ;
var $remise ;
var $remise_percent ;
var $remise_absolue ;
var $note ; // deprecated (for compatibility)
var $note_private ;
var $note_public ;
var $fk_delivery_address ; // deprecated (for compatibility)
var $fk_address ;
var $address_type ;
2013-02-15 19:36:09 +01:00
var $address ;
2012-03-18 19:23:01 +01:00
var $availability_id ;
var $availability_code ;
var $demand_reason_id ;
var $demand_reason_code ;
var $products = array ();
var $extraparams = array ();
var $lines = array ();
var $line ;
var $origin ;
var $origin_id ;
var $labelstatut = array ();
var $labelstatut_short = array ();
// Pour board
var $nbtodo ;
var $nbtodolate ;
var $specimen ;
/**
* Constructor
*
* @ param DoliDB $db Database handler
* @ param int $socid Id third party
* @ param int $propalid Id proposal
*/
2012-07-30 17:17:33 +02:00
function __construct ( $db , $socid = " " , $propalid = 0 )
2012-03-18 19:23:01 +01:00
{
global $conf , $langs ;
$this -> db = $db ;
$this -> socid = $socid ;
$this -> id = $propalid ;
$this -> products = array ();
$this -> remise = 0 ;
$this -> remise_percent = 0 ;
$this -> remise_absolue = 0 ;
$this -> duree_validite = $conf -> global -> PROPALE_VALIDITY_DURATION ;
$langs -> load ( " propal " );
$this -> labelstatut [ 0 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_DRAFT_LABEL ) ? $conf -> global -> PROPAL_STATUS_DRAFT_LABEL : $langs -> trans ( " PropalStatusDraft " ));
$this -> labelstatut [ 1 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_VALIDATED_LABEL ) ? $conf -> global -> PROPAL_STATUS_VALIDATED_LABEL : $langs -> trans ( " PropalStatusValidated " ));
$this -> labelstatut [ 2 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_SIGNED_LABEL ) ? $conf -> global -> PROPAL_STATUS_SIGNED_LABEL : $langs -> trans ( " PropalStatusSigned " ));
$this -> labelstatut [ 3 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_NOTSIGNED_LABEL ) ? $conf -> global -> PROPAL_STATUS_NOTSIGNED_LABEL : $langs -> trans ( " PropalStatusNotSigned " ));
$this -> labelstatut [ 4 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_BILLED_LABEL ) ? $conf -> global -> PROPAL_STATUS_BILLED_LABEL : $langs -> trans ( " PropalStatusBilled " ));
$this -> labelstatut_short [ 0 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_DRAFTSHORT_LABEL ) ? $conf -> global -> PROPAL_STATUS_DRAFTSHORT_LABEL : $langs -> trans ( " PropalStatusDraftShort " ));
$this -> labelstatut_short [ 1 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_VALIDATEDSHORT_LABEL ) ? $conf -> global -> PROPAL_STATUS_VALIDATEDSHORT_LABEL : $langs -> trans ( " Opened " ));
$this -> labelstatut_short [ 2 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_SIGNEDSHORT_LABEL ) ? $conf -> global -> PROPAL_STATUS_SIGNEDSHORT_LABEL : $langs -> trans ( " PropalStatusSignedShort " ));
$this -> labelstatut_short [ 3 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_NOTSIGNEDSHORT_LABEL ) ? $conf -> global -> PROPAL_STATUS_NOTSIGNEDSHORT_LABEL : $langs -> trans ( " PropalStatusNotSignedShort " ));
$this -> labelstatut_short [ 4 ] = ( ! empty ( $conf -> global -> PROPAL_STATUS_BILLEDSHORT_LABEL ) ? $conf -> global -> PROPAL_STATUS_BILLEDSHORT_LABEL : $langs -> trans ( " PropalStatusBilledShort " ));
}
/**
* Add line into array products
* $this -> client doit etre charge
*
* @ param int $idproduct Product Id to add
* @ param int $qty Quantity
* @ param int $remise_percent Discount effected on Product
* @ return int < 0 if KO , > 0 if OK
*
* TODO Remplacer les appels a cette fonction par generation objet Ligne
* insere dans tableau $this -> products
*/
function add_product ( $idproduct , $qty , $remise_percent = 0 )
{
global $conf , $mysoc ;
if ( ! $qty ) $qty = 1 ;
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::add_product $idproduct , $qty , $remise_percent " );
2012-03-18 19:23:01 +01:00
if ( $idproduct > 0 )
{
$prod = new Product ( $this -> db );
$prod -> fetch ( $idproduct );
$productdesc = $prod -> description ;
$tva_tx = get_default_tva ( $mysoc , $this -> client , $prod -> id );
// local taxes
$localtax1_tx = get_default_localtax ( $mysoc , $this -> client , 1 , $prod -> tva_tx );
$localtax2_tx = get_default_localtax ( $mysoc , $this -> client , 2 , $prod -> tva_tx );
// multiprix
if ( $conf -> global -> PRODUIT_MULTIPRICES && $this -> client -> price_level )
{
$price = $prod -> multiprices [ $this -> client -> price_level ];
}
else
{
$price = $prod -> price ;
}
$line = new PropaleLigne ( $this -> db );
$line -> fk_product = $idproduct ;
$line -> desc = $productdesc ;
$line -> qty = $qty ;
$line -> subprice = $price ;
$line -> remise_percent = $remise_percent ;
$line -> tva_tx = $tva_tx ;
$this -> products [] = $line ;
}
}
/**
* Adding line of fixed discount in the proposal in DB
*
2012-03-19 17:18:11 +01:00
* @ param int $idremise Id of fixed discount
* @ return int > 0 if OK , < 0 if KO
2012-03-18 19:23:01 +01:00
*/
function insert_discount ( $idremise )
{
global $langs ;
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php' ;
include_once DOL_DOCUMENT_ROOT . '/core/class/discount.class.php' ;
2012-03-18 19:23:01 +01:00
$this -> db -> begin ();
$remise = new DiscountAbsolute ( $this -> db );
$result = $remise -> fetch ( $idremise );
if ( $result > 0 )
{
if ( $remise -> fk_facture ) // Protection against multiple submission
{
$this -> error = $langs -> trans ( " ErrorDiscountAlreadyUsed " );
$this -> db -> rollback ();
return - 5 ;
}
$propalligne = new PropaleLigne ( $this -> db );
$propalligne -> fk_propal = $this -> id ;
$propalligne -> fk_remise_except = $remise -> id ;
$propalligne -> desc = $remise -> description ; // Description ligne
$propalligne -> tva_tx = $remise -> tva_tx ;
$propalligne -> subprice =- $remise -> amount_ht ;
$propalligne -> fk_product = 0 ; // Id produit predefini
$propalligne -> qty = 1 ;
$propalligne -> remise = 0 ;
$propalligne -> remise_percent = 0 ;
$propalligne -> rang =- 1 ;
$propalligne -> info_bits = 2 ;
// TODO deprecated
$propalligne -> price =- $remise -> amount_ht ;
$propalligne -> total_ht = - $remise -> amount_ht ;
$propalligne -> total_tva = - $remise -> amount_tva ;
$propalligne -> total_ttc = - $remise -> amount_ttc ;
$result = $propalligne -> insert ();
if ( $result > 0 )
{
$result = $this -> update_price ( 1 );
if ( $result > 0 )
{
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
$this -> error = $propalligne -> error ;
$this -> db -> rollback ();
return - 2 ;
}
}
else
{
$this -> db -> rollback ();
return - 2 ;
}
}
/**
* Add a proposal line into database ( linked to product / service or not )
* Les parametres sont deja cense etre juste et avec valeurs finales a l ' appel
* de cette methode . Aussi , pour le taux tva , il doit deja avoir ete defini
* par l 'appelant par la methode get_default_tva(societe_vendeuse,societe_acheteuse,' ' , produit )
* et le desc doit deja avoir la bonne valeur ( a l ' appelant de gerer le multilangue )
*
* @ param string $desc Description de la ligne
* @ param double $pu_ht Prix unitaire
* @ param double $qty Quantite
* @ param double $txtva Taux de tva
* @ param double $txlocaltax1 Local tax 1 rate
* @ param double $txlocaltax2 Local tax 2 rate
* @ param int $fk_product Id du produit / service predefini
* @ param double $remise_percent Pourcentage de remise de la ligne
* @ param string $price_base_type HT or TTC
2013-11-07 21:24:01 +01:00
* @ param double $pu_ttc Prix unitaire TTC
2012-03-18 19:23:01 +01:00
* @ param int $info_bits Bits de type de lignes
* @ param int $type Type of line ( product , service )
* @ param int $rang Position of line
2013-01-22 21:36:30 +01:00
* @ param int $special_code Special code ( also used by externals modules ! )
2012-03-18 19:23:01 +01:00
* @ param int $fk_parent_line Id of parent line
2012-07-23 10:46:09 +02:00
* @ param int $fk_fournprice Id supplier price
* @ param int $pa_ht Buying price without tax
2012-08-26 23:15:26 +02:00
* @ param string $label ? ? ?
2013-11-07 21:12:11 +01:00
* @ param int $date_start Start date of the line
* @ param int $date_end End date of the line
2013-06-10 16:05:41 +02:00
* @ param array $array_option extrafields array
2012-03-18 19:23:01 +01:00
* @ return int > 0 if OK , < 0 if KO
*
* @ see add_product
*/
2013-07-10 17:29:54 +02:00
function addline ( $desc , $pu_ht , $qty , $txtva , $txlocaltax1 = 0 , $txlocaltax2 = 0 , $fk_product = 0 , $remise_percent = 0 , $price_base_type = 'HT' , $pu_ttc = 0 , $info_bits = 0 , $type = 0 , $rang =- 1 , $special_code = 0 , $fk_parent_line = 0 , $fk_fournprice = 0 , $pa_ht = 0 , $label = '' , $date_start = '' , $date_end = '' , $array_option = 0 )
2012-03-18 19:23:01 +01:00
{
2013-09-10 18:45:16 +02:00
global $mysoc ;
2013-07-10 17:29:54 +02:00
$propalid = $this -> id ;
2012-03-18 19:23:01 +01:00
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::addline propalid= $propalid , desc= $desc , pu_ht= $pu_ht , qty= $qty , txtva= $txtva , fk_product= $fk_product , remise_except= $remise_percent , price_base_type= $price_base_type , pu_ttc= $pu_ttc , info_bits= $info_bits , type= $type " );
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php' ;
2012-03-18 19:23:01 +01:00
// Clean parameters
if ( empty ( $remise_percent )) $remise_percent = 0 ;
if ( empty ( $qty )) $qty = 0 ;
if ( empty ( $info_bits )) $info_bits = 0 ;
if ( empty ( $rang )) $rang = 0 ;
if ( empty ( $fk_parent_line ) || $fk_parent_line < 0 ) $fk_parent_line = 0 ;
$remise_percent = price2num ( $remise_percent );
$qty = price2num ( $qty );
$pu_ht = price2num ( $pu_ht );
$pu_ttc = price2num ( $pu_ttc );
$txtva = price2num ( $txtva );
$txlocaltax1 = price2num ( $txlocaltax1 );
$txlocaltax2 = price2num ( $txlocaltax2 );
2012-07-18 15:15:54 +02:00
$pa_ht = price2num ( $pa_ht );
2012-03-18 19:23:01 +01:00
if ( $price_base_type == 'HT' )
{
$pu = $pu_ht ;
}
else
{
$pu = $pu_ttc ;
}
// Check parameters
if ( $type < 0 ) return - 1 ;
if ( $this -> statut == 0 )
{
$this -> db -> begin ();
// Calcul du total TTC et de la TVA pour la ligne a partir de
// qty, pu, remise_percent et txtva
// TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
// la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
2013-11-19 21:08:02 +01:00
2013-09-10 18:45:16 +02:00
$localtaxes_type = getLocalTaxesFromRate ( $txtva , 0 , $mysoc );
2013-11-19 21:08:02 +01:00
2013-09-10 18:45:16 +02:00
$tabprice = calcul_price_total ( $qty , $pu , $remise_percent , $txtva , $txlocaltax1 , $txlocaltax2 , 0 , $price_base_type , $info_bits , $type , '' , $localtaxes_type );
2012-03-18 19:23:01 +01:00
$total_ht = $tabprice [ 0 ];
$total_tva = $tabprice [ 1 ];
$total_ttc = $tabprice [ 2 ];
$total_localtax1 = $tabprice [ 9 ];
$total_localtax2 = $tabprice [ 10 ];
// Rang to use
$rangtouse = $rang ;
if ( $rangtouse == - 1 )
{
$rangmax = $this -> line_max ( $fk_parent_line );
$rangtouse = $rangmax + 1 ;
}
// TODO A virer
// Anciens indicateurs: $price, $remise (a ne plus utiliser)
$price = $pu ;
$remise = 0 ;
if ( $remise_percent > 0 )
{
$remise = round (( $pu * $remise_percent / 100 ), 2 );
$price = $pu - $remise ;
}
// Insert line
$this -> line = new PropaleLigne ( $this -> db );
$this -> line -> fk_propal = $propalid ;
2012-08-22 17:42:40 +02:00
$this -> line -> label = $label ;
2012-03-18 19:23:01 +01:00
$this -> line -> desc = $desc ;
$this -> line -> qty = $qty ;
$this -> line -> tva_tx = $txtva ;
$this -> line -> localtax1_tx = $txlocaltax1 ;
$this -> line -> localtax2_tx = $txlocaltax2 ;
2013-09-12 09:59:23 +02:00
$this -> line -> localtax1_type = $localtaxes_type [ 0 ];
$this -> line -> localtax2_type = $localtaxes_type [ 2 ];
2012-03-18 19:23:01 +01:00
$this -> line -> fk_product = $fk_product ;
$this -> line -> remise_percent = $remise_percent ;
$this -> line -> subprice = $pu_ht ;
$this -> line -> rang = $rangtouse ;
$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 = $special_code ;
$this -> line -> fk_parent_line = $fk_parent_line ;
2013-04-27 15:08:35 +02:00
2013-04-15 15:31:12 +02:00
$this -> line -> date_start = $date_start ;
$this -> line -> date_end = $date_end ;
2012-03-18 19:23:01 +01:00
2013-06-16 21:31:21 +02:00
2012-08-01 17:36:15 +02:00
// infos marge
$this -> line -> fk_fournprice = $fk_fournprice ;
$this -> line -> pa_ht = $pa_ht ;
2012-07-20 09:57:50 +02:00
2012-03-18 19:23:01 +01:00
// Mise en option de la ligne
if ( empty ( $qty ) && empty ( $special_code )) $this -> line -> special_code = 3 ;
// TODO deprecated
$this -> line -> price = $price ;
$this -> line -> remise = $remise ;
2013-06-10 16:05:41 +02:00
if ( is_array ( $array_option ) && count ( $array_option ) > 0 ) {
$this -> line -> array_options = $array_option ;
}
2012-03-18 19:23:01 +01:00
$result = $this -> line -> insert ();
if ( $result > 0 )
{
// Reorder if child line
if ( ! empty ( $fk_parent_line )) $this -> line_order ( true , 'DESC' );
// Mise a jour informations denormalisees au niveau de la propale meme
$result = $this -> update_price ( 1 );
if ( $result > 0 )
{
$this -> db -> commit ();
return $this -> line -> rowid ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( " Error sql= $sql , error= " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 1 ;
}
}
else
{
$this -> error = $this -> line -> error ;
$this -> db -> rollback ();
return - 2 ;
}
}
}
/**
* Update a proposal line
*
* @ param int $rowid Id de la ligne
* @ param double $pu Prix unitaire ( HT ou TTC selon price_base_type )
* @ param double $qty Quantity
* @ param double $remise_percent Remise effectuee sur le produit
* @ param double $txtva Taux de TVA
* @ param double $txlocaltax1 Local tax 1 rate
* @ param double $txlocaltax2 Local tax 2 rate
* @ param string $desc Description
* @ param double $price_base_type HT ou TTC
2013-03-24 07:11:44 +01:00
* @ param int $info_bits Miscellaneous informations
2013-01-22 21:36:30 +01:00
* @ param int $special_code Special code ( also used by externals modules ! )
2012-10-13 13:03:39 +02:00
* @ param int $fk_parent_line Id of parent line ( 0 in most cases , used by modules adding sublevels into lines ) .
* @ param int $skip_update_total Keep fields total_xxx to 0 ( used for special lines by some modules )
* @ param int $fk_fournprice Id of origin supplier price
* @ param int $pa_ht Price ( without tax ) of product when it was bought
2012-08-26 23:15:26 +02:00
* @ param string $label ? ? ?
2012-09-18 16:06:45 +02:00
* @ param int $type 0 / 1 = Product / service
2013-11-07 21:12:11 +01:00
* @ param int $date_start Start date of the line
* @ param int $date_end End date of the line
2013-06-10 16:05:41 +02:00
* @ param array $array_option extrafields array
2012-03-18 19:23:01 +01:00
* @ return int 0 if OK , < 0 if KO
*/
2013-06-10 16:05:41 +02:00
function updateline ( $rowid , $pu , $qty , $remise_percent , $txtva , $txlocaltax1 = 0 , $txlocaltax2 = 0 , $desc = '' , $price_base_type = 'HT' , $info_bits = 0 , $special_code = 0 , $fk_parent_line = 0 , $skip_update_total = 0 , $fk_fournprice = 0 , $pa_ht = 0 , $label = '' , $type = 0 , $date_start = '' , $date_end = '' , $array_option = 0 )
2012-03-18 19:23:01 +01:00
{
2013-09-10 18:45:16 +02:00
global $conf , $user , $langs , $mysoc ;
2012-03-18 19:23:01 +01:00
2012-07-23 10:46:09 +02:00
dol_syslog ( get_class ( $this ) . " ::updateLine $rowid , $pu , $qty , $remise_percent , $txtva , $desc , $price_base_type , $info_bits " );
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php' ;
2012-03-18 19:23:01 +01:00
// Clean parameters
$remise_percent = price2num ( $remise_percent );
$qty = price2num ( $qty );
$pu = price2num ( $pu );
$txtva = price2num ( $txtva );
$txlocaltax1 = price2num ( $txlocaltax1 );
$txlocaltax2 = price2num ( $txlocaltax2 );
2013-01-22 21:36:30 +01:00
$pa_ht = price2num ( $pa_ht );
2012-03-18 19:23:01 +01:00
if ( empty ( $qty ) && empty ( $special_code )) $special_code = 3 ; // Set option tag
if ( ! empty ( $qty ) && $special_code == 3 ) $special_code = 0 ; // Remove option tag
if ( $this -> statut == 0 )
{
$this -> db -> begin ();
// Calcul du total TTC et de la TVA pour la ligne a partir de
// qty, pu, remise_percent et txtva
// TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
// la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
2013-11-19 21:08:02 +01:00
2013-09-10 18:45:16 +02:00
$localtaxes_type = getLocalTaxesFromRate ( $txtva , 0 , $mysoc );
2013-11-19 21:08:02 +01:00
2013-09-10 18:45:16 +02:00
$tabprice = calcul_price_total ( $qty , $pu , $remise_percent , $txtva , $txlocaltax1 , $txlocaltax2 , 0 , $price_base_type , $info_bits , $type , '' , $localtaxes_type );
2012-03-18 19:23:01 +01:00
$total_ht = $tabprice [ 0 ];
$total_tva = $tabprice [ 1 ];
$total_ttc = $tabprice [ 2 ];
$total_localtax1 = $tabprice [ 9 ];
$total_localtax2 = $tabprice [ 10 ];
// Anciens indicateurs: $price, $remise (a ne plus utiliser)
$price = $pu ;
if ( $remise_percent > 0 )
{
$remise = round (( $pu * $remise_percent / 100 ), 2 );
$price = $pu - $remise ;
}
// Update line
$this -> line = new PropaleLigne ( $this -> db );
// Stock previous line records
$staticline = new PropaleLigne ( $this -> db );
$staticline -> fetch ( $rowid );
$this -> line -> oldline = $staticline ;
// Reorder if fk_parent_line change
if ( ! empty ( $fk_parent_line ) && ! empty ( $staticline -> fk_parent_line ) && $fk_parent_line != $staticline -> fk_parent_line )
{
$rangmax = $this -> line_max ( $fk_parent_line );
$this -> line -> rang = $rangmax + 1 ;
}
$this -> line -> rowid = $rowid ;
2012-08-22 17:42:40 +02:00
$this -> line -> label = $label ;
2012-03-18 19:23:01 +01:00
$this -> line -> desc = $desc ;
$this -> line -> qty = $qty ;
$this -> line -> tva_tx = $txtva ;
$this -> line -> localtax1_tx = $txlocaltax1 ;
$this -> line -> localtax2_tx = $txlocaltax2 ;
2013-09-12 09:59:23 +02:00
$this -> line -> localtax1_type = $localtaxes_type [ 0 ];
2013-11-19 21:08:02 +01:00
$this -> line -> localtax2_type = $localtaxes_type [ 2 ];
2012-03-18 19:23:01 +01:00
$this -> line -> remise_percent = $remise_percent ;
$this -> line -> subprice = $pu ;
$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 -> special_code = $special_code ;
$this -> line -> fk_parent_line = $fk_parent_line ;
$this -> line -> skip_update_total = $skip_update_total ;
2012-08-22 17:42:40 +02:00
// infos marge
$this -> line -> fk_fournprice = $fk_fournprice ;
$this -> line -> pa_ht = $pa_ht ;
2013-04-27 15:08:35 +02:00
2013-04-15 15:31:12 +02:00
$this -> line -> date_start = $date_start ;
$this -> line -> date_end = $date_end ;
2012-07-20 09:57:50 +02:00
2012-03-18 19:23:01 +01:00
// TODO deprecated
$this -> line -> price = $price ;
$this -> line -> remise = $remise ;
2013-06-10 16:05:41 +02:00
if ( is_array ( $array_option ) && count ( $array_option ) > 0 ) {
$this -> line -> array_options = $array_option ;
}
2012-03-18 19:23:01 +01:00
$result = $this -> line -> update ();
if ( $result > 0 )
{
// Reorder if child line
if ( ! empty ( $fk_parent_line )) $this -> line_order ( true , 'DESC' );
$this -> update_price ( 1 );
$this -> fk_propal = $this -> id ;
$this -> rowid = $rowid ;
$this -> db -> commit ();
return $result ;
}
else
{
$this -> error = $this -> db -> error ();
$this -> db -> rollback ();
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::updateline Error= " . $this -> error , LOG_ERR );
2012-03-18 19:23:01 +01:00
return - 1 ;
}
}
else
{
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::updateline Erreur -2 Propal en mode incompatible pour cette action " );
2012-03-18 19:23:01 +01:00
return - 2 ;
}
}
/**
* Delete detail line
*
* @ param int $lineid Id of line to delete
* @ return int > 0 if OK , < 0 if KO
*/
function deleteline ( $lineid )
{
if ( $this -> statut == 0 )
{
$line = new PropaleLigne ( $this -> db );
// For triggers
$line -> fetch ( $lineid );
if ( $line -> delete () > 0 )
{
$this -> update_price ( 1 );
return 1 ;
}
else
{
return - 1 ;
}
}
else
{
return - 2 ;
}
}
/**
* Create commercial proposal into database
* this -> ref can be set or empty . If empty , we will use " (PROVid) "
*
* @ param User $user User that create
* @ param int $notrigger 1 = Does not execute triggers , 0 = execuete triggers
* @ return int < 0 if KO , >= 0 if OK
*/
function create ( $user = '' , $notrigger = 0 )
{
2013-03-06 00:18:41 +01:00
global $langs , $conf , $mysoc , $hookmanager ;
2012-03-18 19:23:01 +01:00
$error = 0 ;
$now = dol_now ();
// Clean parameters
if ( empty ( $this -> date )) $this -> date = $this -> datep ;
$this -> fin_validite = $this -> date + ( $this -> duree_validite * 24 * 3600 );
2011-04-06 19:22:25 +02:00
if ( empty ( $this -> availability_id )) $this -> availability_id = 0 ;
2011-04-27 16:36:09 +02:00
if ( empty ( $this -> demand_reason_id )) $this -> demand_reason_id = 0 ;
2009-09-13 22:19:59 +02:00
2012-03-18 19:23:01 +01:00
dol_syslog ( get_class ( $this ) . " ::create " );
// Check parameters
2013-05-11 02:12:34 +02:00
$result = $this -> fetch_thirdparty ();
2012-03-18 19:23:01 +01:00
if ( $result < 0 )
{
$this -> error = " Failed to fetch company " ;
dol_syslog ( get_class ( $this ) . " ::create " . $this -> error , LOG_ERR );
return - 3 ;
}
if ( empty ( $this -> date ))
{
$this -> error = " Date of proposal is required " ;
dol_syslog ( get_class ( $this ) . " ::create " . $this -> error , LOG_ERR );
return - 4 ;
}
if ( ! empty ( $this -> ref ))
{
$result = $this -> verifyNumRef (); // Check ref is not yet used
}
$this -> db -> begin ();
// Insert into database
$sql = " INSERT INTO " . MAIN_DB_PREFIX . " propal ( " ;
$sql .= " fk_soc " ;
$sql .= " , price " ;
$sql .= " , remise " ;
$sql .= " , remise_percent " ;
$sql .= " , remise_absolue " ;
$sql .= " , tva " ;
$sql .= " , total " ;
$sql .= " , datep " ;
$sql .= " , datec " ;
$sql .= " , ref " ;
$sql .= " , fk_user_author " ;
2013-04-09 17:18:07 +02:00
$sql .= " , note_private " ;
2012-03-18 19:23:01 +01:00
$sql .= " , note_public " ;
$sql .= " , model_pdf " ;
$sql .= " , fin_validite " ;
$sql .= " , fk_cond_reglement " ;
$sql .= " , fk_mode_reglement " ;
$sql .= " , ref_client " ;
$sql .= " , date_livraison " ;
$sql .= " , fk_availability " ;
2012-07-22 16:53:02 +02:00
$sql .= " , fk_input_reason " ;
2012-03-18 19:23:01 +01:00
$sql .= " , fk_projet " ;
$sql .= " , entity " ;
$sql .= " ) " ;
$sql .= " VALUES ( " ;
$sql .= $this -> socid ;
$sql .= " , 0 " ;
$sql .= " , " . $this -> remise ;
$sql .= " , " . ( $this -> remise_percent ? $this -> remise_percent : 'null' );
$sql .= " , " . ( $this -> remise_absolue ? $this -> remise_absolue : 'null' );
$sql .= " , 0 " ;
$sql .= " , 0 " ;
$sql .= " , ' " . $this -> db -> idate ( $this -> date ) . " ' " ;
$sql .= " , ' " . $this -> db -> idate ( $now ) . " ' " ;
$sql .= " , '(PROV)' " ;
$sql .= " , " . ( $user -> id > 0 ? " ' " . $user -> id . " ' " : " null " );
2013-04-09 17:18:07 +02:00
$sql .= " , ' " . $this -> db -> escape ( $this -> note_private ) . " ' " ;
2012-03-18 19:23:01 +01:00
$sql .= " , ' " . $this -> db -> escape ( $this -> note_public ) . " ' " ;
$sql .= " , ' " . $this -> modelpdf . " ' " ;
$sql .= " , " . ( $this -> fin_validite != '' ? " ' " . $this -> db -> idate ( $this -> fin_validite ) . " ' " : " null " );
$sql .= " , " . $this -> cond_reglement_id ;
$sql .= " , " . $this -> mode_reglement_id ;
$sql .= " , ' " . $this -> db -> escape ( $this -> ref_client ) . " ' " ;
$sql .= " , " . ( $this -> date_livraison != '' ? " ' " . $this -> db -> idate ( $this -> date_livraison ) . " ' " : " null " );
$sql .= " , " . $this -> availability_id ;
$sql .= " , " . $this -> demand_reason_id ;
$sql .= " , " . ( $this -> fk_project ? $this -> fk_project : " null " );
$sql .= " , " . $conf -> entity ;
$sql .= " ) " ;
dol_syslog ( get_class ( $this ) . " ::create sql= " . $sql , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$this -> id = $this -> db -> last_insert_id ( MAIN_DB_PREFIX . " propal " );
if ( $this -> id )
{
2013-03-02 15:57:26 +01:00
$this -> ref = '(PROV' . $this -> id . ')' ;
2012-03-18 19:23:01 +01:00
$sql = 'UPDATE ' . MAIN_DB_PREFIX . " propal SET ref=' " . $this -> ref . " ' WHERE rowid= " . $this -> id ;
dol_syslog ( get_class ( $this ) . " ::create sql= " . $sql );
$resql = $this -> db -> query ( $sql );
if ( ! $resql ) $error ++ ;
/*
* Insertion du detail des produits dans la base
*/
if ( ! $error )
{
$fk_parent_line = 0 ;
$num = count ( $this -> lines );
for ( $i = 0 ; $i < $num ; $i ++ )
{
// Reset fk_parent_line for no child products and special product
if (( $this -> lines [ $i ] -> product_type != 9 && empty ( $this -> lines [ $i ] -> fk_parent_line )) || $this -> lines [ $i ] -> product_type == 9 ) {
$fk_parent_line = 0 ;
}
2012-08-22 17:42:40 +02:00
$result = $this -> addline (
2012-08-26 23:15:26 +02: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 ,
$this -> lines [ $i ] -> remise_percent ,
'HT' ,
0 ,
0 ,
$this -> lines [ $i ] -> product_type ,
$this -> lines [ $i ] -> rang ,
$this -> lines [ $i ] -> special_code ,
$fk_parent_line ,
$this -> lines [ $i ] -> fk_fournprice ,
$this -> lines [ $i ] -> pa_ht ,
$this -> lines [ $i ] -> label
2012-08-22 17:42:40 +02:00
);
2012-03-18 19:23:01 +01:00
if ( $result < 0 )
{
$error ++ ;
$this -> error = $this -> db -> error ;
dol_print_error ( $this -> db );
break ;
}
// Defined the new fk_parent_line
if ( $result > 0 && $this -> lines [ $i ] -> product_type == 9 ) {
$fk_parent_line = $result ;
}
}
}
// Add linked object
if ( ! $error && $this -> origin && $this -> origin_id )
{
$ret = $this -> add_object_linked ();
if ( ! $ret ) dol_print_error ( $this -> db );
}
// Set delivery address
if ( ! $error && $this -> fk_delivery_address )
{
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
2013-02-15 19:36:09 +01:00
$sql .= " SET fk_delivery_address = " . $this -> fk_delivery_address ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE ref = ' " . $this -> ref . " ' " ;
$sql .= " AND entity = " . $conf -> entity ;
$result = $this -> db -> query ( $sql );
}
if ( ! $error )
{
// Mise a jour infos denormalisees
$resql = $this -> update_price ( 1 );
if ( $resql )
{
2013-03-06 00:18:41 +01:00
// Actions on extra fields (by external module or standard code)
// FIXME le hook fait double emploi avec le trigger !!
$hookmanager -> initHooks ( array ( 'propaldao' ));
$parameters = array ( 'socid' => $this -> id );
$reshook = $hookmanager -> executeHooks ( 'insertExtraFields' , $parameters , $this , $action ); // Note that $action and $object may have been modified by some hooks
if ( empty ( $reshook ))
{
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$result = $this -> insertExtraFields ();
if ( $result < 0 )
{
$error ++ ;
}
}
}
else if ( $reshook < 0 ) $error ++ ;
2013-04-27 15:08:35 +02:00
2012-03-18 19:23:01 +01:00
if ( ! $notrigger )
{
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_CREATE' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
}
else
{
$error ++ ;
}
}
}
else
{
$error ++ ;
}
if ( ! $error )
{
$this -> db -> commit ();
dol_syslog ( get_class ( $this ) . " ::create done id= " . $this -> id );
return $this -> id ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::create -2 " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 2 ;
}
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::create -1 " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Insert into DB a proposal object completely defined by its data members ( ex , results from copy ) .
2012-03-19 17:18:11 +01:00
*
2012-03-18 19:23:01 +01:00
* @ param User $user User that create
* @ return int Id of the new object if ok , < 0 if ko
* @ see create
*/
function create_from ( $user )
{
$this -> products = $this -> lines ;
return $this -> create ();
}
/**
* Load an object from its id and create a new one in database
*
* @ param int $socid Id of thirdparty
* @ return int New id of clone
*/
2013-01-26 10:35:30 +01:00
function createFromClone ( $socid = 0 )
2012-03-18 19:23:01 +01:00
{
2013-01-26 10:35:30 +01:00
global $user , $langs , $conf , $hookmanager ;
2012-03-18 19:23:01 +01:00
$error = 0 ;
$now = dol_now ();
$this -> db -> begin ();
// Load source object
$objFrom = dol_clone ( $this );
$objsoc = new Societe ( $this -> db );
// Change socid if needed
if ( ! empty ( $socid ) && $socid != $this -> socid )
{
if ( $objsoc -> fetch ( $socid ) > 0 )
{
$this -> socid = $objsoc -> id ;
$this -> cond_reglement_id = ( ! empty ( $objsoc -> cond_reglement_id ) ? $objsoc -> cond_reglement_id : 0 );
$this -> mode_reglement_id = ( ! empty ( $objsoc -> mode_reglement_id ) ? $objsoc -> mode_reglement_id : 0 );
$this -> fk_project = '' ;
$this -> fk_delivery_address = '' ;
}
// TODO Change product price if multi-prices
}
else
{
$objsoc -> fetch ( $this -> socid );
}
$this -> id = 0 ;
$this -> statut = 0 ;
if ( empty ( $conf -> global -> PROPALE_ADDON ) || ! is_readable ( DOL_DOCUMENT_ROOT . " /core/modules/propale/ " . $conf -> global -> PROPALE_ADDON . " .php " ))
{
$this -> error = 'ErrorSetupNotComplete' ;
return - 1 ;
}
// Clear fields
$this -> user_author = $user -> id ;
$this -> user_valid = '' ;
$this -> date = $now ;
$this -> datep = $now ; // deprecated
$this -> fin_validite = $this -> date + ( $this -> duree_validite * 24 * 3600 );
$this -> ref_client = '' ;
// Set ref
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . " /core/modules/propale/ " . $conf -> global -> PROPALE_ADDON . '.php' ;
2012-03-18 19:23:01 +01:00
$obj = $conf -> global -> PROPALE_ADDON ;
$modPropale = new $obj ;
$this -> ref = $modPropale -> getNextValue ( $objsoc , $this );
// Create clone
$result = $this -> create ( $user );
if ( $result < 0 ) $error ++ ;
if ( ! $error )
{
// Hook of thirdparty module
if ( is_object ( $hookmanager ))
{
$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 ++ ;
}
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_CLONE' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
// End
if ( ! $error )
{
$this -> db -> commit ();
return $this -> id ;
}
else
{
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Load a proposal from database and its ligne array
*
* @ param int $rowid id of object to load
* @ param string $ref Ref of proposal
* @ return int > 0 if OK , < 0 if KO
*/
function fetch ( $rowid , $ref = '' )
{
global $conf ;
$sql = " SELECT p.rowid, p.ref, p.remise, p.remise_percent, p.remise_absolue, p.fk_soc " ;
$sql .= " , p.total, p.tva, p.localtax1, p.localtax2, p.total_ht " ;
$sql .= " , p.datec " ;
$sql .= " , p.date_valid as datev " ;
$sql .= " , p.datep as dp " ;
$sql .= " , p.fin_validite as dfv " ;
$sql .= " , p.date_livraison as date_livraison " ;
$sql .= " , p.model_pdf, p.ref_client, p.extraparams " ;
2013-04-09 17:18:07 +02:00
$sql .= " , p.note_private, p.note_public " ;
2012-03-18 19:23:01 +01:00
$sql .= " , p.fk_projet, p.fk_statut " ;
$sql .= " , p.fk_user_author, p.fk_user_valid, p.fk_user_cloture " ;
2013-02-15 19:36:09 +01:00
$sql .= " , p.fk_delivery_address " ;
2012-03-18 19:23:01 +01:00
$sql .= " , p.fk_availability " ;
2012-07-22 16:53:02 +02:00
$sql .= " , p.fk_input_reason " ;
2012-03-18 19:23:01 +01:00
$sql .= " , p.fk_cond_reglement " ;
$sql .= " , p.fk_mode_reglement " ;
$sql .= " , c.label as statut_label " ;
2012-07-02 19:30:37 +02:00
$sql .= " , ca.code as availability_code, ca.label as availability " ;
2012-03-18 19:23:01 +01:00
$sql .= " , dr.code as demand_reason_code, dr.label as demand_reason " ;
$sql .= " , cr.code as cond_reglement_code, cr.libelle as cond_reglement, cr.libelle_facture as cond_reglement_libelle_doc " ;
$sql .= " , cp.code as mode_reglement_code, cp.libelle as mode_reglement " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " c_propalst as c, " . MAIN_DB_PREFIX . " propal as p " ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'c_paiement as cp ON p.fk_mode_reglement = cp.id' ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'c_payment_term as cr ON p.fk_cond_reglement = cr.rowid' ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'c_availability as ca ON p.fk_availability = ca.rowid' ;
2012-07-22 16:53:02 +02:00
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'c_input_reason as dr ON p.fk_input_reason = dr.rowid' ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE p.fk_statut = c.id " ;
$sql .= " AND p.entity = " . $conf -> entity ;
if ( $ref ) $sql .= " AND p.ref=' " . $ref . " ' " ;
else $sql .= " AND p.rowid= " . $rowid ;
dol_syslog ( get_class ( $this ) . " ::fetch sql= " . $sql , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
if ( $this -> db -> num_rows ( $resql ))
{
$obj = $this -> db -> fetch_object ( $resql );
$this -> id = $obj -> rowid ;
$this -> ref = $obj -> ref ;
$this -> ref_client = $obj -> ref_client ;
$this -> remise = $obj -> remise ;
$this -> remise_percent = $obj -> remise_percent ;
$this -> remise_absolue = $obj -> remise_absolue ;
$this -> total = $obj -> total ; // TODO obsolete
$this -> total_ht = $obj -> total_ht ;
$this -> total_tva = $obj -> tva ;
$this -> total_localtax1 = $obj -> localtax1 ;
$this -> total_localtax2 = $obj -> localtax2 ;
$this -> total_ttc = $obj -> total ;
$this -> socid = $obj -> fk_soc ;
$this -> fk_project = $obj -> fk_projet ;
$this -> modelpdf = $obj -> model_pdf ;
$this -> note = $obj -> note_private ; // TODO obsolete
$this -> note_private = $obj -> note_private ;
$this -> note_public = $obj -> note_public ;
$this -> statut = $obj -> fk_statut ;
$this -> statut_libelle = $obj -> statut_label ;
$this -> datec = $this -> db -> jdate ( $obj -> datec ); // TODO obsolete
$this -> datev = $this -> db -> jdate ( $obj -> datev ); // TODO obsolete
$this -> date_creation = $this -> db -> jdate ( $obj -> datec ); //Creation date
2012-01-05 09:48:28 +01:00
$this -> date_validation = $this -> db -> jdate ( $obj -> datev ); //Validation date
2012-03-18 19:23:01 +01:00
$this -> date = $this -> db -> jdate ( $obj -> dp ); // Proposal date
$this -> datep = $this -> db -> jdate ( $obj -> dp ); // deprecated
$this -> fin_validite = $this -> db -> jdate ( $obj -> dfv );
$this -> date_livraison = $this -> db -> jdate ( $obj -> date_livraison );
$this -> availability_id = $obj -> fk_availability ;
$this -> availability_code = $obj -> availability_code ;
$this -> availability = $obj -> availability ;
2012-07-22 16:53:02 +02:00
$this -> demand_reason_id = $obj -> fk_input_reason ;
2012-03-18 19:23:01 +01:00
$this -> demand_reason_code = $obj -> demand_reason_code ;
$this -> demand_reason = $obj -> demand_reason ;
2013-02-15 19:36:09 +01:00
$this -> fk_address = $obj -> fk_delivery_address ;
2012-03-18 19:23: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 ;
$this -> cond_reglement_id = $obj -> fk_cond_reglement ;
$this -> cond_reglement_code = $obj -> cond_reglement_code ;
$this -> cond_reglement = $obj -> cond_reglement ;
$this -> cond_reglement_doc = $obj -> cond_reglement_libelle_doc ;
2012-03-18 19:59:38 +01:00
$this -> extraparams = ( array ) json_decode ( $obj -> extraparams , true );
2012-03-18 19:23:01 +01:00
$this -> user_author_id = $obj -> fk_user_author ;
$this -> user_valid_id = $obj -> fk_user_valid ;
$this -> user_close_id = $obj -> fk_user_cloture ;
if ( $obj -> fk_statut == 0 )
{
$this -> brouillon = 1 ;
}
2013-04-26 16:58:04 +02:00
// Retreive all extrafield for invoice
// fetch optionals attributes and labels
2013-06-16 21:31:21 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/class/extrafields.class.php' ;
2013-04-26 16:58:04 +02:00
$extrafields = new ExtraFields ( $this -> db );
$extralabels = $extrafields -> fetch_name_optionals_label ( $this -> table_element , true );
2013-06-16 21:31:21 +02:00
$this -> fetch_optionals ( $this -> id , $extralabels );
2012-03-18 19:23:01 +01:00
$this -> db -> free ( $resql );
$this -> lines = array ();
/*
* Lignes propales liees a un produit ou non
2012-08-01 17:36:15 +02:00
*/
2012-08-22 17:42:40 +02:00
$sql = " SELECT d.rowid, d.fk_propal, d.fk_parent_line, d.label as custom_label, d.description, d.price, d.tva_tx, d.localtax1_tx, d.localtax2_tx, d.qty, d.fk_remise_except, d.remise_percent, d.subprice, d.fk_product, " ;
2012-08-01 17:36:15 +02:00
$sql .= " d.info_bits, d.total_ht, d.total_tva, d.total_localtax1, d.total_localtax2, d.total_ttc, d.fk_product_fournisseur_price as fk_fournprice, d.buy_price_ht as pa_ht, d.special_code, d.rang, d.product_type, " ;
2013-04-15 15:31:12 +02:00
$sql .= ' p.ref as product_ref, p.description as product_desc, p.fk_product_type, p.label as product_label,' ;
$sql .= ' d.date_start, d.date_end' ;
2012-03-18 19:23:01 +01:00
$sql .= " FROM " . MAIN_DB_PREFIX . " propaldet as d " ;
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " product as p ON d.fk_product = p.rowid " ;
$sql .= " WHERE d.fk_propal = " . $this -> id ;
$sql .= " ORDER by d.rang " ;
$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 PropaleLigne ( $this -> db );
$line -> rowid = $objp -> rowid ;
$line -> fk_propal = $objp -> fk_propal ;
$line -> fk_parent_line = $objp -> fk_parent_line ;
$line -> product_type = $objp -> product_type ;
2012-08-22 17:42:40 +02:00
$line -> label = $objp -> custom_label ;
2012-03-18 19:23:01 +01:00
$line -> desc = $objp -> description ; // Description ligne
$line -> qty = $objp -> qty ;
$line -> tva_tx = $objp -> tva_tx ;
$line -> localtax1_tx = $objp -> localtax1_tx ;
$line -> localtax2_tx = $objp -> localtax2_tx ;
$line -> subprice = $objp -> subprice ;
$line -> fk_remise_except = $objp -> fk_remise_except ;
$line -> remise_percent = $objp -> remise_percent ;
$line -> price = $objp -> price ; // TODO deprecated
$line -> info_bits = $objp -> info_bits ;
$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 ;
2012-08-01 17:36:15 +02:00
$line -> fk_fournprice = $objp -> fk_fournprice ;
$marginInfos = getMarginInfos ( $objp -> subprice , $objp -> remise_percent , $objp -> tva_tx , $objp -> localtax1_tx , $objp -> localtax2_tx , $line -> fk_fournprice , $objp -> pa_ht );
$line -> pa_ht = $marginInfos [ 0 ];
$line -> marge_tx = $marginInfos [ 1 ];
$line -> marque_tx = $marginInfos [ 2 ];
2012-03-18 19:23:01 +01:00
$line -> special_code = $objp -> special_code ;
$line -> rang = $objp -> rang ;
$line -> fk_product = $objp -> fk_product ;
2010-01-30 08:45:57 +01:00
2011-05-26 14:19:21 +02:00
$line -> ref = $objp -> product_ref ; // TODO deprecated
$line -> product_ref = $objp -> product_ref ;
$line -> libelle = $objp -> product_label ; // TODO deprecated
$line -> product_label = $objp -> product_label ;
2012-03-18 19:23:01 +01:00
$line -> product_desc = $objp -> product_desc ; // Description produit
2011-03-02 11:26:55 +01:00
$line -> fk_product_type = $objp -> fk_product_type ;
2013-04-27 15:08:35 +02:00
2013-04-15 15:31:12 +02:00
$line -> date_start = $objp -> date_start ;
$line -> date_end = $objp -> date_end ;
2010-01-30 08:45:57 +01:00
2012-03-18 19:23:01 +01:00
$this -> lines [ $i ] = $line ;
//dol_syslog("1 ".$line->fk_product);
//print "xx $i ".$this->lines[$i]->fk_product;
$i ++ ;
}
$this -> db -> free ( $result );
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::fetch Error " . $this -> error , LOG_ERR );
return - 1 ;
}
2013-03-04 18:22:25 +01:00
// Retreive all extrafield for propal
// fetch optionals attributes and labels
2013-06-16 21:31:21 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/class/extrafields.class.php' ;
2013-03-04 18:22:25 +01:00
$extrafields = new ExtraFields ( $this -> db );
2013-04-26 10:29:14 +02:00
$extralabels = $extrafields -> fetch_name_optionals_label ( $this -> table_element , true );
2013-06-16 21:31:21 +02:00
$this -> fetch_optionals ( $this -> id , $extralabels );
2012-03-18 19:23:01 +01:00
return 1 ;
}
$this -> error = " Record Not Found " ;
return 0 ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::fetch Error " . $this -> error , LOG_ERR );
return - 1 ;
}
}
2013-04-27 15:08:35 +02:00
2013-03-04 19:17:11 +01:00
/**
* Update value of extrafields on the proposal
*
* @ param User $user Object user that modify
* @ return int < 0 if ko , > 0 if ok
*/
function update_extrafields ( $user )
{
// Actions on extra fields (by external module or standard code)
// FIXME le hook fait double emploi avec le trigger !!
$hookmanager -> initHooks ( array ( 'propaldao' ));
$parameters = array ( 'id' => $this -> id );
$reshook = $hookmanager -> executeHooks ( 'insertExtraFields' , $parameters , $this , $action ); // Note that $action and $object may have been modified by some hooks
if ( empty ( $reshook ))
{
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$result = $this -> insertExtraFields ();
if ( $result < 0 )
{
$error ++ ;
}
}
}
else if ( $reshook < 0 ) $error ++ ;
2013-04-27 15:08:35 +02:00
2013-03-04 19:17:11 +01:00
if ( ! $error )
{
return 1 ;
}
else
{
return - 1 ;
}
2013-04-27 15:08:35 +02:00
2013-03-04 19:17:11 +01:00
}
2012-03-18 19:23:01 +01:00
/**
* Set status to validated
*
* @ param User $user Object user that validate
* @ param int $notrigger 1 = Does not execute triggers , 0 = execuete triggers
* @ return int < 0 if KO , >= 0 if OK
*/
function valid ( $user , $notrigger = 0 )
{
2013-09-12 16:55:49 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
2013-09-13 09:32:41 +02:00
global $conf , $langs ;
2012-03-18 19:23:01 +01:00
$error = 0 ;
$now = dol_now ();
if ( $user -> rights -> propale -> valider )
2013-04-27 15:08:35 +02:00
{
2012-03-18 19:23:01 +01:00
$this -> db -> begin ();
2013-04-27 15:08:35 +02:00
2013-03-02 15:57:26 +01:00
// Numbering module definition
$soc = new Societe ( $this -> db );
$soc -> fetch ( $this -> socid );
2013-04-27 15:08:35 +02:00
2013-03-02 15:57:26 +01:00
// Class of company linked to propal
$result = $soc -> set_as_client ();
2013-04-27 15:08:35 +02:00
2013-03-02 15:57:26 +01:00
// Define new ref
if ( ! $error && ( preg_match ( '/^[\(]?PROV/i' , $this -> ref )))
{
$num = $this -> getNextNumRef ( $soc );
}
else
{
$num = $this -> ref ;
}
2012-03-18 19:23:01 +01:00
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
2013-03-02 15:57:26 +01:00
$sql .= " SET ref = ' " . $num . " ', " ;
$sql .= " fk_statut = 1, date_valid=' " . $this -> db -> idate ( $now ) . " ', fk_user_valid= " . $user -> id ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE rowid = " . $this -> id . " AND fk_statut = 0 " ;
dol_syslog ( get_class ( $this ) . '::valid sql=' . $sql );
if ( $this -> db -> query ( $sql ))
{
if ( ! $notrigger )
{
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_VALIDATE' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
2013-09-12 16:55:49 +02:00
if ( ! $error )
{
// Rename directory if dir was a temporary ref
if ( preg_match ( '/^[\(]?PROV/i' , $this -> ref ))
{
// Rename of propal directory ($this->ref = old ref, $num = new ref)
// to not lose the linked files
$facref = dol_sanitizeFileName ( $this -> ref );
$snumfa = dol_sanitizeFileName ( $num );
$dirsource = $conf -> propal -> dir_output . '/' . $facref ;
$dirdest = $conf -> propal -> dir_output . '/' . $snumfa ;
if ( file_exists ( $dirsource ))
{
dol_syslog ( get_class ( $this ) . " ::validate rename dir " . $dirsource . " into " . $dirdest );
2013-11-19 21:08:02 +01:00
2013-09-12 16:55:49 +02:00
if ( @ rename ( $dirsource , $dirdest ))
{
2013-11-19 21:08:02 +01:00
2013-09-12 16:55:49 +02:00
dol_syslog ( " Rename ok " );
// Deleting old PDF in new rep
dol_delete_file ( $conf -> propal -> dir_output . '/' . $snumfa . '/' . $facref . '*.*' );
}
}
}
2013-11-19 21:08:02 +01:00
2012-03-18 19:23:01 +01:00
$this -> brouillon = 0 ;
$this -> statut = 1 ;
$this -> user_valid_id = $user -> id ;
$this -> datev = $now ;
$this -> db -> commit ();
return 1 ;
}
else
2013-09-12 16:55:49 +02:00
{
2012-03-18 19:23:01 +01:00
$this -> db -> rollback ();
return - 2 ;
}
}
else
2013-09-12 16:54:47 +02:00
{
2012-03-18 19:23:01 +01:00
$this -> db -> rollback ();
return - 1 ;
}
}
}
/**
* Define proposal date
*
* @ param User $user Object user that modify
2013-11-07 21:12:11 +01:00
* @ param int $date Date
2012-03-18 19:23:01 +01:00
* @ return int < 0 if KO , > 0 if OK
*/
function set_date ( $user , $date )
{
if ( empty ( $date ))
{
$this -> error = 'ErrorBadParameter' ;
dol_syslog ( get_class ( $this ) . " ::set_date " . $this -> error , LOG_ERR );
return - 1 ;
}
if ( $user -> rights -> propale -> creer )
{
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal SET datep = ' " . $this -> db -> idate ( $date ) . " ' " ;
$sql .= " WHERE rowid = " . $this -> id . " AND fk_statut = 0 " ;
dol_syslog ( get_class ( $this ) . " ::set_date sql= " . $sql );
if ( $this -> db -> query ( $sql ) )
{
$this -> date = $date ;
$this -> datep = $date ; // deprecated
return 1 ;
}
else
{
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . " ::set_date " . $this -> error , LOG_ERR );
return - 1 ;
}
}
}
/**
* Define end validity date
*
* @ param User $user Object user that modify
2013-11-07 21:12:11 +01:00
* @ param int $date_fin_validite End of validity date
2012-03-18 19:23:01 +01:00
* @ return int < 0 if KO , > 0 if OK
*/
function set_echeance ( $user , $date_fin_validite )
{
if ( $user -> rights -> propale -> creer )
{
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal SET fin_validite = " . ( $date_fin_validite != '' ? " ' " . $this -> db -> idate ( $date_fin_validite ) . " ' " : 'null' );
$sql .= " WHERE rowid = " . $this -> id . " AND fk_statut = 0 " ;
if ( $this -> db -> query ( $sql ) )
{
$this -> fin_validite = $date_fin_validite ;
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::set_echeance Erreur SQL " . $this -> error , LOG_ERR );
return - 1 ;
}
}
}
/**
* Set delivery date
*
* @ param User $user Object user that modify
2013-11-07 21:12:11 +01:00
* @ param int $date_livraison Delivery date
2012-03-18 19:23:01 +01:00
* @ return int < 0 if ko , > 0 if ok
*/
function set_date_livraison ( $user , $date_livraison )
{
if ( $user -> rights -> propale -> creer )
{
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
$sql .= " SET date_livraison = " . ( $date_livraison != '' ? " ' " . $this -> db -> idate ( $date_livraison ) . " ' " : 'null' );
$sql .= " WHERE rowid = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
$this -> date_livraison = $date_livraison ;
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::set_date_livraison Erreur SQL " );
return - 1 ;
}
}
}
/**
* Set delivery
*
* @ param User $user Object user that modify
* @ param int $id Availability id
* @ return int < 0 if KO , > 0 if OK
*/
function set_availability ( $user , $id )
{
if ( $user -> rights -> propale -> creer )
{
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
$sql .= " SET fk_availability = ' " . $id . " ' " ;
$sql .= " WHERE rowid = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
$this -> fk_availability = $id ;
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::set_availability Erreur SQL " );
2012-03-18 19:23:01 +01:00
return - 1 ;
}
}
}
/**
* Set source of demand
*
* @ param User $user Object user that modify
* @ param int $id Input reason id
* @ return int < 0 if KO , > 0 if OK
*/
function set_demand_reason ( $user , $id )
{
if ( $user -> rights -> propale -> creer )
{
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
2012-07-22 16:53:02 +02:00
$sql .= " SET fk_input_reason = ' " . $id . " ' " ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE rowid = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
2012-07-22 16:53:02 +02:00
$this -> fk_input_reason = $id ;
2012-03-18 19:23:01 +01:00
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::set_demand_reason Erreur SQL " );
2012-03-18 19:23:01 +01:00
return - 1 ;
}
}
}
/**
* Set customer reference number
*
* @ param User $user Object user that modify
* @ param string $ref_client Customer reference
* @ return int < 0 if ko , > 0 if ok
*/
function set_ref_client ( $user , $ref_client )
{
if ( $user -> rights -> propale -> creer )
{
dol_syslog ( 'Propale::set_ref_client this->id=' . $this -> id . ', ref_client=' . $ref_client );
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'propal SET ref_client = ' . ( empty ( $ref_client ) ? 'NULL' : '\'' . $this -> db -> escape ( $ref_client ) . '\'' );
$sql .= ' WHERE rowid = ' . $this -> id ;
if ( $this -> db -> query ( $sql ) )
{
$this -> ref_client = $ref_client ;
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( 'Propale::set_ref_client Erreur ' . $this -> error . ' - ' . $sql );
return - 2 ;
}
}
else
{
return - 1 ;
}
}
/**
* Set an overall discount on the proposal
*
* @ param User $user Object user that modify
* @ param double $remise Amount discount
* @ return int < 0 if ko , > 0 if ok
*/
function set_remise_percent ( $user , $remise )
{
$remise = trim ( $remise ) ? trim ( $remise ) : 0 ;
if ( $user -> rights -> propale -> creer )
{
$remise = price2num ( $remise );
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal SET remise_percent = " . $remise ;
$sql .= " WHERE rowid = " . $this -> id . " AND fk_statut = 0 " ;
if ( $this -> db -> query ( $sql ) )
{
$this -> remise_percent = $remise ;
$this -> update_price ( 1 );
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::set_remise_percent Error sql= $sql " );
2012-03-18 19:23:01 +01:00
return - 1 ;
}
}
}
/**
* Set an absolute overall discount on the proposal
*
* @ param User $user Object user that modify
* @ param double $remise Amount discount
* @ return int < 0 if ko , > 0 if ok
*/
function set_remise_absolue ( $user , $remise )
{
$remise = trim ( $remise ) ? trim ( $remise ) : 0 ;
if ( $user -> rights -> propale -> creer )
{
$remise = price2num ( $remise );
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
$sql .= " SET remise_absolue = " . $remise ;
$sql .= " WHERE rowid = " . $this -> id . " AND fk_statut = 0 " ;
if ( $this -> db -> query ( $sql ) )
{
$this -> remise_absolue = $remise ;
$this -> update_price ( 1 );
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::set_remise_absolue Error sql= $sql " );
2012-03-18 19:23:01 +01:00
return - 1 ;
}
}
}
/**
2013-07-15 09:33:26 +02:00
* Reopen the commercial proposal
2012-03-18 19:23:01 +01:00
*
* @ param User $user Object user that close
* @ param int $statut Statut
2013-11-07 21:46:23 +01:00
* @ param string $note Comment
2013-07-15 09:33:26 +02:00
* @ param int $notrigger 1 = Does not execute triggers , 0 = execuete triggers
2012-03-18 19:23:01 +01:00
* @ return int < 0 if KO , > 0 if OK
*/
2014-02-10 01:36:15 +01:00
function reopen ( $user , $statut , $note = '' , $notrigger = 0 )
2012-03-18 19:23:01 +01:00
{
global $langs , $conf ;
$this -> statut = $statut ;
$error = 0 ;
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
2013-07-15 09:37:55 +02:00
$sql .= " SET fk_statut = " . $this -> statut . " , " ;
2013-09-10 13:45:39 +02:00
if ( ! empty ( $note )) $sql .= " note_private = ' " . $this -> db -> escape ( $note ) . " ', " ;
2013-07-15 09:33:26 +02:00
$sql .= " date_cloture=NULL, fk_user_cloture=NULL " ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE rowid = " . $this -> id ;
2013-07-15 09:33:26 +02:00
$this -> db -> begin ();
dol_syslog ( get_class ( $this ) . " ::reopen sql= " . $sql , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( ! $resql ) {
$error ++ ; $this -> errors [] = " Error " . $this -> db -> lasterror ();
}
if ( ! $error )
{
if ( ! $notrigger )
{
// Appel des triggers
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_REOPEN' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
}
// Commit or rollback
if ( $error )
{
foreach ( $this -> errors as $errmsg )
{
dol_syslog ( get_class ( $this ) . " ::update " . $errmsg , LOG_ERR );
$this -> error .= ( $this -> error ? ', ' . $errmsg : $errmsg );
}
$this -> db -> rollback ();
return - 1 * $error ;
}
else
{
$this -> db -> commit ();
return 1 ;
}
2012-03-18 19:23:01 +01:00
}
/**
* Close the commercial proposal
*
* @ param User $user Object user that close
* @ param int $statut Statut
2013-11-07 21:46:23 +01:00
* @ param string $note Comment
2012-03-18 19:23:01 +01:00
* @ return int < 0 if KO , > 0 if OK
*/
function cloture ( $user , $statut , $note )
{
global $langs , $conf ;
$this -> statut = $statut ;
$error = 0 ;
2012-04-30 15:01:25 +02:00
$now = dol_now ();
2012-03-18 19:23:01 +01:00
$this -> db -> begin ();
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal " ;
2014-05-19 16:21:59 +02:00
$sql .= " SET fk_statut = " . $statut . " , note_private = ' " . $this -> db -> escape ( $note ) . " ', date_cloture=' " . $this -> db -> idate ( $now ) . " ', fk_user_cloture= " . $user -> id ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE rowid = " . $this -> id ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
if ( $statut == 2 )
{
2013-11-02 17:50:24 +01:00
// The connected company is classified as a client
2012-03-18 19:23:01 +01:00
$soc = new Societe ( $this -> db );
$soc -> id = $this -> socid ;
$result = $soc -> set_as_client ();
if ( $result < 0 )
{
$this -> error = $this -> db -> error ();
$this -> db -> rollback ();
return - 2 ;
}
2013-04-27 15:08:35 +02:00
2013-03-16 02:08:07 +01:00
if ( empty ( $conf -> global -> MAIN_DISABLE_PDF_AUTOUPDATE ))
{
// Define output language
$outputlangs = $langs ;
if ( ! empty ( $conf -> global -> MAIN_MULTILANGS ))
{
$outputlangs = new Translate ( " " , $conf );
$newlang = ( GETPOST ( 'lang_id' ) ? GETPOST ( 'lang_id' ) : $this -> client -> default_lang );
$outputlangs -> setDefaultLang ( $newlang );
}
//$ret=$object->fetch($id); // Reload to get new records
propale_pdf_create ( $this -> db , $this , $conf -> global -> PROPALE_ADDON_PDF_ODT_TOBILL ? $conf -> global -> PROPALE_ADDON_PDF_ODT_TOBILL : $this -> modelpdf , $outputlangs , $hidedetails , $hidedesc , $hideref );
}
2012-03-18 19:23:01 +01:00
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_CLOSE_SIGNED' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
else
{
2013-04-27 15:08:35 +02:00
2013-03-16 02:08:07 +01:00
if ( empty ( $conf -> global -> MAIN_DISABLE_PDF_AUTOUPDATE ))
{
// Define output language
$outputlangs = $langs ;
if ( ! empty ( $conf -> global -> MAIN_MULTILANGS ))
{
$outputlangs = new Translate ( " " , $conf );
$newlang = ( GETPOST ( 'lang_id' ) ? GETPOST ( 'lang_id' ) : $this -> client -> default_lang );
$outputlangs -> setDefaultLang ( $newlang );
}
//$ret=$object->fetch($id); // Reload to get new records
propale_pdf_create ( $this -> db , $this , $conf -> global -> PROPALE_ADDON_PDF_ODT_CLOSED ? $conf -> global -> PROPALE_ADDON_PDF_ODT_CLOSED : $this -> modelpdf , $outputlangs , $hidedetails , $hidedesc , $hideref );
}
2013-04-27 15:08:35 +02:00
2012-03-18 19:23:01 +01:00
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_CLOSE_REFUSED' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Class invoiced the Propal
*
* @ return int < 0 si ko , > 0 si ok
*/
2012-07-08 12:18:29 +02:00
function classifyBilled ()
2012-03-18 19:23:01 +01:00
{
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'propal SET fk_statut = 4' ;
$sql .= ' WHERE rowid = ' . $this -> id . ' AND fk_statut > 0 ;' ;
if ( $this -> db -> query ( $sql ) )
{
2012-07-08 12:18:29 +02:00
$this -> statut = 4 ;
2012-03-18 19:23:01 +01:00
return 1 ;
}
else
{
dol_print_error ( $this -> db );
}
}
2012-07-08 12:18:29 +02:00
/**
* Class invoiced the Propal
*
* @ return int < 0 si ko , > 0 si ok
2013-09-16 11:50:53 +02:00
* @ deprecated
2012-07-08 12:18:29 +02:00
*/
function classer_facturee ()
{
return $this -> classifyBilled ();
}
2012-03-18 19:23:01 +01:00
/**
* Set draft status
*
* @ param User $user Object user that modify
* @ return int < 0 if KO , > 0 if OK
*/
function set_draft ( $user )
{
global $conf , $langs ;
$sql = " UPDATE " . MAIN_DB_PREFIX . " propal SET fk_statut = 0 " ;
$sql .= " WHERE rowid = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
$this -> statut = 0 ;
2012-05-23 11:20:59 +02:00
$this -> brouillon = 1 ;
2012-03-18 19:23:01 +01:00
return 1 ;
}
else
{
return - 1 ;
}
}
/**
* Return list of proposal ( eventually filtered on user ) into an array
*
2013-04-27 15:08:35 +02:00
* @ param int $shortlist 0 = Return array [ id ] = ref , 1 = Return array []( id => id , ref => ref , name => name )
2012-03-18 19:23:01 +01:00
* @ param int $draft 0 = not draft , 1 = draft
2013-04-27 15:08:35 +02:00
* @ param int $notcurrentuser 0 = all user , 1 = not current user
2012-03-18 19:23:01 +01:00
* @ param int $socid Id third pary
* @ param int $limit For pagination
* @ param int $offset For pagination
* @ param string $sortfield Sort criteria
* @ param string $sortorder Sort order
* @ return int - 1 if KO , array with result if OK
*/
function liste_array ( $shortlist = 0 , $draft = 0 , $notcurrentuser = 0 , $socid = 0 , $limit = 0 , $offset = 0 , $sortfield = 'p.datep' , $sortorder = 'DESC' )
{
global $conf , $user ;
$ga = array ();
2013-04-27 15:08:35 +02:00
$sql = " SELECT s.rowid, s.nom as name, s.client, " ;
$sql .= " p.rowid as propalid, p.fk_statut, p.total_ht, p.ref, p.remise, " ;
2012-03-18 19:23:01 +01:00
$sql .= " p.datep as dp, p.fin_validite as datelimite " ;
2013-04-27 15:08:35 +02:00
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) $sql .= " , sc.fk_soc, sc.fk_user " ;
2012-03-18 19:23:01 +01:00
$sql .= " FROM " . MAIN_DB_PREFIX . " societe as s, " . MAIN_DB_PREFIX . " propal as p, " . MAIN_DB_PREFIX . " c_propalst as c " ;
2013-04-27 15:08:35 +02:00
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) $sql .= " , " . MAIN_DB_PREFIX . " societe_commerciaux as sc " ;
2012-03-18 19:23:01 +01:00
$sql .= " WHERE p.entity = " . $conf -> entity ;
$sql .= " AND p.fk_soc = s.rowid " ;
$sql .= " AND p.fk_statut = c.id " ;
2013-06-05 16:24:32 +02:00
if ( ! $user -> rights -> societe -> client -> voir && ! $socid ) //restriction
{
$sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = " . $user -> id ;
}
2012-03-18 19:23:01 +01:00
if ( $socid ) $sql .= " AND s.rowid = " . $socid ;
if ( $draft ) $sql .= " AND p.fk_statut = 0 " ;
2013-04-27 15:08:35 +02:00
if ( $notcurrentuser > 0 ) $sql .= " AND p.fk_user_author <> " . $user -> id ;
2012-03-18 19:23:01 +01:00
$sql .= $this -> db -> order ( $sortfield , $sortorder );
$sql .= $this -> db -> plimit ( $limit , $offset );
$result = $this -> db -> query ( $sql );
if ( $result )
{
$num = $this -> db -> num_rows ( $result );
if ( $num )
{
$i = 0 ;
while ( $i < $num )
{
$obj = $this -> db -> fetch_object ( $result );
2013-04-27 15:08:35 +02:00
if ( $shortlist == 1 )
2012-03-18 19:23:01 +01:00
{
$ga [ $obj -> propalid ] = $obj -> ref ;
}
2013-04-27 15:08:35 +02:00
else if ( $shortlist == 2 )
2012-03-18 19:23:01 +01:00
{
2013-04-27 15:08:35 +02:00
$ga [ $obj -> propalid ] = $obj -> ref . ' (' . $obj -> name . ')' ;
}
else
{
2012-03-18 19:23:01 +01:00
$ga [ $i ][ 'id' ] = $obj -> propalid ;
$ga [ $i ][ 'ref' ] = $obj -> ref ;
2013-04-27 15:08:35 +02:00
$ga [ $i ][ 'name' ] = $obj -> name ;
2012-03-18 19:23:01 +01:00
}
$i ++ ;
}
}
return $ga ;
}
else
{
dol_print_error ( $this -> db );
return - 1 ;
}
}
/**
* Returns an array with the numbers of related invoices
*
* @ return array Array of invoices
*/
function getInvoiceArrayList ()
{
return $this -> InvoiceArrayList ( $this -> id );
}
/**
* Returns an array with id and ref of related invoices
*
* @ param int $id Id propal
* @ return array Array of invoices id
*/
function InvoiceArrayList ( $id )
{
$ga = array ();
$linkedInvoices = array ();
$this -> fetchObjectLinked ( $id , $this -> element );
foreach ( $this -> linkedObjectsIds as $objecttype => $objectid )
{
$numi = count ( $objectid );
for ( $i = 0 ; $i < $numi ; $i ++ )
{
// Cas des factures liees directement
if ( $objecttype == 'facture' )
{
$linkedInvoices [] = $objectid [ $i ];
}
// Cas des factures liees via la commande
else
{
$this -> fetchObjectLinked ( $objectid [ $i ], $objecttype );
foreach ( $this -> linkedObjectsIds as $subobjecttype => $subobjectid )
{
$numj = count ( $subobjectid );
for ( $j = 0 ; $j < $numj ; $j ++ )
{
$linkedInvoices [] = $subobjectid [ $j ];
}
}
}
}
}
if ( count ( $linkedInvoices ) > 0 )
{
$sql = " SELECT rowid as facid, facnumber, total, datef as df, fk_user_author, fk_statut, paye " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " facture " ;
$sql .= " WHERE rowid IN ( " . implode ( ',' , $linkedInvoices ) . " ) " ;
2012-10-13 13:03:39 +02:00
dol_syslog ( get_class ( $this ) . " ::InvoiceArrayList sql= " . $sql );
2012-03-18 19:23:01 +01:00
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$tab_sqlobj = array ();
$nump = $this -> db -> num_rows ( $resql );
for ( $i = 0 ; $i < $nump ; $i ++ )
{
$sqlobj = $this -> db -> fetch_object ( $resql );
$tab_sqlobj [] = $sqlobj ;
}
$this -> db -> free ( $resql );
$nump = count ( $tab_sqlobj );
if ( $nump )
{
$i = 0 ;
while ( $i < $nump )
{
$obj = array_shift ( $tab_sqlobj );
$ga [ $i ] = $obj ;
$i ++ ;
}
}
return $ga ;
}
else
{
return - 1 ;
}
}
else return $ga ;
}
/**
* Delete proposal
*
* @ param User $user Object user that delete
* @ param int $notrigger 1 = Does not execute triggers , 0 = execuete triggers
* @ return int 1 if ok , otherwise if error
*/
function delete ( $user , $notrigger = 0 )
{
global $conf , $langs ;
2012-08-22 23:11:24 +02:00
require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php' ;
2010-07-10 01:49:41 +02:00
2012-03-18 19:23:01 +01:00
$error = 0 ;
$this -> db -> begin ();
if ( ! $error && ! $notrigger )
{
// Call triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'PROPAL_DELETE' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// End call triggers
}
if ( ! $error )
{
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " propaldet WHERE fk_propal = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " propal WHERE rowid = " . $this -> id ;
if ( $this -> db -> query ( $sql ))
{
// Delete linked object
$res = $this -> deleteObjectLinked ();
if ( $res < 0 ) $error ++ ;
// Delete linked contacts
$res = $this -> delete_linked_contact ();
if ( $res < 0 ) $error ++ ;
if ( ! $error )
{
// We remove directory
2012-06-11 21:45:59 +02:00
$ref = dol_sanitizeFileName ( $this -> ref );
2013-12-11 15:14:29 +01:00
if ( $conf -> propal -> dir_output && ! empty ( $this -> ref ))
2012-03-18 19:23:01 +01:00
{
2012-06-11 21:45:59 +02:00
$dir = $conf -> propal -> dir_output . " / " . $ref ;
$file = $dir . " / " . $ref . " .pdf " ;
2012-03-18 19:23:01 +01:00
if ( file_exists ( $file ))
{
dol_delete_preview ( $this );
2012-05-29 23:00:12 +02:00
if ( ! dol_delete_file ( $file , 0 , 0 , 0 , $this )) // For triggers
2012-03-18 19:23:01 +01:00
{
2012-07-29 14:15:29 +02:00
$this -> error = 'ErrorFailToDeleteFile' ;
$this -> errors = array ( 'ErrorFailToDeleteFile' );
$this -> db -> rollback ();
2012-03-18 19:23:01 +01:00
return 0 ;
}
}
if ( file_exists ( $dir ))
{
2012-06-11 21:45:59 +02:00
$res =@ dol_delete_dir_recursive ( $dir );
2012-03-18 19:23:01 +01:00
if ( ! $res )
{
$this -> error = 'ErrorFailToDeleteDir' ;
2012-07-29 14:15:29 +02:00
$this -> errors = array ( 'ErrorFailToDeleteDir' );
2012-03-18 19:23:01 +01:00
$this -> db -> rollback ();
return 0 ;
}
}
}
}
2013-04-26 17:20:21 +02:00
// Removed extrafields
if ( ! $error )
{
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$result = $this -> deleteExtraFields ();
if ( $result < 0 )
{
$error ++ ;
$errorflag =- 4 ;
dol_syslog ( get_class ( $this ) . " ::delete erreur " . $errorflag . " " . $this -> error , LOG_ERR );
}
}
}
2012-03-18 19:23:01 +01:00
if ( ! $error )
{
dol_syslog ( get_class ( $this ) . " ::delete $this->id by $user->id " , LOG_DEBUG );
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . " ::delete " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return 0 ;
}
}
else
{
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . " ::delete " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 3 ;
}
}
else
{
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . " ::delete " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 2 ;
}
}
else
{
$this -> error = $this -> db -> lasterror ();
dol_syslog ( get_class ( $this ) . " ::delete " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Change the delivery time
*
* @ param int $availability_id Id of new delivery time
* @ return int > 0 if OK , < 0 if KO
*/
function availability ( $availability_id )
{
dol_syslog ( 'Propale::availability(' . $availability_id . ')' );
if ( $this -> statut >= 0 )
{
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'propal' ;
$sql .= ' SET fk_availability = ' . $availability_id ;
$sql .= ' WHERE rowid=' . $this -> id ;
if ( $this -> db -> query ( $sql ) )
{
$this -> availability_id = $availability_id ;
return 1 ;
}
else
{
dol_syslog ( 'Propale::availability Erreur ' . $sql . ' - ' . $this -> db -> error ());
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
else
{
dol_syslog ( 'Propale::availability, etat propale incompatible' );
$this -> error = 'Etat propale incompatible ' . $this -> statut ;
return - 2 ;
}
}
/**
* Change source demand
*
* @ param int $demand_reason_id Id of new source demand
* @ return int > 0 si ok , < 0 si ko
*/
function demand_reason ( $demand_reason_id )
{
dol_syslog ( 'Propale::demand_reason(' . $demand_reason_id . ')' );
if ( $this -> statut >= 0 )
{
$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'propal' ;
2012-07-22 16:53:02 +02:00
$sql .= ' SET fk_input_reason = ' . $demand_reason_id ;
2012-03-18 19:23:01 +01:00
$sql .= ' WHERE rowid=' . $this -> id ;
if ( $this -> db -> query ( $sql ) )
{
$this -> demand_reason_id = $demand_reason_id ;
return 1 ;
}
else
{
dol_syslog ( 'Propale::demand_reason Erreur ' . $sql . ' - ' . $this -> db -> error ());
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
else
{
dol_syslog ( 'Propale::demand_reason, etat propale incompatible' );
$this -> error = 'Etat propale incompatible ' . $this -> statut ;
return - 2 ;
}
}
/**
* Object Proposal Information
*
* @ param int $id Proposal id
* @ return void
*/
function info ( $id )
{
$sql = " SELECT c.rowid, " ;
$sql .= " c.datec, c.date_valid as datev, c.date_cloture as dateo, " ;
$sql .= " c.fk_user_author, c.fk_user_valid, c.fk_user_cloture " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " propal 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 ;
$this -> date_creation = $this -> db -> jdate ( $obj -> datec );
$this -> date_validation = $this -> db -> jdate ( $obj -> datev );
$this -> date_cloture = $this -> db -> jdate ( $obj -> dateo );
$cuser = new User ( $this -> db );
$cuser -> fetch ( $obj -> fk_user_author );
$this -> user_creation = $cuser ;
if ( $obj -> fk_user_valid )
{
$vuser = new User ( $this -> db );
$vuser -> fetch ( $obj -> fk_user_valid );
$this -> user_validation = $vuser ;
}
if ( $obj -> fk_user_cloture )
{
$cluser = new User ( $this -> db );
$cluser -> fetch ( $obj -> fk_user_cloture );
$this -> user_cloture = $cluser ;
}
}
$this -> db -> free ( $result );
}
else
{
dol_print_error ( $this -> db );
}
}
/**
* Return label of status of proposal ( draft , validated , ... )
*
* @ 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
*/
function getLibStatut ( $mode = 0 )
{
return $this -> LibStatut ( $this -> statut , $mode );
}
/**
* Return label of a status ( draft , validated , ... )
*
* @ 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
* @ return string Label
*/
function LibStatut ( $statut , $mode = 1 )
{
global $langs ;
$langs -> load ( " propal " );
if ( $mode == 0 )
{
return $this -> labelstatut [ $statut ];
}
if ( $mode == 1 )
{
return $this -> labelstatut_short [ $statut ];
}
if ( $mode == 2 )
{
if ( $statut == 0 ) return img_picto ( $langs -> trans ( 'PropalStatusDraftShort' ), 'statut0' ) . ' ' . $this -> labelstatut_short [ $statut ];
if ( $statut == 1 ) return img_picto ( $langs -> trans ( 'PropalStatusOpenedShort' ), 'statut1' ) . ' ' . $this -> labelstatut_short [ $statut ];
if ( $statut == 2 ) return img_picto ( $langs -> trans ( 'PropalStatusSignedShort' ), 'statut3' ) . ' ' . $this -> labelstatut_short [ $statut ];
if ( $statut == 3 ) return img_picto ( $langs -> trans ( 'PropalStatusNotSignedShort' ), 'statut5' ) . ' ' . $this -> labelstatut_short [ $statut ];
if ( $statut == 4 ) return img_picto ( $langs -> trans ( 'PropalStatusBilledShort' ), 'statut6' ) . ' ' . $this -> labelstatut_short [ $statut ];
}
if ( $mode == 3 )
{
if ( $statut == 0 ) return img_picto ( $langs -> trans ( 'PropalStatusDraftShort' ), 'statut0' );
if ( $statut == 1 ) return img_picto ( $langs -> trans ( 'PropalStatusOpenedShort' ), 'statut1' );
if ( $statut == 2 ) return img_picto ( $langs -> trans ( 'PropalStatusSignedShort' ), 'statut3' );
if ( $statut == 3 ) return img_picto ( $langs -> trans ( 'PropalStatusNotSignedShort' ), 'statut5' );
if ( $statut == 4 ) return img_picto ( $langs -> trans ( 'PropalStatusBilledShort' ), 'statut6' );
}
if ( $mode == 4 )
{
if ( $statut == 0 ) return img_picto ( $langs -> trans ( 'PropalStatusDraft' ), 'statut0' ) . ' ' . $this -> labelstatut [ $statut ];
if ( $statut == 1 ) return img_picto ( $langs -> trans ( 'PropalStatusOpened' ), 'statut1' ) . ' ' . $this -> labelstatut [ $statut ];
if ( $statut == 2 ) return img_picto ( $langs -> trans ( 'PropalStatusSigned' ), 'statut3' ) . ' ' . $this -> labelstatut [ $statut ];
if ( $statut == 3 ) return img_picto ( $langs -> trans ( 'PropalStatusNotSigned' ), 'statut5' ) . ' ' . $this -> labelstatut [ $statut ];
if ( $statut == 4 ) return img_picto ( $langs -> trans ( 'PropalStatusBilled' ), 'statut6' ) . ' ' . $this -> labelstatut [ $statut ];
}
if ( $mode == 5 )
{
2013-04-25 20:27:45 +02:00
if ( $statut == 0 ) return '<span class="hideonsmartphone">' . $this -> labelstatut_short [ $statut ] . ' </span>' . img_picto ( $langs -> trans ( 'PropalStatusDraftShort' ), 'statut0' );
if ( $statut == 1 ) return '<span class="hideonsmartphone">' . $this -> labelstatut_short [ $statut ] . ' </span>' . img_picto ( $langs -> trans ( 'PropalStatusOpenedShort' ), 'statut1' );
if ( $statut == 2 ) return '<span class="hideonsmartphone">' . $this -> labelstatut_short [ $statut ] . ' </span>' . img_picto ( $langs -> trans ( 'PropalStatusSignedShort' ), 'statut3' );
if ( $statut == 3 ) return '<span class="hideonsmartphone">' . $this -> labelstatut_short [ $statut ] . ' </span>' . img_picto ( $langs -> trans ( 'PropalStatusNotSignedShort' ), 'statut5' );
if ( $statut == 4 ) return '<span class="hideonsmartphone">' . $this -> labelstatut_short [ $statut ] . ' </span>' . img_picto ( $langs -> trans ( 'PropalStatusBilledShort' ), 'statut6' );
2012-03-18 19:23:01 +01:00
}
}
/**
2010-11-13 18:37:22 +01:00
* Load indicators for dashboard ( this -> nbtodo and this -> nbtodolate )
2011-12-16 14:59:09 +01:00
*
2011-12-14 18:09:34 +01:00
* @ param User $user Object user
* @ param int $mode " opened " for proposal to close , " signed " for proposal to invoice
* @ return int < 0 if KO , > 0 if OK
2012-03-18 19:23:01 +01:00
*/
function load_board ( $user , $mode )
{
global $conf , $user ;
2012-03-23 18:19:50 +01:00
$now = dol_now ();
2012-03-18 19:23:01 +01:00
$this -> nbtodo = $this -> nbtodolate = 0 ;
$clause = " WHERE " ;
$sql = " SELECT p.rowid, p.ref, p.datec as datec, p.fin_validite as datefin " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " propal as p " ;
if ( ! $user -> rights -> societe -> client -> voir && ! $user -> societe_id )
{
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " societe_commerciaux as sc ON p.fk_soc = sc.fk_soc " ;
$sql .= " WHERE sc.fk_user = " . $user -> id ;
$clause = " AND " ;
}
$sql .= $clause . " p.entity = " . $conf -> entity ;
if ( $mode == 'opened' ) $sql .= " AND p.fk_statut = 1 " ;
if ( $mode == 'signed' ) $sql .= " AND p.fk_statut = 2 " ;
if ( $user -> societe_id ) $sql .= " AND p.fk_soc = " . $user -> societe_id ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
if ( $mode == 'opened' ) $delay_warning = $conf -> propal -> cloture -> warning_delay ;
if ( $mode == 'signed' ) $delay_warning = $conf -> propal -> facturation -> warning_delay ;
2013-11-07 20:51:30 +01:00
// This assignment in condition is not a bug. It allows walking the results.
2012-03-18 19:23:01 +01:00
while ( $obj = $this -> db -> fetch_object ( $resql ))
{
$this -> nbtodo ++ ;
if ( $mode == 'opened' )
{
$datelimit = $this -> db -> jdate ( $obj -> datefin );
if ( $datelimit < ( $now - $delay_warning ))
{
$this -> nbtodolate ++ ;
}
}
// TODO Definir regle des propales a facturer en retard
// if ($mode == 'signed' && ! count($this->FactureListeArray($obj->rowid))) $this->nbtodolate++;
}
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
/**
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
2012-03-18 19:23:01 +01:00
*/
function initAsSpecimen ()
{
global $user , $langs , $conf ;
// Charge tableau des produits prodids
$prodids = array ();
$sql = " SELECT rowid " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " product " ;
$sql .= " WHERE entity IN ( " . getEntity ( 'product' , 1 ) . " ) " ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$num_prods = $this -> db -> num_rows ( $resql );
$i = 0 ;
while ( $i < $num_prods )
{
$i ++ ;
$row = $this -> db -> fetch_row ( $resql );
$prodids [ $i ] = $row [ 0 ];
}
}
// Initialise parametres
$this -> id = 0 ;
$this -> ref = 'SPECIMEN' ;
$this -> ref_client = 'NEMICEPS' ;
$this -> specimen = 1 ;
$this -> socid = 1 ;
$this -> date = time ();
$this -> fin_validite = $this -> date + 3600 * 24 * 30 ;
$this -> cond_reglement_id = 1 ;
$this -> cond_reglement_code = 'RECEP' ;
$this -> mode_reglement_id = 7 ;
$this -> mode_reglement_code = 'CHQ' ;
$this -> availability_id = 1 ;
2012-10-30 12:02:13 +01:00
$this -> availability_code = 'AV_NOW' ;
2012-03-18 19:23:01 +01:00
$this -> demand_reason_id = 1 ;
$this -> demand_reason_code = 'SRC_00' ;
$this -> note_public = 'This is a comment (public)' ;
2013-04-09 17:18:07 +02:00
$this -> note_private = 'This is a comment (private)' ;
2012-03-18 19:23:01 +01:00
// Lines
$nbp = 5 ;
$xnbp = 0 ;
while ( $xnbp < $nbp )
{
$line = new PropaleLigne ( $this -> db );
$line -> desc = $langs -> trans ( " Description " ) . " " . $xnbp ;
$line -> qty = 1 ;
$line -> subprice = 100 ;
$line -> price = 100 ;
$line -> tva_tx = 19.6 ;
2011-08-31 16:42:47 +02:00
$line -> localtax1_tx = 0 ;
$line -> localtax2_tx = 0 ;
2012-03-18 19:23:01 +01:00
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 ;
}
$prodid = rand ( 1 , $num_prods );
$line -> fk_product = $prodids [ $prodid ];
$this -> lines [ $xnbp ] = $line ;
$this -> total_ht += $line -> total_ht ;
$this -> total_tva += $line -> total_tva ;
$this -> total_ttc += $line -> total_ttc ;
$xnbp ++ ;
}
}
/**
* Charge indicateurs this -> nb de tableau de bord
*
* @ return int < 0 if ko , > 0 if ok
*/
function load_state_board ()
{
global $conf , $user ;
$this -> nb = array ();
$clause = " WHERE " ;
$sql = " SELECT count(p.rowid) as nb " ;
$sql .= " FROM " . MAIN_DB_PREFIX . " propal as p " ;
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . " societe as s ON p.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 . " p.entity = " . $conf -> entity ;
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
2013-11-07 20:51:30 +01:00
// This assignment in condition is not a bug. It allows walking the results.
2012-03-18 19:23:01 +01:00
while ( $obj = $this -> db -> fetch_object ( $resql ))
{
$this -> nb [ " proposals " ] = $obj -> nb ;
}
2013-06-16 21:31:21 +02:00
$this -> db -> free ( $resql );
2012-03-18 19:23:01 +01:00
return 1 ;
}
else
{
dol_print_error ( $this -> db );
$this -> error = $this -> db -> error ();
return - 1 ;
}
}
/**
* Returns the reference to the following non used Proposal used depending on the active numbering module
* defined into PROPALE_ADDON
*
* @ param Societe $soc Object thirdparty
* @ return string Reference libre pour la propale
*/
function getNextNumRef ( $soc )
{
global $conf , $db , $langs ;
$langs -> load ( " propal " );
if ( ! empty ( $conf -> global -> PROPALE_ADDON ))
{
2013-07-07 03:26:51 +02:00
$mybool = false ;
2012-03-18 19:23:01 +01:00
2013-07-07 03:26:51 +02:00
$file = $conf -> global -> PROPALE_ADDON . " .php " ;
2012-03-18 19:23:01 +01:00
$classname = $conf -> global -> PROPALE_ADDON ;
2013-07-07 13:17:48 +02:00
// Include file with class
foreach ( $conf -> file -> dol_document_root as $dirroot )
{
$dir = $dirroot . " /core/modules/propale/ " ;
// Load file with numbering class (if found)
$mybool |=@ include_once $dir . $file ;
}
if ( ! $mybool )
{
dol_print_error ( '' , " Failed to include file " . $file );
return '' ;
2013-07-07 03:26:51 +02:00
}
$obj = new $classname ();
2012-03-18 19:23:01 +01:00
$numref = " " ;
$numref = $obj -> getNextValue ( $soc , $this );
2013-07-07 03:26:51 +02:00
if ( $numref != " " )
2012-03-18 19:23:01 +01:00
{
return $numref ;
}
else
{
$this -> error = $obj -> error ;
//dol_print_error($db,"Propale::getNextNumRef ".$obj->error);
return " " ;
}
}
else
{
$langs -> load ( " errors " );
print $langs -> trans ( " Error " ) . " " . $langs -> trans ( " ErrorModuleSetupNotComplete " );
return " " ;
}
}
/**
* Return clicable link of object ( with eventually picto )
*
* @ param int $withpicto Add picto into link
* @ param string $option Where point the link ( 'compta' , 'expedition' , 'document' , ... )
* @ param string $get_params Parametres added to url
* @ return string String with URL
*/
function getNomUrl ( $withpicto = 0 , $option = '' , $get_params = '' )
{
global $langs ;
$result = '' ;
if ( $option == '' )
{
$lien = '<a href="' . DOL_URL_ROOT . '/comm/propal.php?id=' . $this -> id . $get_params . '">' ;
}
if ( $option == 'compta' ) // deprecated
{
$lien = '<a href="' . DOL_URL_ROOT . '/comm/propal.php?id=' . $this -> id . $get_params . '">' ;
}
if ( $option == 'expedition' )
{
$lien = '<a href="' . DOL_URL_ROOT . '/expedition/propal.php?id=' . $this -> id . $get_params . '">' ;
}
if ( $option == 'document' )
{
$lien = '<a href="' . DOL_URL_ROOT . '/comm/propal/document.php?id=' . $this -> id . $get_params . '">' ;
}
$lienfin = '</a>' ;
$picto = 'propal' ;
$label = $langs -> trans ( " ShowPropal " ) . ': ' . $this -> ref ;
if ( $withpicto ) $result .= ( $lien . img_object ( $label , $picto ) . $lienfin );
if ( $withpicto && $withpicto != 2 ) $result .= ' ' ;
$result .= $lien . $this -> ref . $lienfin ;
return $result ;
}
/**
* Retrieve an array of propal lines
*
* @ return int < 0 if ko , > 0 if ok
*/
function getLinesArray ()
{
2012-08-22 17:42:40 +02:00
$sql = 'SELECT pt.rowid, pt.label as custom_label, pt.description, pt.fk_product, pt.fk_remise_except,' ;
2012-03-18 19:23:01 +01:00
$sql .= ' pt.qty, pt.tva_tx, pt.remise_percent, pt.subprice, pt.info_bits,' ;
2012-07-19 10:15:59 +02:00
$sql .= ' pt.total_ht, pt.total_tva, pt.total_ttc, pt.fk_product_fournisseur_price as fk_fournprice, pt.buy_price_ht as pa_ht, pt.special_code, pt.localtax1_tx, pt.localtax2_tx,' ;
2012-08-01 17:36:15 +02:00
$sql .= ' pt.date_start, pt.date_end, pt.product_type, pt.rang, pt.fk_parent_line,' ;
2012-03-18 19:23:01 +01:00
$sql .= ' p.label as product_label, p.ref, p.fk_product_type, p.rowid as prodid,' ;
$sql .= ' p.description as product_desc' ;
$sql .= ' FROM ' . MAIN_DB_PREFIX . 'propaldet as pt' ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'product as p ON pt.fk_product=p.rowid' ;
$sql .= ' WHERE pt.fk_propal = ' . $this -> id ;
$sql .= ' ORDER BY pt.rang ASC, pt.rowid' ;
2013-05-19 18:47:14 +02:00
dol_syslog ( get_class ( $this ) . '::getLinesArray sql=' . $sql , LOG_DEBUG );
2012-03-18 19:23:01 +01:00
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$num = $this -> db -> num_rows ( $resql );
$i = 0 ;
while ( $i < $num )
{
$obj = $this -> db -> fetch_object ( $resql );
2013-06-10 16:05:41 +02:00
$this -> lines [ $i ] = new PropaleLigne ( $this -> db );
2012-08-01 17:36:15 +02:00
$this -> lines [ $i ] -> id = $obj -> rowid ; // for backward compatibility
$this -> lines [ $i ] -> rowid = $obj -> rowid ;
2012-08-22 17:42:40 +02:00
$this -> lines [ $i ] -> label = $obj -> custom_label ;
2012-03-18 19:23:01 +01:00
$this -> lines [ $i ] -> description = $obj -> description ;
$this -> lines [ $i ] -> fk_product = $obj -> fk_product ;
$this -> lines [ $i ] -> ref = $obj -> ref ;
$this -> lines [ $i ] -> product_label = $obj -> product_label ;
$this -> lines [ $i ] -> product_desc = $obj -> product_desc ;
$this -> lines [ $i ] -> fk_product_type = $obj -> fk_product_type ; // deprecated
$this -> lines [ $i ] -> product_type = $obj -> product_type ;
$this -> lines [ $i ] -> qty = $obj -> qty ;
$this -> lines [ $i ] -> subprice = $obj -> subprice ;
$this -> lines [ $i ] -> fk_remise_except = $obj -> fk_remise_except ;
$this -> lines [ $i ] -> remise_percent = $obj -> remise_percent ;
$this -> lines [ $i ] -> tva_tx = $obj -> tva_tx ;
$this -> lines [ $i ] -> info_bits = $obj -> info_bits ;
$this -> lines [ $i ] -> total_ht = $obj -> total_ht ;
$this -> lines [ $i ] -> total_tva = $obj -> total_tva ;
$this -> lines [ $i ] -> total_ttc = $obj -> total_ttc ;
2012-08-01 17:36:15 +02:00
$this -> lines [ $i ] -> fk_fournprice = $obj -> fk_fournprice ;
$marginInfos = getMarginInfos ( $obj -> subprice , $obj -> remise_percent , $obj -> tva_tx , $obj -> localtax1_tx , $obj -> localtax2_tx , $this -> lines [ $i ] -> fk_fournprice , $obj -> pa_ht );
$this -> lines [ $i ] -> pa_ht = $marginInfos [ 0 ];
2012-07-29 09:54:58 +02:00
$this -> lines [ $i ] -> marge_tx = $marginInfos [ 1 ];
$this -> lines [ $i ] -> marque_tx = $marginInfos [ 2 ];
2012-08-01 17:36:15 +02:00
$this -> lines [ $i ] -> fk_parent_line = $obj -> fk_parent_line ;
2012-03-18 19:23:01 +01:00
$this -> lines [ $i ] -> special_code = $obj -> special_code ;
$this -> lines [ $i ] -> rang = $obj -> rang ;
$this -> lines [ $i ] -> date_start = $this -> db -> jdate ( $obj -> date_start );
$this -> lines [ $i ] -> date_end = $this -> db -> jdate ( $obj -> date_end );
$i ++ ;
}
$this -> db -> free ( $resql );
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
2012-08-01 17:36:15 +02:00
dol_syslog ( get_class ( $this ) . " ::getLinesArray Error sql= $sql , error= " . $this -> error , LOG_ERR );
2012-03-18 19:23:01 +01:00
return - 1 ;
}
}
2007-05-05 00:37:06 +02:00
2005-08-11 22:01:25 +02:00
}
/**
2010-07-21 13:57:52 +02:00
* \class PropaleLigne
2010-07-18 11:36:10 +02:00
* \brief Class to manage commercial proposal lines
2008-08-28 01:00:37 +02:00
*/
2013-06-10 16:05:41 +02:00
class PropaleLigne extends CommonObject
2003-09-11 18:00:49 +02:00
{
2012-03-18 19:23:01 +01:00
var $db ;
var $error ;
2013-06-10 16:05:41 +02:00
public $element = 'propaldet' ;
public $table_element = 'propaldet' ;
2012-03-18 19:23:01 +01:00
var $oldline ;
// From llx_propaldet
var $rowid ;
var $fk_propal ;
var $fk_parent_line ;
var $desc ; // Description ligne
var $fk_product ; // Id produit predefini
var $product_type = 0 ; // Type 0 = product, 1 = Service
var $qty ;
var $tva_tx ;
var $subprice ;
var $remise_percent ;
var $fk_remise_except ;
var $rang = 0 ;
2012-07-20 09:57:50 +02:00
2012-08-01 17:36:15 +02:00
var $fk_fournprice ;
var $pa_ht ;
var $marge_tx ;
var $marque_tx ;
2012-03-18 19:23:01 +01:00
2014-03-01 16:58:10 +01:00
var $special_code ; // Tag for special lines (exlusive tags)
2012-03-18 19:23:01 +01:00
// 1: frais de port
// 2: ecotaxe
2014-03-01 16:58:10 +01:00
// 3: option line (when qty = 0)
2012-03-18 19:23:01 +01:00
var $info_bits = 0 ; // Liste d'options cumulables:
// Bit 0: 0 si TVA normal - 1 si TVA NPR
// Bit 1: 0 ligne normale - 1 si ligne de remise fixe
var $total_ht ; // Total HT de la ligne toute quantite et incluant la remise ligne
var $total_tva ; // Total TVA de la ligne toute quantite et incluant la remise ligne
var $total_ttc ; // Total TTC de la ligne toute quantite et incluant la remise ligne
// Ne plus utiliser
var $remise ;
var $price ;
// From llx_product
var $ref ; // Reference produit
var $libelle ; // Label produit
var $product_desc ; // Description produit
2013-09-10 18:45:16 +02:00
var $localtax1_tx ; // Local tax 1
var $localtax2_tx ; // Local tax 2
var $localtax1_type ; // Local tax 1 type
var $localtax2_type ; // Local tax 2 type
var $total_localtax1 ; // Line total local tax 1
var $total_localtax2 ; // Line total local tax 2
2013-04-27 15:08:35 +02:00
2013-04-15 15:31:12 +02:00
var $date_start ;
var $date_end ;
2012-03-18 19:23:01 +01:00
var $skip_update_total ; // Skip update price total for special lines
/**
* Class line Contructor
*
2012-07-30 18:43:49 +02:00
* @ param DoliDB $db Database handler
2012-03-18 19:23:01 +01:00
*/
2012-07-30 18:43:49 +02:00
function __construct ( $db )
2012-03-18 19:23:01 +01:00
{
2012-07-30 18:43:49 +02:00
$this -> db = $db ;
2012-03-18 19:23:01 +01:00
}
/**
* Retrieve the propal line object
*
* @ param int $rowid Propal line id
* @ return int < 0 if KO , > 0 if OK
*/
2012-07-29 09:54:58 +02:00
function fetch ( $rowid )
{
2012-08-22 17:42:40 +02:00
$sql = 'SELECT pd.rowid, pd.fk_propal, pd.fk_parent_line, pd.fk_product, pd.label as custom_label, pd.description, pd.price, pd.qty, pd.tva_tx,' ;
2012-07-29 09:54:58 +02:00
$sql .= ' pd.remise, pd.remise_percent, pd.fk_remise_except, pd.subprice,' ;
$sql .= ' pd.info_bits, pd.total_ht, pd.total_tva, pd.total_ttc, pd.fk_product_fournisseur_price as fk_fournprice, pd.buy_price_ht as pa_ht, pd.special_code, pd.rang,' ;
$sql .= ' pd.localtax1_tx, pd.localtax2_tx, pd.total_localtax1, pd.total_localtax2,' ;
2013-04-15 15:31:12 +02:00
$sql .= ' p.ref as product_ref, p.label as product_label, p.description as product_desc,' ;
$sql .= ' pd.date_start, pd.date_end' ;
2012-07-29 09:54:58 +02:00
$sql .= ' FROM ' . MAIN_DB_PREFIX . 'propaldet as pd' ;
$sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'product as p ON pd.fk_product = p.rowid' ;
$sql .= ' WHERE pd.rowid = ' . $rowid ;
$result = $this -> db -> query ( $sql );
if ( $result )
{
$objp = $this -> db -> fetch_object ( $result );
$this -> rowid = $objp -> rowid ;
$this -> fk_propal = $objp -> fk_propal ;
$this -> fk_parent_line = $objp -> fk_parent_line ;
2012-08-22 17:42:40 +02:00
$this -> label = $objp -> custom_label ;
2012-07-29 09:54:58 +02:00
$this -> desc = $objp -> description ;
$this -> qty = $objp -> qty ;
$this -> price = $objp -> price ; // deprecated
$this -> subprice = $objp -> subprice ;
$this -> tva_tx = $objp -> tva_tx ;
$this -> remise = $objp -> remise ;
$this -> remise_percent = $objp -> remise_percent ;
$this -> fk_remise_except = $objp -> fk_remise_except ;
$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_ttc = $objp -> total_ttc ;
$this -> fk_fournprice = $objp -> fk_fournprice ;
2012-08-01 17:36:15 +02:00
$marginInfos = getMarginInfos ( $objp -> subprice , $objp -> remise_percent , $objp -> tva_tx , $objp -> localtax1_tx , $objp -> localtax2_tx , $this -> fk_fournprice , $objp -> pa_ht );
2012-07-29 09:54:58 +02:00
$this -> pa_ht = $marginInfos [ 0 ];
$this -> marge_tx = $marginInfos [ 1 ];
$this -> marque_tx = $marginInfos [ 2 ];
$this -> special_code = $objp -> special_code ;
$this -> rang = $objp -> rang ;
$this -> ref = $objp -> product_ref ; // deprecated
$this -> product_ref = $objp -> product_ref ;
2012-08-22 17:42:40 +02:00
$this -> libelle = $objp -> product_label ; // deprecated
$this -> product_label = $objp -> product_label ;
2012-07-29 09:54:58 +02:00
$this -> product_desc = $objp -> product_desc ;
2013-04-27 15:08:35 +02:00
2013-04-15 15:31:12 +02:00
$this -> date_start = $this -> db -> jdate ( $objp -> date_start );
$this -> date_end = $this -> db -> jdate ( $objp -> date_end );
2012-07-29 09:54:58 +02:00
$this -> db -> free ( $result );
}
else
{
dol_print_error ( $this -> db );
}
}
2012-03-18 19:23:01 +01:00
/**
* Insert object line propal in database
*
* @ param int $notrigger 1 = Does not execute triggers , 0 = execuete triggers
* @ return int < 0 if KO , > 0 if OK
*/
function insert ( $notrigger = 0 )
{
global $conf , $langs , $user ;
$error = 0 ;
dol_syslog ( " PropaleLigne::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 ;
2013-09-10 18:45:16 +02:00
if ( empty ( $this -> localtax1_type )) $this -> localtax1_type = 0 ;
if ( empty ( $this -> localtax2_type )) $this -> localtax2_type = 0 ;
2012-03-18 19:23:01 +01: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 ;
2013-04-23 14:43:32 +02:00
if ( empty ( $this -> fk_fournprice )) $this -> fk_fournprice = 0 ;
2012-03-18 19:23:01 +01:00
2012-07-29 09:54:58 +02:00
if ( empty ( $this -> pa_ht )) $this -> pa_ht = 0 ;
2012-07-20 09:57:50 +02:00
2012-08-28 10:13:58 +02:00
// si prix d'achat non renseigne et utilise pour calcul des marges alors prix achat = prix vente
2012-07-29 09:54:58 +02:00
if ( $this -> pa_ht == 0 ) {
2012-08-28 10:13:58 +02:00
if ( $this -> subprice > 0 && ( isset ( $conf -> global -> ForceBuyingPriceIfNull ) && $conf -> global -> ForceBuyingPriceIfNull == 1 ))
2012-07-29 09:54:58 +02:00
$this -> pa_ht = $this -> subprice * ( 1 - $this -> remise_percent / 100 );
}
2012-07-20 09:57:50 +02:00
2012-03-18 19:23:01 +01:00
// Check parameters
if ( $this -> product_type < 0 ) return - 1 ;
$this -> db -> begin ();
// Insert line into database
$sql = 'INSERT INTO ' . MAIN_DB_PREFIX . 'propaldet' ;
2013-04-28 01:24:58 +02:00
$sql .= ' (fk_propal, fk_parent_line, label, description, fk_product, product_type,' ;
2013-09-10 18:45:16 +02:00
$sql .= ' fk_remise_except, qty, tva_tx, localtax1_tx, localtax2_tx, localtax1_type, localtax2_type,' ;
2012-03-18 19:23:01 +01:00
$sql .= ' subprice, remise_percent, ' ;
$sql .= ' info_bits, ' ;
2013-04-15 15:31:12 +02:00
$sql .= ' total_ht, total_tva, total_localtax1, total_localtax2, total_ttc, fk_product_fournisseur_price, buy_price_ht, special_code, rang,' ;
$sql .= ' date_start, date_end)' ;
2012-03-18 19:23:01 +01:00
$sql .= " VALUES ( " . $this -> fk_propal . " , " ;
$sql .= " " . ( $this -> fk_parent_line > 0 ? " ' " . $this -> fk_parent_line . " ' " : " null " ) . " , " ;
2012-08-22 17:42:40 +02:00
$sql .= " " . ( ! empty ( $this -> label ) ? " ' " . $this -> db -> escape ( $this -> label ) . " ' " : " null " ) . " , " ;
2012-03-18 19:23:01 +01:00
$sql .= " ' " . $this -> db -> escape ( $this -> desc ) . " ', " ;
$sql .= " " . ( $this -> fk_product ? " ' " . $this -> fk_product . " ' " : " null " ) . " , " ;
$sql .= " ' " . $this -> product_type . " ', " ;
$sql .= " " . ( $this -> fk_remise_except ? " ' " . $this -> fk_remise_except . " ' " : " null " ) . " , " ;
$sql .= " " . price2num ( $this -> qty ) . " , " ;
$sql .= " " . price2num ( $this -> tva_tx ) . " , " ;
$sql .= " " . price2num ( $this -> localtax1_tx ) . " , " ;
$sql .= " " . price2num ( $this -> localtax2_tx ) . " , " ;
2013-09-10 18:45:16 +02:00
$sql .= " ' " . $this -> localtax1_type . " ', " ;
$sql .= " ' " . $this -> localtax2_type . " ', " ;
2013-05-02 22:57:42 +02:00
$sql .= " " . ( $this -> subprice ? price2num ( $this -> subprice ) : " null " ) . " , " ;
2012-03-18 19:23:01 +01:00
$sql .= " " . price2num ( $this -> remise_percent ) . " , " ;
2013-04-23 14:02:29 +02:00
$sql .= " " . ( isset ( $this -> info_bits ) ? " ' " . $this -> info_bits . " ' " : " null " ) . " , " ;
2012-03-18 19:23:01 +01:00
$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 ) . " , " ;
2013-04-23 14:02:29 +02:00
$sql .= " " . ( ! empty ( $this -> fk_fournprice ) ? " ' " . $this -> fk_fournprice . " ' " : " null " ) . " , " ;
2012-07-29 09:54:58 +02:00
$sql .= " " . ( isset ( $this -> pa_ht ) ? " ' " . price2num ( $this -> pa_ht ) . " ' " : " null " ) . " , " ;
2012-03-18 19:23:01 +01:00
$sql .= ' ' . $this -> special_code . ',' ;
2013-04-15 15:31:12 +02:00
$sql .= ' ' . $this -> rang . ',' ;
$sql .= " " . ( ! empty ( $this -> date_start ) ? " ' " . $this -> db -> idate ( $this -> date_start ) . " ' " : " null " ) . ',' ;
$sql .= " " . ( ! empty ( $this -> date_end ) ? " ' " . $this -> db -> idate ( $this -> date_end ) . " ' " : " null " );
2012-03-18 19:23:01 +01:00
$sql .= ')' ;
2012-08-01 17:36:15 +02:00
dol_syslog ( get_class ( $this ) . '::insert sql=' . $sql , LOG_DEBUG );
2012-03-18 19:23:01 +01:00
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$this -> rowid = $this -> db -> last_insert_id ( MAIN_DB_PREFIX . 'propaldet' );
2013-06-16 21:31:21 +02:00
2013-06-10 16:05:41 +02:00
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$this -> id = $this -> rowid ;
$result = $this -> insertExtraFields ();
if ( $result < 0 )
{
$error ++ ;
}
}
2013-06-16 21:31:21 +02:00
2012-03-18 19:23:01 +01:00
if ( ! $notrigger )
{
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'LINEPROPAL_INSERT' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> error = $this -> db -> error () . " sql= " . $sql ;
2012-08-01 17:36:15 +02:00
dol_syslog ( get_class ( $this ) . '::insert Error ' . $this -> error , LOG_ERR );
2012-03-18 19:23:01 +01:00
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Delete line in database
*
* @ return int < 0 if ko , > 0 if ok
*/
function delete ()
{
global $conf , $langs , $user ;
$error = 0 ;
$this -> db -> begin ();
$sql = " DELETE FROM " . MAIN_DB_PREFIX . " propaldet WHERE rowid = " . $this -> rowid ;
dol_syslog ( " PropaleLigne::delete sql= " . $sql , LOG_DEBUG );
if ( $this -> db -> query ( $sql ) )
{
2013-06-16 21:31:21 +02:00
2013-06-10 16:05:41 +02:00
// Remove extrafields
if (( ! $error ) && ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED ))) // For avoid conflicts if trigger used
{
$this -> id = $this -> rowid ;
$result = $this -> deleteExtraFields ();
if ( $result < 0 )
{
$error ++ ;
dol_syslog ( get_class ( $this ) . " ::delete error -4 " . $this -> error , LOG_ERR );
}
}
2013-06-16 21:31:21 +02:00
2012-03-18 19:23:01 +01:00
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'LINEPROPAL_DELETE' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> error = $this -> db -> error () . " sql= " . $sql ;
dol_syslog ( " PropaleLigne::delete Error " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 1 ;
}
}
/**
* Update propal line object into DB
*
* @ param int $notrigger 1 = Does not execute triggers , 0 = execuete triggers
* @ return int < 0 if ko , > 0 if ok
*/
function update ( $notrigger = 0 )
{
global $conf , $langs , $user ;
$error = 0 ;
// 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 ;
if ( empty ( $this -> total_localtax1 )) $this -> total_localtax1 = 0 ;
if ( empty ( $this -> total_localtax2 )) $this -> total_localtax2 = 0 ;
2013-09-10 18:45:16 +02:00
if ( empty ( $this -> localtax1_type )) $this -> localtax1_type = 0 ;
if ( empty ( $this -> localtax2_type )) $this -> localtax2_type = 0 ;
2012-03-18 19:23:01 +01:00
if ( empty ( $this -> marque_tx )) $this -> marque_tx = 0 ;
if ( empty ( $this -> marge_tx )) $this -> marge_tx = 0 ;
2013-12-14 17:25:57 +01:00
if ( empty ( $this -> price )) $this -> price = 0 ; // TODO A virer
if ( empty ( $this -> remise )) $this -> remise = 0 ; // TODO A virer
2012-03-18 19:23:01 +01:00
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 ;
2013-09-08 21:51:08 +02:00
if ( empty ( $this -> fk_fournprice )) $this -> fk_fournprice = 0 ;
2012-03-18 19:23:01 +01:00
2012-08-01 17:36:15 +02:00
if ( empty ( $this -> pa_ht )) $this -> pa_ht = 0 ;
2012-07-20 09:57:50 +02:00
2012-08-28 10:13:58 +02:00
// si prix d'achat non renseigne et utilise pour calcul des marges alors prix achat = prix vente
2012-08-01 17:36:15 +02:00
if ( $this -> pa_ht == 0 ) {
2012-08-28 10:13:58 +02:00
if ( $this -> subprice > 0 && ( isset ( $conf -> global -> ForceBuyingPriceIfNull ) && $conf -> global -> ForceBuyingPriceIfNull == 1 ))
2012-08-01 17:36:15 +02:00
$this -> pa_ht = $this -> subprice * ( 1 - $this -> remise_percent / 100 );
}
2012-07-18 15:15:54 +02:00
2012-03-18 19:23:01 +01:00
$this -> db -> begin ();
// Mise a jour ligne en base
$sql = " UPDATE " . MAIN_DB_PREFIX . " propaldet SET " ;
$sql .= " description=' " . $this -> db -> escape ( $this -> desc ) . " ' " ;
2012-08-23 13:45:51 +02:00
$sql .= " , label= " . ( ! empty ( $this -> label ) ? " ' " . $this -> db -> escape ( $this -> label ) . " ' " : " null " );
2012-03-18 19:23:01 +01:00
$sql .= " , tva_tx=' " . price2num ( $this -> tva_tx ) . " ' " ;
$sql .= " , localtax1_tx= " . price2num ( $this -> localtax1_tx );
$sql .= " , localtax2_tx= " . price2num ( $this -> localtax2_tx );
2013-09-10 18:45:16 +02:00
$sql .= " , localtax1_type=' " . $this -> localtax1_type . " ' " ;
$sql .= " , localtax2_type=' " . $this -> localtax2_type . " ' " ;
2012-03-18 19:23:01 +01:00
$sql .= " , qty=' " . price2num ( $this -> qty ) . " ' " ;
$sql .= " , subprice= " . price2num ( $this -> subprice ) . " " ;
$sql .= " , remise_percent= " . price2num ( $this -> remise_percent ) . " " ;
$sql .= " , price= " . price2num ( $this -> price ) . " " ; // TODO A virer
$sql .= " , remise= " . price2num ( $this -> remise ) . " " ; // TODO A virer
$sql .= " , info_bits=' " . $this -> info_bits . " ' " ;
if ( empty ( $this -> skip_update_total ))
{
$sql .= " , total_ht= " . price2num ( $this -> total_ht ) . " " ;
$sql .= " , total_tva= " . price2num ( $this -> total_tva ) . " " ;
$sql .= " , total_ttc= " . price2num ( $this -> total_ttc ) . " " ;
2012-09-12 17:48:45 +02:00
$sql .= " , total_localtax1= " . price2num ( $this -> total_localtax1 ) . " " ;
$sql .= " , total_localtax2= " . price2num ( $this -> total_localtax2 ) . " " ;
2012-03-18 19:23:01 +01:00
}
2013-04-23 14:43:32 +02:00
$sql .= " , fk_product_fournisseur_price= " . ( ! empty ( $this -> fk_fournprice ) ? " ' " . $this -> fk_fournprice . " ' " : " null " );
$sql .= " , buy_price_ht= " . price2num ( $this -> pa_ht );
2012-03-18 19:23:01 +01:00
if ( strlen ( $this -> special_code )) $sql .= " , special_code= " . $this -> special_code ;
$sql .= " , fk_parent_line= " . ( $this -> fk_parent_line > 0 ? $this -> fk_parent_line : " null " );
if ( ! empty ( $this -> rang )) $sql .= " , rang= " . $this -> rang ;
2013-04-15 15:31:12 +02:00
$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 " );
2012-03-18 19:23:01 +01:00
$sql .= " WHERE rowid = " . $this -> rowid ;
dol_syslog ( get_class ( $this ) . " ::update sql= " . $sql , LOG_DEBUG );
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
2013-06-10 16:05:41 +02:00
if ( empty ( $conf -> global -> MAIN_EXTRAFIELDS_DISABLED )) // For avoid conflicts if trigger used
{
$this -> id = $this -> rowid ;
$result = $this -> insertExtraFields ();
if ( $result < 0 )
{
$error ++ ;
}
}
2013-06-16 21:31:21 +02:00
2012-03-18 19:23:01 +01:00
if ( ! $notrigger )
{
// Appel des triggers
2012-08-23 02:04:35 +02:00
include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php' ;
2012-03-18 19:23:01 +01:00
$interface = new Interfaces ( $this -> db );
$result = $interface -> run_triggers ( 'LINEPROPAL_UPDATE' , $this , $user , $langs , $conf );
if ( $result < 0 ) {
$error ++ ; $this -> errors = $interface -> errors ;
}
// Fin appel triggers
}
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( get_class ( $this ) . " ::update Error " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 2 ;
}
}
/**
* Update DB line fields total_xxx
* Used by migration
*
* @ return int < 0 if ko , > 0 if ok
*/
function update_total ()
{
$this -> db -> begin ();
// Mise a jour ligne en base
$sql = " UPDATE " . MAIN_DB_PREFIX . " propaldet SET " ;
$sql .= " total_ht= " . price2num ( $this -> total_ht , 'MT' ) . " " ;
$sql .= " ,total_tva= " . price2num ( $this -> total_tva , 'MT' ) . " " ;
$sql .= " ,total_ttc= " . price2num ( $this -> total_ttc , 'MT' ) . " " ;
$sql .= " WHERE rowid = " . $this -> rowid ;
dol_syslog ( " PropaleLigne::update_total sql= $sql " );
$resql = $this -> db -> query ( $sql );
if ( $resql )
{
$this -> db -> commit ();
return 1 ;
}
else
{
$this -> error = $this -> db -> error ();
dol_syslog ( " PropaleLigne::update_total Error " . $this -> error , LOG_ERR );
$this -> db -> rollback ();
return - 2 ;
}
}
2008-08-28 01:00:37 +02:00
2003-09-11 18:00:49 +02:00
}
2005-08-11 22:01:25 +02:00
2003-09-11 18:00:49 +02:00
?>
