28require
'../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
30require_once DOL_DOCUMENT_ROOT.
'/contact/class/contact.class.php';
42$langs->loadLangs(array(
'orders',
'companies'));
44$action =
GETPOST(
'action',
'alpha');
45$cancel =
GETPOST(
'cancel',
'alpha');
50if ($user->socid > 0) {
51 $_socid = $user->socid;
56if ($user->socid > 0) {
60$hookmanager->initHooks(array(
'thirdpartyprice',
'globalcard'));
61$result =
restrictedArea($user,
'societe', $id,
'&societe',
'',
'fk_soc',
'rowid', 0);
68if ($action ==
'setpricelevel' && $user->hasRight(
'societe',
'creer')) {
71 $soc->setPriceLevel(
GETPOST(
"price_level"), $user);
73 header(
"Location: multiprix.php?id=".$id);
84$userstatic =
new User($db);
89 $objsoc->id = $_socid;
90 $objsoc->fetch($_socid);
96 if ($objsoc->client == 1) {
97 $tabchoice =
'customer';
99 if ($objsoc->client == 2) {
100 $tabchoice =
'prospect';
103 print
'<form method="POST" action="multiprix.php?id='.$objsoc->id.
'">';
104 print
'<input type="hidden" name="token" value="'.newToken().
'">';
105 print
'<input type="hidden" name="action" value="setpricelevel">';
107 print
dol_get_fiche_head($head, $tabchoice, $langs->trans(
"ThirdParty"), 0,
'company');
109 print
'<table class="border centpercent tableforfield">';
111 print
'<tr><td class="titlefieldcreate">';
112 print $langs->trans(
"PriceLevel").
'</td><td>'.$objsoc->price_level.
"</td></tr>";
115 print $langs->trans(
"NewValue").
'</td><td>';
116 print
'<select name="price_level" class="flat">';
117 for ($i = 1; $i <=
$conf->global->PRODUIT_MULTIPRICES_LIMIT; $i++) {
118 print
'<option value="'.$i.
'"';
119 if ($i == $objsoc->price_level) {
123 $keyforlabel =
'PRODUIT_MULTIPRICES_LABEL'.$i;
136 print $form->buttonsSaveCancel(
"Save",
'');
147 $sql =
"SELECT rc.rowid,rc.price_level, rc.datec as dc, u.rowid as uid, u.login";
148 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe_prices as rc, ".MAIN_DB_PREFIX.
"user as u";
149 $sql .=
" WHERE rc.fk_soc = ".((int) $objsoc->id);
150 $sql .=
" AND u.rowid = rc.fk_user_author";
151 $sql .=
" ORDER BY rc.datec DESC";
153 $resql = $db->query($sql);
155 print
'<table class="noborder centpercent">';
156 print
'<tr class="liste_titre">';
157 print
'<td>'.$langs->trans(
"Date").
'</td>';
158 print
'<td>'.$langs->trans(
"PriceLevel").
'</td>';
159 print
'<td class="right">'.$langs->trans(
"User").
'</td>';
162 $num = $db->num_rows($resql);
165 $obj = $db->fetch_object($resql);
167 print
'<tr class="oddeven">';
168 print
'<td>'.dol_print_date($db->jdate($obj->dc),
"dayhour").
'</td>';
169 print
'<td>'.$obj->price_level.
' </td>';
170 $userstatic->id = $obj->uid;
171 $userstatic->lastname = $obj->login;
172 print
'<td class="right">'.$userstatic->getNomUrl(1).
'</td>';
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Class to manage third parties objects (customers, suppliers, prospects...)
Class to manage Dolibarr users.
societe_prepare_head(Societe $object)
Return array of tabs to used on pages for third parties cards.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.