26require
'../main.inc.php';
27require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
28require_once DOL_DOCUMENT_ROOT.
'/contact/class/contact.class.php';
31$langs->loadLangs(array(
'companies',
'orders',
'bills'));
37if ($user->socid > 0) {
38 $socid = $user->socid;
41$backtopage =
GETPOST(
'backtopage',
'alpha');
42$cancel =
GETPOST(
'cancel',
'alpha');
43$action =
GETPOST(
'action',
'aZ09');
46if ($user->socid > 0) {
49$result =
restrictedArea($user,
'societe', $id,
'&societe',
'',
'fk_soc',
'rowid', 0);
57 if (!empty($backtopage)) {
58 header(
"Location: ".$backtopage);
65if ($action ==
'setremise') {
69 $discount_type =
GETPOST(
'discount_type',
'int');
71 if (!empty($discount_type)) {
78 if (!empty($backtopage)) {
79 header(
"Location: ".$backtopage);
82 header(
"Location: remise.php?id=".
GETPOST(
"id",
'int'));
108 $object->fetch($socid);
112 $isCustomer = ($object->client == 1 || $object->client == 3);
113 $isSupplier = $object->fournisseur == 1;
115 print
'<form method="POST" action="remise.php?id='.$object->id.
'">';
116 print
'<input type="hidden" name="token" value="'.newToken().
'">';
117 print
'<input type="hidden" name="action" value="setremise">';
118 print
'<input type="hidden" name="backtopage" value="'.$backtopage.
'">';
120 print
dol_get_fiche_head($head,
'relativediscount', $langs->trans(
"ThirdParty"), -1,
'company');
122 dol_banner_tab($object,
'socid',
'', ($user->socid ? 0 : 1),
'rowid',
'nom');
124 print
'<div class="fichecenter">';
126 print
'<div class="underbanner clearboth"></div>';
128 if (!$isCustomer && !$isSupplier) {
129 print
'<p class="opacitymedium">'.$langs->trans(
'ThirdpartyIsNeitherCustomerNorClientSoCannotHaveDiscounts').
'</p>';
141 print
'<table class="border centpercent">';
145 print
'<tr><td class="titlefield">';
146 print $langs->trans(
"CustomerRelativeDiscount").
'</td><td>'.
price2num($object->remise_percent).
"%</td></tr>";
151 print
'<tr><td class="titlefield">';
152 print $langs->trans(
"SupplierRelativeDiscount").
'</td><td>'.
price2num($object->remise_supplier_percent).
"%</td></tr>";
160 print
'<div class="underbanner clearboth"></div>';
172 print
'<table class="border centpercent">';
174 if ($isCustomer || $isSupplier) {
176 print
'<tr><td class="titlefield fieldrequired">'.$langs->trans(
'DiscountType').
'</td><td>';
178 print
'<input type="radio" name="discount_type" id="discount_type_0" '.(GETPOSTISSET(
'discount_type') ? (
GETPOST(
'discount_type',
'int') == 0 ?
' checked' :
'') :
' checked').
' value="0"> <label for="discount_type_0">'.$langs->trans(
'Customer').
'</label>';
181 print
' <input type="radio" name="discount_type" id="discount_type_1"'.(GETPOSTISSET(
'discount_type') ? (
GETPOST(
'discount_type',
'int') ?
' checked' :
'') : ($isCustomer ?
'' :
' checked')).
' value="1"> <label for="discount_type_1">'.$langs->trans(
'Supplier').
'</label>';
187 print
'<tr><td class="titlefield fieldrequired">';
188 print $langs->trans(
"NewValue").
'</td><td><input type="text" size="5" name="remise" value="'.
dol_escape_htmltag(
GETPOST(
"remise")).
'">%</td></tr>';
191 print
'<tr><td class="fieldrequired">';
192 print $langs->trans(
"NoteReason").
'</td><td><input type="text" size="60" name="note" value="'.
dol_escape_htmltag(
GETPOST(
"note",
"alphanohtml")).
'"></td></tr>';
200 print $form->buttonsSaveCancel(
"Modify");
208 print
'<div class="fichecenter">';
209 print
'<div class="fichehalfleft">';
216 $sql =
"SELECT rc.rowid, rc.remise_client as remise_percent, rc.note, rc.datec as dc,";
217 $sql .=
" u.login, u.rowid as user_id";
218 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe_remise as rc, ".MAIN_DB_PREFIX.
"user as u";
219 $sql .=
" WHERE rc.fk_soc = ".((int) $object->id);
220 $sql .=
" AND rc.entity IN (".getEntity(
'discount').
")";
221 $sql .=
" AND u.rowid = rc.fk_user_author";
222 $sql .=
" ORDER BY rc.datec DESC";
224 $resql = $db->query($sql);
226 print
'<table class="noborder centpercent">';
227 print
'<tr class="liste_titre">';
228 print
'<td width="160">'.$langs->trans(
"Date").
'</td>';
229 print
'<td width="160" align="center">'.$langs->trans(
"CustomerRelativeDiscountShort").
'</td>';
230 print
'<td class="left">'.$langs->trans(
"NoteReason").
'</td>';
231 print
'<td class="center">'.$langs->trans(
"User").
'</td>';
233 $num = $db->num_rows($resql);
237 $obj = $db->fetch_object($resql);
238 print
'<tr class="oddeven">';
239 print
'<td>'.dol_print_date($db->jdate($obj->dc),
"dayhour").
'</td>';
240 print
'<td class="center">'.price2num($obj->remise_percent).
'%</td>';
241 print
'<td class="left">'.$obj->note.
'</td>';
242 print
'<td align="center"><a href="'.DOL_URL_ROOT.
'/user/card.php?id='.$obj->user_id.
'">'.
img_object($langs->trans(
"ShowUser"),
'user').
' '.$obj->login.
'</a></td>';
247 print
'<tr><td colspan="8"><span class="opacitymedium">'.$langs->trans(
"None").
'</span></td></tr>';
259 print
'<div class="fichehalfright">';
266 $sql =
"SELECT rc.rowid, rc.remise_supplier as remise_percent, rc.note, rc.datec as dc,";
267 $sql .=
" u.login, u.rowid as user_id";
268 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe_remise_supplier as rc, ".MAIN_DB_PREFIX.
"user as u";
269 $sql .=
" WHERE rc.fk_soc = ".((int) $object->id);
270 $sql .=
" AND rc.entity IN (".getEntity(
'discount').
")";
271 $sql .=
" AND u.rowid = rc.fk_user_author";
272 $sql .=
" ORDER BY rc.datec DESC";
274 $resql = $db->query($sql);
276 print
'<table class="noborder centpercent">';
277 print
'<tr class="liste_titre">';
278 print
'<td width="160">'.$langs->trans(
"Date").
'</td>';
279 print
'<td width="160" align="center">'.$langs->trans(
"CustomerRelativeDiscountShort").
'</td>';
280 print
'<td class="left">'.$langs->trans(
"NoteReason").
'</td>';
281 print
'<td class="center">'.$langs->trans(
"User").
'</td>';
283 $num = $db->num_rows($resql);
287 $obj = $db->fetch_object($resql);
288 print
'<tr class="oddeven">';
289 print
'<td>'.dol_print_date($db->jdate($obj->dc),
"dayhour").
'</td>';
290 print
'<td class="center">'.price2num($obj->remise_percent).
'%</td>';
291 print
'<td class="left">'.$obj->note.
'</td>';
292 print
'<td align="center"><a href="'.DOL_URL_ROOT.
'/user/card.php?id='.$obj->user_id.
'">'.
img_object($langs->trans(
"ShowUser"),
'user').
' '.$obj->login.
'</a></td>';
297 print
'<tr><td colspan="8"><span class="opacitymedium">'.$langs->trans(
"None").
'</span></td></tr>';
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Class to manage third parties objects (customers, suppliers, prospects...)
societe_prepare_head(Societe $object)
Return array of tabs to used on pages for third parties cards.
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
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.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0)
Show a picto called object_picto (generic function)
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.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
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.