/htdocs/core/lib/pdf.lib.php
PHP | 1228 lines | 765 code | 112 blank | 351 comment | 289 complexity | 37f8daac6dd503ce5359d7583d688303 MD5 | raw file
Possible License(s): LGPL-2.0
- <?php
- /* Copyright (C) 2006-2010 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2007 Patrick Raguin <patrick.raguin@gmail.com>
- * Copyright (C) 2010-2011 Regis Houssin <regis@dolibarr.fr>
- * Copyright (C) 2010 Juanjo Menent <jmenent@2byte.es>
- *
- * 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/>.
- * or see http://www.gnu.org/
- */
- /**
- * \file htdocs/core/lib/pdf.lib.php
- * \brief Set of functions used for PDF generation
- * \ingroup core
- */
- /**
- * Return array with format properties of default PDF format
- *
- * @return array Array('width'=>w,'height'=>h,'unit'=>u);
- */
- function pdf_getFormat()
- {
- global $conf,$db;
- // Default value if setup was not done and/or entry into c_paper_format not defined
- $width=210; $height=297; $unit='mm';
- if (empty($conf->global->MAIN_PDF_FORMAT))
- {
- include_once(DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php');
- $pdfformat=dol_getDefaultFormat();
- }
- else $pdfformat=$conf->global->MAIN_PDF_FORMAT;
- $sql="SELECT code, label, width, height, unit FROM ".MAIN_DB_PREFIX."c_paper_format";
- $sql.=" WHERE code = '".$pdfformat."'";
- $resql=$db->query($sql);
- if ($resql)
- {
- $obj=$db->fetch_object($resql);
- if ($obj)
- {
- $width=(int) $obj->width;
- $height=(int) $obj->height;
- $unit=$obj->unit;
- }
- }
- //print "pdfformat=".$pdfformat." width=".$width." height=".$height." unit=".$unit;
- return array('width'=>$width,'height'=>$height,'unit'=>$unit);
- }
- /**
- * Return a PDF instance object. We create a FPDI instance that instanciate TCPDF.
- *
- * @param format Array(width,height). Keep empty to use default setup.
- * @param metric Unit of format ('mm')
- * @param pagetype 'P' or 'l'
- * @return PDF object
- */
- function pdf_getInstance($format='',$metric='mm',$pagetype='P')
- {
- global $conf;
- require_once(TCPDF_PATH.'tcpdf.php');
- // We need to instantiate fpdi object (instead of tcpdf) to use merging features. But we can disable it.
- if (empty($conf->global->MAIN_DISABLE_FPDI)) require_once(FPDFI_PATH.'fpdi.php');
- //$arrayformat=pdf_getFormat();
- //$format=array($arrayformat['width'],$arrayformat['height']);
- //$metric=$arrayformat['unit'];
- // Protection et encryption du pdf
- if ($conf->global->PDF_SECURITY_ENCRYPTION)
- {
- /* Permission supported by TCPDF
- - print : Print the document;
- - modify : Modify the contents of the document by operations other than those controlled by 'fill-forms', 'extract' and 'assemble';
- - copy : Copy or otherwise extract text and graphics from the document;
- - annot-forms : Add or modify text annotations, fill in interactive form fields, and, if 'modify' is also set, create or modify interactive form fields (including signature fields);
- - fill-forms : Fill in existing interactive form fields (including signature fields), even if 'annot-forms' is not specified;
- - extract : Extract text and graphics (in support of accessibility to users with disabilities or for other purposes);
- - assemble : Assemble the document (insert, rotate, or delete pages and create bookmarks or thumbnail images), even if 'modify' is not set;
- - print-high : Print the document to a representation from which a faithful digital copy of the PDF content could be generated. When this is not set, printing is limited to a low-level representation of the appearance, possibly of degraded quality.
- - owner : (inverted logic - only for public-key) when set permits change of encryption and enables all other permissions.
- */
- if (! empty($conf->global->MAIN_USE_FPDF))
- {
- require_once(FPDFI_PATH.'fpdi_protection.php');
- $pdf = new FPDI_Protection($pagetype,$metric,$format);
- // For FPDF, we specify permission we want to open
- $pdfrights = array('print');
- }
- else
- {
- if (class_exists('FPDI')) $pdf = new FPDI($pagetype,$metric,$format);
- else $pdf = new TCPDF($pagetype,$metric,$format);
- // For TCPDF, we specify permission we want to block
- $pdfrights = array('modify','copy');
- }
- $pdfuserpass = ''; // Mot de passe pour l'utilisateur final
- $pdfownerpass = NULL; // Mot de passe du proprietaire, cree aleatoirement si pas defini
- $pdf->SetProtection($pdfrights,$pdfuserpass,$pdfownerpass);
- }
- else
- {
- if (class_exists('FPDI')) $pdf = new FPDI($pagetype,$metric,$format);
- else $pdf = new TCPDF($pagetype,$metric,$format);
- }
- return $pdf;
- }
- /**
- * Return font name to use for PDF generation
- *
- * @param outputlangs Output langs object
- * @return string Name of font to use
- */
- function pdf_getPDFFont($outputlangs)
- {
- $font='Helvetica'; // By default, for FPDI or ISO language on TCPDF
- if (class_exists('TCPDF')) // If TCPDF on, we can use an UTF8 one like DejaVuSans if required (slower)
- {
- if ($outputlangs->trans('FONTFORPDF')!='FONTFORPDF')
- {
- $font=$outputlangs->trans('FONTFORPDF');
- }
- }
- return $font;
- }
- /**
- * Return font size to use for PDF generation
- *
- * @param outputlangs Output langs object
- * @return int Size of font to use
- */
- function pdf_getPDFFontSize($outputlangs)
- {
- $size=10; // By default, for FPDI or ISO language on TCPDF
- if (class_exists('TCPDF')) // If TCPDF on, we can use an UTF8 one like DejaVuSans if required (slower)
- {
- if ($outputlangs->trans('FONTSIZEFORPDF')!='FONTSIZEFORPDF')
- {
- $size = (int) $outputlangs->trans('FONTSIZEFORPDF');
- }
- }
- return $size;
- }
- /**
- * Return a string with full address formated
- *
- * @param outputlangs Output langs object
- * @param sourcecompany Source company object
- * @param targetcompany Target company object
- * @param targetcontact Target contact object
- * @param usecontact Use contact instead of company
- * @param mode Address type
- * @param deliverycompany Delivery company object
- * @return string String with full address
- */
- function pdf_build_address($outputlangs,$sourcecompany,$targetcompany='',$targetcontact='',$usecontact=0,$mode='source',$deliverycompany='')
- {
- global $conf;
- $stringaddress = '';
- if ($mode == 'source' && ! is_object($sourcecompany)) return -1;
- if ($mode == 'target' && ! is_object($targetcompany)) return -1;
- if ($mode == 'delivery' && ! is_object($deliverycompany)) return -1;
- if ($sourcecompany->state_id && empty($sourcecompany->departement)) $sourcecompany->departement=getState($sourcecompany->state_id);
- if ($targetcompany->state_id && empty($targetcompany->departement)) $targetcompany->departement=getState($targetcompany->state_id);
- if ($mode == 'source')
- {
- $stringaddress .= ($stringaddress ? "\n" : '' ).dol_format_address($outputlangs,$sourcecompany)."\n";
- // Tel
- if ($sourcecompany->tel) $stringaddress .= ($stringaddress ? "\n" : '' ).$outputlangs->transnoentities("Phone").": ".$outputlangs->convToOutputCharset($sourcecompany->tel);
- // Fax
- if ($sourcecompany->fax) $stringaddress .= ($stringaddress ? ($sourcecompany->tel ? " - " : "\n") : '' ).$outputlangs->transnoentities("Fax").": ".$outputlangs->convToOutputCharset($sourcecompany->fax);
- // EMail
- if ($sourcecompany->email) $stringaddress .= ($stringaddress ? "\n" : '' ).$outputlangs->transnoentities("Email").": ".$outputlangs->convToOutputCharset($sourcecompany->email);
- // Web
- if ($sourcecompany->url) $stringaddress .= ($stringaddress ? "\n" : '' ).$outputlangs->transnoentities("Web").": ".$outputlangs->convToOutputCharset($sourcecompany->url);
- }
- if ($mode == 'target')
- {
- if ($usecontact)
- {
- $stringaddress .= ($stringaddress ? "\n" : '' ).$outputlangs->convToOutputCharset($targetcontact->getFullName($outputlangs,1));
- $stringaddress .= ($stringaddress ? "\n" : '' ).dol_format_address($outputlangs,$targetcontact)."\n";
- // Country
- if ($targetcontact->pays_code && $targetcontact->pays_code != $sourcecompany->pays_code) $stringaddress.=$outputlangs->convToOutputCharset($outputlangs->transnoentitiesnoconv("Country".$targetcontact->pays_code))."\n";
- }
- else
- {
- $stringaddress .= ($stringaddress ? "\n" : '' ).dol_format_address($outputlangs,$targetcompany)."\n";
- // Country
- if ($targetcompany->pays_code && $targetcompany->pays_code != $sourcecompany->pays_code) $stringaddress.=$outputlangs->convToOutputCharset($outputlangs->transnoentitiesnoconv("Country".$targetcompany->pays_code))."\n";
- }
- // Intra VAT
- if ($targetcompany->tva_intra) $stringaddress.="\n".$outputlangs->transnoentities("VATIntraShort").': '.$outputlangs->convToOutputCharset($targetcompany->tva_intra);
- // Professionnal Ids
- if ($conf->global->MAIN_PROFID1_IN_ADDRESS)
- {
- $tmp=$outputlangs->transcountrynoentities("ProfId1",$targetcompany->pays_code);
- if (preg_match('/\((.+)\)/',$tmp,$reg)) $tmp=$reg[1];
- $stringaddress.="\n".$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof1);
- }
- if ($conf->global->MAIN_PROFID2_IN_ADDRESS)
- {
- $tmp=$outputlangs->transcountrynoentities("ProfId2",$targetcompany->pays_code);
- if (preg_match('/\((.+)\)/',$tmp,$reg)) $tmp=$reg[1];
- $stringaddress.="\n".$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof2);
- }
- if ($conf->global->MAIN_PROFID3_IN_ADDRESS)
- {
- $tmp=$outputlangs->transcountrynoentities("ProfId3",$targetcompany->pays_code);
- if (preg_match('/\((.+)\)/',$tmp,$reg)) $tmp=$reg[1];
- $stringaddress.="\n".$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof3);
- }
- if ($conf->global->MAIN_PROFID4_IN_ADDRESS)
- {
- $tmp=$outputlangs->transcountrynoentities("ProfId4",$targetcompany->pays_code);
- if (preg_match('/\((.+)\)/',$tmp,$reg)) $tmp=$reg[1];
- $stringaddress.="\n".$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof4);
- }
- }
- if ($mode == 'delivery') // for a delivery address (address + phone/fax)
- {
- $stringaddress .= ($stringaddress ? "\n" : '' ).dol_format_address($outputlangs,$deliverycompany)."\n";
- // Tel
- if ($deliverycompany->phone) $stringaddress .= ($stringaddress ? "\n" : '' ).$outputlangs->transnoentities("Phone").": ".$outputlangs->convToOutputCharset($deliverycompany->phone);
- // Fax
- if ($deliverycompany->fax) $stringaddress .= ($stringaddress ? ($deliverycompany->phone ? " - " : "\n") : '' ).$outputlangs->transnoentities("Fax").": ".$outputlangs->convToOutputCharset($deliverycompany->fax);
- }
- return $stringaddress;
- }
- /**
- * Show header of page for PDF generation
- *
- * @param PDF $pdf Object PDF
- * @param Translate $outputlangs Object lang for output
- * @param int $page_height Height of page
- */
- function pdf_pagehead(&$pdf,$outputlangs,$page_height)
- {
- global $conf;
- // Add a background image on document
- if (! empty($conf->global->MAIN_USE_BACKGROUND_ON_PDF))
- {
- $pdf->Image($conf->mycompany->dir_output.'/logos/'.$conf->global->MAIN_USE_BACKGROUND_ON_PDF, 0, 0, 0, $page_height);
- }
- }
- /**
- * Add a draft watermark on PDF files
- *
- * @param pdf Object PDF
- * @param outputlangs Object lang
- * @param h Height of PDF
- * @param w Width of PDF
- * @param unit Unit of height (mmn, pt, ...)
- * @param text Text to show
- */
- function pdf_watermark(&$pdf, $outputlangs, $h, $w, $unit, $text)
- {
- // Print Draft Watermark
- if ($unit=='pt') $k=1;
- elseif ($unit=='mm') $k=72/25.4;
- elseif ($unit=='cm') $k=72/2.54;
- elseif ($unit=='in') $k=72;
- $watermark_angle=atan($h/$w);
- $watermark_x=5;
- $watermark_y=$h-25; //Set to $this->page_hauteur-50 or less if problems
- $watermark_width=$h;
- $pdf->SetFont('','B',50);
- $pdf->SetTextColor(255,192,203);
- //rotate
- $pdf->_out(sprintf('q %.5F %.5F %.5F %.5F %.2F %.2F cm 1 0 0 1 %.2F %.2F cm',cos($watermark_angle),sin($watermark_angle),-sin($watermark_angle),cos($watermark_angle),$watermark_x*$k,($h-$watermark_y)*$k,-$watermark_x*$k,-($h-$watermark_y)*$k));
- //print watermark
- $pdf->SetXY($watermark_x,$watermark_y);
- $pdf->Cell($watermark_width,25,$outputlangs->convToOutputCharset($text),0,2,"C",0);
- //antirotate
- $pdf->_out('Q');
- }
- /**
- * Show bank informations for PDF generation
- *
- * @param pdf Object PDF
- * @param outputlangs Object lang
- * @param curx X
- * @param cury Y
- * @param account Bank account object
- * @param onlynumber Output only number
- */
- function pdf_bank(&$pdf,$outputlangs,$curx,$cury,$account,$onlynumber=0)
- {
- global $mysoc, $conf;
- $pdf->SetXY($curx, $cury);
- if (empty($onlynumber))
- {
- $pdf->SetFont('','B',8);
- $pdf->MultiCell(100, 3, $outputlangs->transnoentities('PaymentByTransferOnThisBankAccount').':', 0, 'L', 0);
- $cury+=4;
- }
- $outputlangs->load("banks");
- // Get format of bank account according to its country
- $usedetailedbban=$account->useDetailedBBAN();
- //$onlynumber=0; $usedetailedbban=0; // For tests
- if ($usedetailedbban)
- {
- $savcurx=$curx;
- if (empty($onlynumber))
- {
- $pdf->SetFont('','',6);
- $pdf->SetXY($curx, $cury);
- $pdf->MultiCell(90, 3, $outputlangs->transnoentities("Bank").': ' . $outputlangs->convToOutputCharset($account->bank), 0, 'L', 0);
- $cury+=3;
- }
- if (empty($onlynumber)) $pdf->line($curx+1, $cury+1, $curx+1, $cury+8 );
- if ($usedetailedbban == 1)
- {
- $fieldstoshow=array('bank','desk','number','key');
- if ($conf->global->BANK_SHOW_ORDER_OPTION==1) $fieldstoshow=array('bank','desk','key','number');
- }
- else if ($usedetailedbban == 2)
- {
- $fieldstoshow=array('bank','number');
- }
- else dol_print_error('','Value returned by function useDetailedBBAN not managed');
- foreach ($fieldstoshow as $val)
- {
- if ($val == 'bank')
- {
- // Bank code
- $tmplength=18;
- $pdf->SetXY($curx, $cury+5);
- $pdf->SetFont('','',8);$pdf->MultiCell($tmplength, 3, $outputlangs->convToOutputCharset($account->code_banque), 0, 'C', 0);
- $pdf->SetXY($curx, $cury+1);
- $curx+=$tmplength;
- $pdf->SetFont('','B',6);$pdf->MultiCell($tmplength, 3, $outputlangs->transnoentities("BankCode"), 0, 'C', 0);
- if (empty($onlynumber)) $pdf->line($curx, $cury+1, $curx, $cury+8 );
- }
- if ($val == 'desk')
- {
- // Desk
- $tmplength=18;
- $pdf->SetXY($curx, $cury+5);
- $pdf->SetFont('','',8);$pdf->MultiCell($tmplength, 3, $outputlangs->convToOutputCharset($account->code_guichet), 0, 'C', 0);
- $pdf->SetXY($curx, $cury+1);
- $curx+=$tmplength;
- $pdf->SetFont('','B',6);$pdf->MultiCell($tmplength, 3, $outputlangs->transnoentities("DeskCode"), 0, 'C', 0);
- if (empty($onlynumber)) $pdf->line($curx, $cury+1, $curx, $cury+8 );
- }
- if ($val == 'number')
- {
- // Number
- $tmplength=24;
- $pdf->SetXY($curx, $cury+5);
- $pdf->SetFont('','',8);$pdf->MultiCell($tmplength, 3, $outputlangs->convToOutputCharset($account->number), 0, 'C', 0);
- $pdf->SetXY($curx, $cury+1);
- $curx+=$tmplength;
- $pdf->SetFont('','B',6);$pdf->MultiCell($tmplength, 3, $outputlangs->transnoentities("BankAccountNumber"), 0, 'C', 0);
- if (empty($onlynumber)) $pdf->line($curx, $cury+1, $curx, $cury+8 );
- }
- if ($val == 'key')
- {
- // Key
- $tmplength=13;
- $pdf->SetXY($curx, $cury+5);
- $pdf->SetFont('','',8);$pdf->MultiCell($tmplength, 3, $outputlangs->convToOutputCharset($account->cle_rib), 0, 'C', 0);
- $pdf->SetXY($curx, $cury+1);
- $curx+=$tmplength;
- $pdf->SetFont('','B',6);$pdf->MultiCell($tmplength, 3, $outputlangs->transnoentities("BankAccountNumberKey"), 0, 'C', 0);
- if (empty($onlynumber)) $pdf->line($curx, $cury+1, $curx, $cury+8 );
- }
- }
- $curx=$savcurx;
- $cury+=10;
- }
- else
- {
- $pdf->SetFont('','B',6);
- $pdf->SetXY($curx, $cury);
- $pdf->MultiCell(90, 3, $outputlangs->transnoentities("Bank").': ' . $outputlangs->convToOutputCharset($account->bank), 0, 'L', 0);
- $cury+=3;
- $pdf->SetFont('','B',6);
- $pdf->SetXY($curx, $cury);
- $pdf->MultiCell(90, 3, $outputlangs->transnoentities("BankAccountNumber").': ' . $outputlangs->convToOutputCharset($account->number), 0, 'L', 0);
- $cury+=3;
- }
- // Use correct name of bank id according to country
- $ibankey="IBANNumber";
- $bickey="BICNumber";
- if ($account->getCountryCode() == 'IN') $ibankey="IFSC";
- if ($account->getCountryCode() == 'IN') $bickey="SWIFT";
- $pdf->SetFont('','',6);
- if (empty($onlynumber) && ! empty($account->domiciliation))
- {
- $pdf->SetXY($curx, $cury);
- $val=$outputlangs->transnoentities("Residence").': ' . $outputlangs->convToOutputCharset($account->domiciliation);
- $pdf->MultiCell(90, 3, $val, 0, 'L', 0);
- $nboflines=dol_nboflines_bis($val,120);
- //print $nboflines;exit;
- $cury+=($nboflines*2)+2;
- }
- else if (! $usedetailedbban) $cury+=1;
- $pdf->SetXY($curx, $cury);
- $pdf->MultiCell(90, 3, $outputlangs->transnoentities($ibankey).': ' . $outputlangs->convToOutputCharset($account->iban), 0, 'L', 0);
- $pdf->SetXY($curx, $cury+3);
- $pdf->MultiCell(90, 3, $outputlangs->transnoentities($bickey).': ' . $outputlangs->convToOutputCharset($account->bic), 0, 'L', 0);
- return $pdf->getY();
- }
- /**
- * Show footer of page for PDF generation
- *
- * @param pdf The PDF factory
- * @param outputlangs Object lang for output
- * @param paramfreetext Constant name of free text
- * @param fromcompany Object company
- * @param marge_basse Margin bottom
- * @param marge_gauche Margin left
- * @param page_hauteur Page height
- * @param object Object shown in PDF
- * @param showdetails Show company details
- * @return void
- */
- function pdf_pagefoot(&$pdf,$outputlangs,$paramfreetext,$fromcompany,$marge_basse,$marge_gauche,$page_hauteur,$object,$showdetails=0)
- {
- global $conf,$user;
- $outputlangs->load("dict");
- $line='';
- // Line of free text
- if (! empty($conf->global->$paramfreetext))
- {
- // Make substitution
- $substitutionarray=array(
- '__FROM_NAME__' => $fromcompany->nom,
- '__FROM_EMAIL__' => $fromcompany->email,
- '__TOTAL_TTC__' => $object->total_ttc,
- '__TOTAL_HT__' => $object->total_ht,
- '__TOTAL_VAT__' => $object->total_vat
- );
- complete_substitutions_array($substitutionarray,$outputlangs,$object);
- $newfreetext=make_substitutions($conf->global->$paramfreetext,$substitutionarray);
- $line.=$outputlangs->convToOutputCharset($newfreetext);
- }
- // First line of company infos
- if ($showdetails)
- {
- $line1="";
- // Company name
- if ($fromcompany->name)
- {
- $line1.=($line1?" - ":"").$outputlangs->transnoentities("RegisteredOffice").": ".$fromcompany->name;
- }
- // Address
- if ($fromcompany->address)
- {
- $line1.=($line1?" - ":"").$fromcompany->address;
- }
- // Zip code
- if ($fromcompany->zip)
- {
- $line1.=($line1?" - ":"").$fromcompany->zip;
- }
- // Town
- if ($fromcompany->town)
- {
- $line1.=($line1?" ":"").$fromcompany->town;
- }
- // Phone
- if ($fromcompany->phone)
- {
- $line1.=($line1?" - ":"").$outputlangs->transnoentities("Phone").": ".$fromcompany->phone;
- }
- // Fax
- if ($fromcompany->fax)
- {
- $line1.=($line1?" - ":"").$outputlangs->transnoentities("Fax").": ".$fromcompany->fax;
- }
- $line2="";
- // URL
- if ($fromcompany->url)
- {
- $line2.=($line2?" - ":"").$fromcompany->url;
- }
- // Email
- if ($fromcompany->email)
- {
- $line2.=($line2?" - ":"").$fromcompany->email;
- }
- }
- // Line 3 of company infos
- $line3="";
- // Juridical status
- if ($fromcompany->forme_juridique_code)
- {
- $line3.=($line3?" - ":"").$outputlangs->convToOutputCharset(getFormeJuridiqueLabel($fromcompany->forme_juridique_code));
- }
- // Capital
- if ($fromcompany->capital)
- {
- $line3.=($line3?" - ":"").$outputlangs->transnoentities("CapitalOf",$fromcompany->capital)." ".$outputlangs->transnoentities("Currency".$conf->monnaie);
- }
- // Prof Id 1
- if ($fromcompany->idprof1 && ($fromcompany->pays_code != 'FR' || ! $fromcompany->idprof2))
- {
- $field=$outputlangs->transcountrynoentities("ProfId1",$fromcompany->pays_code);
- if (preg_match('/\((.*)\)/i',$field,$reg)) $field=$reg[1];
- $line3.=($line3?" - ":"").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof1);
- }
- // Prof Id 2
- if ($fromcompany->idprof2)
- {
- $field=$outputlangs->transcountrynoentities("ProfId2",$fromcompany->pays_code);
- if (preg_match('/\((.*)\)/i',$field,$reg)) $field=$reg[1];
- $line3.=($line3?" - ":"").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof2);
- }
- // Line 4 of company infos
- $line4="";
- // Prof Id 3
- if ($fromcompany->idprof3)
- {
- $field=$outputlangs->transcountrynoentities("ProfId3",$fromcompany->pays_code);
- if (preg_match('/\((.*)\)/i',$field,$reg)) $field=$reg[1];
- $line4.=($line4?" - ":"").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof3);
- }
- // Prof Id 4
- if ($fromcompany->idprof4)
- {
- $field=$outputlangs->transcountrynoentities("ProfId4",$fromcompany->pays_code);
- if (preg_match('/\((.*)\)/i',$field,$reg)) $field=$reg[1];
- $line4.=($line4?" - ":"").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof4);
- }
- // IntraCommunautary VAT
- if ($fromcompany->tva_intra != '')
- {
- $line4.=($line4?" - ":"").$outputlangs->transnoentities("VATIntraShort").": ".$outputlangs->convToOutputCharset($fromcompany->tva_intra);
- }
- $pdf->SetFont('','',7);
- $pdf->SetDrawColor(224,224,224);
- // On positionne le debut du bas de page selon nbre de lignes de ce bas de page
- $nbofline=dol_nboflines_bis($line,0,$outputlangs->charset_output);
- //print 'nbofline='.$nbofline; exit;
- //print 'e'.$line.'t'.dol_nboflines($line);exit;
- $posy=$marge_basse + ($nbofline*3) + ($line1?3:0) + ($line2?3:0) + ($line3?3:0) + ($line4?3:0);
- if ($line) // Free text
- {
- $pdf->SetXY($marge_gauche,-$posy);
- $width=20000; $align='L'; // By default, ask a manual break: We use a large value 20000, to not have automatic wrap. This make user understand, he need to add CR on its text.
- if ($conf->global->MAIN_USE_AUTOWRAP_ON_FREETEXT) { $width=200; $align='C'; }
- $pdf->MultiCell($width, 3, $line, 0, $align, 0);
- $posy-=($nbofline*3); // 6 of ligne + 3 of MultiCell
- }
- $pdf->SetY(-$posy);
- $pdf->line($marge_gauche, $page_hauteur-$posy, 200, $page_hauteur-$posy);
- $posy--;
- if ($line1)
- {
- $pdf->SetFont('','B',7);
- $pdf->SetXY($marge_gauche,-$posy);
- $pdf->MultiCell(200, 2, $line1, 0, 'C', 0);
- $posy-=3;
- $pdf->SetFont('','',7);
- }
- if ($line2)
- {
- $pdf->SetFont('','B',7);
- $pdf->SetXY($marge_gauche,-$posy);
- $pdf->MultiCell(200, 2, $line2, 0, 'C', 0);
- $posy-=3;
- $pdf->SetFont('','',7);
- }
- if ($line3)
- {
- $pdf->SetXY($marge_gauche,-$posy);
- $pdf->MultiCell(200, 2, $line3, 0, 'C', 0);
- }
- if ($line4)
- {
- $posy-=3;
- $pdf->SetXY($marge_gauche,-$posy);
- $pdf->MultiCell(200, 2, $line4, 0, 'C', 0);
- }
- // Show page nb only on iso languages (so default Helvetica font)
- if (pdf_getPDFFont($outputlangs) == 'Helvetica')
- {
- $pdf->SetXY(-20,-$posy);
- $pdf->MultiCell(11, 2, $pdf->PageNo().'/'.$pdf->getAliasNbPages(), 0, 'R', 0);
- //print 'xxx'.$pdf->getAliasNbPages().'-'.$pdf->getAliasNumPage();exit;
- }
- }
- /**
- * Output line description into PDF
- *
- * @param PDF $pdf PDF object
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object lang for output
- * @param int $w Width
- * @param int $h Height
- * @param int $posx Pos x
- * @param int $posy Pos y
- * @param int $hideref Hide reference
- * @param int $hidedesc Hide description
- * @param int $issupplierline Is it a line for a supplier object ?
- * @param HookManager $hookmanager Instance of HookManager
- * @return void
- */
- function pdf_writelinedesc(&$pdf,$object,$i,$outputlangs,$w,$h,$posx,$posy,$hideref=0,$hidedesc=0,$issupplierline=0,$hookmanager=false)
- {
- global $db, $conf, $langs;
- if (is_object($hookmanager) && ( ($object->lines[$i]->product_type == 9 && ! empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('pdf'=>$pdf,'i'=>$i,'outputlangs'=>$outputlangs,'w'=>$w,'h'=>$h,'posx'=>$posx,'posy'=>$posy,'hideref'=>$hideref,'hidedesc'=>$hidedesc,'issupplierline'=>$issupplierline,'special_code'=>$special_code);
- $action='';
- $reshook=$hookmanager->executeHooks('pdf_writelinedesc',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- $labelproductservice=pdf_getlinedesc($object,$i,$outputlangs,$hideref,$hidedesc,$issupplierline);
- // Description
- $pdf->writeHTMLCell($w, $h, $posx, $posy, $outputlangs->convToOutputCharset($labelproductservice), 0, 1);
- return $labelproductservice;
- }
- }
- /**
- * Return line description translated in outputlangs and encoded in UTF8
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hideref Hide reference
- * @param int $hidedesc Hide description
- * @param int $issupplierline Is it a line for a supplier object ?
- * @return string String with line
- */
- function pdf_getlinedesc($object,$i,$outputlangs,$hideref=0,$hidedesc=0,$issupplierline=0)
- {
- global $db, $conf, $langs;
- $idprod=$object->lines[$i]->fk_product;
- $label=$object->lines[$i]->label; if (empty($label)) $label=$object->lines[$i]->libelle;
- $desc=$object->lines[$i]->desc; if (empty($desc)) $desc=$object->lines[$i]->description;
- $ref_supplier=$object->lines[$i]->ref_supplier; if (empty($ref_supplier)) $ref_supplier=$object->lines[$i]->ref_fourn; // TODO Not yeld saved for supplier invoices, only supplier orders
- $note=$object->lines[$i]->note;
- if ($issupplierline) $prodser = new ProductFournisseur($db);
- else $prodser = new Product($db);
- if ($idprod)
- {
- $prodser->fetch($idprod);
- // If a predefined product and multilang and on other lang, we renamed label with label translated
- if ($conf->global->MAIN_MULTILANGS && ($outputlangs->defaultlang != $langs->defaultlang))
- {
- if (! empty($prodser->multilangs[$outputlangs->defaultlang]["libelle"])) $label=$prodser->multilangs[$outputlangs->defaultlang]["libelle"];
- if (! empty($prodser->multilangs[$outputlangs->defaultlang]["description"])) $desc=$prodser->multilangs[$outputlangs->defaultlang]["description"];
- if (! empty($prodser->multilangs[$outputlangs->defaultlang]["note"])) $note=$prodser->multilangs[$outputlangs->defaultlang]["note"];
- }
- }
- // Description short of product line
- $libelleproduitservice=$label;
- // Description long of product line
- if ($desc && ($desc != $label))
- {
- if ( $libelleproduitservice && empty($hidedesc) ) $libelleproduitservice.="<br>";
- if ($desc == '(CREDIT_NOTE)' && $object->lines[$i]->fk_remise_except)
- {
- $discount=new DiscountAbsolute($db);
- $discount->fetch($object->lines[$i]->fk_remise_except);
- $libelleproduitservice=$outputlangs->transnoentitiesnoconv("DiscountFromCreditNote",$discount->ref_facture_source);
- }
- elseif ($desc == '(DEPOSIT)' && $object->lines[$i]->fk_remise_except)
- {
- $discount=new DiscountAbsolute($db);
- $discount->fetch($object->lines[$i]->fk_remise_except);
- $libelleproduitservice=$outputlangs->transnoentities("DiscountFromDeposit",$discount->ref_facture_source);
- // Add date of deposit
- if (! empty($conf->global->INVOICE_ADD_DEPOSIT_DATE)) echo ' ('.dol_print_date($discount->datec,'day','',$outputlangs).')';
- }
- else
- {
- if ($idprod)
- {
- if ( empty($hidedesc) ) $libelleproduitservice.=dol_htmlentitiesbr($desc,1);
- }
- else
- {
- $libelleproduitservice.=dol_htmlentitiesbr($desc,1);
- }
- }
- }
- // If line linked to a product
- if ($idprod)
- {
- // On ajoute la ref
- if ($prodser->ref)
- {
- $prefix_prodserv = "";
- $ref_prodserv = "";
- if ($conf->global->PRODUCT_ADD_TYPE_IN_DOCUMENTS) // In standard mode, we do not show this
- {
- if($prodser->isservice())
- {
- $prefix_prodserv = $outputlangs->transnoentitiesnoconv("Service")." ";
- }
- else
- {
- $prefix_prodserv = $outputlangs->transnoentitiesnoconv("Product")." ";
- }
- }
- if ( empty($hideref) )
- {
- if ($issupplierline) $ref_prodserv = $prodser->ref.' ('.$outputlangs->trans("SupplierRef").' '.$ref_supplier.')'; // Show local ref and supplier ref
- else $ref_prodserv = $prodser->ref; // Show local ref only
- $ref_prodserv .= " - ";
- }
- $libelleproduitservice=$prefix_prodserv.$ref_prodserv.$libelleproduitservice;
- }
- }
- $libelleproduitservice=dol_htmlentitiesbr($libelleproduitservice,1);
- if ($object->lines[$i]->date_start || $object->lines[$i]->date_end)
- {
- // Show duration if exists
- if ($object->lines[$i]->date_start && $object->lines[$i]->date_end)
- {
- $period='('.$outputlangs->transnoentitiesnoconv('DateFromTo',dol_print_date($object->lines[$i]->date_start, $format, false, $outputlangs),dol_print_date($object->lines[$i]->date_end, $format, false, $outputlangs)).')';
- }
- if ($object->lines[$i]->date_start && ! $object->lines[$i]->date_end)
- {
- $period='('.$outputlangs->transnoentitiesnoconv('DateFrom',dol_print_date($object->lines[$i]->date_start, $format, false, $outputlangs)).')';
- }
- if (! $object->lines[$i]->date_start && $object->lines[$i]->date_end)
- {
- $period='('.$outputlangs->transnoentitiesnoconv('DateUntil',dol_print_date($object->lines[$i]->date_end, $format, false, $outputlangs)).')';
- }
- //print '>'.$outputlangs->charset_output.','.$period;
- $libelleproduitservice.="<br>".dol_htmlentitiesbr($period,1);
- //print $libelleproduitservice;
- }
- // Note that we used here current custom and origin country code.
- /* Fix, this must be done when saving line
- if (! empty($prodser->customcode) || ! empty($prodser->country_code))
- {
- //var_dump($prodser);exit;
- $tmptxt='(';
- if (! empty($prodser->customcode)) $tmptxt.=$langs->transnoentitiesnoconv("CustomCode").': '.$prodser->customcode;
- if (! empty($prodser->customcode) && ! empty($prodser->country_code)) $tmptxt.=' - ';
- if (! empty($prodser->country_code)) $tmptxt.=$langs->transnoentitiesnoconv("CountryOrigin").': '.getCountry($prodser->country_code,0,$db,$outputlangs,0);
- $tmptxt.=')';
- $libelleproduitservice.="<br>".$tmptxt;
- }*/
- return $libelleproduitservice;
- }
- /**
- * Return line num
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlinenum($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if (! empty($object->hooks) && ( ($object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- // TODO add hook function
- }
- else
- {
- return dol_htmlentitiesbr($object->lines[$i]->num);
- }
- }
- /**
- * Return line product ref
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineref($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if (! empty($object->hooks) && ( ($object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- // TODO add hook function
- }
- else
- {
- return dol_htmlentitiesbr($object->lines[$i]->product_ref);
- }
- }
- /**
- * Return line ref_supplier
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineref_supplier($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if (! empty($object->hooks) && ( ($object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- // TODO add hook function
- }
- else
- {
- return dol_htmlentitiesbr($object->lines[$i]->ref_supplier);
- }
- }
- /**
- * Return line vat rate
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlinevatrate($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if (is_object($hookmanager) && ( ($object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlinevatrate',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return vatrate($object->lines[$i]->tva_tx,1,$object->lines[$i]->info_bits,1);
- }
- }
- /**
- * Return line unit price excluding tax
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineupexcltax($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- global $conf;
- $sign=1;
- if ($object->type == 2 && ! empty($conf->global->INVOICE_POSITIVE_CREDIT_NOTE)) $sign=-1;
- if (is_object($hookmanager) && ( ($object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlineupexcltax',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return price($sign * $object->lines[$i]->subprice);
- }
- }
- /**
- * Return line quantity
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- */
- function pdf_getlineqty($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if ($object->lines[$i]->special_code != 3)
- {
- if (is_object($hookmanager) && (( $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlineqty',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return $object->lines[$i]->qty;
- }
- }
- }
- /**
- * Return line quantity asked
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineqty_asked($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if ($object->lines[$i]->special_code != 3)
- {
- if (is_object($hookmanager) && (( $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlineqty_asked',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return $object->lines[$i]->qty_asked;
- }
- }
- }
- /**
- * Return line quantity shipped
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineqty_shipped($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if ($object->lines[$i]->special_code != 3)
- {
- if (is_object($hookmanager) && (( $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlineqty_shipped',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return $object->lines[$i]->qty_shipped;
- }
- }
- }
- /**
- * Return line keep to ship quantity
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineqty_keeptoship($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- if ($object->lines[$i]->special_code != 3)
- {
- if (is_object($hookmanager) && (( $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlineqty_keeptoship',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return ($object->lines[$i]->qty_asked - $object->lines[$i]->qty_shipped);
- }
- }
- }
- /**
- * Return line remise percent
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlineremisepercent($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- include_once(DOL_DOCUMENT_ROOT."/core/lib/functions2.lib.php");
- if ($object->lines[$i]->special_code != 3)
- {
- if (is_object($hookmanager) && ( ($object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlineremisepercent',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return dol_print_reduction($object->lines[$i]->remise_percent,$outputlangs);
- }
- }
- }
- /**
- * Return line total excluding tax
- *
- * @param Object $object Object
- * @param int $i Current line number
- * @param Translate $outputlangs Object langs for output
- * @param int $hidedetails Hide details (0=no, 1=yes, 2=just special lines)
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getlinetotalexcltax($object,$i,$outputlangs,$hidedetails=0,$hookmanager=false)
- {
- global $conf;
- $sign=1;
- if ($object->type == 2 && ! empty($conf->global->INVOICE_POSITIVE_CREDIT_NOTE)) $sign=-1;
- if ($object->lines[$i]->special_code == 3)
- {
- return $outputlangs->transnoentities("Option");
- }
- else
- {
- if (is_object($hookmanager) && ( ($object->lines[$i]->product_type == 9 && ! empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- $parameters = array('i'=>$i,'outputlangs'=>$outputlangs,'hidedetails'=>$hidedetails,'special_code'=>$special_code);
- $action='';
- return $hookmanager->executeHooks('pdf_getlinetotalexcltax',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks
- }
- else
- {
- if (empty($hidedetails) || $hidedetails > 1) return price($sign * $object->lines[$i]->total_ht);
- }
- }
- }
- /**
- * Return total quantity of products and/or services
- *
- * @param Object $object Object
- * @param string $type Type
- * @param Translate $outputlangs Object langs for output
- * @param HookManager $hookmanager Hook manager instance
- * @return void
- */
- function pdf_getTotalQty($object,$type='',$outputlangs,$hookmanager=false)
- {
- $total=0;
- $nblignes=count($object->lines);
- // Loop on each lines
- for ($i = 0 ; $i < $nblignes ; $i++)
- {
- if ($object->lines[$i]->special_code != 3)
- {
- if ($type=='all')
- {
- $total += $object->lines[$i]->qty;
- }
- else if ($type==9 && ! empty($object->hooks) && ( ($object->lines[$i]->product_type == 9 && ! empty($object->lines[$i]->special_code) ) || ! empty($object->lines[$i]->fk_parent_line) ) )
- {
- $special_code = $object->lines[$i]->special_code;
- if (! empty($object->lines[$i]->fk_parent_line)) $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
- // TODO add hook function
- }
- else if ($type==0 && $object->lines[$i]->product_type == 0)
- {
- $total += $object->lines[$i]->qty;
- }
- else if ($type==1 && $object->lines[$i]->product_type == 1)
- {
- $total += $object->lines[$i]->qty;
- }
- }
- }
- return $total;
- }
- /**
- * Convert a currency code into its symbol
- *
- * @param PDF $pdf PDF object
- * @param string $currency_code Currency code
- * @return string Currency symbol encoded into UTF8
- */
- function pdf_getCurrencySymbol(&$pdf, $currency_code)
- {
- switch ($currency_code) {
- case "EUR":
- $currency_sign = " ".$pdf->unichr(8364);
- break;
- case "USD":
- $currency_sign = " ".utf8_encode('$');
- break;
- case "GBP":
- $currency_sign = " ".utf8_encode('ÂŁ');
- break;
- default:
- $currency_sign = " ".$currency;
- break;
- }
- return $currency_sign;
- }
- ?>