lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add patch from patrick raguin to add the pdf unpayed concatenation feature.

Browse Source
This commit is contained in:
Laurent Destailleur 2008-08-28 00:53:47 +00:00
parent 1cf5e23bd0
commit 9b89360f91
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
htdocs/compta/facture/retardspaiement.php
View File

@ -42,6 +42,8 @@ $result = restrictedArea($user, 'facture',$facid,'');
* View * View
*/ */
$diroutputpdf=$conf->facture->dir_output . '/impayes/temp';
llxHeader('',$langs->trans("BillsLate")); llxHeader('',$langs->trans("BillsLate"));
$html = new Form($db); $html = new Form($db);
@ -103,10 +105,10 @@ if ($user->rights->facture->lire)
} }
// vérifie que le chemin d'accès est bien accessible // vérifie que le chemin d'accès est bien accessible
create_exdir($conf->facture->dir_output . '/impayes'); create_exdir($diroutputpdf);
// enregistre le fichier pdf concaténé // enregistre le fichier pdf concaténé
$pdf->Output($conf->facture->dir_output . '/impayes/impayes'.dolibarr_date('YmdHis',time()).'.pdf'); $pdf->Output($diroutputpdf.'/impayes'.dolibarr_date('YmdHis',time()).'.pdf');
} else { } else {
print '<div class="error">'.$langs->trans('UnpayedNotChecked').'</div>' ; print '<div class="error">'.$langs->trans('UnpayedNotChecked').'</div>' ;
@ -309,7 +311,7 @@ if ($user->rights->facture->lire)
/* /*
* Gestion des documents générés * Gestion des documents générés
*/ */
$filedir=$conf->facture->dir_output . '/impayes'; $filedir=$diroutputpdf;
$urlsource=$_SERVER['PHP_SELF'].'?facid='.$fac->id; $urlsource=$_SERVER['PHP_SELF'].'?facid='.$fac->id;
$genallowed=$user->rights->facture->creer; $genallowed=$user->rights->facture->creer;
$delallowed=$user->rights->facture->supprimer; $delallowed=$user->rights->facture->supprimer;

16
htdocs/lib/functions.lib.php
View File

@ -2238,13 +2238,13 @@ function get_exdir($num,$level=3)
} }
/** /**
\brief Cr<EFBFBD>ation de r<EFBFBD>pertoire recursive * \brief Creation of a directory (recursive)
\param $dir R<EFBFBD>pertoire a cr<EFBFBD>er * \param $dir Directory to create
\return int < 0 si erreur, >= 0 si succ<EFBFBD>s * \return int < 0 if KO, >= 0 if OK
*/ */
function create_exdir($dir) function create_exdir($dir)
{ {
dolibarr_syslog("functions.lib.php::create_exdir: dir=$dir",LOG_INFO); dolibarr_syslog("functions.lib.php::create_exdir: dir=".$dir,LOG_INFO);
if (@is_dir($dir)) return 0; if (@is_dir($dir)) return 0;
@ -2259,7 +2259,7 @@ function create_exdir($dir)
else $ccdir = $cdir[$i]; else $ccdir = $cdir[$i];
if (eregi("^.:$",$ccdir,$regs)) continue; // Si chemin Windows incomplet, on poursuit par rep suivant if (eregi("^.:$",$ccdir,$regs)) continue; // Si chemin Windows incomplet, on poursuit par rep suivant
// Attention, le is_dir() peut <EFBFBD>chouer bien que le rep existe. // Attention, le is_dir() peut echouer bien que le rep existe.
// (ex selon config de open_basedir) // (ex selon config de open_basedir)
if ($ccdir) if ($ccdir)
{ {
@ -2270,20 +2270,20 @@ function create_exdir($dir)
umask(0); umask(0);
if (! @mkdir($ccdir, 0755)) if (! @mkdir($ccdir, 0755))
{ {
// Si le is_dir a renvoy<EFBFBD> une fausse info, alors on passe ici. // Si le is_dir a renvoye une fausse info, alors on passe ici.
dolibarr_syslog("functions.lib.php::create_exdir: Fails to create directory '".$ccdir."' or directory already exists.",LOG_WARNING); dolibarr_syslog("functions.lib.php::create_exdir: Fails to create directory '".$ccdir."' or directory already exists.",LOG_WARNING);
$nberr++; $nberr++;
} }
else else
{ {
dolibarr_syslog("functions.lib.php::create_exdir: Directory '".$ccdir."' created",LOG_DEBUG); dolibarr_syslog("functions.lib.php::create_exdir: Directory '".$ccdir."' created",LOG_DEBUG);
$nberr=0; // On remet a z<EFBFBD>ro car si on arrive ici, cela veut dire que les <20>checs pr<70>c<EFBFBD>dents peuvent etre ignor<6F>s $nberr=0; // On remet a zero car si on arrive ici, cela veut dire que les <20>checs pr<70>c<EFBFBD>dents peuvent etre ignor<6F>s
$nbcreated++; $nbcreated++;
} }
} }
else else
{ {
$nberr=0; // On remet a z<EFBFBD>ro car si on arrive ici, cela veut dire que les <20>checs pr<70>c<EFBFBD>dents peuvent etre ignor<6F>s $nberr=0; // On remet a zero car si on arrive ici, cela veut dire que les <20>checs pr<70>c<EFBFBD>dents peuvent etre ignor<6F>s
} }
} }
} }