PageRenderTime 40ms CodeModel.GetById 10ms RepoModel.GetById 1ms app.codeStats 0ms

/htdocs/core/lib/company.lib.php

https://github.com/asterix14/dolibarr
PHP | 1053 lines | 730 code | 150 blank | 173 comment | 151 complexity | 5ce443a3a78b05e0bb85f00a5333c3bd MD5 | raw file
Possible License(s): LGPL-2.0 
    

  1. <?php
    2. 

  2. /* Copyright (C) 2006-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
    3. 

  3.  * Copyright (C) 2006      Rodolphe Quiedeville <rodolphe@quiedeville.org>
    4. 

  4.  * Copyright (C) 2007      Patrick Raguin       <patrick.raguin@gmail.com>
    5. 

  5.  * Copyright (C) 2010      Regis Houssin        <regis@dolibarr.fr>
    6. 

  6.  *
    7. 

  7.  * This program is free software; you can redistribute it and/or modify
    8. 

  8.  * it under the terms of the GNU General Public License as published by
    9. 

  9.  * the Free Software Foundation; either version 2 of the License, or
    10. 

  10.  * (at your option) any later version.
    11. 

  11.  *
    12. 

  12.  * This program is distributed in the hope that it will be useful,
    13. 

  13.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
    14. 

  14.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    15. 

  15.  * GNU General Public License for more details.
    16. 

  16.  *
    17. 

  17.  * You should have received a copy of the GNU General Public License
    18. 

  18.  * along with this program. If not, see <http://www.gnu.org/licenses/>.
    19. 

  19.  * or see http://www.gnu.org/
    20. 

  20.  */
    21. 

  21. 

  22. /**
    23. 

  23.  *	\file       htdocs/core/lib/company.lib.php
    24. 

  24.  *	\brief      Ensemble de fonctions de base pour le module societe
    25. 

  25.  *	\ingroup    societe
    26. 

  26.  */
    27. 

  27. 

  28. /**
    29. 

  29.  * Return array of tabs to used on pages for third parties cards.
    30. 

  30.  *
    31. 

  31.  * @param 	Object	$object		Object company shown
    32. 

  32.  * @return 	array				Array of tabs
    33. 

  33.  */
    34. 

  34. function societe_prepare_head($object)
    35. 

  35. {
    36. 

  36.     global $langs, $conf, $user;
    37. 

  37.     $h = 0;
    38. 

  38.     $head = array();
    39. 

  39. 

  40.     $head[$h][0] = DOL_URL_ROOT.'/societe/soc.php?socid='.$object->id;
    41. 

  41.     $head[$h][1] = $langs->trans("Card");
    42. 

  42.     $head[$h][2] = 'card';
    43. 

  43.     $h++;
    44. 

  44. 

  45.     // TODO Remove tests on object->object. Functions must be called with a company object directly
    46. 

  46.     if (($object->client==2 || $object->client==3
    47. 

  47.     || (isset($object->object) && $object->object->client==2) || (isset($object->object) && $object->object->client==3)) && empty($conf->global->SOCIETE_DISABLE_PROSPECTS))
    48. 

  48.     {
    49. 

  49.         $head[$h][0] = DOL_URL_ROOT.'/comm/prospect/fiche.php?socid='.$object->id;
    50. 

  50.         $head[$h][1] = $langs->trans("Prospect");
    51. 

  51.         $head[$h][2] = 'prospect';
    52. 

  52.         $h++;
    53. 

  53.     }
    54. 

  54.     if ($object->client==1 || $object->client==3 || (is_object($object->object) && $object->object->client==1) || (is_object($object->object) && $object->object->client==3))
    55. 

  55.     {
    56. 

  56.         $head[$h][0] = DOL_URL_ROOT.'/comm/fiche.php?socid='.$object->id;
    57. 

  57.         $head[$h][1] = $langs->trans("Customer");
    58. 

  58.         $head[$h][2] = 'customer';
    59. 

  59.         $h++;
    60. 

  60.     }
    61. 

  61.     if (! empty($conf->fournisseur->enabled) && ($object->fournisseur || (isset($object->object) && $object->object->fournisseur)) && ! empty($user->rights->fournisseur->lire))
    62. 

  62.     {
    63. 

  63.         $head[$h][0] = DOL_URL_ROOT.'/fourn/fiche.php?socid='.$object->id;
    64. 

  64.         $head[$h][1] = $langs->trans("Supplier");
    65. 

  65.         $head[$h][2] = 'supplier';
    66. 

  66.         $h++;
    67. 

  67.     }
    68. 

  68.     if (! empty($conf->agenda->enabled))
    69. 

  69.     {
    70. 

  70.     	$head[$h][0] = DOL_URL_ROOT.'/societe/agenda.php?socid='.$object->id;
    71. 

  71.     	$head[$h][1] = $langs->trans("Agenda");
    72. 

  72.     	$head[$h][2] = 'agenda';
    73. 

  73.     	$h++;
    74. 

  74.     }
    75. 

  75.     //show categorie tab
    76. 

  76.     if (! empty($conf->categorie->enabled))
    77. 

  77.     {
    78. 

  78.         $type = 2;
    79. 

  79.         if ($object->fournisseur) $type = 1;
    80. 

  80.         $head[$h][0] = DOL_URL_ROOT.'/categories/categorie.php?socid='.$object->id."&type=".$type;
    81. 

  81.         $head[$h][1] = $langs->trans('Categories');
    82. 

  82.         $head[$h][2] = 'category';
    83. 

  83.         $h++;
    84. 

  84.     }
    85. 

  85. 

  86.     // Show more tabs from modules
    87. 

  87.     // Entries must be declared in modules descriptor with line
    88. 

  88.     // $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to add new tab
    89. 

  89.     // $this->tabs = array('entity:-tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to remove a tab
    90. 

  90.     complete_head_from_modules($conf,$langs,$object,$head,$h,'thirdparty');
    91. 

  91. 

  92.     // Notes
    93. 

  93.     if ($user->societe_id == 0)
    94. 

  94.     {
    95. 

  95.         $head[$h][0] = DOL_URL_ROOT.'/societe/socnote.php?socid='.$object->id;
    96. 

  96.         $head[$h][1] = $langs->trans("Note");
    97. 

  97.         $head[$h][2] = 'note';
    98. 

  98.         $h++;
    99. 

  99.     }
    100. 

  100.     // Attached files
    101. 

  101.     if ($user->societe_id == 0)
    102. 

  102.     {
    103. 

  103.         $head[$h][0] = DOL_URL_ROOT.'/societe/document.php?socid='.$object->id;
    104. 

  104.         $head[$h][1] = $langs->trans("Documents");
    105. 

  105.         $head[$h][2] = 'document';
    106. 

  106.         $h++;
    107. 

  107.     }
    108. 

  108.     // Notifications
    109. 

  109.     if (! empty($conf->notification->enabled) && $user->societe_id == 0)
    110. 

  110.     {
    111. 

  111.         $head[$h][0] = DOL_URL_ROOT.'/societe/notify/fiche.php?socid='.$object->id;
    112. 

  112.         $head[$h][1] = $langs->trans("Notifications");
    113. 

  113.         $head[$h][2] = 'notify';
    114. 

  114.         $h++;
    115. 

  115.     }
    116. 

  116. 

  117.     // Log
    118. 

  118.     if ($user->societe_id == 0)
    119. 

  119.     {
    120. 

  120.         $head[$h][0] = DOL_URL_ROOT.'/societe/info.php?socid='.$object->id;
    121. 

  121.         $head[$h][1] = $langs->trans("Info");
    122. 

  122.         $head[$h][2] = 'info';
    123. 

  123.         $h++;
    124. 

  124.     }
    125. 

  125. 

  126.     complete_head_from_modules($conf,$langs,$object,$head,$h,'thirdparty','remove');
    127. 

  127. 

  128.     return $head;
    129. 

  129. }
    130. 

  130. 

  131. 

  132. /**
    133. 

  133.  * Return array of tabs to used on page
    134. 

  134.  *
    135. 

  135.  * @param	Object	$object		Object for tabs
    136. 

  136.  * @return
    137. 

  137.  */
    138. 

  138. function societe_prepare_head2($object)
    139. 

  139. {
    140. 

  140.     global $langs, $conf, $user;
    141. 

  141.     $h = 0;
    142. 

  142.     $head = array();
    143. 

  143. 

  144.     $head[$h][0] = DOL_URL_ROOT.'/societe/soc.php?socid='.$object->id;
    145. 

  145.     $head[$h][1] = $langs->trans("Card");
    146. 

  146.     $head[$h][2] = 'company';
    147. 

  147.     $h++;
    148. 

  148. 

  149.     if (empty($conf->global->SOCIETE_DISABLE_BANKACCOUNT))
    150. 

  150.     {
    151. 

  151. 	    $head[$h][0] = DOL_URL_ROOT .'/societe/rib.php?socid='.$object->id;
    152. 

  152. 	    $head[$h][1] = $langs->trans("BankAccount")." $account->number";
    153. 

  153. 	    $head[$h][2] = 'rib';
    154. 

  154. 	    $h++;
    155. 

  155.     }
    156. 

  156. 

  157.     if (empty($conf->global->SOCIETE_DISABLE_PARENTCOMPANY))
    158. 

  158.     {
    159. 

  159. 	    $head[$h][0] = 'lien.php?socid='.$object->id;
    160. 

  160. 	    $head[$h][1] = $langs->trans("ParentCompany");
    161. 

  161. 	    $head[$h][2] = 'links';
    162. 

  162. 	    $h++;
    163. 

  163.     }
    164. 

  164. 

  165.     $head[$h][0] = 'commerciaux.php?socid='.$object->id;
    166. 

  166.     $head[$h][1] = $langs->trans("SalesRepresentative");
    167. 

  167.     $head[$h][2] = 'salesrepresentative';
    168. 

  168.     $h++;
    169. 

  169. 

  170.     return $head;
    171. 

  171. }
    172. 

  172. 

  173. 

  174. 

  175. /**
    176. 

  176.  *  Return array head with list of tabs to view object informations.
    177. 

  177.  *
    178. 

  178.  *  @param	Object	$object		Thirdparty
    179. 

  179.  *  @return	array   	        head array with tabs
    180. 

  180.  */
    181. 

  181. function societe_admin_prepare_head($object)
    182. 

  182. {
    183. 

  183.     global $langs, $conf, $user;
    184. 

  184. 

  185.     $h = 0;
    186. 

  186.     $head = array();
    187. 

  187. 

  188.     $head[$h][0] = DOL_URL_ROOT.'/societe/admin/societe.php';
    189. 

  189.     $head[$h][1] = $langs->trans("Miscellanous");
    190. 

  190.     $head[$h][2] = 'general';
    191. 

  191.     $h++;
    192. 

  192. 

  193.     // Show more tabs from modules
    194. 

  194.     // Entries must be declared in modules descriptor with line
    195. 

  195.     // $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to add new tab
    196. 

  196.     // $this->tabs = array('entity:-tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to remove a tab
    197. 

  197.     complete_head_from_modules($conf,$langs,$object,$head,$h,'company_admin');
    198. 

  198. 

  199.     $head[$h][0] = DOL_URL_ROOT.'/societe/admin/societe_extrafields.php';
    200. 

  200.     $head[$h][1] = $langs->trans("ExtraFields");
    201. 

  201.     $head[$h][2] = 'attributes';
    202. 

  202.     $h++;
    203. 

  203. 

  204.     complete_head_from_modules($conf,$langs,$object,$head,$h,'company_admin','remove');
    205. 

  205. 

  206.     return $head;
    207. 

  207. }
    208. 

  208. 

  209. 

  210. 

  211. /**
    212. 

  212.  *    Return country label, code or id from an id or a code
    213. 

  213.  *
    214. 

  214.  *    @param      int		$id            	Id or code of country
    215. 

  215.  *    @param      int		$withcode   	'0'=Return label,
    216. 

  216.  *    										'1'=Return code + label,
    217. 

  217.  *    										'2'=Return code from id,
    218. 

  218.  *    										'3'=Return id from code,
    219. 

  219.  * 	   										'all'=Return array('id'=>,'code'=>,'label'=>)
    220. 

  220.  *    @param      DoliDB	$dbtouse       	Database handler (using in global way may fail because of conflicts with some autoload features)
    221. 

  221.  *    @param      Translate	$outputlangs	Langs object for output translation
    222. 

  222.  *    @param      int		$entconv       	0=Return value without entities and not converted to output charset
    223. 

  223.  *    @return     mixed       				String with country code or translated country name or Array('id','code','label')
    224. 

  224.  */
    225. 

  225. function getCountry($id,$withcode='',$dbtouse=0,$outputlangs='',$entconv=1)
    226. 

  226. {
    227. 

  227.     global $db,$langs;
    228. 

  228. 

  229.     if (! is_object($dbtouse)) $dbtouse=$db;
    230. 

  230.     if (! is_object($outputlangs)) $outputlangs=$langs;
    231. 

  231. 

  232.     $sql = "SELECT rowid, code, libelle FROM ".MAIN_DB_PREFIX."c_pays";
    233. 

  233.     if (is_numeric($id)) $sql.= " WHERE rowid=".$id;
    234. 

  234.     else $sql.= " WHERE code='".$id."'";
    235. 

  235. 

  236.     dol_syslog("Company.lib::getCountry sql=".$sql);
    237. 

  237.     $resql=$dbtouse->query($sql);
    238. 

  238.     if ($resql)
    239. 

  239.     {
    240. 

  240.         $obj = $dbtouse->fetch_object($resql);
    241. 

  241.         if ($obj)
    242. 

  242.         {
    243. 

  243.             $label=((! empty($obj->libelle) && $obj->libelle!='-')?$obj->libelle:'');
    244. 

  244.             if (is_object($outputlangs))
    245. 

  245.             {
    246. 

  246.                 $outputlangs->load("dict");
    247. 

  247.                 if ($entconv) $label=($obj->code && ($outputlangs->trans("Country".$obj->code)!="Country".$obj->code))?$outputlangs->trans("Country".$obj->code):$label;
    248. 

  248.                 else $label=($obj->code && ($outputlangs->transnoentitiesnoconv("Country".$obj->code)!="Country".$obj->code))?$outputlangs->transnoentitiesnoconv("Country".$obj->code):$label;
    249. 

  249.             }
    250. 

  250.             if ($withcode == 1) return $label?"$obj->code - $label":"$obj->code";
    251. 

  251.             else if ($withcode == 2) return $obj->code;
    252. 

  252.             else if ($withcode == 3) return $obj->rowid;
    253. 

  253.             else if ($withcode === 'all') return array('id'=>$obj->rowid,'code'=>$obj->code,'label'=>$label);
    254. 

  254.             else return $label;
    255. 

  255.         }
    256. 

  256.         else
    257. 

  257.         {
    258. 

  258.             return "NotDefined";
    259. 

  259.         }
    260. 

  260.     }
    261. 

  261.     else dol_print_error($dbtouse,'');
    262. 

  262. }
    263. 

  263. 

  264. /**
    265. 

  265.  *    Return state translated from an id
    266. 

  266.  *
    267. 

  267.  *    @param	int		$id         id of state (province/departement)
    268. 

  268.  *    @param    int		$withcode   '0'=Return label,
    269. 

  269.  *    								'1'=Return string code + label,
    270. 

  270.  *    						  		'2'=Return code,
    271. 

  271.  *    						  		'all'=return array('id'=>,'code'=>,'label'=>)
    272. 

  272.  *    @param	DoliDB	$dbtouse	Database handler (using in global way may fail because of conflicts with some autoload features)
    273. 

  273.  *    @return   string      		String with state code or translated state name
    274. 

  274.  */
    275. 

  275. function getState($id,$withcode='',$dbtouse=0)
    276. 

  276. {
    277. 

  277.     global $db,$langs;
    278. 

  278. 

  279.     if (! is_object($dbtouse)) $dbtouse=$db;
    280. 

  280. 

  281.     $sql = "SELECT rowid, code_departement as code, nom as label FROM ".MAIN_DB_PREFIX."c_departements";
    282. 

  282.     $sql.= " WHERE rowid=".$id;
    283. 

  283. 

  284.     dol_syslog("Company.lib::getState sql=".$sql);
    285. 

  285.     $resql=$dbtouse->query($sql);
    286. 

  286.     if ($resql)
    287. 

  287.     {
    288. 

  288.         $obj = $dbtouse->fetch_object($resql);
    289. 

  289.         if ($obj)
    290. 

  290.         {
    291. 

  291.             $label=$obj->label;
    292. 

  292.             if ($withcode == '1') return $label=$obj->code?"$obj->code":"$obj->code - $label";
    293. 

  293.             else if ($withcode == '2') return $label=$obj->code;
    294. 

  294.             else if ($withcode == 'all') return array('id'=>$obj->rowid,'code'=>$obj->code,'label'=>$label);
    295. 

  295.             else return $label;
    296. 

  296.         }
    297. 

  297.         else
    298. 

  298.         {
    299. 

  299.             return $langs->trans("NotDefined");
    300. 

  300.         }
    301. 

  301.     }
    302. 

  302.     else dol_print_error($dbtouse,'');
    303. 

  303. }
    304. 

  304. 

  305. /**
    306. 

  306.  *    Retourne le nom traduit ou code+nom d'une devise
    307. 

  307.  *
    308. 

  308.  *    @param      string	$code_iso       Code iso de la devise
    309. 

  309.  *    @param      int		$withcode       '1'=affiche code + nom
    310. 

  310.  *    @return     string     			    Nom traduit de la devise
    311. 

  311.  */
    312. 

  312. function currency_name($code_iso,$withcode='')
    313. 

  313. {
    314. 

  314.     global $langs,$db;
    315. 

  315. 

  316.     // Si il existe une traduction, on peut renvoyer de suite le libelle
    317. 

  317.     if ($langs->trans("Currency".$code_iso)!="Currency".$code_iso)
    318. 

  318.     {
    319. 

  319.         return $langs->trans("Currency".$code_iso);
    320. 

  320.     }
    321. 

  321. 

  322.     // Si pas de traduction, on consulte le libelle par defaut en table
    323. 

  323.     $sql = "SELECT label FROM ".MAIN_DB_PREFIX."c_currencies";
    324. 

  324.     $sql.= " WHERE code_iso='".$code_iso."'";
    325. 

  325. 

  326.     $resql=$db->query($sql);
    327. 

  327.     if ($resql)
    328. 

  328.     {
    329. 

  329.         $num = $db->num_rows($resql);
    330. 

  330. 

  331.         if ($num)
    332. 

  332.         {
    333. 

  333.             $obj = $db->fetch_object($resql);
    334. 

  334.             $label=($obj->label!='-'?$obj->label:'');
    335. 

  335.             if ($withcode) return ($label==$code_iso)?"$code_iso":"$code_iso - $label";
    336. 

  336.             else return $label;
    337. 

  337.         }
    338. 

  338.         else
    339. 

  339.         {
    340. 

  340.             return $code_iso;
    341. 

  341.         }
    342. 

  342. 

  343.     }
    344. 

  344. }
    345. 

  345. 

  346. /**
    347. 

  347.  *    Retourne le nom traduit de la forme juridique
    348. 

  348.  *
    349. 

  349.  *    @param      string	$code       Code de la forme juridique
    350. 

  350.  *    @return     string     			Nom traduit du pays
    351. 

  351.  */
    352. 

  352. function getFormeJuridiqueLabel($code)
    353. 

  353. {
    354. 

  354.     global $db,$langs;
    355. 

  355. 

  356.     if (! $code) return '';
    357. 

  357. 

  358.     $sql = "SELECT libelle FROM ".MAIN_DB_PREFIX."c_forme_juridique";
    359. 

  359.     $sql.= " WHERE code='$code'";
    360. 

  360. 

  361.     dol_syslog("Company.lib::getFormeJuridiqueLabel sql=".$sql);
    362. 

  362.     $resql=$db->query($sql);
    363. 

  363.     if ($resql)
    364. 

  364.     {
    365. 

  365.         $num = $db->num_rows($resql);
    366. 

  366. 

  367.         if ($num)
    368. 

  368.         {
    369. 

  369.             $obj = $db->fetch_object($resql);
    370. 

  370.             $label=($obj->libelle!='-' ? $obj->libelle : '');
    371. 

  371.             return $label;
    372. 

  372.         }
    373. 

  373.         else
    374. 

  374.         {
    375. 

  375.             return $langs->trans("NotDefined");
    376. 

  376.         }
    377. 

  377. 

  378.     }
    379. 

  379. }
    380. 

  380. 

  381. 

  382. 

  383. /**
    384. 

  384.  * 		Show html area for list of projects
    385. 

  385.  *
    386. 

  386.  *		@param		conf		Object conf
    387. 

  387.  * 		@param		langs		Object langs
    388. 

  388.  * 		@param		db			Database handler
    389. 

  389.  * 		@param		object		Third party object
    390. 

  390.  *      @param      backtopage  Url to go once contact is created
    391. 

  391.  */
    392. 

  392. function show_projects($conf,$langs,$db,$object,$backtopage='')
    393. 

  393. {
    394. 

  394.     global $user;
    395. 

  395. 

  396.     $i = -1 ;
    397. 

  397. 

  398.     if ($conf->projet->enabled && $user->rights->projet->lire)
    399. 

  399.     {
    400. 

  400.         $langs->load("projects");
    401. 

  401. 

  402.         $buttoncreate='';
    403. 

  403.         if ($conf->projet->enabled && $user->rights->projet->creer)
    404. 

  404.         {
    405. 

  405.             //$buttoncreate='<a class="butAction" href="'.DOL_URL_ROOT.'/projet/fiche.php?socid='.$object->id.'&action=create&amp;backtopage='.urlencode($backtopage).'">'.$langs->trans("AddProject").'</a>';
    406. 

  406. 			$buttoncreate='<a class="addnewrecord" href="'.DOL_URL_ROOT.'/projet/fiche.php?socid='.$object->id.'&amp;action=create&amp;backtopage='.urlencode($backtopage).'">'.$langs->trans("AddProject").' '.img_picto($langs->trans("AddProject"),'filenew').'</a>'."\n";
    407. 

  407.         }
    408. 

  408. 

  409.         print "\n";
    410. 

  410.         print_fiche_titre($langs->trans("ProjectsDedicatedToThisThirdParty"),$buttoncreate,'');
    411. 

  411.         print "\n".'<table class="noborder" width=100%>';
    412. 

  412. 

  413.         $sql  = "SELECT p.rowid,p.title,p.ref,p.public, p.dateo as do, p.datee as de";
    414. 

  414.         $sql .= " FROM ".MAIN_DB_PREFIX."projet as p";
    415. 

  415.         $sql .= " WHERE p.fk_soc = ".$object->id;
    416. 

  416.         $sql .= " ORDER BY p.dateo DESC";
    417. 

  417. 

  418.         $result=$db->query($sql);
    419. 

  419.         if ($result)
    420. 

  420.         {
    421. 

  421.             $num = $db->num_rows($result);
    422. 

  422. 

  423.             print '<tr class="liste_titre">';
    424. 

  424.             print '<td>'.$langs->trans("Ref").'</td><td>'.$langs->trans("Name").'</td><td align="center">'.$langs->trans("DateStart").'</td><td align="center">'.$langs->trans("DateEnd").'</td>';
    425. 

  425.             print '</tr>';
    426. 

  426. 

  427.             if ($num > 0)
    428. 

  428.             {
    429. 

  429.                 require_once(DOL_DOCUMENT_ROOT."/projet/class/project.class.php");
    430. 

  430. 

  431.                 $projectstatic = new Project($db);
    432. 

  432. 

  433.                 $i=0;
    434. 

  434.                 $var=true;
    435. 

  435.                 while ($i < $num)
    436. 

  436.                 {
    437. 

  437.                     $obj = $db->fetch_object($result);
    438. 

  438.                     $projectstatic->fetch($obj->rowid);
    439. 

  439. 

  440.                     // To verify role of users
    441. 

  441.                     $userAccess = $projectstatic->restrictedProjectArea($user,1);
    442. 

  442. 

  443.                     if ($user->rights->projet->lire && $userAccess > 0)
    444. 

  444.                     {
    445. 

  445.                         $var = !$var;
    446. 

  446.                         print "<tr $bc[$var]>";
    447. 

  447. 

  448.                         // Ref
    449. 

  449.                         print '<td><a href="'.DOL_URL_ROOT.'/projet/fiche.php?id='.$obj->rowid.'">'.img_object($langs->trans("ShowProject"),($obj->public?'projectpub':'project'))." ".$obj->ref.'</a></td>';
    450. 

  450.                         // Label
    451. 

  451.                         print '<td>'.$obj->title.'</td>';
    452. 

  452.                         // Date start
    453. 

  453.                         print '<td align="center">'.dol_print_date($db->jdate($obj->do),"day").'</td>';
    454. 

  454.                         // Date end
    455. 

  455.                         print '<td align="center">'.dol_print_date($db->jdate($obj->de),"day").'</td>';
    456. 

  456. 

  457.                         print '</tr>';
    458. 

  458.                     }
    459. 

  459.                     $i++;
    460. 

  460.                 }
    461. 

  461.             }
    462. 

  462.             else
    463. 

  463.             {
    464. 

  464.                 print '<tr><td colspan="3">'.$langs->trans("None").'</td></tr>';
    465. 

  465.             }
    466. 

  466.             $db->free($result);
    467. 

  467.         }
    468. 

  468.         else
    469. 

  469.         {
    470. 

  470.             dol_print_error($db);
    471. 

  471.         }
    472. 

  472.         print "</table>";
    473. 

  473. 

  474.         print "<br>\n";
    475. 

  475.     }
    476. 

  476. 

  477.     return $i;
    478. 

  478. }
    479. 

  479. 

  480. 

  481. /**
    482. 

  482.  * 		Show html area for list of contacts
    483. 

  483.  * 
    484. 

  484.  *		@param	Conf		$conf		Object conf
    485. 

  485.  * 		@param	Translate	$langs		Object langs
    486. 

  486.  * 		@param	DoliDB		$db			Database handler
    487. 

  487.  * 		@param	Object		$object		Third party object
    488. 

  488.  *      @param  string		$backtopage	Url to go once contact is created
    489. 

  489.  */
    490. 

  490. function show_contacts($conf,$langs,$db,$object,$backtopage='')
    491. 

  491. {
    492. 

  492.     global $user;
    493. 

  493.     global $bc;
    494. 

  494. 

  495.     $i=-1;
    496. 

  496. 

  497.     $contactstatic = new Contact($db);
    498. 

  498. 

  499.     if ($conf->clicktodial->enabled)
    500. 

  500.     {
    501. 

  501.         $user->fetch_clicktodial(); // lecture des infos de clicktodial
    502. 

  502.     }
    503. 

  503. 

  504.     $buttoncreate='';
    505. 

  505.     if ($user->rights->societe->contact->creer)
    506. 

  506.     {
    507. 

  507.         //$buttoncreate='<a class="butAction" href="'.DOL_URL_ROOT.'/contact/fiche.php?socid='.$object->id.'&amp;action=create&amp;backtopage='.urlencode($backtopage).'">'.$langs->trans("AddContact").'</a>'."\n";
    508. 

  508. 		$buttoncreate='<a class="addnewrecord" href="'.DOL_URL_ROOT.'/contact/fiche.php?socid='.$object->id.'&amp;action=create&amp;backtopage='.urlencode($backtopage).'">'.$langs->trans("AddContact").' '.img_picto($langs->trans("AddContact"),'filenew').'</a>'."\n";
    509. 

  509.     }
    510. 

  510. 

  511.     print "\n";
    512. 

  512.     print_fiche_titre($langs->trans("ContactsForCompany"),$buttoncreate,'');
    513. 

  513. 

  514.     print "\n".'<table class="noborder" width="100%">'."\n";
    515. 

  515. 

  516.     print '<tr class="liste_titre"><td>'.$langs->trans("Name").'</td>';
    517. 

  517.     print '<td>'.$langs->trans("Poste").'</td><td>'.$langs->trans("Tel").'</td>';
    518. 

  518.     print '<td>'.$langs->trans("Fax").'</td><td>'.$langs->trans("EMail").'</td>';
    519. 

  519.     print "<td>&nbsp;</td>";
    520. 

  520.     if ($conf->agenda->enabled && $user->rights->agenda->myactions->create)
    521. 

  521.     {
    522. 

  522.         print '<td>&nbsp;</td>';
    523. 

  523.     }
    524. 

  524.     print "</tr>";
    525. 

  525. 

  526.     $sql = "SELECT p.rowid, p.name, p.firstname, p.poste, p.phone, p.fax, p.email, p.note ";
    527. 

  527.     $sql .= " FROM ".MAIN_DB_PREFIX."socpeople as p";
    528. 

  528.     $sql .= " WHERE p.fk_soc = ".$object->id;
    529. 

  529.     $sql .= " ORDER by p.datec";
    530. 

  530. 

  531.     $result = $db->query($sql);
    532. 

  532.     $num = $db->num_rows($result);
    533. 

  533. 

  534.     if ($num)
    535. 

  535.     {
    536. 

  536.         $i=0;
    537. 

  537.         $var=true;
    538. 

  538. 

  539.         while ($i < $num)
    540. 

  540.         {
    541. 

  541.             $obj = $db->fetch_object($result);
    542. 

  542.             $var = !$var;
    543. 

  543. 

  544.             print "<tr ".$bc[$var].">";
    545. 

  545. 

  546.             print '<td>';
    547. 

  547.             $contactstatic->id = $obj->rowid;
    548. 

  548.             $contactstatic->name = $obj->name;
    549. 

  549.             $contactstatic->firstname = $obj->firstname;
    550. 

  550.             print $contactstatic->getNomUrl(1);
    551. 

  551.             print '</td>';
    552. 

  552. 

  553.             print '<td>'.$obj->poste.'</td>';
    554. 

  554. 

  555.             // Lien click to dial
    556. 

  556.             print '<td>';
    557. 

  557.             print dol_print_phone($obj->phone,$obj->pays_code,$obj->rowid,$object->id,'AC_TEL');
    558. 

  558.             print '</td>';
    559. 

  559.             print '<td>';
    560. 

  560.             print dol_print_phone($obj->fax,$obj->pays_code,$obj->rowid,$object->id,'AC_FAX');
    561. 

  561.             print '</td>';
    562. 

  562.             print '<td>';
    563. 

  563.             print dol_print_email($obj->email,$obj->rowid,$object->id,'AC_EMAIL');
    564. 

  564.             print '</td>';
    565. 

  565. 

  566.             if ($conf->agenda->enabled && $user->rights->agenda->myactions->create)
    567. 

  567.             {
    568. 

  568.                 print '<td align="center"><a href="'.DOL_URL_ROOT.'/comm/action/fiche.php?action=create&actioncode=AC_RDV&contactid='.$obj->rowid.'&socid='.$object->id.'&backtopage='.urlencode($backtopage).'">';
    569. 

  569.                 print img_object($langs->trans("Rendez-Vous"),"action");
    570. 

  570.                 print '</a></td>';
    571. 

  571.             }
    572. 

  572. 

  573.             if ($user->rights->societe->contact->creer)
    574. 

  574.             {
    575. 

  575.                 print '<td align="right">';
    576. 

  576.                 print '<a href="'.DOL_URL_ROOT.'/contact/fiche.php?action=edit&amp;id='.$obj->rowid.'&amp;backtopage='.urlencode($backtopage).'">';
    577. 

  577.                 print img_edit();
    578. 

  578.                 print '</a></td>';
    579. 

  579.             }
    580. 

  580. 

  581.             print "</tr>\n";
    582. 

  582.             $i++;
    583. 

  583.         }
    584. 

  584.     }
    585. 

  585.     else
    586. 

  586.     {
    587. 

  587.         //print "<tr ".$bc[$var].">";
    588. 

  588.         //print '<td>'.$langs->trans("NoContactsYetDefined").'</td>';
    589. 

  589.         //print "</tr>\n";
    590. 

  590.     }
    591. 

  591.     print "\n</table>\n";
    592. 

  592. 

  593.     print "<br>\n";
    594. 

  594. 

  595.     return $i;
    596. 

  596. }
    597. 

  597. 

  598. 

  599. /**
    600. 

  600.  *    	Show html area with actions to do
    601. 

  601.  * 		@param		conf		Object conf
    602. 

  602.  * 		@param		langs		Object langs
    603. 

  603.  * 		@param		db			Object db
    604. 

  604.  * 		@param		object		Object third party
    605. 

  605.  * 		@param		objcon		Object contact
    606. 

  606.  *      @param      noprint     Return string but does not output it
    607. 

  607.  */
    608. 

  608. function show_actions_todo($conf,$langs,$db,$object,$objcon='',$noprint=0)
    609. 

  609. {
    610. 

  610.     global $bc,$user;
    611. 

  611. 

  612.     $now=dol_now();
    613. 

  613.     $out='';
    614. 

  614. 

  615.     if ($conf->agenda->enabled)
    616. 

  616.     {
    617. 

  617.         require_once(DOL_DOCUMENT_ROOT."/comm/action/class/actioncomm.class.php");
    618. 

  618.         $actionstatic=new ActionComm($db);
    619. 

  619.         $userstatic=new User($db);
    620. 

  620.         $contactstatic = new Contact($db);
    621. 

  621. 

  622.         $out.="\n";
    623. 

  623.         if (is_object($objcon) && $objcon->id) $out.=load_fiche_titre($langs->trans("TasksHistoryForThisContact"),'','');
    624. 

  624.         else $out.=load_fiche_titre($langs->trans("ActionsOnCompany"),'','');
    625. 

  625. 

  626.         $out.='<table width="100%" class="noborder">';
    627. 

  627.         $out.='<tr class="liste_titre">';
    628. 

  628.         $out.='<td colspan="2"><a href="'.DOL_URL_ROOT.'/comm/action/listactions.php?socid='.$object->id.'&amp;status=todo">'.$langs->trans("ActionsToDoShort").'</a></td>';
    629. 

  629.         $out.='<td colspan="5" align="right">';
    630. 

  630. 		$permok=$user->rights->agenda->myactions->create;
    631. 

  631.         if (($object->id || $objcon->id) && $permok)
    632. 

  632. 		{
    633. 

  633.             $out.='<a href="'.DOL_URL_ROOT.'/comm/action/fiche.php?action=create&amp;socid='.$object->id.'&amp;contactid='.$objcon->id.'&amp;backtopage=1&amp;percentage=-1">';
    634. 

  634.     		$out.=$langs->trans("AddAnAction").' ';
    635. 

  635.     		$out.=img_picto($langs->trans("AddAnAction"),'filenew');
    636. 

  636.     		$out.="</a>";
    637. 

  637. 		}
    638. 

  638.         $out.='</td>';
    639. 

  639.         $out.='</tr>';
    640. 

  640. 

  641.         $sql = "SELECT a.id, a.label,";
    642. 

  642.         $sql.= " a.datep as dp,";
    643. 

  643.         $sql.= " a.datea as da,";
    644. 

  644.         $sql.= " a.percent,";
    645. 

  645.         $sql.= " a.fk_user_author, a.fk_contact,";
    646. 

  646.         $sql.= " a.fk_element, a.elementtype,";
    647. 

  647.         $sql.= " c.code as acode, c.libelle,";
    648. 

  648.         $sql.= " u.login, u.rowid,";
    649. 

  649.         $sql.= " sp.name, sp.firstname";
    650. 

  650.         $sql.= " FROM ".MAIN_DB_PREFIX."c_actioncomm as c, ".MAIN_DB_PREFIX."user as u, ".MAIN_DB_PREFIX."actioncomm as a";
    651. 

  651.         $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."socpeople as sp ON a.fk_contact = sp.rowid";
    652. 

  652.         $sql.= " WHERE u.rowid = a.fk_user_author";
    653. 

  653.         if ($object->id) $sql.= " AND a.fk_soc = ".$object->id;
    654. 

  654.         if (is_object($objcon) && $objcon->id) $sql.= " AND a.fk_contact = ".$objcon->id;
    655. 

  655.         $sql.= " AND c.id=a.fk_action";
    656. 

  656.         $sql.= " AND ((a.percent >= 0 AND a.percent < 100) OR (a.percent = -1 AND a.datep > '".$db->idate($now)."'))";
    657. 

  657.         $sql.= " ORDER BY a.datep DESC, a.id DESC";
    658. 

  658. 

  659.         dol_syslog("company.lib::show_actions_todo sql=".$sql);
    660. 

  660.         $result=$db->query($sql);
    661. 

  661.         if ($result)
    662. 

  662.         {
    663. 

  663.             $i = 0 ;
    664. 

  664.             $num = $db->num_rows($result);
    665. 

  665.             $var=true;
    666. 

  666. 

  667.             if ($num)
    668. 

  668.             {
    669. 

  669.                 while ($i < $num)
    670. 

  670.                 {
    671. 

  671.                     $var = !$var;
    672. 

  672. 

  673.                     $obj = $db->fetch_object($result);
    674. 

  674. 

  675.                     $datep=$db->jdate($obj->dp);
    676. 

  676. 

  677.                     $out.="<tr ".$bc[$var].">";
    678. 

  678. 

  679.                     $out.='<td width="120" align="left" nowrap="nowrap">'.dol_print_date($datep,'dayhour')."</td>\n";
    680. 

  680. 

  681.                     // Picto warning
    682. 

  682.                     $out.='<td width="16">';
    683. 

  683.                     if ($obj->percent >= 0 && $datep && $datep < ($now - ($conf->global->MAIN_DELAY_ACTIONS_TODO *60*60*24)) ) $out.=' '.img_warning($langs->trans("Late"));
    684. 

  684.                     else $out.='&nbsp;';
    685. 

  685.                     $out.='</td>';
    686. 

  686. 

  687.                     $actionstatic->type_code=$obj->acode;
    688. 

  688.                     $transcode=$langs->trans("Action".$obj->acode);
    689. 

  689.                     $libelle=($transcode!="Action".$obj->acode?$transcode:$obj->libelle);
    690. 

  690.                     //$actionstatic->libelle=$libelle;
    691. 

  691.                     $actionstatic->libelle=$obj->label;
    692. 

  692.                     $actionstatic->id=$obj->id;
    693. 

  693.                     //$out.='<td width="140">'.$actionstatic->getNomUrl(1,16).'</td>';
    694. 

  694. 

  695.                     // Title of event
    696. 

  696.                     //$out.='<td colspan="2">'.dol_trunc($obj->label,40).'</td>';
    697. 

  697.                     $out.='<td colspan="2">'.$actionstatic->getNomUrl(1,40).'</td>';
    698. 

  698. 

  699.                     // Contact pour cette action
    700. 

  700.                     if (! $objcon->id && $obj->fk_contact > 0)
    701. 

  701.                     {
    702. 

  702.                         $contactstatic->name=$obj->name;
    703. 

  703.                         $contactstatic->firstname=$obj->firstname;
    704. 

  704.                         $contactstatic->id=$obj->fk_contact;
    705. 

  705.                         $out.='<td width="120">'.$contactstatic->getNomUrl(1,'',10).'</td>';
    706. 

  706.                     }
    707. 

  707.                     else
    708. 

  708.                     {
    709. 

  709.                         $out.='<td>&nbsp;</td>';
    710. 

  710.                     }
    711. 

  711. 

  712.                     $out.='<td width="80" nowrap="nowrap">';
    713. 

  713.                     $userstatic->id=$obj->fk_user_author;
    714. 

  714.                     $userstatic->login=$obj->login;
    715. 

  715.                     $out.=$userstatic->getLoginUrl(1);
    716. 

  716.                     $out.='</td>';
    717. 

  717. 

  718.                     // Statut
    719. 

  719.                     $out.='<td nowrap="nowrap" width="20">'.$actionstatic->LibStatut($obj->percent,3).'</td>';
    720. 

  720. 

  721.                     $out.="</tr>\n";
    722. 

  722.                     $i++;
    723. 

  723.                 }
    724. 

  724.             }
    725. 

  725.             else
    726. 

  726.             {
    727. 

  727.                 // Aucun action a faire
    728. 

  728. 

  729.             }
    730. 

  730.             $db->free($result);
    731. 

  731.         }
    732. 

  732.         else
    733. 

  733.         {
    734. 

  734.             dol_print_error($db);
    735. 

  735.         }
    736. 

  736.         $out.="</table>\n";
    737. 

  737. 

  738.         $out.="<br>\n";
    739. 

  739.     }
    740. 

  740. 

  741.     if ($noprint) return $out;
    742. 

  742.     else print $out;
    743. 

  743. }
    744. 

  744. 

  745. /**
    746. 

  746.  *    	Show html area with actions done
    747. 

  747.  * 
    748. 

  748.  * 		@param		conf		Object conf
    749. 

  749.  * 		@param		langs		Object langs
    750. 

  750.  * 		@param		db			Object db
    751. 

  751.  * 		@param		object		Object third party
    752. 

  752.  * 		@param		objcon		Object contact
    753. 

  753.  *      @param      noprint     Return string but does not output it
    754. 

  754.  */
    755. 

  755. function show_actions_done($conf,$langs,$db,$object,$objcon='',$noprint=0)
    756. 

  756. {
    757. 

  757.     global $bc,$user;
    758. 

  758. 

  759.     $out='';
    760. 

  760.     $histo=array();
    761. 

  761.     $numaction = 0 ;
    762. 

  762.     $now=dol_now();
    763. 

  763. 

  764.     if ($conf->agenda->enabled)
    765. 

  765.     {
    766. 

  766.         // Recherche histo sur actioncomm
    767. 

  767.         $sql = "SELECT a.id, a.label,";
    768. 

  768.         $sql.= " a.datep as dp,";
    769. 

  769.         $sql.= " a.datep2 as dp2,";
    770. 

  770.         $sql.= " a.note, a.percent,";
    771. 

  771.         $sql.= " a.fk_element, a.elementtype,";
    772. 

  772.         $sql.= " a.fk_user_author, a.fk_contact,";
    773. 

  773.         $sql.= " c.code as acode, c.libelle,";
    774. 

  774.         $sql.= " u.login, u.rowid as user_id,";
    775. 

  775.         $sql.= " sp.name, sp.firstname";
    776. 

  776.         $sql.= " FROM ".MAIN_DB_PREFIX."c_actioncomm as c, ".MAIN_DB_PREFIX."user as u, ".MAIN_DB_PREFIX."actioncomm as a";
    777. 

  777.         $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."socpeople as sp ON a.fk_contact = sp.rowid";
    778. 

  778.         $sql.= " WHERE u.rowid = a.fk_user_author";
    779. 

  779.         if ($object->id) $sql.= " AND a.fk_soc = ".$object->id;
    780. 

  780.         if (is_object($objcon) && $objcon->id) $sql.= " AND a.fk_contact = ".$objcon->id;
    781. 

  781.         $sql.= " AND c.id=a.fk_action";
    782. 

  782.         $sql.= " AND (a.percent = 100 OR (a.percent = -1 AND a.datep <= '".$db->idate($now)."'))";
    783. 

  783.         $sql.= " ORDER BY a.datep DESC, a.id DESC";
    784. 

  784. 

  785.         dol_syslog("company.lib::show_actions_done sql=".$sql, LOG_DEBUG);
    786. 

  786.         $resql=$db->query($sql);
    787. 

  787.         if ($resql)
    788. 

  788.         {
    789. 

  789.             $i = 0 ;
    790. 

  790.             $num = $db->num_rows($resql);
    791. 

  791.             $var=true;
    792. 

  792.             while ($i < $num)
    793. 

  793.             {
    794. 

  794.                 $obj = $db->fetch_object($resql);
    795. 

  795.                 $histo[$numaction]=array('type'=>'action','id'=>$obj->id,'datestart'=>$db->jdate($obj->dp),'date'=>$db->jdate($obj->dp2),'note'=>$obj->label,'percent'=>$obj->percent,
    796. 

  796. 				'acode'=>$obj->acode,'libelle'=>$obj->libelle,
    797. 

  797. 				'userid'=>$obj->user_id,'login'=>$obj->login,
    798. 

  798. 				'contact_id'=>$obj->fk_contact,'name'=>$obj->name,'firstname'=>$obj->firstname,
    799. 

  799. 				'fk_element'=>$obj->fk_element,'elementtype'=>$obj->elementtype);
    800. 

  800.                 $numaction++;
    801. 

  801.                 $i++;
    802. 

  802.             }
    803. 

  803.         }
    804. 

  804.         else
    805. 

  805.         {
    806. 

  806.             dol_print_error($db);
    807. 

  807.         }
    808. 

  808.     }
    809. 

  809. 

  810.     if ($conf->mailing->enabled && $objcon->email)
    811. 

  811.     {
    812. 

  812.         $langs->load("mails");
    813. 

  813. 

  814.         // Recherche histo sur mailing
    815. 

  815.         $sql = "SELECT m.rowid as id, mc.date_envoi as da, m.titre as note, '100' as percentage,";
    816. 

  816.         $sql.= " 'AC_EMAILING' as acode,";
    817. 

  817.         $sql.= " u.rowid as user_id, u.login";	// User that valid action
    818. 

  818.         $sql.= " FROM ".MAIN_DB_PREFIX."mailing as m, ".MAIN_DB_PREFIX."mailing_cibles as mc, ".MAIN_DB_PREFIX."user as u";
    819. 

  819.         $sql.= " WHERE mc.email = '".$db->escape($objcon->email)."'";	// Search is done on email.
    820. 

  820.         $sql.= " AND mc.statut = 1";
    821. 

  821.         $sql.= " AND u.rowid = m.fk_user_valid";
    822. 

  822.         $sql.= " AND mc.fk_mailing=m.rowid";
    823. 

  823.         $sql.= " ORDER BY mc.date_envoi DESC, m.rowid DESC";
    824. 

  824. 

  825.         dol_syslog("company.lib::show_actions_done sql=".$sql, LOG_DEBUG);
    826. 

  826.         $resql=$db->query($sql);
    827. 

  827.         if ($resql)
    828. 

  828.         {
    829. 

  829.             $i = 0 ;
    830. 

  830.             $num = $db->num_rows($resql);
    831. 

  831.             $var=true;
    832. 

  832.             while ($i < $num)
    833. 

  833.             {
    834. 

  834.                 $obj = $db->fetch_object($resql);
    835. 

  835.                 $histo[$numaction]=array('type'=>'mailing','id'=>$obj->id,'date'=>$db->jdate($obj->da),'note'=>$obj->note,'percent'=>$obj->percentage,
    836. 

  836. 				'acode'=>$obj->acode,'libelle'=>$obj->libelle,
    837. 

  837. 				'userid'=>$obj->user_id,'login'=>$obj->login,
    838. 

  838. 				'contact_id'=>$obj->contact_id);
    839. 

  839.                 $numaction++;
    840. 

  840.                 $i++;
    841. 

  841.             }
    842. 

  842. 	        $db->free($resql);
    843. 

  843.         }
    844. 

  844.         else
    845. 

  845.         {
    846. 

  846.             dol_print_error($db);
    847. 

  847.         }
    848. 

  848.     }
    849. 

  849. 

  850. 

  851.     if ($conf->agenda->enabled || ($conf->mailing->enabled && $objcon->email))
    852. 

  852.     {
    853. 

  853.         require_once(DOL_DOCUMENT_ROOT."/comm/action/class/actioncomm.class.php");
    854. 

  854.         require_once(DOL_DOCUMENT_ROOT."/comm/propal/class/propal.class.php");
    855. 

  855.         require_once(DOL_DOCUMENT_ROOT."/commande/class/commande.class.php");
    856. 

  856.         require_once(DOL_DOCUMENT_ROOT."/compta/facture/class/facture.class.php");
    857. 

  857.         $actionstatic=new ActionComm($db);
    858. 

  858.         $userstatic=new User($db);
    859. 

  859.         $contactstatic = new Contact($db);
    860. 

  860. 

  861.         // TODO uniformize
    862. 

  862.         $propalstatic=new Propal($db);
    863. 

  863.         $orderstatic=new Commande($db);
    864. 

  864.         $facturestatic=new Facture($db);
    865. 

  865. 

  866.         $out.="\n";
    867. 

  867.         $out.='<table class="noborder" width="100%">';
    868. 

  868.         $out.='<tr class="liste_titre">';
    869. 

  869.         $out.='<td colspan="2"><a href="'.DOL_URL_ROOT.'/comm/action/listactions.php?socid='.$object->id.'&amp;status=done">'.$langs->trans("ActionsDoneShort").'</a></td>';
    870. 

  870.         $out.='<td colspan="5" align="right">';
    871. 

  871. 		$permok=$user->rights->agenda->myactions->create;
    872. 

  872.         if (($object->id || $objcon->id) && $permok)
    873. 

  873. 		{
    874. 

  874.             $out.='<a href="'.DOL_URL_ROOT.'/comm/action/fiche.php?action=create&amp;socid='.$object->id.'&amp;contactid='.$objcon->id.'&amp;backtopage=1&amp;percentage=-1">';
    875. 

  875.     		$out.=$langs->trans("AddAnAction").' ';
    876. 

  876.     		$out.=img_picto($langs->trans("AddAnAction"),'filenew');
    877. 

  877.     		$out.="</a>";
    878. 

  878. 		}
    879. 

  879.         $out.='</td>';
    880. 

  880.         $out.='</tr>';
    881. 

  881. 

  882.         foreach ($histo as $key=>$value)
    883. 

  883.         {
    884. 

  884.             $var=!$var;
    885. 

  885.             $out.="<tr ".$bc[$var].">";
    886. 

  886. 

  887.             // Champ date
    888. 

  888.             $out.='<td width="120" nowrap="nowrap">';
    889. 

  889.             if ($histo[$key]['date']) $out.=dol_print_date($histo[$key]['date'],'dayhour');
    890. 

  890.             else if ($histo[$key]['datestart']) $out.=dol_print_date($histo[$key]['datestart'],'dayhour');
    891. 

  891.             $out.="</td>\n";
    892. 

  892. 

  893.             // Picto
    894. 

  894.             $out.='<td width="16">&nbsp;</td>';
    895. 

  895. 

  896.             // Action
    897. 

  897.             $out.='<td>';
    898. 

  898.             if ($histo[$key]['type']=='action')
    899. 

  899.             {
    900. 

  900.                 $actionstatic->type_code=$histo[$key]['acode'];
    901. 

  901.                 $transcode=$langs->trans("Action".$histo[$key]['acode']);
    902. 

  902.                 $libelle=($transcode!="Action".$histo[$key]['acode']?$transcode:$histo[$key]['libelle']);
    903. 

  903.                 //$actionstatic->libelle=$libelle;
    904. 

  904.                 $actionstatic->libelle=$histo[$key]['note'];
    905. 

  905.                 $actionstatic->id=$histo[$key]['id'];
    906. 

  906.                 $out.=$actionstatic->getNomUrl(1,40);
    907. 

  907.             }
    908. 

  908.             if ($histo[$key]['type']=='mailing')
    909. 

  909.             {
    910. 

  910.                 $out.='<a href="'.DOL_URL_ROOT.'/comm/mailing/fiche.php?id='.$histo[$key]['id'].'">'.img_object($langs->trans("ShowEMailing"),"email").' ';
    911. 

  911.                 $transcode=$langs->trans("Action".$histo[$key]['acode']);
    912. 

  912.                 $libelle=($transcode!="Action".$histo[$key]['acode']?$transcode:'Send mass mailing');
    913. 

  913.                 $out.=dol_trunc($libelle,40);
    914. 

  914.             }
    915. 

  915.             $out.='</td>';
    916. 

  916. 

  917.             // Title of event
    918. 

  918.             //$out.='<td>'.dol_trunc($histo[$key]['note'], 40).'</td>';
    919. 

  919. 

  920.             // Objet lie
    921. 

  921.             // TODO uniformize
    922. 

  922.             $out.='<td>';
    923. 

  923.             if ($histo[$key]['elementtype'] == 'propal' && $conf->propal->enabled)
    924. 

  924.             {
    925. 

  925.                 $propalstatic->ref=$langs->trans("ProposalShort");
    926. 

  926.                 $propalstatic->id=$histo[$key]['fk_element'];
    927. 

  927.                 $out.=$propalstatic->getNomUrl(1);
    928. 

  928.             }
    929. 

  929.             elseif ($histo[$key]['elementtype'] == 'commande' && $conf->commande->enabled)
    930. 

  930.             {
    931. 

  931.                 $orderstatic->ref=$langs->trans("Order");
    932. 

  932.                 $orderstatic->id=$histo[$key]['fk_element'];
    933. 

  933.                 $out.=$orderstatic->getNomUrl(1);
    934. 

  934.             }
    935. 

  935.             elseif ($histo[$key]['elementtype'] == 'facture' && $conf->facture->enabled)
    936. 

  936.             {
    937. 

  937.                 $facturestatic->ref=$langs->trans("Invoice");
    938. 

  938.                 $facturestatic->id=$histo[$key]['fk_element'];
    939. 

  939.                 $facturestatic->type=$histo[$key]['ftype'];
    940. 

  940.                 $out.=$facturestatic->getNomUrl(1,'compta');
    941. 

  941.             }
    942. 

  942.             else $out.='&nbsp;';
    943. 

  943.             $out.='</td>';
    944. 

  944. 

  945.             // Contact pour cette action
    946. 

  946.             if (! $objcon->id && $histo[$key]['contact_id'] > 0)
    947. 

  947.             {
    948. 

  948.                 $contactstatic->name=$histo[$key]['name'];
    949. 

  949.                 $contactstatic->firstname=$histo[$key]['firstname'];
    950. 

  950.                 $contactstatic->id=$histo[$key]['contact_id'];
    951. 

  951.                 $out.='<td width="120">'.$contactstatic->getNomUrl(1,'',10).'</td>';
    952. 

  952.             }
    953. 

  953.             else
    954. 

  954.             {
    955. 

  955.                 $out.='<td>&nbsp;</td>';
    956. 

  956.             }
    957. 

  957. 

  958.             // Auteur
    959. 

  959.             $out.='<td nowrap="nowrap" width="80">';
    960. 

  960.             $userstatic->id=$histo[$key]['userid'];
    961. 

  961.             $userstatic->login=$histo[$key]['login'];
    962. 

  962.             $out.=$userstatic->getLoginUrl(1);
    963. 

  963.             $out.='</td>';
    964. 

  964. 

  965.             // Statut
    966. 

  966.             $out.='<td nowrap="nowrap" width="20">'.$actionstatic->LibStatut($histo[$key]['percent'],3).'</td>';
    967. 

  967. 

  968.             $out.="</tr>\n";
    969. 

  969.             $i++;
    970. 

  970.         }
    971. 

  971.         $out.="</table>\n";
    972. 

  972.         $out.="<br>\n";
    973. 

  973.     }
    974. 

  974. 

  975.     if ($noprint) return $out;
    976. 

  976.     else print $out;
    977. 

  977. }
    978. 

  978. 

  979. /**
    980. 

  980.  * 		Show html area for list of subsidiaries
    981. 

  981.  *		@param		conf		Object conf
    982. 

  982.  * 		@param		langs		Object langs
    983. 

  983.  * 		@param		db			Database handler
    984. 

  984.  * 		@param		object		Third party object
    985. 

  985.  */
    986. 

  986. function show_subsidiaries($conf,$langs,$db,$object)
    987. 

  987. {
    988. 

  988. 	global $user;
    989. 

  989. 	global $bc;
    990. 

  990. 

  991. 	$i=-1;
    992. 

  992. 

  993. 	$sql = "SELECT s.rowid, s.nom as name, s.address, s.cp as zip, s.ville as town, s.code_client, s.canvas";
    994. 

  994. 	$sql.= " FROM ".MAIN_DB_PREFIX."societe as s";
    995. 

  995. 	$sql.= " WHERE s.parent = ".$object->id;
    996. 

  996. 	$sql.= " AND s.entity = ".$conf->entity;
    997. 

  997. 	$sql.= " ORDER BY s.nom";
    998. 

  998. 

  999. 	$result = $db->query($sql);
    1000. 

  1000. 	$num = $db->num_rows($result);
    1001. 

  1001. 

  1002. 	if ($num)
    1003. 

  1003. 	{
    1004. 

  1004. 		$socstatic = new Societe($db);
    1005. 

  1005. 

  1006. 		print_titre($langs->trans("Subsidiaries"));
    1007. 

  1007. 		print "\n".'<table class="noborder" width="100%">'."\n";
    1008. 

  1008. 

  1009. 		print '<tr class="liste_titre"><td>'.$langs->trans("Company").'</td>';
    1010. 

  1010. 		print '<td>'.$langs->trans("Address").'</td><td>'.$langs->trans("Zip").'</td>';
    1011. 

  1011. 		print '<td>'.$langs->trans("Town").'</td><td>'.$langs->trans("CustomerCode").'</td>';
    1012. 

  1012. 		print "<td>&nbsp;</td>";
    1013. 

  1013. 		print "</tr>";
    1014. 

  1014. 

  1015. 		$i=0;
    1016. 

  1016. 		$var=true;
    1017. 

  1017. 

  1018. 		while ($i < $num)
    1019. 

  1019. 		{
    1020. 

  1020. 			$obj = $db->fetch_object($result);
    1021. 

  1021. 			$var = !$var;
    1022. 

  1022. 

  1023. 			print "<tr ".$bc[$var].">";
    1024. 

  1024. 

  1025. 			print '<td>';
    1026. 

  1026. 			$socstatic->id = $obj->rowid;
    1027. 

  1027. 			$socstatic->name = $obj->name;
    1028. 

  1028. 			$socstatic->canvas = $obj->canvas;
    1029. 

  1029. 			print $socstatic->getNomUrl(1);
    1030. 

  1030. 			print '</td>';
    1031. 

  1031. 

  1032. 			print '<td>'.$obj->address.'</td>';
    1033. 

  1033. 			print '<td>'.$obj->zip.'</td>';
    1034. 

  1034. 			print '<td>'.$obj->town.'</td>';
    1035. 

  1035. 			print '<td>'.$obj->code_client.'</td>';
    1036. 

  1036. 

  1037. 			print '<td align="center">';
    1038. 

  1038. 			print '<a href="'.DOL_URL_ROOT.'/societe/soc.php?socid='.$obj->rowid.'&amp;action=edit">';
    1039. 

  1039. 			print img_edit();
    1040. 

  1040. 			print '</a></td>';
    1041. 

  1041. 

  1042. 			print "</tr>\n";
    1043. 

  1043. 			$i++;
    1044. 

  1044. 		}
    1045. 

  1045. 		print "\n</table>\n";
    1046. 

  1046. 	}
    1047. 

  1047. 

  1048. 	print "<br>\n";
    1049. 

  1049. 

  1050. 	return $i;
    1051. 

  1051. }
    1052. 

  1052. 

  1053. ?>
    1054. 

  1054.