From 8b4b6603154edcb001374fd78bc1cae785c6a2b7 Mon Sep 17 00:00:00 2001 From: Laurent Destailleur Date: Sat, 15 May 2004 15:47:01 +0000 Subject: [PATCH] =?UTF-8?q?Ajout=20de=20la=20remise=20unitaire=20dans=20li?= =?UTF-8?q?gnes=20produits.=20Cartouche=20=E9metteur=20gris=E9=20pour=20un?= =?UTF-8?q?=20look=20plus=20"pro".?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../modules/facture/pdf_crabe.modules.php | 828 +++++++++--------- 1 file changed, 424 insertions(+), 404 deletions(-) diff --git a/htdocs/includes/modules/facture/pdf_crabe.modules.php b/htdocs/includes/modules/facture/pdf_crabe.modules.php index ba572750cfb..09f8d1b4560 100644 --- a/htdocs/includes/modules/facture/pdf_crabe.modules.php +++ b/htdocs/includes/modules/facture/pdf_crabe.modules.php @@ -1,433 +1,453 @@ - * - * 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, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - * or see http://www.gnu.org/ - * - * $Id$ - * $Source$ - * - */ +* +* 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, write to the Free Software +* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +* or see http://www.gnu.org/ +* +* $Id$ +* $Source$ +* +*/ Class pdf_crabe { - Function pdf_crabe($db=0) - { - $this->db = $db; - $this->description = "Modèle de facture classique (Gère l'option fiscale de facturation TVA et le choix du mode de règlement à afficher)"; - } - - Function write_pdf_file($facid) + Function pdf_crabe($db=0) { - global $user; - $fac = new Facture($this->db,"",$facid); - $fac->fetch($facid); - - if (defined("FAC_OUTPUTDIR")) - { - - $dir = FAC_OUTPUTDIR . "/" . $fac->ref . "/" ; - $file = $dir . $fac->ref . ".pdf"; - - if (! file_exists($dir)) - { - umask(0); - if (! mkdir($dir, 0755)) - { - print "Impossible de créer $dir !"; - } - } - - if (file_exists($dir)) - { - $pdf=new FPDF('P','mm','A4'); - $pdf->Open(); - $pdf->AddPage(); - - $this->_pagehead($pdf, $fac); - - $pdf->SetTitle($fac->ref); - $pdf->SetSubject("Facture"); - $pdf->SetCreator("Dolibarr ".DOL_VERSION); - $pdf->SetAuthor($user->fullname); - - $tab_top = 96; - $tab_height = 110; - - /* - * - */ - - $pdf->SetFillColor(220,220,220); - - $pdf->SetFont('Arial','', 9); - - $pdf->SetXY (10, $tab_top + 10 ); - - $iniY = $pdf->GetY(); - $curY = $pdf->GetY(); - $nexY = $pdf->GetY(); - $nblignes = sizeof($fac->lignes); - - for ($i = 0 ; $i < $nblignes ; $i++) - { - $curY = $nexY; - - $pdf->SetXY (11, $curY ); - $pdf->MultiCell(118, 5, $fac->lignes[$i]->desc, 0, 'J'); - - $nexY = $pdf->GetY(); - - $pdf->SetXY (133, $curY); - $pdf->MultiCell(10, 5, $fac->lignes[$i]->tva_taux, 0, 'C'); - - $pdf->SetXY (145, $curY); - $pdf->MultiCell(16, 5, price($fac->lignes[$i]->price), 0, 'R', 0); - - $pdf->SetXY (164, $curY); - $pdf->MultiCell(10, 5, $fac->lignes[$i]->qty, 0, 'C'); - - $pdf->SetXY (173, $curY); - $total = price($fac->lignes[$i]->price * $fac->lignes[$i]->qty); - $pdf->MultiCell(26, 5, $total, 0, 'R', 0); - - if ($nexY > 200 && $i < $nblignes - 1) - { - $this->_tableau($pdf, $tab_top, $tab_height, $nexY); - $pdf->AddPage(); - $nexY = $iniY; - $this->_pagehead($pdf, $fac); - $pdf->SetTextColor(0,0,0); - $pdf->SetFont('Arial','', 10); - } - - } - $this->_tableau($pdf, $tab_top, $tab_height, $nexY); - - $this->_tableau_tot($pdf, $fac); - - $this->_tableau_compl($pdf, $fac); - - if ((! defined("FACTURE_CHQ_NUMBER") || ! FACTURE_CHQ_NUMBER) && (! defined("FACTURE_RIB_NUMBER") || ! FACTURE_RIB_NUMBER)) { - $pdf->SetXY (10, 228); - $pdf->SetTextColor(200,0,0); - $pdf->SetFont('Arial','B',8); - $pdf->MultiCell(90, 3, "Aucun mode de règlement défini.",0,'L',0); - $pdf->MultiCell(90, 3, "Créer un compte bancaire puis aller dans la Configuration du module facture pour définir les modes de règlement.",0,'L',0); - $pdf->SetTextColor(0,0,0); - } - - /* - * Propose mode règlement par CHQ - */ - if (defined("FACTURE_CHQ_NUMBER")) - { - if (FACTURE_CHQ_NUMBER > 0) - { - $account = new Account($this->db); - $account->fetch(FACTURE_CHQ_NUMBER); - - $pdf->SetXY (10, 228); - $pdf->SetFont('Arial','B',8); - $pdf->MultiCell(90, 3, "Règlement par chèque à l'ordre de ".$account->proprio." envoyé à:",0,'L',0); - $pdf->SetFont('Arial','',8); - $pdf->MultiCell(80, 3, $account->adresse_proprio, 0, 'L', 0); - } - } - - /* - * Propose mode règlement par RIB - */ - if (defined("FACTURE_RIB_NUMBER")) - { - if (FACTURE_RIB_NUMBER > 0) - { - $account = new Account($this->db); - $account->fetch(FACTURE_RIB_NUMBER); - - $pdf->SetXY (10, 241); - $pdf->SetFont('Arial','B',8); - $pdf->MultiCell(90, 3, "Règlement par virement sur le compte ci-dessous:", 0, 'L', 0); - $pdf->SetFont('Arial','',8); - $pdf->MultiCell(90, 3, "Code banque : " . $account->code_banque, 0, 'L', 0); - $pdf->MultiCell(90, 3, "Code guichet : " . $account->code_guichet, 0, 'L', 0); - $pdf->MultiCell(90, 3, "Numéro compte : " . $account->number, 0, 'L', 0); - $pdf->MultiCell(90, 3, "Clé RIB : " . $account->cle_rib, 0, 'L', 0); - $pdf->MultiCell(90, 3, "Domiciliation : " . $account->domiciliation, 0, 'L', 0); - $pdf->MultiCell(90, 3, "Prefix IBAN : " . $account->iban_prefix, 0, 'L', 0); - $pdf->MultiCell(90, 3, "BIC : " . $account->bic, 0, 'L', 0); - } - } - - /* - * - * - */ - - $pdf->SetFont('Arial','U',10); - $pdf->SetXY(10, 220); - $titre = "Conditions de réglement : ".$fac->cond_reglement_facture; - $pdf->MultiCell(190, 5, $titre, 0, 'J'); - - $pdf->Close(); - - $pdf->Output($file); - - return 1; - } - else - { - print "Erreur : le répertoire $dir n'existe pas !"; - } - } - else - { - print "Erreur: FAC_OUTPUTDIR non défini !"; - } + $this->db = $db; + $this->description = "Modèle de facture classique (Gère l'option fiscale de facturation TVA et le choix du mode de règlement à afficher)"; } - /* - * - * - * - */ - Function _tableau_compl(&$pdf, $fac) + + Function write_pdf_file($facid) { - $tab3_top = 245; - $tab3_height = 18; - $tab3_width = 68; - $tab3_posx = 132; - - $pdf->Rect($tab3_posx, $tab3_top, $tab3_width, $tab3_height); - - $pdf->line($tab3_posx, $tab3_top + 6, $tab3_posx+$tab3_width, $tab3_top + 6 ); - $pdf->line($tab3_posx, $tab3_top + 12, $tab3_posx+$tab3_width, $tab3_top + 12 ); - - $pdf->line($tab3_posx, $tab3_top, $tab3_posx, $tab3_top + $tab3_height ); - - $pdf->SetFont('Arial','',8); - $pdf->SetXY ($tab3_posx, $tab3_top - 6); - $pdf->MultiCell(60, 6, "Informations complémentaires", 0, 'L', 0); - $pdf->SetXY ($tab3_posx, $tab3_top ); - $pdf->MultiCell(20, 6, "Réglé le", 0, 'L', 0); - $pdf->SetXY ($tab3_posx, $tab3_top + 6); - $pdf->MultiCell(20, 6, "Chèque N°", 0, 'L', 0); - $pdf->SetXY ($tab3_posx, $tab3_top + 12); - $pdf->MultiCell(20, 6, "Banque", 0, 'L', 0); + global $user; + $fac = new Facture($this->db,"",$facid); + $fac->fetch($facid); + if (defined("FAC_OUTPUTDIR")) + { + + $dir = FAC_OUTPUTDIR . "/" . $fac->ref . "/" ; + $file = $dir . $fac->ref . ".pdf"; + + if (! file_exists($dir)) + { + umask(0); + if (! mkdir($dir, 0755)) + { + print "Erreur: Impossible de créer $dir !"; + } + } + + if (file_exists($dir)) + { + // Initialisation facture vierge + $pdf=new FPDF('P','mm','A4'); + $pdf->Open(); + $pdf->AddPage(); + + $this->_pagehead($pdf, $fac); + + $pdf->SetTitle($fac->ref); + $pdf->SetSubject("Facture"); + $pdf->SetCreator("Dolibarr ".DOL_VERSION); + $pdf->SetAuthor($user->fullname); + + $tab_top = 96; + $tab_height = 110; + + $pdf->SetFillColor(220,220,220); + $pdf->SetFont('Arial','', 9); + $pdf->SetXY (10, $tab_top + 10 ); + + $iniY = $pdf->GetY(); + $curY = $pdf->GetY(); + $nexY = $pdf->GetY(); + $nblignes = sizeof($fac->lignes); + + // Boucle sur les lignes de factures + for ($i = 0 ; $i < $nblignes ; $i++) + { + $curY = $nexY; + + // Description produit + $codeproduitservice=""; + $pdf->SetXY (11, $curY ); + if (defined("FACTURE_CODEPRODUITSERVICE") && FACTURE_CODEPRODUITSERVICE) { + // Affiche code produit + $codeproduitservice=" (".$fac->lignes[$i]->produit_id.")"; + } + $pdf->MultiCell(118, 5, $fac->lignes[$i]->desc."$codeproduitservice", 0, 'J'); + + $nexY = $pdf->GetY(); + + // TVA + $pdf->SetXY (121, $curY); + $pdf->MultiCell(10, 5, $fac->lignes[$i]->tva_taux, 0, 'C'); + + // Prix unitaire HT + $pdf->SetXY (133, $curY); + $pdf->MultiCell(16, 5, price($fac->lignes[$i]->price), 0, 'R', 0); + + // Quantité + $pdf->SetXY (151, $curY); + $pdf->MultiCell(10, 5, $fac->lignes[$i]->qty, 0, 'R'); + + // Remise sur ligne + $pdf->SetXY (161, $curY); + if ($fac->lignes[$i]->remise_percent) { + $pdf->MultiCell(10, 5, $fac->lignes[$i]->remise_percent."%", 0, 'C'); + } + + // Total HT + $pdf->SetXY (173, $curY); + $total = price($fac->lignes[$i]->price * $fac->lignes[$i]->qty); + $pdf->MultiCell(26, 5, $total, 0, 'R', 0); + + + if ($nexY > 200 && $i < $nblignes - 1) + { + $this->_tableau($pdf, $tab_top, $tab_height, $nexY); + $pdf->AddPage(); + $nexY = $iniY; + $this->_pagehead($pdf, $fac); + $pdf->SetTextColor(0,0,0); + $pdf->SetFont('Arial','', 10); + } + + } + $this->_tableau($pdf, $tab_top, $tab_height, $nexY); + + $this->_tableau_tot($pdf, $fac); + + $this->_tableau_compl($pdf, $fac); + + /* + * Mode de règlement + */ + if ((! defined("FACTURE_CHQ_NUMBER") || ! FACTURE_CHQ_NUMBER) && (! defined("FACTURE_RIB_NUMBER") || ! FACTURE_RIB_NUMBER)) { + $pdf->SetXY (10, 228); + $pdf->SetTextColor(200,0,0); + $pdf->SetFont('Arial','B',8); + $pdf->MultiCell(90, 3, "Aucun mode de règlement défini.",0,'L',0); + $pdf->MultiCell(90, 3, "Créer un compte bancaire puis aller dans la Configuration du module facture pour définir les modes de règlement.",0,'L',0); + $pdf->SetTextColor(0,0,0); + } + + /* + * Propose mode règlement par CHQ + */ + if (defined("FACTURE_CHQ_NUMBER")) + { + if (FACTURE_CHQ_NUMBER > 0) + { + $account = new Account($this->db); + $account->fetch(FACTURE_CHQ_NUMBER); + + $pdf->SetXY (10, 228); + $pdf->SetFont('Arial','B',8); + $pdf->MultiCell(90, 3, "Règlement par chèque à l'ordre de ".$account->proprio." envoyé à:",0,'L',0); + $pdf->SetFont('Arial','',8); + $pdf->MultiCell(80, 3, $account->adresse_proprio, 0, 'L', 0); + } + } + + /* + * Propose mode règlement par RIB + */ + if (defined("FACTURE_RIB_NUMBER")) + { + if (FACTURE_RIB_NUMBER > 0) + { + $account = new Account($this->db); + $account->fetch(FACTURE_RIB_NUMBER); + + $pdf->SetXY (10, 241); + $pdf->SetFont('Arial','B',8); + $pdf->MultiCell(90, 3, "Règlement par virement sur le compte ci-dessous:", 0, 'L', 0); + $pdf->SetFont('Arial','',8); + $pdf->MultiCell(90, 3, "Code banque : " . $account->code_banque, 0, 'L', 0); + $pdf->MultiCell(90, 3, "Code guichet : " . $account->code_guichet, 0, 'L', 0); + $pdf->MultiCell(90, 3, "Numéro compte : " . $account->number, 0, 'L', 0); + $pdf->MultiCell(90, 3, "Clé RIB : " . $account->cle_rib, 0, 'L', 0); + $pdf->MultiCell(90, 3, "Domiciliation : " . $account->domiciliation, 0, 'L', 0); + $pdf->MultiCell(90, 3, "Prefix IBAN : " . $account->iban_prefix, 0, 'L', 0); + $pdf->MultiCell(90, 3, "BIC : " . $account->bic, 0, 'L', 0); + } + } + + /* + * Conditions de règlements + */ + $pdf->SetFont('Arial','U',10); + $pdf->SetXY(10, 220); + $titre = "Conditions de réglement : ".$fac->cond_reglement_facture; + $pdf->MultiCell(190, 5, $titre, 0, 'J'); + + + $pdf->Close(); + + $pdf->Output($file); + + return 1; // Pas d'erreur + } + else + { + print "Erreur : le répertoire $dir n'existe pas !"; + } + } + else + { + print "Erreur: FAC_OUTPUTDIR non défini !"; + } + return 0; // Erreur par defaut } - Function _tableau_tot(&$pdf, $fac) + + /* + * + * + * + */ + Function _tableau_compl(&$pdf, $fac) { - $tab2_top = 207; - $tab2_hl = 5; - $tab2_height = $tab2_hl * 4; - $pdf->SetFont('Arial','', 9); - - // $pdf->Rect(132, $tab2_top, 68, $tab2_height); - // $pdf->line(174, $tab2_top, 174, $tab2_top + $tab2_height); - - // $pdf->line(132, $tab2_top + $tab2_height - 21, 200, $tab2_top + $tab2_height - 21 ); - // $pdf->line(132, $tab2_top + $tab2_height - 14, 200, $tab2_top + $tab2_height - 14 ); - // $pdf->line(132, $tab2_top + $tab2_height - 7, 200, $tab2_top + $tab2_height - 7 ); - - $pdf->SetXY (132, $tab2_top + 0); - $pdf->MultiCell(42, $tab2_hl, "Total HT", 0, 'R', 0); + $tab3_top = 245; + $tab3_height = 18; + $tab3_width = 68; + $tab3_posx = 132; - // Affiche la mention TVA non applicable selon option - $pdf->SetXY (10, $tab2_top + 0); - if (defined("FACTURE_TVAOPTION") && FACTURE_TVAOPTION == 'franchise') { - $pdf->MultiCell(100, $tab2_hl, "* TVA non applicable art-293B du CGI", 0, 'L', 0); - } - // Affiche le numéro de TVA intracommunautaire - if (defined("MAIN_INFO_TVAINTRA")) { - if (MAIN_INFO_TVAINTRA == 'MAIN_INFO_TVAINTRA') { - $pdf->SetTextColor(200,0,0); - $pdf->SetFont('Arial','B',8); - $pdf->MultiCell(90, 3, "Numéro de TVA intracommunautaire pas encore configuré.",0,'L',0); - $pdf->MultiCell(90, 3, "Aller dans la Configuration générale pour le définir ou l'effacer.",0,'L',0); - $pdf->SetTextColor(0,0,0); - } - elseif (MAIN_INFO_TVAINTRA != '') { - $pdf->MultiCell(190, 5, "Numéro de TVA intracommunautaire : ".MAIN_INFO_TVAINTRA, 0, 'L'); - } - } + $pdf->Rect($tab3_posx, $tab3_top, $tab3_width, $tab3_height); - $pdf->SetXY (174, $tab2_top + 0); - $pdf->MultiCell(26, $tab2_hl, price($fac->total_ht + $fac->remise), 0, 'R', 0); - - if ($fac->remise > 0) - { - $pdf->SetXY (132, $tab2_top + $tab2_hl); - $pdf->MultiCell(42, $tab2_hl, "Remise", 0, 'R', 0); - - $pdf->SetXY (174, $tab2_top + $tab2_hl); - $pdf->MultiCell(26, $tab2_hl, price($fac->remise), 0, 'R', 0); - - $pdf->SetXY (132, $tab2_top + $tab2_hl * 2); - $pdf->MultiCell(42, $tab2_hl, "Total HT après remise", 0, 'R', 0); - - $pdf->SetXY (174, $tab2_top + $tab2_hl * 2); - $pdf->MultiCell(26, $tab2_hl, price($fac->total_ht), 0, 'R', 0); + $pdf->line($tab3_posx, $tab3_top + 6, $tab3_posx+$tab3_width, $tab3_top + 6 ); + $pdf->line($tab3_posx, $tab3_top + 12, $tab3_posx+$tab3_width, $tab3_top + 12 ); - $index = 3; - } - else - { - $index = 1; - } + $pdf->line($tab3_posx, $tab3_top, $tab3_posx, $tab3_top + $tab3_height ); - $pdf->SetXY (132, $tab2_top + $tab2_hl * $index); - $pdf->MultiCell(42, $tab2_hl, "Total TVA", 0, 'R', 0); - - $pdf->SetXY (174, $tab2_top + $tab2_hl * $index); - $pdf->MultiCell(26, $tab2_hl, price($fac->total_tva), 0, 'R', 0); - - $pdf->SetXY (132, $tab2_top + $tab2_hl * ($index+1)); - $pdf->MultiCell(42, $tab2_hl, "Total TTC", 0, 'R', 1); - - $pdf->SetXY (174, $tab2_top + $tab2_hl * ($index+1)); - $pdf->MultiCell(26, $tab2_hl, price($fac->total_ttc), 0, 'R', 1); - - $deja_regle = $fac->getSommePaiement(); - - if ($deja_regle > 0) - { - $pdf->SetXY (132, $tab2_top + $tab2_hl * ($index+2)); - $pdf->MultiCell(42, $tab2_hl, "Déjà réglé", 0, 'R', 0); - - $pdf->SetXY (174, $tab2_top + $tab2_hl * ($index+2)); - $pdf->MultiCell(26, $tab2_hl, price($deja_regle), 0, 'R', 0); - - $pdf->SetXY (132, $tab2_top + $tab2_hl * ($index+3)); - $pdf->MultiCell(42, $tab2_hl, "Reste à payer", 0, 'R', 1); - - $pdf->SetXY (174, $tab2_top + $tab2_hl * ($index+3)); - $pdf->MultiCell(26, $tab2_hl, price($fac->total_ttc - $deja_regle), 0, 'R', 1); - } + $pdf->SetFont('Arial','',8); + $pdf->SetXY ($tab3_posx, $tab3_top - 6); + $pdf->MultiCell(60, 6, "Informations complémentaires", 0, 'L', 0); + $pdf->SetXY ($tab3_posx, $tab3_top ); + $pdf->MultiCell(20, 6, "Réglé le", 0, 'L', 0); + $pdf->SetXY ($tab3_posx, $tab3_top + 6); + $pdf->MultiCell(20, 6, "Chèque N°", 0, 'L', 0); + $pdf->SetXY ($tab3_posx, $tab3_top + 12); + $pdf->MultiCell(20, 6, "Banque", 0, 'L', 0); } - /* - * - */ - Function _tableau(&$pdf, $tab_top, $tab_height, $nexY) + + Function _tableau_tot(&$pdf, $fac) { - $pdf->SetFont('Arial','',10); - - $pdf->Text(11,$tab_top + 5,'Désignation'); - - $pdf->line(132, $tab_top, 132, $tab_top + $tab_height); - $pdf->Text(134,$tab_top + 5,'TVA'); - - $pdf->line(144, $tab_top, 144, $tab_top + $tab_height); - $pdf->Text(147,$tab_top + 5,'P.U. HT'); - - $pdf->line(162, $tab_top, 162, $tab_top + $tab_height); - $pdf->Text(165,$tab_top + 5,'Qté'); - - $pdf->line(174, $tab_top, 174, $tab_top + $tab_height); - $pdf->Text(185,$tab_top + 5,'Total HT'); - - $pdf->Rect(10, $tab_top, 190, $tab_height); - $pdf->line(10, $tab_top + 10, 200, $tab_top + 10 ); - } - /* - * - * - * - * - */ - Function _pagehead(&$pdf, $fac) - { - - $pdf->SetXY(10,5); - if (defined("FAC_PDF_INTITULE")) - { - $pdf->SetTextColor(0,0,60); - $pdf->SetFont('Arial','B',13); - $pdf->MultiCell(70, 8, FAC_PDF_INTITULE, 0, 'L'); - } - - $pdf->SetFont('Arial','B',13); - $pdf->SetXY(100,5); - $pdf->SetTextColor(0,0,60); - $pdf->MultiCell(100, 10, "Facture no ".$fac->ref, '' , 'R'); - $pdf->SetXY(100,11); - $pdf->SetTextColor(0,0,60); - $pdf->MultiCell(100, 10, "Date : " . strftime("%d %b %Y", $fac->date), '', 'R'); + $tab2_top = 207; + $tab2_hl = 5; + $tab2_height = $tab2_hl * 4; + $pdf->SetFont('Arial','', 9); - /* - * Emetteur - */ - $posy=42; - $pdf->SetTextColor(0,0,0); - $pdf->SetFont('Arial','',8); - $pdf->SetXY(10,$posy-5); - $pdf->MultiCell(66,5, "Emetteur:"); + // Affiche la mention TVA non applicable selon option + $pdf->SetXY (10, $tab2_top + 0); + if (defined("FACTURE_TVAOPTION") && FACTURE_TVAOPTION == 'franchise') { + $pdf->MultiCell(100, $tab2_hl, "* TVA non applicable art-293B du CGI", 0, 'L', 0); + } + // Affiche le numéro de TVA intracommunautaire + if (defined("MAIN_INFO_TVAINTRA")) { + if (MAIN_INFO_TVAINTRA == 'MAIN_INFO_TVAINTRA') { + $pdf->SetTextColor(200,0,0); + $pdf->SetFont('Arial','B',8); + $pdf->MultiCell(90, 3, "Numéro de TVA intracommunautaire pas encore configuré.",0,'L',0); + $pdf->MultiCell(90, 3, "Aller dans la Configuration générale pour le définir ou l'effacer.",0,'L',0); + $pdf->SetTextColor(0,0,0); + } + elseif (MAIN_INFO_TVAINTRA != '') { + $pdf->MultiCell(190, 5, "Numéro de TVA intracommunautaire : ".MAIN_INFO_TVAINTRA, 0, 'L'); + } + } - $pdf->SetXY(10,$posy+4); - - if (defined("FAC_PDF_INTITULE2")) - { - $pdf->SetTextColor(0,0,60); - $pdf->SetFont('Arial','B',10); - $pdf->MultiCell(70, 4, FAC_PDF_INTITULE2, 0, 'L'); + // Tableau complémentaire + $pdf->SetXY (132, $tab2_top + 0); + $pdf->MultiCell(42, $tab2_hl, "Total HT", 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + 0); + $pdf->MultiCell(26, $tab2_hl, price($fac->total_ht + $fac->remise), 0, 'R', 0); + + if ($fac->remise > 0) + { + $pdf->SetXY (132, $tab2_top + $tab2_hl); + $pdf->MultiCell(42, $tab2_hl, "Remise globale", 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + $tab2_hl); + $pdf->MultiCell(26, $tab2_hl, "-".$fac->remise_percent."%", 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + $tab2_hl * 2); + $pdf->MultiCell(42, $tab2_hl, "Total HT après remise", 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + $tab2_hl * 2); + $pdf->MultiCell(26, $tab2_hl, price($fac->total_ht), 0, 'R', 0); + + $index = 3; + } + else + { + $index = 1; + } + + $pdf->SetXY (132, $tab2_top + $tab2_hl * $index); + $pdf->MultiCell(42, $tab2_hl, "Total TVA", 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + $tab2_hl * $index); + $pdf->MultiCell(26, $tab2_hl, price($fac->total_tva), 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + $tab2_hl * ($index+1)); + $pdf->MultiCell(42, $tab2_hl, "Total TTC", 0, 'R', 1); + + $pdf->SetXY (174, $tab2_top + $tab2_hl * ($index+1)); + $pdf->MultiCell(26, $tab2_hl, price($fac->total_ttc), 0, 'R', 1); + + $deja_regle = $fac->getSommePaiement(); + + if ($deja_regle > 0) + { + $pdf->SetXY (132, $tab2_top + $tab2_hl * ($index+2)); + $pdf->MultiCell(42, $tab2_hl, "Déjà réglé", 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + $tab2_hl * ($index+2)); + $pdf->MultiCell(26, $tab2_hl, price($deja_regle), 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + $tab2_hl * ($index+3)); + $pdf->MultiCell(42, $tab2_hl, "Reste à payer", 0, 'R', 1); + + $pdf->SetXY (174, $tab2_top + $tab2_hl * ($index+3)); + $pdf->MultiCell(26, $tab2_hl, price($fac->total_ttc - $deja_regle), 0, 'R', 1); + } } - if (defined("FAC_PDF_ADRESSE")) + /* + * Grille des lignes de factures + */ + Function _tableau(&$pdf, $tab_top, $tab_height, $nexY) { - $pdf->SetFont('Arial','',10); - $pdf->MultiCell(80, 4, FAC_PDF_ADRESSE); + $pdf->SetFont('Arial','',10); + + $pdf->Text(11,$tab_top + 5,'Désignation'); + + $pdf->line(120, $tab_top, 120, $tab_top + $tab_height); + $pdf->Text(122, $tab_top + 5,'TVA'); + + $pdf->line(132, $tab_top, 132, $tab_top + $tab_height); + $pdf->Text(135, $tab_top + 5,'P.U. HT'); + + $pdf->line(150, $tab_top, 150, $tab_top + $tab_height); + $pdf->Text(153, $tab_top + 5,'Qté'); + + $pdf->line(162, $tab_top, 162, $tab_top + $tab_height); + $pdf->Text(163, $tab_top + 5,'Remise'); + + $pdf->line(176, $tab_top, 176, $tab_top + $tab_height); + $pdf->Text(185, $tab_top + 5,'Total HT'); + + $pdf->Rect( 10, $tab_top, 190, $tab_height); + $pdf->line( 10, $tab_top +10, 200, $tab_top + 10 ); } - if (defined("FAC_PDF_TEL")) + /* + * + * + * + * + */ + Function _pagehead(&$pdf, $fac) { - $pdf->SetFont('Arial','',10); - $pdf->MultiCell(40, 4, "Tél : ".FAC_PDF_TEL); - } - if (defined("FAC_PDF_SIREN")) - { - $pdf->SetFont('Arial','',10); - $pdf->MultiCell(40, 4, "SIREN : ".FAC_PDF_SIREN); - } + + $pdf->SetXY(10,5); + if (defined("FAC_PDF_INTITULE")) + { + $pdf->SetTextColor(0,0,60); + $pdf->SetFont('Arial','B',13); + $pdf->MultiCell(70, 8, FAC_PDF_INTITULE, 0, 'L'); + } + + $pdf->SetFont('Arial','B',13); + $pdf->SetXY(100,5); + $pdf->SetTextColor(0,0,60); + $pdf->MultiCell(100, 10, "Facture no ".$fac->ref, '' , 'R'); + $pdf->SetXY(100,11); + $pdf->SetTextColor(0,0,60); + $pdf->MultiCell(100, 10, "Date : " . strftime("%d %b %Y", $fac->date), '', 'R'); + + /* + * Emetteur + */ + $posy=42; + $pdf->SetTextColor(0,0,0); + $pdf->SetFont('Arial','',8); + $pdf->SetXY(10,$posy-5); + $pdf->MultiCell(66,5, "Emetteur:"); - /* - * Client - */ - $posy=42; - $pdf->SetTextColor(0,0,0); - $pdf->SetFont('Arial','',8); - $pdf->SetXY(102,$posy-5); - $pdf->MultiCell(80,5, "Adressé à:"); - $pdf->SetFont('Arial','B',11); - $fac->fetch_client(); - $pdf->SetXY(102,$posy+4); - $pdf->MultiCell(86,4, $fac->client->nom, 0, 'L'); - $pdf->SetFont('Arial','B',10); - $pdf->SetXY(102,$posy+12); - $pdf->MultiCell(86,4, $fac->client->adresse . "\n" . $fac->client->cp . " " . $fac->client->ville); - $pdf->rect(100, $posy, 100, 34); - - /* - * - */ - $pdf->SetTextColor(0,0,0); - $pdf->SetFont('Arial','',10); - $titre = "Montants exprimés en euros"; - $pdf->Text(200 - $pdf->GetStringWidth($titre), 94, $titre); - /* - */ - + $pdf->SetXY(10,$posy); + $pdf->SetFillColor(230,230,230); + $pdf->MultiCell(82, 34, "", 0, 'R', 1); + + + $pdf->SetXY(10,$posy+4); + + if (defined("FAC_PDF_INTITULE2")) + { + $pdf->SetTextColor(0,0,60); + $pdf->SetFont('Arial','B',10); + $pdf->MultiCell(70, 4, FAC_PDF_INTITULE2, 0, 'L'); + } + if (defined("FAC_PDF_ADRESSE")) + { + $pdf->SetFont('Arial','',10); + $pdf->MultiCell(80, 4, FAC_PDF_ADRESSE); + } + if (defined("FAC_PDF_TEL")) + { + $pdf->SetFont('Arial','',10); + $pdf->MultiCell(40, 4, "Tél : ".FAC_PDF_TEL); + } + if (defined("FAC_PDF_SIREN")) + { + $pdf->SetFont('Arial','',10); + $pdf->MultiCell(40, 4, "SIREN : ".FAC_PDF_SIREN); + } + + + /* + * Client + */ + $posy=42; + $pdf->SetTextColor(0,0,0); + $pdf->SetFont('Arial','',8); + $pdf->SetXY(102,$posy-5); + $pdf->MultiCell(80,5, "Adressé à:"); + $pdf->SetFont('Arial','B',11); + $fac->fetch_client(); + $pdf->SetXY(102,$posy+4); + $pdf->MultiCell(86,4, $fac->client->nom, 0, 'L'); + $pdf->SetFont('Arial','B',10); + $pdf->SetXY(102,$posy+12); + $pdf->MultiCell(86,4, $fac->client->adresse . "\n" . $fac->client->cp . " " . $fac->client->ville); + $pdf->rect(100, $posy, 100, 34); + + /* + * + */ + $pdf->SetTextColor(0,0,0); + $pdf->SetFont('Arial','',10); + $titre = "Montants exprimés en euros"; + $pdf->Text(200 - $pdf->GetStringWidth($titre), 94, $titre); + /* + */ + } - + } ?>