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

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

'; if ($obj->rowid == 0) { print ''; } else { print ''; } print ajax_autocompleter($pays_id,'pays','/societe/ajaxcountries.php','working'); } else { print ''; $num = $this->db->num_rows($resql); $i = 0; if ($num) { $foundselected=false; while ($i < $num) { $obj = $this->db->fetch_object($resql); if ($selected && $selected != '-1' && ($selected == $obj->rowid || $selected == $obj->code || $selected == $obj->libelle) ) { $foundselected=true; print ''; } else { print ''; } // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut if ($obj->code) { print $obj->code . ' - '; } print ($obj->code && $langs->trans("Country".$obj->code)!="Country".$obj->code?$langs->trans("Country".$obj->code):($obj->libelle!='-'?$obj->libelle:' ')); print ''; $i++; } } print ''; return 0; } } else { dolibarr_print_error($this->db); return 1; } } /** * \brief Retourne la liste déroulante des langues disponibles * \param selected Langue pré-sélectionnée * \param htmlname Nom de la zone select * \param showauto Affiche choix auto */ function select_lang($selected='',$htmlname='lang_id',$showauto=0) { global $langs; $langs_available=$langs->get_available_languages(); print ''; if ($showauto) { print ''.$langs->trans("AutoDetectLang").''; } $num = count($langs_available); $i = 0; if ($num) { while ($i < $num) { if ($selected == $langs_available[$i]) { print ''.$langs_available[$i].''; } else { print ''.$langs_available[$i].''; } $i++; } } print ''; } /** * \brief Retourne la liste des types de comptes financiers * \param selected Type pré-sélectionné * \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 ''; $num = count($type_available); $i = 0; if ($num) { while ($i < $num) { if ($selected == $type_available[$i]) { print ''.$langs->trans("BankType".$type_available[$i]).''; } else { print ''.$langs->trans("BankType".$type_available[$i]).''; } $i++; } } print ''; } /** * \brief Retourne la liste des types de comptes financiers * \param selected Type pré-sélectionné * \param htmlname Nom champ formulaire */ function select_type_actions($selected='',$htmlname='actioncode') { global $langs,$user; require_once(DOL_DOCUMENT_ROOT."/cactioncomm.class.php"); $caction=new CActionComm($this->db); $arraylist=$caction->liste_array(1,'code'); $arraylist[0]=' '; asort($arraylist); $this->select_array($htmlname, $arraylist, $selected); if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } /** * \brief Retourne la liste des types de comptes financiers * \param selected Type pré-sélectionné * \param htmlname Nom champ formulaire */ function select_type_socialcontrib($selected='',$htmlname='actioncode') { global $db,$langs,$user; $sql = "SELECT c.id, c.libelle as type FROM ".MAIN_DB_PREFIX."c_chargesociales as c"; $sql .= " ORDER BY lower(c.libelle) ASC"; $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; while ($i < $num) { $obj = $db->fetch_object($resql); print ''.$obj->type; $i++; } } print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } /** * \brief Output html form to select a third party * \param selected Societe pré-sélectionnée * \param htmlname Nom champ formulaire * \param filter Criteres optionnels de filtre * \param showempty Add an empty field */ function select_societes($selected='',$htmlname='socid',$filter='',$showempty=0) { global $conf,$user; // On recherche les societes $sql = "SELECT s.rowid, s.nom"; $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 1=1"; if ($filter) $sql.= " AND ".$filter; if ($selected && $conf->use_javascript_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT) { $sql.= " AND rowid = ".$selected; } if (!$user->rights->societe->client->voir && !$user->societe_id) //restriction { $sql.= " AND s.rowid = sc.fk_soc AND sc.fk_user = " .$user->id; } $sql.= " ORDER BY nom ASC"; dolibarr_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) { $socid = 0; if ($selected) { $obj = $this->db->fetch_object($resql); $socid = $obj->rowid?$obj->rowid:''; } print ''; print ''; print ''; print '

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

'; print ajax_indicator($htmlname,'working'); print '

'; } else { print ''; if ($showempty) print ' '; $num = $this->db->num_rows($resql); $i = 0; if ($num) { while ($i < $num) { $obj = $this->db->fetch_object($resql); if ($selected > 0 && $selected == $obj->rowid) { print ''.$obj->nom.''; } else { print ''.$obj->nom.''; } $i++; } } print ''; } } else { dolibarr_print_error($this->db); } } /** * \brief Retourne la liste déroulante des remises fixes * \param selected Id remise fixe pré-sélectionnée * \param htmlname Nom champ formulaire * \param filter Criteres optionnels de filtre */ function select_remises($selected='',$htmlname='remise_id',$filter='',$socid) { 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"; dolibarr_syslog("Form::select_remises sql=".$sql); $resql=$this->db->query($sql); if ($resql) { print ''; $num = $this->db->num_rows($resql); $i = 0; if ($num) { print ' '; while ($i < $num) { $obj = $this->db->fetch_object($resql); $desc=dolibarr_trunc($obj->description,40); if ($desc=='(CREDIT_NOTE)') { $desc=$langs->trans("CreditNote"); //$desc.=$obj->fk_facture_source; } if ($selected > 0 && $selected == $obj->rowid) { print ''.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')'; } else { print ''.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')'; } $i++; } } print ''; } else { dolibarr_print_error($this->db); } } /** * \brief Retourne la liste déroulante des contacts d'une société donnée * \param socid Id de la société * \param selected Id contact pré-sélectionné * \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 à exclure * \return int <0 if KO, Nb of contact in list if OK */ function select_contacts($socid,$selected='',$htmlname='contactid',$showempty=0,$exclude='') { // 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"; dolibarr_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 ''; if ($showempty) print ' '; $num = $this->db->num_rows($resql); $i = 0; if ($num) { while ($i < $num) { $obj = $this->db->fetch_object($resql); if ($htmlname != 'none') { if ($selected && $selected == $obj->rowid) { print ''.$obj->name.' '.$obj->firstname.''; } else { print ''.$obj->name.' '.$obj->firstname.''; } } else { if ($selected == $obj->rowid) print $obj->name.' '.$obj->firstname; } $i++; } } if ($htmlname != 'none') { print ''; } return $num; } else { dolibarr_print_error($this->db); return -1; } } /** * \brief Retourne la liste déroulante des utilisateurs * \param selected Id user preselected * \param htmlname Field name in form * \param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue * \param disabled If select list must be disabled * \param exclude Liste des id utilisateurs à exclure */ function select_users($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0) { // Permettre l'exclusion d'utilisateurs if (is_array($exclude)) { $excludeUsers = implode("','",$exclude); } // On recherche les utilisateurs $sql = "SELECT u.rowid, u.name, u.firstname FROM "; $sql.= MAIN_DB_PREFIX ."user as u"; if (is_array($exclude) && $excludeUsers) $sql.= " WHERE u.rowid NOT IN ('".$excludeUsers."')"; $sql.= " ORDER BY u.name ASC"; dolibarr_syslog("Form::select_users sql=".$sql); if ($this->db->query($sql)) { print ''; if ($show_empty) print ' '."\n"; $num = $this->db->num_rows(); $i = 0; if ($num) { while ($i < $num) { $obj = $this->db->fetch_object(); if ($selected && $selected == $obj->rowid) { print ''.$obj->name.' '.$obj->firstname.''; } else { print ''.$obj->name.' '.$obj->firstname.''; } $i++; } } print ''; } else { dolibarr_print_error($this->db); } } /** \brief Retourne la liste des produits en Ajax si ajax activé ou renvoie à select_produits_do \param selected Produit pré-sélectionné \param htmlname Nom de la zone select \param filtretype Pour filtre sur type de produit \param limit Limite sur le nombre de lignes retournées \param price_level Niveau de prix en fonction du client */ function select_produits($selected='',$htmlname='productid',$filtretype='',$limit=20,$price_level=0) { global $langs,$conf; if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '

'; print $langs->trans("RefOrLabel").':	'; print ajax_indicator($htmlname,'working'); print '	'; print '
'; print ajax_updater($htmlname,'keysearch','/product/ajaxproducts.php','&price_level='.$price_level.'&type=1',''); print '

'; } else { $this->select_produits_do($selected,$htmlname,$filtretype,$limit,$price_level); } } /** \brief Retourne la liste des produits \param selected Produit pré-sélectionné \param htmlname Nom de la zone select \param filtretype Pour filtre sur type de produit \param limit Limite sur le nombre de lignes retournées \param price_level Niveau de prix en fonction du client \param ajaxkeysearch Filtre des produits si ajax est utilisé */ function select_produits_do($selected='',$htmlname='productid',$filtretype='',$limit=20,$price_level=0,$ajaxkeysearch='') { global $langs,$conf,$user; $sql = "SELECT "; if ($conf->categorie->enabled && ! $user->rights->categorie->voir) { $sql.="DISTINCT"; } $sql.= " p.rowid, p.label, p.ref, p.price, p.price_ttc, p.price_base_type, p.duration"; $sql.= " FROM ".MAIN_DB_PREFIX."product as p "; if ($conf->categorie->enabled && ! $user->rights->categorie->voir) { $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."categorie_product as cp ON p.rowid = cp.fk_product"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."categorie as c ON cp.fk_categorie = c.rowid"; } $sql.= " WHERE p.envente = 1"; if ($conf->categorie->enabled && ! $user->rights->categorie->voir) { $sql.= ' AND IFNULL(c.visible,1)=1'; } if ($filtretype && $filtretype != '') $sql.=" AND p.fk_product_type=".$filtretype; if ($ajaxkeysearch && $ajaxkeysearch != '') $sql.=" AND p.ref like '%".$ajaxkeysearch."%' OR p.label like '%".$ajaxkeysearch."%'"; $sql.= " ORDER BY p.nbvente DESC"; if ($limit) $sql.= " LIMIT $limit"; dolibarr_syslog("Form::select_produits_do sql=".$sql, LOG_DEBUG); $result=$this->db->query($sql); if (! $result) dolibarr_print_error($this->db); // Multilang : on construit une liste des traductions des produits listés if ($conf->global->MAIN_MULTILANGS) { $sqld = "SELECT d.fk_product, d.label"; $sqld.= " FROM ".MAIN_DB_PREFIX."product as p, ".MAIN_DB_PREFIX."product_det as d "; $sqld.= " WHERE d.fk_product=p.rowid AND p.envente=1 AND d.lang='". $langs->getDefaultLang() ."'"; $sqld.= " ORDER BY p.nbvente DESC"; dolibarr_syslog("Form::select_departement sql=".$sql, LOG_DEBUG); $resultd = $this->db->query($sqld); if ( $resultd ) $objtp = $this->db->fetch_object($resultd); } if ($result) { $num = $this->db->num_rows($result); if ($conf->use_javascript_ajax) { if (! $num) { print ''; print '-- '.$langs->trans("NoProductMatching").' --'; } else { print ''; print '-- '.$langs->trans("MatchingProducts").' --'; } } else { print ''; print ' '; } $i = 0; while ($num && $i < $num) { $objp = $this->db->fetch_object($result); // Multilangs : modification des donnée si une traduction existe if ($conf->global->MAIN_MULTILANGS) { if ( $objp->rowid == $objtp->fk_product ) // si on a une traduction { if ( $objtp->label != '') $objp->label = $objtp->label; if ( $resultd ) $objtp = $this->db->fetch_object($resultd); // on charge la traduction suivante } } $opt = ''.$objp->ref.' - '; $opt.= dolibarr_trunc($objp->label,32).' - '; // Multiprix if ($price_level > 1) { $sql= "SELECT price, price_ttc, price_base_type "; $sql.= "FROM ".MAIN_DB_PREFIX."product_price "; $sql.= "where fk_product='".$objp->rowid."' and price_level=".$price_level; $sql.= " order by date_price DESC limit 1"; dolibarr_syslog("Form::select_produits_do sql=".$sql); $result2 = $this->db->query($sql); $objp2 = $this->db->fetch_object($result2); if ($objp2) { if ($objp2->price_base_type == 'HT') $opt.= price2num($objp2->price,'MU').' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("HT"); else $opt.= price2num($objp2->price_ttc,'MU').' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("TTC"); } //si il n'y a pas de prix multiple on prend le prix de base du produit/service else { if ($objp->price_base_type == 'HT') $opt.= price2num($objp->price,'MU').' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("HT"); else $opt.= price2num($objp->price_ttc,'MU').' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("TTC"); } } else { if ($objp->price_base_type == 'HT') $opt.= price2num($objp->price,'MU').' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("HT"); else $opt.= price2num($objp->price_ttc,'MU').' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("TTC"); } if ($objp->duration) { $duration_value = substr($objp->duration,0,strlen($objp->duration)-1); $duration_unit = substr($objp->duration,-1); if ($duration_value > 1) { $dur=array("h"=>$langs->trans("Hours"),"d"=>$langs->trans("Days"),"w"=>$langs->trans("Weeks"),"m"=>$langs->trans("Months"),"y"=>$langs->trans("Years")); } else { $dur=array("h"=>$langs->trans("Hour"),"d"=>$langs->trans("Day"),"w"=>$langs->trans("Week"),"m"=>$langs->trans("Month"),"y"=>$langs->trans("Year")); } $opt.= ' - '.$duration_value.' '.$langs->trans($dur[$duration_unit]); } $opt.= "\n"; print $opt; $i++; } print ''; $this->db->free($result); } else { dolibarr_print_error($db); } } /** \brief Retourne la liste des produits fournisseurs en Ajax si ajax activé ou renvoie à select_produits_fournisseurs_do \param selected Produit pré-sélectionné \param htmlname Nom de la zone select \param filtretype Pour filtre sur type de produit \param limit Limite sur le nombre de lignes retournées */ function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtretype='',$filtre='') { global $langs,$conf; if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT) { print $langs->trans("RefOrLabel").' : '; print ajax_updater($htmlname,'keysearch','/product/ajaxproducts.php','&socid='.$socid.'&type=2','working'); } else { $this->select_produits_fournisseurs_do($socid,$selected,$htmlname,$filtretype,$filtre); } } /** \brief Retourne la liste des produits de fournisseurs \param socid Id société fournisseur (0 pour aucun filtre) \param selected Produit pré-sélectionné \param htmlname Nom de la zone select \param filtretype Pour filtre sur type de produit \param filtre Pour filtre \param ajaxkeysearch Filtre des produits si ajax est utilisé */ function select_produits_fournisseurs_do($socid,$selected='',$htmlname='productid',$filtretype='',$filtre='',$ajaxkeysearch='') { 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.envente = 1"; if ($socid) $sql.= " AND pf.fk_soc = ".$socid; if ($filtretype && $filtretype != '') $sql.=" AND p.fk_product_type=".$filtretype; if ($filtre) $sql.="$filtre"; if ($ajaxkeysearch && $ajaxkeysearch != '') $sql.=" AND (pf.ref_fourn like '%".$ajaxkeysearch."%' OR p.label like '%".$ajaxkeysearch."%')"; $sql.= " ORDER BY pf.ref_fourn DESC"; dolibarr_syslog("Form::select_produits_fournisseurs_do sql=".$sql,LOG_DEBUG); $result=$this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); if ($conf->use_javascript_ajax) { if (! $num) { print ''; print '-- '.$langs->trans("NoProductMatching").' --'; } else { print ''; print '-- '.$langs->trans("MatchingProducts").' --'; } } else { print ''; if (! $selected) print ' '; else print ' '; } $i = 0; while ($i < $num) { $objp = $this->db->fetch_object($result); $opt = 'idprodfournprice) $opt.= ' selected="true"'; if ($objp->fprice == '') $opt.=' disabled="disabled"'; $opt.= '>'.$objp->ref_fourn.' - '; $opt.= dolibarr_trunc($objp->label,18).' - '; if ($objp->fprice != '') // Keep != '' { $opt.= price($objp->fprice); $opt.= $langs->trans("Currency".$conf->monnaie)."/".$objp->quantity; if ($objp->quantity == 1) { $opt.= strtolower($langs->trans("Unit")); } else { $opt.= strtolower($langs->trans("Units")); } if ($objp->quantity > 1) { $opt.=" ("; $opt.= price($objp->unitprice).$langs->trans("Currency".$conf->monnaie)."/".strtolower($langs->trans("Unit")); $opt.=")"; } if ($objp->duration) $opt .= " - ".$objp->duration; if (! $socid) $opt .= " - ".dolibarr_trunc($objp->nom,8); } else { $opt.= $langs->trans("NoPriceDefinedForThisSupplier"); } $opt .= "\n"; print $opt; $i++; } print ''; $this->db->free($result); } else { dolibarr_print_error($db); } } /** \brief Retourne la liste des tarifs fournisseurs pour un produit \param productid Id du produit */ 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.envente = 1"; $sql.= " AND s.fournisseur = 1"; $sql.= " AND p.rowid = ".$productid; $sql.= " ORDER BY s.nom, pf.ref_fourn DESC"; dolibarr_syslog("Form::select_product_fourn_price sql=".$sql,LOG_DEBUG); $result=$this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); $form = ''; if (! $num) { $form.= '-- '.$langs->trans("NoSupplierPriceDefinedForThisProduct").' --'; } else { $form.= ' '; $i = 0; while ($i < $num) { $objp = $this->db->fetch_object($result); $opt = 'nom.' - '.$objp->ref_fourn.' - '; if ($objp->quantity == 1) { $opt.= price($objp->fprice); $opt.= $langs->trans("Currency".$conf->monnaie)."/"; } $opt.= $objp->quantity.' '; if ($objp->quantity == 1) { $opt.= strtolower($langs->trans("Unit")); } else { $opt.= strtolower($langs->trans("Units")); } if ($objp->quantity > 1) { $opt.=" - "; $opt.= price($objp->unitprice).$langs->trans("Currency".$conf->monnaie)."/".strtolower($langs->trans("Unit")); } if ($objp->duration) $opt .= " - ".$objp->duration; $opt .= "\n"; $form.= $opt; $i++; } $form.= ''; $this->db->free($result); } return $form; } else { dolibarr_print_error($db); } } /** * \brief Retourne la liste déroulante des adresses de livraison * \param selected Id contact pré-sélectionn * \param htmlname Nom champ formulaire */ function select_adresse_livraison($selected='', $socid, $htmlname='adresse_livraison_id',$showempty=0) { // On recherche les utilisateurs $sql = "SELECT a.rowid, a.label"; $sql .= " FROM ".MAIN_DB_PREFIX ."societe_adresse_livraison as a"; $sql .= " WHERE a.fk_societe = ".$socid; $sql .= " ORDER BY a.label ASC"; dolibarr_syslog("Form::select_adresse_livraison sql=".$sql); if ($this->db->query($sql)) { print ''; if ($showempty) print ' '; $num = $this->db->num_rows(); $i = 0; if ($num) { while ($i < $num) { $obj = $this->db->fetch_object(); if ($selected && $selected == $obj->rowid) { print ''.$obj->label.''; } else { print ''.$obj->label.''; } $i++; } } print ''; return $num; } else { dolibarr_print_error($this->db); } } /** * \brief Charge dans cache la liste des conditions de paiements possibles * \return int Nb lignes chargées, 0 si déjà chargées, <0 si ko */ function load_cache_conditions_paiements() { global $langs; if (sizeof($this->cache_conditions_paiements)) return 0; // Cache déja chargé dolibarr_syslog('Form::load_cache_conditions_paiements',LOG_DEBUG); $sql = "SELECT rowid, code, libelle"; $sql.= " FROM ".MAIN_DB_PREFIX."cond_reglement"; $sql.= " WHERE active=1"; $sql.= " ORDER BY sortorder"; $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 libellé par défaut $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 { dolibarr_print_error($this->db); return -1; } } /** * \brief Charge dans cache la liste des types de paiements possibles * \return int Nb lignes chargées, 0 si déjà chargées, <0 si ko */ function load_cache_types_paiements() { global $langs; if (sizeof($this->cache_types_paiements)) return 0; // Cache déja chargé dolibarr_syslog('Form::load_cache_types_paiements',LOG_DEBUG); $sql = "SELECT id, code, libelle, type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement"; $sql.= " WHERE active > 0"; $sql.= " ORDER BY id"; $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 libellé par défaut $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 { dolibarr_print_error($this->db); return -1; } } /** * \brief Retourne la liste des types de paiements possibles * \param selected Id du type de paiement pré-sélectionné * \param htmlname Nom de la zone select * \param filtertype Pour filtre * \param addempty Ajoute entrée vide */ function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1,$addempty=0) { global $langs,$user; $this->load_cache_conditions_paiements(); print ''; if ($addempty) print ' '; foreach($this->cache_conditions_paiements as $id => $arrayconditions) { if ($selected == $id) { print ''; } else { print ''; } print $arrayconditions['label']; print ''; } 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 pré-sélectionné * \param htmlname Nom de la zone select * \param filtertype Pour filtre * \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; dolibarr_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=split(',',$filtertype); $this->load_cache_types_paiements(); print ''; if ($empty) print ' '; foreach($this->cache_types_paiements as $id => $arraytypes) { // On passe si on a demandé de filtrer sur des modes de paiments particuliers if (sizeof($filterarray) && ! in_array($arraytypes['type'],$filterarray)) continue; if ($format == 0) print ''; if ($format == 0) $value=$arraytypes['label']; if ($format == 1) $value=$arraytypes['code']; if ($format == 2) $value=$arraytypes['label']; print $value?$value:' '; print ''; } print ''; if ($user->admin && ! $noadmininfo) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } /** * \brief Selection HT ou TTC * \param selected Id pré-sélectionné * \param htmlname Nom de la zone select */ function select_PriceBaseType($selected='',$htmlname='price_base_type') { global $langs; print ''; $options = array( 'HT'=>$langs->trans("HT"), 'TTC'=>$langs->trans("TTC") ); foreach($options as $id => $value) { if ($selected == $id) { print ''.$value; } else { print ''.$value; } print ''; } print ''; } /** * \brief Retourne la liste déroulante des différents états d'une propal. * Les valeurs de la liste sont les id de la table c_propalst * \param selected etat pre-séléctionné */ function select_propal_statut($selected='') { $sql = "SELECT id, code, label, active FROM ".MAIN_DB_PREFIX."c_propalst"; $sql .= " WHERE active = 1"; dolibarr_syslog("Form::select_propal_statut sql=".$sql); if ($this->db->query($sql)) { print ''; print ' '; $num = $this->db->num_rows(); $i = 0; if ($num) { while ($i < $num) { $obj = $this->db->fetch_object(); if ($selected == $obj->id) { print ''; } else { print ''; } // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut //print ($langs->trans("Civility".$obj->code)!="Civility".$obj->code ? $langs->trans("Civility".$obj->code) : ($obj->civilite!='-'?$obj->civilite:'')); print $obj->label; print ''; $i++; } } print ''; } else { dolibarr_print_error($this->db); } } /** * \brief Retourne la liste des comptes * \param selected Id compte pré-sélectionné * \param htmlname Nom de la zone select * \param statut Statut des comptes recherchés * \param filtre Pour filtre sur la liste * \param useempty Affiche valeur vide dans liste */ function select_comptes($selected='',$htmlname='accountid',$statut=0,$filtre='',$useempty=0) { global $langs; $sql = "SELECT rowid, label, bank"; $sql.= " FROM ".MAIN_DB_PREFIX."bank_account"; $sql.= " WHERE clos = '".$statut."'"; if ($filtre) $sql.=" AND ".$filtre; $sql.= " ORDER BY rowid"; dolibarr_syslog("Form::select_comptes sql=".$sql); $result = $this->db->query($sql); if ($result) { print ''; if ($useempty) { print ' '; } $num = $this->db->num_rows($result); $i = 0; while ($i < $num) { $obj = $this->db->fetch_object($result); if ($selected == $obj->rowid) { print ''; } else { print ''; } print $obj->label; print ''; $i++; } print ""; } else { dolibarr_print_error($this->db); } } /** * \brief Retourne la liste des catégories 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="") { global $langs; $langs->load("categorie"); if ($select_name=="") $select_name="catMere"; $cat = new Categorie($this->db); $cate_arbo = $cat->get_full_arbo($type); $output = ''; if (is_array($cate_arbo)) { if (! sizeof($cate_arbo)) $output.= ''.$langs->trans("NoCategoriesDefined").''; else { $output.= ' '; foreach($cate_arbo as $key => $value) { if ($cate_arbo[$key]['id'] == $selected) { $add = 'selected="true" '; } else { $add = ''; } $output.= ''.$cate_arbo[$key]['fulllabel'].''; } } } $output.= ''; $output.= "\n"; return $output; } /** * \brief Retourne la liste déroulante des civilite actives * \param selected civilite pré-sélectionnée */ function select_civilite($selected='') { global $conf,$langs,$user; $langs->load("dict"); $sql = "SELECT rowid, code, civilite, active FROM ".MAIN_DB_PREFIX."c_civilite"; $sql .= " WHERE active = 1"; dolibarr_syslog("Form::select_civilite sql=".$sql); if ($this->db->query($sql)) { print ''; print ' '; $num = $this->db->num_rows(); $i = 0; if ($num) { while ($i < $num) { $obj = $this->db->fetch_object(); if ($selected == $obj->code) { print ''; } else { print ''; } // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut print ($langs->trans("Civility".$obj->code)!="Civility".$obj->code ? $langs->trans("Civility".$obj->code) : ($obj->civilite!='-'?$obj->civilite:'')); print ''; $i++; } } print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } else { dolibarr_print_error($this->db); } } /** * \brief Retourne la liste déroulante des formes juridiques tous pays confondus ou pour un pays donné. * \remarks Dans le cas d'une liste tous pays confondu, on affiche une rupture sur le pays * \param selected Code forme juridique a pré-sélectionné * \param pays_code 0=liste tous pays confondus, sinon code du pays à afficher */ function select_forme_juridique($selected='',$pays_code=0) { global $conf,$langs,$user; $langs->load("dict"); // On recherche les formes juridiques actives des pays actifs $sql = "SELECT f.rowid, f.code as code , f.libelle as nom, f.active, p.libelle as libelle_pays, p.code as code_pays"; $sql .= " FROM llx_c_forme_juridique as f, llx_c_pays as p"; $sql .= " WHERE f.fk_pays=p.rowid"; $sql .= " AND f.active = 1 AND p.active = 1"; if ($pays_code) $sql .= " AND p.code = '".$pays_code."'"; $sql .= " ORDER BY p.code, f.code"; dolibarr_syslog("Form::select_forme_juridique sql=".$sql); $result=$this->db->query($sql); if ($result) { print ''; } else { dolibarr_print_error($this->db); } } /** * \brief Affiche formulaire de demande de confirmation * \param page page * \param title title * \param question question * \param action action * \param formquestion an array with forms complementary inputs */ function form_confirm($page, $title, $question, $action, $formquestion='') { global $langs; print '

'; print ''; print ''; // Ligne titre print ''; // Ligne formulaire if ($formquestion) { print ''; //print ''; } // Ligne message print ''; print ''; print ''; print ''; print ''; print '

'.img_picto('','recent').' '.$title.'
'; print ''; print ''; foreach ($formquestion as $key => $input) { if ($input['type'] == 'text') { print ''; } if ($input['type'] == 'select') { } if ($input['type'] == 'checkbox') { print ''; print ''; print ''; print ''; print ''; } if ($input['type'] == 'radio') { $i=0; foreach($input['values'] as $selkey => $selval) { print ''; if ($i==0) print ''; else print ''; print ''; print ''; $i++; } } } print ' '.$formquestion['text'].' '.$input['label'].' '.$input['label'].'  '; print '     '.$input['label'].'   '; print $selval; print ' '; print '
'.$question.'	'; print $this->selectyesno("confirm","no"); print '

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

\n"; } /** * \brief Affiche formulaire de selection de projet * \param page Page * \param socid Id societe * \param selected Id projet pré-sélectionné * \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 '

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

'; select_projects($socid,$selected,$htmlname); print '

'; } else { if ($selected) { $projet = new Project($this->db); $projet->fetch($selected); print ''.$projet->title.''; } else { print " "; } } } /** * \brief Affiche formulaire de selection de conditions de paiement * \param page Page * \param selected Id condition pré-sélectionné * \param htmlname Nom du formulaire select * \param addempty Ajoute entrée vide */ function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id', $addempty=0) { global $langs; if ($htmlname != "none") { print '

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

'; $this->select_conditions_paiements($selected,$htmlname,-1,$addempty); print '

'; } else { if ($selected) { $this->load_cache_conditions_paiements(); print $this->cache_conditions_paiements[$selected]['label']; } else { print " "; } } } /** * \brief Affiche formulaire de selection de l'assujétissement à la TVA * \param page Page * \param selected Id condition pré-sélectionnée * \param htmlname Nom du formulaire select */ function form_assujetti_tva($page, $selected='', $htmlname='') { global $langs; $options = array(0=>"non",1=>"oui"); if ($htmlname != "none") { print '

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

'; $this->select_assujetti_tva($selected,$htmlname); print '

'; } else { if ($selected != "") { print $options[$selected]; } else { print " "; } } } /** * \brief Affiche formulaire de selection des modes de reglement * \param page Page * \param selected Id mode pré-sélectionné * \param htmlname Nom du formulaire select */ function form_modes_reglement($page, $selected='', $htmlname='mode_reglement_id') { global $langs; if ($htmlname != "none") { print '

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

'; $this->select_types_paiements($selected,$htmlname); print '

'; } else { if ($selected) { $this->load_cache_types_paiements(); print $this->cache_types_paiements[$selected]['label']; } else { print " "; } } } /** * \brief Affiche formulaire de selection des modes de reglement * \param page Page * \param selected Id or code preselected * \param htmlname Nom du formulaire select * \param empty Add empty value in list */ function form_prospect_level($page, $selected='', $htmlname='prospect_level_id', $empty=0) { global $langs; print '

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

'; print ''; if ($empty) print ' '; dolibarr_syslog('Form::form_prospect_level',LOG_DEBUG); $sql = "SELECT code, label"; $sql.= " FROM ".MAIN_DB_PREFIX."c_prospectlevel"; $sql.= " WHERE active > 0"; $sql.= " ORDER BY label"; $resql = $this->db->query($sql); if ($resql) { $num = $this->db->num_rows($resql); $i = 0; while ($i < $num) { $obj = $this->db->fetch_object($resql); print 'code) print ' selected="true"'; print '>'; $level=$langs->trans($obj->code); if ($level == $obj->code) $level=$langs->trans($obj->label); print $level; print ''; $i++; } } else dolibarr_print_error($this->db); print ''; print '

'; } /** * \brief Affiche formulaire de selection de la remise relative * \param page Page * \param selected Valeur remise * \param htmlname Nom du formulaire select. Si none, non modifiable */ function form_remise_percent($page, $selected='', $htmlname='remise_percent') { global $langs; if ($htmlname != "none") { print '

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

'; print '%'; print '

'; } else { if ($selected) { print $selected; } else { print "0%"; } } } /** * \brief Affiche formulaire de selection de la remise fixe * \param page Page * \param selected Valeur a appliquer * \param htmlname Nom du formulaire select. Si none, non modifiable * \param socid * \param amount * \param filter Filtre */ function form_remise_dispo($page, $selected='', $htmlname='remise_id',$socid, $amount, $filter='') { global $conf,$langs; if ($htmlname != "none") { 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; print $this->select_remises('',$htmlname,$newfilter,$socid); print '

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 pré-sélectionné * \param htmlname Nom du formulaire select */ function form_contacts($page, $societe, $selected='', $htmlname='contactidp') { global $langs; if ($htmlname != "none") { print '

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

'; $num=$this->select_contacts($societe->id, $selected, $htmlname); if ($num==0) { print 'Cette societe n\'a pas de contact, veuillez en créer un avant de faire votre proposition commerciale '; print ''.$langs->trans('AddContact').''; } print '

'; } else { if ($selected) { require_once(DOL_DOCUMENT_ROOT ."/contact.class.php"); //$this->load_cache_contacts(); //print $this->cache_contacts[$selected]; $contact=new Contact($this->db); $contact->fetch($selected); print $contact->nom.' '.$contact->prenom; } else { print " "; } } } /** * \brief Affiche formulaire de selection de l'adresse de livraison * \param page Page * \param selected Id condition pré-sélectionné * \param htmlname Nom du formulaire select * \param origin Origine de l'appel pour pouvoir créer un retour * \param originid Id de l'origine */ function form_adresse_livraison($page, $selected='', $socid, $htmlname='adresse_livraison_id', $origin='', $originid='') { global $langs,$conf; if ($htmlname != "none") { print '

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

'; $this->select_adresse_livraison($selected, $socid, $htmlname, 1); print '

'; $langs->load("companies"); print '   '.$langs->trans("AddAddress").''; print '

'; } else { if ($selected) { require_once(DOL_DOCUMENT_ROOT ."/comm/adresse_livraison.class.php"); $livraison=new AdresseLivraison($this->db); $livraison->fetch_adresse($selected); print ''.$livraison->label.''; } else { print " "; } } } /** * \brief Retourne la liste des devises, dans la langue de l'utilisateur * \param selected code devise pré-sélectionné * \param htmlname nom de la liste deroulante * \todo trier liste sur noms après 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 compatibilité $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 ''; $num = $this->db->num_rows($resql); $i = 0; if ($num) { $foundselected=false; while ($i < $num) { $obj = $this->db->fetch_object($resql); if ($selected && $selected == $obj->code_iso) { $foundselected=true; print ''; } else { print ''; } if ($obj->code_iso) { print $obj->code_iso . ' - '; } // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut print ($obj->code_iso && $langs->trans("Currency".$obj->code_iso)!="Currency".$obj->code_iso?$langs->trans("Currency".$obj->code_iso):($obj->label!='-'?$obj->label:'')); print ''; $i++; } } print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); return 0; } else { dolibarr_print_error($this->db); return 1; } } /** * \brief Selection du taux de tva à appliquer * \param name Nom champ html * \param selectedrate Forçage du taux tva pré-sélectionné. Mettre '' pour aucun forcage. * \param societe_vendeuse Objet société vendeuse * \param societe_acheteuse Objet société acheteuse * \param taux_produit Taux par defaut du produit vendu * \param info_bits Miscellanous information on line * \remarks Si vendeur non assujeti à TVA, TVA par défaut=0. Fin de règle. * Si le (pays vendeur = pays acheteur) alors la TVA par défaut=TVA du produit vendu. Fin de règle. * Si (vendeur et acheteur dans Communauté européenne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de règle. * Si (vendeur et acheteur dans Communauté européenne) et bien vendu autre que transport neuf alors la TVA par défaut=TVA du produit vendu. Fin de règle. * Sinon la TVA proposée par défaut=0. Fin de règle. */ function select_tva($name='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $taux_produit='', $info_bits=0) { global $langs,$conf,$mysoc; $txtva=array(); $libtva=array(); $nprtva=array(); // Define defaultnpr and defaultttx $defaultnpr=($info_bits & 0x01); $defaultnpr=(eregi('\*',$selectedrate) ? 1 : $defaultnpr); $defaulttx=eregi_replace('\*','',$selectedrate); //print $societe_vendeuse."-".$societe_acheteuse; if (is_object($societe_vendeuse) && ! $societe_vendeuse->pays_code) { if ($societe_vendeuse->id == $mysoc->id) { print ''.$langs->trans("ErrorYourCountryIsNotDefined").'