29require
'../../main.inc.php';
30require_once DOL_DOCUMENT_ROOT.
'/fourn/class/fournisseur.commande.class.php';
31require_once DOL_DOCUMENT_ROOT.
'/contact/class/contact.class.php';
32require_once DOL_DOCUMENT_ROOT.
'/core/lib/fourn.lib.php';
33require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formcompany.class.php';
34if (isModEnabled(
'project')) {
35 require_once DOL_DOCUMENT_ROOT.
'/projet/class/project.class.php';
39$langs->loadLangs(array(
"facture",
"orders",
"sendings",
"companies"));
43$action =
GETPOST(
'action',
'aZ09');
47 $socid = $user->socid;
49$hookmanager->initHooks(array(
'ordersuppliercardcontact',
'ordersuppliercontactcard',
'globalcard'));
50$result =
restrictedArea($user,
'fournisseur', $id,
'commande_fournisseur',
'commande');
54$usercancreate = ($user->hasRight(
"fournisseur",
"commande",
"creer") || $user->hasRight(
"supplier_order",
"creer"));
55$permissiontoadd = $usercancreate;
61$parameters = array(
'id'=>$id);
62$reshook = $hookmanager->executeHooks(
'doActions', $parameters, $object, $action);
72 if ($action ==
'addcontact' && ($user->hasRight(
"fournisseur",
"commande",
"creer") || $user->hasRight(
"supplier_order",
"creer"))) {
75 if ($result > 0 && $id > 0) {
78 $result =
$object->add_contact($contactid, $typeid,
GETPOST(
"source",
'aZ09'));
82 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
85 if (
$object->error ==
'DB_ERROR_RECORD_ALREADY_EXISTS') {
86 $langs->load(
"errors");
87 setEventMessages($langs->trans(
"ErrorThisContactIsAlreadyDefinedAsThisType"),
null,
'errors');
92 } elseif ($action ==
'swapstatut' && ($user->hasRight(
"fournisseur",
"commande",
"creer") || $user->hasRight(
"supplier_order",
"creer"))) {
99 } elseif ($action ==
'deletecontact' && ($user->hasRight(
"fournisseur",
"commande",
"creer") || $user->hasRight(
"supplier_order",
"creer"))) {
105 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
118$form =
new Form($db);
120$contactstatic =
new Contact($db);
121$userstatic =
new User($db);
130if ($id > 0 || !empty($ref)) {
131 $langs->trans(
"OrderCard");
133 if (
$object->fetch($id, $ref) > 0) {
136 $title =
$object->ref.
" - ".$langs->trans(
'ContactsAddresses');
137 $help_url =
'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
138 llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'mod-supplier-order page-card_contact');
141 print
dol_get_fiche_head($head,
'contact', $langs->trans(
"SupplierOrder"), -1,
'order');
145 $linkback =
'<a href="'.DOL_URL_ROOT.
'/fourn/commande/list.php'.(!empty($socid) ?
'?socid='.$socid :
'').
'">'.$langs->trans(
"BackToList").
'</a>';
147 $morehtmlref =
'<div class="refidno">';
149 $morehtmlref .= $form->editfieldkey(
"RefSupplier",
'ref_supplier',
$object->ref_supplier, $object, 0,
'string',
'', 0, 1);
150 $morehtmlref .= $form->editfieldval(
"RefSupplier",
'ref_supplier',
$object->ref_supplier, $object, 0,
'string',
'',
null,
null,
'', 1);
152 $morehtmlref .=
'<br>'.$object->thirdparty->getNomUrl(1);
154 if (isModEnabled(
'project')) {
155 $langs->load(
"projects");
156 $morehtmlref .=
'<br>';
158 $morehtmlref .=
img_picto($langs->trans(
"Project"),
'project',
'class="pictofixedwidth"');
159 if ($action !=
'classify' && $caneditproject) {
160 $morehtmlref .=
'<a class="editfielda" href="'.$_SERVER[
'PHP_SELF'].
'?action=classify&token='.
newToken().
'&id='.
$object->id.
'">'.
img_edit($langs->transnoentitiesnoconv(
'SetProject')).
'</a> ';
162 $morehtmlref .= $form->form_project($_SERVER[
'PHP_SELF'].
'?id='.
$object->id, (!
getDolGlobalString(
'PROJECT_CAN_ALWAYS_LINK_TO_ALL_SUPPLIERS') ?
$object->socid : -1),
$object->fk_project, ($action ==
'classify' ?
'projectid' :
'none'), 0, 0, 0, 1,
'',
'maxwidth300');
164 if (!empty(
$object->fk_project)) {
166 $proj->fetch(
$object->fk_project);
167 $morehtmlref .= $proj->getNomUrl(1);
169 $morehtmlref .=
'<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).
'</span>';
174 $morehtmlref .=
'</div>';
177 dol_banner_tab($object,
'ref', $linkback, 1,
'ref',
'ref', $morehtmlref,
'', 0,
'',
'', 1);
182 include DOL_DOCUMENT_ROOT.
'/core/tpl/contacts.tpl.php';
185 print
"ErrorRecordNotFound";
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
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 predefined suppliers products.
Class to manage projects.
Class to manage Dolibarr users.
ordersupplier_prepare_head(CommandeFournisseur $object)
Prepare array with list of tabs.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
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.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
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.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
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.