mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2026-02-08 00:52:01 +01:00
Debut correction pour gestion cas utilisation no UCIN06.
Les remises de type avoir ne doivent pas s'inclure dans les lignes details mais dans comme paiements deja réalisé.
This commit is contained in:
Laurent Destailleur
@@ -6,7 +6,7 @@
|
||||
* 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) 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>
|
||||
*
|
||||
@@ -30,14 +30,14 @@
|
||||
|
||||
/**
|
||||
\file htdocs/html.form.class.php
|
||||
\brief Fichier de la classe des fonctions pr<70>d<EFBFBD>finie de composants html
|
||||
\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
|
||||
\brief Classe permettant la g<>n<EFBFBD>ration de composants html
|
||||
*/
|
||||
|
||||
class Form
|
||||
@@ -54,7 +54,7 @@ class Form
|
||||
|
||||
/**
|
||||
\brief Constructeur
|
||||
\param DB handler d'acc<63>s base de donn<6E>e
|
||||
\param DB handler d'acc<63>s base de donn<6E>e
|
||||
*/
|
||||
function Form($DB)
|
||||
{
|
||||
@@ -66,10 +66,10 @@ class Form
|
||||
|
||||
/**
|
||||
\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 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
|
||||
*/
|
||||
@@ -145,9 +145,9 @@ class Form
|
||||
|
||||
/**
|
||||
\brief Affiche un texte avec picto help qui affiche un tooltip
|
||||
\param text Texte <20> afficher
|
||||
\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 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
|
||||
*/
|
||||
@@ -158,9 +158,9 @@ class Form
|
||||
|
||||
/**
|
||||
\brief Affiche un texte avec picto warning qui affiche un tooltip
|
||||
\param text Texte <20> afficher
|
||||
\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 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)
|
||||
@@ -170,13 +170,13 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des d<>partements/province/cantons tout pays confondu ou pour un pays donn<6E>.
|
||||
* \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
|
||||
* \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)
|
||||
{
|
||||
@@ -187,7 +187,7 @@ class Form
|
||||
|
||||
$htmlname='departement_id';
|
||||
|
||||
// On recherche les d<>partements/cantons/province active d'une region et pays actif
|
||||
// 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";
|
||||
@@ -232,7 +232,7 @@ class Form
|
||||
{
|
||||
print '<option value="'.$obj->rowid.'">';
|
||||
}
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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>';
|
||||
}
|
||||
@@ -248,9 +248,9 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \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).
|
||||
* \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.
|
||||
*/
|
||||
@@ -307,7 +307,7 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Renvoie la liste des sources de commandes
|
||||
* \param selected Id de la source pr<70>-s<>lectionn<6E>e
|
||||
* \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
|
||||
@@ -364,11 +364,11 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \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>
|
||||
* \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
|
||||
* \todo trier liste sur noms apr<70>s traduction plutot que avant
|
||||
*/
|
||||
function select_pays($selected='',$htmlname='pays_id',$htmloption='')
|
||||
{
|
||||
@@ -449,7 +449,7 @@ class Form
|
||||
{
|
||||
print '<option value="'.$obj->rowid.'">';
|
||||
}
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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>';
|
||||
@@ -469,8 +469,8 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des langues disponibles
|
||||
* \param selected Langue pr<70>s<EFBFBD>lectionn<6E>e
|
||||
* \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
|
||||
*/
|
||||
@@ -509,16 +509,16 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des menus disponibles (eldy_backoffice, ...)
|
||||
* \param selected Menu pr<70>-s<>lectionn<6E>e
|
||||
* \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
|
||||
* \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>
|
||||
if ($selected == 'eldy.php') $selected='eldy_backoffice.php'; // Pour compatibilit<69>
|
||||
|
||||
$menuarray=array();
|
||||
$handle=opendir($dirmenu);
|
||||
@@ -570,10 +570,10 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des menus disponibles (eldy)
|
||||
* \param selected Menu pr<70>-s<>lectionn<6E>e
|
||||
* \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
|
||||
* \param dirmenu Rep<65>rtoire <20> scanner
|
||||
*/
|
||||
function select_menu_families($selected='',$htmlname,$dirmenu)
|
||||
{
|
||||
@@ -615,7 +615,7 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des types de comptes financiers
|
||||
* \param selected Type pr<70>-s<>lectionn<6E>
|
||||
* \param selected Type pr<70>-s<>lectionn<6E>
|
||||
* \param htmlname Nom champ formulaire
|
||||
*/
|
||||
function select_type_comptes_financiers($selected=1,$htmlname='type')
|
||||
@@ -648,8 +648,8 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des soci<63>t<EFBFBD>s
|
||||
* \param selected Societe pr<70>s<EFBFBD>lectionn<6E>e
|
||||
* \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
|
||||
*/
|
||||
@@ -733,8 +733,8 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des remises fixes
|
||||
* \param selected Id remise fixe pr<70>s<EFBFBD>lectionn<6E>e
|
||||
* \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
|
||||
*/
|
||||
@@ -789,12 +789,12 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \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
|
||||
* \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
|
||||
* \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='')
|
||||
@@ -857,11 +857,11 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des utilisateurs
|
||||
* \param selected Id contact pr<70>-s<>lectionn
|
||||
* \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
|
||||
* \param exclude Liste des id utilisateurs <20> exclure
|
||||
*/
|
||||
function select_users($selected='',$htmlname='userid',$show_empty=0,$exclude='')
|
||||
{
|
||||
@@ -910,9 +910,9 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
\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>
|
||||
\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
|
||||
*/
|
||||
@@ -958,11 +958,11 @@ class Form
|
||||
}
|
||||
}
|
||||
/**
|
||||
\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>
|
||||
\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 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)
|
||||
@@ -993,12 +993,12 @@ class Form
|
||||
|
||||
/**
|
||||
\brief Retourne la liste des produits
|
||||
\param selected Produit pr<70>s<EFBFBD>lectionn<6E>
|
||||
\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 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>
|
||||
\param ajaxkeysearch Filtre des produits si ajax est utilis<69>
|
||||
*/
|
||||
function select_produits_do($selected='',$htmlname='productid',$filtretype='',$limit=20,$price_level=0,$ajaxkeysearch='')
|
||||
{
|
||||
@@ -1032,7 +1032,7 @@ class Form
|
||||
$result=$this->db->query($sql);
|
||||
if (! $result) dolibarr_print_error($this->db);
|
||||
|
||||
// Multilang : on construit une liste des traductions des produits list<73>s
|
||||
// Multilang : on construit une liste des traductions des produits list<73>s
|
||||
if ($conf->global->MAIN_MULTILANGS)
|
||||
{
|
||||
$sqld = "SELECT d.fk_product, d.label";
|
||||
@@ -1071,7 +1071,7 @@ class Form
|
||||
{
|
||||
$objp = $this->db->fetch_object($result);
|
||||
|
||||
// Multilangs : modification des donn<6E>e si une traduction existe
|
||||
// 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
|
||||
@@ -1147,11 +1147,11 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
\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>
|
||||
\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
|
||||
\param limit Limite sur le nombre de lignes retourn<72>es
|
||||
*/
|
||||
function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtretype='',$filtre='')
|
||||
{
|
||||
@@ -1169,12 +1169,12 @@ class Form
|
||||
|
||||
/**
|
||||
\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 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>
|
||||
\param ajaxkeysearch Filtre des produits si ajax est utilis<69>
|
||||
*/
|
||||
function select_produits_fournisseurs_do($socid,$selected='',$htmlname='productid',$filtretype='',$filtre='',$ajaxkeysearch='')
|
||||
{
|
||||
@@ -1359,8 +1359,8 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des adresses de livraison
|
||||
* \param selected Id contact pr<70>-s<>lectionn
|
||||
* \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)
|
||||
@@ -1405,13 +1405,13 @@ class Form
|
||||
|
||||
/**
|
||||
* \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
|
||||
* \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>
|
||||
if (sizeof($this->cache_conditions_paiements_code)) return 0; // Cache d<>ja charg<72>
|
||||
|
||||
dolibarr_syslog('Form::load_cache_conditions_paiements',LOG_DEBUG);
|
||||
|
||||
@@ -1428,7 +1428,7 @@ class Form
|
||||
{
|
||||
$obj = $this->db->fetch_object($resql);
|
||||
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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;
|
||||
@@ -1444,13 +1444,13 @@ class Form
|
||||
|
||||
/**
|
||||
* \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
|
||||
* \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>
|
||||
if (sizeof($this->cache_types_paiements_code)) return 0; // Cache d<>ja charg<72>
|
||||
|
||||
dolibarr_syslog('Form::load_cache_types_paiements',LOG_DEBUG);
|
||||
|
||||
@@ -1467,7 +1467,7 @@ class Form
|
||||
{
|
||||
$obj = $this->db->fetch_object($resql);
|
||||
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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;
|
||||
@@ -1486,10 +1486,10 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des types de paiements possibles
|
||||
* \param selected Id du type de paiement pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \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
|
||||
* \param addempty Ajoute entr<74>e vide
|
||||
*/
|
||||
function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1,$addempty=0)
|
||||
{
|
||||
@@ -1517,7 +1517,7 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Selection HT ou TTC
|
||||
* \param selected Id pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param selected Id pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param htmlname Nom de la zone select
|
||||
*/
|
||||
function select_PriceBaseType($selected='',$htmlname='price_base_type')
|
||||
@@ -1545,7 +1545,7 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des modes de paiements possibles
|
||||
* \param selected Id du mode de paiement pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \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
|
||||
@@ -1568,7 +1568,7 @@ class Form
|
||||
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
|
||||
// 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.'"';
|
||||
@@ -1587,9 +1587,9 @@ class Form
|
||||
print '</select>';
|
||||
}
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des diff<66>rents <20>tats d'une propal.
|
||||
* \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>
|
||||
* \param selected etat pre-s<>l<EFBFBD>ctionn<6E>
|
||||
*/
|
||||
function select_propal_statut($selected='')
|
||||
{
|
||||
@@ -1615,7 +1615,7 @@ class Form
|
||||
{
|
||||
print '<option value="'.$obj->id.'">';
|
||||
}
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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>';
|
||||
@@ -1633,9 +1633,9 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des comptes
|
||||
* \param selected Id compte pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \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 statut Statut des comptes recherch<63>s
|
||||
* \param filtre Pour filtre sur la liste
|
||||
* \param useempty Affiche valeur vide dans liste
|
||||
*/
|
||||
@@ -1682,7 +1682,7 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des cat<61>gories du type choisi
|
||||
* \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
|
||||
@@ -1726,8 +1726,8 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des civilite actives
|
||||
* \param selected civilite pr<70>-s<>lectionn<6E>e
|
||||
* \brief Retourne la liste d<>roulante des civilite actives
|
||||
* \param selected civilite pr<70>-s<>lectionn<6E>e
|
||||
*/
|
||||
function select_civilite($selected='')
|
||||
{
|
||||
@@ -1756,7 +1756,7 @@ class Form
|
||||
{
|
||||
print '<option value="'.$obj->code.'">';
|
||||
}
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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++;
|
||||
@@ -1772,9 +1772,9 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne le nom traduit de la civilit<69>
|
||||
* \param code Code de la civilit<69>
|
||||
* \return string Nom traduit de la civilit<69>
|
||||
* \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)
|
||||
{
|
||||
@@ -1785,10 +1785,10 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste d<>roulante des formes juridiques tous pays confondus ou pour un pays donn<6E>.
|
||||
* \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
|
||||
* \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)
|
||||
{
|
||||
@@ -1837,7 +1837,7 @@ class Form
|
||||
{
|
||||
print '<option value="'.$obj->code.'">';
|
||||
}
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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>';
|
||||
}
|
||||
@@ -1948,13 +1948,13 @@ class Form
|
||||
{
|
||||
global $langs;
|
||||
|
||||
// Si il existe une traduction, on peut renvoyer de suite le libell<6C>
|
||||
// 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
|
||||
// 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';";
|
||||
|
||||
@@ -2075,7 +2075,7 @@ class Form
|
||||
* \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 selected Id projet pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param htmlname Nom du formulaire select
|
||||
*/
|
||||
function form_project($page, $socid, $selected='', $htmlname='projectid')
|
||||
@@ -2109,9 +2109,9 @@ class Form
|
||||
/**
|
||||
* \brief Affiche formulaire de selection de conditions de paiement
|
||||
* \param page Page
|
||||
* \param selected Id condition pr<70>s<EFBFBD>lectionn<6E>e
|
||||
* \param selected Id condition pr<70>s<EFBFBD>lectionn<6E>e
|
||||
* \param htmlname Nom du formulaire select
|
||||
* \param addempty Ajoute entr<74>e vide
|
||||
* \param addempty Ajoute entr<74>e vide
|
||||
*/
|
||||
function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id', $addempty=0)
|
||||
{
|
||||
@@ -2140,9 +2140,9 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Affiche formulaire de selection de l'assuj<75>tissement <20> la TVA
|
||||
* \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 selected Id condition pr<70>s<EFBFBD>lectionn<6E>e
|
||||
* \param htmlname Nom du formulaire select
|
||||
*/
|
||||
function form_assujetti_tva($page, $selected='', $htmlname='')
|
||||
@@ -2175,7 +2175,7 @@ class Form
|
||||
/**
|
||||
* \brief Affiche formulaire de selection des modes de reglement
|
||||
* \param page Page
|
||||
* \param selected Id mode pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \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')
|
||||
@@ -2296,12 +2296,15 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Affiche formulaire de selection de la remise fixe
|
||||
* \param page Page
|
||||
* \param selected Valeur <EFBFBD> appliquer
|
||||
* \param htmlname Nom du formulaire select. Si none, non modifiable
|
||||
* \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, $absolute_discount)
|
||||
function form_remise_dispo($page, $selected='', $htmlname='remise_id',$socid, $amount, $filter='')
|
||||
{
|
||||
global $conf,$langs;
|
||||
if ($htmlname != "none")
|
||||
@@ -2310,11 +2313,17 @@ class Form
|
||||
print '<input type="hidden" name="action" value="setabsolutediscount">';
|
||||
print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
|
||||
print '<tr><td>';
|
||||
print $langs->trans("CompanyHasAbsoluteDiscount",price($absolute_discount),$langs->trans("Currency".$conf->monnaie)).': ';
|
||||
// print $langs->trans("AvailableGlobalDiscounts").': ';
|
||||
print $this->select_remises('',$htmlname,'fk_facture IS NULL',$socid);
|
||||
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="'.$langs->trans("UseDiscount").'"></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
|
||||
@@ -2334,7 +2343,7 @@ class Form
|
||||
/**
|
||||
* \brief Affiche formulaire de selection des contacts
|
||||
* \param page Page
|
||||
* \param selected Id contact pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param selected Id contact pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param htmlname Nom du formulaire select
|
||||
*/
|
||||
function form_contacts($page, $societe, $selected='', $htmlname='contactidp')
|
||||
@@ -2349,7 +2358,7 @@ class Form
|
||||
$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 '<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>';
|
||||
@@ -2375,9 +2384,9 @@ class Form
|
||||
/**
|
||||
* \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 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 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='')
|
||||
@@ -2414,16 +2423,16 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des devises, dans la langue de l'utilisateur
|
||||
* \param selected code devise pr<70>-s<>lectionn<6E>e
|
||||
* \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
|
||||
* \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>
|
||||
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";
|
||||
@@ -2449,7 +2458,7 @@ class Form
|
||||
{
|
||||
print '<option value="'.$obj->code_iso.'">';
|
||||
}
|
||||
// Si traduction existe, on l'utilise, sinon on prend le libell<6C> par d<>faut
|
||||
// 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>';
|
||||
@@ -2467,17 +2476,17 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Selection du taux de tva appliqu<71> par vendeur
|
||||
* \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 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.
|
||||
* \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='')
|
||||
{
|
||||
@@ -2539,13 +2548,13 @@ class Form
|
||||
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 '')
|
||||
// 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
|
||||
// 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];
|
||||
@@ -2582,7 +2591,7 @@ class Form
|
||||
* \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
|
||||
* \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)
|
||||
@@ -2657,10 +2666,10 @@ class Form
|
||||
}
|
||||
}
|
||||
|
||||
// D<>finition du taux <20> pr<70>s<EFBFBD>lectionner
|
||||
// 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
|
||||
// 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);
|
||||
@@ -2676,16 +2685,16 @@ class Form
|
||||
/**
|
||||
* \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:
|
||||
* 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 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 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)
|
||||
@@ -2699,7 +2708,7 @@ class Form
|
||||
|
||||
if (! $set_time && $empty == 0) $set_time = time();
|
||||
|
||||
// Analyse de la date de pr<70>selection
|
||||
// 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'
|
||||
@@ -2834,7 +2843,7 @@ class Form
|
||||
}
|
||||
print "</select>";
|
||||
|
||||
// Ann<6E>e
|
||||
// Ann<6E>e
|
||||
if ($empty || $set_time == -1)
|
||||
{
|
||||
print '<input class="flat" type="text" size="3" maxlength="4" name="'.$prefix.'year" value="'.$syear.'">';
|
||||
@@ -2917,7 +2926,7 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
\brief Fonction servant a afficher une dur<75>e dans une liste d<>roulante
|
||||
\brief Fonction servant a afficher une dur<75>e dans une liste d<>roulante
|
||||
\param prefix prefix
|
||||
\param iSecond Nombre de secondes
|
||||
*/
|
||||
@@ -2954,13 +2963,13 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
\brief Affiche un select <20> partir d'un tableau
|
||||
\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 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 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
|
||||
@@ -2985,7 +2994,7 @@ class Form
|
||||
while (list($key, $value) = each ($array))
|
||||
{
|
||||
print '<option value="'.($value_as_key?$value:$key).'"';
|
||||
// Si il faut pr<70>s<EFBFBD>lectionner une valeur
|
||||
// Si il faut pr<70>s<EFBFBD>lectionner une valeur
|
||||
if ($id != '' && ($id == $key || $id == $value))
|
||||
{
|
||||
print ' selected="true"';
|
||||
@@ -3007,7 +3016,7 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Renvoie la cha<68>ne de caract<63>re d<>crivant l'erreur
|
||||
* \brief Renvoie la cha<68>ne de caract<63>re d<>crivant l'erreur
|
||||
*/
|
||||
function error()
|
||||
{
|
||||
@@ -3018,7 +3027,7 @@ class Form
|
||||
/**
|
||||
* \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 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)
|
||||
@@ -3063,13 +3072,13 @@ class Form
|
||||
|
||||
|
||||
/**
|
||||
* \brief Affiche la cartouche g<>n<EFBFBD>rique d'un rapport
|
||||
* \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 periodlink Lien pour changer de p<>riode
|
||||
* \param description Description
|
||||
* \param builddate Date g<>n<EFBFBD>ration
|
||||
* \param builddate Date g<>n<EFBFBD>ration
|
||||
* \param exportlink Lien pour export
|
||||
*/
|
||||
function report_header($nom,$variante='',$period,$periodlink,$description,$builddate,$exportlink)
|
||||
@@ -3128,18 +3137,18 @@ class Form
|
||||
/**
|
||||
* \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 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 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 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
|
||||
* \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
|
||||
* \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)
|
||||
{
|
||||
@@ -3308,7 +3317,7 @@ class Form
|
||||
}
|
||||
$file_list=dolibarr_dir_list($filedir,'files',0,$filter,'\.meta$'.$png,'date',SORT_DESC);
|
||||
|
||||
// Affiche en-tete tableau si non deja affich<63>
|
||||
// Affiche en-tete tableau si non deja affich<63>
|
||||
if (sizeof($file_list) && ! $headershown && !$iconPDF)
|
||||
{
|
||||
$headershown=1;
|
||||
@@ -3316,22 +3325,22 @@ class Form
|
||||
print '<table class="border" width="100%">';
|
||||
}
|
||||
|
||||
// Boucle sur chaque ligne trouv<75>e
|
||||
// Boucle sur chaque ligne trouv<75>e
|
||||
foreach($file_list as $i => $file)
|
||||
{
|
||||
// D<>fini chemin relatif par rapport au module pour lien download
|
||||
// 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
|
||||
// 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 (eregi('\-detail\.pdf',$file["name"])) $mimetype='PDF D<>taill<6C>';
|
||||
|
||||
if (!$iconPDF) print "<tr $bc[$var]>";
|
||||
|
||||
@@ -3423,10 +3432,10 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des mod<6F>les d'export
|
||||
* \param selected Id mod<6F>le pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \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 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)
|
||||
@@ -3471,7 +3480,7 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des mois
|
||||
* \param selected Id mois pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param selected Id mois pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param htmlname Nom de la zone select
|
||||
* \param useempty Affiche valeur vide dans liste
|
||||
*/
|
||||
@@ -3540,11 +3549,11 @@ class Form
|
||||
}
|
||||
|
||||
/**
|
||||
* \brief Liste de s<>lection du g<>n<EFBFBD>rateur de codes barres
|
||||
* \param selected Id code pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \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
|
||||
* 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')
|
||||
{
|
||||
@@ -3552,7 +3561,7 @@ class Form
|
||||
|
||||
$disable = '';
|
||||
|
||||
// On v<>rifie si le code de barre est d<>j<EFBFBD> s<>lectionn<6E> par d<>faut dans le module produit
|
||||
// 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"';
|
||||
@@ -3573,7 +3582,7 @@ class Form
|
||||
|
||||
/**
|
||||
* \brief Retourne la liste des types de codes barres
|
||||
* \param selected Id code pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param selected Id code pr<70>s<EFBFBD>lectionn<6E>
|
||||
* \param htmlname Nom de la zone select
|
||||
* \param useempty Affiche valeur vide dans liste
|
||||
*/
|
||||
@@ -3627,7 +3636,7 @@ class Form
|
||||
/**
|
||||
* \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 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')
|
||||
|
||||
Reference in New Issue
Block a user