dolibarr  17.0.4
pdf_standard.class.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2003 Steve Dillon
3  * Copyright (C) 2003 Laurent Passebecq
4  * Copyright (C) 2001-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
5  * Copyright (C) 2002-2003 Jean-Louis Bergamo <jlb@j1b.org>
6  * Copyright (C) 2006-2013 Laurent Destailleur <eldy@users.sourceforge.net>
7  * Copyright (C) 2015 Francis Appels <francis.appels@yahoo.com>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 3 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program. If not, see <https://www.gnu.org/licenses/>.
21  */
22 
29 require_once DOL_DOCUMENT_ROOT.'/core/class/commonstickergenerator.class.php';
30 
35 {
40  public $version = 'dolibarr';
41 
42 
48  public function __construct($db)
49  {
50  global $conf, $langs, $mysoc;
51 
52  // Translations
53  $langs->loadLangs(array("main", "admin"));
54 
55  $this->db = $db;
56  $this->name = "standard";
57  $this->description = $langs->trans('TemplateforBusinessCards');
58  //$this->update_main_doc_field = 1; // Save the name of generated file as the main doc when generating a doc with this template
59 
60  $this->type = 'pdf-various-sizes';
61  }
62 
71  public function addSticker(&$pdf, $outputlangs, $param)
72  {
73  // use this method in future refactoring
74  }
75 
76  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
92  public function Add_PDF_card(&$pdf, $textleft, $header, $footer, $outputlangs, $textright = '', $idmember = 0, $photo = '')
93  {
94  // phpcs:enable
95  global $db, $mysoc, $conf, $langs;
96  global $forceimgscalewidth, $forceimgscaleheight;
97 
98  $imgscalewidth = (empty($forceimgscalewidth) ? 0.3 : $forceimgscalewidth); // Scale of image for width (1=Full width of sticker)
99  $imgscaleheight = (empty($forceimgscalewidth) ? 0.5 : $forceimgscalewidth); // Scale of image for height (1=Full height of sticker)
100 
101  // We are in a new page, then we must add a page
102  if (($this->_COUNTX == 0) && ($this->_COUNTY == 0) and (!$this->_First == 1)) {
103  $pdf->AddPage();
104  }
105  $this->_First = 0;
106  $_PosX = $this->_Margin_Left + ($this->_COUNTX * ($this->_Width + $this->_X_Space));
107  $_PosY = $this->_Margin_Top + ($this->_COUNTY * ($this->_Height + $this->_Y_Space));
108 
109  // Define logo
110  $logo = $conf->mycompany->dir_output.'/logos/'.$mysoc->logo;
111  if (!is_readable($logo)) {
112  $logo = '';
113  if (!empty($mysoc->logo_small) && is_readable($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_small)) {
114  $logo = $conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_small;
115  } elseif (!empty($mysoc->logo) && is_readable($conf->mycompany->dir_output.'/logos/'.$mysoc->logo)) {
116  $logo = $conf->mycompany->dir_output.'/logos/'.$mysoc->logo;
117  }
118  }
119 
120  $member = new Adherent($db);
121  $member->id = $idmember;
122  $member->ref = $idmember;
123 
124  // Define photo
125  $dir = $conf->adherent->dir_output;
126  if (!empty($photo)) {
127  $file = get_exdir(0, 0, 0, 0, $member, 'member').'photos/'.$photo;
128  $photo = $dir.'/'.$file;
129  if (!is_readable($photo)) {
130  $photo = '';
131  }
132  }
133 
134  // Define background image
135  $backgroundimage = '';
136  if (!empty($conf->global->ADHERENT_CARD_BACKGROUND) && file_exists($conf->adherent->dir_output.'/'.$conf->global->ADHERENT_CARD_BACKGROUND)) {
137  $backgroundimage = $conf->adherent->dir_output.'/'.$conf->global->ADHERENT_CARD_BACKGROUND;
138  }
139 
140  // Print lines
141  if ($this->code == "CARD") {
142  $this->Tformat = $this->_Avery_Labels["CARD"];
143  //$this->_Pointille($pdf,$_PosX,$_PosY,$_PosX+$this->_Width,$_PosY+$this->_Height,0.3,25);
144  $this->_Croix($pdf, $_PosX, $_PosY, $_PosX + $this->_Width, $_PosY + $this->_Height, 0.1, 10);
145  }
146 
147  // Background
148  if ($backgroundimage) {
149  $pdf->image($backgroundimage, $_PosX, $_PosY, $this->_Width, $this->_Height);
150  }
151 
152  $xleft = 2;
153  $ytop = 2;
154 
155  // Top
156  if ($header != '') {
157  if ($this->code == "CARD") {
158  $pdf->SetDrawColor(128, 128, 128);
159  $pdf->Line($_PosX, $_PosY + $this->_Line_Height + 1, $_PosX + $this->_Width, $_PosY + $this->_Line_Height + 1); // Only 1 mm and not ytop for top text
160  $pdf->SetDrawColor(0, 0, 0);
161  }
162  $pdf->SetXY($_PosX + $xleft, $_PosY + 1); // Only 1 mm and not ytop for top text
163  $pdf->Cell($this->_Width - 2 * $xleft, $this->_Line_Height, $outputlangs->convToOutputCharset($header), 0, 1, 'C');
164  }
165 
166 
167  $ytop += (empty($header) ? 0 : (1 + $this->_Line_Height));
168 
169  // Define widthtouse and heighttouse
170  $maxwidthtouse = round(($this->_Width - 2 * $xleft) * $imgscalewidth);
171  $maxheighttouse = round(($this->_Height - 2 * $ytop) * $imgscaleheight);
172  $defaultratio = ($maxwidthtouse / $maxheighttouse);
173  $widthtouse = $maxwidthtouse;
174  $heighttouse = 0; // old value for image
175  $tmp = dol_getImageSize($photo, false);
176  if (isset($tmp['height'])) {
177  $imgratio = $tmp['width'] / $tmp['height'];
178  if ($imgratio >= $defaultratio) {
179  $widthtouse = $maxwidthtouse;
180  $heighttouse = round($widthtouse / $imgratio);
181  } else {
182  $heighttouse = $maxheighttouse;
183  $widthtouse = round($heighttouse * $imgratio);
184  }
185  }
186  //var_dump($this->_Width.'x'.$this->_Height.' with border and scale '.$imgscale.' => max '.$maxwidthtouse.'x'.$maxheighttouse.' => We use '.$widthtouse.'x'.$heighttouse);exit;
187 
188  // Center
189  if ($textright == '') { // Only a left part
190  // Output left area
191  if ($textleft == '__LOGO__' && $logo) {
192  $pdf->Image($logo, $_PosX + $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
193  } elseif ($textleft == '__PHOTO__' && $photo) {
194  $pdf->Image($photo, $_PosX + $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
195  } else {
196  $pdf->SetXY($_PosX + $xleft, $_PosY + $ytop);
197  $pdf->MultiCell($this->_Width, $this->_Line_Height, $outputlangs->convToOutputCharset($textleft), 0, 'L');
198  }
199  } elseif ($textleft != '' && $textright != '') { //
200  if ($textleft == '__LOGO__' || $textleft == '__PHOTO__') {
201  if ($textleft == '__LOGO__' && $logo) {
202  $pdf->Image($logo, $_PosX + $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
203  } elseif ($textleft == '__PHOTO__' && $photo) {
204  $pdf->Image($photo, $_PosX + $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
205  }
206  $pdf->SetXY($_PosX + $xleft + $widthtouse + 1, $_PosY + $ytop);
207  $pdf->MultiCell($this->_Width - $xleft - $xleft - $widthtouse - 1, $this->_Line_Height, $outputlangs->convToOutputCharset($textright), 0, 'R');
208  } elseif ($textright == '__LOGO__' || $textright == '__PHOTO__') {
209  if ($textright == '__LOGO__' && $logo) {
210  $pdf->Image($logo, $_PosX + $this->_Width - $widthtouse - $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
211  } elseif ($textright == '__PHOTO__' && $photo) {
212  $pdf->Image($photo, $_PosX + $this->_Width - $widthtouse - $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
213  }
214  $pdf->SetXY($_PosX + $xleft, $_PosY + $ytop);
215  $pdf->MultiCell($this->_Width - $widthtouse - $xleft - $xleft - 1, $this->_Line_Height, $outputlangs->convToOutputCharset($textleft), 0, 'L');
216  } else // text on halft left and text on half right
217  {
218  $pdf->SetXY($_PosX + $xleft, $_PosY + $ytop);
219  $pdf->MultiCell(round($this->_Width / 2), $this->_Line_Height, $outputlangs->convToOutputCharset($textleft), 0, 'L');
220  $pdf->SetXY($_PosX + round($this->_Width / 2), $_PosY + $ytop);
221  $pdf->MultiCell(round($this->_Width / 2) - 2, $this->_Line_Height, $outputlangs->convToOutputCharset($textright), 0, 'R');
222  }
223  } else // Only a right part
224  {
225  // Output right area
226  if ($textright == '__LOGO__' && $logo) {
227  $pdf->Image($logo, $_PosX + $this->_Width - $widthtouse - $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
228  } elseif ($textright == '__PHOTO__' && $photo) {
229  $pdf->Image($photo, $_PosX + $this->_Width - $widthtouse - $xleft, $_PosY + $ytop, $widthtouse, $heighttouse);
230  } else {
231  $pdf->SetXY($_PosX + $xleft, $_PosY + $ytop);
232  $pdf->MultiCell($this->_Width - $xleft, $this->_Line_Height, $outputlangs->convToOutputCharset($textright), 0, 'R');
233  }
234  }
235 
236  // Bottom
237  if ($footer != '') {
238  if ($this->code == "CARD") {
239  $pdf->SetDrawColor(128, 128, 128);
240  $pdf->Line($_PosX, $_PosY + $this->_Height - $this->_Line_Height - 2, $_PosX + $this->_Width, $_PosY + $this->_Height - $this->_Line_Height - 2);
241  $pdf->SetDrawColor(0, 0, 0);
242  }
243  $pdf->SetXY($_PosX, $_PosY + $this->_Height - $this->_Line_Height - 1);
244  $pdf->Cell($this->_Width, $this->_Line_Height, $outputlangs->convToOutputCharset($footer), 0, 1, 'C');
245  }
246  //print "$_PosY+$this->_Height-$this->_Line_Height-1<br>\n";
247 
248  $this->_COUNTY++;
249 
250  if ($this->_COUNTY == $this->_Y_Number) {
251  // Si on est en bas de page, on remonte le 'curseur' de position
252  $this->_COUNTX++;
253  $this->_COUNTY = 0;
254  }
255 
256  if ($this->_COUNTX == $this->_X_Number) {
257  // Si on est en bout de page, alors on repart sur une nouvelle page
258  $this->_COUNTX = 0;
259  $this->_COUNTY = 0;
260  }
261  }
262 
263  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
275  public function write_file($object, $outputlangs, $srctemplatepath, $mode = 'member', $nooutput = 0, $filename = 'tmp_cards')
276  {
277  // phpcs:enable
278  global $user, $conf, $langs, $mysoc, $_Avery_Labels;
279 
280  $this->code = $srctemplatepath;
281 
282  if (is_object($object)) {
283  if ($object->country == '-') {
284  $object->country = '';
285  }
286 
287  $now = dol_now();
288  $year = dol_print_date($now, '%Y');
289  $month = dol_print_date($now, '%m');
290  $day = dol_print_date($now, '%d');
291 
292  // List of values to scan for a replacement
293  $substitutionarray = array(
294  '__ID__' => $object->id,
295  '__LOGIN__'=>$object->login,
296  '__FIRSTNAME__'=>$object->firstname,
297  '__LASTNAME__'=>$object->lastname,
298  '__FULLNAME__'=>$object->getFullName($langs),
299  '__COMPANY__'=>$object->company,
300  '__ADDRESS__'=>$object->address,
301  '__ZIP__'=>$object->zip,
302  '__TOWN__'=>$object->town,
303  '__COUNTRY__'=>$object->country,
304  '__COUNTRY_CODE__'=>$object->country_code,
305  '__EMAIL__'=>$object->email,
306  '__BIRTH__'=>dol_print_date($object->birth, 'day'),
307  '__TYPE__'=>$object->type,
308  '__YEAR__'=>$year,
309  '__MONTH__'=>$month,
310  '__DAY__'=>$day,
311  '__DOL_MAIN_URL_ROOT__'=>DOL_MAIN_URL_ROOT,
312  '__SERVER__'=>"https://".$_SERVER["SERVER_NAME"]."/"
313  );
314  complete_substitutions_array($substitutionarray, $langs);
315 
316  // For business cards
317  $textleft = make_substitutions(getDolGlobalString("ADHERENT_CARD_TEXT"), $substitutionarray);
318  $textheader = make_substitutions(getDolGlobalString("ADHERENT_CARD_HEADER_TEXT"), $substitutionarray);
319  $textfooter = make_substitutions(getDolGlobalString("ADHERENT_CARD_FOOTER_TEXT"), $substitutionarray);
320  $textright = make_substitutions(getDolGlobalString("ADHERENT_CARD_TEXT_RIGHT"), $substitutionarray);
321 
322  $nb = $_Avery_Labels[$this->code]['NX'] * $_Avery_Labels[$this->code]['NY'];
323  if ($nb <= 0) {
324  $nb = 1; // Protection to avoid empty page
325  }
326 
327  for ($j = 0; $j < $nb; $j++) {
328  $arrayofmembers[] = array(
329  'textleft'=>$textleft,
330  'textheader'=>$textheader,
331  'textfooter'=>$textfooter,
332  'textright'=>$textright,
333  'id'=>(isset($object->rowid) ? $object->rowid : ""),
334  'photo'=>(isset($object->photo) ? $object->photo : "")
335  );
336  }
337 
338  $arrayofrecords = $arrayofmembers;
339  } else {
340  $arrayofrecords = $object;
341  }
342 
343  //var_dump($arrayofrecords);exit;
344 
345  $this->Tformat = $_Avery_Labels[$this->code];
346  if (empty($this->Tformat)) {
347  dol_print_error('', 'ErrorBadTypeForCard'.$this->code);
348  exit;
349  }
350 
351  $this->type = 'pdf';
352  $filename .= '.pdf';
353 
354  // standard format or custom
355  if ($this->Tformat['paper-size'] != 'custom') {
356  $this->format = $this->Tformat['paper-size'];
357  } else {
358  //custom
359  $resolution = array($this->Tformat['custom_x'], $this->Tformat['custom_y']);
360  $this->format = $resolution;
361  }
362 
363  if (!is_object($outputlangs)) {
364  $outputlangs = $langs;
365  }
366  // For backward compatibility with FPDF, force output charset to ISO, because FPDF expect text to be encoded in ISO
367  if (!empty($conf->global->MAIN_USE_FPDF)) {
368  $outputlangs->charset_output = 'ISO-8859-1';
369  }
370 
371  // Load traductions files required by page
372  $outputlangs->loadLangs(array("main", "dict", "companies", "admin", "members"));
373 
374  if (empty($mode) || $mode == 'member') {
375  $title = $outputlangs->transnoentities('MembersCards');
376  $keywords = $outputlangs->transnoentities('MembersCards')." ".$outputlangs->transnoentities("Foundation")." ".$outputlangs->convToOutputCharset($mysoc->name);
377  } else {
378  dol_print_error('', 'Bad value for $mode');
379  return -1;
380  }
381 
382 
383  if (is_object($object)) {
384  $outputdir = $conf->adherent->dir_output;
385  $dir = $outputdir."/".get_exdir(0, 0, 0, 0, $object, 'member');
386  $file = $dir.'/'.$filename;
387  } else {
388  $outputdir = $conf->adherent->dir_temp;
389  $dir = $outputdir;
390  $file = $dir.'/'.$filename;
391  }
392 
393  //var_dump($file);exit;
394 
395  if (!file_exists($dir)) {
396  if (dol_mkdir($dir) < 0) {
397  $this->error = $langs->trans("ErrorCanNotCreateDir", $dir);
398  return 0;
399  }
400  }
401 
402  $pdf = pdf_getInstance($this->format, $this->Tformat['metric'], $this->Tformat['orientation']);
403 
404  if (class_exists('TCPDF')) {
405  $pdf->setPrintHeader(false);
406  $pdf->setPrintFooter(false);
407  }
408  $pdf->SetFont(pdf_getPDFFont($outputlangs));
409 
410  $pdf->SetTitle($title);
411  $pdf->SetSubject($title);
412  $pdf->SetCreator("Dolibarr ".DOL_VERSION);
413  $pdf->SetAuthor($outputlangs->convToOutputCharset($user->getFullName($outputlangs)));
414  $pdf->SetKeyWords($keywords);
415  if (getDolGlobalString('MAIN_DISABLE_PDF_COMPRESSION')) {
416  $pdf->SetCompression(false);
417  }
418 
419  $pdf->SetMargins(0, 0);
420  $pdf->SetAutoPageBreak(false);
421 
422  $this->_Metric_Doc = $this->Tformat['metric'];
423  // Permet de commencer l'impression de l'etiquette desiree dans le cas ou la page a deja servie
424  $posX = 1;
425  $posY = 1;
426  if ($posX > 0) {
427  $posX--;
428  } else {
429  $posX = 0;
430  }
431  if ($posY > 0) {
432  $posY--;
433  } else {
434  $posY = 0;
435  }
436  $this->_COUNTX = $posX;
437  $this->_COUNTY = $posY;
438  $this->_Set_Format($pdf, $this->Tformat);
439 
440 
441  $pdf->Open();
442  $pdf->AddPage();
443 
444 
445  // Add each record
446  foreach ($arrayofrecords as $val) {
447  // imprime le texte specifique sur la carte
448  $this->Add_PDF_card($pdf, $val['textleft'], $val['textheader'], $val['textfooter'], $langs, $val['textright'], $val['id'], $val['photo']);
449  }
450 
451  //$pdf->SetXY(10, 295);
452  //$pdf->Cell($this->_Width, $this->_Line_Height, 'XXX',0,1,'C');
453 
454 
455  // Output to file
456  $pdf->Output($file, 'F');
457 
458  if (!empty($conf->global->MAIN_UMASK)) {
459  @chmod($file, octdec($conf->global->MAIN_UMASK));
460  }
461 
462 
463  $this->result = array('fullpath'=>$file);
464 
465  // Output to http stream
466  if (empty($nooutput)) {
467  clearstatcache();
468 
469  $attachment = true;
470  if (!empty($conf->global->MAIN_DISABLE_FORCE_SAVEAS)) {
471  $attachment = false;
472  }
473  $type = dol_mimetype($filename);
474 
475  //if ($encoding) header('Content-Encoding: '.$encoding);
476  if ($type) {
477  header('Content-Type: '.$type);
478  }
479  if ($attachment) {
480  header('Content-Disposition: attachment; filename="'.$filename.'"');
481  } else {
482  header('Content-Disposition: inline; filename="'.$filename.'"');
483  }
484 
485  // Ajout directives pour resoudre bug IE
486  header('Cache-Control: Public, must-revalidate');
487  header('Pragma: public');
488 
489  readfile($file);
490  }
491 
492  return 1;
493  }
494 }
Class to manage members of a foundation.
Class to generate stick sheet with format Avery or other personalised.
_Croix(&$pdf, $x1=0, $y1=0, $x2=210, $y2=297, $epaisseur=1, $taille=4)
protected Function realisant une croix aux 4 coins des cartes
_Set_Format(&$pdf, $format)
protected Set format
Class to generate expense report based on standard model.
Add_PDF_card(&$pdf, $textleft, $header, $footer, $outputlangs, $textright='', $idmember=0, $photo='')
Output a sticker on page at position _COUNTX, _COUNTY (_COUNTX and _COUNTY start from 0)
__construct($db)
Constructor.
addSticker(&$pdf, $outputlangs, $param)
Output a sticker on page at position _COUNTX, _COUNTY (_COUNTX and _COUNTY start from 0)
write_file($object, $outputlangs, $srctemplatepath, $mode='member', $nooutput=0, $filename='tmp_cards')
Function to build PDF on disk, then output on HTTP stream.
print *****$script_file(".$version.") pid cd cd cd description as description
Only used if Module[ID]Desc translation string is not found.
dol_mimetype($file, $default='application/octet-stream', $mode=0)
Return MIME type of a file from its name with extension.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_now($mode='auto')
Return date for now.
complete_substitutions_array(&$substitutionarray, $outputlangs, $object=null, $parameters=null, $callfunc="completesubstitutionarray")
Complete the $substitutionarray with more entries coming from external module that had set the "subst...
make_substitutions($text, $substitutionarray, $outputlangs=null, $converttextinhtmlifnecessary=0)
Make substitution into a text string, replacing keys with vals from $substitutionarray (oldval=>newva...
if(!function_exists('utf8_encode')) if(!function_exists('utf8_decode')) getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
get_exdir($num, $level, $alpha, $withoutslash, $object, $modulepart='')
Return a path to have a the directory according to object where files are stored.
dol_mkdir($dir, $dataroot='', $newmask='')
Creation of a directory (this can create recursive subdir)
dol_getImageSize($file, $url=false)
Return size of image file on disk (Supported extensions are gif, jpg, png, bmp and webp)
Definition: images.lib.php:140
pdf_getPDFFont($outputlangs)
Return font name to use for PDF generation.
Definition: pdf.lib.php:265
pdf_getInstance($format='', $metric='mm', $pagetype='P')
Return a PDF instance object.
Definition: pdf.lib.php:126
if(preg_match('/crypted:/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
Definition: repair.php:119
$conf db name
Only used if Module[ID]Name translation string is not found.
Definition: repair.php:122
$conf db
API class for accounts.
Definition: inc.php:41
print *****$script_file(".$version.") pid code
! Closing after partial payment: discount_vat, badcustomer or badsupplier, bankcharge,...