105 |
\return int 1=ok, 0=ko |
\return int 1=ok, 0=ko |
106 |
\remarks Variables utilisées |
\remarks Variables utilisées |
107 |
\remarks MAIN_INFO_SOCIETE_NOM |
\remarks MAIN_INFO_SOCIETE_NOM |
108 |
|
\remarks MAIN_INFO_ADRESSE |
109 |
|
\remarks MAIN_INFO_CP |
110 |
|
\remarks MAIN_INFO_VILLE |
111 |
|
\remarks MAIN_INFO_TEL |
112 |
|
\remarks MAIN_INFO_FAX |
113 |
|
\remarks MAIN_INFO_WEB |
114 |
\remarks MAIN_INFO_SIRET |
\remarks MAIN_INFO_SIRET |
115 |
\remarks MAIN_INFO_SIREN |
\remarks MAIN_INFO_SIREN |
116 |
\remarks MAIN_INFO_RCS |
\remarks MAIN_INFO_RCS |
117 |
\remarks MAIN_INFO_CAPITAL |
\remarks MAIN_INFO_CAPITAL |
118 |
\remarks MAIN_INFO_TVAINTRA |
\remarks MAIN_INFO_TVAINTRA |
119 |
\remarks FAC_PDF_LOGO |
\remarks MAIN_INFO_LOGO |
120 |
\remarks FACTURE_CHQ_NUMBER |
\remarks FACTURE_CHQ_NUMBER |
121 |
\remarks FACTURE_RIB_NUMBER |
\remarks FACTURE_RIB_NUMBER |
|
\remarks FAC_PDF_INTITULE |
|
|
\remarks FAC_PDF_TEL |
|
|
\remarks FAC_PDF_ADRESSE |
|
122 |
*/ |
*/ |
123 |
function write_pdf_file($id) |
function write_pdf_file($id) |
124 |
{ |
{ |
668 |
*/ |
*/ |
669 |
function _pagehead(&$pdf, $fac) |
function _pagehead(&$pdf, $fac) |
670 |
{ |
{ |
671 |
global $langs,$conf; |
global $langs,$conf,$mysoc; |
672 |
|
|
673 |
$langs->load("main"); |
$langs->load("main"); |
674 |
$langs->load("bills"); |
$langs->load("bills"); |
675 |
$langs->load("propal"); |
$langs->load("propal"); |
683 |
$pdf->SetXY($this->marge_gauche,$posy); |
$pdf->SetXY($this->marge_gauche,$posy); |
684 |
|
|
685 |
// Logo |
// Logo |
686 |
if (defined("FAC_PDF_LOGO") && FAC_PDF_LOGO) |
$logo=$mysoc->logo; |
687 |
|
if (defined("FAC_PDF_LOGO") && FAC_PDF_LOGO) $logo=FAC_PDF_LOGO; |
688 |
|
if ($logo) |
689 |
{ |
{ |
690 |
if (is_readable(FAC_PDF_LOGO)) |
if (is_readable($logo)) |
691 |
{ |
{ |
692 |
$pdf->Image(FAC_PDF_LOGO, $this->marge_gauche, $posy, 0, 24); |
$pdf->Image($logo, $this->marge_gauche, $posy, 0, 24); |
693 |
} |
} |
694 |
else |
else |
695 |
{ |
{ |
696 |
$pdf->SetTextColor(200,0,0); |
$pdf->SetTextColor(200,0,0); |
697 |
$pdf->SetFont('Arial','B',8); |
$pdf->SetFont('Arial','B',8); |
698 |
$pdf->MultiCell(100, 3, $langs->trans("ErrorLogoFileNotFound",FAC_PDF_LOGO), 0, 'L'); |
$pdf->MultiCell(100, 3, $langs->trans("ErrorLogoFileNotFound",$logo), 0, 'L'); |
699 |
$pdf->MultiCell(100, 3, $langs->trans("ErrorGoToModuleSetup"), 0, 'L'); |
$pdf->MultiCell(100, 3, $langs->trans("ErrorGoToModuleSetup"), 0, 'L'); |
700 |
} |
} |
701 |
} |
} |
727 |
$pdf->MultiCell(82, $hautcadre, "", 0, 'R', 1); |
$pdf->MultiCell(82, $hautcadre, "", 0, 'R', 1); |
728 |
|
|
729 |
|
|
730 |
$pdf->SetXY($this->marge_gauche,$posy+3); |
$pdf->SetXY($this->marge_gauche+2,$posy+3); |
731 |
|
|
732 |
// Nom emetteur |
// Nom emetteur |
733 |
$pdf->SetTextColor(0,0,60); |
$pdf->SetTextColor(0,0,60); |
734 |
$pdf->SetFont('Arial','B',11); |
$pdf->SetFont('Arial','B',11); |
735 |
if (defined("FAC_PDF_SOCIETE_NOM") && FAC_PDF_SOCIETE_NOM) // Prioritaire sur MAIN_INFO_SOCIETE_NOM |
if (defined("FAC_PDF_SOCIETE_NOM") && FAC_PDF_SOCIETE_NOM) $pdf->MultiCell(80, 4, FAC_PDF_SOCIETE_NOM, 0, 'L'); |
736 |
{ |
else $pdf->MultiCell(80, 4, $mysoc->nom, 0, 'L'); |
|
$pdf->MultiCell(80, 4, FAC_PDF_SOCIETE_NOM, 0, 'L'); |
|
|
} |
|
|
else // Par defaut |
|
|
{ |
|
|
$pdf->MultiCell(80, 4, MAIN_INFO_SOCIETE_NOM, 0, 'L'); |
|
|
} |
|
737 |
|
|
738 |
// Caractéristiques emetteur |
// Caractéristiques emetteur |
739 |
$carac_emetteur = ''; |
$carac_emetteur = ''; |
740 |
if (defined("FAC_PDF_ADRESSE")) |
if (defined("FAC_PDF_ADRESSE") && FAC_PDF_ADRESSE) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).FAC_PDF_ADRESSE; |
741 |
{ |
else { |
742 |
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).FAC_PDF_ADRESSE; |
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$mysoc->adresse; |
743 |
|
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$mysoc->cp.' '.$mysoc->ville; |
744 |
} |
} |
745 |
$carac_emetteur .= "\n"; |
$carac_emetteur .= "\n"; |
746 |
if (defined("FAC_PDF_TEL") && FAC_PDF_TEL) |
// Tel |
747 |
{ |
if (defined("FAC_PDF_TEL") && FAC_PDF_TEL) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Phone").": ".FAC_PDF_TEL; |
748 |
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Phone").": ".FAC_PDF_TEL; |
elseif ($mysoc->tel) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Phone").": ".$mysoc->tel; |
749 |
} |
// Fax |
750 |
if (defined("FAC_PDF_FAX") && FAC_PDF_FAX) |
if (defined("FAC_PDF_FAX") && FAC_PDF_FAX) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Fax").": ".FAC_PDF_FAX; |
751 |
{ |
elseif ($mysoc->fax) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Fax").": ".$mysoc->fax; |
752 |
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Fax").": ".FAC_PDF_FAX; |
// EMail |
753 |
} |
if (defined("FAC_PDF_MEL") && FAC_PDF_MEL) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Email").": ".FAC_PDF_MEL; |
754 |
if (defined("FAC_PDF_MEL") && FAC_PDF_MEL) |
elseif ($mysoc->email) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Email").": ".$mysoc->email; |
755 |
{ |
// Web |
756 |
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Email").": ".FAC_PDF_MEL; |
if (defined("FAC_PDF_WWW") && FAC_PDF_WWW) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Web").": ".FAC_PDF_WWW; |
757 |
} |
elseif ($mysoc->url) $carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Web").": ".$mysoc->url; |
758 |
if (defined("FAC_PDF_WWW") && FAC_PDF_WWW) |
|
|
{ |
|
|
$carac_emetteur .= ($carac_emetteur ? "\n" : '' ).$langs->trans("Web").": ".FAC_PDF_WWW; |
|
|
} |
|
759 |
$pdf->SetFont('Arial','',9); |
$pdf->SetFont('Arial','',9); |
760 |
$pdf->SetXY($this->marge_gauche+2,$posy+8); |
$pdf->SetXY($this->marge_gauche+2,$posy+8); |
761 |
$pdf->MultiCell(80,4, $carac_emetteur); |
$pdf->MultiCell(80,4, $carac_emetteur); |
780 |
$carac_client.="\n".$fac->client->cp . " " . $fac->client->ville."\n"; |
$carac_client.="\n".$fac->client->cp . " " . $fac->client->ville."\n"; |
781 |
if ($fac->client->tva_intra) $carac_client.="\n".$langs->trans("VATIntraShort").': '.$fac->client->tva_intra; |
if ($fac->client->tva_intra) $carac_client.="\n".$langs->trans("VATIntraShort").': '.$fac->client->tva_intra; |
782 |
$pdf->SetFont('Arial','',9); |
$pdf->SetFont('Arial','',9); |
783 |
$pdf->SetXY(102,$posy+7); |
$pdf->SetXY(102,$posy+8); |
784 |
$pdf->MultiCell(86,4, $carac_client); |
$pdf->MultiCell(86,4, $carac_client); |
785 |
|
|
786 |
// Montants exprimés en |
// Montants exprimés en |