'."\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 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 Return list of social contributions * \param selected Preselected type * \param htmlname Name of field in form */ function select_type_socialcontrib($selected='',$htmlname='actioncode') { global $db,$langs,$user; $sql = "SELECT c.id, c.libelle as type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c"; $sql.= " WHERE active = 1"; $sql.= " ORDER BY c.libelle ASC"; dolibarr_syslog("Form::select_type_socialcontrib sql=".$sql, LOG_DEBUG); $resql=$db->query($sql); if ($resql) { print ''; $num = $db->num_rows($resql); $i = 0; while ($i < $num) { $obj = $db->fetch_object($resql); print 'id == $selected) print ' selected="true"'; print '>'.$obj->type; $i++; } print ''; if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1); } else { dolibarr_print_error($db,$db->lasterror()); } } /** * \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 ($showempty) { print ' '; } $sql = "SELECT c.code, c.libelle as type FROM ".MAIN_DB_PREFIX."c_type_fees 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 'code == $selected) print ' selected="true"'; print '>'; if ($obj->code != $langs->trans($obj->code)) print $langs->trans($obj->code); else print $langs->trans($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 Preselected type * \param htmlname Name of field in form * \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 * \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"; dolibarr_syslog("Form::select_remises sql=".$sql); $resql=$this->db->query($sql); if ($resql) { print ''; $num = $this->db->num_rows($resql); $qualifiedlines=$num; $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; } $selectstring=''; if ($selected > 0 && $selected == $obj->rowid) $selectstring=' selected="true"'; $disabled=''; if ($maxvalue && $obj->amount_ttc > $maxvalue) { $qualifiedlines--; $disabled=' disabled="true"'; } print ''.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')'; $i++; } } print ''; return $qualifiedlines; } else { dolibarr_print_error($this->db); return -1; } } /** * \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 exclude List of users id to exclude * \param disabled If select list must be disabled */ 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 ((is_object($selected) && $selected->id == $obj->rowid) || (! is_object($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 filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param limit Limite sur le nombre de lignes retournées * \param price_level Niveau de prix en fonction du client * \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) { 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='.$filtertype.'&mode=1&status='.$status.'&finished='.$finished,''); print '

'; } else { $this->select_produits_do($selected,$htmlname,$filtertype,$limit,$price_level,'',$status,$finished); } } /** * \brief Retourne la liste des produits * \param selected Produit pré-sélectionné * \param htmlname Nom de la zone select * \param filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \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é * \param status -1=Return all products, 0=Products not on sell, 1=Products on sell */ function select_produits_do($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$ajaxkeysearch='',$status=1,$finished=2) { 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"; } if($finished == 0) { $sql.= " WHERE p.finished = ".$finished; } elseif($finished == 1) { $sql.= " WHERE p.finished = ".$finished; if ($status >= 0) $sql.= " AND p.envente = ".$status; } elseif($status >= 0) { $sql.= " WHERE p.envente = ".$status; } else $sql.= " WHERE 1 = 1"; if ($conf->categorie->enabled && ! $user->rights->categorie->voir) { $sql.= ' AND IFNULL(c.visible,1)=1'; } if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype; if ($ajaxkeysearch && $ajaxkeysearch != '') $sql.=" AND (p.ref like '%".$ajaxkeysearch."%' OR p.label like '%".$ajaxkeysearch."%')"; $sql.= " ORDER BY p.ref"; 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.ref"; dolibarr_syslog("Form::select_produits_do 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 'global->PRODUIT_USE_SEARCH_TO_SELECT) print ' onchange="publish_selvalue(this);"'; 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.= price($objp2->price,1).' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("HT"); else $opt.= price($objp2->price_ttc,1).' '.$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.= price($objp->price,1).' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("HT"); else $opt.= price($objp->price_ttc,1).' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("TTC"); } } else { if ($objp->price_base_type == 'HT') $opt.= price($objp->price,1).' '.$langs->trans("Currency".$conf->monnaie).' '.$langs->trans("HT"); else $opt.= price($objp->price_ttc,1).' '.$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 socid Id third party * \param selected Produit pré-sélectionné * \param htmlname Nom de la zone select * \param filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param filtre Pour filtre sql */ function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtertype='',$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='.$filtertype.'&mode=2','working'); } else { $this->select_produits_fournisseurs_do($socid,$selected,$htmlname,$filtertype,$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 filtertype Filter on product type (''=nofilter, 0=product, 1=service) * \param filtre Pour filtre sql * \param ajaxkeysearch Filtre des produits si ajax est utilisé */ function select_produits_fournisseurs_do($socid,$selected='',$htmlname='productid',$filtertype='',$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 (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype; if (! empty($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.' ('.$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 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.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é $sql = "SELECT rowid, code, libelle"; $sql.= " FROM ".MAIN_DB_PREFIX."cond_reglement"; $sql.= " WHERE active=1"; $sql.= " ORDER BY sortorder"; dolibarr_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 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é $sql = "SELECT id, code, libelle, type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement"; $sql.= " WHERE active > 0"; $sql.= " ORDER BY id"; dolibarr_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 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 (0=open, 1=closed) * \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("categories"); 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 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 * \param selectedchoice "" or "no" or "yes" */ function form_confirm($page, $title, $question, $action, $formquestion='', $selectedchoice="") { global $langs; print "\n\n"; 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') { print ''; } 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'].' '; print $this->select_array($input['name'],$input['values'],'',1); print ' '.$input['label'].'  '; print '     '.$input['label'].'   '; print $selval; print ' '; print '
'.$question.'	'; $newselectedchoice=empty($selectedchoice)?"no":$selectedchoice; print $this->selectyesno("confirm",$newselectedchoice); print '

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

\n"; print "\n\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 Name of select html field * \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 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 '

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

'; print $this->select_date($selected,$htmlname,0,0,1,'form'.$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 mode pré-sélectionné * \param htmlname Name of select html field */ 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 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 '

'; 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("UseCreditNoteInInvoicePayment"); print '">'; } 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 Output an HTML select vat rate * \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").'