88acbc5134
par "function" (avec f minuscule), qui est le mot correct (bien que cela ne gène pas le php, cela gène doxygen et autres outils d'analyse syntaxique).
376 lines
10 KiB
PHP
376 lines
10 KiB
PHP
<?PHP
|
|
/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
*
|
|
* 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_tourteau {
|
|
|
|
function pdf_tourteau($db=0)
|
|
{
|
|
$this->db = $db;
|
|
$this->description = "Modèle de facture sans remise";
|
|
}
|
|
|
|
/*!
|
|
\brief Renvoi le dernier message d'erreur de création de facture
|
|
*/
|
|
function error()
|
|
{
|
|
return $this->error;
|
|
}
|
|
|
|
|
|
function write_pdf_file($facid)
|
|
{
|
|
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))
|
|
{
|
|
$this->error="Erreur: Le répertoire '$dir' n'existe pas et Dolibarr n'a pu le créer.";
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
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 = 100;
|
|
$tab_height = 110;
|
|
|
|
/*
|
|
*
|
|
*/
|
|
|
|
$pdf->SetFillColor(220,220,220);
|
|
|
|
$pdf->SetFont('Arial','', 10);
|
|
|
|
$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 );
|
|
|
|
// if ($fac->lignes[$i]->produit_id)
|
|
// {
|
|
// $prod = new Product($this->db, $fac->lignes[$i]->produit_id);
|
|
// $prod->fetch($fac->lignes[$i]->produit_id);
|
|
// $pdf->MultiCell(118, 5, $prod->description, 0, 'J');
|
|
// }
|
|
//else
|
|
// {
|
|
$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(10, 5, $fac->lignes[$i]->qty, 0, 'C');
|
|
|
|
$pdf->SetXY (156, $curY);
|
|
$pdf->MultiCell(18, 5, price($fac->lignes[$i]->price), 0, 'R', 0);
|
|
|
|
$pdf->SetXY (174, $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);
|
|
/*
|
|
*
|
|
*/
|
|
|
|
$tab2_top = 212;
|
|
$tab2_height = 24;
|
|
$pdf->SetFont('Arial','', 12);
|
|
|
|
$pdf->Rect(132, $tab2_top, 68, $tab2_height);
|
|
|
|
$pdf->line(132, $tab2_top + $tab2_height - 24, 200, $tab2_top + $tab2_height - 24 );
|
|
$pdf->line(132, $tab2_top + $tab2_height - 16, 200, $tab2_top + $tab2_height - 16 );
|
|
$pdf->line(132, $tab2_top + $tab2_height - 8, 200, $tab2_top + $tab2_height - 8 );
|
|
|
|
$pdf->line(174, $tab2_top, 174, $tab2_top + $tab2_height);
|
|
|
|
$pdf->SetXY (132, $tab2_top + 0);
|
|
$pdf->MultiCell(42, 8, "Total HT", 0, 'R', 0);
|
|
|
|
$pdf->SetXY (132, $tab2_top + 8);
|
|
$pdf->MultiCell(42, 8, "Total TVA", 0, 'R', 0);
|
|
|
|
$pdf->SetXY (132, $tab2_top + 16);
|
|
$pdf->MultiCell(42, 8, "Total TTC", 1, 'R', 1);
|
|
|
|
$pdf->SetXY (174, $tab2_top + 0);
|
|
$pdf->MultiCell(26, 8, price($fac->total_ht), 0, 'R', 0);
|
|
|
|
$pdf->SetXY (174, $tab2_top + 8);
|
|
$pdf->MultiCell(26, 8, price($fac->total_tva), 0, 'R', 0);
|
|
|
|
$pdf->SetXY (174, $tab2_top + 16);
|
|
$pdf->MultiCell(26, 8, price($fac->total_ttc), 1, 'R', 1);
|
|
|
|
$deja_regle = $fac->getSommePaiement();
|
|
|
|
if ($deja_regle > 0)
|
|
{
|
|
$pdf->Rect(132, $tab2_top+$tab2_height, 68, 16);
|
|
|
|
$pdf->SetXY (132, $tab2_top + 24);
|
|
$pdf->MultiCell(42, 8, "Déjà réglé", 0, 'R', 0);
|
|
|
|
$pdf->SetXY (132, $tab2_top + 32);
|
|
$pdf->MultiCell(42, 8, "Reste à payer", 1, 'R', 1);
|
|
|
|
$pdf->SetXY (174, $tab2_top + 24);
|
|
$pdf->MultiCell(26, 8, price($deja_regle), 0, 'R', 0);
|
|
|
|
$pdf->SetXY (174, $tab2_top + 32);
|
|
$pdf->MultiCell(26, 8, price($fac->total_ttc - $deja_regle), 1, 'R', 1);
|
|
}
|
|
|
|
/*
|
|
*
|
|
*/
|
|
|
|
$tab3_top = 240;
|
|
$tab3_height = 18;
|
|
$tab3_width = 60;
|
|
|
|
$pdf->Rect(10, $tab3_top, $tab3_width, $tab3_height);
|
|
|
|
$pdf->line(10, $tab3_top + 6, $tab3_width+10, $tab3_top + 6 );
|
|
$pdf->line(10, $tab3_top + 12, $tab3_width+10, $tab3_top + 12 );
|
|
|
|
$pdf->line(30, $tab3_top, 30, $tab3_top + $tab3_height );
|
|
|
|
$pdf->SetFont('Arial','',8);
|
|
$pdf->SetXY (10, $tab3_top - 6);
|
|
$pdf->MultiCell(60, 6, "Informations complémentaires", 0, 'L', 0);
|
|
$pdf->SetXY (10, $tab3_top );
|
|
$pdf->MultiCell(20, 6, "Réglé le", 0, 'L', 0);
|
|
$pdf->SetXY (10, $tab3_top + 6);
|
|
$pdf->MultiCell(20, 6, "Chèque N°", 0, 'L', 0);
|
|
$pdf->SetXY (10, $tab3_top + 12);
|
|
$pdf->MultiCell(20, 6, "Banque", 0, 'L', 0);
|
|
/*
|
|
*
|
|
*/
|
|
if (defined("FACTURE_RIB_NUMBER"))
|
|
{
|
|
if (FACTURE_RIB_NUMBER > 0)
|
|
{
|
|
$account = new Account($this->db);
|
|
$account->fetch(FACTURE_RIB_NUMBER);
|
|
|
|
$pdf->SetXY (10, 40);
|
|
$pdf->SetFont('Arial','U',8);
|
|
$pdf->MultiCell(40, 4, "Coordonnées bancaire", 0, 'L', 0);
|
|
$pdf->SetFont('Arial','',8);
|
|
$pdf->MultiCell(40, 4, "Code banque : " . $account->code_banque, 0, 'L', 0);
|
|
$pdf->MultiCell(40, 4, "Code guichet : " . $account->code_guichet, 0, 'L', 0);
|
|
$pdf->MultiCell(50, 4, "Numéro compte : " . $account->number, 0, 'L', 0);
|
|
$pdf->MultiCell(40, 4, "Clé RIB : " . $account->cle_rib, 0, 'L', 0);
|
|
$pdf->MultiCell(40, 4, "Domiciliation : " . $account->domiciliation, 0, 'L', 0);
|
|
$pdf->MultiCell(40, 4, "Prefix IBAN : " . $account->iban_prefix, 0, 'L', 0);
|
|
$pdf->MultiCell(40, 4, "BIC : " . $account->bic, 0, 'L', 0);
|
|
}
|
|
}
|
|
|
|
/*
|
|
*
|
|
*
|
|
*/
|
|
|
|
$pdf->SetFont('Arial','U',12);
|
|
$pdf->SetXY(10, 220);
|
|
$titre = "Conditions de réglement : ".$fac->cond_reglement_facture;
|
|
$pdf->MultiCell(190, 5, $titre, 0, 'J');
|
|
|
|
$pdf->SetFont('Arial','',9);
|
|
$pdf->SetXY(10, 260);
|
|
$pdf->MultiCell(190, 5, "Numéro de TVA intracommunautaire : ".MAIN_INFO_TVAINTRA, 0, 'J');
|
|
|
|
$pdf->MultiCell(190, 5, "Accepte le réglement des sommes dues par chèques libellés à mon nom en ma qualité de Membre d'une Association de Gestion agréée par l'Administration Fiscale.", 0, 'J');
|
|
|
|
$pdf->Close();
|
|
|
|
$pdf->Output($file);
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->error="Erreur: Le répertoire '$dir' n'existe pas et Dolibarr n'a pu le créer.";
|
|
return 0;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$this->error="Erreur: FAC_OUTPUTDIR non défini !";
|
|
return 0;
|
|
}
|
|
}
|
|
/*
|
|
*
|
|
*
|
|
*
|
|
*/
|
|
function _tableau(&$pdf, $tab_top, $tab_height, $nexY)
|
|
{
|
|
$pdf->SetFont('Arial','',12);
|
|
|
|
$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,'Qté');
|
|
|
|
$pdf->line(156, $tab_top, 156, $tab_top + $tab_height);
|
|
$pdf->Text(160,$tab_top + 5,'P.U.');
|
|
|
|
$pdf->line(174, $tab_top, 174, $tab_top + $tab_height);
|
|
$pdf->Text(187,$tab_top + 5,'Total');
|
|
|
|
$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,200);
|
|
$pdf->SetFont('Arial','B',14);
|
|
$pdf->MultiCell(76, 8, FAC_PDF_INTITULE, 0, 'L');
|
|
}
|
|
|
|
$pdf->SetTextColor(70,70,170);
|
|
if (defined("FAC_PDF_ADRESSE"))
|
|
{
|
|
$pdf->SetFont('Arial','',12);
|
|
$pdf->MultiCell(76, 5, FAC_PDF_ADRESSE);
|
|
}
|
|
if (defined("FAC_PDF_TEL"))
|
|
{
|
|
$pdf->SetFont('Arial','',10);
|
|
$pdf->MultiCell(76, 5, "Tél : ".FAC_PDF_TEL);
|
|
}
|
|
if (defined("FAC_PDF_SIREN"))
|
|
{
|
|
$pdf->SetFont('Arial','',10);
|
|
$pdf->MultiCell(76, 5, "SIREN : ".FAC_PDF_SIREN);
|
|
}
|
|
|
|
if (defined("FAC_PDF_INTITULE2"))
|
|
{
|
|
$pdf->SetXY(100,5);
|
|
$pdf->SetFont('Arial','B',14);
|
|
$pdf->SetTextColor(0,0,200);
|
|
$pdf->MultiCell(100, 10, FAC_PDF_INTITULE2, '' , 'R');
|
|
}
|
|
/*
|
|
* Adresse Client
|
|
*/
|
|
$pdf->SetTextColor(0,0,0);
|
|
$pdf->SetFont('Arial','B',12);
|
|
$fac->fetch_client();
|
|
$pdf->SetXY(102,42);
|
|
$pdf->MultiCell(96,5, $fac->client->nom);
|
|
$pdf->SetFont('Arial','B',11);
|
|
$pdf->SetXY(102,47);
|
|
$pdf->MultiCell(96,5, $fac->client->adresse . "\n" . $fac->client->cp . " " . $fac->client->ville);
|
|
$pdf->rect(100, 40, 100, 40);
|
|
|
|
|
|
$pdf->SetTextColor(200,0,0);
|
|
$pdf->SetFont('Arial','B',14);
|
|
$pdf->Text(11, 88, "Date : " . strftime("%d %b %Y", $fac->date));
|
|
$pdf->Text(11, 94, "Facture : ".$fac->ref);
|
|
|
|
/*
|
|
*/
|
|
$pdf->SetTextColor(0,0,0);
|
|
$pdf->SetFont('Arial','',10);
|
|
$titre = "Montants exprimés en euros";
|
|
$pdf->Text(200 - $pdf->GetStringWidth($titre), 98, $titre);
|
|
/*
|
|
*/
|
|
|
|
}
|
|
|
|
}
|
|
|
|
?>
|