diff --git a/htdocs/compta/tex-facture.pl b/htdocs/compta/tex-facture.pl
deleted file mode 100644
index c25f0541353..00000000000
--- a/htdocs/compta/tex-facture.pl
+++ /dev/null
@@ -1,248 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2000-2003 Rodolphe Quiedeville
-#
-# 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$
-
-use strict;
-use POSIX;
-use DBI;
-use Getopt::Long;
- Getopt::Long::Configure("bundling");
-
-
-my($outputdir, $templatesdir, $debug, $verbose, $bgcolor, $idfacture, $do_fax, $do_pdf, $do_ps, $html) = (0,0);
-
-exit unless GetOptions("facture=i"   =>\$idfacture,
-		       "fax"         =>\$do_fax,
-		       "html"        =>\$html,
-		       "templates=s" =>\$templatesdir,
-		       "output=s"    =>\$outputdir,
-		       "ps"          =>\$do_ps,
-		       "pdf"         =>\$do_pdf,
-		       "v+"          =>\$verbose);
-
-unless (defined $ENV{"DBI_DSN"}) { print "Missing ENV var: DBI_DSN is not defined\n"; exit 0; }
-
-#
-#
-#
-
-unless (-d $outputdir) {
-    mkdir($outputdir,0777) || die "cannot mkdir " . $outputdir . ": $!";
-}
-
-#
-# Fetch datas
-#
-my ($numpropale, $numfacture, $societe, $remiseht, $date, $destinataire, $ville, $address);
-my ($totalht, $francsht,$remise,$tva,$total,$francsttc,$description);
-
-print "Fetch data\n" if $verbose;
-print "<br>" if ($verbose && $html); 
-
-my $dbh = DBI->connect() || die $DBI::errstr ; # We use env var DBI_DSN to connect to DB
-
-my $sql = "SELECT f.rowid, f.facnumber, s.nom, f.amount, f.remise, f.tva, f.total, unix_timestamp(f.datef) as df, s.ville, s.cp, s.address";
-$sql .= " FROM llx_facture as f, societe as s ";
-$sql .= " WHERE s.idp = f.fk_soc AND f.rowid = $idfacture";
-
-my $sth = $dbh->prepare("$sql") || die $dbh->errstr ;
-
-if ( $sth->execute )
-{
-
-    while (my $hsr = $sth->fetchrow_hashref )
-    {
-	$numfacture   = $hsr->{"facnumber"};
-	$societe      = $hsr->{"nom"};
-	$remiseht     = $hsr->{"remise"};
-	$date         = $hsr->{"df"};
-	$destinataire = $hsr->{"datep"};
-	$address      = $hsr->{"address"};
-	$ville        = $hsr->{"cp"} . " " . $hsr->{"ville"};
-
-	$totalht = sprintf("%.2f", $hsr->{"amount"});
-	$remise = sprintf("%.2f", $hsr->{"remise"});
-	$tva = sprintf("%.2f", $hsr->{"tva"});
-	$total = sprintf("%.2f", $hsr->{"total"});
-	$francsttc = sprintf("%.2f", ($hsr->{"total"} * 6.55957));
-
-	$numpropale = $hsr->{"propalref"};
-
-    }
-    $sth->finish;
-}
-else
-{
-    print "db error\n";
-}
-#
-#
-#
-$outputdir .= "/" . $numfacture;
-
-print "outputdir is $outputdir\n" if $verbose ;
-print "<br>" if ($verbose && $html); 
-
-unless (-d $outputdir) {
-    print "make $outputdir\n" if $verbose ;
-    print "<br>" if ($verbose && $html); 
-
-    unless ( mkdir($outputdir,0777) ) {
-	print "failed : $!\n" if $verbose ;
-    }
-}
-
-
-#
-#
-#
-my $headerfilename = "$templatesdir/header.tex";
-my $footerfilename = "$templatesdir/footer.tex";
-my $bodyfilename   = "$templatesdir/body.tex";
-
-$date = strftime("%d/%m/%Y", localtime($date));
-
-open (FC, ">$outputdir/$numfacture.tex") || die "can't write in $outputdir/$numfacture.tex: $!";
-
-##########################################################################################
-#
-# Header
-#
-##########################################################################################
-open (FH, "<$headerfilename") || die "can't open $headerfilename: $!";	
-while (<FH>)  {
-    s|\#SOCIETE\#|$societe|g;
-    s|\#ADDRESS\#|$address|g;
-
-    s|\#VILLE\#|$ville|g;
-    s|\#DESTINATAIRE\#|$destinataire|g;
-
-
-    s|\#NUMFACTURE\#|$numfacture|g;
-    s|\#DATE\#|$date|g;
-
-    print FC $_;
-}
-close (FH);
-##########################################################################################
-#
-# BODY
-#
-##########################################################################################
-
-
-my ($qty, $ref, $pu, $pricep, $label);
-#
-$sql = "SELECT l.price, l.qty, l.description";
-$sql .= " FROM llx_facturedet as l";
-$sql .= " WHERE l.fk_facture = $idfacture";
-
-
-$sth = $dbh->prepare("$sql") || die $dbh->errstr ;
-if ( $sth->execute )
-{
-    while (my $hsr = $sth->fetchrow_hashref )
-    {
-	$label = $hsr->{"label"};
-	$ref = $hsr->{"ref"};
-	$societe = $hsr->{"nom"};
-	$qty = $hsr->{"qty"};
-	
-	$pu     = sprintf("%.2f", $hsr->{"price"});
-	$pricep = sprintf("%.2f", $hsr->{"price"} * $qty);
-	
-	open (FB, "<$bodyfilename") || die "can't open $bodyfilename: $!";	
-	while (<FB>) 
-	{
-	    s|\#LABEL\#|$hsr->{"description"}|g;
-	    s|\#QTY\#|$qty|g;
-	    s|\#REF\#|$ref|g;
-	    s|\#PU\#|$pu|g;
-	    s|\#PRICE\#|$pricep|g;
-	    print FC $_;
-	}
-	close (FB);
-    }
-    
-    $sth->finish;
-}
-else
-{
-    print "** ERROR\n";
-    print "<br>" if ( $html); 
-}
-
-##########################################################################################
-#
-# Footer
-#
-##########################################################################################
-open (FF, "<$footerfilename") || die "can't open $footerfilename: $!";	
-while (<FF>)  {
-    s|\#SOCIETE\#|$societe|g;
-
-    s|\#DATE\#|$date|g;
-    s|\#TOTALHT\#|$totalht|g;
-
-    s|\#NUMPROPALE\#|$numpropale|g;
-
-    s|\#FRANCSHT\#|$francsht|g;
-
-    s|\#REMISEHT\#|$remise|g;
-    s|\#TVA\#|$tva|g;
-    s|\#TOTALTTC\#|$total|g;
-
-    s|\#FRANCS\#|$francsttc|g;
-	    
-    print FC $_;
-}
-close (FF);
-##########################################################################################
-#
-#
-#
-##########################################################################################
-
-close (FC);
-
-$dbh->disconnect if $dbh;
-#
-#
-#
-print "**\n** Generate dvi file\n**\n";
-print "<br>" if ($verbose && $html); 
-system("cd $outputdir/ ; latex $numfacture.tex "); 
-#
-#exit;
-
-print "<p>Generate pdf file<br>\n";
-print "<br>" if ($verbose && $html); 
-system("cd $outputdir/ ; pdflatex $numfacture.tex > /dev/null");
-
-
-#
-print "\n**\n** Generate ps file\n**\n";
-    print "<br>" if ($verbose && $html); 
-system("cd $outputdir/ ; dvips $numfacture.dvi -o $numfacture.ps > /dev/null");
-
-#
-# export DBI_DSN="dbi:mysql:dbname=lolixfr:host=espy" ; ../scripts/facture-tex.pl 
-#
diff --git a/htdocs/compta/texfacture.pl b/htdocs/compta/texfacture.pl
index b4195c44fe8..c25f0541353 100755
--- a/htdocs/compta/texfacture.pl
+++ b/htdocs/compta/texfacture.pl
@@ -15,6 +15,7 @@
 # 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$
@@ -243,5 +244,5 @@ print "\n**\n** Generate ps file\n**\n";
 system("cd $outputdir/ ; dvips $numfacture.dvi -o $numfacture.ps > /dev/null");
 
 #
-# export DBI_DSN="dbi:mysql:dbname=lolixfr:host=espy" ; ./texfacture.pl 
+# export DBI_DSN="dbi:mysql:dbname=lolixfr:host=espy" ; ../scripts/facture-tex.pl 
 #