* Copyright (C) 2004-2010 Laurent Destailleur * Copyright (C) 2004 Benoit Mortier * Copyright (C) 2004 Sebastien Di Cintio * Copyright (C) 2004 Eric Seigne * Copyright (C) 2005-2010 Regis Houssin * Copyright (C) 2006 Andre Cianfarani * Copyright (C) 2006 Marc Barilley/Ocebo * Copyright (C) 2007 Franky Van Liedekerke * Copyright (C) 2007 Patrick Raguin * Copyright (C) 2010 Juanjo Menent * * 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 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /** * \file htdocs/core/class/html.form.class.php * \brief File of class with all html predefined components * \version $Id$ */ /** * \class Form * \brief Class to manage generation of HTML components * \remarks Only common components must be here. */ class Form { var $db; var $error; // Cache arrays var $cache_types_paiements=array(); var $cache_conditions_paiements=array(); var $tva_taux_value; var $tva_taux_libelle; /** * Constructor * @param $DB Database handler */ function Form($DB) { $this->db = $DB; } /** * Output key field for an editable field * @param text Text of label * @param htmlname Name of select field * @param preselected Preselected value for parameter * @param paramkey Key of parameter (unique if there is several parameter to show) * @param paramvalue Value of parameter * @param perm Permission to allow button to edit parameter * @param typeofdata Type of data (string by default, email, ...) * @return string HTML edit field */ function editfieldkey($text,$htmlname,$preselected,$paramkey,$paramvalue,$perm,$typeofdata='string') { global $langs; $ret=''; $ret.=''; if ($_GET['action'] != 'edit'.$htmlname && $perm) $ret.=''; $ret.='

'; $ret.=$langs->trans($text); $ret.='

'; return $ret; } /** * \brief Output val field for an editable field * \param text Text of label (not used in this function) * \param htmlname Name of select field * \param preselected Preselected value for parameter * \param paramkey Key of parameter (unique if there is several parameter to show) * \param perm Permission to allow button to edit parameter * \param typeofdata Type of data (string by default, email, ...) * \return string HTML edit field */ function editfieldval($text,$htmlname,$preselected,$paramkey,$paramvalue,$perm,$typeofdata='string') { global $langs; $ret=''; if ($_GET['action'] == 'edit'.$htmlname) { $ret.="\n"; $ret.=''."\n"; } else { if ($typeofdata == 'email') $ret.=dol_print_email($preselected,0,0,0,0,1); else $ret.=$preselected; } return $ret; } /** * Old version of textwithtooltip. Kept for backward compatibility with modules for 2.6. * @deprecated */ function textwithhelp($text,$htmltext,$tooltipon=1) { return $this->textwithtooltip($text,$htmltext,$tooltipon); } /** * Show a text and picto with tooltip on text or picto * @param text Text to show * @param htmltext Content html of tooltip, coded into HTML/UTF8 * @param tooltipon 1=tooltip sur texte, 2=tooltip sur picto, 3=tooltip sur les 2, 4=tooltip sur les 2 et force en Ajax * @param direction -1=Le picto est avant, 0=pas de picto, 1=le picto est apres * @param img Code img du picto (use img_xxx() function to get it) * @param i Numero of tooltip * @param width Width of tooltip * @param shiftX Shift of tooltip * @return string Code html du tooltip (texte+picto) * @see Use function textwithpicto if you can. */ function textwithtooltip($text,$htmltext,$tooltipon=1,$direction=0,$img='',$i=1,$width='200',$shiftX='10') { global $conf; if (! $htmltext) return $text; $paramfortooltiptext =''; $paramfortooltippicto =''; // Sanitize tooltip $htmltext=str_replace("\\","\\\\",$htmltext); $htmltext=str_replace("'","\'",$htmltext); $htmltext=str_replace("'","\'",$htmltext); $htmltext=str_replace("\r","",$htmltext); $htmltext=str_replace("
\n","
",$htmltext); $htmltext=str_replace("\n","",$htmltext); if ($conf->use_javascript_ajax && $tooltipon == 4) { $s = '

'."\n"; $s.= $text; $s.= '

'."\n"; $s.= ''."\n"; $s.= ''."\n"; } else { if ($conf->use_javascript_ajax) { $htmltext=str_replace('"',""",$htmltext); if ($tooltipon==1 || $tooltipon==3) { $paramfortooltiptext.=' onmouseover="showtip(\''.$htmltext.'\')"'; $paramfortooltiptext.=' onMouseout="hidetip()"'; } if ($tooltipon==2 || $tooltipon==3) { $paramfortooltippicto.=' onmouseover="showtip(\''.$htmltext.'\')"'; $paramfortooltippicto.=' onMouseout="hidetip()"'; } } $s=""; $s.=''; if ($direction > 0) { if ($text != '') { $s.=''.$text; if ($direction) $s.=' '; $s.=''; } if ($direction) $s.=''.$img.''; } else { if ($direction) $s.=''.$img.''; if ($text != '') { $s.=''; if ($direction) $s.=' '; $s.=$text.''; } } $s.='

'; } return $s; } /** * \brief Show a text with a picto and a tooltip on picto * \param text Text to show * \param htmltooltip Content of tooltip * \param direction 1=Icon is after text, -1=Icon is before text * \param type Type of picto (info, help, warning, superadmin...) * \return string HTML code of text, picto, tooltip */ function textwithpicto($text,$htmltext,$direction=1,$type='help') { global $conf; if ("$type" == "0") $type='info'; // For backward compatibility $alt=''; // If info or help with no javascript, show only text if (empty($conf->use_javascript_ajax)) { if ($type == 'info' || $type == 'help') return $text; else { $alt=$htmltext; $htmltext=''; } } // If info or help with smartphone, show only text if (! empty($conf->browser->phone)) { if ($type == 'info' || $type == 'help') return $text; } // Info or help if ($type == 'info') $img=img_help(0,$alt); if ($type == 'help' || $type ==1) $img=img_help(1,$alt); if ($type == 'superadmin') $img=img_redstar($alt); // Warnings if ($type == 'warning') $img=img_warning($alt); return $this->textwithtooltip($text,$htmltext,2,$direction,$img); } /** * \brief Return combo list of activated countries, into language of user * \param selected Id or Code or Label of preselected country * \param htmlname Name of html select object * \param htmloption Options html on select object * \TODO trier liste sur noms apres traduction plutot que avant */ function select_pays($selected='',$htmlname='pays_id',$htmloption='') { print $this->select_country($selected,$htmlname,$htmloption); } /** * \brief Return combo list of activated countries, into language of user * \param selected Id or Code or Label of preselected country * \param htmlname Name of html select object * \param htmloption Options html on select object * \TODO trier liste sur noms apres traduction plutot que avant */ function select_country($selected='',$htmlname='pays_id',$htmloption='') { global $conf,$langs; $langs->load("dict"); $out=''; $sql = "SELECT rowid, code, libelle, active"; $sql.= " FROM ".MAIN_DB_PREFIX."c_pays"; $sql.= " WHERE active = 1"; $sql.= " ORDER BY code ASC"; dol_syslog("Form::select_pays sql=".$sql); $resql=$this->db->query($sql); if ($resql) { $out.= ''; } else { dol_print_error($this->db); } return $out; } /** * \brief Retourne la liste des types de comptes financiers * \param selected Type pre-selectionne * \param htmlname Nom champ formulaire */ function select_type_comptes_financiers($selected=1,$htmlname='type') { global $langs; $langs->load("banks"); $type_available=array(0,1,2); print ''; } /** * \brief Return list of social contributions. * \remarks Use mysoc->pays_id or mysoc->pays_code so they must be defined. * \param selected Preselected type * \param htmlname Name of field in form * \param useempty Set to 1 if we want an empty value * \param maxlen Max length of text in combo box * \param help Add or not the admin help picto */ function select_type_socialcontrib($selected='',$htmlname='actioncode', $useempty=0, $maxlen=40, $help=1) { global $db,$langs,$user,$mysoc; if (empty($mysoc->pays_id) && empty($mysoc->pays_code)) { dol_print_error('','Call to select_type_socialcontrib with mysoc country not yet defined'); exit; } if (! empty($mysoc->pays_id)) { $sql = "SELECT c.id, c.libelle as type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c"; $sql.= " WHERE c.active = 1"; $sql.= " AND c.fk_pays = ".$mysoc->pays_id; $sql.= " ORDER BY c.libelle ASC"; } else { $sql = "SELECT c.id, c.libelle as type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."c_pays as p"; $sql.= " WHERE c.active = 1 AND c.fk_pays = p.rowid"; $sql.= " AND p.code = '".$mysoc->pays_code."'"; $sql.= " ORDER BY c.libelle ASC"; } dol_syslog("Form::select_type_socialcontrib sql=".$sql, LOG_DEBUG); $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); if ($num) { print ''; if ($user->admin && $help) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } else { print $langs->trans("ErrorNoSocialContributionForSellerCountry",$mysoc->pays_code); } } else { dol_print_error($db,$db->lasterror()); } } /** * Return list of types of lines (product or service) * @param selected Preselected type * @param htmlname Name of field in html form * @param showempty Add an empty field * @param hidetext Do not show label before combo box * @param forceall Force to show products and services in combo list, whatever are activated modules * @example 0=product, 1=service, 9=other (for external module) */ function select_type_of_lines($selected='',$htmlname='type',$showempty=0,$hidetext=0,$forceall=0) { global $db,$langs,$user,$conf; // If product & services are enabled or both disabled. if ($forceall || ($conf->product->enabled && $conf->service->enabled) || (empty($conf->product->enabled) && empty($conf->service->enabled))) { if (empty($hidetext)) print $langs->trans("Type").': '; print ''; //if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } if (! $forceall && empty($conf->product->enabled) && $conf->service->enabled) { print ''; } if (! $forceall && $conf->product->enabled && empty($conf->service->enabled)) { print ''; } } /** * \brief Return list of types of notes * \param selected Preselected type * \param htmlname Name of field in form * \param showempty Add an empty field */ function select_type_fees($selected='',$htmlname='type',$showempty=0) { global $db,$langs,$user; $langs->load("trips"); print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } /** * \brief Output html form to select a third party * \param selected Preselected type * \param htmlname Name of field in form * \param filter Optionnal filters criteras * \param showempty Add an empty field * \param showtype Show third party type in combolist (customer, prospect or supplier) * \param forcecombo Force to use combo box */ function select_societes($selected='',$htmlname='socid',$filter='',$showempty=0, $showtype=0, $forcecombo=0) { global $conf,$user,$langs; // On recherche les societes $sql = "SELECT s.rowid, s.nom, s.client, s.fournisseur, s.code_client, s.code_fournisseur"; $sql.= " FROM ".MAIN_DB_PREFIX ."societe as s"; if (!$user->rights->societe->client->voir && !$user->societe_id) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql.= " WHERE s.entity = ".$conf->entity; if ($filter) $sql.= " AND ".$filter; if (is_numeric($selected) && $conf->use_javascript_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT) $sql.= " AND s.rowid = ".$selected; if (!$user->rights->societe->client->voir && !$user->societe_id) $sql.= " AND s.rowid = sc.fk_soc AND sc.fk_user = " .$user->id; $sql.= " ORDER BY nom ASC"; dol_syslog("Form::select_societes sql=".$sql); $resql=$this->db->query($sql); if ($resql) { if ($conf->use_javascript_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT && ! $forcecombo) { $socid = 0; if ($selected) { $obj = $this->db->fetch_object($resql); $socid = $obj->rowid?$obj->rowid:''; } // We call a page after a small delay when a new input has been selected //$javaScript = "window.location=\'...\'"; //$htmloption = 'onChange="ac_delay(\''.$javaScript.'\',\'500\')"'; $htmloption=''; print "\n".''."\n"; print ''; print ''; print ''; print '

'; if ($socid == 0) { //$langs->load("companies"); print ''; } else { print ''; } print ajax_autocompleter(($socid?$socid:-1),$htmlname,DOL_URL_ROOT.'/societe/ajaxcompanies.php?filter='.urlencode($filter), ''); print '

'; print ajax_indicator($htmlname,'working'); // Indicator is here print '

'; } else { print ''; } } else { dol_print_error($this->db); } } /** * \brief Return HTML combo list of absolute discounts * \param selected Id remise fixe pre-selectionnee * \param htmlname Nom champ formulaire * \param filter Criteres optionnels de filtre * \param maxvalue Max value for lines that can be selected * \return int Return number of qualifed lines in list */ function select_remises($selected='',$htmlname='remise_id',$filter='',$socid, $maxvalue=0) { global $langs,$conf; // On recherche les remises $sql = "SELECT re.rowid, re.amount_ht, re.amount_tva, re.amount_ttc,"; $sql.= " re.description, re.fk_facture_source"; $sql.= " FROM ".MAIN_DB_PREFIX ."societe_remise_except as re"; $sql.= " WHERE fk_soc = ".$socid; if ($filter) $sql.= " AND ".$filter; $sql.= " ORDER BY re.description ASC"; dol_syslog("Form::select_remises sql=".$sql); $resql=$this->db->query($sql); if ($resql) { print ''; return $qualifiedlines; } else { dol_print_error($this->db); return -1; } } /** * \brief Retourne la liste deroulante des contacts d'une societe donnee * \param socid Id de la societe * \param selected Id contact pre-selectionne * \param htmlname Nom champ formulaire ('none' pour champ non editable) * \param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue * \param exclude Liste des id contacts a exclure * \param limitto Disable answers that are not id in this array list * \return int <0 if KO, Nb of contact in list if OK */ function select_contacts($socid,$selected='',$htmlname='contactid',$showempty=0,$exclude='',$limitto='') { // Permettre l'exclusion de contacts if (is_array($exclude)) { $excludeContacts = implode("','",$exclude); } // On recherche les societes $sql = "SELECT s.rowid, s.name, s.firstname FROM"; $sql.= " ".MAIN_DB_PREFIX ."socpeople as s"; $sql.= " WHERE fk_soc=".$socid; if (is_array($exclude) && $excludeContacts) $sql.= " AND s.rowid NOT IN ('".$excludeContacts."')"; $sql.= " ORDER BY s.name ASC"; dol_syslog("Form::select_contacts sql=".$sql); $resql=$this->db->query($sql); if ($resql) { $num=$this->db->num_rows($resql); if ($num == 0) return 0; if ($htmlname != 'none') print ''; } return $num; } else { dol_print_error($this->db); return -1; } } /** * \brief Return select list of users * \param selected Id user preselected * \param htmlname Field name in form * \param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue * \param exclude Array list of users id to exclude * \param disabled If select list must be disabled * \param include Array list of users id to include * \param enableonly Array list of users id to be enabled. All other must be disabled */ function select_users($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='') { print $this->select_dolusers($selected,$htmlname,$show_empty,$exclude,$disabled,$include,$enableonly); } /** * \brief Return select list of users * \param selected Id user preselected * \param htmlname Field name in form * \param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue * \param exclude Array list of users id to exclude * \param disabled If select list must be disabled * \param include Array list of users id to include * \param enableonly Array list of users id to be enabled. All other must be disabled */ function select_dolusers($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='') { global $conf; // Permettre l'exclusion d'utilisateurs if (is_array($exclude)) $excludeUsers = implode("','",$exclude); // Permettre l'inclusion d'utilisateurs if (is_array($include)) $includeUsers = implode("','",$include); $out=''; // On recherche les utilisateurs $sql = "SELECT u.rowid, u.name, u.firstname, u.login, u.admin"; $sql.= " FROM ".MAIN_DB_PREFIX ."user as u"; $sql.= " WHERE u.entity IN (0,".$conf->entity.")"; if (is_array($exclude) && $excludeUsers) $sql.= " AND u.rowid NOT IN ('".$excludeUsers."')"; if (is_array($include) && $includeUsers) $sql.= " AND u.rowid IN ('".$includeUsers."')"; $sql.= " ORDER BY u.name ASC"; dol_syslog("Form::select_users sql=".$sql); $resql=$this->db->query($sql); if ($resql) { $out.= ''; } else { dol_print_error($this->db); } return $out; } /** * \brief Return list of products for customer in Ajax if Ajax activated or go to select_produits_do * \param selected Preselected products * \param htmlname Name of HTML seletc field (must be unique in page) * \param filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param limit Limit sur le nombre de lignes retournees * \param price_level Level of price to show * \param status -1=Return all products, 0=Products not on sell, 1=Products on sell * \param finished 2=all, 1=finished, 0=raw material */ function select_produits($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$status=1,$finished=2) { global $langs,$conf; if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT) { if ($conf->global->MAIN_USE_NEW_JQUERY) { // mode=1 means customers products print ajax_autocompleter2('',$htmlname,DOL_URL_ROOT.'/product/ajaxproducts.php','outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=1&status='.$status.'&finished='.$finished,''); print '

'; print ''.$langs->trans("RefOrLabel").':'; print ''; print '

'; } else { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '

'; print $langs->trans("RefOrLabel").':	'; print ajax_indicator($htmlname,'working'); // Indicator is here print '
'; print ajax_updater($htmlname,'keysearch',DOL_URL_ROOT.'/product/ajaxproducts.php','&price_level='.$price_level.'&type='.$filtertype.'&mode=1&status='.$status.'&finished='.$finished,''); // Indicator is '' to disable it as it is alreay output print '

'; } } else { $this->select_produits_do($selected,$htmlname,$filtertype,$limit,$price_level,'',$status,$finished,0); } } /** * \brief Return list of products for a customer * \param selected Preselected product * \param htmlname Name of select html * \param filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param limit Limite sur le nombre de lignes retournees * \param price_level Level of price to show * \param filterkey Filter on product * \param status -1=Return all products, 0=Products not on sell, 1=Products on sell * \param finished Filter on finished field: 2=No filter * \param disableout Disable print output * \return array Array of keys for json */ function select_produits_do($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$filterkey='',$status=1,$finished=2,$disableout=0) { global $langs,$conf,$user,$db; $sql = "SELECT "; $sql.= " p.rowid, p.label, p.ref, p.fk_product_type, p.price, p.price_ttc, p.price_base_type, p.duration, p.stock"; // Multilang : we add translation if ($conf->global->MAIN_MULTILANGS) { $sql.= ", pl.label as label_translated"; } $sql.= " FROM ".MAIN_DB_PREFIX."product as p"; // Multilang : we add translation if ($conf->global->MAIN_MULTILANGS) { $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_lang as pl ON pl.fk_product = p.rowid AND pl.lang='". $langs->getDefaultLang() ."'"; } $sql.= " WHERE p.entity = ".$conf->entity; if (empty($user->rights->produit->hidden) && empty($user->rights->service->hidden)) $sql.=' AND p.hidden=0'; else { if (empty($user->rights->produit->hidden)) $sql.=' AND (p.hidden=0 OR p.fk_product_type != 0)'; if (empty($user->rights->service->hidden)) $sql.=' AND (p.hidden=0 OR p.fk_product_type != 1)'; } if($finished == 0) { $sql.= " AND p.finished = ".$finished; } elseif($finished == 1) { $sql.= " AND p.finished = ".$finished; if ($status >= 0) $sql.= " AND p.tosell = ".$status; } elseif($status >= 0) { $sql.= " AND p.tosell = ".$status; } if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype; // Add criteria on ref/label if (! empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE)) { if ($filterkey && $filterkey != '') { $sql.=" AND (p.ref like '".$filterkey."%' OR p.label like '".$filterkey."%'"; if ($conf->global->MAIN_MULTILANGS) $sql.=" OR pl.label like '".$filterkey."%'"; $sql.=")"; } } else { if ($filterkey && $filterkey != '') { $sql.=" AND (p.ref like '%".$filterkey."%' OR p.label like '%".$filterkey."%'"; if ($conf->global->MAIN_MULTILANGS) $sql.=" OR pl.label like '%".$filterkey."%'"; $sql.=")"; } } $sql.= $db->order("p.ref"); $sql.= $db->plimit($limit); // Build output string $outselect=''; $outjson=array(); dol_syslog("Form::select_produits_do search product sql=".$sql, LOG_DEBUG); $result=$this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); $outselect.=''; $this->db->free($result); if (empty($disableout)) print $outselect; return $outjson; } else { dol_print_error($db); } } /** * \brief Return list of products for customer in Ajax if Ajax activated or go to select_produits_fournisseurs_do * \param socid Id third party * \param selected Preselected product * \param htmlname Name of HTML Select * \param filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param filtre For a SQL filter */ function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtertype='',$filtre) { global $langs,$conf; if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT) { if ($conf->global->MAIN_USE_NEW_JQUERY) { // mode=2 means suppliers products print ajax_autocompleter2('',$htmlname,DOL_URL_ROOT.'/product/ajaxproducts.php','outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=2&status='.$status.'&finished='.$finished,''); print '

'; print ''.$langs->trans("RefOrLabel").':'; print ''; print '

'; } else { print $langs->trans("RefOrLabel").' : '; print ajax_updater($htmlname,'keysearch',DOL_URL_ROOT.'/product/ajaxproducts.php','&socid='.$socid.'&type='.$filtertype.'&mode=2','working'); } } else { $this->select_produits_fournisseurs_do($socid,$selected,$htmlname,$filtertype,$filtre,'',-1,0); } } /** * \brief Retourne la liste des produits de fournisseurs * \param socid Id societe fournisseur (0 pour aucun filtre) * \param selected Produit pre-selectionne * \param htmlname Nom de la zone select * \param filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param filtre Pour filtre sql * \param filterkey Filtre des produits * \param status -1=Return all products, 0=Products not on sell, 1=Products on sell * \param disableout Disable print output * \return array Array of keys for json */ function select_produits_fournisseurs_do($socid,$selected='',$htmlname='productid',$filtertype='',$filtre='',$filterkey='',$statut=-1,$disableout=0) { global $langs,$conf; $langs->load('stocks'); $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,"; $sql.= " pf.ref_fourn,"; $sql.= " pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.unitprice,"; $sql.= " s.nom"; $sql.= " FROM ".MAIN_DB_PREFIX."product as p"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_fournisseur as pf ON p.rowid = pf.fk_product"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON pf.fk_soc = s.rowid"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_fournisseur_price as pfp ON pf.rowid = pfp.fk_product_fournisseur"; $sql.= " WHERE p.entity = ".$conf->entity; $sql.= " AND p.tobuy = 1"; if ($socid) $sql.= " AND pf.fk_soc = ".$socid; if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype; if (! empty($filtre)) $sql.=" ".$filtre; // Add criteria on ref/label if (! empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE)) { if ($filterkey && $filterkey != '') $sql.=" AND (pf.ref_fourn like '%".$filterkey."%' OR p.ref like '%".$filterkey."%' OR p.label like '%".$filterkey."%')"; } else { if ($filterkey && $filterkey != '') $sql.=" AND (pf.ref_fourn like '".$filterkey."%' OR p.ref like '".$filterkey."%' OR p.label like '".$filterkey."%')"; } $sql.= " ORDER BY pf.ref_fourn DESC"; // Build output string $outselect=''; $outjson=array(); dol_syslog("Form::select_produits_fournisseurs_do sql=".$sql,LOG_DEBUG); $result=$this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); $outselect.=''; $this->db->free($result); if (empty($disableout)) print $outselect; return $outjson; } else { dol_print_error($db); } } /** * \brief Retourn list of suppliers prices for a product * \param productid Id of product */ function select_product_fourn_price($productid,$htmlname='productfournpriceid') { global $langs,$conf; $langs->load('stocks'); $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,"; $sql.= " pf.ref_fourn,"; $sql.= " pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.unitprice,"; $sql.= " s.nom"; $sql.= " FROM ".MAIN_DB_PREFIX."product as p"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_fournisseur as pf ON p.rowid = pf.fk_product"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON s.rowid = pf.fk_soc"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_fournisseur_price as pfp ON pf.rowid = pfp.fk_product_fournisseur"; $sql.= " WHERE p.tobuy = 1"; $sql.= " AND s.fournisseur = 1"; $sql.= " AND p.rowid = ".$productid; $sql.= " ORDER BY s.nom, pf.ref_fourn DESC"; dol_syslog("Form::select_product_fourn_price sql=".$sql,LOG_DEBUG); $result=$this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); $form = ''; $this->db->free($result); } return $form; } else { dol_print_error($db); } } /** * \brief Retourne la liste deroulante des adresses * \param selected Id contact pre-selectionn * \param htmlname Nom champ formulaire */ function select_address($selected='', $socid, $htmlname='address_id',$showempty=0) { // On recherche les utilisateurs $sql = "SELECT a.rowid, a.label"; $sql .= " FROM ".MAIN_DB_PREFIX ."societe_address as a"; $sql .= " WHERE a.fk_soc = ".$socid; $sql .= " ORDER BY a.label ASC"; dol_syslog("Form::select_address sql=".$sql); $resql=$this->db->query($sql); if ($resql) { print ''; return $num; } else { dol_print_error($this->db); } } /** * \brief Charge dans cache la liste des conditions de paiements possibles * \return int Nb lignes chargees, 0 si deja chargees, <0 si ko */ function load_cache_conditions_paiements() { global $langs; if (sizeof($this->cache_conditions_paiements)) return 0; // Cache deja charge $sql = "SELECT rowid, code, libelle"; $sql.= " FROM ".MAIN_DB_PREFIX.'c_payment_term'; $sql.= " WHERE active=1"; $sql.= " ORDER BY sortorder"; dol_syslog('Form::load_cache_conditions_paiements sql='.$sql,LOG_DEBUG); $resql = $this->db->query($sql); if ($resql) { $num = $this->db->num_rows($resql); $i = 0; while ($i < $num) { $obj = $this->db->fetch_object($resql); // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut $libelle=($langs->trans("PaymentConditionShort".$obj->code)!=("PaymentConditionShort".$obj->code)?$langs->trans("PaymentConditionShort".$obj->code):($obj->libelle!='-'?$obj->libelle:'')); $this->cache_conditions_paiements[$obj->rowid]['code'] =$obj->code; $this->cache_conditions_paiements[$obj->rowid]['label']=$libelle; $i++; } return 1; } else { dol_print_error($this->db); return -1; } } /** * \brief Charge dans cache la liste des types de paiements possibles * \return int Nb lignes chargees, 0 si deja chargees, <0 si ko */ function load_cache_types_paiements() { global $langs; if (sizeof($this->cache_types_paiements)) return 0; // Cache deja charge $sql = "SELECT id, code, libelle, type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement"; $sql.= " WHERE active > 0"; $sql.= " ORDER BY id"; dol_syslog('Form::load_cache_types_paiements sql='.$sql,LOG_DEBUG); $resql = $this->db->query($sql); if ($resql) { $num = $this->db->num_rows($resql); $i = 0; while ($i < $num) { $obj = $this->db->fetch_object($resql); // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut $libelle=($langs->trans("PaymentTypeShort".$obj->code)!=("PaymentTypeShort".$obj->code)?$langs->trans("PaymentTypeShort".$obj->code):($obj->libelle!='-'?$obj->libelle:'')); $this->cache_types_paiements[$obj->id]['code'] =$obj->code; $this->cache_types_paiements[$obj->id]['label']=$libelle; $this->cache_types_paiements[$obj->id]['type'] =$obj->type; $i++; } return $num; } else { dol_print_error($this->db); return -1; } } /** * \brief Retourne la liste des types de paiements possibles * \param selected Id du type de paiement pre-selectionne * \param htmlname Nom de la zone select * \param filtertype Pour filtre * \param addempty Ajoute entree vide */ function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1,$addempty=0) { global $langs,$user; $this->load_cache_conditions_paiements(); print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } /** * \brief Retourne la liste des modes de paiements possibles * \param selected Id du mode de paiement pre-selectionne * \param htmlname Nom de la zone select * \param filtertype To filter on field type in llx_c_paiement * \param format 0=id+libelle, 1=code+code, 2=code+libelle * \param empty 1=peut etre vide, 0 sinon * \param noadmininfo 0=Add admin info, 1=Disable admin info */ function select_types_paiements($selected='',$htmlname='paiementtype',$filtertype='',$format=0, $empty=0, $noadmininfo=0) { global $langs,$user; dol_syslog("Form::select_type_paiements $selected, $htmlname, $filtertype, $format",LOG_DEBUG); $filterarray=array(); if ($filtertype == 'CRDT') $filterarray=array(0,2); elseif ($filtertype == 'DBIT') $filterarray=array(1,2); elseif ($filtertype != '' && $filtertype != '-1') $filterarray=explode(',',$filtertype); $this->load_cache_types_paiements(); print ''; if ($user->admin && ! $noadmininfo) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } /** * \brief Selection HT ou TTC * \param selected Id pre-selectionne * \param htmlname Nom de la zone select */ function select_PriceBaseType($selected='',$htmlname='price_base_type') { print $this->load_PriceBaseType($selected,$htmlname); } /** * \brief Selection HT ou TTC * \param selected Id pre-selectionne * \param htmlname Nom de la zone select */ function load_PriceBaseType($selected='',$htmlname='price_base_type') { global $langs; $return=''; $return.= ''; return $return; } /** * \brief Retourne la liste deroulante des differents etats d'une propal. * Les valeurs de la liste sont les id de la table c_propalst * \param selected etat pre-selectionne */ function select_propal_statut($selected='') { $sql = "SELECT id, code, label, active FROM ".MAIN_DB_PREFIX."c_propalst"; $sql .= " WHERE active = 1"; dol_syslog("Form::select_propal_statut sql=".$sql); $resql=$this->db->query($sql); if ($resql) { print ''; } else { dol_print_error($this->db); } } /** * Return list of bank accounts * @param selected Id account pre-selected * @param htmlname Name of select zone * @param statut Status of searched accounts (0=open, 1=closed) * @param filtre To filter list * @param useempty Add an empty value in list */ function select_comptes($selected='',$htmlname='accountid',$statut=0,$filtre='',$useempty=0) { global $langs, $conf; $langs->load("admin"); $sql = "SELECT rowid, label, bank"; $sql.= " FROM ".MAIN_DB_PREFIX."bank_account"; $sql.= " WHERE clos = '".$statut."'"; $sql.= " AND entity = ".$conf->entity; if ($filtre) $sql.=" AND ".$filtre; $sql.= " ORDER BY label"; dol_syslog("Form::select_comptes sql=".$sql); $result = $this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); $i = 0; if ($num) { print '"; } else { print $langs->trans("NoActiveBankAccountDefined"); } } else { dol_print_error($this->db); } } /** * \brief Retourne la liste des categories du type choisi * \param type Type de categories (0=produit, 1=fournisseur, 2=client) * \param selected Id categorie preselectionnee * \param select_name Nom formulaire HTML */ function select_all_categories($type,$selected='',$select_name="",$maxlength=64) { global $langs; $langs->load("categories"); if ($select_name=="") $select_name="catMere"; $cat = new Categorie($this->db); $cate_arbo = $cat->get_full_arbo($type); $output = ''; $output.= "\n"; return $output; } /** * Show a confirmation HTML form or AJAX popup * @param page Url of page to call if confirmation is OK * @param title title * @param question question * @param action action * @param formquestion an array with forms complementary inputs * @param selectedchoice "" or "no" or "yes" * @param useajax 0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No * @return string 'ajax' if a confirm ajax popup is shown, 'html' if it's an html form */ function form_confirm($page, $title, $question, $action, $formquestion='', $selectedchoice="", $useajax=0) { print $this->formconfirm($page, $title, $question, $action, $formquestion, $selectedchoice, $useajax); } /** * Show a confirmation HTML form or AJAX popup * @param page Url of page to call if confirmation is OK * @param title title * @param question question * @param action action * @param formquestion an array with forms complementary inputs * @param selectedchoice "" or "no" or "yes" * @param useajax 0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No * @return string 'ajax' if a confirm ajax popup is shown, 'html' if it's an html form */ function formconfirm($page, $title, $question, $action, $formquestion='', $selectedchoice="", $useajax=0) { global $langs,$conf; $more=''; $formconfirm=''; if ($formquestion) { $more.=''."\n"; $more.=''."\n"; $more.=''."\n"; foreach ($formquestion as $key => $input) { if ($input['type'] == 'text') { $more.=''."\n"; } if ($input['type'] == 'select') { $more.=''."\n"; } if ($input['type'] == 'checkbox') { $more.=''; //$more.=''; if ($i==0) $more.=''; else $more.=''; $more.='

'.$formquestion['text'].'

'.$input['label'].'

'; $more.=$this->selectarray($input['name'],$input['values'],'',1); $more.='

'.$input['label'].' '; $more.='

'.$input['label'].'

'; $more.=' $selval) { $more.='

'.$input['label'].'

use_javascript_ajax && $conf->global->MAIN_CONFIRM_AJAX) { $pageyes=$page.'&action='.$action.'&confirm=yes'; $pageno=($useajax == 2?$page.'&confirm=no':''); // New code using jQuery only $formconfirm.= '

'; $formconfirm.= img_help('','').' '.$more.$question; $formconfirm.= '

'."\n"; $formconfirm.= ''; $formconfirm.= "\n"; } else { $formconfirm.= '

'."\n"; $formconfirm.= ''; $formconfirm.= ''."\n"; $formconfirm.= ''."\n"; // Ligne titre $formconfirm.= ''."\n"; // Ligne formulaire $formconfirm.= $more; // Ligne message $formconfirm.= ''; $formconfirm.= ''; $formconfirm.= ''; $formconfirm.= ''; $formconfirm.= ''."\n"; $formconfirm.= '

'.img_picto('','recent').' '.$title.'
'.$question.'	'; $newselectedchoice=empty($selectedchoice)?"no":$selectedchoice; $formconfirm.= $this->selectyesno("confirm",$newselectedchoice); $formconfirm.= '

'."\n"; if (is_array($formquestion)) { foreach ($formquestion as $key => $input) { if ($input['type'] == 'hidden') $formconfirm.= ''; } } $formconfirm.= "

\n"; $formconfirm.= '
'; } $formconfirm.= "\n"; return $formconfirm; } /** * \brief Affiche formulaire de selection de projet * \param page Page * \param socid Id societe * \param selected Id projet pre-selectionne * \param htmlname Nom du formulaire select */ function form_project($page, $socid, $selected='', $htmlname='projectid') { global $langs; require_once(DOL_DOCUMENT_ROOT."/lib/project.lib.php"); $langs->load("project"); if ($htmlname != "none") { print ''; } else { if ($selected) { $projet = new Project($this->db); $projet->fetch($selected); //print ''.$projet->title.''; print $projet->getNomUrl(0); } else { print " "; } } } /** * \brief Affiche formulaire de selection de conditions de paiement * \param page Page * \param selected Id condition pre-selectionne * \param htmlname Name of select html field * \param addempty Ajoute entree vide */ function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id', $addempty=0) { global $langs; if ($htmlname != "none") { print ''; } else { if ($selected) { $this->load_cache_conditions_paiements(); print $this->cache_conditions_paiements[$selected]['label']; } else { print " "; } } } /** * \brief Affiche formulaire de selection d'une date * \param page Page * \param selected Date preselected * \param htmlname Name of input html field */ function form_date($page, $selected='', $htmlname) { global $langs; if ($htmlname != "none") { print ''; } else { if ($selected) { $this->load_cache_types_paiements(); print $this->cache_types_paiements[$selected]['label']; } else { print " "; } } } /** * \brief Affiche formulaire de selection d'un utilisateur * \param page Page * \param selected Id of user preselected * \param htmlname Name of input html field * \param exclude List of users id to exclude * \param include List of users id to include */ function form_users($page, $selected='', $htmlname='userid', $exclude='', $include='') { global $langs; if ($htmlname != "none") { print ''; } else { if ($selected) { require_once(DOL_DOCUMENT_ROOT ."/user/class/user.class.php"); //$this->load_cache_contacts(); //print $this->cache_contacts[$selected]; $theuser=new User($this->db); $theuser->fetch($selected); print $theuser->getNomUrl(1); } else { print " "; } } } /** * \brief Affiche formulaire de selection des modes de reglement * \param page Page * \param selected Id mode pre-selectionne * \param htmlname Name of select html field */ function form_modes_reglement($page, $selected='', $htmlname='mode_reglement_id') { global $langs; if ($htmlname != "none") { print ''; } else { if ($selected) { $this->load_cache_types_paiements(); print $this->cache_types_paiements[$selected]['label']; } else { print " "; } } } /** * \brief Affiche formulaire de selection de la remise fixe * \param page Page URL where form is shown * \param selected Value pre-selected * \param htmlname Nom du formulaire select. Si none, non modifiable * \param socid Third party id * \param amount Total amount available * \param filter SQL filter on discounts * \param maxvalue Max value for lines that can be selected */ function form_remise_dispo($page, $selected='', $htmlname='remise_id',$socid, $amount, $filter='', $maxvalue=0) { global $conf,$langs; if ($htmlname != "none") { print '

'; print ''; print ''; print ''; print ''; print ''; print '

'; if (! $filter || $filter=='fk_facture_source IS NULL') print $langs->trans("CompanyHasAbsoluteDiscount",price($amount),$langs->transnoentities("Currency".$conf->monnaie)).': '; else print $langs->trans("CompanyHasCreditNote",price($amount),$langs->transnoentities("Currency".$conf->monnaie)).': '; // print $langs->trans("AvailableGlobalDiscounts").': '; $newfilter='fk_facture IS NULL AND fk_facture_line IS NULL'; // Remises disponibles if ($filter) $newfilter.=' AND '.$filter; $nbqualifiedlines=$this->select_remises('',$htmlname,$newfilter,$socid,$maxvalue); print '

'; if ($nbqualifiedlines > 0) { print ' trans("UseCredit"); print '" title="'.$langs->trans("UseCreditNoteInInvoicePayment").'">'; } print '

'; } else { if ($selected) { print $selected; } else { print "0"; } } } /** * \brief Affiche formulaire de selection des contacts * \param page Page * \param selected Id contact pre-selectionne * \param htmlname Nom du formulaire select */ function form_contacts($page, $societe, $selected='', $htmlname='contactidp') { global $langs; if ($htmlname != "none") { print ''; } else { if ($selected) { require_once(DOL_DOCUMENT_ROOT ."/contact/class/contact.class.php"); //$this->load_cache_contacts(); //print $this->cache_contacts[$selected]; $contact=new Contact($this->db); $contact->fetch($selected); print $contact->getFullName($langs); } else { print " "; } } } /** * \brief Affiche formulaire de selection de l'adresse * \param page Page * \param selected Id condition pre-selectionne * \param htmlname Nom du formulaire select * \param origin Origine de l'appel pour pouvoir creer un retour * \param originid Id de l'origine */ function form_address($page, $selected='', $socid, $htmlname='address_id', $origin='', $originid='') { global $langs,$conf; if ($htmlname != "none") { print ''; } else { if ($selected) { require_once(DOL_DOCUMENT_ROOT ."/societe/class/address.class.php"); $address=new Address($this->db); $result=$address->fetch_address($selected); print ''.$address->label.''; } else { print " "; } } } /** * \brief Retourne la liste des devises, dans la langue de l'utilisateur * \param selected code devise pre-selectionne * \param htmlname nom de la liste deroulante * \todo trier liste sur noms apres traduction plutot que avant */ function select_currency($selected='',$htmlname='currency_id') { global $conf,$langs,$user; $langs->load("dict"); if ($selected=='euro' || $selected=='euros') $selected='EUR'; // Pour compatibilite $sql = "SELECT code, code_iso, label, active"; $sql.= " FROM ".MAIN_DB_PREFIX."c_currencies"; $sql.= " WHERE active = 1"; $sql.= " ORDER BY code_iso ASC"; $resql=$this->db->query($sql); if ($resql) { print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); return 0; } else { dol_print_error($this->db); return 1; } } /** * \brief Output an HTML select vat rate * \param name Nom champ html * \param selectedrate Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage. * \param societe_vendeuse Objet societe vendeuse * \param societe_acheteuse Objet societe acheteuse * \param idprod Id product * \param info_bits Miscellanous information on line * \param type ''=Unknown, 0=Product, 1=Service (Used if idprod not defined) * \remarks Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle. * Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle. * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par defaut=0 (La TVA doit etre paye par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de regle. * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu autre que transport neuf alors la TVA par defaut=TVA du produit vendu. Fin de regle. * Sinon la TVA proposee par defaut=0. Fin de regle. */ function select_tva($name='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $idprod=0, $info_bits=0, $type='') { print $this->load_tva($name, $selectedrate, $societe_vendeuse, $societe_acheteuse, $idprod, $info_bits, $type); } /** * \brief Output an HTML select vat rate * \param name Nom champ html * \param selectedrate Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage. * \param societe_vendeuse Objet societe vendeuse * \param societe_acheteuse Objet societe acheteuse * \param idprod Id product * \param info_bits Miscellanous information on line * \param type ''=Unknown, 0=Product, 1=Service (Used if idprod not defined) * \remarks Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle. * Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle. * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par defaut=0 (La TVA doit etre paye par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de regle. * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu autre que transport neuf alors la TVA par defaut=TVA du produit vendu. Fin de regle. * Sinon la TVA proposee par defaut=0. Fin de regle. */ function load_tva($name='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $idprod=0, $info_bits=0, $type='') { global $langs,$conf,$mysoc; $return=''; $txtva=array(); $libtva=array(); $nprtva=array(); // Define defaultnpr and defaultttx $defaultnpr=($info_bits & 0x01); $defaultnpr=(preg_match('/\*/',$selectedrate) ? 1 : $defaultnpr); $defaulttx=str_replace('*','',$selectedrate); // Check parameters if (is_object($societe_vendeuse) && ! $societe_vendeuse->pays_code) { if ($societe_vendeuse->id == $mysoc->id) { $return.= ''.$langs->trans("ErrorYourCountryIsNotDefined").''; } else { $return.= ''.$langs->trans("ErrorSupplierCountryIsNotDefined").''; } return $return; } //var_dump($societe_acheteuse); //print "name=$name, selectedrate=$selectedrate, seller=".$societe_vendeuse->pays_code." buyer=".$societe_acheteuse->pays_code." buyer is company=".$societe_acheteuse->isACompany()." idprod=$idprod, info_bits=$info_bits type=$type"; //exit; // Get list of all VAT rates to show // First we defined code_pays to use to find list if (is_object($societe_vendeuse)) { $code_pays="'".$societe_vendeuse->pays_code."'"; } else { $code_pays="'".$mysoc->pays_code."'"; // Pour compatibilite ascendente } if (! empty($conf->global->SERVICE_ARE_ECOMMERCE_200238EC)) // If option to have vat for end customer for services is on { if (! $societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC() && ! $societe_acheteuse->isACompany()) { // We also add the buyer if (is_numeric($type)) { if ($type == 1) // We know product is a service { $code_pays.=",'".$societe_acheteuse->pays_code."'"; } } else if (! $idprod) // We don't know type of product { $code_pays.=",'".$societe_acheteuse->pays_code."'"; } else { $prodstatic=new Product($this->db); $prodstatic->fetch($idprod); if ($prodstatic->type == 1) // We know product is a service { $code_pays.=",'".$societe_acheteuse->pays_code."'"; } } } } // Now we get list $sql = "SELECT DISTINCT t.taux, t.recuperableonly"; $sql.= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p"; $sql.= " WHERE t.fk_pays = p.rowid"; $sql.= " AND t.active = 1"; $sql.= " AND p.code in (".$code_pays.")"; $sql.= " ORDER BY t.taux ASC, t.recuperableonly ASC"; $resql=$this->db->query($sql); if ($resql) { $num = $this->db->num_rows($resql); if ($num) { for ($i = 0; $i < $num; $i++) { $obj = $this->db->fetch_object($resql); $txtva[$i] = $obj->taux; $libtva[$i] = $obj->taux.'%'; $nprtva[$i] = $obj->recuperableonly; } } else { $return.= ''.$langs->trans("ErrorNoVATRateDefinedForSellerCountry",$code_pays).''; } } else { $return.= ''.$this->db->error().''; } // Definition du taux a pre-selectionner (si defaulttx non force et donc vaut -1 ou '') if ($defaulttx < 0 || dol_strlen($defaulttx) == 0) { $defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$idprod); $defaultnpr=get_default_npr($societe_vendeuse,$societe_acheteuse,$idprod); } // Si taux par defaut n'a pu etre determine, on prend dernier de la liste. // Comme ils sont tries par ordre croissant, dernier = plus eleve = taux courant if ($defaulttx < 0 || dol_strlen($defaulttx) == 0) { $defaulttx = $txtva[sizeof($txtva)-1]; } $nbdetaux = sizeof($txtva); if ($nbdetaux > 0) { $return.= ''; } return $return; } /** * Affiche zone de selection de date * Liste deroulante pour les jours, mois, annee et eventuellement heurs et minutes * Les champs sont pre-selectionnes avec: * - La date set_time (Local PHP server timestamps ou date au format YYYY-MM-DD ou YYYY-MM-DD HH:MM) * - La date local du server PHP si set_time vaut '' * - Aucune date (champs vides) si set_time vaut -1 (dans ce cas empty doit valoir 1) * @param set_time Pre-selected date (must be a local PHP server timestamp) * @param prefix Prefix pour nom champ * @param h 1=Affiche aussi les heures * @param m 1=Affiche aussi les minutes * @param empty 0=Champ obligatoire, 1=Permet une saisie vide * @param form_name Nom du formulaire de provenance. Utilise pour les dates en popup. * @param d 1=Affiche aussi les jours, mois, annees * @param addnowbutton Add a button "Now" * @param nooutput Do not output html string but return it * @param disabled Disable input fields * @return nothing or string if nooutput is 1 */ function select_date($set_time='', $prefix='re', $h=0, $m=0, $empty=0, $form_name="", $d=1, $addnowbutton=0, $nooutput=0, $disabled=0) { global $conf,$langs; $retstring=''; if($prefix=='') $prefix='re'; if($h == '') $h=0; if($m == '') $m=0; if($empty == '') $empty=0; if (! $set_time && $empty == 0) $set_time = time(); // Analyse de la date de pre-selection if (preg_match('/^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?/',$set_time,$reg)) { // Date au format 'YYYY-MM-DD' ou 'YYYY-MM-DD HH:MM:SS' $syear = $reg[1]; $smonth = $reg[2]; $sday = $reg[3]; $shour = $reg[4]; $smin = $reg[5]; } elseif (strval($set_time) != '' && $set_time != -1) { // set_time est un timestamps (0 possible) $syear = dol_print_date($set_time, "%Y"); $smonth = dol_print_date($set_time, "%m"); $sday = dol_print_date($set_time, "%d"); $shour = dol_print_date($set_time, "%H"); $smin = dol_print_date($set_time, "%M"); } else { // Date est '' ou vaut -1 $syear = ''; $smonth = ''; $sday = ''; $shour = ''; $smin = ''; } if ($d) { /* * Affiche date en popup */ if ($conf->use_javascript_ajax && $conf->use_popup_calendar) { //print "e".$set_time." t ".$conf->format_date_short; if (strval($set_time) != '' && $set_time != -1) { //$formated_date=dol_print_date($set_time,$conf->format_date_short); $formated_date=dol_print_date($set_time,$langs->trans("FormatDateShort")); // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript } // Calendrier popup version eldy if ("$conf->use_popup_calendar" == "eldy") // Laisser conf->use_popup_calendar entre quote { // Zone de saisie manuelle de la date $retstring.='trans("FormatDateShortJava").'\'); "'; // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript $retstring.='>'; // Icone calendrier if (! $disabled) { $retstring.=''; } $retstring.=''."\n"; $retstring.=''."\n"; $retstring.=''."\n"; } else { print "Bad value of calendar"; // Calendrier popup version defaut /* if ($langs->defaultlang != "") { $retstring.=''; } $retstring.=''; $retstring.='trans("FormatDateShortJava").'\')"'; $retstring.='> '; $retstring.=''."\n"; $retstring.=''."\n"; $retstring.=''."\n"; if ($form_name =="") { $retstring.=''; $retstring.='

'; $retstring.=''; } else { $retstring.=''; $retstring.='

'; $retstring.=''; } */ } } /* * Affiche date en select */ if (! $conf->use_javascript_ajax || ! $conf->use_popup_calendar) { // Jour $retstring.=''; if ($empty || $set_time == -1) { $retstring.=''; } for ($day = 1 ; $day <= 31; $day++) { if ($day == $sday) { $retstring.=""; } $retstring.=""; $retstring.=''; if ($empty || $set_time == -1) { $retstring.=''; } // Month for ($month = 1 ; $month <= 12 ; $month++) { $retstring.='"; } $retstring.=""; // Year if ($empty || $set_time == -1) { $retstring.=''; } else { $retstring.=''; for ($year = $syear - 5; $year < $syear + 10 ; $year++) { if ($year == $syear) { $retstring.=""; } $retstring.="\n"; } } } if ($d && $h) $retstring.=' '; if ($h) { /* * Affiche heure en select */ $retstring.=''; if ($empty) $retstring.=''; for ($hour = 0; $hour < 24; $hour++) { if (dol_strlen($hour) < 2) { $hour = "0" . $hour; } if ($hour == $shour) { $retstring.=""; } else { $retstring.=""; } } $retstring.=""; $retstring.="H\n"; } if ($m) { /* * Affiche min en select */ $retstring.=''; if ($empty) $retstring.=''; for ($min = 0; $min < 60 ; $min++) { if (dol_strlen($min) < 2) { $min = "0" . $min; } if ($min == $smin) { $retstring.=""; } else { $retstring.=""; } } $retstring.=""; $retstring.="M\n"; } // Added by Matelli http://matelli.fr/showcases/patchs-dolibarr/update-date-input-in-action-form.html) // "Now" button if ($conf->use_javascript_ajax && $addnowbutton) { // Script which will be inserted in the OnClick of the "Now" button $reset_scripts = ""; // Generate the date part, depending on the use or not of the javascript calendar if ($conf->use_popup_calendar) { $base=DOL_URL_ROOT.'/lib/'; $reset_scripts .= 'resetDP(\''.$base.'\',\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\',\''.$langs->defaultlang.'\');'; } else { $reset_scripts .= 'this.form.elements[\''.$prefix.'day\'].value=formatDate(new Date(), \'d\'); '; $reset_scripts .= 'this.form.elements[\''.$prefix.'month\'].value=formatDate(new Date(), \'M\'); '; $reset_scripts .= 'this.form.elements[\''.$prefix.'year\'].value=formatDate(new Date(), \'yyyy\'); '; } // Generate the hour part if ($h) { $reset_scripts .= 'this.form.elements[\''.$prefix.'hour\'].value=formatDate(new Date(), \'HH\'); '; } // Generate the minute part if ($m) { $reset_scripts .= 'this.form.elements[\''.$prefix.'min\'].value=formatDate(new Date(), \'mm\'); '; } // If reset_scripts is not empty, print the button with the reset_scripts in OnClick if ($reset_scripts) { $retstring.=' '; } } if (! empty($nooutput)) return $retstring; print $retstring; return; } /** * \brief Function to show a form to select a duration on a page * \param prefix prefix * \param iSecond Default preselected duration (number of seconds) * \param disabled Disable the combo box */ function select_duration($prefix,$iSecond='',$disabled=0) { if ($iSecond) { require_once(DOL_DOCUMENT_ROOT."/lib/date.lib.php"); $hourSelected = ConvertSecondToTime($iSecond,'hour'); $minSelected = ConvertSecondToTime($iSecond,'min'); } print '"; print "H "; print '"; print "M "; } /** * \brief Show a select form from an array * \param htmlname Nom de la zone select * \param array Tableau de key+valeur * \param id Preselected key * \param show_empty 1 si il faut ajouter une valeur vide dans la liste, 0 sinon * \param key_in_label 1 pour afficher la key dans la valeur "[key] value" * \param value_as_key 1 to use value as key * \param option Valeur de l'option en fonction du type choisi * \param translate Traduire la valeur * \param maxlen Length maximum for labels * \param disabled Html select box is disabled * \return string HTML select string */ function selectarray($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $option='', $translate=0, $maxlen=0, $disabled=0) { global $langs; $out='"; return $out; } /** * Show a select form from an array * @deprecated Use selectarray instead */ function select_array($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $option='', $translate=0, $maxlen=0) { print $this->selectarray($htmlname, $array, $id, $show_empty, $key_in_label, $value_as_key, $option, $translate, $maxlen); } /** * \brief Return an html string with a select combo box to choose yes or no * \param name Name of html select field * \param value Pre-selected value * \param option 0 return yes/no, 1 return 1/0 * \return int or string See option */ function selectyesno($htmlname,$value='',$option=0) { global $langs; $yes="yes"; $no="no"; if ($option) { $yes="1"; $no="0"; } $resultyesno = ''."\n"; return $resultyesno; } /** * \brief Retourne la liste des modeles d'export * \param selected Id modele pre-selectionne * \param htmlname Nom de la zone select * \param type Type des modeles recherches * \param useempty Affiche valeur vide dans liste */ function select_export_model($selected='',$htmlname='exportmodelid',$type='',$useempty=0) { $sql = "SELECT rowid, label"; $sql.= " FROM ".MAIN_DB_PREFIX."export_model"; $sql.= " WHERE type = '".$type."'"; $sql.= " ORDER BY rowid"; $result = $this->db->query($sql); if ($result) { print '"; } else { dol_print_error($this->db); } } /** * \brief Return HTML combo list of week * \param selected Preselected value * \param htmlname Nom de la zone select * \param useempty Affiche valeur vide dans liste * TODO Move into html.formother */ function select_dayofweek($selected='',$htmlname='weekid',$useempty=0) { global $langs; $week = array( 0=>$langs->trans("Day0"), 1=>$langs->trans("Day1"), 2=>$langs->trans("Day2"), 3=>$langs->trans("Day3"), 4=>$langs->trans("Day4"), 5=>$langs->trans("Day5"), 6=>$langs->trans("Day6")); $select_week = ''; return $select_week; } /** * \brief Return HTML combo list of month * \param selected Preselected value * \param htmlname Nom de la zone select * \param useempty Affiche valeur vide dans liste * TODO Move into html.formother */ function select_month($selected='',$htmlname='monthid',$useempty=0) { $month = monthArrayOrSelected(-1); // Get array $select_month = ''; return $select_month; } /** * \brief Return HTML combo list of years * \param selected Preselected value * \param htmlname Name of HTML select object * \param useempty Affiche valeur vide dans liste * \param $min_year Valeur minimum de l'annee dans la liste (par defaut annee courante -10) * \param $max_year Valeur maximum de l'annee dans la liste (par defaut annee courante + 5) * TODO Move into html.formother */ function select_year($selected='',$htmlname='yearid',$useempty=0, $min_year='', $max_year='') { if($max_year == '') $max_year = date("Y") +5; if($min_year == '') $min_year = date("Y") - 10; print '\n"; } /** * Return a HTML area with the reference of object and a naviagation bar for a business object * To add a particular filter on select, you must set $object->next_prev_filter to SQL criteria. * @param object Object to show * @param paramid Name of parameter to use to name the id into the URL link * @param morehtml More html content to output just before the nav bar * @param shownav Show Condition (navigation is shown if value is 1) * @param fieldid Nom du champ en base a utiliser pour select next et previous * @param fieldref Nom du champ objet ref (object->ref) a utiliser pour select next et previous * @param morehtmlref Code html supplementaire a afficher apres ref * @param moreparam More param to add in nav link url. * @return string Portion HTML avec ref + boutons nav */ function showrefnav($object,$paramid,$morehtml='',$shownav=1,$fieldid='rowid',$fieldref='ref',$morehtmlref='',$moreparam='') { $ret=''; //print "$paramid,$morehtml,$shownav,$fieldid,$fieldref,$morehtmlref,$moreparam"; $object->load_previous_next_ref($object->next_prev_filter,$fieldid); $previous_ref = $object->ref_previous?''.img_previous().'':''; $next_ref = $object->ref_next?''.img_next().'':''; //print "xx".$previous_ref."x".$next_ref; if ($previous_ref || $next_ref || $morehtml) { $ret.=''; $ret.='

'; } $ret.=$object->$fieldref; if ($morehtmlref) { $ret.=' '.$morehtmlref; } if ($morehtml) { $ret.='

'.$morehtml; } if ($shownav && ($previous_ref || $next_ref)) { $ret.='

'.$previous_ref.'

'.$next_ref; } if ($previous_ref || $next_ref || $morehtml) { $ret.='

'; } return $ret; } /** * \brief Return HTML code to output a photo * \param modulepart Id to define module concerned * \param object Object containing data to retrieve file name * \param width Width of photo * \return string HTML code to output photo */ function showphoto($modulepart,$object,$width=100) { global $conf; $ret='';$dir='';$file='';$email=''; if ($modulepart=='userphoto') { $dir=$conf->user->dir_output; $file=get_exdir($object->id,2).$object->photo; $altfile=$object->id.".jpg"; // For backward compatibility $email=$object->email; } if ($modulepart=='memberphoto') { $dir=$conf->adherent->dir_output; $file=get_exdir($object->id,2).'photos/'.$object->photo; $altfile=$object->id.".jpg"; // For backward compatibility $email=$object->email; } if ($dir && $file) { if (file_exists($dir."/".$file)) { $ret.='

'; } else if (file_exists($dir."/".$altfile)) { $ret.='

'; } else { if ($conf->gravatar->enabled) { global $dolibarr_main_url_root; $ret.=''; $ret.='

'; } else { $ret.=' No photo

'; } } } else { dol_print_error('','Call to showrefnav with wrong parameters'); } return $ret; } } ?>