32require
'../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.
'/contact/class/contact.class.php';
34require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
35require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formother.class.php';
36require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formcompany.class.php';
39$langs->loadLangs(array(
'companies',
'orders'));
44$action =
GETPOST(
'action',
'aZ09');
45$massaction =
GETPOST(
'massaction',
'alpha');
48$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
49$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
57if (empty($page) || $page == -1 || !empty($search_btn) || !empty($search_remove_btn) || (empty($toselect) && $massaction ===
'0')) {
60$offset = $limit * $page;
66 $socid = $user->socid;
75$hookmanager->initHooks(array(
'contactthirdparty',
'globalcard'));
82if ($action ==
'addcontact' && $user->hasRight(
'societe',
'creer')) {
85 if ($result > 0 && $id > 0) {
88 $result =
$object->add_contact($contactid, $typeid,
GETPOST(
"source",
'aZ09'));
92 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
95 if (
$object->error ==
'DB_ERROR_RECORD_ALREADY_EXISTS') {
96 $langs->load(
"errors");
97 $mesg =
'<div class="error">'.$langs->trans(
"ErrorThisContactIsAlreadyDefinedAsThisType").
'</div>';
99 $mesg =
'<div class="error">'.$object->error.
'</div>';
102} elseif ($action ==
'swapstatut' && $user->hasRight(
'societe',
'creer')) {
109} elseif ($action ==
'deletecontact' && $user->hasRight(
'societe',
'creer')) {
115 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
127$help_url =
'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
128llxHeader(
'', $langs->trans(
"ThirdParty"), $help_url);
131$form =
new Form($db);
134$contactstatic =
new Contact($db);
135$userstatic =
new User($db);
140if ($id > 0 || !empty($ref)) {
141 if (
$object->fetch($id, $ref) > 0) {
143 print
dol_get_fiche_head($head,
'contactext', $langs->trans(
"ThirdParty"), -1,
'company');
145 print
'<form method="POST" action="'.$_SERVER[
'PHP_SELF'].
'">';
146 print
'<input type="hidden" name="token" value="'.newToken().
'">';
148 $linkback =
'<a href="'.DOL_URL_ROOT.
'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
150 dol_banner_tab($object,
'socid', $linkback, ($user->socid ? 0 : 1),
'rowid',
'nom');
152 print
'<div class="fichecenter">';
154 print
'<div class="underbanner clearboth"></div>';
155 print
'<table class="border centpercent">';
168 print
'<tr><td>'.$langs->trans(
'Prefix').
'</td><td colspan="3">'.
$object->prefix_comm.
'</td></tr>';
172 print
'<tr><td class="titlefield">';
173 print $langs->trans(
'CustomerCode').
'</td><td colspan="3">';
175 $tmpcheck =
$object->check_codeclient();
176 if ($tmpcheck != 0 && $tmpcheck != -5) {
177 print
' <span class="error">('.$langs->trans(
"WrongCustomerCode").
')</span>';
183 print
'<tr><td class="titlefield">';
184 print $langs->trans(
'SupplierCode').
'</td><td colspan="3">';
185 print
$object->code_fournisseur;
186 $tmpcheck =
$object->check_codefournisseur();
187 if ($tmpcheck != 0 && $tmpcheck != -5) {
188 print
' <span class="error">('.$langs->trans(
"WrongSupplierCode").
')</span>';
200 $dirtpls = array_merge($conf->modules_parts[
'tpl'], array(
'/core/tpl'));
201 foreach ($dirtpls as $reldir) {
209 if (isModEnabled(
'member') && $user->hasRight(
'adherent',
'lire')) {
210 require_once DOL_DOCUMENT_ROOT.
'/adherents/class/adherent.class.php';
211 require_once DOL_DOCUMENT_ROOT.
'/adherents/class/adherent_type.class.php';
216 $langs->load(
"members");
217 $sql =
"SELECT d.rowid, d.login, d.lastname, d.firstname, d.societe as company, d.fk_soc,";
218 $sql .=
" d.datefin,";
219 $sql .=
" d.email, d.fk_adherent_type as type_id, d.morphy, d.statut,";
220 $sql .=
" t.libelle as type_label, t.subscription";
221 $sql .=
" FROM ".MAIN_DB_PREFIX.
"adherent as d";
222 $sql .=
", ".MAIN_DB_PREFIX.
"adherent_type as t";
223 $sql .=
" WHERE d.fk_soc = ".((int) $id);
224 $sql .=
" AND d.fk_adherent_type = t.rowid";
227 $resql = $db->query($sql);
229 $num = $db->num_rows($resql);
234 $titre = $langs->trans(
"MembersListOfTiers");
237 print_barre_liste($titre, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num, 0,
'');
239 print
"<table class=\"noborder\" width=\"100%\">";
240 print
'<tr class="liste_titre">';
242 print_liste_field_titre(
"NameSlashCompany", $_SERVER[
"PHP_SELF"],
"d.lastname", $param,
"",
"", $sortfield, $sortorder);
247 print_liste_field_titre(
"Status", $_SERVER[
"PHP_SELF"],
"d.statut,d.datefin", $param,
"",
"", $sortfield, $sortorder);
248 print_liste_field_titre(
"EndSubscription", $_SERVER[
"PHP_SELF"],
"d.datefin", $param,
"",
'', $sortfield, $sortorder,
'center ');
252 while ($i < $num && $i < $conf->liste_limit) {
253 $objp = $db->fetch_object($resql);
255 $datefin = $db->jdate($objp->datefin);
256 $memberstatic->id = $objp->rowid;
257 $memberstatic->ref = $objp->rowid;
258 $memberstatic->lastname = $objp->lastname;
259 $memberstatic->firstname = $objp->firstname;
260 $memberstatic->statut = $objp->statut;
261 $memberstatic->datefin = $db->jdate($objp->datefin);
263 $companyname = $objp->company;
265 print
'<tr class="oddeven">';
269 print $memberstatic->getNomUrl(1);
273 print
"<td><a href=\"card.php?rowid=$objp->rowid\">";
274 print((!empty($objp->lastname) || !empty($objp->firstname)) ?
dol_trunc($memberstatic->getFullName($langs)) :
'');
275 print(((!empty($objp->lastname) || !empty($objp->firstname)) && !empty($companyname)) ?
' / ' :
'');
276 print(!empty($companyname) ?
dol_trunc($companyname, 32) :
'');
280 print
"<td>".$objp->login.
"</td>\n";
283 $membertypestatic->id = $objp->type_id;
284 $membertypestatic->libelle = $objp->type_label;
285 $membertypestatic->label = $objp->type_label;
287 print
'<td class="nowrap">';
288 print $membertypestatic->getNomUrl(1, 32);
292 print
"<td>".$memberstatic->getmorphylib($objp->morphy).
"</td>\n";
295 print
"<td>".dol_print_email($objp->email, 0, 0, 1).
"</td>\n";
298 print
'<td class="nowrap">';
299 print $memberstatic->LibStatut($objp->statut, $objp->subscription, $datefin, 2);
304 print
'<td class="center nowrap">';
306 if ($memberstatic->hasDelay()) {
307 print
" ".img_warning($langs->trans(
"SubscriptionLate"));
311 print
'<td class="left nowrap">';
312 if (!empty($objp->subscription)) {
313 print $langs->trans(
"SubscriptionNotReceived");
314 if ($objp->statut > 0) {
315 print
" ".img_warning();
332 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()
Empty header.
Class to manage members of a foundation.
Class to manage members type.
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_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
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.