mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-02-20 13:46:52 +01:00
85f5d72d64
Les remises de type avoir ne doivent pas s'inclure dans les lignes details mais dans comme paiements deja réalisé.
3661 lines
124 KiB
PHP
3661 lines
124 KiB
PHP
<?php
|
||
/* Copyright (c) 2002-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004-2006 Laurent Destailleur <eldy@users.sourceforge.net>
|
||
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
|
||
* Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
|
||
* Copyright (C) 2004 Eric Seigne <eric.seigne@ryxeo.com>
|
||
* Copyright (C) 2005-2007 Regis Houssin <regis@dolibarr.fr>
|
||
* Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
|
||
* Copyright (C) 2006 Marc Barilley/Oc<4F>bo <marc@ocebo.com>
|
||
* Copyright (C) 2007 Franky Van Liedekerke <franky.van.liedekerker@telenet.be>
|
||
* Copyright (C) 2007 Patrick Raguin <patrick.raguin@gmail.com>
|
||
*
|
||
* 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.
|
||
*
|
||
* $Id$
|
||
* $Source$
|
||
*/
|
||
|
||
/**
|
||
\file htdocs/html.form.class.php
|
||
\brief Fichier de la classe des fonctions pr<70>d<EFBFBD>finie de composants html
|
||
\version $Revision$
|
||
*/
|
||
|
||
|
||
/**
|
||
\class Form
|
||
\brief Classe permettant la g<>n<EFBFBD>ration de composants html
|
||
*/
|
||
|
||
class Form
|
||
{
|
||
var $db;
|
||
var $error;
|
||
|
||
var $cache_types_paiements_code=array();
|
||
var $cache_types_paiements_libelle=array();
|
||
var $cache_conditions_paiements_code=array();
|
||
var $cache_conditions_paiements_libelle=array();
|
||
|
||
var $tva_taux;
|
||
|
||
/**
|
||
\brief Constructeur
|
||
\param DB handler d'acc<63>s base de donn<6E>e
|
||
*/
|
||
function Form($DB)
|
||
{
|
||
$this->db = $DB;
|
||
|
||
return 1;
|
||
}
|
||
|
||
|
||
/**
|
||
\brief Affiche un texte+picto avec tooltip sur texte ou sur picto
|
||
\param text Texte <20> afficher
|
||
\param htmltext Contenu html du tooltip, cod<6F> en html
|
||
\param tooltipon 1=tooltip sur texte, 2=tooltip sur picto, 3=tooltip sur les 2, 4=tooltip sur les 2 et forc<72> en Ajaxa
|
||
\param direction -1=Le picto est avant, 0=pas de picto, 1=le picto est apr<70>s
|
||
\param img Code img du picto
|
||
\return string Code html du texte,picto
|
||
*/
|
||
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=ereg_replace("'","\'",$htmltext);
|
||
$htmltext=ereg_replace("'","\'",$htmltext);
|
||
|
||
if ($conf->use_ajax && $tooltipon == 4)
|
||
{
|
||
$s = '<div id="tip'.$i.'">'."\n";
|
||
$s.= $text;
|
||
$s.= '</div>'."\n";
|
||
$s.= '<div id="tooltip_content" style="display:none">'."\n";
|
||
$s.= $htmltext."\n";
|
||
$s.= '</div>'."\n";
|
||
$s.= '<script type=\'text/javascript\'>'."\n";
|
||
$s.= 'TooltipManager.init("","",{width:'.$width.', shiftX:'.$shiftX.'});'."\n";
|
||
$s.= 'TooltipManager.addHTML("tip'.$i.'", "tooltip_content");'."\n";
|
||
$s.= '</script>'."\n";
|
||
}
|
||
else
|
||
{
|
||
if ($conf->use_javascript)
|
||
{
|
||
$htmltext=eregi_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.='<table class="nobordernopadding"><tr>';
|
||
if ($direction > 0)
|
||
{
|
||
if ($text)
|
||
{
|
||
$s.='<td'.$paramfortooltiptext.'>'.$text;
|
||
if ($direction) $s.=' ';
|
||
$s.='</td>';
|
||
}
|
||
if ($direction) $s.='<td'.$paramfortooltippicto.' valign="top" width="14">'.$img.'</td>';
|
||
}
|
||
else
|
||
{
|
||
if ($direction) $s.='<td'.$paramfortooltippicto.' valign="top" width="14">'.$img.'</td>';
|
||
if ($text)
|
||
{
|
||
$s.='<td'.$paramfortooltiptext.'>';
|
||
if ($direction) $s.=' ';
|
||
$s.=$text.'</td>';
|
||
}
|
||
}
|
||
$s.='</tr></table>';
|
||
}
|
||
return $s;
|
||
}
|
||
|
||
/**
|
||
\brief Affiche un texte avec picto help qui affiche un tooltip
|
||
\param text Texte <20> afficher
|
||
\param htmltooltip Contenu html du tooltip
|
||
\param direction 1=Le picto est apr<70>s, -1=le picto est avant
|
||
\param usehelpcursor 1=Utilise curseur help, 0=Curseur par defaut
|
||
\return string Code html du texte,picto
|
||
*/
|
||
function textwithhelp($text,$htmltext,$direction=1,$usehelpcursor=1)
|
||
{
|
||
return $this->textwithtooltip($text,$htmltext,2,$direction,img_help($usehelpcursor,0));
|
||
}
|
||
|
||
/**
|
||
\brief Affiche un texte avec picto warning qui affiche un tooltip
|
||
\param text Texte <20> afficher
|
||
\param htmltooltip Contenu html du tooltip
|
||
\param direction 1=Le picto est apr<70>s, -1=le picto est avant
|
||
\return string Code html du texte,picto
|
||
*/
|
||
function textwithwarning($text,$htmltext,$direction=1)
|
||
{
|
||
return $this->textwithtooltip($text,$htmltext,2,$direction,img_warning(""));
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des d<>partements/province/cantons tout pays confondu ou pour un pays donn<6E>.
|
||
* \remarks Dans le cas d'une liste tout pays confondus, l'affichage fait une rupture sur le pays.
|
||
* \remarks La cle de la liste est le code (il peut y avoir plusieurs entr<74>e pour
|
||
* un code donn<6E>e mais dans ce cas, le champ pays diff<66>re).
|
||
* Ainsi les liens avec les d<>partements se font sur un d<>partement ind<6E>pendemment de nom som.
|
||
* \param selected code forme juridique a pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param pays_code 0=liste tous pays confondus, sinon code du pays <20> afficher
|
||
*/
|
||
function select_departement($selected='',$pays_code=0)
|
||
{
|
||
dolibarr_syslog("Form::select_departement selected=$selected, pays_code=$pays_code",LOG_DEBUG);
|
||
|
||
global $conf,$langs;
|
||
$langs->load("dict");
|
||
|
||
$htmlname='departement_id';
|
||
|
||
// On recherche les d<>partements/cantons/province active d'une region et pays actif
|
||
$sql = "SELECT d.rowid, d.code_departement as code , d.nom, d.active, p.libelle as libelle_pays, p.code as code_pays FROM";
|
||
$sql .= " ".MAIN_DB_PREFIX ."c_departements as d, ".MAIN_DB_PREFIX."c_regions as r,".MAIN_DB_PREFIX."c_pays as p";
|
||
$sql .= " WHERE d.fk_region=r.code_region and r.fk_pays=p.rowid";
|
||
$sql .= " AND d.active = 1 AND r.active = 1 AND p.active = 1";
|
||
if ($pays_code) $sql .= " AND p.code = '".$pays_code."'";
|
||
$sql .= " ORDER BY p.code, d.code_departement";
|
||
|
||
$result=$this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($pays_code) print '<option value="0"> </option>';
|
||
$num = $this->db->num_rows($result);
|
||
$i = 0;
|
||
dolibarr_syslog("Form::select_departement num=$num",LOG_DEBUG);
|
||
if ($num)
|
||
{
|
||
$pays='';
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
if ($obj->code == '0') // Le code peut etre une chaine
|
||
{
|
||
print '<option value="0"> </option>';
|
||
}
|
||
else {
|
||
if (! $pays || $pays != $obj->libelle_pays)
|
||
{
|
||
// Affiche la rupture si on est en mode liste multipays
|
||
if (! $pays_code && $obj->code_pays)
|
||
{
|
||
print '<option value="-1">----- '.$obj->libelle_pays." -----</option>\n";
|
||
$pays=$obj->libelle_pays;
|
||
}
|
||
}
|
||
|
||
if ($selected > 0 && $selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">';
|
||
}
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||
print $obj->code . ' - ' . ($langs->trans($obj->code)!=$obj->code?$langs->trans($obj->code):($obj->nom!='-'?$obj->nom:''));
|
||
print '</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des regions actives dont le pays est actif
|
||
* \remarks La cle de la liste est le code (il peut y avoir plusieurs entr<74>e pour
|
||
* un code donn<6E>e mais dans ce cas, le champ pays et lang diff<66>re).
|
||
* Ainsi les liens avec les regions se font sur une region independemment
|
||
* de nom som.
|
||
*/
|
||
|
||
function select_region($selected='',$htmlname='region_id')
|
||
{
|
||
global $conf,$langs;
|
||
$langs->load("dict");
|
||
|
||
$sql = "SELECT r.rowid, r.code_region as code, r.nom as libelle, r.active, p.libelle as libelle_pays FROM ".MAIN_DB_PREFIX."c_regions as r, ".MAIN_DB_PREFIX."c_pays as p";
|
||
$sql .= " WHERE r.fk_pays=p.rowid AND r.active = 1 and p.active = 1 ORDER BY libelle_pays, libelle ASC";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
$pays='';
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
if ($obj->code == 0) {
|
||
print '<option value="0"> </option>';
|
||
}
|
||
else {
|
||
if ($pays == '' || $pays != $obj->libelle_pays)
|
||
{
|
||
// Affiche la rupture
|
||
print '<option value="-1" disabled="disabled">----- '.$obj->libelle_pays." -----</option>\n";
|
||
$pays=$obj->libelle_pays;
|
||
}
|
||
|
||
if ($selected > 0 && $selected == $obj->code)
|
||
{
|
||
print '<option value="'.$obj->code.'" selected="true">'.$obj->libelle.'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->code.'">'.$obj->libelle.'</option>';
|
||
}
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie la liste des sources de commandes
|
||
* \param selected Id de la source pr<70>-s<>lectionn<6E>e
|
||
* \param htmlname Nom de la liste deroulante
|
||
* \param addempty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
|
||
* \return array Tableau des sources de commandes
|
||
*/
|
||
function selectSourcesCommande($selected='',$htmlname='source_id',$addempty=0)
|
||
{
|
||
global $conf,$langs;
|
||
print '<select class="flat" name="'.$htmlname.'" '.$htmloption.'>';
|
||
if ($addempty) print '<option value="-1" selected="true"> </option>';
|
||
print '<option value="0"'.($selected=='0'?' selected="true"':'').'>'.$langs->trans('OrderSource0').'</option>';
|
||
print '<option value="1"'.($selected=='1'?' selected="true"':'').'>'.$langs->trans('OrderSource1').'</option>';
|
||
print '<option value="2"'.($selected=='2'?' selected="true"':'').'>'.$langs->trans('OrderSource2').'</option>';
|
||
print '<option value="3"'.($selected=='3'?' selected="true"':'').'>'.$langs->trans('OrderSource3').'</option>';
|
||
print '<option value="4"'.($selected=='4'?' selected="true"':'').'>'.$langs->trans('OrderSource4').'</option>';
|
||
print '<option value="5"'.($selected=='5'?' selected="true"':'').'>'.$langs->trans('OrderSource5').'</option>';
|
||
print '<option value="6"'.($selected=='6'?' selected="true"':'').'>'.$langs->trans('OrderSource6').'</option>';
|
||
print '</select>';
|
||
}
|
||
|
||
|
||
/**
|
||
*
|
||
*
|
||
*/
|
||
function select_methodes_commande($selected='',$htmlname='source_id',$addempty=0)
|
||
{
|
||
global $conf,$langs;
|
||
$listemethodes=array();
|
||
|
||
$sql = "SELECT rowid, libelle ";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."c_methode_commande_fournisseur";
|
||
$sql.= " WHERE active = 1";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$i = 0;
|
||
$num = $this->db->num_rows($resql);
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$listemethodes[$obj->rowid] = $obj->libelle;
|
||
$i++;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
return -1;
|
||
}
|
||
|
||
print $this->select_array($htmlname,$listemethodes,$selected,$addempty);
|
||
return 1;
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des pays actifs, dans la langue de l'utilisateur
|
||
* \param selected Id ou code pays pr<70>-s<>lectionn<6E>
|
||
* \param htmlname Nom de la liste deroulante
|
||
* \param htmloption Options html sur le select
|
||
* \todo trier liste sur noms apr<70>s traduction plutot que avant
|
||
*/
|
||
function select_pays($selected='',$htmlname='pays_id',$htmloption='')
|
||
{
|
||
global $conf,$langs;
|
||
$langs->load("dict");
|
||
|
||
$sql = "SELECT rowid, code, libelle, active";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."c_pays";
|
||
$sql.= " WHERE active = 1";
|
||
if ($conf->use_ajax && $conf->global->CODE_DE_TEST == 1)
|
||
{
|
||
if (is_numeric($selected))
|
||
{
|
||
$sql.= " AND rowid = ".$selected;
|
||
}
|
||
else
|
||
{
|
||
$sql.= " AND code = '".$selected."'";
|
||
}
|
||
}
|
||
$sql.= " ORDER BY code ASC;";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
if ($conf->use_ajax && $conf->global->CODE_DE_TEST == 1)
|
||
{
|
||
$langs->load("companies");
|
||
$obj = $this->db->fetch_object($resql);
|
||
$pays_id = $obj->rowid?$obj->rowid:'';
|
||
|
||
// On applique un delai d'execution pour le bon fonctionnement
|
||
$mode_create = substr($htmloption,-9,6);
|
||
$mode_edit = substr($htmloption,-7,4);
|
||
$mode_company = substr($htmloption,-10,7);
|
||
if ($mode_create == 'create')
|
||
{
|
||
$htmloption = 'onChange="ac_delay(\'autofilltownfromzip_save_refresh_create()\',\'500\')"';
|
||
}
|
||
else if ($mode_edit == 'edit')
|
||
{
|
||
$htmloption = 'onChange="ac_delay(\'autofilltownfromzip_save_refresh_edit()\',\'500\')"';
|
||
}
|
||
else if ($mode_company == 'refresh')
|
||
{
|
||
$htmloption = 'onChange="ac_delay(\'company_save_refresh()\',\'500\')"';
|
||
}
|
||
|
||
print '<div>';
|
||
if ($obj->rowid == 0)
|
||
{
|
||
print '<input type="text" size="45" id="pays" name="pays" value="'.$langs->trans("SelectCountry").'" '.$htmloption.' />';
|
||
}
|
||
else
|
||
{
|
||
print '<input type="text" size="45" id="pays" name="pays" value="'.$obj->libelle.'" '.$htmloption.' />';
|
||
}
|
||
|
||
print ajax_autocompleter($pays_id,'pays','/societe/ajaxcountries.php','working');
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'" '.$htmloption.'>';
|
||
$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))
|
||
{
|
||
$foundselected=true;
|
||
print '<option value="'.$obj->rowid.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">';
|
||
}
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> 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 '</option>';
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
return 0;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des langues disponibles
|
||
* \param selected Langue pr<70>s<EFBFBD>lectionn<6E>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 '<select class="flat" name="'.$htmlname.'">';
|
||
if ($showauto)
|
||
{
|
||
print '<option value="auto"';
|
||
if ($selected == 'auto') print ' selected="true"';
|
||
print '>'.$langs->trans("AutoDetectLang").'</option>';
|
||
}
|
||
$num = count($langs_available);
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
if ($selected == $langs_available[$i])
|
||
{
|
||
print '<option value="'.$langs_available[$i].'" selected="true">'.$langs_available[$i].'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$langs_available[$i].'">'.$langs_available[$i].'</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des menus disponibles (eldy_backoffice, ...)
|
||
* \param selected Menu pr<70>-s<>lectionn<6E>e
|
||
* \param htmlname Nom de la zone select
|
||
* \param dirmenu Rep<65>rtoire <20> scanner
|
||
*/
|
||
function select_menu($selected='',$htmlname,$dirmenu)
|
||
{
|
||
global $langs,$conf;
|
||
|
||
if ($selected == 'eldy.php') $selected='eldy_backoffice.php'; // Pour compatibilit<69>
|
||
|
||
$menuarray=array();
|
||
$handle=opendir($dirmenu);
|
||
while (($file = readdir($handle))!==false)
|
||
{
|
||
if (is_file($dirmenu."/".$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
|
||
{
|
||
$filelib=eregi_replace('\.php$','',$file);
|
||
$prefix='';
|
||
if (eregi('^eldy',$file)) $prefix='0'; // Recommanded
|
||
else if (eregi('^auguria',$file)) $prefix='2'; // Other
|
||
else if (eregi('^default',$file)) $prefix='2'; // Other
|
||
else if (eregi('^rodolphe',$file)) $prefix='2'; // Other
|
||
else if (eregi('^empty',$file)) $prefix='2'; // Other
|
||
else $prefix='1'; // Experimental
|
||
|
||
if ($file == $selected)
|
||
{
|
||
$menuarray[$prefix.'_'.$file]='<option value="'.$file.'" selected="true">'.$filelib.'</option>';
|
||
}
|
||
else
|
||
{
|
||
$menuarray[$prefix.'_'.$file]='<option value="'.$file.'">'.$filelib.'</option>';
|
||
}
|
||
}
|
||
}
|
||
ksort($menuarray);
|
||
|
||
// Affichage liste deroulante des menus
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
$oldprefix='';
|
||
foreach ($menuarray as $key => $val)
|
||
{
|
||
$tab=split('_',$key);
|
||
$newprefix=$tab[0];
|
||
if ($conf->browser->firefox && $newprefix != $oldprefix)
|
||
{
|
||
// Affiche titre
|
||
print '<option value="-1" disabled="disabled">';
|
||
if ($newprefix=='0') print '-- '.$langs->trans("VersionRecommanded").' --';
|
||
if ($newprefix=='1') print '-- '.$langs->trans("VersionExperimental").' --';
|
||
if ($newprefix=='2') print '-- '.$langs->trans("Other").' --';
|
||
print '</option>';
|
||
$oldprefix=$newprefix;
|
||
}
|
||
print $val."\n";
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des menus disponibles (eldy)
|
||
* \param selected Menu pr<70>-s<>lectionn<6E>e
|
||
* \param htmlname Nom de la zone select
|
||
* \param dirmenu Rep<65>rtoire <20> scanner
|
||
*/
|
||
function select_menu_families($selected='',$htmlname,$dirmenu)
|
||
{
|
||
global $langs,$conf;
|
||
|
||
$menuarray=array();
|
||
$handle=opendir($dirmenu);
|
||
while (($file = readdir($handle))!==false)
|
||
{
|
||
if (is_file($dirmenu."/".$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
|
||
{
|
||
$filelib=eregi_replace('(_backoffice|_frontoffice)?\.php$','',$file);
|
||
if (eregi('^default',$filelib)) continue;
|
||
if (eregi('^empty',$filelib)) continue;
|
||
|
||
$menuarray[$filelib]=1;
|
||
}
|
||
$menuarray['all']=1;
|
||
}
|
||
ksort($menuarray);
|
||
|
||
// Affichage liste deroulante des menus
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
$oldprefix='';
|
||
foreach ($menuarray as $key => $val)
|
||
{
|
||
$tab=split('_',$key);
|
||
$newprefix=$tab[0];
|
||
print '<option value="'.$key.'"';
|
||
if ($key == $selected)
|
||
{
|
||
print ' selected="true"';
|
||
}
|
||
print '>'.$key.'</option>'."\n";
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste des types de comptes financiers
|
||
* \param selected Type pr<70>-s<>lectionn<6E>
|
||
* \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 '<select class="flat" name="'.$htmlname.'">';
|
||
$num = count($type_available);
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
if ($selected == $type_available[$i])
|
||
{
|
||
print '<option value="'.$type_available[$i].'" selected="true">'.$langs->trans("BankType".$type_available[$i]).'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$type_available[$i].'">'.$langs->trans("BankType".$type_available[$i]).'</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des soci<63>t<EFBFBD>s
|
||
* \param selected Societe pr<70>s<EFBFBD>lectionn<6E>e
|
||
* \param htmlname Nom champ formulaire
|
||
* \param filter Criteres optionnels de filtre
|
||
*/
|
||
function select_societes($selected='',$htmlname='socid',$filter='',$showempty=0)
|
||
{
|
||
global $conf;
|
||
// On recherche les societes
|
||
$sql = "SELECT s.rowid, s.nom FROM";
|
||
$sql.= " ".MAIN_DB_PREFIX ."societe as s";
|
||
if ($filter) $sql.= " WHERE ".$filter;
|
||
if ($selected && $conf->use_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT)
|
||
{
|
||
if ($filter)
|
||
{
|
||
$sql.= " AND";
|
||
}
|
||
else
|
||
{
|
||
$sql.= " WHERE";
|
||
}
|
||
$sql.= " rowid = ".$selected;
|
||
}
|
||
$sql.= " ORDER BY nom ASC";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
if ($conf->use_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT)
|
||
{
|
||
if ($selected) $obj = $this->db->fetch_object($resql);
|
||
$socid = $obj->rowid?$obj->rowid:'';
|
||
|
||
print '<table class="nobordernopadding"><tr class="nocellnopadd">';
|
||
print '<td class="nobordernopadding">';
|
||
print '<div>';
|
||
if ($obj->rowid == 0)
|
||
{
|
||
print '<input type="text" size="30" id="'.$htmlname.'" name="'.$htmlname.'" value=""/>';
|
||
}
|
||
else
|
||
{
|
||
print '<input type="text" size="30" id="'.$htmlname.'" name="'.$htmlname.'" value="'.$obj->nom.'"/>';
|
||
}
|
||
print ajax_autocompleter($socid,$htmlname,'/societe/ajaxcompanies.php','');
|
||
print '</td>';
|
||
print '<td class="nobordernopadding" align="left" width="16">';
|
||
print ajax_indicator($htmlname,'working');
|
||
print '</td></tr>';
|
||
print '</table>';
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($showempty) print '<option value="-1"> </option>';
|
||
$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 '<option value="'.$obj->rowid.'" selected="true">'.$obj->nom.'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">'.$obj->nom.'</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des remises fixes
|
||
* \param selected Id remise fixe pr<70>s<EFBFBD>lectionn<6E>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 societes
|
||
$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";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
$num = $this->db->num_rows($resql);
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
print '<option value="0"> </option>';
|
||
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 '<option value="'.$obj->rowid.'" selected="true">'.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">'.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des contacts d'une soci<63>t<EFBFBD> donn<6E>e
|
||
* \param socid Id de la soci<63>t<EFBFBD>
|
||
* \param selected Id contact pr<70>-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 <20> 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";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$num=$this->db->num_rows($resql);
|
||
if ($num == 0) return 0;
|
||
|
||
if ($htmlname != 'none') print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($showempty) print '<option value="0"> </option>';
|
||
$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 '<option value="'.$obj->rowid.'" selected="true">'.$obj->name.' '.$obj->firstname.'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">'.$obj->name.' '.$obj->firstname.'</option>';
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if ($selected == $obj->rowid) print $obj->name.' '.$obj->firstname;
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
if ($htmlname != 'none') print '</select>';
|
||
return $num;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des utilisateurs
|
||
* \param selected Id contact pr<70>-s<>lectionn
|
||
* \param htmlname Nom champ formulaire
|
||
* \param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
|
||
* \param exclude Liste des id utilisateurs <20> exclure
|
||
*/
|
||
function select_users($selected='',$htmlname='userid',$show_empty=0,$exclude='')
|
||
{
|
||
// 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";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($show_empty) print '<option value="-1"'.($id==-1?' selected="true"':'').'> </option>'."\n";
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
|
||
if ($selected && $selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">'.$obj->name.' '.$obj->firstname.'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">'.$obj->name.' '.$obj->firstname.'</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
\brief Affiche la liste d<>roulante des projets d'une soci<63>t<EFBFBD> donn<6E>e
|
||
\param socid Id soci<63>t<EFBFBD>
|
||
\param selected Id projet pr<70>s<EFBFBD>lectionn<6E>
|
||
\param htmlname Nom de la zone html
|
||
\return int Nbre de projet si ok, <0 si ko
|
||
*/
|
||
function select_projects($socid, $selected='', $htmlname='projectid')
|
||
{
|
||
// On recherche les projets
|
||
$sql = 'SELECT p.rowid, p.title FROM ';
|
||
$sql.= MAIN_DB_PREFIX .'projet as p';
|
||
$sql.= " WHERE fk_soc='".$socid."'";
|
||
$sql.= " ORDER BY p.title ASC";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
print '<option value="0"> </option>';
|
||
$num = $this->db->num_rows($resql);
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
if (!empty($selected) && $selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">'.$obj->title.'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">'.$obj->title.'</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
$this->db->free($resql);
|
||
return $num;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
return -1;
|
||
}
|
||
}
|
||
/**
|
||
\brief Retourne la liste des produits en Ajax si ajax activ<69> ou renvoie <20> select_produits_do
|
||
\param selected Produit pr<70>s<EFBFBD>lectionn<6E>
|
||
\param htmlname Nom de la zone select
|
||
\param filtretype Pour filtre sur type de produit
|
||
\param limit Limite sur le nombre de lignes retourn<72>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 '<table class="nobordernopadding"><tr class="nocellnopadd">';
|
||
print '<td class="nobordernopadding" width="80" nowrap="nowrap">';
|
||
print $langs->trans("RefOrLabel").':</td>';
|
||
print '<td class="nobordernopadding" align="left" width="16">';
|
||
print ajax_indicator($htmlname,'working');
|
||
print '</td>';
|
||
print '<td align="left"><input type="text" size="16" name="keysearch'.$htmlname.'" id="keysearch'.$htmlname.'"> ';
|
||
print '</td>';
|
||
print '</tr>';
|
||
print '<tr class="nocellnopadd">';
|
||
print '<td class="nobordernopadding" colspan="3">';
|
||
print ajax_updater($htmlname,'keysearch','/product/ajaxproducts.php','&price_level='.$price_level.'&type=1','');
|
||
print '</td></tr>';
|
||
print '</table>';
|
||
}
|
||
else
|
||
{
|
||
$this->select_produits_do($selected,$htmlname,$filtretype,$limit,$price_level);
|
||
}
|
||
}
|
||
|
||
/**
|
||
\brief Retourne la liste des produits
|
||
\param selected Produit pr<70>s<EFBFBD>lectionn<6E>
|
||
\param htmlname Nom de la zone select
|
||
\param filtretype Pour filtre sur type de produit
|
||
\param limit Limite sur le nombre de lignes retourn<72>es
|
||
\param price_level Niveau de prix en fonction du client
|
||
\param ajaxkeysearch Filtre des produits si ajax est utilis<69>
|
||
*/
|
||
function select_produits_do($selected='',$htmlname='productid',$filtretype='',$limit=20,$price_level=0,$ajaxkeysearch='')
|
||
{
|
||
global $langs,$conf,$user;
|
||
$user->getrights("categorie");
|
||
|
||
$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<73>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";
|
||
$resultd = $this->db->query($sqld);
|
||
if ( $resultd ) $objtp = $this->db->fetch_object($resultd);
|
||
}
|
||
|
||
if ($result)
|
||
{
|
||
$num = $this->db->num_rows($result);
|
||
|
||
if ($conf->use_ajax)
|
||
{
|
||
if (! $num)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
print '<option value="0">-- '.$langs->trans("NoProductMatching").' --</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'" onchange="publish_selvalue(this);">';
|
||
print '<option value="0" selected="true">-- '.$langs->trans("MatchingProducts").' --</option>';
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
print '<option value="0" selected="true"> </option>';
|
||
}
|
||
|
||
$i = 0;
|
||
while ($num && $i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object($result);
|
||
|
||
// Multilangs : modification des donn<6E>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 = '<option value="'.$objp->rowid.'">'.$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";
|
||
$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.= "</option>\n";
|
||
print $opt;
|
||
$i++;
|
||
}
|
||
|
||
print '</select>';
|
||
|
||
$this->db->free($result);
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($db);
|
||
}
|
||
}
|
||
|
||
/**
|
||
\brief Retourne la liste des produits fournisseurs en Ajax si ajax activ<69> ou renvoie <20> select_produits_fournisseurs_do
|
||
\param selected Produit pr<70>s<EFBFBD>lectionn<6E>
|
||
\param htmlname Nom de la zone select
|
||
\param filtretype Pour filtre sur type de produit
|
||
\param limit Limite sur le nombre de lignes retourn<72>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").' : <input type="text" size="16" name="keysearch'.$htmlname.'" id="keysearch'.$htmlname.'">';
|
||
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<63>t<EFBFBD> fournisseur (0 pour aucun filtre)
|
||
\param selected Produit pr<70>s<EFBFBD>lectionn<6E>
|
||
\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<69>
|
||
*/
|
||
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, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.unitprice";
|
||
$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."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 sql=".$sql,LOG_DEBUG);
|
||
|
||
$result=$this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
|
||
$num = $this->db->num_rows($result);
|
||
|
||
if ($conf->use_ajax)
|
||
{
|
||
if (! $num)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
print '<option value="0">-- '.$langs->trans("NoProductMatching").' --</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'" onchange="publish_selvalue(this);">';
|
||
print '<option value="0" selected="true">-- '.$langs->trans("MatchingProducts").' --</option>';
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if (! $selected) print '<option value="0" selected="true"> </option>';
|
||
else print '<option value="0"> </option>';
|
||
}
|
||
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object($result);
|
||
|
||
$opt = '<option value="'.$objp->idprodfournprice.'"';
|
||
if ($selected == $objp->idprodfournprice) $opt.= ' selected="true"';
|
||
if ($objp->fprice == '') $opt.=' disabled="disabled"';
|
||
$opt.= '>'.$objp->ref_fourn.' - ';
|
||
$opt.= dolibarr_trunc($objp->label,18).' - ';
|
||
if ($objp->fprice != '')
|
||
{
|
||
$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"));
|
||
}
|
||
if ($objp->duration) $opt .= " - ".$objp->duration;
|
||
}
|
||
else
|
||
{
|
||
$opt.= $langs->trans("NoPriceDefinedForThisSupplier");
|
||
}
|
||
$opt .= "</option>\n";
|
||
|
||
print $opt;
|
||
$i++;
|
||
}
|
||
print '</select>';
|
||
|
||
$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 = '<select class="flat" name="'.$htmlname.'">';
|
||
|
||
if (! $num)
|
||
{
|
||
$form.= '<option value="0">-- '.$langs->trans("NoSupplierPriceDefinedForThisProduct").' --</option>';
|
||
}
|
||
else
|
||
{
|
||
$form.= '<option value="0"> </option>';
|
||
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object($result);
|
||
|
||
$opt = '<option value="'.$objp->idprodfournprice.'"';
|
||
$opt.= '>'.$objp->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 .= "</option>\n";
|
||
|
||
$form.= $opt;
|
||
$i++;
|
||
}
|
||
$form.= '</select>';
|
||
|
||
$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<70>-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";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($showempty) print '<option value="0"> </option>';
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
|
||
if ($selected && $selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">'.$obj->label.'</option>';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">'.$obj->label.'</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
return $num;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Charge dans cache la liste des conditions de paiements possibles
|
||
* \return int Nb lignes charg<72>es, 0 si d<>j<EFBFBD> charg<72>es, <0 si ko
|
||
*/
|
||
function load_cache_conditions_paiements()
|
||
{
|
||
global $langs;
|
||
|
||
if (sizeof($this->cache_conditions_paiements_code)) return 0; // Cache d<>ja charg<72>
|
||
|
||
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($result);
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> 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_code[$obj->rowid]=$obj->code;
|
||
$this->cache_conditions_paiements_libelle[$obj->rowid]=$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<72>es, 0 si d<>j<EFBFBD> charg<72>es, <0 si ko
|
||
*/
|
||
function load_cache_types_paiements()
|
||
{
|
||
global $langs;
|
||
|
||
if (sizeof($this->cache_types_paiements_code)) return 0; // Cache d<>ja charg<72>
|
||
|
||
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($result);
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> 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_code[$obj->id]=$obj->code;
|
||
$this->cache_types_paiements_libelle[$obj->id]=$libelle;
|
||
$this->cache_types_paiements_type[$obj->id]=$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<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom de la zone select
|
||
* \param filtertype Pour filtre
|
||
* \param addempty Ajoute entr<74>e vide
|
||
*/
|
||
function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1,$addempty=0)
|
||
{
|
||
global $langs;
|
||
|
||
$this->load_cache_conditions_paiements();
|
||
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($addempty) print '<option value="0"> </option>';
|
||
foreach($this->cache_conditions_paiements_code as $id => $code)
|
||
{
|
||
if ($selected == $id)
|
||
{
|
||
print '<option value="'.$id.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$id.'">';
|
||
}
|
||
print $this->cache_conditions_paiements_libelle[$id];
|
||
print '</option>';
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
/**
|
||
* \brief Selection HT ou TTC
|
||
* \param selected Id pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom de la zone select
|
||
*/
|
||
function select_PriceBaseType($selected='',$htmlname='price_base_type')
|
||
{
|
||
global $langs;
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
$options = array(
|
||
'HT'=>$langs->trans("HT"),
|
||
'TTC'=>$langs->trans("TTC")
|
||
);
|
||
foreach($options as $id => $value)
|
||
{
|
||
if ($selected == $id)
|
||
{
|
||
print '<option value="'.$id.'" selected="true">'.$value;
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$id.'">'.$value;
|
||
}
|
||
print '</option>';
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des modes de paiements possibles
|
||
* \param selected Id du mode de paiement pr<70>s<EFBFBD>lectionn<6E>
|
||
* \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
|
||
*/
|
||
function select_types_paiements($selected='',$htmlname='paiementtype',$filtertype='',$format=0, $empty=0)
|
||
{
|
||
global $langs;
|
||
|
||
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 '<select class="flat" name="'.$htmlname.'">';
|
||
if ($empty) print '<option value=""> </option>';
|
||
foreach($this->cache_types_paiements_code as $id => $code)
|
||
{
|
||
// On passe si on a demand<6E> de filtrer sur des modes de paiments particuli<6C>rs
|
||
if (sizeof($filterarray) && ! in_array($this->cache_types_paiements_type[$id],$filterarray)) continue;
|
||
|
||
if ($format == 0) print '<option value="'.$id.'"';
|
||
if ($format == 1) print '<option value="'.$code.'"';
|
||
if ($format == 2) print '<option value="'.$code.'"';
|
||
// Si selected est text, on compare avec code, sinon avec id
|
||
if (eregi('[a-z]', $selected) && $selected == $code) print ' selected="true"';
|
||
elseif ($selected == $id) print ' selected="true"';
|
||
print '>';
|
||
if ($format == 0) $value=$this->cache_types_paiements_libelle[$id];
|
||
if ($format == 1) $value=$code;
|
||
if ($format == 2) $value=$this->cache_types_paiements_libelle[$id];
|
||
print $value?$value:' ';
|
||
print '</option>';
|
||
}
|
||
print '</select>';
|
||
}
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des diff<66>rents <20>tats d'une propal.
|
||
* Les valeurs de la liste sont les id de la table c_propalst
|
||
* \param selected etat pre-s<>l<EFBFBD>ctionn<6E>
|
||
*/
|
||
function select_propal_statut($selected='')
|
||
{
|
||
$sql = "SELECT id, code, label, active FROM ".MAIN_DB_PREFIX."c_propalst";
|
||
$sql .= " WHERE active = 1";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
print '<select class="flat" name="propal_statut">';
|
||
print '<option value=""> </option>';
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
if ($selected == $obj->id)
|
||
{
|
||
print '<option value="'.$obj->id.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->id.'">';
|
||
}
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> 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 '</option>';
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste des comptes
|
||
* \param selected Id compte pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom de la zone select
|
||
* \param statut Statut des comptes recherch<63>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";
|
||
$result = $this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
if ($useempty)
|
||
{
|
||
print '<option value="'.$obj->rowid.'"> </option>';
|
||
}
|
||
|
||
$num = $this->db->num_rows($result);
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
if ($selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">';
|
||
}
|
||
print $obj->label;
|
||
print '</option>';
|
||
$i++;
|
||
}
|
||
print "</select>";
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des cat<61>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 = '<select class="flat" name="'.$select_name.'">';
|
||
if (is_array($cate_arbo))
|
||
{
|
||
if (! sizeof($cate_arbo)) $output.= '<option value="-1" disabled="true">'.$langs->trans("NoCategoriesDefined").'</option>';
|
||
else
|
||
{
|
||
$output.= '<option value="-1"> </option>';
|
||
foreach($cate_arbo as $key => $value)
|
||
{
|
||
if ($cate_arbo[$key]['id'] == $selected)
|
||
{
|
||
$add = 'selected="true" ';
|
||
}
|
||
else
|
||
{
|
||
$add = '';
|
||
}
|
||
$output.= '<option '.$add.'value="'.$cate_arbo[$key]['id'].'">'.$cate_arbo[$key]['fulllabel'].'</option>';
|
||
}
|
||
}
|
||
}
|
||
$output.= '</select>';
|
||
$output.= "\n";
|
||
return $output;
|
||
}
|
||
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des civilite actives
|
||
* \param selected civilite pr<70>-s<>lectionn<6E>e
|
||
*/
|
||
function select_civilite($selected='')
|
||
{
|
||
global $conf,$langs;
|
||
$langs->load("dict");
|
||
|
||
$sql = "SELECT rowid, code, civilite, active FROM ".MAIN_DB_PREFIX."c_civilite";
|
||
$sql .= " WHERE active = 1";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
print '<select class="flat" name="civilite_id">';
|
||
print '<option value=""> </option>';
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
if ($selected == $obj->code)
|
||
{
|
||
print '<option value="'.$obj->code.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->code.'">';
|
||
}
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||
print ($langs->trans("Civility".$obj->code)!="Civility".$obj->code ? $langs->trans("Civility".$obj->code) : ($obj->civilite!='-'?$obj->civilite:''));
|
||
print '</option>';
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne le nom traduit de la civilit<69>
|
||
* \param code Code de la civilit<69>
|
||
* \return string Nom traduit de la civilit<69>
|
||
*/
|
||
function civilite_name($code)
|
||
{
|
||
global $langs;
|
||
$langs->load("dict");
|
||
return $langs->trans("Civility".$code)!="Civility".$code ? $langs->trans("Civility".$code) : $code;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne la liste d<>roulante des formes juridiques tous pays confondus ou pour un pays donn<6E>.
|
||
* \remarks Dans le cas d'une liste tous pays confondu, on affiche une rupture sur le pays
|
||
* \param selected Code forme juridique a pr<70>s<EFBFBD>lectionn
|
||
* \param pays_code 0=liste tous pays confondus, sinon code du pays <20> afficher
|
||
*/
|
||
function select_forme_juridique($selected='',$pays_code=0)
|
||
{
|
||
global $conf,$langs;
|
||
$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";
|
||
|
||
$result=$this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
print '<div id="particulier2" class="visible">';
|
||
print '<select class="flat" name="forme_juridique_code">';
|
||
if ($pays_code) print '<option value="0"> </option>';
|
||
$num = $this->db->num_rows($result);
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
$pays='';
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
if ($obj->code == 0) {
|
||
print '<option value="0"> </option>';
|
||
}
|
||
else {
|
||
if (! $pays || $pays != $obj->libelle_pays) {
|
||
// Affiche la rupture si on est en mode liste multipays
|
||
if (! $pays_code && $obj->code_pays) {
|
||
print '<option value="0">----- '.$obj->libelle_pays." -----</option>\n";
|
||
$pays=$obj->libelle_pays;
|
||
}
|
||
}
|
||
|
||
if ($selected > 0 && $selected == $obj->code)
|
||
{
|
||
print '<option value="'.$obj->code.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->code.'">';
|
||
}
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||
print $obj->code . ' - ' .($langs->trans("JuridicalStatus".$obj->code)!="JuridicalStatus".$obj->code?$langs->trans("JuridicalStatus".$obj->code):($obj->nom!='-'?$obj->nom:''));
|
||
print '</option>';
|
||
}
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
print '</div>';
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne le nom traduit de la forme juridique
|
||
* \param code Code de la forme juridique
|
||
* \return string Nom traduit du pays
|
||
*/
|
||
function forme_juridique_name($code)
|
||
{
|
||
global $langs;
|
||
|
||
if (! $code) return '';
|
||
|
||
$sql = "SELECT libelle FROM ".MAIN_DB_PREFIX."c_forme_juridique";
|
||
$sql.= " WHERE code='$code';";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$num = $this->db->num_rows();
|
||
|
||
if ($num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
$label=($obj->libelle!='-' ? $obj->libelle : '');
|
||
return $label;
|
||
}
|
||
else
|
||
{
|
||
return $langs->trans("NotDefined");
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...)
|
||
* \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
|
||
* \param soc Objet societe
|
||
* \param htmlname Nom de la zone input
|
||
*/
|
||
function id_prof($idprof,$soc,$htmlname,$selected='')
|
||
{
|
||
global $langs;
|
||
$formlength=16;
|
||
if ($idprof==1 && $soc->pays_code == 'FR') $formlength=9;
|
||
if ($idprof==2 && $soc->pays_code == 'FR') $formlength=14;
|
||
if ($idprof==3 && $soc->pays_code == 'FR') $formlength=4;
|
||
if ($idprof==4 && $soc->pays_code == 'FR') $formlength=12;
|
||
print '<input type="text" name="'.$htmlname.'" size="'.($formlength+1).'" maxlength="'.$formlength.'" value="'.$selected.'">';
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne le nom traduit ou code+nom d'un pays
|
||
* \param id id du pays
|
||
* \param withcode 1=affiche code + nom
|
||
* \return string Nom traduit du pays
|
||
*/
|
||
function pays_name($id,$withcode=0)
|
||
{
|
||
global $langs;
|
||
|
||
$sql = "SELECT rowid, code, libelle FROM ".MAIN_DB_PREFIX."c_pays";
|
||
$sql.= " WHERE rowid=$id;";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$num = $this->db->num_rows();
|
||
|
||
if ($num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
$label=$obj->code && $langs->trans("Country".$obj->code)!="Country".$obj->code?$langs->trans("Country".$obj->code):($obj->libelle!='-'?$obj->libelle:'');
|
||
if ($withcode) return $label==$obj->code?"$obj->code":"$obj->code - $label";
|
||
else return $label;
|
||
}
|
||
else
|
||
{
|
||
return $langs->trans("NotDefined");
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Retourne le nom traduit ou code+nom d'une devise
|
||
* \param code_iso Code iso de la devise
|
||
* \param withcode 1=affiche code + nom
|
||
* \return string Nom traduit de la devise
|
||
*/
|
||
function currency_name($code_iso,$withcode=0)
|
||
{
|
||
global $langs;
|
||
|
||
// Si il existe une traduction, on peut renvoyer de suite le libell<6C>
|
||
if ($langs->trans("Currency".$code_iso)!="Currency".$code_iso)
|
||
{
|
||
return $langs->trans("Currency".$code_iso);
|
||
}
|
||
|
||
// Si pas de traduction, on consulte libell<6C> par d<>faut en table
|
||
$sql = "SELECT label FROM ".MAIN_DB_PREFIX."c_currencies";
|
||
$sql.= " WHERE code_iso='$code_iso';";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$num = $this->db->num_rows();
|
||
|
||
if ($num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
$label=($obj->label!='-'?$obj->label:'');
|
||
if ($withcode) return $label==$code_iso?"$code_iso":"$code_iso - $label";
|
||
else return $label;
|
||
}
|
||
else
|
||
{
|
||
return $code_iso;
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \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 '<form method="post" action="'.$page.'" class="notoptoleftroright">';
|
||
print '<input type="hidden" name="action" value="'.$action.'">';
|
||
|
||
print '<table width="100%" class="valid">';
|
||
|
||
// Ligne titre
|
||
print '<tr class="validtitre"><td class="validtitre" colspan="3">'.img_picto('','recent').' '.$title.'</td></tr>';
|
||
|
||
// Ligne formulaire
|
||
if ($formquestion)
|
||
{
|
||
print '<tr class="valid"><td class="valid" colspan="3">';
|
||
print '<table class="notopnoleftnoright" width="100%">';
|
||
print '<tr><td colspan="3" valign="top">'.$formquestion['text'].'</td></tr>';
|
||
foreach ($formquestion as $key => $input)
|
||
{
|
||
if ($input['type'] == 'text')
|
||
{
|
||
print '<tr><td valign="top">'.$input['label'].'</td><td colspan="2"><input type="text" class="flat" name="'.$input['name'].'" size="'.$input['size'].'" value="'.$input['value'].'"></td></tr>';
|
||
}
|
||
if ($input['type'] == 'select')
|
||
{
|
||
// TODO
|
||
}
|
||
if ($input['type'] == 'checkbox')
|
||
{
|
||
print '<tr>';
|
||
print '<td valign="top">'.$input['label'].' ';
|
||
print '<input type="checkbox" class="flat" name="'.$input['name'].'"';
|
||
if ($input['value'] != 'false') print ' checked="true"';
|
||
print '></td>';
|
||
print '<td valign="top" align="left"> </td>';
|
||
print '<td valign="top" align="left"> </td>';
|
||
print '</tr>';
|
||
}
|
||
if ($input['type'] == 'radio')
|
||
{
|
||
$i=0;
|
||
foreach($input['values'] as $selkey => $selval)
|
||
{
|
||
print '<tr>';
|
||
if ($i==0) print '<td valign="top">'.$input['label'].'</td>';
|
||
else print '<td> </td>';
|
||
print '<td valign="top" width="20"><input type="radio" class="flat" name="'.$input['name'].'" value="'.$selkey.'"></td>';
|
||
print '<td valign="top" align="left">';
|
||
print $selval;
|
||
print '</td></tr>';
|
||
$i++;
|
||
}
|
||
}
|
||
}
|
||
print '</table>';
|
||
print '</td></tr>';
|
||
|
||
//print '<tr class="valid"><td class="valid" colspan="3"><hr></td></tr>';
|
||
}
|
||
|
||
// Ligne message
|
||
print '<tr class="valid">';
|
||
print '<td class="valid">'.$question.'</td>';
|
||
print '<td class="valid">';
|
||
print $this->selectyesno("confirm","no");
|
||
print '</td>';
|
||
print '<td class="valid" align="center"><input class="button" type="submit" value="'.$langs->trans("Validate").'"></td>';
|
||
print '</tr>';
|
||
|
||
print '</table>';
|
||
|
||
if (is_array($formquestion))
|
||
{
|
||
foreach ($formquestion as $key => $input)
|
||
{
|
||
if ($input['type'] == 'hidden') print '<input type="hidden" name="'.$input['name'].'" value="'.$input['value'].'">';
|
||
}
|
||
}
|
||
|
||
print "</form>\n";
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Affiche formulaire de selection de projet
|
||
* \param page Page
|
||
* \param socid Id societe
|
||
* \param selected Id projet pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom du formulaire select
|
||
*/
|
||
function form_project($page, $socid, $selected='', $htmlname='projectid')
|
||
{
|
||
global $langs;
|
||
|
||
$langs->load("project");
|
||
if ($htmlname != "none")
|
||
{
|
||
print '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="classin">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$this->select_projects($socid,$selected,$htmlname);
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
else
|
||
{
|
||
if ($selected) {
|
||
$projet = New Project($this->db);
|
||
$projet->fetch($selected);
|
||
print '<a href="'.DOL_URL_ROOT.'/projet/fiche.php?id='.$selected.'">'.$projet->title.'</a>';
|
||
} else {
|
||
print " ";
|
||
}
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Affiche formulaire de selection de conditions de paiement
|
||
* \param page Page
|
||
* \param selected Id condition pr<70>s<EFBFBD>lectionn<6E>e
|
||
* \param htmlname Nom du formulaire select
|
||
* \param addempty Ajoute entr<74>e vide
|
||
*/
|
||
function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id', $addempty=0)
|
||
{
|
||
global $langs;
|
||
if ($htmlname != "none")
|
||
{
|
||
print '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setconditions">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$this->select_conditions_paiements($selected,$htmlname,-1,$addempty);
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
else
|
||
{
|
||
if ($selected)
|
||
{
|
||
$this->load_cache_conditions_paiements();
|
||
print $this->cache_conditions_paiements_libelle[$selected];
|
||
} else {
|
||
print " ";
|
||
}
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Affiche formulaire de selection de l'assuj<75>tissement <20> la TVA
|
||
* \param page Page
|
||
* \param selected Id condition pr<70>s<EFBFBD>lectionn<6E>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 '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setassujtva">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$this->select_assujetti_tva($selected,$htmlname);
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
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<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom du formulaire select
|
||
*/
|
||
function form_modes_reglement($page, $selected='', $htmlname='mode_reglement_id')
|
||
{
|
||
global $langs;
|
||
if ($htmlname != "none")
|
||
{
|
||
print '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setmode">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$this->select_types_paiements($selected,$htmlname);
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
else
|
||
{
|
||
if ($selected)
|
||
{
|
||
$this->load_cache_types_paiements();
|
||
print $this->cache_types_paiements_libelle[$selected];
|
||
} else {
|
||
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 '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setremisepercent">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
print '<input type="text" name="'.$htmlname.'" size="1" value="'.$selected.'">%';
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
else
|
||
{
|
||
if ($selected)
|
||
{
|
||
print $selected;
|
||
} else {
|
||
print "0%";
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Affiche formulaire ajout fichier
|
||
* \param url Url
|
||
* \param titre Titre zone
|
||
* \param addcancel 1=Ajoute un bouton 'Annuler'
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function form_attach_new_file($url,$titre='',$addcancel=0)
|
||
{
|
||
global $conf,$langs;
|
||
|
||
if ($conf->upload != 0)
|
||
{
|
||
print "\n\n<!-- Start form attach new file -->\n";
|
||
|
||
if (! $titre) $titre=$langs->trans("AttachANewFile");
|
||
print_titre($titre);
|
||
|
||
print '<form name="userfile" action="'.$url.'" enctype="multipart/form-data" method="POST">';
|
||
|
||
print '<table width="100%" class="noborder">';
|
||
print '<tr><td width="50%" valign="top">';
|
||
|
||
$max=$conf->upload; // En Kb
|
||
$maxphp=@ini_get('upload_max_filesize'); // En inconnu
|
||
if (eregi('m$',$maxphp)) $maxphp=$maxphp*1024;
|
||
if (eregi('k$',$maxphp)) $maxphp=$maxphp;
|
||
// Now $max and $maxphp are in Kb
|
||
if ($maxphp > 0) $max=min($max,$maxphp);
|
||
|
||
if ($conf->upload > 0)
|
||
{
|
||
print '<input type="hidden" name="max_file_size" value="'.($max*1024).'">';
|
||
}
|
||
print '<input class="flat" type="file" name="userfile" size="70">';
|
||
print ' ';
|
||
print '<input type="submit" class="button" name="sendit" value="'.$langs->trans("Upload").'">';
|
||
|
||
if ($addcancel)
|
||
{
|
||
print ' ';
|
||
print '<input type="submit" class="button" name="cancel" value="'.$langs->trans("Cancel").'">';
|
||
}
|
||
|
||
print ' ('.$langs->trans("MaxSize").': '.$max.' '.$langs->trans("Kb").')';
|
||
|
||
print "</td></tr>";
|
||
print "</table>";
|
||
|
||
print '</form>';
|
||
print '<br>';
|
||
|
||
print "\n<!-- End form attach new file -->\n\n";
|
||
}
|
||
|
||
return 1;
|
||
}
|
||
|
||
/**
|
||
* \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 '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setabsolutediscount">';
|
||
print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
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'; // Remises disponibles
|
||
if ($filter) $newfilter.=' AND '.$filter;
|
||
print $this->select_remises('',$htmlname,$newfilter,$socid);
|
||
print '</td>';
|
||
print '<td align="left"> <input type="submit" class="button" value="';
|
||
if (! $filter || $filter=='fk_facture_source IS NULL') print $langs->trans("UseDiscount");
|
||
else print $langs->trans("UseCreditNoteInInvoicePayment");
|
||
print '"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
else
|
||
{
|
||
if ($selected)
|
||
{
|
||
print $selected;
|
||
}
|
||
else
|
||
{
|
||
print "0";
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Affiche formulaire de selection des contacts
|
||
* \param page Page
|
||
* \param selected Id contact pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom du formulaire select
|
||
*/
|
||
function form_contacts($page, $societe, $selected='', $htmlname='contactidp')
|
||
{
|
||
global $langs;
|
||
if ($htmlname != "none")
|
||
{
|
||
print '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="set_contact">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$num=$this->select_contacts($societe->id, $selected, $htmlname);
|
||
if ($num==0)
|
||
{
|
||
print '<font class="error">Cette societe n\'a pas de contact, veuillez en cr<63>er un avant de faire votre proposition commerciale</font><br>';
|
||
print '<a href="'.DOL_URL_ROOT.'/contact/fiche.php?socid='.$societe->id.'&action=create&backtoreferer=1">'.$langs->trans('AddContact').'</a>';
|
||
}
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
|
||
print '</tr></table></form>';
|
||
}
|
||
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<70>s<EFBFBD>lectionn<6E>e
|
||
* \param htmlname Nom du formulaire select
|
||
* \param origin Origine de l'appel pour pouvoir cr<63>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 '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setdeliveryadress">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$this->select_adresse_livraison($selected, $socid, $htmlname, 1);
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'">';
|
||
$langs->load("companies");
|
||
print ' <a href='.DOL_URL_ROOT.'/comm/adresse_livraison.php?socid='.$socid.'&action=create&origin='.$origin.'&originid='.$originid.'>'.$langs->trans("AddAddress").'</a>';
|
||
print '</td></tr></table></form>';
|
||
}
|
||
else
|
||
{
|
||
if ($selected)
|
||
{
|
||
require_once(DOL_DOCUMENT_ROOT ."/comm/adresse_livraison.class.php");
|
||
$livraison=new AdresseLivraison($this->db);
|
||
$livraison->fetch_adresse($selected);
|
||
print '<a href='.DOL_URL_ROOT.'/comm/adresse_livraison.php?socid='.$livraison->socid.'&idl='.$livraison->idl.'&action=edit&origin='.$origin.'&originid='.$originid.'>'.$livraison->label.'</a>';
|
||
}
|
||
else
|
||
{
|
||
print " ";
|
||
}
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des devises, dans la langue de l'utilisateur
|
||
* \param selected code devise pr<70>-s<>lectionn<6E>e
|
||
* \param htmlname nom de la liste deroulante
|
||
* \todo trier liste sur noms apr<70>s traduction plutot que avant
|
||
*/
|
||
function select_currency($selected='',$htmlname='currency_id')
|
||
{
|
||
global $conf,$langs;
|
||
$langs->load("dict");
|
||
|
||
if ($selected=='euro' || $selected=='euros') $selected='EUR'; // Pour compatibilit<69>
|
||
|
||
$sql = "SELECT code_iso, label, active FROM ".MAIN_DB_PREFIX."c_currencies";
|
||
$sql .= " WHERE active = 1";
|
||
$sql .= " ORDER BY code_iso ASC;";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
if ($num)
|
||
{
|
||
$foundselected=false;
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object();
|
||
if ($selected && $selected == $obj->code_iso)
|
||
{
|
||
$foundselected=true;
|
||
print '<option value="'.$obj->code_iso.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->code_iso.'">';
|
||
}
|
||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||
if ($obj->code_iso) { print $obj->code_iso . ' - '; }
|
||
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 '</option>';
|
||
$i++;
|
||
}
|
||
}
|
||
print '</select>';
|
||
return 0;
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Selection du taux de tva appliqu<71> par vendeur
|
||
* \param name Nom champ html
|
||
* \param defaulttx For<6F>age du taux tva pr<70>s<EFBFBD>lectionn<6E>. Mettre '' pour aucun forcage.
|
||
* \param societe_vendeuse Objet soci<63>t<EFBFBD> vendeuse
|
||
* \param societe_acheteuse Objet soci<63>t<EFBFBD> acheteuse
|
||
* \param taux_produit Taux par defaut du produit vendu
|
||
* \remarks Si vendeur non assujeti <20> 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<75> europ<6F>enne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par d<>faut=0 (La TVA doit <20>tre pay<61> par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de r<>gle.
|
||
* Si (vendeur et acheteur dans Communaut<75> europ<6F>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<6F>e par d<>faut=0. Fin de r<>gle.
|
||
*/
|
||
function select_tva($name='tauxtva', $defaulttx='', $societe_vendeuse='', $societe_acheteuse='', $taux_produit='')
|
||
{
|
||
global $langs,$conf,$mysoc;
|
||
|
||
$txtva=array();
|
||
$libtva=array();
|
||
|
||
//print $societe_vendeuse."-".$societe_acheteuse;
|
||
if (is_object($societe_vendeuse) && ! $societe_vendeuse->pays_code)
|
||
{
|
||
if ($societe_vendeuse->id == $mysoc->id)
|
||
{
|
||
print '<font class="error">'.$langs->trans("ErrorYourCountryIsNotDefined").'</div>';
|
||
}
|
||
else
|
||
{
|
||
print '<font class="error">'.$langs->trans("ErrorSupplierCountryIsNotDefined").'</div>';
|
||
}
|
||
return;
|
||
}
|
||
|
||
if (is_object($societe_vendeuse))
|
||
{
|
||
$code_pays=$societe_vendeuse->pays_code;
|
||
}
|
||
else
|
||
{
|
||
$code_pays=$mysoc->pays_code; // Pour compatibilite ascendente
|
||
}
|
||
|
||
// Recherche liste des codes TVA du pays vendeur
|
||
$sql = "SELECT 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 AND p.code = '".$code_pays."'";
|
||
$sql .= " AND t.active = 1";
|
||
$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.'%'.($obj->recuperableonly ? ' *':'');
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print '<font class="error">'.$langs->trans("ErrorNoVATRateDefinedForSellerCountry",$code_pays).'</font>';
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print '<font class="error">'.$this->db->error().'</font>';
|
||
}
|
||
|
||
// D<>finition du taux <20> pr<70>s<EFBFBD>lectionner (si defaulttx non forc<72> et donc vaut -1 ou '')
|
||
if ($defaulttx < 0 || strlen($defaulttx) == 0)
|
||
{
|
||
$defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$taux_produit);
|
||
}
|
||
// Si taux par defaut n'a pu etre d<>termin<69>, on prend dernier de la liste.
|
||
// Comme ils sont tri<72>s par ordre croissant, dernier = plus <20>lev<65> = taux courant
|
||
if ($defaulttx < 0 || strlen($defaulttx) == 0)
|
||
{
|
||
$defaulttx = $txtva[sizeof($txtva)-1];
|
||
}
|
||
|
||
$nbdetaux = sizeof($txtva);
|
||
|
||
if (sizeof($txtva))
|
||
{
|
||
print '<select class="flat" name="'.$name.'">';
|
||
if ($default) print '<option value="0">'.$langs->trans("Default").'</option>';
|
||
|
||
for ($i = 0 ; $i < $nbdetaux ; $i++)
|
||
{
|
||
print '<option value="'.$txtva[$i].'"';
|
||
if ($txtva[$i] == $defaulttx)
|
||
{
|
||
print ' selected="true"';
|
||
}
|
||
print '>'.vatrate($libtva[$i]).'</option>';
|
||
|
||
$this->tva_taux_value[$i] = $txtva[$i];
|
||
$this->tva_taux_libelle[$i] = $libtva[$i];
|
||
|
||
}
|
||
print '</select>';
|
||
}
|
||
}
|
||
|
||
|
||
|
||
|
||
/**
|
||
* \brief Selection des unites de mesure
|
||
* \param name Nom champ html
|
||
* \param measuring_style Le style de mesure : weight, volume,...
|
||
* \param default For<6F>age de l'unite
|
||
* \remarks pour l'instant on ne definit pas les unites dans la base
|
||
*/
|
||
function select_measuring_units($name='measuring_units', $measuring_style='', $default='0', $adddefault=0)
|
||
{
|
||
global $langs,$conf,$mysoc;
|
||
$langs->load("other");
|
||
|
||
if ($measuring_style == 'weight')
|
||
{
|
||
$measuring_units[3] = $langs->trans("WeightUnitton");
|
||
$measuring_units[0] = $langs->trans("WeightUnitkg");
|
||
$measuring_units[-3] = $langs->trans("WeightUnitg");
|
||
$measuring_units[-6] = $langs->trans("WeightUnitmg");
|
||
}
|
||
else if ($measuring_style == 'volume')
|
||
{
|
||
$measuring_units[0] = $langs->trans("VolumeUnitm3");
|
||
$measuring_units[-3] = $langs->trans("VolumeUnitcm3");
|
||
$measuring_units[-6] = $langs->trans("VolumeUnitmm3");
|
||
}
|
||
|
||
print '<select class="flat" name="'.$name.'">';
|
||
if ($adddefault) print '<option value="0">'.$langs->trans("Default").'</option>';
|
||
|
||
foreach ($measuring_units as $key => $value)
|
||
{
|
||
print '<option value="'.$key.'"';
|
||
if ($key == $default)
|
||
{
|
||
print ' selected="true"';
|
||
}
|
||
print '>'.$value.'</option>';
|
||
}
|
||
print '</select>';
|
||
}
|
||
|
||
/**
|
||
*
|
||
*
|
||
*
|
||
*
|
||
*/
|
||
function load_tva($name='tauxtva', $defaulttx='', $societe_vendeuse='', $societe_acheteuse='', $taux_produit='')
|
||
{
|
||
global $langs,$conf,$mysoc;
|
||
|
||
if (is_object($societe_vendeuse->pays_code))
|
||
{
|
||
$code_pays=$societe_vendeuse->pays_code;
|
||
}
|
||
else
|
||
{
|
||
$code_pays=$mysoc->pays_code; // Pour compatibilite ascendente
|
||
}
|
||
|
||
// Recherche liste des codes TVA du pays vendeur
|
||
$sql = "SELECT 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 AND p.code = '".$code_pays."'";
|
||
$sql .= " AND t.active = 1";
|
||
$sql .= " ORDER BY t.taux ASC, t.recuperableonly ASC";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$num = $this->db->num_rows($resql);
|
||
for ($i = 0; $i < $num; $i++)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$txtva[ $i ] = $obj->taux;
|
||
$libtva[ $i ] = $obj->taux.'%'.($obj->recuperableonly ? ' *':'');
|
||
}
|
||
}
|
||
|
||
// D<>finition du taux <20> pr<70>s<EFBFBD>lectionner
|
||
if ($defaulttx == '') $defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$taux_produit);
|
||
// Si taux par defaut n'a pu etre trouv<75>, on prend dernier.
|
||
// Comme ils sont tri<72>s par ordre croissant, dernier = plus <20>lev<65> = taux courant
|
||
if ($defaulttx == '') $defaulttx = $txtva[sizeof($txtva)-1];
|
||
|
||
$nbdetaux = sizeof($txtva);
|
||
|
||
for ($i = 0 ; $i < $nbdetaux ; $i++)
|
||
{
|
||
$this->tva_taux_value[$i] = $txtva[$i];
|
||
$this->tva_taux_libelle[$i] = $libtva[$i];
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Affiche zone de selection de date
|
||
* Liste deroulante pour les jours, mois, annee et eventuellement heurs et minutes
|
||
* Les champs sont pr<70>s<EFBFBD>lectionn<6E>es avec:
|
||
* - La date set_time (timestamps ou date au format YYYY-MM-DD ou YYYY-MM-DD HH:MM)
|
||
* - La date du jour si set_time vaut ''
|
||
* - Aucune date (champs vides) si set_time vaut -1 (dans ce cas empty doit valoir 1)
|
||
* \param set_time Date de pr<70>-s<>lection
|
||
* \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. Utilis<69> pour les dates en popup style andre.
|
||
* \param d 1=Affiche aussi les jours, mois, annees
|
||
*/
|
||
function select_date($set_time='', $prefix='re', $h=0, $m=0, $empty=0, $form_name="", $d=1)
|
||
{
|
||
global $conf,$langs;
|
||
|
||
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 pr<70>selection
|
||
if (eregi('^([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 ($set_time > 0)
|
||
{
|
||
// Date est un timestamps
|
||
$syear = date("Y", $set_time);
|
||
$smonth = date("n", $set_time);
|
||
$sday = date("d", $set_time);
|
||
$shour = date("H", $set_time);
|
||
$smin = date("i", $set_time);
|
||
}
|
||
else
|
||
{
|
||
// Date est vide ou vaut -1
|
||
$syear = '';
|
||
$smonth = '';
|
||
$sday = '';
|
||
$shour = '';
|
||
$smin = '';
|
||
}
|
||
|
||
if ($d)
|
||
{
|
||
/*
|
||
* Affiche date en popup
|
||
*/
|
||
if ($conf->use_javascript && $conf->use_popup_calendar)
|
||
{
|
||
//print "e".$set_time." t ".$conf->format_date_short;
|
||
if ($set_time > 0)
|
||
{
|
||
$formated_date=dolibarr_print_date($set_time,$conf->format_date_short);
|
||
}
|
||
|
||
// Calendrier popup version eldy
|
||
if ("$conf->use_popup_calendar" == "eldy") // Laisser conf->use_popup_calendar entre quote
|
||
{
|
||
// Zone de saisie manuelle de la date
|
||
print '<input id="'.$prefix.'" name="'.$prefix.'" type="text" size="10" maxlength="11" value="'.$formated_date.'"';
|
||
print ' onChange="dpChangeDay(\''.$prefix.'\',\''.$conf->format_date_short_java.'\')"';
|
||
print '>';
|
||
|
||
// Icone calendrier
|
||
print '<button id="'.$prefix.'Button" type="button" class="dpInvisibleButtons"';
|
||
$base=DOL_URL_ROOT.'/lib/';
|
||
print ' onClick="showDP(\''.$base.'\',\''.$prefix.'\',\''.$conf->format_date_short_java.'\');">'.img_object($langs->trans("SelectDate"),'calendar').'</button>';
|
||
|
||
print '<input type="hidden" id="'.$prefix.'day" name="'.$prefix.'day" value="'.$sday.'">'."\n";
|
||
print '<input type="hidden" id="'.$prefix.'month" name="'.$prefix.'month" value="'.$smonth.'">'."\n";
|
||
print '<input type="hidden" id="'.$prefix.'year" name="'.$prefix.'year" value="'.$syear.'">'."\n";
|
||
}
|
||
else
|
||
{
|
||
// Calendrier popup version defaut
|
||
if ($langs->defaultlang != "")
|
||
{
|
||
print '<script language="javascript" type="text/javascript">';
|
||
print 'selectedLanguage = "'.substr($langs->defaultlang,0,2).'"';
|
||
print '</script>';
|
||
}
|
||
print '<script language="javascript" type="text/javascript" src="'.DOL_URL_ROOT.'/lib/lib_calendar.js"></script>';
|
||
print '<input id="'.$prefix.'" type="text" name="'.$prefix.'" size="10" value="'.$formated_date.'"';
|
||
print ' onChange="dpChangeDay(\''.$prefix.'\',\''.$conf->format_date_short_java.'\')"';
|
||
print '> ';
|
||
print '<input type="hidden" id="'.$prefix.'day" name="'.$prefix.'day" value="'.$sday.'">'."\n";
|
||
print '<input type="hidden" id="'.$prefix.'month" name="'.$prefix.'month" value="'.$smonth.'">'."\n";
|
||
print '<input type="hidden" id="'.$prefix.'year" name="'.$prefix.'year" value="'.$syear.'">'."\n";
|
||
if($form_name =="")
|
||
print '<A HREF="javascript:showCalendar(document.forms[3].'.$prefix.')">'.img_cal().'</a>';
|
||
else
|
||
print '<A HREF="javascript:showCalendar(document.forms[\''.$form_name.'\'].'.$prefix.')">'.img_cal().'</a>';
|
||
}
|
||
}
|
||
|
||
/*
|
||
* Affiche date en select
|
||
*/
|
||
if (! $conf->use_javascript || ! $conf->use_popup_calendar)
|
||
{
|
||
/*
|
||
if ($set_time == -1)
|
||
{
|
||
$sday = 0;
|
||
$smonth = 0;
|
||
$syear = 0;
|
||
$shour = 0;
|
||
$smin = 0;
|
||
}
|
||
*/
|
||
// Jour
|
||
print '<select class="flat" name="'.$prefix.'day">';
|
||
|
||
if ($empty || $set_time == -1)
|
||
{
|
||
print '<option value="0" selected="true"> </option>';
|
||
}
|
||
|
||
for ($day = 1 ; $day <= 31; $day++)
|
||
{
|
||
if ($day == $sday)
|
||
{
|
||
print "<option value=\"$day\" selected=\"true\">$day";
|
||
}
|
||
else
|
||
{
|
||
print "<option value=\"$day\">$day";
|
||
}
|
||
print "</option>";
|
||
}
|
||
|
||
print "</select>";
|
||
|
||
print '<select class="flat" name="'.$prefix.'month">';
|
||
if ($empty || $set_time == -1)
|
||
{
|
||
print '<option value="0" selected="true"> </option>';
|
||
}
|
||
|
||
// Mois
|
||
for ($month = 1 ; $month <= 12 ; $month++)
|
||
{
|
||
print '<option value="'.$month.'"'.($month == $smonth?' selected="true"':'').'>';
|
||
print dolibarr_print_date(mktime(1,1,1,$month,1,2000),"%b");
|
||
print "</option>";
|
||
}
|
||
print "</select>";
|
||
|
||
// Ann<6E>e
|
||
if ($empty || $set_time == -1)
|
||
{
|
||
print '<input class="flat" type="text" size="3" maxlength="4" name="'.$prefix.'year" value="'.$syear.'">';
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$prefix.'year">';
|
||
|
||
for ($year = $syear - 5; $year < $syear + 10 ; $year++)
|
||
{
|
||
if ($year == $syear)
|
||
{
|
||
print "<option value=\"$year\" selected=\"true\">$year";
|
||
}
|
||
else
|
||
{
|
||
print "<option value=\"$year\">$year";
|
||
}
|
||
print "</option>";
|
||
}
|
||
print "</select>\n";
|
||
}
|
||
}
|
||
}
|
||
|
||
if ($d && $h) print ' ';
|
||
|
||
if ($h)
|
||
{
|
||
/*
|
||
* Affiche heure en select
|
||
*/
|
||
print '<select class="flat" name="'.$prefix.'hour">';
|
||
if ($empty) print '<option value="-1"> </option>';
|
||
for ($hour = 0; $hour < 24; $hour++)
|
||
{
|
||
if (strlen($hour) < 2)
|
||
{
|
||
$hour = "0" . $hour;
|
||
}
|
||
if ($hour == $shour)
|
||
{
|
||
print "<option value=\"$hour\" selected=\"true\">$hour</option>";
|
||
}
|
||
else
|
||
{
|
||
print "<option value=\"$hour\">$hour</option>";
|
||
}
|
||
}
|
||
print "</select>";
|
||
print "H\n";
|
||
}
|
||
|
||
if ($m)
|
||
{
|
||
/*
|
||
* Affiche min en select
|
||
*/
|
||
print '<select class="flat" name="'.$prefix.'min">';
|
||
if ($empty) print '<option value="-1"> </option>';
|
||
for ($min = 0; $min < 60 ; $min++)
|
||
{
|
||
if (strlen($min) < 2)
|
||
{
|
||
$min = "0" . $min;
|
||
}
|
||
if ($min == $smin)
|
||
{
|
||
print "<option value=\"$min\" selected=\"true\">$min</option>";
|
||
}
|
||
else
|
||
{
|
||
print "<option value=\"$min\">$min</option>";
|
||
}
|
||
}
|
||
print "</select>";
|
||
print "M\n";
|
||
}
|
||
|
||
}
|
||
|
||
/**
|
||
\brief Fonction servant a afficher une dur<75>e dans une liste d<>roulante
|
||
\param prefix prefix
|
||
\param iSecond Nombre de secondes
|
||
*/
|
||
function select_duree($prefix,$iSecond='')
|
||
{
|
||
if ($iSecond)
|
||
{
|
||
$hourSelected = ConvertSecondToTime($iSecond,'hour');
|
||
$minSelected = ConvertSecondToTime($iSecond,'min');
|
||
}
|
||
print '<select class="flat" name="'.$prefix.'hour">';
|
||
print "<option value=\"0\">0</option>";
|
||
for ($hour = 1 ; $hour < 24 ; $hour++)
|
||
{
|
||
print '<option value="'.$hour.'"';
|
||
if ((!$hourSelected && $hour == 1) || ($hourSelected == $hour))
|
||
{
|
||
print " selected=\"true\"";
|
||
}
|
||
print ">".$hour."</option>";
|
||
}
|
||
print "</select>";
|
||
print "H ";
|
||
print '<select class="flat" name="'.$prefix.'min">';
|
||
for ($min = 0 ; $min <= 55 ; $min=$min+5)
|
||
{
|
||
print '<option value="'.$min.'"';
|
||
if ($minSelected == $min) print ' selected="true"';
|
||
print '>'.$min.'</option>';
|
||
}
|
||
print "</select>";
|
||
print "M ";
|
||
}
|
||
|
||
|
||
/**
|
||
\brief Affiche un select <20> partir d'un tableau
|
||
\param htmlname Nom de la zone select
|
||
\param array Tableau de key+valeur
|
||
\param id Key pr<70>-s<>lectionn<6E>e
|
||
\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 pour utiliser la valeur comme cl<63>
|
||
\param $use_java 1 pour utiliser des fonctions javascript
|
||
\param $fonction Fonction javascript
|
||
\param $translate Traduire la valeur
|
||
*/
|
||
function select_array($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $use_java=0, $fonction='', $translate=0)
|
||
{
|
||
global $langs;
|
||
if ($use_java == 1 && $fonction != '')
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'" '.$fonction.'>';
|
||
}
|
||
else
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
}
|
||
|
||
if ($show_empty)
|
||
{
|
||
print '<option value="-1"'.($id==-1?' selected="true"':'').'> </option>'."\n";
|
||
}
|
||
|
||
while (list($key, $value) = each ($array))
|
||
{
|
||
print '<option value="'.($value_as_key?$value:$key).'"';
|
||
// Si il faut pr<70>s<EFBFBD>lectionner une valeur
|
||
if ($id != '' && ($id == $key || $id == $value))
|
||
{
|
||
print ' selected="true"';
|
||
}
|
||
|
||
if ($key_in_label)
|
||
{
|
||
print '>'.$key.' - '.($translate?$langs->trans($value):$value)."</option>\n";
|
||
}
|
||
else
|
||
{
|
||
if ($value == '' || $value == '-') { $value=' '; }
|
||
print ">".($translate?$langs->trans($value):$value)."</option>\n";
|
||
}
|
||
}
|
||
|
||
print "</select>\n";
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie la cha<68>ne de caract<63>re d<>crivant l'erreur
|
||
*/
|
||
function error()
|
||
{
|
||
return $this->error;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Selection de oui/non en chaine (renvoie yes/no)
|
||
* \param name Nom du select
|
||
* \param value Valeur pr<70>s<EFBFBD>lectionn<6E>e
|
||
* \param option 0 retourne yes/no, 1 retourne 1/0
|
||
*/
|
||
function selectyesno($name,$value='',$option=0)
|
||
{
|
||
global $langs;
|
||
|
||
$yes="yes"; $no="no";
|
||
|
||
if ($option)
|
||
{
|
||
$yes="1";
|
||
$no="0";
|
||
}
|
||
|
||
$resultyesno = '<select class="flat" name="'.$name.'">'."\n";
|
||
if (("$value" == 'yes') || ($value == 1))
|
||
{
|
||
$resultyesno .= '<option value="'.$yes.'" selected="true">'.$langs->trans("yes").'</option>'."\n";
|
||
$resultyesno .= '<option value="'.$no.'">'.$langs->trans("no").'</option>'."\n";
|
||
}
|
||
else
|
||
{
|
||
$resultyesno .= '<option value="'.$yes.'">'.$langs->trans("yes").'</option>'."\n";
|
||
$resultyesno .= '<option value="'.$no.'" selected="true">'.$langs->trans("no").'</option>'."\n";
|
||
}
|
||
$resultyesno .= '</select>'."\n";
|
||
return $resultyesno;
|
||
}
|
||
|
||
/**
|
||
* \brief Checkbox
|
||
*
|
||
*/
|
||
function checkbox($name,$checked=0,$value=1)
|
||
{
|
||
if ($checked==1){
|
||
print "<input type=\"checkbox\" name=\"$name\" value=\"$value\" checked />\n";
|
||
}else{
|
||
print "<input type=\"checkbox\" name=\"$name\" value=\"$value\" />\n";
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Affiche la cartouche g<>n<EFBFBD>rique d'un rapport
|
||
* \param nom Valeur pour nom du rapport
|
||
* \param variante Lien optionnel de variante du rapport
|
||
* \param period Periode du reporting
|
||
* \param periodlink Lien pour changer de p<>riode
|
||
* \param description Description
|
||
* \param builddate Date g<>n<EFBFBD>ration
|
||
* \param exportlink Lien pour export
|
||
*/
|
||
function report_header($nom,$variante='',$period,$periodlink,$description,$builddate,$exportlink)
|
||
{
|
||
global $langs;
|
||
|
||
print "\n\n<!-- debut cartouche rapport -->\n";
|
||
|
||
$h=0;
|
||
$head[$h][0] = $_SERVER["PHP_SELF"];
|
||
$head[$h][1] = $langs->trans("Report");
|
||
dolibarr_fiche_head($head, $hselected, $societe->nom);
|
||
|
||
print '<table width="100%" class="border">';
|
||
|
||
// Ligne de titre
|
||
print '<tr>';
|
||
print '<td valign="top" width="110">'.$langs->trans("ReportName").'</td>';
|
||
if (! $variante) print '<td colspan="3">';
|
||
else print '<td>';
|
||
print $nom;
|
||
if ($variante) print '</td><td colspan="2">'.$variante;
|
||
print '</td>';
|
||
print '</tr>';
|
||
|
||
// Ligne de la periode d'analyse du rapport
|
||
print '<tr>';
|
||
print '<td>'.$langs->trans("ReportPeriod").'</td>';
|
||
if (! $periodlink) print '<td colspan="3">';
|
||
else print '<td>';
|
||
print $period;
|
||
if ($periodlink) print '</td><td colspan="2">'.$periodlink;
|
||
print '</td>';
|
||
print '</tr>';
|
||
|
||
// Ligne de description
|
||
print '<tr>';
|
||
print '<td valign="top">'.$langs->trans("ReportDescription").'</td>';
|
||
print '<td colspan="3">'.$description.'</td>';
|
||
print '</tr>';
|
||
|
||
// Ligne d'export
|
||
print '<tr>';
|
||
print '<td>'.$langs->trans("GeneratedOn").'</td>';
|
||
if (! $exportlink) print '<td colspan="3">';
|
||
else print '<td>';
|
||
print dolibarr_print_date($builddate);
|
||
if ($exportlink) print '</td><td>'.$langs->trans("Export").'</td><td>'.$exportlink;
|
||
print '</td></tr>';
|
||
|
||
print '</table>';
|
||
print '</div>';
|
||
print "\n<!-- fin cartouche rapport -->\n\n";
|
||
}
|
||
|
||
/**
|
||
* \brief Affiche la cartouche de la liste des documents d'une propale, facture...
|
||
* \param modulepart propal=propal, facture=facture, ...
|
||
* \param filename Sous rep <20> scanner (vide si filedir deja complet)
|
||
* \param filedir Repertoire <20> scanner
|
||
* \param urlsource Url page origine
|
||
* \param genallowed G<>n<EFBFBD>ration autoris<69>e (1/0 ou array des formats)
|
||
* \param delallowed Suppression autoris<69>e (1/0)
|
||
* \param modelselected Modele <20> pr<70>s<EFBFBD>lectionner par d<>faut
|
||
* \param modelliste Tableau des modeles possibles
|
||
* \param forcenomultilang N'affiche pas option langue meme si MAIN_MULTILANGS d<>fini
|
||
* \param iconPDF N'affiche que l'icone PDF avec le lien (1/0)
|
||
* \remarks Le fichier de facture d<>taill<6C>e est de la forme
|
||
* REFFACTURE-XXXXXX-detail.pdf ou XXXXX est une forme diverse
|
||
* \return int <0 si ko, nbre de fichiers affich<63>s si ok
|
||
*/
|
||
function show_documents($modulepart,$filename,$filedir,$urlsource,$genallowed,$delallowed=0,$modelselected='',$modelliste=array(),$forcenomultilang=0,$iconPDF=0)
|
||
{
|
||
// filedir = conf->...dir_ouput."/".get_exdir(id)
|
||
|
||
global $langs,$bc,$conf;
|
||
$var=true;
|
||
|
||
if ($iconPDF == 1)
|
||
{
|
||
$genallowed = '';
|
||
$delallowed = 0;
|
||
$modelselected = '';
|
||
$modelliste = '';
|
||
$forcenomultilang=0;
|
||
}
|
||
|
||
$filename = sanitize_string($filename);
|
||
$headershown=0;
|
||
$i=0;
|
||
|
||
// Affiche en-tete tableau
|
||
if ($genallowed)
|
||
{
|
||
$modellist=array();
|
||
if ($modulepart == 'propal')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/includes/modules/propale/modules_propale.php');
|
||
$model=new ModelePDFPropales();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
else if ($modulepart == 'commande')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/includes/modules/commande/modules_commande.php');
|
||
$model=new ModelePDFCommandes();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
elseif ($modulepart == 'expedition')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/expedition/mods/pdf/ModelePdfExpedition.class.php');
|
||
$model=new ModelePDFExpedition();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
elseif ($modulepart == 'livraison')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/livraison/mods/modules_livraison.php');
|
||
$model=new ModelePDFDeliveryOrder();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
else if ($modulepart == 'ficheinter')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/includes/modules/fichinter/modules_fichinter.php');
|
||
$model=new ModelePDFFicheinter();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
elseif ($modulepart == 'facture')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/includes/modules/facture/modules_facture.php');
|
||
$model=new ModelePDFFactures();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
elseif ($modulepart == 'export')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/includes/modules/export/modules_export.php');
|
||
$model=new ModeleExports();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
else if ($modulepart == 'commande_fournisseur')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/fourn/commande/modules/modules_commandefournisseur.php');
|
||
$model=new ModelePDFSuppliersOrders();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
else if ($modulepart == 'facture_fournisseur')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
include_once(DOL_DOCUMENT_ROOT.'/fourn/facture/modules/modules_facturefournisseur.php');
|
||
$model=new ModelePDFFacturesSuppliers();
|
||
$modellist=$model->liste_modeles($this->db);
|
||
}
|
||
}
|
||
else if ($modulepart == 'remisecheque')
|
||
{
|
||
if (is_array($genallowed)) $modellist=$genallowed;
|
||
else
|
||
{
|
||
// ??
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db,'Bad value for modulepart');
|
||
return -1;
|
||
}
|
||
|
||
$headershown=1;
|
||
|
||
print '<form action="'.$urlsource.'#builddoc" method="post">';
|
||
print '<input type="hidden" name="action" value="builddoc">';
|
||
|
||
print_titre($langs->trans("Documents"));
|
||
print '<table class="border" width="100%">';
|
||
|
||
print '<tr '.$bc[$var].'>';
|
||
print '<td>'.$langs->trans('Model').'</td>';
|
||
print '<td align="center">';
|
||
$this->select_array('model',$modellist,$modelselected,0,0,1);
|
||
$texte=$langs->trans('Generate');
|
||
print '</td>';
|
||
print '<td align="center">';
|
||
if($conf->global->MAIN_MULTILANGS && ! $forcenomultilang)
|
||
{
|
||
$this->select_lang($langs->getDefaultLang());
|
||
}
|
||
else
|
||
{
|
||
print ' ';
|
||
}
|
||
print '</td>';
|
||
print '<td align="center" colspan="'.($delallowed?'2':'1').'">';
|
||
print '<input class="button" type="submit" value="'.$texte.'">';
|
||
print '</td></tr>';
|
||
}
|
||
|
||
// Recupe liste des fichiers
|
||
$png = '';
|
||
$filter = '';
|
||
if ($iconPDF==1)
|
||
{
|
||
$png = '|\.png$';
|
||
$filter = $filename.'.pdf';
|
||
}
|
||
$file_list=dolibarr_dir_list($filedir,'files',0,$filter,'\.meta$'.$png,'date',SORT_DESC);
|
||
|
||
// Affiche en-tete tableau si non deja affich<63>
|
||
if (sizeof($file_list) && ! $headershown && !$iconPDF)
|
||
{
|
||
$headershown=1;
|
||
print_titre($langs->trans("Documents"));
|
||
print '<table class="border" width="100%">';
|
||
}
|
||
|
||
// Boucle sur chaque ligne trouv<75>e
|
||
foreach($file_list as $i => $file)
|
||
{
|
||
// D<>fini chemin relatif par rapport au module pour lien download
|
||
$relativepath=$file["name"]; // Cas general
|
||
if ($filename) $relativepath=$filename."/".$file["name"]; // Cas prpal, facture...
|
||
// Autre cas
|
||
if ($modulepart == 'don') { $relativepath = get_exdir($filename,2).$file["name"]; }
|
||
if ($modulepart == 'export') { $relativepath = $file["name"]; }
|
||
|
||
// D<>fini le type MIME du document
|
||
if (eregi('\.([^\.]+)$',$file["name"],$reg)) $extension=$reg[1];
|
||
$mimetype=strtoupper($extension);
|
||
if ($extension == 'pdf') $mimetype='PDF';
|
||
if ($extension == 'html') $mimetype='HTML';
|
||
if (eregi('\-detail\.pdf',$file["name"])) $mimetype='PDF D<>taill<6C>';
|
||
|
||
if (!$iconPDF) print "<tr $bc[$var]>";
|
||
|
||
// Affiche colonne type MIME
|
||
if (!$iconPDF) print '<td nowrap>'.$mimetype.'</td>';
|
||
// Affiche nom fichier avec lien download
|
||
if (!$iconPDF) print '<td>';
|
||
print '<a href="'.DOL_URL_ROOT . '/document.php?modulepart='.$modulepart.'&file='.urlencode($relativepath).'">';
|
||
if (!$iconPDF)
|
||
{
|
||
print $file["name"];
|
||
}
|
||
else
|
||
{
|
||
print img_pdf($file["name"],2);
|
||
}
|
||
print '</a>';
|
||
if (!$iconPDF) print '</td>';
|
||
// Affiche taille fichier
|
||
if (!$iconPDF) print '<td align="right">'.filesize($filedir."/".$file["name"]). ' bytes</td>';
|
||
// Affiche date fichier
|
||
if (!$iconPDF) print '<td align="right">'.dolibarr_print_date(filemtime($filedir."/".$file["name"]),'dayhour').'</td>';
|
||
|
||
if ($delallowed)
|
||
{
|
||
print '<td><a href="'.DOL_URL_ROOT.'/document.php?action=remove_file&modulepart='.$modulepart.'&file='.urlencode($relativepath).'&urlsource='.urlencode($urlsource).'">'.img_delete().'</a></td>';
|
||
}
|
||
|
||
if (!$iconPDF) print '</tr>';
|
||
|
||
$i++;
|
||
}
|
||
|
||
|
||
if ($headershown)
|
||
{
|
||
// Affiche pied du tableau
|
||
print "</table>\n";
|
||
if ($genallowed)
|
||
{
|
||
print '</form>';
|
||
}
|
||
}
|
||
|
||
return ($i?$i:$headershown);
|
||
}
|
||
|
||
|
||
function show_ldap_content($result,$level,$count,$var,$hide=0)
|
||
{
|
||
global $bc, $conf;
|
||
|
||
$count++;
|
||
if ($count > 1000) return -1; // To avoid infinite loop
|
||
if (! is_array($result)) return -1;
|
||
|
||
foreach($result as $key => $val)
|
||
{
|
||
if ("$key" == "objectclass") continue;
|
||
if ("$key" == "count") continue;
|
||
if ("$key" == "dn") continue;
|
||
|
||
if ("$val" == "objectclass") continue;
|
||
if ("$val" == $lastkey[$level]) continue;
|
||
|
||
$lastkey[$level]=$key;
|
||
|
||
if (is_array($val))
|
||
{
|
||
$hide=0;
|
||
if (! is_numeric($key))
|
||
{
|
||
$var=!$var;
|
||
print '<tr '.$bc[$var].'><td>';
|
||
print $key;
|
||
print '</td><td>';
|
||
if (strtolower($key) == 'userpassword') $hide=1;
|
||
}
|
||
$this->show_ldap_content($val,$level+1,$count,$var,$hide);
|
||
}
|
||
else
|
||
{
|
||
if ($hide) print eregi_replace('.','*',utf8_decode("$val"));
|
||
else print utf8_decode($val);
|
||
print '</td></tr>';
|
||
}
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des mod<6F>les d'export
|
||
* \param selected Id mod<6F>le pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom de la zone select
|
||
* \param type Type des mod<6F>les recherch<63>s
|
||
* \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 '<select class="flat" name="'.$htmlname.'">';
|
||
if ($useempty)
|
||
{
|
||
print '<option value="-1"> </option>';
|
||
}
|
||
|
||
$num = $this->db->num_rows($result);
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
if ($selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">';
|
||
}
|
||
print $obj->label;
|
||
print '</option>';
|
||
$i++;
|
||
}
|
||
print "</select>";
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des mois
|
||
* \param selected Id mois pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom de la zone select
|
||
* \param useempty Affiche valeur vide dans liste
|
||
*/
|
||
function select_month($selected='',$htmlname='monthid',$useempty=0)
|
||
{
|
||
global $langs;
|
||
$langs->load("main");
|
||
|
||
$month = monthArrayOrSelected();
|
||
|
||
$select_month = '<select class="flat" name="'.$htmlname.'">';
|
||
if ($useempty)
|
||
{
|
||
$select_month .= '<option value="0"> </option>';
|
||
}
|
||
foreach ($month as $key => $val)
|
||
{
|
||
if ($selected == $key)
|
||
{
|
||
$select_month .= '<option value="'.$key.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
$select_month .= '<option value="'.$key.'">';
|
||
}
|
||
$select_month .= $val;
|
||
}
|
||
$select_month .= '</select>';
|
||
return $select_month;
|
||
}
|
||
|
||
/**
|
||
* \brief Affiche tableau avec ref et bouton navigation pour un objet metier
|
||
* \param object Objet a afficher
|
||
* \param paramid Nom du parametre a utiliser pour nommer id dans liens URL
|
||
* \param morehtml Code html supplementaire a afficher avant barre nav
|
||
* \param shownav Show Condition
|
||
* \param fieldid Nom du champ a utiliser pour select next et previous
|
||
* \return string Portion HTML avec ref + boutons nav
|
||
*/
|
||
function showrefnav($object,$paramid,$morehtml='',$shownav=1,$fieldid='rowid')
|
||
{
|
||
$ret='';
|
||
|
||
$object->load_previous_next_ref($object->next_prev_filter,$fieldid);
|
||
$previous_ref = $object->ref_previous?'<a href="'.$_SERVER["PHP_SELF"].'?'.$paramid.'='.urlencode($object->ref_previous).'">'.img_previous().'</a>':'';
|
||
$next_ref = $object->ref_next?'<a href="'.$_SERVER["PHP_SELF"].'?'.$paramid.'='.urlencode($object->ref_next).'">'.img_next().'</a>':'';
|
||
|
||
if ($previous_ref || $next_ref || $morehtml) {
|
||
$ret.='<table class="nobordernopadding" width="100%"><tr class="nobordernopadding"><td class="nobordernopadding">';
|
||
}
|
||
//$ret.=$object->getNomUrl(0);
|
||
$ret.=$object->ref;
|
||
if ($morehtml) {
|
||
$ret.='</td><td class="nobordernopadding" align="right">'.$morehtml;
|
||
}
|
||
if ($shownav && ($previous_ref || $next_ref)) {
|
||
$ret.='</td><td class="nobordernopadding" align="center" width="20">'.$previous_ref.'</td>';
|
||
$ret.='<td class="nobordernopadding" align="center" width="20">'.$next_ref;
|
||
}
|
||
if ($previous_ref || $next_ref || $morehtml)
|
||
{
|
||
$ret.='</td></tr></table>';
|
||
}
|
||
return $ret;
|
||
}
|
||
|
||
/**
|
||
* \brief Liste de s<>lection du g<>n<EFBFBD>rateur de codes barres
|
||
* \param selected Id code pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param code_id Id du code barre
|
||
* \param idForm Id du formulaire
|
||
* Todo : ajouter une v<>rification de d<>sactivation du code barre si il est d<>j<EFBFBD> utilis<69> dans un module
|
||
*/
|
||
function setBarcodeEncoder($selected=0,$code_id,$idForm='formbarcode')
|
||
{
|
||
global $conf, $langs;
|
||
|
||
$disable = '';
|
||
|
||
// On v<>rifie si le code de barre est d<>j<EFBFBD> s<>lectionn<6E> par d<>faut dans le module produit
|
||
if ($conf->produit->enabled && $conf->global->PRODUIT_DEFAULT_BARCODE_TYPE == $code_id)
|
||
{
|
||
$disable = 'disabled="disabled"';
|
||
}
|
||
|
||
$select_encoder = '<form action="barcode.php" method="post" id="'.$idForm.'">';
|
||
$select_encoder.= '<input type="hidden" name="action" value="update">';
|
||
$select_encoder.= '<input type="hidden" name="code_id" value="'.$code_id.'">';
|
||
$select_encoder.= '<select class="flat" name="coder" onChange="barcode_coder_save(\''.$idForm.'\')">';
|
||
$select_encoder.= '<option value="0"'.($selected==0?' selected="true"':'').' '.$disable.'>'.$langs->trans('Disable').'</option>';
|
||
$select_encoder.= '<option value="-1" disabled="disabled">--------------------</option>';
|
||
$select_encoder.= '<option value="1"'.($selected==1?' selected="true"':'').'>PHP-Barcode</option>';
|
||
$select_encoder.= '<option value="2"'.($selected==2?' selected="true"':'').'>PI_Barcode</option>';
|
||
$select_encoder.= '</select></form>';
|
||
|
||
return $select_encoder;
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des types de codes barres
|
||
* \param selected Id code pr<70>s<EFBFBD>lectionn<6E>
|
||
* \param htmlname Nom de la zone select
|
||
* \param useempty Affiche valeur vide dans liste
|
||
*/
|
||
function select_barcode_type($selected='',$htmlname='coder_id',$useempty=0)
|
||
{
|
||
global $langs;
|
||
|
||
$sql = "SELECT rowid, code, libelle";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."c_barcode_type";
|
||
$sql.= " WHERE coder > 0";
|
||
$sql.= " ORDER BY rowid";
|
||
$result = $this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
$num = $this->db->num_rows($result);
|
||
$i = 0;
|
||
|
||
if ($useempty && $num > 0)
|
||
{
|
||
print '<select class="flat" name="'.$htmlname.'">';
|
||
print '<option value="0"> </option>';
|
||
}
|
||
else
|
||
{
|
||
print '<select disabled="disabled" class="flat" name="'.$htmlname.'">';
|
||
print '<option value="0" selected="true">'.$langs->trans('NoActivatedBarcode').'</option>';
|
||
}
|
||
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
if ($selected == $obj->rowid)
|
||
{
|
||
print '<option value="'.$obj->rowid.'" selected="true">';
|
||
}
|
||
else
|
||
{
|
||
print '<option value="'.$obj->rowid.'">';
|
||
}
|
||
print $obj->libelle;
|
||
print '</option>';
|
||
$i++;
|
||
}
|
||
print "</select>";
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Affiche formulaire de selection du type de code barre
|
||
* \param page Page
|
||
* \param selected Id condition pr<70>s<EFBFBD>lectionn<6E>e
|
||
* \param htmlname Nom du formulaire select
|
||
*/
|
||
function form_barcode_type($page, $selected='', $htmlname='barcodetype_id')
|
||
{
|
||
global $langs,$conf;
|
||
if ($htmlname != "none")
|
||
{
|
||
print '<form method="post" action="'.$page.'">';
|
||
print '<input type="hidden" name="action" value="setbarcodetype">';
|
||
print '<table class="noborder" cellpadding="0" cellspacing="0">';
|
||
print '<tr><td>';
|
||
$this->select_barcode_type($selected, $htmlname, 1);
|
||
print '</td>';
|
||
print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'">';
|
||
print '</td></tr></table></form>';
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
?>
|