From 574a65a99d5e7d87398da779495b187d2412ffc8 Mon Sep 17 00:00:00 2001 From: Rodolphe Quiedeville Date: Tue, 9 Sep 2003 16:08:48 +0000 Subject: [PATCH] Nouveau fichier --- htdocs/admin/system/update.php | 85 +++++ .../modules/facture/pdf_bulot.modules.php | 340 ++++++++++++++++++ 2 files changed, 425 insertions(+) create mode 100644 htdocs/admin/system/update.php create mode 100644 htdocs/includes/modules/facture/pdf_bulot.modules.php diff --git a/htdocs/admin/system/update.php b/htdocs/admin/system/update.php new file mode 100644 index 00000000000..134abda32e9 --- /dev/null +++ b/htdocs/admin/system/update.php @@ -0,0 +1,85 @@ + + * + * 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. + * + * $Id$ + * $Source$ + * + */ +require("./pre.inc.php"); + +$user->getrights('facture'); +if (!$user->rights->facture->lire) + accessforbidden(); + +require("../../facture.class.php3"); +require("../../propal.class.php3"); + +llxHeader(); + +/* + * Sécurité accés client + */ +if ($user->societe_id > 0) +{ + $action = ''; + $socidp = $user->societe_id; +} +/* + * + */ +print_titre("Mise à jour système"); + +/* + * Factures + */ +$sql = "SELECT rowid FROM llx_facture"; +if ($db->query($sql)) +{ + $num = $db->num_rows(); + $i = 0; + while ($i < $num) + { + $row = $db->fetch_row($i); + $facture = new Facture($db); + if ( $facture->fetch($row[0]) ) + { + if ( $facture->updateprice($row[0]) > 0 ) + { + print "(ok $row[0])"; + } + else + { + print "Erreur #2"; + } + } + else + { + print "Erreur #3"; + } + $i++; + } + $db->free(); +} +else +{ + print "Erreur #1"; +} + +$db->close(); + +llxFooter("Dernière modification $Date$ révision $Revision$"); +?> diff --git a/htdocs/includes/modules/facture/pdf_bulot.modules.php b/htdocs/includes/modules/facture/pdf_bulot.modules.php new file mode 100644 index 00000000000..6313e94ca73 --- /dev/null +++ b/htdocs/includes/modules/facture/pdf_bulot.modules.php @@ -0,0 +1,340 @@ + + * + * 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_bulot { + + Function pdf_bulot($db=0) + { + $this->db = $db; + $this->description = "Modèle de facture avec remise et infos réglement"; + } + + + 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)) + { + 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 = 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 ); + $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 = 28; + $pdf->SetFont('Arial','', 11); + + // $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, 8, "Total HT", 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + 7); + $pdf->MultiCell(42, 8, "Remise", 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + 14); + $pdf->MultiCell(42, 8, "Total HT aprés remise", 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + 21); + $pdf->MultiCell(42, 8, "Total TVA", 0, 'R', 0); + + $pdf->SetXY (132, $tab2_top + 28); + $pdf->MultiCell(42, 8, "Total TTC", 1, 'R', 1); + + $pdf->SetXY (174, $tab2_top + 0); + $pdf->MultiCell(26, 8, price($fac->total_ht + $fac->remise), 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + 7); + $pdf->MultiCell(26, 8, price($fac->remise), 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + 14); + $pdf->MultiCell(26, 8, price($fac->total_ht), 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + 21); + $pdf->MultiCell(26, 8, price($fac->total_tva), 0, 'R', 0); + + $pdf->SetXY (174, $tab2_top + 28); + $pdf->MultiCell(26, 8, price($fac->total_ttc), 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); + $pdf->MultiCell(190, 5, "Conditions de réglement : à réception de facture.", 0, 'J'); + + $pdf->SetFont('Arial','',9); + $pdf->SetXY(10, 265); + $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); + } + else + { + print "Erreur : le répertoire $dir n'existe pas !"; + } + } + else + { + print "FAC_OUTPUTDIR non définit !"; + } + } + /* + * + * + * + */ + 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(60, 8, FAC_PDF_INTITULE, 0, 'L'); + } + + $pdf->SetTextColor(70,70,170); + if (defined("FAC_PDF_ADRESSE")) + { + $pdf->SetFont('Arial','',12); + $pdf->MultiCell(40, 5, FAC_PDF_ADRESSE); + } + if (defined("FAC_PDF_TEL")) + { + $pdf->SetFont('Arial','',10); + $pdf->MultiCell(40, 5, "Tél : ".FAC_PDF_TEL); + } + if (defined("FAC_PDF_SIREN")) + { + $pdf->SetFont('Arial','',10); + $pdf->MultiCell(40, 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(66,5, $fac->client->nom); + $pdf->SetFont('Arial','B',11); + $pdf->SetXY(102,47); + $pdf->MultiCell(66,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); + /* + */ + + } + +} + +?>