Ajout support ventilation sur facture fournisseur

htdocs/compta/ventilation/fournisseur/fiche.php

+<?PHP
+/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+ * Copyright (C) 2005 Simon TOSSER <simon@kornog-computing.com>
+ *
+ * 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$
+ *
+ */
+
+/**
+        \file       htdocs/compta/ventilation/fournisseur/fiche.php
+        \ingroup    compta
+		\brief      Page fiche ventilation
+		\version    $Revision$
+*/
+
+require("./pre.inc.php");
+
+$mesg = '';
+
+if (!$user->rights->compta->ventilation->creer) accessforbidden();
+
+if ($_POST["action"] == 'ventil' && $user->rights->compta->ventilation->creer)
+{
+  $sql = " UPDATE ".MAIN_DB_PREFIX."facture_fourn_det";
+  $sql .= " SET fk_code_ventilation = ".$_POST["codeventil"];
+  $sql .= " WHERE rowid = ".$_GET["id"];
+
+  $db->query($sql);
+}
+
+llxHeader("","","Fiche ventilation");
+
+if ($cancel == $langs->trans("Cancel"))
+{
+  $action = '';
+}
+/*
+ *
+ *
+ */
+
+$sql = "SELECT rowid, numero, intitule";
+$sql .= " FROM ".MAIN_DB_PREFIX."compta_compte_generaux";
+$sql .= " ORDER BY numero ASC";
+
+$result = $db->query($sql);
+if ($result)
+{
+  $num = $db->num_rows($result);
+  $i = 0; 
+  
+  while ($i < $num)
+    {
+      $row = $db->fetch_row($result);
+      $cgs[$row[0]] = $row[1] . ' ' . $row[2];
+      $i++;
+    }
+}
+
+/*
+ * Création
+ *
+ */
+$form = new Form($db);
+
+if($_GET["id"])
+{
+  $sql = "SELECT f.facnumber, f.rowid as facid, l.fk_product, l.description, l.total_ttc, l.qty, l.rowid, l.tva_taux, l.fk_code_ventilation ";
+  $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn_det as l";
+  $sql .= " , ".MAIN_DB_PREFIX."facture_fourn as f";
+  $sql .= " WHERE f.rowid = l.fk_facture_fourn AND f.fk_statut = 1 AND l.rowid = ".$_GET["id"];
+   
+  $result = $db->query($sql);
+
+  if ($result)
+    {
+      $num_lignes = $db->num_rows($result);
+      $i = 0; 
+      
+      if ($num_lignes)
+	{
+	  
+	  $objp = $db->fetch_object($result);
+
+
+	  if($objp->fk_code_ventilation == 0)
+	    {
+	      print '<form action="fiche.php?id='.$_GET["id"].'" method="post">'."\n";
+	      print '<input type="hidden" name="action" value="ventil">';
+	    }
+
+	  
+	  print_titre("Ventilation");
+	  
+	  print '<table class="border" width="100%" cellspacing="0" cellpadding="4">';
+	  print '<tr><td>Facture</td>';
+      print '<td><a href="'.DOL_URL_ROOT.'/compta/facture.php?facid='.$objp->facid.'">'.$objp->facnumber.'</a></td></tr>';
+
+	  print '<tr><td width="20%">Ligne</td>';
+	  print '<td>'.stripslashes(nl2br($objp->description)).'</td></tr>';
+	  print '<tr><td width="20%">Ventiler dans le compte :</td><td>';
+
+	  if($objp->fk_code_ventilation == 0)
+	    {
+	      print $form->select_array("codeventil",$cgs, $objp->fk_code_ventilation);
+	    }
+	  else
+	    {
+	      print $cgs[$objp->fk_code_ventilation];
+	    }
+
+	  print '</td></tr>';
+	  
+	  if($objp->fk_code_ventilation == 0)
+	    {
+	      print '<tr><td>&nbsp;</td><td><input type="submit" value="'.$langs->trans("Ventiler").'"></td></tr>';
+	    }
+	  print '</table>';
+	  print '</form>';
+	}
+      else
+	{
+	  print "Error";
+	}
+    }
+  else
+    {
+      print "Error";
+    }
+}
+else
+{
+  print "Error ID incorrect";
+}
+
+$db->close();
+
+llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</em>");
+?>

htdocs/compta/ventilation/fournisseur/index.php

+<?php
+/* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+ * Copyright (C) 2004      Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2005 Simon TOSSER <simon@kornog-computing.com>
+ *
+ * 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$
+ *
+ */
+
+/**
+        \file       htdocs/compta/ventilation/fournisseur/index.php
+        \ingroup    compta
+		\brief      Page accueil ventilation
+		\version    $Revision$
+*/
+
+require("./pre.inc.php");
+$langs->load("suppliers");
+
+
+llxHeader('','Compta - Ventilation');
+
+print_titre("Ventilation Comptable");
+
+print '<table border="0" width="100%">';
+
+print '<tr><td valign="top" width="30%">';
+
+
+
+$sql = "SELECT count(*) FROM ".MAIN_DB_PREFIX."facturedet";
+$sql .= " WHERE fk_export_compta = 0";
+$result = $db->query($sql);
+if ($result)
+{
+  $row = $db->fetch_row($result);
+  $nbfac = $row[0];
+
+  $db->free($result);
+}
+
+$sql = "SELECT count(*) FROM ".MAIN_DB_PREFIX."paiement";
+$sql .= " WHERE fk_export_compta = 0";
+
+$result = $db->query($sql);
+if ($result)
+{
+  $row = $db->fetch_row($result);
+  $nbp = $row[0];
+
+  $db->free($result);
+}
+
+$sql = "SELECT count(*) FROM ".MAIN_DB_PREFIX."facture_fourn_det";
+$sql .= " WHERE fk_export_compta = 0";
+$result = $db->query($sql);
+if ($result)
+{
+  $row = $db->fetch_row($result);
+  $nbfacfourn = $row[0];
+
+  $db->free($result);
+}
+
+/*$sql = "SELECT count(*) FROM ".MAIN_DB_PREFIX."paiementfourn";
+$sql .= " WHERE fk_export_compta = 0";
+
+$result = $db->query($sql);
+if ($result)
+{
+  $row = $db->fetch_row($result);
+  $nbpfourn = $row[0];
+
+  $db->free($result);
+}*/
+
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre"><td colspan="2">Lignes a ventiler</tr>';
+print '<tr class="liste_titre"><td>Type</td><td align="center">Nb</td></tr>';
+print '<tr><td>Factures clients</td><td align="center">'.$nbfac.'</td></tr>';
+print '<tr><td>Paiements clients</td><td align="center">'.$nbp.'</td></tr>';
+print '<tr><td>Factures fournisseurs</td><td align="center">'.$nbfacfourn.'</td></tr>';
+//print '<tr><td>Paiements fournisseurs</td><td align="center">'.$nbpfourn.'</td></tr>';
+print "</table>\n";
+
+print '</td><td valign="top">';
+
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre"><td>Type</td><td align="center">Nb de lignes</td></tr>';
+
+$sql = "SELECT count(*), ccg.intitule FROM ".MAIN_DB_PREFIX."facturedet as fd";
+$sql .= " ,".MAIN_DB_PREFIX."compta_compte_generaux as ccg";
+$sql .= " WHERE fd.fk_code_ventilation = ccg.rowid";
+$sql .= " GROUP BY ccg.rowid";
+
+$resql = $db->query($sql);
+if ($resql)
+{
+  $i = 0;
+  $num = $db->num_rows($resql);
+
+  while ($i < $num)
+    {
+
+      $row = $db->fetch_row($resql);
+
+      print '<tr><td>'.$row[1].'</td><td align="center">'.$row[0].'</td></tr>';
+      $i++;
+    }
+  $db->free($resql);
+}
+print "</table>\n";
+
+print '</td></tr></table>';
+
+llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</em>");
+
+?>

htdocs/compta/ventilation/fournisseur/lignes.php

+<?php
+/* Copyright (C) 2002-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+ * Copyright (C) 2005 Simon TOSSER <simon@kornog-computing.com>
+ * 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$
+ *
+ */
+
+/*!
+   \file       htdocs/compta/ventilation/fournisseur/lignes.php
+   \ingroup    facture
+   \brief      Page de detail des lignes de ventilation d'une facture
+   \version    $Revision$
+*/
+
+require("./pre.inc.php");
+
+$user->getrights('facture');
+$user->getrights('banque');
+$langs->load("bills");
+
+if (!$user->rights->facture->lire) accessforbidden();
+if (!$user->rights->compta->ventilation->creer) accessforbidden();
+/*
+ * Scurit accs client
+ */
+if ($user->societe_id > 0) accessforbidden();
+
+llxHeader('');
+
+/*
+ * Lignes de factures
+ *
+ */
+$page = $_GET["page"];
+if ($page < 0) $page = 0;
+$limit = $conf->liste_limit;
+$offset = $limit * $page ;
+
+$sql = "SELECT f.facnumber, f.rowid as facid, l.fk_product, l.description, l.total_ttc as price, l.qty, l.rowid, l.tva_taux, l.fk_code_ventilation, c.intitule, c.numero ";
+$sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn_det as l";
+$sql .= " , ".MAIN_DB_PREFIX."facture_fourn as f";
+$sql .= " , ".MAIN_DB_PREFIX."compta_compte_generaux as c";
+
+$sql .= " WHERE f.rowid = l.fk_facture_fourn AND f.fk_statut = 1 AND l.fk_code_ventilation <> 0 ";
+$sql .= " AND c.rowid = l.fk_code_ventilation";
+
+if (strlen(trim($_GET["search_facture"])))
+{
+  $sql .= " AND f.facnumber like '%".$_GET["search_facture"]."%'";
+}
+
+$sql .= " ORDER BY l.rowid DESC";
+$sql .= $db->plimit($limit+1,$offset);
+
+$result = $db->query($sql);
+
+if ($result)
+{
+  $num_lignes = $db->num_rows($result);
+  $i = 0; 
+  
+  print_barre_liste("Lignes de facture ventiles",$page,"lignes.php","",$sortfield,$sortorder,'',$num_lignes);
+
+  print '<form method="GET" action="lignes.php">';
+  print '<table class="noborder" width="100%">';
+  print "<tr class=\"liste_titre\"><td>Facture</td>";
+  print '<td>'.$langs->trans("Description").'</td>';
+  print '<td align="right">'.$langs->trans("Montant").'</td>';
+  print '<td colspan="2" align="center">'.$langs->trans("Compte").'</td>';
+  print "</tr>\n";
+  
+  print '<tr class="liste_titre"><td><input name="search_facture" size="8" value="'.$_GET["search_facture"].'"></td>';
+  print '<td><input type="submit"></td>';
+  print '<td align="right">&nbsp;</td>';
+  print '<td align="center">&nbsp;</td>';
+  print '<td align="center">&nbsp;</td>';
+  print "</tr>\n";
+
+  $var=True;
+  while ($i < min($num_lignes, $limit))
+    {
+      $objp = $db->fetch_object($result);
+      $var=!$var;
+      print "<tr $bc[$var]>";
+      
+      print '<td><a href="'.DOL_URL_ROOT.'/compta/facture.php?facid='.$objp->facid.'">'.$objp->facnumber.'</a></td>';
+
+      print '<td>'.stripslashes(nl2br($objp->description)).'</td>';
+      print '<td align="right">'.price($objp->price).'</td>';   
+      print '<td align="right">'.$objp->numero.'</td>';
+      print '<td align="left">'.stripslashes($objp->intitule).'</td>';
+
+      print "</tr>";
+      $i++;
+    }
+}
+else
+{
+  print $db->error();
+}
+
+print "</table></form>";
+
+$db->close();
+
+llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</em>");
+?>

htdocs/compta/ventilation/fournisseur/liste.php

+<?php
+/* Copyright (C) 2002-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+ * Copyright (C) 2004      ric Seigne          <eric.seigne@ryxeo.com>
+ * 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.
+ *
+ * $Id$
+ * $Source$
+ *
+ */
+
+
+/*!	    
+  \file       htdocs/compta/ventilation/liste.php
+  \ingroup    compta
+  \brief      Page de ventilation des lignes de facture
+  \version    $Revision$
+*/
+
+require("./pre.inc.php");
+
+$user->getrights('facture');
+$user->getrights('banque');
+$langs->load("bills");
+
+if (!$user->rights->facture->lire) accessforbidden();
+if (!$user->rights->compta->ventilation->creer) accessforbidden();
+/*
+ * Scurit accs client
+ */
+if ($user->societe_id > 0) accessforbidden();
+
+
+llxHeader('','Ventilation');
+
+/*
+ * Lignes de factures
+ *
+ */
+$page = $_GET["page"];
+if ($page < 0) $page = 0;
+$limit = $conf->liste_limit;
+$offset = $limit * $page ;
+
+$sql = "SELECT f.facnumber, f.rowid as facid, l.fk_product, l.description, l.total_ttc as price, l.rowid, l.fk_code_ventilation ";
+$sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn_det as l";
+$sql .= " , ".MAIN_DB_PREFIX."facture_fourn as f";
+$sql .= " WHERE f.rowid = l.fk_facture_fourn AND f.fk_statut = 1 AND fk_code_ventilation = 0";
+$sql .= " ORDER BY l.rowid DESC ".$db->plimit($limit+1,$offset);
+
+$result = $db->query($sql);
+if ($result)
+{
+  $num_lignes = $db->num_rows($result);
+  $i = 0; 
+  
+  print_barre_liste("Lignes de facture  ventiler",$page,"liste.php","",$sortfield,$sortorder,'',$num_lignes);
+
+  print '<table class="noborder" width="100%">';
+  print '<tr class="liste_titre"><td>Facture</td>';
+  print '<td>'.$langs->trans("Description").'</td>';
+  print '<td align="right">&nbsp;</td>';
+  print '<td>&nbsp;</td>';
+  print "</tr>\n";
+
+  $var=True;
+  while ($i < min($num_lignes, $limit))
+    {
+      $objp = $db->fetch_object($result);
+      $var=!$var;
+      print "<tr $bc[$var]>";
+      
+      print '<td><a href="'.DOL_URL_ROOT.'/fourn/facture/fiche.php?facid='.$objp->facid.'">'.$objp->facnumber.'</a></td>';
+      print '<td>'.stripslashes(nl2br($objp->description)).'</td>';                       
+
+      print '<td align="right">';
+      print price($objp->price);
+      print '</td>';
+
+      print '<td align="right"><a href="fiche.php?id='.$objp->rowid.'">';
+      print img_edit();
+      print '</a></td>';
+
+      print "</tr>";
+      $i++;
+    }
+    
+print "</table>";
+  
+  
+  
+}
+else
+{
+  print $db->error();
+}
+$db->close();
+
+llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</em>");
+?>

htdocs/compta/ventilation/fournisseur/pre.inc.php

+<?php
+/* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org> 
+ * Copyright (C) 2004-2005 Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2005 Simon Tosser  <simon@kornog-computing.com>
+ *
+ * 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$
+ */
+
+/**
+        \file   	htdocs/compta/ventilation/fournisseur/pre.inc.php
+        \ingroup    compta
+        \brief  	Fichier gestionnaire du menu compta ventilation
+*/
+
+require("../../../main.inc.php");
+$user->getrights('');
+
+function llxHeader($head = "", $title="", $help_url='')
+{
+    global $user, $conf, $langs;
+
+    top_menu($head, $title);
+
+    $menu = new Menu();
+
+    $langs->load("commercial");
+    $menu->add(DOL_URL_ROOT."/compta/clients.php", $langs->trans("Customers"));
+
+    $menu->add(DOL_URL_ROOT."/compta/ventilation/",$langs->trans("Ventilation")." ".$langs->trans("Customers"));
+    $menu->add(DOL_URL_ROOT."/compta/ventilation/fournisseur/",$langs->trans("Ventilation")." ".$langs->trans("Suppliers"));
+    $menu->add_submenu(DOL_URL_ROOT."/compta/ventilation/fournisseur/liste.php",$langs->trans("A ventiler"));
+    $menu->add_submenu(DOL_URL_ROOT."/compta/ventilation/fournisseur/lignes.php",$langs->trans("Ventiles"));
+
+    $menu->add(DOL_URL_ROOT."/compta/export/",$langs->trans("Export"));
+
+
+    left_menu($menu->liste, $help_url);
+}
+
+?>