26require
'../main.inc.php';
35require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
36require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
37require_once DOL_DOCUMENT_ROOT.
'/core/lib/functions2.lib.php';
38require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formother.class.php';
39require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formcompany.class.php';
41$action =
GETPOST(
'action',
'aZ09');
42$contextpage =
GETPOST(
'contextpage',
'aZ') ?
GETPOST(
'contextpage',
'aZ') :
'adminsubcontractors';
45$langs->loadLangs(array(
'admin',
'companies'));
59$reshook = $hookmanager->executeHooks(
'doActions', $parameters, $object, $action);
64if (($action ==
'update' && !
GETPOST(
"cancel",
'alpha')) || ($action ==
'updateedit')) {
72 $country_code_itprovider = $country_code_itprovider_array[
'code'];
74 $tmpthirdparty->country_code = $country_code_itprovider;
75 $tmpthirdparty->country_id =
getCountry($country_code_itprovider,
'3',
$db, $langs, 0);
76 $tmpthirdparty->idprof1 =
GETPOST(
"itprovider_idprof1");
77 $tmpthirdparty->idprof2 =
GETPOST(
"itprovider_idprof2");
79 if (
$mysoc->country_code ==
'FR') {
80 if (empty($tmpthirdparty->country_code)) {
81 $langs->loadLangs(array(
"errors",
"companies"));
82 setEventMessages($langs->trans(
"ErrorBadValueForParameter", $tmpthirdparty->country_code, $langs->trans(
"Country")),
null,
'errors');
85 if ($tmpthirdparty->idprof1 &&
isValidProfIds(1, $tmpthirdparty) <= 0) {
86 $langs->loadLangs(array(
"errors",
"companies"));
87 setEventMessages($langs->trans(
"ErrorBadValueForParameter", $tmpthirdparty->idprof1, $langs->transcountry(
"ProfId1Short", $tmpthirdparty->country_code)),
null,
'errors');
90 if ($tmpthirdparty->idprof2 &&
isValidProfIds(2, $tmpthirdparty) <= 0) {
91 $langs->loadLangs(array(
"errors",
"companies"));
92 setEventMessages($langs->trans(
"ErrorBadValueForParameter", $tmpthirdparty->idprof2, $langs->transcountry(
"ProfId2Short", $tmpthirdparty->country_code)),
null,
'errors');
130 if ($action !=
'updateedit') {
142llxHeader(
'', $langs->trans(
"CompanyFoundation"), $help_url,
'', 0, 0,
'',
'',
'',
'mod-admin page-subcontractors');
144print
load_fiche_titre($langs->trans(
"CompanyFoundation"),
'',
'title_setup');
154print
'<div class="info">'.$langs->trans(
"SubcontractorsDesc").
"</div>\n";
160if (!empty(
$conf->use_javascript_ajax)) {
161 print
"\n".
'<script type="text/javascript">';
162 print
'$(document).ready(function () {
163 $("#selectcountry_id").change(function() {
164 console.log("selectcountry_id change");
165 document.form_index.action.value="updateedit";
166 document.form_index.submit();
168 $("#selectitprovider_country_id").change(function() {
169 console.log("selectitprovider_country_id change");
170 document.form_index.action.value="updateedit";
171 document.form_index.submit();
174 print
'</script>'.
"\n";
177print
'<form method="POST" action="'.dolBuildUrl($_SERVER[
"PHP_SELF"]).
'" name="form_index">';
178print
'<input type="hidden" name="token" value="'.newToken().
'">';
179print
'<input type="hidden" name="action" value="update">';
180print
'<input type="hidden" name="page_y" value="">';
182print
load_fiche_titre($langs->trans(
"AccountingProvider"),
'',
'accounting', 0,
'',
'',
'',
'');
184print
'<table class="noborder centpercent editmode">';
185print
'<tr class="liste_titre"><th class="titlefieldcreate wordbreak">'.$langs->trans(
"CompanyInfo").
'</th><th></th></tr>'.
"\n";
188print
'<tr class="oddeven"><td><label for="name">'.$langs->trans(
"CompanyName").
'</label></td><td>';
189print
'<input name="nom" id="name" class="minwidth200" value="'.dol_escape_htmltag(
GETPOSTISSET(
'nom') ?
GETPOST(
'nom',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_NAME')).
'"'.(!
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_NAME') ?
' autofocus="autofocus"' :
'').
'></td></tr>'.
"\n";
192print
'<tr class="oddeven"><td><label for="address">'.$langs->trans(
"CompanyAddress").
'</label></td><td>';
193print
'<textarea name="address" id="address" class="quatrevingtpercent" rows="'.ROWS_2.
'">';
195print
'</textarea></td></tr>'.
"\n";
198print
'<tr class="oddeven"><td><label for="zipcode">'.$langs->trans(
"CompanyZip").
'</label></td><td>';
199print
'<input class="width100" name="zipcode" id="zipcode" value="'.dol_escape_htmltag(
GETPOSTISSET(
'zipcode') ?
GETPOST(
'zipcode',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_ZIP')).
'"></td></tr>'.
"\n";
202print
'<tr class="oddeven"><td><label for="town">'.$langs->trans(
"CompanyTown").
'</label></td><td>';
203print
'<input name="town" class="minwidth100" id="town" value="'.dol_escape_htmltag(
GETPOSTISSET(
'town') ?
GETPOST(
'town',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_TOWN')).
'"></td></tr>'.
"\n";
206print
'<tr class="oddeven"><td><label for="selectcountry_id">'.$langs->trans(
"Country").
'</label></td><td class="maxwidthonsmartphone">';
207print
img_picto(
'',
'globe-americas',
'class="pictofixedwidth"');
209print
info_admin($langs->trans(
"YouCanChangeValuesForThisListFromDictionarySetup"), 1);
210print
'</td></tr>'.
"\n";
213print
'<tr class="oddeven"><td><label for="state_id">'.$langs->trans(
"State").
'</label></td><td class="maxwidthonsmartphone">';
214print
img_picto(
'',
'state',
'class="pictofixedwidth"');
216print
'</td></tr>'.
"\n";
219print
'<tr class="oddeven"><td><label for="phone">'.$langs->trans(
"Phone").
'</label></td><td>';
220print
img_picto(
'',
'object_phoning',
'', 0, 0, 0,
'',
'pictofixedwidth');
221print
'<input name="phone" id="phone" class="maxwidth150 widthcentpercentminusx" value="'.dol_escape_htmltag(
GETPOSTISSET(
'phone') ?
GETPOST(
'phone',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_PHONE')).
'"></td></tr>';
222print
'</td></tr>'.
"\n";
233print
'<tr class="oddeven"><td><label for="email">'.$langs->trans(
"EMail").
'</label></td><td>';
234print
img_picto(
'',
'object_email',
'', 0, 0, 0,
'',
'pictofixedwidth');
235print
'<input name="mail" id="email" class="maxwidth300 widthcentpercentminusx" value="'.dol_escape_htmltag(
GETPOSTISSET(
'mail') ?
GETPOST(
'mail',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_MAIL')).
'"></td></tr>';
236print
'</td></tr>'.
"\n";
239print
'<tr class="oddeven"><td><label for="web">'.$langs->trans(
"Web").
'</label></td><td>';
240print
img_picto(
'',
'globe',
'', 0, 0, 0,
'',
'pictofixedwidth');
241print
'<input name="web" id="web" class="maxwidth300 widthcentpercentminusx" value="'.dol_escape_htmltag(
GETPOSTISSET(
'web') ?
GETPOST(
'web',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_WEB')).
'"></td></tr>';
242print
'</td></tr>'.
"\n";
245print
'<tr class="oddeven"><td><label for="idprof1">'.$langs->transcountry(
"ProfId1",
$mysoc->country_code).
'</label></td><td>';
246print
'<input name="idprof1" id="idprof1" class="minwidth100" value="'.dol_escape_htmltag(
GETPOSTISSET(
'idprof1') ?
GETPOST(
'idprof1',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_IDPROF1')).
'"></td></tr>'.
"\n";
249print
'<tr class="oddeven"><td><label for="idprof2">'.$langs->transcountry(
"ProfId2",
$mysoc->country_code).
'</label></td><td>';
250print
'<input name="idprof2" id="idprof2" class="minwidth100" value="'.dol_escape_htmltag(
GETPOSTISSET(
'idprof2') ?
GETPOST(
'idprof2',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_IDPROF2')).
'"></td></tr>'.
"\n";
253print
'<tr class="oddeven"><td><label for="code">'.$langs->trans(
"AccountantFileNumber").
'</label></td><td>';
254print
'<input name="code" id="code" class="minwidth100" value="'.dol_escape_htmltag(
GETPOSTISSET(
'code') ?
GETPOST(
'code',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_CODE')).
'"></td></tr>'.
"\n";
257print
'<tr class="oddeven"><td class="tdtop"><label for="note">'.$langs->trans(
"Note").
'</label></td><td>';
258print
'<textarea class="flat quatrevingtpercent" name="note" id="note" rows="'.ROWS_2.
'">'.(
GETPOSTISSET(
'note') ?
GETPOST(
'note',
'restricthtml') :
getDolGlobalString(
'MAIN_INFO_ACCOUNTANT_NOTE')).
'</textarea></td></tr>';
263print $form->buttonsSaveCancel(
"Save",
'', array(),
false,
'reposition');
270print
load_fiche_titre($langs->trans(
"ITProvider"),
'',
'hdd', 0,
'',
'',
'',
'');
272print
'<table class="noborder centpercent editmode">';
273print
'<tr class="liste_titre"><th class="titlefieldcreate wordbreak">'.$langs->trans(
"CompanyInfo").
'</th><th></th></tr>'.
"\n";
276print
'<tr class="oddeven"><td><label for="name">'.$langs->trans(
"CompanyName").
'</label></td><td>';
277print
'<input name="itprovider_nom" id="itprovider_name" class="minwidth200" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_nom') ?
GETPOST(
'itprovider_nom',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_NAME')).
'"></td></tr>'.
"\n";
280print
'<tr class="oddeven"><td><label for="address">'.$langs->trans(
"CompanyAddress").
'</label></td><td>';
281print
'<textarea name="itprovider_address" id="itprovider_address" class="quatrevingtpercent" rows="'.ROWS_2.
'">';
283print
'</textarea></td></tr>'.
"\n";
286print
'<tr class="oddeven"><td><label for="zipcode">'.$langs->trans(
"CompanyZip").
'</label></td><td>';
287print
'<input class="width100" name="itprovider_zipcode" id="itprovider_zipcode" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_zipcode') ?
GETPOST(
'itprovider_zipcode',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_ZIP')).
'"></td></tr>'.
"\n";
290print
'<tr class="oddeven"><td><label for="itprovider_town">'.$langs->trans(
"CompanyTown").
'</label></td><td>';
291print
'<input name="itprovider_town" class="minwidth100" id="itprovider_town" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_town') ?
GETPOST(
'itprovider_town',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_TOWN')).
'"></td></tr>'.
"\n";
294print
'<tr class="oddeven"><td><label for="selectitprovider_country_id">'.$langs->trans(
"Country").
'</label></td><td class="maxwidthonsmartphone">';
295print
img_picto(
'',
'globe-americas',
'class="pictofixedwidth"');
297print
info_admin($langs->trans(
"YouCanChangeValuesForThisListFromDictionarySetup"), 1);
298print
'</td></tr>'.
"\n";
301print
'<tr class="oddeven"><td><label for="itprovider_state_id">'.$langs->trans(
"State").
'</label></td><td class="maxwidthonsmartphone">';
302print
img_picto(
'',
'state',
'class="pictofixedwidth"');
304print
'</td></tr>'.
"\n";
307print
'<tr class="oddeven"><td><label for="itprovider_phone">'.$langs->trans(
"Phone").
'</label></td><td>';
308print
img_picto(
'',
'object_phoning',
'', 0, 0, 0,
'',
'pictofixedwidth');
309print
'<input name="itprovider_phone" id="itprovider_phone" class="maxwidth150 widthcentpercentminusx" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_phone') ?
GETPOST(
'itprovider_phone',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_PHONE')).
'"></td></tr>';
310print
'</td></tr>'.
"\n";
321print
'<tr class="oddeven"><td><label for="itprovider_email">'.$langs->trans(
"EMail").
'</label></td><td>';
322print
img_picto(
'',
'object_email',
'', 0, 0, 0,
'',
'pictofixedwidth');
323print
'<input name="itprovider_mail" id="itprovider_email" class="maxwidth300 widthcentpercentminusx" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_mail') ?
GETPOST(
'itprovider_mail',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_MAIL')).
'"></td></tr>';
324print
'</td></tr>'.
"\n";
327print
'<tr class="oddeven"><td><label for="itprovider_web">'.$langs->trans(
"Web").
'</label></td><td>';
328print
img_picto(
'',
'globe',
'', 0, 0, 0,
'',
'pictofixedwidth');
329print
'<input name="itprovider_web" id="itprovider_web" class="maxwidth300 widthcentpercentminusx" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_web') ?
GETPOST(
'itprovider_web',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_WEB')).
'"></td></tr>';
330print
'</td></tr>'.
"\n";
333print
'<tr class="oddeven"><td><label for="itprovider_idprof1">'.$langs->transcountry(
"ProfId1",
$mysoc->country_code).
'</label></td><td>';
334print
'<input name="itprovider_idprof1" id="itprovider_idprof1" class="minwidth100" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_idprof1') ?
GETPOST(
'itprovider_idprof1',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_IDPROF1')).
'"></td></tr>'.
"\n";
337print
'<tr class="oddeven"><td><label for="itprovider_idprof2">'.$langs->transcountry(
"ProfId2",
$mysoc->country_code).
'</label></td><td>';
338print
'<input name="itprovider_idprof2" id="itprovider_idprof2" class="minwidth100" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_idprof2') ?
GETPOST(
'itprovider_idprof2',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_IDPROF2')).
'"></td></tr>'.
"\n";
341print
'<tr class="oddeven"><td><label for="itprovider_code">'.$langs->trans(
"AccountantFileNumber").
'</label></td><td>';
342print
'<input name="itprovider_code" id="itprovider_code" class="minwidth100" value="'.dol_escape_htmltag(
GETPOSTISSET(
'itprovider_code') ?
GETPOST(
'itprovider_code',
'alphanohtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_CODE')).
'"></td></tr>'.
"\n";
345print
'<tr class="oddeven"><td class="tdtop"><label for="itprovider_note">'.$langs->trans(
"Note").
'</label></td><td>';
346print
'<textarea class="flat quatrevingtpercent" name="itprovider_note" id="itprovider_note" rows="'.ROWS_2.
'">'.(
GETPOSTISSET(
'itprovider_note') ?
GETPOST(
'itprovider_note',
'restricthtml') :
getDolGlobalString(
'MAIN_INFO_ITPROVIDER_NOTE')).
'</textarea></td></tr>';
351print $form->buttonsSaveCancel(
"Save",
'', array(),
false,
'reposition');
if(! $sortfield) if(! $sortorder) $object
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
company_admin_prepare_head()
Return array head with list of tabs to view object information.
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
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 third parties objects (customers, suppliers, prospects...)
getCountry($searchkey, $withcode='', $dbtouse=null, $outputlangs=null, $entconv=1, $searchlabel='')
Return country label, code or id from an id, code or label.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0, $morecssdiv='')
Show tabs of a record.
dolPrintText($s)
Return a string label (possible on several lines and that should not contains any HTML) ready to be o...
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0, $nodefault=0)
Return value of a param into GET or POST supervariable.
GETPOSTINT($paramname, $method=0, $nodefault=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='', $morecssonpicto='widthpictotitle')
Load a title with picto.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='', $picto='', $textonpictotooltip='', $cssfordropdown='info_admin')
Show information in HTML for admin users or standard users.
isValidProfIds($idprof, $thirdparty, $lenghtonly=0)
Check the validity of a professional identifier according to the properties (country) of the company ...
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.