contact.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005      Patrick Rouillon     <patrick@rouillon.net>
 * Copyright (C) 2005-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2012 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2023      Christian Foellmann  <christian@foellmann.de>
 * Copyright (C) 2024-2025  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2025   MDW           <mdeweerd@users.noreply.github.com>
 *
 * 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
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/expedition/class/expedition.class.php';
require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/sendings.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
if (isModEnabled('project')) {
  require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
  require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
}
 
// Load translation files required by the page
$langs->loadLangs(array('orders', 'sendings', 'companies'));
 
$id = GETPOSTINT('id');
$ref = GETPOST('ref', 'alpha');
$action = GETPOST('action', 'aZ09');
 
$typeobject = null;
$object = new Expedition($db);
if ($id > 0 || !empty($ref)) {
  $object->fetch($id, $ref);
  $object->fetch_thirdparty();
  $objectsrc = clone $object;
 
  if (!empty($object->origin)) {
    $typeobject = $object->origin;
    $origin = $object->origin;
    $object->fetch_origin();
  }
 
  // Linked documents
  if (!getDolGlobalInt('SHIPPING_USE_ITS_OWN_CONTACTS') && $typeobject == 'commande' && $object->origin_object->id && isModEnabled('order')) {
    $objectsrc = new Commande($db);
    $objectsrc->fetch($object->origin_object->id);
  }
  if (!getDolGlobalInt('SHIPPING_USE_ITS_OWN_CONTACTS') && $typeobject == 'propal' && $object->origin_object->id && isModEnabled("propal")) {
    $objectsrc = new Propal($db);
    $objectsrc->fetch($object->origin_object->id);
  }
}
 
// Security check
if ($user->socid) {
  $socid = $user->socid;
}
$hookmanager->initHooks(array('shipmentcontactcard', 'globalcard'));
$result = restrictedArea($user, 'expedition', $object->id, '');
 
/*
 * Actions
 */
 
$parameters = array('id' => $id);
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
if ($reshook < 0) {
  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}
 
if (empty($reshook)) {
  if ($action == 'addcontact' && $user->hasRight('expedition', 'creer')) {
    if ($result > 0 && $id > 0) {
      $contactid = (GETPOSTINT('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
      $typeid    = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
      $result    = $objectsrc->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
    }
 
    if ($result >= 0) {
      header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
      exit;
    } else {
      if ($objectsrc->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
        $langs->load("errors");
        $mesg = $langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType");
      } else {
        $mesg  = $objectsrc->error;
        $mesgs = $objectsrc->errors;
      }
      setEventMessages($mesg, $mesgs, 'errors');
    }
  } elseif ($action == 'swapstatut' && $user->hasRight('expedition', 'creer')) {
    // bascule du statut d'un contact
    $result = $objectsrc->swapContactStatus(GETPOSTINT('ligne'));
  } elseif ($action == 'deletecontact' && $user->hasRight('expedition', 'creer')) {
    // Efface un contact
    $result = $objectsrc->delete_contact(GETPOSTINT("lineid"));
 
    if ($result >= 0) {
      header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
      exit;
    } else {
      dol_print_error($db);
    }
  }
}
 
/*
 * View
 */
 
 
$help_url = 'EN:Module_Shipments|FR:Module_Expéditions|ES:M&oacute;dulo_Expediciones|DE:Modul_Lieferungen';
 
llxHeader('', $langs->trans('Shipment'), $help_url, '', 0, 0, '', '', '', 'mod-expedition page-card_contact');
 
$form = new Form($db);
$formcompany = new FormCompany($db);
$formother = new FormOther($db);
$contactstatic = new Contact($db);
$userstatic = new User($db);
 
 
/* *************************************************************************** */
/*                                                                             */
/* Card view and edit mode                                                       */
/*                                                                             */
/* *************************************************************************** */
 
if ($id > 0 || !empty($ref)) {
  $head = shipping_prepare_head($object);
  print dol_get_fiche_head($head, 'contact', $langs->trans("Shipment"), -1, $object->picto);
 
  // Shipment card
  $linkback = '<a href="'.DOL_URL_ROOT.'/expedition/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
 
  $morehtmlref = '<div class="refidno">';
  // Ref customer shipment
  $morehtmlref .= $form->editfieldkey("RefCustomer", '', $object->ref_customer, $object, $user->hasRight('expedition', 'creer'), 'string', '', 0, 1);
  $morehtmlref .= $form->editfieldval("RefCustomer", '', $object->ref_customer, $object, $user->hasRight('expedition', 'creer'), 'string', '', null, null, '', 1);
  // Thirdparty
  $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
  // Project
  if (isModEnabled('project')) {
    $langs->load("projects");
    $morehtmlref .= '<br>';
    if (0) {  // @phpstan-ignore-line  Do not change on shipment
      $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
      if ($action != 'classify') {
        $morehtmlref .= '<a class="editfielda" href="'.dolBuildUrl($_SERVER['PHP_SELF'], ['action' => 'classify', 'id' => $object->id], true).'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
      }
      $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $objectsrc->socid, (string) $objectsrc->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
    } else {
      if (!empty($objectsrc) && !empty($objectsrc->fk_project)) {
        $proj = new Project($db);
        $proj->fetch($objectsrc->fk_project);
        $morehtmlref .= $proj->getNomUrl(1);
        if ($proj->title) {
          $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
        }
      }
    }
  }
  $morehtmlref .= '</div>';
 
 
  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
 
 
  print '<div class="fichecenter">';
  //print '<div class="fichehalfleft">';
  print '<div class="underbanner clearboth"></div>';
 
  print '<table class="border centpercent tableforfield">';
 
  // Linked documents
  if ($typeobject == 'commande' && $object->origin_object->id && isModEnabled('order')) {
    print '<tr><td class="titlefield">';
    $objectsrc = new Commande($db);
    $objectsrc->fetch($object->origin_object->id);
    print $langs->trans("RefOrder").'</td>';
    print '<td colspan="3">';
    print $objectsrc->getNomUrl(1, 'commande');
    print "</td>\n";
    print '</tr>';
  }
  if ($typeobject == 'propal' && $object->origin_object->id && isModEnabled("propal")) {
    print '<tr><td class="titlefield">';
    $objectsrc = new Propal($db);
    $objectsrc->fetch($object->origin_object->id);
    print $langs->trans("RefProposal").'</td>';
    print '<td colspan="3">';
    print $objectsrc->getNomUrl(1, 'expedition');
    print "</td>\n";
    print '</tr>';
  }
 
  print "</table>";
 
 
  //print '</div>';
  //print '<div class="fichehalfright">';
  //print '<div class="underbanner clearboth"></div>';
 
 
  //print '</div>';
  print '</div>';
 
  print '<div class="clearboth"></div>';
 
 
  print dol_get_fiche_end();
 
  // Lines of contacts
  echo '<br>';
 
  // Contacts lines (modules that overwrite templates must declare this into descriptor)
  $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
  $preselectedtypeofcontact = dol_getIdFromCode($db, 'SHIPPING', 'c_type_contact', 'code', 'rowid');
  foreach ($dirtpls as $reldir) {
    $file = dol_buildpath($reldir.'/contacts.tpl.php');
    if (file_exists($file)) {
      $res = @include $file;
      if ($res) {
        break;
      }
    }
  }
}
 
// End of page
llxFooter();
$db->close();