12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662 |
- <?php
- /* Copyright (c) 2002-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2004-2011 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-2010 Regis Houssin <regis@dolibarr.fr>
- * Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
- * Copyright (C) 2006 Marc Barilley/Ocebo <marc@ocebo.com>
- * Copyright (C) 2007 Franky Van Liedekerke <franky.van.liedekerker@telenet.be>
- * Copyright (C) 2007 Patrick Raguin <patrick.raguin@gmail.com>
- * Copyright (C) 2010 Juanjo Menent <jmenent@2byte.es>
- * Copyright (C) 2010 Philippe Grand <philippe.grand@atoo-net.com>
- * Copyright (C) 2011 Herve Prot <herve.prot@symeos.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, see <http://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/core/class/html.form.class.php
- * \ingroup core
- * \brief File of class with all html predefined components
- */
- /**
- * \class Form
- * \brief Class to manage generation of HTML components
- * \remarks Only common components must be here.
- */
- class Form
- {
- var $db;
- var $error;
- // Cache arrays
- var $cache_types_paiements=array();
- var $cache_conditions_paiements=array();
- var $cache_availability=array();
- var $cache_demand_reason=array();
- var $tva_taux_value;
- var $tva_taux_libelle;
- /**
- * Constructor
- *
- * @param DoliDB $DB Database handler
- */
- function Form($DB)
- {
- $this->db = $DB;
- }
- /**
- * Output key field for an editable field
- *
- * @param string $text Text of label
- * @param string $htmlname Name of select field
- * @param string $preselected Preselected value for parameter
- * @param string $paramkey Key of parameter (unique if there is several parameter to show)
- * @param string $paramvalue Value of parameter
- * @param boolean $perm Permission to allow button to edit parameter
- * @param string $typeofdata Type of data (string by default, email, ...)
- * @return string HTML edit field
- * TODO no GET or POST in class file, use a param
- */
- function editfieldkey($text,$htmlname,$preselected,$paramkey,$paramvalue,$perm,$typeofdata='string')
- {
- global $langs;
- $ret='';
- $ret.='<table class="nobordernopadding" width="100%"><tr><td nowrap="nowrap">';
- $ret.=$langs->trans($text);
- $ret.='</td>';
- if (GETPOST('action') != 'edit'.$htmlname && $perm) $ret.='<td align="right"><a href="'.$_SERVER["PHP_SELF"].'?action=edit'.$htmlname.'&'.$paramkey.'='.$paramvalue.'">'.img_edit($langs->trans('Edit'),1).'</a></td>';
- $ret.='</tr></table>';
- return $ret;
- }
- /**
- * Output val field for an editable field
- *
- * @param string $text Text of label (not used in this function)
- * @param string $htmlname Name of select field
- * @param string $preselected Preselected value for parameter
- * @param string $paramkey Key of parameter (unique if there is several parameter to show)
- * @param boolean $perm Permission to allow button to edit parameter
- * @param string $typeofdata Type of data ('string' by default, 'email', 'text', 'day', ...)
- * @param string $editvalue Use this value instead $preselected
- * @return string HTML edit field
- * TODO no GET or POST in class file, use a param
- */
- function editfieldval($text,$htmlname,$preselected,$paramkey,$paramvalue,$perm,$typeofdata='string',$editvalue='')
- {
- global $langs,$db;
- $ret='';
- if (GETPOST('action') == 'edit'.$htmlname)
- {
- $ret.="\n";
- $ret.='<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
- $ret.='<input type="hidden" name="action" value="set'.$htmlname.'">';
- $ret.='<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- $ret.='<input type="hidden" name="'.$paramkey.'" value="'.$paramvalue.'">';
- $ret.='<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- $ret.='<tr><td>';
- if (in_array($typeofdata,array('string','email')))
- {
- $ret.='<input type="text" name="'.$htmlname.'" value="'.($editvalue?$editvalue:$preselected).'">';
- }
- else if ($typeofdata == 'text')
- {
- $ret.='<textarea name="'.$htmlname.'">'.($editvalue?$editvalue:$preselected).'</textarea>';
- }
- else if ($typeofdata == 'day')
- {
- $html=new Form($db);
- $ret.=$html->form_date($_SERVER['PHP_SELF'].($paramkey?'?'.$paramkey.'='.$paramvalue:''),$preselected,$htmlname);
- }
- $ret.='</td>';
- if ($typeofdata != 'day') $ret.='<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
- $ret.='</tr></table>'."\n";
- $ret.='</form>'."\n";
- }
- else
- {
- if ($typeofdata == 'email') $ret.=dol_print_email($preselected,0,0,0,0,1);
- if ($typeofdata == 'day') $ret.=dol_print_date($preselected,'day');
- else $ret.=$preselected;
- }
- return $ret;
- }
- /**
- * Show a text and picto with tooltip on text or picto
- *
- * @param text Text to show
- * @param htmltext Content html of tooltip. Must be HTML/UTF8 encoded.
- * @param tooltipon 1=tooltip sur texte, 2=tooltip sur picto, 3=tooltip sur les 2
- * @param direction -1=Le picto est avant, 0=pas de picto, 1=le picto est apres
- * @param img Code img du picto (use img_xxx() function to get it)
- * @param extracss Add a CSS style to td tags
- * @param notabs Do not include table and tr tags
- * @param incbefore Include code before the text
- * @param noencodehtmltext Do not encode into html entity the htmltext
- * @return string Code html du tooltip (texte+picto)
- * @see Use function textwithpicto if you can.
- */
- function textwithtooltip($text,$htmltext,$tooltipon=1,$direction=0,$img='',$extracss='',$notabs=0,$incbefore='',$noencodehtmltext=0)
- {
- global $conf;
- if ($incbefore) $text = $incbefore.$text;
- if (! $htmltext) return $text;
- // Sanitize tooltip
- $htmltext=str_replace("\\","\\\\",$htmltext);
- $htmltext=str_replace("\r","",$htmltext);
- $htmltext=str_replace("\n","",$htmltext);
- $htmltext=str_replace('"',""",$htmltext);
- if ($tooltipon == 2 || $tooltipon == 3) $paramfortooltipimg=' class="classfortooltip'.($extracss?' '.$extracss:'').'" title="'.($noencodehtmltext?$htmltext:dol_escape_htmltag($htmltext,1)).'"'; // Attribut to put on td img tag to store tooltip
- else $paramfortooltipimg =($extracss?' class="'.$extracss.'"':''); // Attribut to put on td text tag
- if ($tooltipon == 1 || $tooltipon == 3) $paramfortooltiptd=' class="classfortooltip'.($extracss?' '.$extracss:'').'" title="'.($noencodehtmltext?$htmltext:dol_escape_htmltag($htmltext,1)).'"'; // Attribut to put on td tag to store tooltip
- else $paramfortooltiptd =($extracss?' class="'.$extracss.'"':''); // Attribut to put on td text tag
- $s="";
- if (empty($notabs)) $s.='<table class="nobordernopadding" summary=""><tr>';
- if ($direction > 0)
- {
- if ($text != '')
- {
- $s.='<td'.$paramfortooltiptd.'>'.$text;
- if ($direction) $s.=' ';
- $s.='</td>';
- }
- if ($direction) $s.='<td'.$paramfortooltipimg.' valign="top" width="14">'.$img.'</td>';
- }
- else
- {
- if ($direction) $s.='<td'.$paramfortooltipimg.' valign="top" width="14">'.$img.'</td>';
- if ($text != '')
- {
- $s.='<td'.$paramfortooltiptd.'>';
- if ($direction) $s.=' ';
- $s.=$text.'</td>';
- }
- }
- if (empty($notabs)) $s.='</tr></table>';
- return $s;
- }
- /**
- * Show a text with a picto and a tooltip on picto
- *
- * @param text Text to show
- * @param htmltooltip Content of tooltip
- * @param direction 1=Icon is after text, -1=Icon is before text, 0=no icon
- * @param type Type of picto (info, help, warning, superadmin...)
- * @param extracss Add a CSS style to td tags
- * @param noencodehtmltext Do not encode into html entity the htmltext
- * @return string HTML code of text, picto, tooltip
- */
- function textwithpicto($text,$htmltext,$direction=1,$type='help',$extracss='',$noencodehtmltext=0)
- {
- global $conf;
- if ("$type" == "0") $type='info'; // For backward compatibility
- $alt='';
- // If info or help with no javascript, show only text
- if (empty($conf->use_javascript_ajax))
- {
- if ($type == 'info' || $type == 'help') return $text;
- else { $alt=$htmltext; $htmltext=''; }
- }
- // If info or help with smartphone, show only text
- if (! empty($conf->browser->phone))
- {
- if ($type == 'info' || $type == 'help') return $text;
- }
- // Info or help
- if ($type == 'info') $img=img_help(0,$alt);
- if ($type == 'help' || $type ==1) $img=img_help(1,$alt);
- if ($type == 'superadmin') $img=img_picto($alt,"redstar");
- if ($type == 'admin') $img=img_picto($alt,"star");
- // Warnings
- if ($type == 'warning') $img=img_warning($alt);
- return $this->textwithtooltip($text,$htmltext,2,$direction,$img,$extracss,0,'',$noencodehtmltext);
- }
- /**
- * Return combo list of activated countries, into language of user
- *
- * @param selected Id or Code or Label of preselected country
- * @param htmlname Name of html select object
- * @param htmloption Options html on select object
- */
- function select_pays($selected='',$htmlname='pays_id',$htmloption='')
- {
- print $this->select_country($selected,$htmlname,$htmloption);
- }
- /**
- * Return combo list of activated countries, into language of user
- *
- * @param selected Id or Code or Label of preselected country
- * @param htmlname Name of html select object
- * @param htmloption Options html on select object
- * @return string HTML string with select
- */
- function select_country($selected='',$htmlname='pays_id',$htmloption='')
- {
- global $conf,$langs;
- $langs->load("dict");
- $out='';
- $countryArray=array();
- $label=array();
- $sql = "SELECT rowid, code as code_iso, libelle as label";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_pays";
- $sql.= " WHERE active = 1";
- $sql.= " ORDER BY code ASC";
- dol_syslog("Form::select_country sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $out.= '<select id="select'.$htmlname.'" class="flat selectpays" name="'.$htmlname.'" '.$htmloption.'>';
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- $foundselected=false;
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $countryArray[$i]['rowid'] = $obj->rowid;
- $countryArray[$i]['code_iso'] = $obj->code_iso;
- $countryArray[$i]['label'] = ($obj->code_iso && $langs->trans("Country".$obj->code_iso)!="Country".$obj->code_iso?$langs->trans("Country".$obj->code_iso):($obj->label!='-'?$obj->label:''));
- $label[$i] = $countryArray[$i]['label'];
- $i++;
- }
- array_multisort($label, SORT_ASC, $countryArray);
- foreach ($countryArray as $row)
- {
- if ($selected && $selected != '-1' && ($selected == $row['rowid'] || $selected == $row['code_iso'] || $selected == $row['label']) ) {
- $foundselected=true;
- $out.= '<option value="'.$row['rowid'].'" selected="selected">';
- } else {
- $out.= '<option value="'.$row['rowid'].'">';
- }
- $out.= $row['label'];
- if ($row['code_iso']) $out.= ' ('.$row['code_iso'] . ')';
- $out.= '</option>';
- }
- }
- $out.= '</select>';
- }
- else
- {
- dol_print_error($this->db);
- }
- return $out;
- }
- /**
- * Retourne la liste des types de comptes financiers
- *
- * @param selected Type pre-selectionne
- * @param htmlname Nom champ formulaire
- */
- function select_type_comptes_financiers($selected=1,$htmlname='type')
- {
- global $langs;
- $langs->load("banks");
- $type_available=array(0,1,2);
- print '<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="selected">'.$langs->trans("BankType".$type_available[$i]).'</option>';
- }
- else
- {
- print '<option value="'.$type_available[$i].'">'.$langs->trans("BankType".$type_available[$i]).'</option>';
- }
- $i++;
- }
- }
- print '</select>';
- }
- /**
- * Return list of social contributions.
- * Use mysoc->pays_id or mysoc->pays_code so they must be defined.
- *
- * @param selected Preselected type
- * @param htmlname Name of field in form
- * @param useempty Set to 1 if we want an empty value
- * @param maxlen Max length of text in combo box
- * @param help Add or not the admin help picto
- */
- function select_type_socialcontrib($selected='',$htmlname='actioncode', $useempty=0, $maxlen=40, $help=1)
- {
- global $db,$langs,$user,$mysoc;
- if (empty($mysoc->pays_id) && empty($mysoc->pays_code))
- {
- dol_print_error('','Call to select_type_socialcontrib with mysoc country not yet defined');
- exit;
- }
- if (! empty($mysoc->pays_id))
- {
- $sql = "SELECT c.id, c.libelle as type";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
- $sql.= " WHERE c.active = 1";
- $sql.= " AND c.fk_pays = ".$mysoc->pays_id;
- $sql.= " ORDER BY c.libelle ASC";
- }
- else
- {
- $sql = "SELECT c.id, c.libelle as type";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."c_pays as p";
- $sql.= " WHERE c.active = 1 AND c.fk_pays = p.rowid";
- $sql.= " AND p.code = '".$mysoc->pays_code."'";
- $sql.= " ORDER BY c.libelle ASC";
- }
- dol_syslog("Form::select_type_socialcontrib sql=".$sql, LOG_DEBUG);
- $resql=$db->query($sql);
- if ($resql)
- {
- $num = $db->num_rows($resql);
- if ($num)
- {
- print '<select class="flat" name="'.$htmlname.'">';
- $i = 0;
- if ($useempty) print '<option value="0"> </option>';
- while ($i < $num)
- {
- $obj = $db->fetch_object($resql);
- print '<option value="'.$obj->id.'"';
- if ($obj->id == $selected) print ' selected="selected"';
- print '>'.dol_trunc($obj->type,$maxlen);
- $i++;
- }
- print '</select>';
- if ($user->admin && $help) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- else
- {
- print $langs->trans("ErrorNoSocialContributionForSellerCountry",$mysoc->pays_code);
- }
- }
- else
- {
- dol_print_error($db,$db->lasterror());
- }
- }
- /**
- * Return list of types of lines (product or service)
- * Example: 0=product, 1=service, 9=other (for external module)
- *
- * @param selected Preselected type
- * @param htmlname Name of field in html form
- * @param showempty Add an empty field
- * @param hidetext Do not show label before combo box
- * @param forceall Force to show products and services in combo list, whatever are activated modules
- */
- function select_type_of_lines($selected='',$htmlname='type',$showempty=0,$hidetext=0,$forceall=0)
- {
- global $db,$langs,$user,$conf;
- // If product & services are enabled or both disabled.
- if ($forceall || ($conf->product->enabled && $conf->service->enabled)
- || (empty($conf->product->enabled) && empty($conf->service->enabled)))
- {
- if (empty($hidetext)) print $langs->trans("Type").': ';
- print '<select class="flat" name="'.$htmlname.'">';
- if ($showempty)
- {
- print '<option value="-1"';
- if ($selected == -1) print ' selected="selected"';
- print '> </option>';
- }
- print '<option value="0"';
- if (0 == $selected) print ' selected="selected"';
- print '>'.$langs->trans("Product");
- print '<option value="1"';
- if (1 == $selected) print ' selected="selected"';
- print '>'.$langs->trans("Service");
- print '</select>';
- //if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- if (! $forceall && empty($conf->product->enabled) && $conf->service->enabled)
- {
- print '<input type="hidden" name="'.$htmlname.'" value="1">';
- }
- if (! $forceall && $conf->product->enabled && empty($conf->service->enabled))
- {
- print '<input type="hidden" name="'.$htmlname.'" value="0">';
- }
- }
- /**
- * Return list of types of notes
- *
- * @param selected Preselected type
- * @param htmlname Name of field in form
- * @param showempty Add an empty field
- */
- function select_type_fees($selected='',$htmlname='type',$showempty=0)
- {
- global $db,$langs,$user;
- $langs->load("trips");
- print '<select class="flat" name="'.$htmlname.'">';
- if ($showempty)
- {
- print '<option value="-1"';
- if ($selected == -1) print ' selected="selected"';
- print '> </option>';
- }
- $sql = "SELECT c.code, c.libelle as type FROM ".MAIN_DB_PREFIX."c_type_fees as c";
- $sql.= " ORDER BY lower(c.libelle) ASC";
- $resql=$db->query($sql);
- if ($resql)
- {
- $num = $db->num_rows($resql);
- $i = 0;
- while ($i < $num)
- {
- $obj = $db->fetch_object($resql);
- print '<option value="'.$obj->code.'"';
- if ($obj->code == $selected) print ' selected="selected"';
- print '>';
- if ($obj->code != $langs->trans($obj->code)) print $langs->trans($obj->code);
- else print $langs->trans($obj->type);
- $i++;
- }
- }
- print '</select>';
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- /**
- * Output html form to select a third party
- *
- * @param selected Preselected type
- * @param htmlname Name of field in form
- * @param filter Optionnal filters criteras
- * @param showempty Add an empty field
- * @param showtype Show third party type in combolist (customer, prospect or supplier)
- * @param forcecombo Force to use combo box
- */
- function select_societes($selected='',$htmlname='socid',$filter='',$showempty=0, $showtype=0, $forcecombo=0)
- {
- print $this->select_company($selected,$htmlname,$filter,$showempty,$showtype,$forcecombo);
- }
- /**
- * Output html form to select a third party
- *
- * @param selected Preselected type
- * @param htmlname Name of field in form
- * @param filter Optionnal filters criteras
- * @param showempty Add an empty field
- * @param showtype Show third party type in combolist (customer, prospect or supplier)
- * @param forcecombo Force to use combo box
- */
- function select_company($selected='',$htmlname='socid',$filter='',$showempty=0, $showtype=0, $forcecombo=0)
- {
- global $conf,$user,$langs;
- $out='';
- // On recherche les societes
- $sql = "SELECT s.rowid, s.nom, s.client, s.fournisseur, s.code_client, s.code_fournisseur";
- $sql.= " FROM ".MAIN_DB_PREFIX ."societe as s";
- if (!$user->rights->societe->client->voir && !$user->societe_id) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
- $sql.= " WHERE s.entity = ".$conf->entity;
- if ($filter) $sql.= " AND ".$filter;
- if (!$user->rights->societe->client->voir && !$user->societe_id) $sql.= " AND s.rowid = sc.fk_soc AND sc.fk_user = " .$user->id;
- $sql.= " ORDER BY nom ASC";
- dol_syslog("Form::select_societes sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- if ($conf->use_javascript_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT && ! $forcecombo)
- {
- //$minLength = (is_numeric($conf->global->COMPANY_USE_SEARCH_TO_SELECT)?$conf->global->COMPANY_USE_SEARCH_TO_SELECT:2);
- $out.= ajax_combobox($htmlname);
- }
- $out.= '<select id="'.$htmlname.'" class="flat" name="'.$htmlname.'">';
- if ($showempty) $out.= '<option value="-1"> </option>';
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $label=$obj->nom;
- if ($showtype)
- {
- if ($obj->client || $obj->fournisseur) $label.=' (';
- if ($obj->client == 1 || $obj->client == 3) $label.=$langs->trans("Customer");
- if ($obj->client == 2 || $obj->client == 3) $label.=($obj->client==3?', ':'').$langs->trans("Prospect");
- if ($obj->fournisseur) $label.=($obj->client?', ':'').$langs->trans("Supplier");
- if ($obj->client || $obj->fournisseur) $label.=')';
- }
- if ($selected > 0 && $selected == $obj->rowid)
- {
- $out.= '<option value="'.$obj->rowid.'" selected="selected">'.$label.'</option>';
- }
- else
- {
- $out.= '<option value="'.$obj->rowid.'">'.$label.'</option>';
- }
- $i++;
- }
- }
- $out.= '</select>';
- }
- else
- {
- dol_print_error($this->db);
- }
- return $out;
- }
- /**
- * Return HTML combo list of absolute discounts
- *
- * @param selected Id remise fixe pre-selectionnee
- * @param htmlname Nom champ formulaire
- * @param filter Criteres optionnels de filtre
- * @param maxvalue Max value for lines that can be selected
- * @return int Return number of qualifed lines in list
- */
- function select_remises($selected='',$htmlname='remise_id',$filter='',$socid, $maxvalue=0)
- {
- global $langs,$conf;
- // On recherche les remises
- $sql = "SELECT re.rowid, re.amount_ht, re.amount_tva, re.amount_ttc,";
- $sql.= " re.description, re.fk_facture_source";
- $sql.= " FROM ".MAIN_DB_PREFIX ."societe_remise_except as re";
- $sql.= " WHERE fk_soc = ".$socid;
- if ($filter) $sql.= " AND ".$filter;
- $sql.= " ORDER BY re.description ASC";
- dol_syslog("Form::select_remises sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- print '<select class="flat" name="'.$htmlname.'">';
- $num = $this->db->num_rows($resql);
- $qualifiedlines=$num;
- $i = 0;
- if ($num)
- {
- print '<option value="0"> </option>';
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $desc=dol_trunc($obj->description,40);
- if ($desc=='(CREDIT_NOTE)') $desc=$langs->trans("CreditNote");
- if ($desc=='(DEPOSIT)') $desc=$langs->trans("Deposit");
- $selectstring='';
- if ($selected > 0 && $selected == $obj->rowid) $selectstring=' selected="selected"';
- $disabled='';
- if ($maxvalue && $obj->amount_ttc > $maxvalue)
- {
- $qualifiedlines--;
- $disabled=' disabled="disabled"';
- }
- print '<option value="'.$obj->rowid.'"'.$selectstring.$disabled.'>'.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')</option>';
- $i++;
- }
- }
- print '</select>';
- return $qualifiedlines;
- }
- else
- {
- dol_print_error($this->db);
- return -1;
- }
- }
- /**
- * Return list of all contacts (for a third party or all)
- *
- * @param socid Id ot third party or 0 for all
- * @param selected Id contact pre-selectionne
- * @param htmlname Name of HTML field ('none' for a not editable field)
- * @param show_empty 0=no empty value, 1=add an empty value
- * @param exclude List of contacts id to exclude
- * @param limitto Disable answers that are not id in this array list
- * @param showfunction Add function into label
- * @param moreclass Add more class to class style
- * @return int <0 if KO, Nb of contact in list if OK
- */
- function select_contacts($socid,$selected='',$htmlname='contactid',$showempty=0,$exclude='',$limitto='',$showfunction=0, $moreclass='')
- {
- global $conf,$langs;
- // On recherche les societes
- $sql = "SELECT s.rowid, s.name, s.firstname, s.poste FROM";
- $sql.= " ".MAIN_DB_PREFIX ."socpeople as s";
- $sql.= " WHERE entity = ".$conf->entity;
- if ($socid > 0) $sql.= " AND fk_soc=".$socid;
- $sql.= " ORDER BY s.name ASC";
- dol_syslog("Form::select_contacts sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num=$this->db->num_rows($resql);
- if ($num == 0) return 0;
- if ($htmlname != 'none') print '<select class="flat'.($moreclass?' '.$moreclass:'').'" id="'.$htmlname.'" name="'.$htmlname.'">';
- if ($showempty) print '<option value="0"></option>';
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- include_once(DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php');
- $contactstatic=new Contact($this->db);
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $contactstatic->id=$obj->rowid;
- $contactstatic->name=$obj->name;
- $contactstatic->firstname=$obj->firstname;
- if ($htmlname != 'none')
- {
- $disabled=0;
- if (is_array($exclude) && count($exclude) && in_array($obj->rowid,$exclude)) $disabled=1;
- if (is_array($limitto) && count($limitto) && ! in_array($obj->rowid,$limitto)) $disabled=1;
- if ($selected && $selected == $obj->rowid)
- {
- print '<option value="'.$obj->rowid.'"';
- if ($disabled) print ' disabled="disabled"';
- print ' selected="selected">';
- print $contactstatic->getFullName($langs);
- if ($showfunction && $obj->poste) print ' ('.$obj->poste.')';
- print '</option>';
- }
- else
- {
- print '<option value="'.$obj->rowid.'"';
- if ($disabled) print ' disabled="disabled"';
- print '>';
- print $contactstatic->getFullName($langs);
- if ($showfunction && $obj->poste) print ' ('.$obj->poste.')';
- print '</option>';
- }
- }
- else
- {
- if ($selected == $obj->rowid)
- {
- print $contactstatic->getFullName($langs);
- if ($showfunction && $obj->poste) print ' ('.$obj->poste.')';
- }
- }
- $i++;
- }
- }
- if ($htmlname != 'none')
- {
- print '</select>';
- }
- return $num;
- }
- else
- {
- dol_print_error($this->db);
- return -1;
- }
- }
- /**
- * Return select list of users
- *
- * @param selected Id user preselected
- * @param htmlname Field name in form
- * @param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
- * @param exclude Array list of users id to exclude
- * @param disabled If select list must be disabled
- * @param include Array list of users id to include
- * @param enableonly Array list of users id to be enabled. All other must be disabled
- * @param force_entity Possibility to force entity
- */
- function select_users($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='',$force_entity=0)
- {
- print $this->select_dolusers($selected,$htmlname,$show_empty,$exclude,$disabled,$include,$enableonly,$force_entity);
- }
- /**
- * Return select list of users
- *
- * @param selected User id or user object of user preselected. If -1, we use id of current user.
- * @param htmlname Field name in form
- * @param show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
- * @param exclude Array list of users id to exclude
- * @param disabled If select list must be disabled
- * @param include Array list of users id to include
- * @param enableonly Array list of users id to be enabled. All other must be disabled
- * @param force_entity Possibility to force entity
- */
- function select_dolusers($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='',$force_entity=0)
- {
- global $conf,$user,$langs;
- // If no preselected user defined, we take current user
- if ($selected < -1 && empty($conf->global->SOCIETE_DISABLE_DEFAULT_SALESREPRESENTATIVE)) $selected=$user->id;
- // Permettre l'exclusion d'utilisateurs
- if (is_array($exclude)) $excludeUsers = implode("','",$exclude);
- // Permettre l'inclusion d'utilisateurs
- if (is_array($include)) $includeUsers = implode("','",$include);
- $out='';
- // On recherche les utilisateurs
- $sql = "SELECT u.rowid, u.name, u.firstname, u.login, u.admin, u.entity";
- if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
- {
- $sql.= ", e.label";
- }
- $sql.= " FROM ".MAIN_DB_PREFIX ."user as u";
- if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
- {
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX ."entity as e on e.rowid=u.entity";
- if ($force_entity) $sql.= " WHERE u.entity IN (0,".$force_entity.")";
- else $sql.= " WHERE u.entity IS NOT NULL";
- }
- else
- {
- $sql.= " WHERE u.entity IN (0,".$conf->entity.")";
- }
- if (is_array($exclude) && $excludeUsers) $sql.= " AND u.rowid NOT IN ('".$excludeUsers."')";
- if (is_array($include) && $includeUsers) $sql.= " AND u.rowid IN ('".$includeUsers."')";
- $sql.= " ORDER BY u.name ASC";
- dol_syslog("Form::select_dolusers sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- $out.= '<select class="flat" id="'.$htmlname.'" name="'.$htmlname.'"'.($disabled?' disabled="disabled"':'').'>';
- if ($show_empty) $out.= '<option value="-1"'.($id==-1?' selected="selected"':'').'> </option>'."\n";
- $userstatic=new User($this->db);
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $userstatic->id=$obj->rowid;
- $userstatic->nom=$obj->name;
- $userstatic->prenom=$obj->firstname;
- $disableline=0;
- if (is_array($enableonly) && count($enableonly) && ! in_array($obj->rowid,$enableonly)) $disableline=1;
- if ((is_object($selected) && $selected->id == $obj->rowid) || (! is_object($selected) && $selected == $obj->rowid))
- {
- $out.= '<option value="'.$obj->rowid.'"';
- if ($disableline) $out.= ' disabled="disabled"';
- $out.= ' selected="selected">';
- }
- else
- {
- $out.= '<option value="'.$obj->rowid.'"';
- if ($disableline) $out.= ' disabled="disabled"';
- $out.= '>';
- }
- $out.= $userstatic->getFullName($langs);
- if(! empty($conf->multicompany->enabled) && empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE) && $conf->entity == 1 && $user->admin && ! $user->entity)
- {
- if ($obj->admin && ! $obj->entity) $out.=" (".$langs->trans("AllEntities").")";
- else $out.=" (".$obj->label.")";
- }
- //if ($obj->admin) $out.= ' *';
- if ($conf->global->MAIN_SHOW_LOGIN) $out.= ' ('.$obj->login.')';
- $out.= '</option>';
- $i++;
- }
- }
- else
- {
- $out.= '<select class="flat" name="'.$htmlname.'" disabled="disabled">';
- $out.= '<option value="">'.$langs->trans("EmptyList").'</option>';
- }
- $out.= '</select>';
- }
- else
- {
- dol_print_error($this->db);
- }
- return $out;
- }
- /**
- * Return list of products for customer in Ajax if Ajax activated or go to select_produits_do
- *
- * @param int $selected Preselected products
- * @param string $htmlname Name of HTML seletc field (must be unique in page)
- * @param int $filtertype Filter on product type (''=nofilter, 0=product, 1=service)
- * @param int $limit Limit on number of returned lines
- * @param int $price_level Level of price to show
- * @param int $status -1=Return all products, 0=Products not on sell, 1=Products on sell
- * @param int $finished 2=all, 1=finished, 0=raw material
- * @param string $selected_input_value Value of preselected input text (with ajax)
- * @return void
- */
- function select_produits($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$status=1,$finished=2,$selected_input_value='',$hidelabel=0)
- {
- global $langs,$conf;
- $price_level = (! empty($price_level) ? $price_level : 0);
- if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)
- {
- if ($selected && empty($selected_input_value))
- {
- require_once(DOL_DOCUMENT_ROOT."/product/class/product.class.php");
- $product = new Product($this->db);
- $product->fetch($selected);
- $selected_input_value=$product->ref;
- }
- // mode=1 means customers products
- print ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/product/ajaxproducts.php', 'htmlname='.$htmlname.'&outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=1&status='.$status.'&finished='.$finished, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT);
- if (! $hidelabel) print $langs->trans("RefOrLabel").' : ';
- print '<input type="text" size="20" name="search_'.$htmlname.'" id="search_'.$htmlname.'" value="'.$selected_input_value.'" />';
- }
- else
- {
- $this->select_produits_do($selected,$htmlname,$filtertype,$limit,$price_level,'',$status,$finished,0);
- }
- print '<br>';
- }
- /**
- * Return list of products for a customer
- *
- * @param int $selected Preselected product
- * @param string $htmlname Name of select html
- * @param string $filtertype Filter on product type (''=nofilter, 0=product, 1=service)
- * @param int $limit Limite sur le nombre de lignes retournees
- * @param int $price_level Level of price to show
- * @param string $filterkey Filter on product
- * @param int $status -1=Return all products, 0=Products not on sell, 1=Products on sell
- * @param int $finished Filter on finished field: 2=No filter
- * @param int $disableout Disable print output
- * @return array Array of keys for json
- */
- function select_produits_do($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$filterkey='',$status=1,$finished=2,$disableout=0)
- {
- global $langs,$conf,$user,$db;
- $sql = "SELECT ";
- $sql.= " p.rowid, p.label, p.ref, p.fk_product_type, p.price, p.price_ttc, p.price_base_type, p.duration, p.stock";
- // Multilang : we add translation
- if ($conf->global->MAIN_MULTILANGS)
- {
- $sql.= ", pl.label as label_translated";
- }
- $sql.= " FROM ".MAIN_DB_PREFIX."product as p";
- // Multilang : we add translation
- if ($conf->global->MAIN_MULTILANGS)
- {
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_lang as pl ON pl.fk_product = p.rowid AND pl.lang='". $langs->getDefaultLang() ."'";
- }
- $sql.= ' WHERE p.entity IN (0,'.(! empty($conf->entities['product']) ? $conf->entities['product'] : $conf->entity).')';
- if ($finished == 0)
- {
- $sql.= " AND p.finished = ".$finished;
- }
- elseif ($finished == 1)
- {
- $sql.= " AND p.finished = ".$finished;
- if ($status >= 0) $sql.= " AND p.tosell = ".$status;
- }
- elseif ($status >= 0)
- {
- $sql.= " AND p.tosell = ".$status;
- }
- if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype;
- // Add criteria on ref/label
- if ($filterkey && $filterkey != '')
- {
- if (! empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE)) // Can use index
- {
- $sql.=" AND (p.ref LIKE '".$filterkey."%' OR p.label LIKE '".$filterkey."%'";
- if ($conf->global->MAIN_MULTILANGS) $sql.=" OR pl.label LIKE '".$filterkey."%'";
- $sql.=")";
- }
- else
- {
- $sql.=" AND (p.ref LIKE '%".$filterkey."%' OR p.label LIKE '%".$filterkey."%'";
- if ($conf->global->MAIN_MULTILANGS) $sql.=" OR pl.label LIKE '%".$filterkey."%'";
- $sql.=")";
- }
- }
- $sql.= $db->order("p.ref");
- $sql.= $db->plimit($limit);
- // Build output string
- $outselect='';
- $outjson=array();
- dol_syslog("Form::select_produits_do search product sql=".$sql, LOG_DEBUG);
- $result=$this->db->query($sql);
- if ($result)
- {
- $num = $this->db->num_rows($result);
- $outselect.='<select class="flat" name="'.$htmlname.'">';
- $outselect.='<option value="0" selected="selected"> </option>';
- $i = 0;
- while ($num && $i < $num)
- {
- $outkey='';
- $outval='';
- $outref='';
- $objp = $this->db->fetch_object($result);
- $label=$objp->label;
- if (! empty($objp->label_translated)) $label=$objp->label_translated;
- if ($filterkey && $filterkey != '') $label=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$label,1);
- $outkey=$objp->rowid;
- $outref=$objp->ref;
- $opt = '<option value="'.$objp->rowid.'"';
- $opt.= ($objp->rowid == $selected)?' selected="selected"':'';
- if ($conf->stock->enabled && $objp->fk_product_type == 0 && isset($objp->stock))
- {
- if ($objp->stock > 0)
- {
- $opt.= ' style="background-color:#32CD32; color:#F5F5F5;"';
- }
- else if ($objp->stock <= 0)
- {
- $opt.= ' style="background-color:#FF0000; color:#F5F5F5;"';
- }
- }
- $opt.= '>';
- $opt.= $langs->convToOutputCharset($objp->ref).' - '.$langs->convToOutputCharset(dol_trunc($label,32)).' - ';
- $objRef = $objp->ref;
- if ($filterkey && $filterkey != '') $objRef=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$objRef,1);
- $outval.=$objRef.' - '.dol_trunc($label,32).' - ';
- $found=0;
- $currencytext=$langs->trans("Currency".$conf->monnaie);
- $currencytextnoent=$langs->transnoentities("Currency".$conf->monnaie);
- if (dol_strlen($currencytext) > 10) $currencytext=$conf->monnaie; // If text is too long, we use the short code
- if (dol_strlen($currencytextnoent) > 10) $currencytextnoent=$conf->monnaie; // If text is too long, we use the short code
- // Multiprice
- if ($price_level >= 1) // If we need a particular price level (from 1 to 6)
- {
- $sql= "SELECT price, price_ttc, price_base_type ";
- $sql.= "FROM ".MAIN_DB_PREFIX."product_price ";
- $sql.= "WHERE fk_product='".$objp->rowid."'";
- $sql.= " AND price_level=".$price_level;
- $sql.= " ORDER BY date_price";
- $sql.= " DESC limit 1";
- dol_syslog("Form::select_produits_do search price for level '.$price_level.' sql=".$sql);
- $result2 = $this->db->query($sql);
- if ($result2)
- {
- $objp2 = $this->db->fetch_object($result2);
- if ($objp2)
- {
- $found=1;
- if ($objp2->price_base_type == 'HT')
- {
- $opt.= price($objp2->price,1).' '.$currencytext.' '.$langs->trans("HT");
- $outval.= price($objp2->price,1).' '.$currencytextnoent.' '.$langs->transnoentities("HT");
- }
- else
- {
- $opt.= price($objp2->price_ttc,1).' '.$currencytext.' '.$langs->trans("TTC");
- $outval.= price($objp2->price_ttc,1).' '.$currencytextnoent.' '.$langs->transnoentities("TTC");
- }
- }
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- // If level no defined or multiprice not found, we used the default price
- if (! $found)
- {
- if ($objp->price_base_type == 'HT')
- {
- $opt.= price($objp->price,1).' '.$currencytext.' '.$langs->trans("HT");
- $outval.= price($objp->price,1).' '.$currencytextnoent.' '.$langs->transnoentities("HT");
- }
- else
- {
- $opt.= price($objp->price_ttc,1).' '.$currencytext.' '.$langs->trans("TTC");
- $outval.= price($objp->price_ttc,1).' '.$currencytextnoent.' '.$langs->transnoentities("TTC");
- }
- }
- if ($conf->stock->enabled && isset($objp->stock) && $objp->fk_product_type == 0)
- {
- $opt.= ' - '.$langs->trans("Stock").':'.$objp->stock;
- $outval.=' - '.$langs->transnoentities("Stock").':'.$objp->stock;
- }
- if ($objp->duration)
- {
- $duration_value = substr($objp->duration,0,dol_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]);
- $outval.=' - '.$duration_value.' '.$langs->transnoentities($dur[$duration_unit]);
- }
- $opt.= "</option>\n";
- // Add new entry
- // "key" value of json key array is used by jQuery automatically as selected value
- // "label" value of json key array is used by jQuery automatically as text for combo box
- $outselect.=$opt;
- array_push($outjson,array('key'=>$outkey,'value'=>$outref,'label'=>$outval));
- $i++;
- }
- $outselect.='</select>';
- $this->db->free($result);
- if (empty($disableout)) print $outselect;
- return $outjson;
- }
- else
- {
- dol_print_error($db);
- }
- }
- /**
- * Return list of products for customer in Ajax if Ajax activated or go to select_produits_fournisseurs_do
- *
- * @param socid Id third party
- * @param selected Preselected product
- * @param htmlname Name of HTML Select
- * @param filtertype Filter on product type (''=nofilter, 0=product, 1=service)
- * @param filtre For a SQL filter
- */
- function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtertype='',$filtre)
- {
- global $langs,$conf;
- if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)
- {
- // mode=2 means suppliers products
- print ajax_autocompleter('', $htmlname, DOL_URL_ROOT.'/product/ajaxproducts.php', 'htmlname='.$htmlname.'&outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=2&status='.$status.'&finished='.$finished, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT);
- print $langs->trans("RefOrLabel").' : <input type="text" size="16" name="search_'.$htmlname.'" id="search_'.$htmlname.'">';
- print '<br>';
- }
- else
- {
- $this->select_produits_fournisseurs_do($socid,$selected,$htmlname,$filtertype,$filtre,'',-1,0);
- }
- }
- /**
- * Retourne la liste des produits de fournisseurs
- *
- * @param socid Id societe fournisseur (0 pour aucun filtre)
- * @param selected Produit pre-selectionne
- * @param htmlname Nom de la zone select
- * @param filtertype Filter on product type (''=nofilter, 0=product, 1=service)
- * @param filtre Pour filtre sql
- * @param filterkey Filtre des produits
- * @param status -1=Return all products, 0=Products not on sell, 1=Products on sell
- * @param disableout Disable print output
- * @return array Array of keys for json
- */
- function select_produits_fournisseurs_do($socid,$selected='',$htmlname='productid',$filtertype='',$filtre='',$filterkey='',$statut=-1,$disableout=0)
- {
- global $langs,$conf;
- $langs->load('stocks');
- $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,";
- $sql.= " pfp.ref_fourn, 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_price as pfp ON p.rowid = pfp.fk_product";
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON pfp.fk_soc = s.rowid";
- $sql.= " WHERE p.entity = ".$conf->entity;
- $sql.= " AND p.tobuy = 1";
- if ($socid) $sql.= " AND pfp.fk_soc = ".$socid;
- if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype;
- if (! empty($filtre)) $sql.=" ".$filtre;
- // Add criteria on ref/label
- if ($filterkey && $filterkey != '')
- {
- if (! empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE))
- {
- $sql.=" AND (pfp.ref_fourn LIKE '".$filterkey."%' OR p.ref LIKE '".$filterkey."%' OR p.label LIKE '".$filterkey."%')";
- }
- else
- {
- $sql.=" AND (pfp.ref_fourn LIKE '%".$filterkey."%' OR p.ref LIKE '%".$filterkey."%' OR p.label LIKE '%".$filterkey."%')";
- }
- }
- $sql.= " ORDER BY pfp.ref_fourn DESC";
- // Build output string
- $outselect='';
- $outjson=array();
- dol_syslog("Form::select_produits_fournisseurs_do sql=".$sql,LOG_DEBUG);
- $result=$this->db->query($sql);
- if ($result)
- {
- $num = $this->db->num_rows($result);
- $outselect.='<select class="flat" id="select'.$htmlname.'" name="'.$htmlname.'">';
- if (! $selected) $outselect.='<option value="0" selected="selected"> </option>';
- else $outselect.='<option value="0"> </option>';
- $i = 0;
- while ($i < $num)
- {
- $outkey='';
- $outval='';
- $outref='';
- $objp = $this->db->fetch_object($result);
- $outkey=$objp->idprodfournprice;
- $outref=$objp->ref;
- $opt = '<option value="'.$objp->idprodfournprice.'"';
- if ($selected == $objp->idprodfournprice) $opt.= ' selected="selected"';
- if ($objp->fprice == '') $opt.=' disabled="disabled"';
- $opt.= '>';
- $objRef = $objp->ref;
- if ($filterkey && $filterkey != '') $objRef=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$objRef,1);
- $objRefFourn = $objp->ref_fourn;
- if ($filterkey && $filterkey != '') $objRefFourn=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$objRefFourn,1);
- $label = $objp->label;
- if ($filterkey && $filterkey != '') $label=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$label,1);
- $opt.=$langs->convToOutputCharset($objp->ref).' ('.$langs->convToOutputCharset($objp->ref_fourn).') - ';
- $outval.=$objRef.' ('.$objRefFourn.') - ';
- $opt.=$langs->convToOutputCharset(dol_trunc($objp->label,18)).' - ';
- $outval.=dol_trunc($label,18).' - ';
- if ($objp->fprice != '') // Keep != ''
- {
- $currencytext=$langs->trans("Currency".$conf->monnaie);
- $currencytextnoent=$langs->transnoentities("Currency".$conf->monnaie);
- if (dol_strlen($currencytext) > 10) $currencytext=$conf->monnaie; // If text is too long, we use the short code
- if (dol_strlen($currencytextnoent) > 10) $currencytextnoent=$conf->monnaie; // If text is too long, we use the short code
- $opt.= price($objp->fprice).' '.$currencytext."/".$objp->quantity;
- $outval.= price($objp->fprice).' '.$currencytextnoent."/".$objp->quantity;
- if ($objp->quantity == 1)
- {
- $opt.= strtolower($langs->trans("Unit"));
- $outval.=strtolower($langs->transnoentities("Unit"));
- }
- else
- {
- $opt.= strtolower($langs->trans("Units"));
- $outval.=strtolower($langs->transnoentities("Units"));
- }
- if ($objp->quantity >= 1)
- {
- $opt.=" (".price($objp->unitprice).' '.$currencytext."/".strtolower($langs->trans("Unit")).")";
- $outval.=" (".price($objp->unitprice).' '.$currencytextnoent."/".strtolower($langs->transnoentities("Unit")).")";
- }
- if ($objp->duration)
- {
- $opt .= " - ".$objp->duration;
- $outval.=" - ".$objp->duration;
- }
- if (! $socid)
- {
- $opt .= " - ".dol_trunc($objp->nom,8);
- $outval.=" - ".dol_trunc($objp->nom,8);
- }
- }
- else
- {
- $opt.= $langs->trans("NoPriceDefinedForThisSupplier");
- $outval.=$langs->transnoentities("NoPriceDefinedForThisSupplier");
- }
- $opt .= "</option>\n";
- // Add new entry
- // "key" value of json key array is used by jQuery automatically as selected value
- // "label" value of json key array is used by jQuery automatically as text for combo box
- $outselect.=$opt;
- array_push($outjson,array('key'=>$outkey,'value'=>$outref,'label'=>$outval));
- $i++;
- }
- $outselect.='</select>';
- $this->db->free($result);
- if (empty($disableout)) print $outselect;
- return $outjson;
- }
- else
- {
- dol_print_error($db);
- }
- }
- /**
- * Return list of suppliers prices for a product
- *
- * @param int $productid Id of product
- * @param string $htmlname Name of HTML field
- * @return void
- */
- 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.= " pfp.ref_fourn, 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_price as pfp ON p.rowid = pfp.fk_product";
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON pfp.fk_soc = s.rowid";
- $sql.= " WHERE p.entity = ".$conf->entity;
- $sql.= " AND p.tobuy = 1";
- $sql.= " AND s.fournisseur = 1";
- $sql.= " AND p.rowid = ".$productid;
- $sql.= " ORDER BY s.nom, pfp.ref_fourn DESC";
- dol_syslog("Form::select_product_fourn_price sql=".$sql,LOG_DEBUG);
- $result=$this->db->query($sql);
- if ($result)
- {
- $num = $this->db->num_rows($result);
- $form = '<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
- {
- dol_print_error($db);
- }
- }
- /**
- * Return list of delivery address
- *
- * @param string $selected Id contact pre-selectionn
- * @param int $socid Id of company
- * @param string $htmlname Name of HTML field
- * @param int $showempty Add an empty field
- * @return void
- */
- function select_address($selected='', $socid, $htmlname='address_id',$showempty=0)
- {
- // On recherche les utilisateurs
- $sql = "SELECT a.rowid, a.label";
- $sql .= " FROM ".MAIN_DB_PREFIX ."societe_address as a";
- $sql .= " WHERE a.fk_soc = ".$socid;
- $sql .= " ORDER BY a.label ASC";
- dol_syslog("Form::select_address sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- print '<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 ($selected && $selected == $obj->rowid)
- {
- print '<option value="'.$obj->rowid.'" selected="selected">'.$obj->label.'</option>';
- }
- else
- {
- print '<option value="'.$obj->rowid.'">'.$obj->label.'</option>';
- }
- $i++;
- }
- }
- print '</select>';
- return $num;
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- /**
- * Charge dans cache la liste des conditions de paiements possibles
- *
- * @return int Nb lignes chargees, 0 si deja chargees, <0 si ko
- */
- function load_cache_conditions_paiements()
- {
- global $langs;
- if (count($this->cache_conditions_paiements)) return 0; // Cache deja charge
- $sql = "SELECT rowid, code, libelle";
- $sql.= " FROM ".MAIN_DB_PREFIX.'c_payment_term';
- $sql.= " WHERE active=1";
- $sql.= " ORDER BY sortorder";
- dol_syslog('Form::load_cache_conditions_paiements sql='.$sql,LOG_DEBUG);
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
- $libelle=($langs->trans("PaymentConditionShort".$obj->code)!=("PaymentConditionShort".$obj->code)?$langs->trans("PaymentConditionShort".$obj->code):($obj->libelle!='-'?$obj->libelle:''));
- $this->cache_conditions_paiements[$obj->rowid]['code'] =$obj->code;
- $this->cache_conditions_paiements[$obj->rowid]['label']=$libelle;
- $i++;
- }
- return 1;
- }
- else {
- dol_print_error($this->db);
- return -1;
- }
- }
- /**
- * Charge dans cache la liste des délais de livraison possibles
- *
- * @return int Nb lignes chargees, 0 si deja chargees, <0 si ko
- */
- function load_cache_availability()
- {
- global $langs;
- if (count($this->cache_availability)) return 0; // Cache deja charge
- $sql = "SELECT rowid, code, label";
- $sql.= " FROM ".MAIN_DB_PREFIX.'c_availability';
- $sql.= " WHERE active=1";
- $sql.= " ORDER BY rowid";
- dol_syslog('Form::load_cache_availability sql='.$sql,LOG_DEBUG);
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
- $label=($langs->trans("AvailabilityType".$obj->code)!=("AvailabilityType".$obj->code)?$langs->trans("AvailabilityType".$obj->code):($obj->label!='-'?$obj->label:''));
- $this->cache_availability[$obj->rowid]['code'] =$obj->code;
- $this->cache_availability[$obj->rowid]['label']=$label;
- $i++;
- }
- return 1;
- }
- else {
- dol_print_error($this->db);
- return -1;
- }
- }
- /**
- * Retourne la liste des types de delais de livraison possibles
- *
- * @param selected Id du type de delais pre-selectionne
- * @param htmlname Nom de la zone select
- * @param filtertype To add a filter
- * @param addempty Add empty entry
- */
- function select_availability($selected='',$htmlname='availid',$filtertype='',$addempty=0)
- {
- global $langs,$user;
- $this->load_cache_availability();
- print '<select class="flat" name="'.$htmlname.'">';
- if ($addempty) print '<option value="0"> </option>';
- foreach($this->cache_availability as $id => $arrayavailability)
- {
- if ($selected == $id)
- {
- print '<option value="'.$id.'" selected="selected">';
- }
- else
- {
- print '<option value="'.$id.'">';
- }
- print $arrayavailability['label'];
- print '</option>';
- }
- print '</select>';
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- /**
- * Load into cache cache_demand_reason, array of input reasons
- *
- * @return int Nb of lines loaded, 0 if already loaded, <0 if ko
- */
- function load_cache_demand_reason()
- {
- global $langs;
- if (count($this->cache_demand_reason)) return 0; // Cache already loaded
- $sql = "SELECT rowid, code, label";
- $sql.= " FROM ".MAIN_DB_PREFIX.'c_input_reason';
- $sql.= " WHERE active=1";
- $sql.= " ORDER BY rowid";
- dol_syslog('Form::load_cache_demand_reason sql='.$sql,LOG_DEBUG);
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
- $tmparray=array();
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
- $label=($langs->trans("DemandReasonType".$obj->code)!=("DemandReasonType".$obj->code)?$langs->trans("DemandReasonType".$obj->code):($obj->label!='-'?$obj->label:''));
- $tmparray[$obj->rowid]['id'] =$obj->rowid;
- $tmparray[$obj->rowid]['code'] =$obj->code;
- $tmparray[$obj->rowid]['label']=$label;
- $i++;
- }
- $this->cache_demand_reason=dol_sort_array($tmparray,'label', $order='asc', $natsort, $case_sensitive);
- unset($tmparray);
- return 1;
- }
- else {
- dol_print_error($this->db);
- return -1;
- }
- }
- /**
- * Return list of events that triggered an object creation
- *
- * @param selected Id du type d'origine pre-selectionne
- * @param htmlname Nom de la zone select
- * @param exclude To exclude a code value (Example: SRC_PROP)
- * @param addempty Add an empty entry
- */
- function select_demand_reason($selected='',$htmlname='demandreasonid',$exclude='',$addempty=0)
- {
- global $langs,$user;
- $this->load_cache_demand_reason();
- print '<select class="flat" name="'.$htmlname.'">';
- if ($addempty) print '<option value="0"'.(empty($selected)?' selected="selected"':'').'> </option>';
- foreach($this->cache_demand_reason as $id => $arraydemandreason)
- {
- if ($arraydemandreason['code']==$exclude) continue;
- if ($selected == $arraydemandreason['id'])
- {
- print '<option value="'.$arraydemandreason['id'].'" selected="selected">';
- }
- else
- {
- print '<option value="'.$arraydemandreason['id'].'">';
- }
- print $arraydemandreason['label'];
- print '</option>';
- }
- print '</select>';
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- /**
- * Charge dans cache la liste des types de paiements possibles
- *
- * @return int Nb lignes chargees, 0 si deja chargees, <0 si ko
- */
- function load_cache_types_paiements()
- {
- global $langs;
- if (count($this->cache_types_paiements)) return 0; // Cache deja charge
- $sql = "SELECT id, code, libelle, type";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement";
- $sql.= " WHERE active > 0";
- $sql.= " ORDER BY id";
- dol_syslog('Form::load_cache_types_paiements sql='.$sql,LOG_DEBUG);
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
- $libelle=($langs->trans("PaymentTypeShort".$obj->code)!=("PaymentTypeShort".$obj->code)?$langs->trans("PaymentTypeShort".$obj->code):($obj->libelle!='-'?$obj->libelle:''));
- $this->cache_types_paiements[$obj->id]['code'] =$obj->code;
- $this->cache_types_paiements[$obj->id]['label']=$libelle;
- $this->cache_types_paiements[$obj->id]['type'] =$obj->type;
- $i++;
- }
- return $num;
- }
- else {
- dol_print_error($this->db);
- return -1;
- }
- }
- /**
- * Retourne la liste des types de paiements possibles
- *
- * @param selected Id du type de paiement pre-selectionne
- * @param htmlname Nom de la zone select
- * @param filtertype Pour filtre
- * @param addempty Ajoute entree vide
- */
- function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1,$addempty=0)
- {
- global $langs,$user;
- $this->load_cache_conditions_paiements();
- print '<select class="flat" name="'.$htmlname.'">';
- if ($addempty) print '<option value="0"> </option>';
- foreach($this->cache_conditions_paiements as $id => $arrayconditions)
- {
- if ($selected == $id)
- {
- print '<option value="'.$id.'" selected="selected">';
- }
- else
- {
- print '<option value="'.$id.'">';
- }
- print $arrayconditions['label'];
- print '</option>';
- }
- print '</select>';
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- /**
- * Return list of payment methods
- *
- * @param selected Id du mode de paiement pre-selectionne
- * @param htmlname Nom de la zone select
- * @param filtertype To filter on field type in llx_c_paiement (array('code'=>xx,'label'=>zz))
- * @param format 0=id+libelle, 1=code+code, 2=code+libelle, 3=id+code
- * @param empty 1=peut etre vide, 0 sinon
- * @param noadmininfo 0=Add admin info, 1=Disable admin info
- * @param maxlength Max length of label
- */
- function select_types_paiements($selected='',$htmlname='paiementtype',$filtertype='',$format=0, $empty=0, $noadmininfo=0,$maxlength=0)
- {
- global $langs,$user;
- dol_syslog("Form::select_type_paiements $selected, $htmlname, $filtertype, $format",LOG_DEBUG);
- $filterarray=array();
- if ($filtertype == 'CRDT') $filterarray=array(0,2);
- elseif ($filtertype == 'DBIT') $filterarray=array(1,2);
- elseif ($filtertype != '' && $filtertype != '-1') $filterarray=explode(',',$filtertype);
- $this->load_cache_types_paiements();
- print '<select id="select'.$htmlname.'" class="flat selectpaymenttypes" name="'.$htmlname.'">';
- if ($empty) print '<option value=""> </option>';
- foreach($this->cache_types_paiements as $id => $arraytypes)
- {
- // On passe si on a demande de filtrer sur des modes de paiments particuliers
- if (count($filterarray) && ! in_array($arraytypes['type'],$filterarray)) continue;
- // We discard empty line if showempty is on because an empty line has already been output.
- if ($empty && empty($arraytypes['code'])) continue;
- if ($format == 0) print '<option value="'.$id.'"';
- if ($format == 1) print '<option value="'.$arraytypes['code'].'"';
- if ($format == 2) print '<option value="'.$arraytypes['code'].'"';
- if ($format == 3) print '<option value="'.$id.'"';
- // Si selected est text, on compare avec code, sinon avec id
- if (preg_match('/[a-z]/i', $selected) && $selected == $arraytypes['code']) print ' selected="selected"';
- elseif ($selected == $id) print ' selected="selected"';
- print '>';
- if ($format == 0) $value=($maxlength?dol_trunc($arraytypes['label'],$maxlength):$arraytypes['label']);
- if ($format == 1) $value=$arraytypes['code'];
- if ($format == 2) $value=($maxlength?dol_trunc($arraytypes['label'],$maxlength):$arraytypes['label']);
- if ($format == 3) $value=$arraytypes['code'];
- print $value?$value:' ';
- print '</option>';
- }
- print '</select>';
- if ($user->admin && ! $noadmininfo) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- /**
- * Selection HT or TTC
- *
- * @param selected Id pre-selectionne
- * @param htmlname Nom de la zone select
- */
- function select_PriceBaseType($selected='',$htmlname='price_base_type')
- {
- print $this->load_PriceBaseType($selected,$htmlname);
- }
- /**
- * Selection HT or TTC
- *
- * @param selected Id pre-selectionne
- * @param htmlname Nom de la zone select
- */
- function load_PriceBaseType($selected='',$htmlname='price_base_type')
- {
- global $langs;
- $return='';
- $return.= '<select class="flat" name="'.$htmlname.'">';
- $options = array(
- 'HT'=>$langs->trans("HT"),
- 'TTC'=>$langs->trans("TTC")
- );
- foreach($options as $id => $value)
- {
- if ($selected == $id)
- {
- $return.= '<option value="'.$id.'" selected="selected">'.$value;
- }
- else
- {
- $return.= '<option value="'.$id.'">'.$value;
- }
- $return.= '</option>';
- }
- $return.= '</select>';
- return $return;
- }
- /**
- * Return combo list of differents status of a proposal
- * Values are id of table c_propalst
- *
- * @param selected etat pre-selectionne
- * @param short Use short labels
- */
- function select_propal_statut($selected='',$short=0)
- {
- global $langs;
- $sql = "SELECT id, code, label, active FROM ".MAIN_DB_PREFIX."c_propalst";
- $sql .= " WHERE active = 1";
- dol_syslog("Form::select_propal_statut sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- print '<select class="flat" name="propal_statut">';
- print '<option value=""> </option>';
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- if ($selected == $obj->id)
- {
- print '<option value="'.$obj->id.'" selected="selected">';
- }
- else
- {
- print '<option value="'.$obj->id.'">';
- }
- $key=$obj->code;
- if ($langs->trans("PropalStatus".$key.($short?'Short':'')) != "PropalStatus".$key.($short?'Short':''))
- {
- print $langs->trans("PropalStatus".$key.($short?'Short':''));
- }
- else
- {
- $conv_to_new_code=array('PR_DRAFT'=>'Draft','PR_OPEN'=>'Opened','PR_CLOSED'=>'Closed','PR_SIGNED'=>'Signed','PR_NOTSIGNED'=>'NotSigned','PR_FAC'=>'Billed');
- if (! empty($conv_to_new_code[$obj->code])) $key=$conv_to_new_code[$obj->code];
- print ($langs->trans("PropalStatus".$key.($short?'Short':''))!="PropalStatus".$key.($short?'Short':''))?$langs->trans("PropalStatus".$key.($short?'Short':'')):$obj->label;
- }
- print '</option>';
- $i++;
- }
- }
- print '</select>';
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- /**
- * Return a HTML select list of bank accounts
- *
- * @param selected Id account pre-selected
- * @param htmlname Name of select zone
- * @param statut Status of searched accounts (0=open, 1=closed)
- * @param filtre To filter list
- * @param useempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
- * @param moreattrib To add more attribute on select
- */
- function select_comptes($selected='',$htmlname='accountid',$statut=0,$filtre='',$useempty=0,$moreattrib='')
- {
- global $langs, $conf;
- $langs->load("admin");
- $sql = "SELECT rowid, label, bank";
- $sql.= " FROM ".MAIN_DB_PREFIX."bank_account";
- $sql.= " WHERE clos = '".$statut."'";
- $sql.= " AND entity = ".$conf->entity;
- if ($filtre) $sql.=" AND ".$filtre;
- $sql.= " ORDER BY label";
- dol_syslog("Form::select_comptes sql=".$sql);
- $result = $this->db->query($sql);
- if ($result)
- {
- $num = $this->db->num_rows($result);
- $i = 0;
- if ($num)
- {
- print '<select id="select'.$htmlname.'" class="flat selectbankaccount" name="'.$htmlname.'"'.($moreattrib?' '.$moreattrib:'').'>';
- if ($useempty == 1 || ($useempty == 2 && $num > 1))
- {
- print '<option value="'.$obj->rowid.'"> </option>';
- }
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($result);
- if ($selected == $obj->rowid)
- {
- print '<option value="'.$obj->rowid.'" selected="selected">';
- }
- else
- {
- print '<option value="'.$obj->rowid.'">';
- }
- print $obj->label;
- print '</option>';
- $i++;
- }
- print "</select>";
- }
- else
- {
- print $langs->trans("NoActiveBankAccountDefined");
- }
- }
- else {
- dol_print_error($this->db);
- }
- }
- /**
- * Return list of categories having choosed type
- *
- * @param type Type de categories (0=product, 1=supplier, 2=customer, 3=member)
- * @param selected Id of category preselected
- * @param select_name HTML field name
- * @param maxlength Maximum length for labels
- * @param excludeafterid Exclude all categories after this leaf in category tree.
- */
- function select_all_categories($type, $selected='', $select_name="", $maxlength=64, $excludeafterid=0)
- {
- global $langs;
- $langs->load("categories");
- if ($select_name=="") $select_name="catMere";
- $cat = new Categorie($this->db);
- $cate_arbo = $cat->get_full_arbo($type,$excludeafterid);
- $output = '<select class="flat" name="'.$select_name.'">';
- if (is_array($cate_arbo))
- {
- if (! count($cate_arbo)) $output.= '<option value="-1" disabled="disabled">'.$langs->trans("NoCategoriesDefined").'</option>';
- else
- {
- $output.= '<option value="-1"> </option>';
- foreach($cate_arbo as $key => $value)
- {
- if ($cate_arbo[$key]['id'] == $selected)
- {
- $add = 'selected="selected" ';
- }
- else
- {
- $add = '';
- }
- $output.= '<option '.$add.'value="'.$cate_arbo[$key]['id'].'">'.dol_trunc($cate_arbo[$key]['fulllabel'],$maxlength,'middle').'</option>';
- }
- }
- }
- $output.= '</select>';
- $output.= "\n";
- return $output;
- }
- /**
- * Show a confirmation HTML form or AJAX popup
- *
- * @param page Url of page to call if confirmation is OK
- * @param title title
- * @param question question
- * @param action action
- * @param formquestion an array with forms complementary inputs
- * @param selectedchoice "" or "no" or "yes"
- * @param useajax 0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No
- * @param height Force height of box
- * @return string 'ajax' if a confirm ajax popup is shown, 'html' if it's an html form
- */
- function form_confirm($page, $title, $question, $action, $formquestion='', $selectedchoice="", $useajax=0, $height=170, $width=500)
- {
- print $this->formconfirm($page, $title, $question, $action, $formquestion, $selectedchoice, $useajax, $height, $width);
- }
- /**
- * Show a confirmation HTML form or AJAX popup
- *
- * @param page Url of page to call if confirmation is OK
- * @param title title
- * @param question question
- * @param action action
- * @param formquestion an array with complementary inputs to add into forms: array(array('label'=> ,'type'=> , ))
- * @param selectedchoice "" or "no" or "yes"
- * @param useajax 0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No
- * @param height Force height of box
- * @return string 'ajax' if a confirm ajax popup is shown, 'html' if it's an html form
- */
- function formconfirm($page, $title, $question, $action, $formquestion='', $selectedchoice="", $useajax=0, $height=170, $width=500)
- {
- global $langs,$conf;
- $more='';
- $formconfirm='';
- $inputarray=array();
- if ($formquestion)
- {
- $more.='<table class="nobordernopadding" width="100%">'."\n";
- $more.='<tr><td colspan="3" valign="top">'.$formquestion['text'].'</td></tr>'."\n";
- foreach ($formquestion as $key => $input)
- {
- if (is_array($input))
- {
- if ($input['type'] == 'text')
- {
- $more.='<tr><td valign="top">'.$input['label'].'</td><td valign="top" colspan="2" align="left"><input type="text" class="flat" id="'.$input['name'].'" name="'.$input['name'].'" size="'.$input['size'].'" value="'.$input['value'].'" /></td></tr>'."\n";
- }
- else if ($input['type'] == 'password')
- {
- $more.='<tr><td valign="top">'.$input['label'].'</td><td valign="top" colspan="2" align="left"><input type="password" class="flat" id="'.$input['name'].'" name="'.$input['name'].'" size="'.$input['size'].'" value="'.$input['value'].'" /></td></tr>'."\n";
- }
- else if ($input['type'] == 'select')
- {
- $more.='<tr><td valign="top">';
- if (! empty($input['label'])) $more.=$input['label'].'</td><td valign="top" colspan="2" align="left">';
- $more.=$this->selectarray($input['name'],$input['values'],$input['default'],1);
- $more.='</td></tr>'."\n";
- }
- else if ($input['type'] == 'checkbox')
- {
- $more.='<tr>';
- $more.='<td valign="top">'.$input['label'].' </td><td valign="top" align="left">';
- $more.='<input type="checkbox" class="flat" id="'.$input['name'].'" name="'.$input['name'].'"';
- if (! is_bool($input['value']) && $input['value'] != 'false') $more.=' checked="checked"';
- if (is_bool($input['value']) && $input['value']) $more.=' checked="checked"';
- if ($input['disabled']) $more.=' disabled="disabled"';
- $more.=' /></td>';
- $more.='<td valign="top" align="left"> </td>';
- $more.='</tr>'."\n";
- }
- else if ($input['type'] == 'radio')
- {
- $i=0;
- foreach($input['values'] as $selkey => $selval)
- {
- $more.='<tr>';
- if ($i==0) $more.='<td valign="top">'.$input['label'].'</td>';
- else $more.='<td> </td>';
- $more.='<td valign="top" width="20"><input type="radio" class="flat" id="'.$input['name'].'" name="'.$input['name'].'" value="'.$selkey.'"';
- if ($input['disabled']) $more.=' disabled="disabled"';
- $more.=' /></td>';
- $more.='<td valign="top" align="left">';
- $more.=$selval;
- $more.='</td></tr>'."\n";
- $i++;
- }
- }
- else if ($input['type'] == 'other')
- {
- $more.='<tr><td valign="top">';
- if (! empty($input['label'])) $more.=$input['label'].'</td><td valign="top" colspan="2" align="left">';
- $more.=$input['value'];
- $more.='</td></tr>'."\n";
- }
- array_push($inputarray,$input['name']);
- }
- }
- $more.='</table>'."\n";
- }
- $formconfirm.= "\n<!-- begin form_confirm -->\n";
- if ($useajax && $conf->use_javascript_ajax)
- {
- $autoOpen=true;
- $dialogconfirm='dialog-confirm';
- if (! is_int($useajax)) {
- $button=$useajax;
- $useajax=1;
- $autoOpen=false;
- $dialogconfirm.='-'.$button;
- }
- $pageyes=$page.'&action='.$action.'&confirm=yes';
- $pageno=($useajax == 2?$page.'&confirm=no':'');
- // New code using jQuery only
- $formconfirm.= '<div id="'.$dialogconfirm.'" title="'.dol_escape_htmltag($title).'" style="display: none;">';
- if (! empty($more)) $formconfirm.= '<p>'.$more.'</p>';
- $formconfirm.= img_help('','').' '.$question;
- $formconfirm.= '</div>'."\n";
- $formconfirm.= '<script type="text/javascript">
- $(function() {
- var choice=\'ko\';
- var $inputarray='.json_encode($inputarray).';
- var button=\''.$button.'\';
- var dialogconfirm=\''.$dialogconfirm.'\';
- $( "#" + dialogconfirm ).dialog({
- autoOpen: '.($autoOpen?'true':'false').',
- resizable: false,
- height:'.$height.',
- width:'.$width.',
- modal: true,
- closeOnEscape: false,
- close: function(event, ui) {
- if (choice == \'ok\') {
- var options="";
- if ($inputarray.length>0) {
- $.each($inputarray, function() {
- var inputname = this;
- var inputvalue = $("#" + this).val();
- options += \'&\' + inputname + \'=\' + inputvalue;
- });
- //alert(options);
- }
- location.href=\''.$pageyes.'\' + options;
- }
- '.($pageno?'if (choice == \'ko\') location.href=\''.$pageno.'\';':'').'
- },
- buttons: {
- \''.dol_escape_js($langs->transnoentities("Yes")).'\': function() {
- choice=\'ok\';
- $(this).dialog(\'close\');
- },
- \''.dol_escape_js($langs->transnoentities("No")).'\': function() {
- choice=\'ko\';
- $(this).dialog(\'close\');
- }
- }
- });
- if (button.length > 0) {
- $( "#" + button ).click(function() {
- $("#" + dialogconfirm ).dialog(\'open\');
- });
- }
- });
- </script>';
- $formconfirm.= "\n";
- }
- else
- {
- $formconfirm.= '<form method="POST" action="'.$page.'" class="notoptoleftroright">'."\n";
- $formconfirm.= '<input type="hidden" name="action" value="'.$action.'">';
- $formconfirm.= '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">'."\n";
- $formconfirm.= '<table width="100%" class="valid">'."\n";
- // Ligne titre
- $formconfirm.= '<tr class="validtitre"><td class="validtitre" colspan="3">'.img_picto('','recent').' '.$title.'</td></tr>'."\n";
- // Ligne formulaire
- if ($more)
- {
- $formconfirm.='<tr class="valid"><td class="valid" colspan="3">'."\n";
- $formconfirm.=$more;
- $formconfirm.='</td></tr>'."\n";
- }
- // Ligne message
- $formconfirm.= '<tr class="valid">';
- $formconfirm.= '<td class="valid">'.$question.'</td>';
- $formconfirm.= '<td class="valid">';
- $newselectedchoice=empty($selectedchoice)?"no":$selectedchoice;
- $formconfirm.= $this->selectyesno("confirm",$newselectedchoice);
- $formconfirm.= '</td>';
- $formconfirm.= '<td class="valid" align="center"><input class="button" type="submit" value="'.$langs->trans("Validate").'"></td>';
- $formconfirm.= '</tr>'."\n";
- $formconfirm.= '</table>'."\n";
- if (is_array($formquestion))
- {
- foreach ($formquestion as $key => $input)
- {
- if ($input['type'] == 'hidden') $formconfirm.= '<input type="hidden" name="'.$input['name'].'" value="'.$input['value'].'">';
- }
- }
- $formconfirm.= "</form>\n";
- $formconfirm.= '<br>';
- }
- $formconfirm.= "<!-- end form_confirm -->\n";
- return $formconfirm;
- }
- /**
- * Show a form to select a project
- *
- * @param page Page
- * @param socid Id societe
- * @param selected Id projet pre-selectionne
- * @param htmlname Nom du formulaire select
- * @return void
- */
- function form_project($page, $socid, $selected='', $htmlname='projectid')
- {
- global $langs;
- require_once(DOL_DOCUMENT_ROOT."/lib/project.lib.php");
- $langs->load("project");
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'">';
- print '<input type="hidden" name="action" value="classin">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- //print "$socid,$selected,$htmlname";
- 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>';
- print $projet->getNomUrl(0);
- } else {
- print " ";
- }
- }
- }
- /**
- * Show a form to select payment conditions
- *
- * @param page Page
- * @param selected Id condition pre-selectionne
- * @param htmlname Name of select html field
- * @param addempty Ajoute entree vide
- * @return void
- */
- 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 '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" 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[$selected]['label'];
- } else {
- print " ";
- }
- }
- }
- /**
- * Show a form to select a delivery delay
- *
- * @param page Page
- * @param selected Id condition pre-selectionne
- * @param htmlname Name of select html field
- * @param addempty Ajoute entree vide
- * @return void
- */
- function form_availability($page, $selected='', $htmlname='availability', $addempty=0)
- {
- global $langs;
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'">';
- print '<input type="hidden" name="action" value="setavailability">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- $this->select_availability($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_availability();
- print $this->cache_availability[$selected]['label'];
- } else {
- print " ";
- }
- }
- }
- /**
- * Show a select form to select origin
- *
- * @param page Page
- * @param selected Id condition pre-selectionne
- * @param htmlname Name of select html field
- * @param addempty Add empty entry
- * @return void
- */
- function form_demand_reason($page, $selected='', $htmlname='demandreason', $addempty=0)
- {
- global $langs;
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'">';
- print '<input type="hidden" name="action" value="setdemandreason">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- $this->select_demand_reason($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_demand_reason();
- foreach ($this->cache_demand_reason as $key => $val)
- {
- if ($val['id'] == $selected)
- {
- print $val['label'];
- break;
- }
- }
- } else {
- print " ";
- }
- }
- }
- /**
- * Show a form to select a date
- *
- * @param page Page
- * @param selected Date preselected
- * @param htmlname Name of input html field
- * @return void
- */
- function form_date($page, $selected='', $htmlname)
- {
- global $langs;
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'" name="form'.$htmlname.'">';
- print '<input type="hidden" name="action" value="set'.$htmlname.'">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- print $this->select_date($selected,$htmlname,0,0,1,'form'.$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[$selected]['label'];
- } else {
- print " ";
- }
- }
- }
- /**
- * Show a select form to choose a user
- *
- * @param page Page
- * @param selected Id of user preselected
- * @param htmlname Name of input html field
- * @param exclude List of users id to exclude
- * @param include List of users id to include
- * @return void
- */
- function form_users($page, $selected='', $htmlname='userid', $exclude='', $include='')
- {
- global $langs;
- if ($htmlname != "none")
- {
- print '<form method="POST" action="'.$page.'" name="form'.$htmlname.'">';
- print '<input type="hidden" name="action" value="set'.$htmlname.'">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- print $this->select_users($selected,$htmlname,1,$exclude,0,$include);
- 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 ."/user/class/user.class.php");
- //$this->load_cache_contacts();
- //print $this->cache_contacts[$selected];
- $theuser=new User($this->db);
- $theuser->fetch($selected);
- print $theuser->getNomUrl(1);
- } else {
- print " ";
- }
- }
- }
- /**
- * Affiche formulaire de selection des modes de reglement
- *
- * @param page Page
- * @param selected Id mode pre-selectionne
- * @param htmlname Name of select html field
- * @return void
- */
- 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 '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" 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[$selected]['label'];
- } else {
- print " ";
- }
- }
- }
- /**
- * Show a select box with available absolute discounts
- *
- * @param page Page URL where form is shown
- * @param selected Value pre-selected
- * @param htmlname Nom du formulaire select. Si none, non modifiable
- * @param socid Third party id
- * @param amount Total amount available
- * @param filter SQL filter on discounts
- * @param maxvalue Max value for lines that can be selected
- * @param more More string to add
- * @return void
- */
- function form_remise_dispo($page, $selected='', $htmlname='remise_id',$socid, $amount, $filter='', $maxvalue=0, $more='')
- {
- global $conf,$langs;
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'">';
- print '<input type="hidden" name="action" value="setabsolutediscount">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td nowrap="nowrap">';
- if (! $filter || $filter=='fk_facture_source IS NULL') print $langs->trans("CompanyHasAbsoluteDiscount",price($amount),$langs->transnoentities("Currency".$conf->monnaie)).': ';
- else print $langs->trans("CompanyHasCreditNote",price($amount),$langs->transnoentities("Currency".$conf->monnaie)).': ';
- // print $langs->trans("AvailableGlobalDiscounts").': ';
- $newfilter='fk_facture IS NULL AND fk_facture_line IS NULL'; // Remises disponibles
- if ($filter) $newfilter.=' AND '.$filter;
- $nbqualifiedlines=$this->select_remises('',$htmlname,$newfilter,$socid,$maxvalue);
- print '</td>';
- print '<td>';
- if ($nbqualifiedlines > 0)
- {
- print ' <input type="submit" class="button" value="';
- if (! $filter || $filter=='fk_facture_source IS NULL') print $langs->trans("UseDiscount");
- else print $langs->trans("UseCredit");
- print '" title="'.$langs->trans("UseCreditNoteInInvoicePayment").'">';
- }
- if ($more) print $more;
- print '</td>';
- print '</tr></table></form>';
- }
- else
- {
- if ($selected)
- {
- print $selected;
- }
- else
- {
- print "0";
- }
- }
- }
- /**
- * Affiche formulaire de selection des contacts
- *
- * @param page Page
- * @param selected Id contact pre-selectionne
- * @param htmlname Nom du formulaire select
- * @return void
- */
- 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 '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" 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�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/contact.class.php");
- //$this->load_cache_contacts();
- //print $this->cache_contacts[$selected];
- $contact=new Contact($this->db);
- $contact->fetch($selected);
- print $contact->getFullName($langs);
- } else {
- print " ";
- }
- }
- }
- /**
- * Affiche formulaire de selection des tiers
- *
- * @param page Page
- * @param selected Id contact pre-selectionne
- * @param htmlname Nom du formulaire select
- * @return void
- */
- function form_thirdparty($page, $selected='', $htmlname='socid')
- {
- global $langs;
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'">';
- print '<input type="hidden" name="action" value="set_thirdparty">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- $num=$this->select_societes($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)
- {
- require_once(DOL_DOCUMENT_ROOT ."/societe/class/societe.class.php");
- $soc = new Societe($this->db);
- $soc->fetch($selected);
- print $soc->getNomUrl($langs);
- } else {
- print " ";
- }
- }
- }
- /**
- * Affiche formulaire de selection de l'adresse
- *
- * @param page Page
- * @param selected Id condition pre-selectionne
- * @param htmlname Nom du formulaire select
- * @param origin Origine de l'appel pour pouvoir creer un retour
- * @param originid Id de l'origine
- * @return void
- */
- function form_address($page, $selected='', $socid, $htmlname='address_id', $origin='', $originid='')
- {
- global $langs,$conf;
- if ($htmlname != "none")
- {
- print '<form method="post" action="'.$page.'">';
- print '<input type="hidden" name="action" value="setaddress">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
- print '<tr><td>';
- $this->select_address($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/address.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 ."/societe/class/address.class.php");
- $address=new Address($this->db);
- $result=$address->fetch_address($selected);
- print '<a href='.DOL_URL_ROOT.'/comm/address.php?socid='.$address->socid.'&id='.$address->id.'&action=edit&origin='.$origin.'&originid='.$originid.'>'.$address->label.'</a>';
- }
- else
- {
- print " ";
- }
- }
- }
- /**
- * Retourne la liste des devises, dans la langue de l'utilisateur
- *
- * @param selected code devise pre-selectionne
- * @param htmlname nom de la liste deroulante
- * @return void
- */
- function select_currency($selected='',$htmlname='currency_id')
- {
- print $this->selectcurrency($selected,$htmlname);
- }
- /**
- * Retourne la liste des devises, dans la langue de l'utilisateur
- *
- * @param selected code devise pre-selectionne
- * @param htmlname nom de la liste deroulante
- */
- function selectcurrency($selected='',$htmlname='currency_id')
- {
- global $conf,$langs,$user;
- $langs->load("dict");
- $out='';
- $currencyArray=array();
- $label=array();
- if ($selected=='euro' || $selected=='euros') $selected='EUR'; // Pour compatibilite
- $sql = "SELECT code_iso, label";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_currencies";
- $sql.= " WHERE active = 1";
- $sql.= " ORDER BY code_iso ASC";
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $out.= '<select class="flat" name="'.$htmlname.'">';
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- $foundselected=false;
- while ($i < $num) {
- $obj = $this->db->fetch_object($resql);
- $currencyArray[$i]['code_iso'] = $obj->code_iso;
- $currencyArray[$i]['label'] = ($obj->code_iso && $langs->trans("Currency".$obj->code_iso)!="Currency".$obj->code_iso?$langs->trans("Currency".$obj->code_iso):($obj->label!='-'?$obj->label:''));
- $label[$i] = $currencyArray[$i]['label'];
- $i++;
- }
- array_multisort($label, SORT_ASC, $currencyArray);
- foreach ($currencyArray as $row) {
- if ($selected && $selected == $row['code_iso']) {
- $foundselected=true;
- $out.= '<option value="'.$row['code_iso'].'" selected="selected">';
- } else {
- $out.= '<option value="'.$row['code_iso'].'">';
- }
- $out.= $row['label'];
- if ($row['code_iso']) $out.= ' ('.$row['code_iso'] . ')';
- $out.= '</option>';
- }
- }
- $out.= '</select>';
- if ($user->admin) $out.= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- return $out;
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- /**
- * Output an HTML select vat rate
- *
- * @param htmlname Nom champ html
- * @param selectedrate Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage.
- * @param societe_vendeuse Objet societe vendeuse
- * @param societe_acheteuse Objet societe acheteuse
- * @param idprod Id product
- * @param info_bits Miscellaneous information on line
- * @param type ''=Unknown, 0=Product, 1=Service (Used if idprod not defined)
- * Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
- * Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle.
- * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par defaut=0 (La TVA doit etre paye par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de regle.
- * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu autre que transport neuf alors la TVA par defaut=TVA du produit vendu. Fin de regle.
- * Sinon la TVA proposee par defaut=0. Fin de regle.
- * @deprecated
- * @return void
- */
- function select_tva($htmlname='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $idprod=0, $info_bits=0, $type='')
- {
- print $this->load_tva($htmlname, $selectedrate, $societe_vendeuse, $societe_acheteuse, $idprod, $info_bits, $type);
- }
- /**
- * Output an HTML select vat rate
- *
- * @param htmlname Nom champ html
- * @param selectedrate Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage.
- * @param societe_vendeuse Objet societe vendeuse
- * @param societe_acheteuse Objet societe acheteuse
- * @param idprod Id product
- * @param info_bits Miscellaneous information on line (1 for NPR)
- * @param type ''=Unknown, 0=Product, 1=Service (Used if idprod not defined)
- * Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
- * Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle.
- * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par defaut=0 (La TVA doit etre paye par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de regle.
- * Si (vendeur et acheteur dans Communaute europeenne) et bien vendu autre que transport neuf alors la TVA par defaut=TVA du produit vendu. Fin de regle.
- * Sinon la TVA proposee par defaut=0. Fin de regle.
- * @return void
- */
- function load_tva($htmlname='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $idprod=0, $info_bits=0, $type='')
- {
- global $langs,$conf,$mysoc;
- $return='';
- $txtva=array();
- $libtva=array();
- $nprtva=array();
- // Define defaultnpr and defaultttx
- $defaultnpr=($info_bits & 0x01);
- $defaultnpr=(preg_match('/\*/',$selectedrate) ? 1 : $defaultnpr);
- $defaulttx=str_replace('*','',$selectedrate);
- // Check parameters
- if (is_object($societe_vendeuse) && ! $societe_vendeuse->pays_code)
- {
- if ($societe_vendeuse->id == $mysoc->id)
- {
- $return.= '<font class="error">'.$langs->trans("ErrorYourCountryIsNotDefined").'</div>';
- }
- else
- {
- $return.= '<font class="error">'.$langs->trans("ErrorSupplierCountryIsNotDefined").'</div>';
- }
- return $return;
- }
- //var_dump($societe_acheteuse);
- //print "name=$name, selectedrate=$selectedrate, seller=".$societe_vendeuse->pays_code." buyer=".$societe_acheteuse->pays_code." buyer is company=".$societe_acheteuse->isACompany()." idprod=$idprod, info_bits=$info_bits type=$type";
- //exit;
- // Get list of all VAT rates to show
- // First we defined code_pays to use to find list
- if (is_object($societe_vendeuse))
- {
- $code_pays="'".$societe_vendeuse->pays_code."'";
- }
- else
- {
- $code_pays="'".$mysoc->pays_code."'"; // Pour compatibilite ascendente
- }
- if (! empty($conf->global->SERVICE_ARE_ECOMMERCE_200238EC)) // If option to have vat for end customer for services is on
- {
- if (! $societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC() && ! $societe_acheteuse->isACompany())
- {
- // We also add the buyer
- if (is_numeric($type))
- {
- if ($type == 1) // We know product is a service
- {
- $code_pays.=",'".$societe_acheteuse->pays_code."'";
- }
- }
- else if (! $idprod) // We don't know type of product
- {
- $code_pays.=",'".$societe_acheteuse->pays_code."'";
- }
- else
- {
- $prodstatic=new Product($this->db);
- $prodstatic->fetch($idprod);
- if ($prodstatic->type == 1) // We know product is a service
- {
- $code_pays.=",'".$societe_acheteuse->pays_code."'";
- }
- }
- }
- }
- // Now we get list
- $sql = "SELECT DISTINCT t.taux, t.recuperableonly";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p";
- $sql.= " WHERE t.fk_pays = p.rowid";
- $sql.= " AND t.active = 1";
- $sql.= " AND p.code in (".$code_pays.")";
- $sql.= " ORDER BY t.taux ASC, t.recuperableonly ASC";
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- if ($num)
- {
- for ($i = 0; $i < $num; $i++)
- {
- $obj = $this->db->fetch_object($resql);
- $txtva[$i] = $obj->taux;
- $libtva[$i] = $obj->taux.'%';
- $nprtva[$i] = $obj->recuperableonly;
- }
- }
- else
- {
- $return.= '<font class="error">'.$langs->trans("ErrorNoVATRateDefinedForSellerCountry",$code_pays).'</font>';
- }
- }
- else
- {
- $return.= '<font class="error">'.$this->db->error().'</font>';
- }
- // Definition du taux a pre-selectionner (si defaulttx non force et donc vaut -1 ou '')
- if ($defaulttx < 0 || dol_strlen($defaulttx) == 0)
- {
- $defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$idprod);
- $defaultnpr=get_default_npr($societe_vendeuse,$societe_acheteuse,$idprod);
- }
- // Si taux par defaut n'a pu etre determine, on prend dernier de la liste.
- // Comme ils sont tries par ordre croissant, dernier = plus eleve = taux courant
- if ($defaulttx < 0 || dol_strlen($defaulttx) == 0)
- {
- $defaulttx = $txtva[count($txtva)-1];
- }
- $nbdetaux = count($txtva);
- if ($nbdetaux > 0)
- {
- $return.= '<select class="flat" id="'.$htmlname.'" name="'.$htmlname.'">';
- for ($i = 0 ; $i < $nbdetaux ; $i++)
- {
- //print "xxxxx".$txtva[$i]."-".$nprtva[$i];
- $return.= '<option value="'.$txtva[$i];
- $return.= $nprtva[$i] ? '*': '';
- $return.= '"';
- if ($txtva[$i] == $defaulttx && $nprtva[$i] == $defaultnpr)
- {
- $return.= ' selected="selected"';
- }
- $return.= '>'.vatrate($libtva[$i]);
- $return.= $nprtva[$i] ? ' *': '';
- $return.= '</option>';
- $this->tva_taux_value[$i] = $txtva[$i];
- $this->tva_taux_libelle[$i] = $libtva[$i];
- $this->tva_taux_npr[$i] = $nprtva[$i];
- }
- $return.= '</select>';
- }
- return $return;
- }
- /**
- * Show a HTML widget to input a date or combo list for day, month, years and optionnaly hours and minutes
- * Fields are preselected with :
- * - set_time date (Local PHP server timestamps or date format YYYY-MM-DD or YYYY-MM-DD HH:MM)
- * - local date of PHP server if set_time is ''
- * - Empty (fields empty) if set_time is -1 (in this case, parameter empty must also have value 1)
- *
- * @param set_time Pre-selected date (must be a local PHP server timestamp)
- * @param prefix Prefix for fields name
- * @param h 1=Show also hours
- * @param m 1=Show also minutes
- * @param empty 0=Fields required, 1=Empty input is allowed
- * @param form_name Form name. Used by popup dates.
- * @param d 1=Show days, month, years
- * @param addnowbutton Add a button "Now"
- * @param nooutput Do not output html string but return it
- * @param disabled Disable input fields
- * @param fullday When a checkbox with this html name is on, hour and day are set with 00:00 or 23:59
- * @return nothing or string if nooutput is 1
- */
- function select_date($set_time='', $prefix='re', $h=0, $m=0, $empty=0, $form_name="", $d=1, $addnowbutton=0, $nooutput=0, $disabled=0, $fullday='')
- {
- global $conf,$langs;
- $retstring='';
- if($prefix=='') $prefix='re';
- if($h == '') $h=0;
- if($m == '') $m=0;
- if($empty == '') $empty=0;
- if (! $set_time && $empty == 0) $set_time = dol_now('tzuser');
- // Analysis of the pre-selection date
- if (preg_match('/^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?/',$set_time,$reg))
- {
- // Date format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM:SS'
- $syear = $reg[1];
- $smonth = $reg[2];
- $sday = $reg[3];
- $shour = $reg[4];
- $smin = $reg[5];
- }
- elseif (strval($set_time) != '' && $set_time != -1)
- {
- // set_time est un timestamps (0 possible)
- $syear = dol_print_date($set_time, "%Y");
- $smonth = dol_print_date($set_time, "%m");
- $sday = dol_print_date($set_time, "%d");
- $shour = dol_print_date($set_time, "%H");
- $smin = dol_print_date($set_time, "%M");
- }
- else
- {
- // Date est '' ou vaut -1
- $syear = '';
- $smonth = '';
- $sday = '';
- $shour = '';
- $smin = '';
- }
- if ($d)
- {
- // Show date with popup
- if ($conf->use_javascript_ajax && (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR != "none"))
- {
- //print "e".$set_time." t ".$conf->format_date_short;
- if (strval($set_time) != '' && $set_time != -1)
- {
- //$formated_date=dol_print_date($set_time,$conf->format_date_short);
- $formated_date=dol_print_date($set_time,$langs->trans("FormatDateShort")); // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript
- }
- // Calendrier popup version eldy
- if (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR == "eldy")
- {
- // Zone de saisie manuelle de la date
- $retstring.='<input id="'.$prefix.'" name="'.$prefix.'" type="text" size="9" maxlength="11" value="'.$formated_date.'"';
- $retstring.=($disabled?' disabled="disabled"':'');
- $retstring.=' onChange="dpChangeDay(\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\'); "'; // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript
- $retstring.='>';
- // Icone calendrier
- if (! $disabled)
- {
- $retstring.='<button id="'.$prefix.'Button" type="button" class="dpInvisibleButtons"';
- $base=DOL_URL_ROOT.'/lib/';
- $retstring.=' onClick="showDP(\''.$base.'\',\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\',\''.$langs->defaultlang.'\');">'.img_object($langs->trans("SelectDate"),'calendarday').'</button>';
- }
- $retstring.='<input type="hidden" id="'.$prefix.'day" name="'.$prefix.'day" value="'.$sday.'">'."\n";
- $retstring.='<input type="hidden" id="'.$prefix.'month" name="'.$prefix.'month" value="'.$smonth.'">'."\n";
- $retstring.='<input type="hidden" id="'.$prefix.'year" name="'.$prefix.'year" value="'.$syear.'">'."\n";
- }
- else
- {
- print "Bad value of calendar";
- }
- }
- // Show date with combo selects
- if (empty($conf->use_javascript_ajax) || $conf->global->MAIN_POPUP_CALENDAR == "none")
- {
- // Day
- $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat" name="'.$prefix.'day">';
- if ($empty || $set_time == -1)
- {
- $retstring.='<option value="0" selected="selected"> </option>';
- }
- for ($day = 1 ; $day <= 31; $day++)
- {
- if ($day == $sday)
- {
- $retstring.="<option value=\"$day\" selected=\"selected\">$day";
- }
- else
- {
- $retstring.="<option value=\"$day\">$day";
- }
- $retstring.="</option>";
- }
- $retstring.="</select>";
- $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat" name="'.$prefix.'month">';
- if ($empty || $set_time == -1)
- {
- $retstring.='<option value="0" selected="selected"> </option>';
- }
- // Month
- for ($month = 1 ; $month <= 12 ; $month++)
- {
- $retstring.='<option value="'.$month.'"'.($month == $smonth?' selected="selected"':'').'>';
- $retstring.=dol_print_date(mktime(12,0,0,$month,1,2000),"%b");
- $retstring.="</option>";
- }
- $retstring.="</select>";
- // Year
- if ($empty || $set_time == -1)
- {
- $retstring.='<input'.($disabled?' disabled="disabled"':'').' class="flat" type="text" size="3" maxlength="4" name="'.$prefix.'year" value="'.$syear.'">';
- }
- else
- {
- $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat" name="'.$prefix.'year">';
- for ($year = $syear - 5; $year < $syear + 10 ; $year++)
- {
- if ($year == $syear)
- {
- $retstring.="<option value=\"$year\" selected=\"true\">".$year;
- }
- else
- {
- $retstring.="<option value=\"$year\">".$year;
- }
- $retstring.="</option>";
- }
- $retstring.="</select>\n";
- }
- }
- }
- if ($d && $h) $retstring.=' ';
- if ($h)
- {
- // Show hour
- $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat '.($fullday?$fullday.'hour':'').'" name="'.$prefix.'hour">';
- if ($empty) $retstring.='<option value="-1"> </option>';
- for ($hour = 0; $hour < 24; $hour++)
- {
- if (dol_strlen($hour) < 2)
- {
- $hour = "0" . $hour;
- }
- if ($hour == $shour)
- {
- $retstring.="<option value=\"$hour\" selected=\"true\">$hour</option>";
- }
- else
- {
- $retstring.="<option value=\"$hour\">$hour</option>";
- }
- }
- $retstring.="</select>";
- $retstring.="H\n";
- }
- if ($m)
- {
- // Show minutes
- $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat '.($fullday?$fullday.'min':'').'" name="'.$prefix.'min">';
- if ($empty) $retstring.='<option value="-1"> </option>';
- for ($min = 0; $min < 60 ; $min++)
- {
- if (dol_strlen($min) < 2)
- {
- $min = "0" . $min;
- }
- if ($min == $smin)
- {
- $retstring.="<option value=\"$min\" selected=\"true\">$min</option>";
- }
- else
- {
- $retstring.="<option value=\"$min\">$min</option>";
- }
- }
- $retstring.="</select>";
- $retstring.="M\n";
- }
- // Add a "Now" button
- if ($conf->use_javascript_ajax && $addnowbutton)
- {
- // Script which will be inserted in the OnClick of the "Now" button
- $reset_scripts = "";
- // Generate the date part, depending on the use or not of the javascript calendar
- if (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR == "eldy")
- {
- $base=DOL_URL_ROOT.'/lib/';
- $reset_scripts .= 'resetDP(\''.$base.'\',\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\',\''.$langs->defaultlang.'\');';
- }
- else
- {
- $reset_scripts .= 'this.form.elements[\''.$prefix.'day\'].value=formatDate(new Date(), \'d\'); ';
- $reset_scripts .= 'this.form.elements[\''.$prefix.'month\'].value=formatDate(new Date(), \'M\'); ';
- $reset_scripts .= 'this.form.elements[\''.$prefix.'year\'].value=formatDate(new Date(), \'yyyy\'); ';
- }
- // Generate the hour part
- if ($h)
- {
- if ($fullday) $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
- $reset_scripts .= 'this.form.elements[\''.$prefix.'hour\'].value=formatDate(new Date(), \'HH\'); ';
- if ($fullday) $reset_scripts .= ' } ';
- }
- // Generate the minute part
- if ($m)
- {
- if ($fullday) $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
- $reset_scripts .= 'this.form.elements[\''.$prefix.'min\'].value=formatDate(new Date(), \'mm\'); ';
- if ($fullday) $reset_scripts .= ' } ';
- }
- // If reset_scripts is not empty, print the button with the reset_scripts in OnClick
- if ($reset_scripts)
- {
- $retstring.='<button class="dpInvisibleButtons" id="'.$prefix.'ButtonNow" type="button" name="_useless" value="Now" onClick="'.$reset_scripts.'">';
- $retstring.=$langs->trans("Now");
- $retstring.='</button> ';
- }
- }
- if (! empty($nooutput)) return $retstring;
- print $retstring;
- return;
- }
- /**
- * Function to show a form to select a duration on a page
- *
- * @param string $prefix prefix
- * @param int $iSecond Default preselected duration (number of seconds)
- * @param int $disabled Disable the combo box
- * @return void
- */
- function select_duration($prefix,$iSecond='',$disabled=0)
- {
- if ($iSecond)
- {
- require_once(DOL_DOCUMENT_ROOT."/lib/date.lib.php");
- $hourSelected = ConvertSecondToTime($iSecond,'hour');
- $minSelected = ConvertSecondToTime($iSecond,'min');
- }
- print '<select class="flat" name="'.$prefix.'hour"'.($disabled?' disabled="disabled"':'').'>';
- for ($hour = 0; $hour < 24; $hour++)
- {
- print '<option value="'.$hour.'"';
- if ($hourSelected == $hour)
- {
- print " selected=\"true\"";
- }
- print ">".$hour."</option>";
- }
- print "</select>";
- print "H ";
- print '<select class="flat" name="'.$prefix.'min"'.($disabled?' disabled="disabled"':'').'>';
- for ($min = 0; $min <= 55; $min=$min+5)
- {
- print '<option value="'.$min.'"';
- if ($minSelected == $min) print ' selected="selected"';
- print '>'.$min.'</option>';
- }
- print "</select>";
- print "M ";
- }
- /**
- * Show a select form from an array
- *
- * @param htmlname Name of html select area
- * @param array Array with key+value
- * @param id Preselected key
- * @param show_empty 1 si il faut ajouter une valeur vide dans la liste, 0 sinon
- * @param key_in_label 1 pour afficher la key dans la valeur "[key] value"
- * @param value_as_key 1 to use value as key
- * @param option Valeur de l'option en fonction du type choisi
- * @param translate Translate and encode value
- * @param maxlen Length maximum for labels
- * @param disabled Html select box is disabled
- * @return string HTML select string
- */
- function selectarray($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $option='', $translate=0, $maxlen=0, $disabled=0)
- {
- global $langs;
- $out='<select id="'.$htmlname.'" '.($disabled?'disabled="disabled" ':'').'class="flat" name="'.$htmlname.'" '.($option != ''?$option:'').'>';
- if ($show_empty)
- {
- $out.='<option value="-1"'.($id==-1?' selected="selected"':'').'> </option>'."\n";
- }
- if (is_array($array))
- {
- foreach($array as $key => $value)
- {
- $out.='<option value="'.($value_as_key?$value:$key).'"';
- // Si il faut pre-selectionner une valeur
- if ($id != '' && ($id == $key || $id == $value))
- {
- $out.=' selected="selected"';
- }
- $out.='>';
- if ($key_in_label)
- {
- $newval=($translate?$langs->trans($value):$value);
- $selectOptionValue = dol_htmlentitiesbr($key.' - '.($maxlen?dol_trunc($newval,$maxlen):$newval));
- $out.=$selectOptionValue;
- }
- else
- {
- $newval=($translate?$langs->trans($value):$value);
- $selectOptionValue = dol_htmlentitiesbr($maxlen?dol_trunc($newval,$maxlen):$newval);
- if ($value == '' || $value == '-') { $selectOptionValue=' '; }
- $out.=$selectOptionValue;
- }
- $out.="</option>\n";
- }
- }
- $out.="</select>";
- return $out;
- }
- /**
- * Show a select form from an array
- *
- * @deprecated Use selectarray instead
- * @return void
- */
- function select_array($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $option='', $translate=0, $maxlen=0)
- {
- print $this->selectarray($htmlname, $array, $id, $show_empty, $key_in_label, $value_as_key, $option, $translate, $maxlen);
- }
- /**
- * Return an html string with a select combo box to choose yes or no
- *
- * @param name Name of html select field
- * @param value Pre-selected value
- * @param option 0 return yes/no, 1 return 1/0
- * @return int or string See option
- */
- function selectyesno($htmlname,$value='',$option=0)
- {
- global $langs;
- $yes="yes"; $no="no";
- if ($option)
- {
- $yes="1";
- $no="0";
- }
- $resultyesno = '<select class="flat" id="'.$htmlname.'" name="'.$htmlname.'">'."\n";
- if (("$value" == 'yes') || ($value == 1))
- {
- $resultyesno .= '<option value="'.$yes.'" selected="selected">'.$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="selected">'.$langs->trans("No").'</option>'."\n";
- }
- $resultyesno .= '</select>'."\n";
- return $resultyesno;
- }
- /**
- * Return list of export templates
- *
- * @param selected Id modele pre-selectionne
- * @param htmlname Nom de la zone select
- * @param type Type des modeles recherches
- * @param useempty Affiche valeur vide dans liste
- * @return void
- */
- 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="selected">';
- }
- else
- {
- print '<option value="'.$obj->rowid.'">';
- }
- print $obj->label;
- print '</option>';
- $i++;
- }
- print "</select>";
- }
- else {
- dol_print_error($this->db);
- }
- }
- /**
- * Return a HTML area with the reference of object and a navigation bar for a business object
- * To add a particular filter on select, you must set $object->next_prev_filter to SQL criteria.
- *
- * @param object Object to show
- * @param paramid Name of parameter to use to name the id into the URL link
- * @param morehtml More html content to output just before the nav bar
- * @param shownav Show Condition (navigation is shown if value is 1)
- * @param fieldid Nom du champ en base a utiliser pour select next et previous
- * @param fieldref Nom du champ objet ref (object->ref) a utiliser pour select next et previous
- * @param morehtmlref Code html supplementaire a afficher apres ref
- * @param moreparam More param to add in nav link url.
- * @return string Portion HTML avec ref + boutons nav
- */
- function showrefnav($object,$paramid,$morehtml='',$shownav=1,$fieldid='rowid',$fieldref='ref',$morehtmlref='',$moreparam='')
- {
- $ret='';
- //print "$paramid,$morehtml,$shownav,$fieldid,$fieldref,$morehtmlref,$moreparam";
- $object->load_previous_next_ref((isset($object->next_prev_filter)?$object->next_prev_filter:''),$fieldid);
- $previous_ref = $object->ref_previous?'<a href="'.$_SERVER["PHP_SELF"].'?'.$paramid.'='.urlencode($object->ref_previous).$moreparam.'">'.img_previous().'</a>':'';
- $next_ref = $object->ref_next?'<a href="'.$_SERVER["PHP_SELF"].'?'.$paramid.'='.urlencode($object->ref_next).$moreparam.'">'.img_next().'</a>':'';
- //print "xx".$previous_ref."x".$next_ref;
- if ($previous_ref || $next_ref || $morehtml) {
- $ret.='<table class="nobordernopadding" width="100%"><tr class="nobordernopadding"><td class="nobordernopadding">';
- }
- $ret.=$object->$fieldref;
- if ($morehtmlref) {
- $ret.=' '.$morehtmlref;
- }
- 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;
- }
- /**
- * Return HTML code to output a photo
- *
- * @param modulepart Key to define module concerned ('societe', 'userphoto', 'memberphoto')
- * @param object Object containing data to retrieve file name
- * @param width Width of photo
- * @return string HTML code to output photo
- */
- function showphoto($modulepart,$object,$width=100)
- {
- global $conf;
- $ret='';$dir='';$file='';$altfile='';$email='';
- if ($modulepart=='societe')
- {
- $dir=$conf->societe->dir_output;
- $smallfile=$object->logo;
- $smallfile=preg_replace('/(\.png|\.gif|\.jpg|\.jpeg|\.bmp)/i','_small\\1',$smallfile);
- if ($object->logo) $file=$object->id.'/logos/thumbs/'.$smallfile;
- }
- else if ($modulepart=='userphoto')
- {
- $dir=$conf->user->dir_output;
- if ($object->photo) $file=get_exdir($object->id,2).$object->photo;
- if (! empty($conf->global->MAIN_OLD_IMAGE_LINKS)) $altfile=$object->id.".jpg"; // For backward compatibility
- $email=$object->email;
- }
- else if ($modulepart=='memberphoto')
- {
- $dir=$conf->adherent->dir_output;
- if ($object->photo) $file=get_exdir($object->id,2).'photos/'.$object->photo;
- if (! empty($conf->global->MAIN_OLD_IMAGE_LINKS)) $altfile=$object->id.".jpg"; // For backward compatibility
- $email=$object->email;
- }
- if ($dir)
- {
- $cache='0';
- if ($file && file_exists($dir."/".$file))
- {
- // TODO Link to large image
- $ret.='<a href="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&file='.urlencode($file).'&cache='.$cache.'">';
- $ret.='<img alt="Photo" id="photologo'.(preg_replace('/[^a-z]/i','_',$file)).'" class="photologo" border="0" width="'.$width.'" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&file='.urlencode($file).'&cache='.$cache.'">';
- $ret.='</a>';
- }
- else if ($altfile && file_exists($dir."/".$altfile))
- {
- $ret.='<a href="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&file='.urlencode($file).'&cache='.$cache.'">';
- $ret.='<img alt="Photo alt" id="photologo'.(preg_replace('/[^a-z]/i','_',$file)).'" class="photologo" border="0" width="'.$width.'" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&file='.urlencode($altfile).'&cache='.$cache.'">';
- $ret.='</a>';
- }
- else
- {
- if ($conf->gravatar->enabled && $email)
- {
- global $dolibarr_main_url_root;
- $ret.='<!-- Put link to gravatar -->';
- $ret.='<img alt="Photo found on Gravatar" title="Photo Gravatar.com - email '.$email.'" border="0" width="'.$width.'" src="http://www.gravatar.com/avatar/'.dol_hash($email).'?s='.$width.'&d='.urlencode( dol_buildpath('/theme/common/nophoto.jpg',2) ).'">';
- }
- else
- {
- $ret.='<img alt="No photo" border="0" width="'.$width.'" src="'.DOL_URL_ROOT.'/theme/common/nophoto.jpg">';
- }
- }
- }
- else dol_print_error('','Call of showphoto with wrong parameters');
- /* Disabled. lightbox seems to not work. I don't know why.
- $ret.="\n<script type=\"text/javascript\">
- jQuery(function() {
- jQuery('.photologo').lightBox();
- });
- </script>\n";
- $ret.="\n<script type=\"text/javascript\">
- jQuery(function() {
- jQuery('.photologo').lightBox({
- overlayBgColor: '#FFF',
- overlayOpacity: 0.6,
- imageLoading: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-ico-loading.gif',
- imageBtnClose: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-close.gif',
- imageBtnPrev: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-prev.gif',
- imageBtnNext: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-next.gif',
- containerResizeSpeed: 350,
- txtImage: 'Imagem',
- txtOf: 'de'
- });
- });
- </script>\n";
- */
- return $ret;
- }
- /**
- * Return select list of groups
- *
- * @param string $selected Id group preselected
- * @param string $htmlname Field name in form
- * @param int $show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
- * @param string $exclude Array list of groups id to exclude
- * @param int $disabled If select list must be disabled
- * @param string $include Array list of groups id to include
- * @param int $enableonly Array list of groups id to be enabled. All other must be disabled
- * @param int $force_entity Possibility to force entity
- * @return void
- */
- function select_dolgroups($selected='',$htmlname='groupid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='',$force_entity='')
- {
- global $conf,$user,$langs;
- // Permettre l'exclusion de groupes
- if (is_array($exclude)) $excludeGroups = implode("','",$exclude);
- // Permettre l'inclusion de groupes
- if (is_array($include)) $includeGroups = implode("','",$include);
- $out='';
- // On recherche les groupes
- $sql = "SELECT ug.rowid, ug.nom ";
- if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
- {
- $sql.= ", e.label";
- }
- $sql.= " FROM ".MAIN_DB_PREFIX."usergroup as ug ";
- if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
- {
- $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."entity as e on e.rowid=ug.entity";
- if ($force_entity) $sql.= " WHERE ug.entity IN (0,".$force_entity.")";
- else $sql.= " WHERE ug.entity IS NOT NULL";
- }
- else
- {
- $sql.= " WHERE ug.entity IN (0,".$conf->entity.")";
- }
- if (is_array($exclude) && $excludeGroups) $sql.= " AND ug.rowid NOT IN ('".$excludeGroups."')";
- if (is_array($include) && $includeGroups) $sql.= " AND ug.rowid IN ('".$includeGroups."')";
- $sql.= " ORDER BY ug.nom ASC";
- dol_syslog("Form::select_dolgroups sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
- if ($num)
- {
- $out.= '<select class="flat" name="'.$htmlname.'"'.($disabled?' disabled="disabled"':'').'>';
- if ($show_empty) $out.= '<option value="-1"'.($id==-1?' selected="selected"':'').'> </option>'."\n";
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $disableline=0;
- if (is_array($enableonly) && count($enableonly) && ! in_array($obj->rowid,$enableonly)) $disableline=1;
- $out.= '<option value="'.$obj->rowid.'"';
- if ($disableline) $out.= ' disabled="disabled"';
- if ((is_object($selected) && $selected->id == $obj->rowid) || (! is_object($selected) && $selected == $obj->rowid))
- {
- $out.= ' selected="selected"';
- }
- $out.= '>';
- $out.= $obj->nom;
- if(! empty($conf->multicompany->enabled) && empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE) && $conf->entity == 1)
- {
- $out.= " (".$obj->label.")";
- }
- $out.= '</option>';
- $i++;
- }
- }
- else
- {
- $out.= '<select class="flat" name="'.$htmlname.'" disabled="disabled">';
- $out.= '<option value="">'.$langs->trans("EmptyList").'</option>';
- }
- $out.= '</select>';
- }
- else
- {
- dol_print_error($this->db);
- }
- return $out;
- }
- }
- ?>
|