dolibarr/htdocs/compta/facture.php3

<?PHP
/* Copyright (C) 2002 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 *
 * 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.php3");
require("../facture.class.php3");

llxHeader();

$db = new Db();

$yn[1] = "oui";
$yn[0] = "<b>non</b>";
	
if ($action == 'valid') 
{
  $fac = new Facture($db);
  $result = $fac->set_valid($facid, $user->id);
}

if ($action == 'payed') 
{
  $fac = new Facture($db);
  $result = $fac->set_payed($facid);
}

if ($action == 'delete') 
{
  $fac = new Facture($db);
  $fac->delete($facid);
  $facid = 0 ;
}


if ($action == 'add') 
{
  $datefacture = $db->idate(mktime(12, 0 , 0, $pmonth, $pday, $pyear)); 
  
  if (! $propalid) 
    {

      $facture = new Facture($db, $socid);
      $facture->number = $facnumber;
      $facture->date = $datefacture;
      
      $facture->note = $note;
      $facture->amount = $amount;
      $facture->remise = $remise;
      
      $facture->create($user->id, $statut, $note);

    }
  else
    {

      $facture = new Facture($db, $socid);

      $facture->number   = $facnumber;
      $facture->date     = $datefacture;      
      $facture->note     = $note;
      $facture->amount   = $amount;
      $facture->remise   = $remise;
      $facture->propalid = $propalid;

      if ($facture->create($user->id) )
	{

	      /*
	       *
	       * G<EFBFBD>n<EFBFBD>ration du PDF
	       *
	       */
	      
	      //      print "<hr><b>G<>n<EFBFBD>ration du PDF</b><p>";
	      
	      //      $command = "export DBI_DSN=\"".$GLOBALS["DBI"]."\" ";
	      //      $command .= " ; ../../scripts/facture-tex.pl --facture=$facid --pdf --ps"  ;
	      
	      //      $output = system($command);
	      //      print "<p>command : $command<br>";
	      
	}
      else
	{
	  print "<p><b>Erreur : la facture n'a pas <20>t<EFBFBD> cr<63><72>e, v<>rifier le num<75>ro !</b>";
	  print "<p>Retour <20> la <a href=\"propal.php3?propalid=$propalid\">propal</a>";
	  print $db->error();
	}
    }
  $facid = $facid;
  $action = '';
  
}
/*
 *
 * Mode creation
 *
 *
 *
 */

if ($action == 'create') 
{
  print_titre("Emettre une facture");

  if ($propalid) 
    {

      $sql = "SELECT s.nom, s.prefix_comm, s.idp, p.price, p.remise, p.tva, p.total, p.ref, ".$db->pdate("p.datep")." as dp, c.id as statut, c.label as lst";
      $sql .= " FROM societe as s, llx_propal as p, c_propalst as c WHERE p.fk_soc = s.idp AND p.fk_statut = c.id";
      
      $sql .= " AND p.rowid = $propalid";
    } else {
      
      $sql = "SELECT s.nom, s.prefix_comm, s.idp ";
      $sql .= "FROM societe as s ";
      $sql .= "WHERE s.idp = $socidp";
      
    }

  if ( $db->query($sql) ) 
    {
      $num = $db->num_rows();
      if ($num) {
	$obj = $db->fetch_object(0);
	
	$numfa = "F-" . $obj->prefix_comm . "-" . strftime("%y%m%d", time());
	
	print "<form action=\"$PHP_SELF\" method=\"post\">";
	print "<input type=\"hidden\" name=\"action\" value=\"add\">";
	print "<input type=\"hidden\" name=\"socid\" value=\"$obj->idp\">";
	
	print '<table cellspacing="0" border="1" width="100%">';
	
	print "<tr bgcolor=\"#e0e0e0\"><td>Soci<63>t<EFBFBD> :</td><td>$obj->nom</td></tr>";
	
	if ($propalid)
	  {
	    $amount = ($obj->price - $obj->remise);
	    print '<input type="hidden" name="amount"   value="'.$amount.'">';
	    print '<input type="hidden" name="total"    value="'.$obj->total.'">';
	    print '<input type="hidden" name="remise"   value="'.$obj->remise.'">';
	    print '<input type="hidden" name="tva"      value="'.$obj->tva.'">';
	    print '<input type="hidden" name="propalid" value="'.$propalid.'">';
	    
	    print "<tr><td>Propal :</td><td>$obj->ref</td></tr>";
	    print '<tr bgcolor="#e0e0e0"><td>Montant HT :</td><td>'.price($amount).'</td></tr>';
	    print "<tr bgcolor=\"#e0e0e0\"><td>TVA 19.6% :</td><td>".price($obj->tva)."</td></tr>";
	    print "<tr bgcolor=\"#e0e0e0\"><td>Total TTC :</td><td>".price($obj->total)."</td></tr>";
	  
	  }
	else
	  {
	    
	    print '<tr bgcolor="#e0e0e0"><td>Montant HT :</td><td>';	    
	    print '<input name="amount" type="text" value=""></td></tr>';	    
	    print '</td></tr>';
	    
	    print '<tr bgcolor="#e0e0e0"><td>Remise :</td><td>';
	    print '<input name="remise" type="text" value=""></td></tr>';
	    print '</td></tr>';
	  }
	
	print "<input type=\"hidden\" name=\"author\" value=\"$author\">";
	print "<tr><td>Auteur :</td><td>".$user->fullname."</td></tr>";
	
	print "<tr><td>Date :</td><td>";
	$cday = date("d", time());
	print "<select name=\"pday\">";    
	for ($day = 1 ; $day < $sday + 32 ; $day++)
	  {
	    if ($day == $cday)
	      {
		print "<option value=\"$day\" SELECTED>$day";
	      }
	    else
	      {
		print "<option value=\"$day\">$day";
	      }
	  }
	print "</select>";
	$cmonth = date("n", time());
	print "<select name=\"pmonth\">";    
	for ($month = 1 ; $month <= 12 ; $month++)
	  {
	    if ($month == $cmonth)
	      {
		print "<option value=\"$month\" SELECTED>" . $strmonth[$month];
	      }
	    else 
	      {
		print "<option value=\"$month\">" . $strmonth[$month];
	      }
	  }
	print "</select>";
	
	print "<select name=\"pyear\">";
	$syear = date("Y", time() ) ;
	print "<option value=\"".($syear-1)."\">".($syear-1);
	print "<option value=\"$syear\" SELECTED>$syear";
	
	for ($year = $syear +1 ; $year < $syear + 5 ; $year++)
	  {
	    print "<option value=\"$year\">$year";
	  }
	print "</select></td></tr>";
	print "<tr><td>Num<75>ro :</td><td> <input name=\"facnumber\" type=\"text\" value=\"$numfa\"></td></tr>";
	
	print '<tr><td colspan="2">Commentaires :<br></td></tr>';
	print '<tr><td colspan="2">';
	print '<textarea name="note" wrap="soft" cols="60" rows="15"></textarea></td></tr>';
	
	print "<tr><td colspan=\"3\" align=\"center\"><input type=\"submit\" value=\"Enregistrer\"></td></tr>";
	print "</form>";
	print "</table>";
	
      }
    } 
  else 
    {
      print $db->error();
    }


} 
else 
/* *************************************************************************** */
/*                                                                             */
/*                                                                             */
/*                                                                             */
/* *************************************************************************** */
{
  
  if ($facid > 0) {
    
    $sql = "SELECT s.nom as socnom, s.idp as socidp, f.facnumber, f.amount, f.total, ".$db->pdate("f.datef")." as df, f.paye, f.fk_statut as statut, f.fk_user_author, f.note";
    $sql .= " FROM societe as s,llx_facture as f WHERE f.fk_soc = s.idp AND f.rowid = $facid";

    $result = $db->query( $sql);
  
    if ($result)
      {
	$num = $db->num_rows();
	if ($num)
	  {
	    $obj = $db->fetch_object( $i);    
	  }
	$db->free();
      }
    else
      {
	print $db->error();
      }

    $author = new User($db);
    $author->id = $obj->fk_user_author;
    $author->fetch();

    print_titre("Facture : ".$obj->facnumber);
  
    print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"2\" width=\"100%\">";
    print "<tr><td width=\"50%\">";
    /*
     *   Facture
     */
    print "<table border=\"1\" cellspacing=\"0\" cellpadding=\"2\" width=\"100%\">";
    print "<tr><td>Soci<63>t<EFBFBD></td>";
    print "<td colspan=\"3\">";
    print "<b><a href=\"fiche.php3?socid=$obj->socidp\">$obj->socnom</a></b></td></tr>";

    print "<tr><td>Date</td>";
    print "<td colspan=\"3\">".strftime("%A %d %B %Y",$obj->df)."</td></tr>\n";
    print "<tr><td>".translate("Author")."</td><td colspan=\"3\">$author->fullname</td>";
  
    print '<tr><td>Montant</td>';
    print '<td align="right" colspan="2"><b>'.price($obj->amount).'</b></td>';
    print '<td>euros HT</td></tr>';
    print '<tr><td>TVA</td><td align="right" colspan="2">'.tva($obj->amount).'</td>';
    print '<td>euros</td></tr>';
    print '<tr><td>Total</td><td align="right" colspan="2">'.price($obj->total).'</td>';
    print '<td>euros TTC</td></tr>';

    print '<tr><td>Statut</td><td align="center">'.$obj->statut.'</td>';
    print "<td>".translate("Payed")."</td>";
    print "<td align=\"center\" bgcolor=\"#f0f0f0\"><b>".$yn[$obj->paye]."</b></td></tr>";
    print "</table>";
  
    print "</td><td valign=\"top\">";

    $_MONNAIE="euros";

    /*
     * Paiements
     */
    $sql = "SELECT ".$db->pdate("datep")." as dp, p.amount, c.libelle as paiement_type, p.num_paiement, p.rowid";
    $sql .= " FROM llx_paiement as p, c_paiement as c WHERE p.fk_facture = $facid AND p.fk_paiement = c.id";
  
    $result = $db->query($sql);
    if ($result) {
      $num = $db->num_rows();
      $i = 0; $total = 0;
      print "<p><b>Paiements</b>";
      echo '<TABLE border="0" width="100%" cellspacing="0" cellpadding="3">';
      print "<TR class=\"liste_titre\">";
      print "<td>Date</td>";
      print "<td>Type</td>";
      print "<td align=\"right\">Montant</TD><td>&nbsp;</td>";
      print "</TR>\n";
    
      $var=True;
      while ($i < $num) {
	$objp = $db->fetch_object( $i);
	$var=!$var;
	print "<TR $bc[$var]>";
	print "<TD>".strftime("%d %B %Y",$objp->dp)."</TD>\n";
	print "<TD>$objp->paiement_type $objp->num_paiement</TD>\n";
	print "<TD align=\"right\">".price($objp->amount)."</TD><td>$_MONNAIE</td>\n";
	print "</tr>";
	$total = $total + $objp->amount;
	$i++;
      }

      if ($obj->paye == 0) {
	print "<tr><td colspan=\"2\" align=\"right\">Total :</td><td align=\"right\"><b>".price($total)."</b></td><td>$_MONNAIE</td></tr>\n";
	print "<tr><td colspan=\"2\" align=\"right\">Factur<75> :</td><td align=\"right\" bgcolor=\"#d0d0d0\">".price($obj->total)."</td><td bgcolor=\"#d0d0d0\">$_MONNAIE</td></tr>\n";
	
	$resteapayer = $obj->total - $total;

	print "<tr><td colspan=\"2\" align=\"right\">Reste a payer :</td>";
	print "<td align=\"right\" bgcolor=\"#f0f0f0\"><b>".price($resteapayer)."</b></td><td bgcolor=\"#f0f0f0\">$_MONNAIE</td></tr>\n";
      }
      print "</table>";
      $db->free();
    } else {
      print $db->error();
    }

    print "</td></tr>";
    print "<tr><td>Note : ".nl2br($obj->note)."</td></tr>";
    print "</table>";

    print "<p><TABLE border=\"1\" width=\"100%\" cellspacing=\"0\" cellpadding=\"4\"><tr>";
    /*
     * Ajouter une ligne
     *
     */
    if ($obj->statut == 0) 
      {

      }
    /*
     * Fin Ajout ligne
     *
     */
    
    if ($obj->statut == 0) 
      {
	print "<td align=\"center\" width=\"25%\">[<a href=\"$PHP_SELF?facid=$facid&action=delete\">Supprimer</a>]</td>";
      } 
    else 
      {
	print "<td align=\"center\" width=\"25%\">-</td>";
      } 

    if ($obj->statut == 1 && $resteapayer > 0) 
      {
	print "<td align=\"center\" width=\"25%\">[<a href=\"paiement.php3?facid=$facid&action=create\">Emettre un paiement</a>]</td>";
      }
    else
      {
	print "<td align=\"center\" width=\"25%\">-</td>";
      }

    if ($obj->statut == 1 && abs($resteapayer == 0) && $obj->paye == 0) 
      {
	print "<td align=\"center\" width=\"25%\">[<a href=\"$PHP_SELF?facid=$facid&action=payed\">Classer 'Pay<61>e'</a>]</td>";
      }
    else
      {
	print "<td align=\"center\" width=\"25%\">-</td>";
      }
    
    if ($obj->statut == 0) 
      {
	print "<td align=\"center\" bgcolor=\"#e0e0e0\" width=\"25%\">[<a href=\"$PHP_SELF?facid=$facid&action=valid\">Valider</a>]</td>";
      }
    else
      {
	print "<td align=\"center\" width=\"25%\"><a href=\"facture.php3?facid=$facid&action=pdf\">G<>n<EFBFBD>rer la facture</a></td>";
      }
    print "</tr></table><p>";

    /*
     * Documents g<EFBFBD>n<EFBFBD>r<EFBFBD>s
     *
     */
    print "<hr>";
    print "<table width=\"100%\" cellspacing=2><tr><td width=\"50%\" valign=\"top\">";
    print "<b>Documents g<>n<EFBFBD>r<EFBFBD>s</b><br>";
    print "<table width=\"100%\" cellspacing=0 border=1 cellpadding=3>";

    $file = $GLOBALS["GLJ_ROOT"] . "/www-sys/doc/facture/$obj->facnumber/$obj->facnumber.pdf";
    if (file_exists($file)) {
      print "<tr><td>Propale PDF</a></td><td><a href=\"../../doc/facture/$obj->facnumber/$obj->facnumber.pdf\">$obj->facnumber.pdf</a></td></tr>";
    }  
    $file = $GLOBALS["GLJ_ROOT"] . "/www-sys/doc/facture/$obj->facnumber/$obj->facnumber.ps";
    if (file_exists($file)) {
      print "<tr><td>Propale Postscript</a></td><td><a href=\"../../doc/facture/$obj->facnumber/$obj->facnumber.ps\">$obj->facnumber.ps</a></td>";
      print "</tr>";
    }
    print "<tr><td colspan=\"2\">(<a href=\"../../doc/facture/$obj->facnumber/\">liste...</a>)</td></tr>";  

    print "</table>\n</table>";
  
    /*
     * Generation de la facture
     *
     */
    if ($action == 'pdf') {
      print "<hr><b>G<>n<EFBFBD>ration de la facture</b><br>";
      $command = "export DBI_DSN=\"dbi:mysql:dbname=lolixfr\" ";
      $command .= " ; ../../scripts/facture-tex.pl --html -vv --facture=$facid --pdf --gljroot=" . $GLOBALS["GLJ_ROOT"] ;
    
      $output = system($command);
      print "<p>command :<br><small>$command</small><br>";
      print "<p>output :<br><small>$output</small><br>";
    } 


    /*
     *   Propales
     */
  
    $sql = "SELECT ".$db->pdate("p.datep")." as dp, p.price, p.ref, p.rowid as propalid";
    $sql .= " FROM llx_propal as p, llx_fa_pr as fp WHERE fp.fk_propal = p.rowid AND fp.fk_facture = $facid";
  
    $result = $db->query($sql);
    if ($result) {
      $num = $db->num_rows();
      if ($num) {
	$i = 0; $total = 0;
	print "<p><b>Proposition(s) commerciale(s) associ<63>e(s)</b>";
	print '<TABLE border="1" width="100%" cellspacing="0" cellpadding="4">';
	print "<TR class=\"liste_titre\">";
	print "<td>Num</td>";
	print "<td>Date</td>";
	print "<td align=\"right\">Prix</TD>";
	print "</TR>\n";
    
	$var=True;
	while ($i < $num) {
	  $objp = $db->fetch_object( $i);
	  $var=!$var;
	  print "<TR $bc[$var]>";
	  print "<TD><a href=\"propal.php3?propalid=$objp->propalid\">$objp->ref</a></TD>\n";
	  print "<TD>".strftime("%d %B %Y",$objp->dp)."</TD>\n";
	  print '<TD align="right">'.price($objp->price).'</TD>';
	  print "</tr>";
	  $total = $total + $objp->price;
	  $i++;
	}
	print "<tr><td align=\"right\" colspan=\"3\">Total : <b>".price($total)."</b> $_MONNAIE HT</td></tr>\n";
	print "</table>";
      }
    } else {
      print $db->error();
    }

  } else {
    /*
     *
     * Liste
     *
     *
     */
    print_barre_liste("Factures",$page,$PHP_SELF);

    $sql = "SELECT s.nom,s.idp,f.facnumber,f.amount,".$db->pdate("f.datef")." as df,f.paye,f.rowid as facid";
    $sql .= " FROM societe as s,llx_facture as f WHERE f.fk_soc = s.idp";
  
    if ($socidp) {
      $sql .= " AND s.idp = $socidp";
    }
  
    if ($month > 0) {
      $sql .= " AND date_format(f.datef, '%m') = $month";
    }
    if ($year > 0) {
      $sql .= " AND date_format(f.datef, '%Y') = $year";
    }
  
    $sql .= " ORDER BY f.fk_statut, f.paye, f.datef DESC ";
  
    $result = $db->query($sql);
    if ($result) {
      $num = $db->num_rows();
    
      $i = 0;
      print "<TABLE border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"4\">";
      print '<TR class="liste_titre">';
      print "<TD>Num&eacute;ro</TD><td>";
      print_liste_field_titre("Soci<EFBFBD>t<EFBFBD>",$PHP_SELF,"s.nom");
      print "</td><TD align=\"right\">Date</TD><TD align=\"right\">Montant</TD>";

      print "</TR>\n";
    
      if ($num > 0) {
	$var=True;
	while ($i < $num) {
	  $objp = $db->fetch_object( $i);
	  $var=!$var;
	
	  if ($objp->paye && !$sep) {
	    print "<tr><td colspan=\"3\" align=\"right\">";
	    print "&nbsp;</small></td>";
	    print "<td align=\"right\">Sous Total :<b> ".price($total)."</b></td></tr>";
	  
	    print '<TR class="liste_titre">';
	    print "<TD>Num&eacute;ro</TD><td>";
	    print_liste_field_titre("Soci<EFBFBD>t<EFBFBD>",$PHP_SELF,"s.nom");
	    print "</td><TD align=\"right\">Date</TD><TD align=\"right\">Montant</TD>";

	    $sep = 1 ; $j = 0;
	    $subtotal = 0;
	  }
	
	  print "<TR $bc[$var]>";
	  print "<td><a href=\"facture.php3?facid=$objp->facid\">";
	  if ($objp->paye) {
	    print $objp->facnumber;
	  } else {
	    print '<b>'.$objp->facnumber.'</b>';
	  }
	  print "</a></TD>\n";
	  print "<TD><a href=\"fiche.php3?socid=$objp->idp\">$objp->nom</a></TD>\n";
	
	  if ($objp->df > 0 ) {
	    print "<TD align=\"right\">";
	    $y = strftime("%Y",$objp->df);
	    $m = strftime("%m",$objp->df);
	  
	    print strftime("%d",$objp->df)."\n";
	    print " <a href=\"facture.php3?year=$y&month=$m\">";
	    print strftime("%B",$objp->df)."</a>\n";
	    print " <a href=\"facture.php3?year=$y\">";
	    print strftime("%Y",$objp->df)."</a></TD>\n";
	  } else {
	    print "<TD align=\"right\"><b>!!!</b></TD>\n";
	  }
	
	  print "<TD align=\"right\">".price($objp->amount)."</TD>\n";
	
	  $total = $total + $objp->amount;
	  $subtotal = $subtotal + $objp->amount;	  


	  print "</TR>\n";
	  $i++;
	  $j++;
	
	}
      }
      if ($i == 0) { $i=1; }  if ($j == 0) { $j=1; }
      print "<tr><td></td><td>$j factures</td><td colspan=\"1\" align=\"right\">&nbsp;</td>";
      print "<td align=\"right\">Sous Total :<b> ".price($subtotal)."</b></td></tr>";
    
      print "<tr bgcolor=\"#d0d0d0\"><td></td><td>$i factures</td><td colspan=\"1\" align=\"right\">&nbsp;</td>";
      print "<td align=\"right\"><b>Total <small>(euros HT)</small>: ".price($total)."</b></td></tr>";
    
      print "</TABLE>";
      $db->free();
    } else {
      print $db->error();
    }

  }

}

$db->close();

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