dolibarr-fork/htdocs/compta/sociales/index.php

<?php
/* Copyright (C) 2001-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.
 *
 * $Id$
 * $Source$
 *
 */

/** 
    	\file       htdocs/compta/sociales/index.php
		\ingroup    compta
		\brief      Ecran des charges sociales
		\version    $Revision$
*/


require("./pre.inc.php");

$user->getrights('facture');
$user->getrights('compta');

if (!$user->admin && !$user->rights->compta->charges->lire)
  accessforbidden();


llxHeader();


$sortfield = isset($_GET["sortfield"])?$_GET["sortfield"]:$_POST["sortfield"];
$sortorder = isset($_GET["sortorder"])?$_GET["sortorder"]:$_POST["sortorder"];
$page = $_GET["page"];
if ($page < 0) $page = 0;

$limit = $conf->liste_limit;
$offset = $limit * $page ;
  
if (! $sortfield) $sortfield="c.id";
if (! $sortorder) $sortorder="DESC";


/*
 * Ajout d'une charge sociale
 */

if ($_POST["action"] == 'add')
{
  if (! $_POST["date"] || ! $_POST["periode"] || ! $_POST["amount"]) {
    $mesg="<div class=\"error\">Erreur: Tous les champs date et montant doivent etre renseignés avec une valeur non vide.</div>";
  }
  else {

      $sql = "INSERT INTO ".MAIN_DB_PREFIX."chargesociales (fk_type, libelle, date_ech, periode, amount) ";
      $sql .= " VALUES (".$_POST["type"].",'".addslashes($_POST["libelle"])."','".$_POST["date"]."','".$_POST["periode"]."','".$_POST["amount"]."');";
    
      if (! $db->query($sql) )
        {
          dolibarr_print_error($db);
        }
      else {
        $mesg="<div class=\"ok\">La charge a été ajoutée.</div>";
      }
  }
}

/*
 * Suppression d'une charge sociale
 */

if ($_GET["action"] == 'del')
{
  $sql = "DELETE FROM ".MAIN_DB_PREFIX."chargesociales where rowid='".$_GET["id"]."'";

  if (! $db->query($sql) )
    {
          dolibarr_print_error($db);
    }
}



/*
 *  Affichage liste et formulaire des charges.
 */

$year=$_GET["year"];
$filtre=$_GET["filtre"];
//if (! $year) { $year=date("Y", time()); }

print_fiche_titre($langs->trans("SocialContributions"),($year?"<a href='index.php?year=".($year-1)."'>".img_previous()."</a> ".$langs->trans("Year")." $year <a href='index.php?year=".($year+1)."'>".img_next()."</a>":""));
print "<br>\n";

if ($mesg) {
    print "$mesg<br>";
}

print "<table class=\"noborder\" width=\"100%\">";

/*
 * Forumalaire d'ajout d'une charge
 *
 */
if ($user->rights->compta->charges->creer) {
    $var=false;

    print "<tr class=\"liste_titre\">";
    print '<td>';
    print '&nbsp;';
    print '</td><td align="left">';
    print $langs->trans("DateDue");
    print '</td><td align="left">';
    print $langs->trans("Period");
    print '</td><td align="left">';
    print $langs->trans("Type");
    print '</td><td align="left">';
    print $langs->trans("Label");
    print '</td><td align="right">';
    print $langs->trans("Amount");
    print '</td><td align="center">';
    print '&nbsp;';
    print '</td>';
    print "</tr>\n";

    print '<form method="post" action="index.php">';
    print '<tr '.$bc[$var].' valign="top">';
    print '<input type="hidden" name="action" value="add">';
    print '<td>&nbsp;</td>';
    print '<td><input type="text" size="8" name="date"><br>YYYYMMDD</td>';
    print '<td><input type="text" size="8" name="periode"><br>YYYYMMDD</td>';
    
    print '<td align="left"><select name="type">';
    
    $sql = "SELECT c.id, c.libelle as type FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
    $sql .= " ORDER BY lower(c.libelle) ASC";
    
    if ( $db->query($sql) )
    {
      $num = $db->num_rows();
      $i = 0;
    
      while ($i < $num)
        {
          $obj = $db->fetch_object();
          print '<option value="'.$obj->id.'">'.$obj->type;
          $i++;
        }
    }
    print '</select>';
    print '</td>';
    print '<td align="left"><input type="text" size="34" name="libelle"></td>';
    print '<td align="right"><input type="text" size="6" name="amount"></td>';
    
    print '<td align="center"><input type="submit" value="'.$langs->trans("Add").'"></td>';
    print '</tr>';

    print '</form>';

    print '<tr><td colspan="7">&nbsp;</td></tr>';

}

print "<tr class=\"liste_titre\">";
print_liste_field_titre($langs->trans("Ref"),"index.php","id","","","",$sortfield);
print_liste_field_titre($langs->trans("DateDue"),"index.php","de","","","",$sortfield);
print_liste_field_titre($langs->trans("Period"),"index.php","periode","","","",$sortfield);
print_liste_field_titre($langs->trans("Type"),"index.php","type","","",'align="left"',$sortfield);
print_liste_field_titre($langs->trans("Label"),"index.php","s.libelle","","",'align="left"',$sortfield);
print_liste_field_titre($langs->trans("Amount"),"index.php","s.amount","","",'align="right"',$sortfield);
print_liste_field_titre($langs->trans("Status"),"index.php","s.paye","","",'align="center"',$sortfield);
print "</tr>\n";


$sql = "SELECT s.rowid as id, s.fk_type as type, c.libelle as type_lib, s.amount,".$db->pdate("s.date_ech")." as de, s.date_pai, s.libelle, s.paye,".$db->pdate("s.periode")." as periode,".$db->pdate("s.date_pai")." as dp";
$sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."chargesociales as s";
$sql .= " WHERE s.fk_type = c.id";
if ($year > 0)
{
    $sql .= " AND (";
    // Si period renseigné on l'utilise comme critere de date, sinon on prend date échéance,
    // ceci afin d'etre compatible avec les cas ou la période n'etait pas obligatoire
    $sql .= "   (s.periode is not null and date_format(s.periode, '%Y') = $year) ";
    $sql .= "or (s.periode is null     and date_format(s.date_ech, '%Y') = $year)";
    $sql .= ")";
}
if ($filtre) {
    $filtre=ereg_replace(":","=",$filtre);
    $sql .= " AND $filtre";
}
if ($_GET["sortfield"]) {
    $sql .= " ORDER BY ".$_GET["sortfield"];    
}
else {
    $sql .= " ORDER BY lower(s.date_ech)";
}
if ($_GET["sortorder"]) {
    $sql .= " ".$_GET["sortorder"];
}
else {
    $sql .= " DESC";
}



if ( $db->query($sql) )
{
  $num = $db->num_rows();
  $i = 0;
  $var=true;

  while ($i < $num)
    {
      $obj = $db->fetch_object();

      $var = !$var;
      print "<tr $bc[$var]>";
      print '<td width="80">';
      print '<a href="charges.php?id='.$obj->id.'">'.img_file().' '.$obj->id.'</a>';
      print '</td>';

      print '<td width="110">'.dolibarr_print_date($obj->de).'</td>';
      print '<td>';
      if ($obj->periode) {
      	print '<a href="index.php?year='.strftime("%Y",$obj->periode).'">'.strftime("%Y",$obj->periode).'</a>';
      } else {
      	print '&nbsp;';
      }
      print '</td>';
      print '<td>'.$obj->type_lib.'</td><td>'.$obj->libelle.'</td>';
      print '<td align="right" width="100">'.price($obj->amount).'</td>';
      
      if ($obj->paye)
	{
	  print '<td align="center" class="normal"><a class="payee" href="index.php?filtre=paye:1">Payé</a></td>';
	} else {
	  print '<td align="center"><a class="impayee" href="index.php?filtre=paye:0">Impayé</a></td>';
	}
      print '</tr>';
      $i++;
    }
}
else
{
  dolibarr_print_error($db);
}

print '</table>';



$db->close();
 
llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</em>");
?>