Fichier devenu inutile
This commit is contained in:
Rodolphe Quiedeville
parent
752f7e60e3
commit
641f20539a
@ -1,250 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
# Copyright (C) 2000-2002 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
||||||
#
|
|
||||||
# $Id$
|
|
||||||
# $Source$
|
|
||||||
#
|
|
||||||
# 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/
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use POSIX;
|
|
||||||
use DBI;
|
|
||||||
use Sys::Syslog qw(:DEFAULT setlogsock);
|
|
||||||
use Getopt::Long;
|
|
||||||
Getopt::Long::Configure("bundling");
|
|
||||||
|
|
||||||
Sys::Syslog::setlogsock('unix');
|
|
||||||
Sys::Syslog::openlog($0, 'pid', 'daemon');
|
|
||||||
|
|
||||||
|
|
||||||
my($debug, $verbose, $bgcolor, $idpropal, $do_fax, $do_pdf, $do_ps,
|
|
||||||
$templatesdir, $outputdir) = (0,0);
|
|
||||||
|
|
||||||
exit unless GetOptions("propal=i" =>\$idpropal,
|
|
||||||
"fax" =>\$do_fax,
|
|
||||||
"templates=s" =>\$templatesdir,
|
|
||||||
"output=s" =>\$outputdir,
|
|
||||||
"ps" =>\$do_ps,
|
|
||||||
"pdf" =>\$do_pdf,
|
|
||||||
"v+" =>\$verbose);
|
|
||||||
|
|
||||||
Sys::Syslog::syslog('info', 'Start propale '.$idpropal);
|
|
||||||
Sys::Syslog::syslog('info', '['.$idpropal.'] Start');
|
|
||||||
my $DEBUG = 1;
|
|
||||||
|
|
||||||
my $mdir = "$outputdir";
|
|
||||||
unless (-d $mdir) {
|
|
||||||
mkdir($mdir,0777) || die "cannot mkdir " . $mdir . ": $!";
|
|
||||||
}
|
|
||||||
print "Output in : $outputdir\n" if $verbose > 1;
|
|
||||||
#
|
|
||||||
#
|
|
||||||
# Fetch datas
|
|
||||||
#
|
|
||||||
Sys::Syslog::syslog('info', '['.$idpropal.'] Fetch data');
|
|
||||||
my ($numpropale, $societe, $date, $ville, $destinataire, $price, $remise, $tva, $total);
|
|
||||||
|
|
||||||
my $dbh = DBI->connect("","","") || die $DBI::errstr ;
|
|
||||||
|
|
||||||
my $sql = "SELECT p.rowid, p.ref, s.nom, s.cp, s.ville, unix_timestamp(p.datep) as dp, c.name, c.firstname";
|
|
||||||
$sql .= " ,p.price, p.remise, p.tva, p.total";
|
|
||||||
$sql .= " FROM llx_propal as p, societe as s , socpeople as c";
|
|
||||||
$sql .= " WHERE s.idp = p.fk_soc AND p.fk_soc_contact = c.idp AND p.rowid = $idpropal";
|
|
||||||
|
|
||||||
my $sth = $dbh->prepare("$sql") || die $dbh->errstr ;
|
|
||||||
if ( $sth->execute ) {
|
|
||||||
|
|
||||||
if (! $sth->rows ) {
|
|
||||||
$sth->finish;
|
|
||||||
$dbh->disconnect if $dbh;
|
|
||||||
print "\n" . $dbh->errstr;
|
|
||||||
print "\n$sql\n";
|
|
||||||
exit ;
|
|
||||||
}
|
|
||||||
|
|
||||||
while (my $hsr = $sth->fetchrow_hashref ) {
|
|
||||||
$numpropale = $hsr->{"ref"};
|
|
||||||
$societe = $hsr->{"nom"};
|
|
||||||
$destinataire = $hsr->{"firstname"} . " " . $hsr->{"name"};
|
|
||||||
$date = $hsr->{"dp"};
|
|
||||||
$ville = $hsr->{"cp"} . " " . $hsr->{"ville"};
|
|
||||||
|
|
||||||
$price = $hsr->{"price"};
|
|
||||||
$remise = $hsr->{"remise"};
|
|
||||||
$tva = $hsr->{"tva"};
|
|
||||||
$total = $hsr->{"total"};
|
|
||||||
}
|
|
||||||
$sth->finish;
|
|
||||||
} else {
|
|
||||||
die $dbh->errstr;
|
|
||||||
}
|
|
||||||
|
|
||||||
$outputdir .= "/".$numpropale;
|
|
||||||
Sys::Syslog::syslog('info', '['.$idpropal.'] Outputdir : ' . $outputdir);
|
|
||||||
unless (-d $outputdir) {
|
|
||||||
print "Make dir : $outputdir\n" if $verbose > 1;
|
|
||||||
mkdir($outputdir,0777) || die "cannot mkdir " . $outputdir . ": $!";
|
|
||||||
}
|
|
||||||
|
|
||||||
print "Output in : $outputdir\n" if $verbose > 1;
|
|
||||||
|
|
||||||
my $adresse1 = "";
|
|
||||||
my $adresse2 = "";
|
|
||||||
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#
|
|
||||||
my $headerfilename = "$templatesdir/header.tex";
|
|
||||||
my $footerfilename = "$templatesdir/footer.tex";
|
|
||||||
my $bodyfilename = "$templatesdir/body.tex";
|
|
||||||
|
|
||||||
unless (open (FC, ">$outputdir/$numpropale.tex") ) {
|
|
||||||
print "can't write in $outputdir/$numpropale.tex: $!";
|
|
||||||
Sys::Syslog::syslog('info', '['.$idpropal.'] ' . $outputdir/$numpropale.'.tex opened');
|
|
||||||
Sys::Syslog::syslog('info', '['.$idpropal.'] ' . $!);
|
|
||||||
}
|
|
||||||
#
|
|
||||||
# Header
|
|
||||||
#
|
|
||||||
open (FH, "<$headerfilename") || die "can't open $headerfilename: $!";
|
|
||||||
while (<FH>) {
|
|
||||||
s|\#SOCIETE\#|$societe|g;
|
|
||||||
s|\#DESTINATAIRE\#|$destinataire|g;
|
|
||||||
s|\#ADRESSE1\#|$adresse1|g;
|
|
||||||
s|\#ADRESSE2\#|$adresse2|g;
|
|
||||||
s|\#VILLE\#|$ville|g;
|
|
||||||
|
|
||||||
s|\#NUMPROPALE\#|$numpropale|g;
|
|
||||||
s|\#DATE\#|$date|g;
|
|
||||||
|
|
||||||
print FC $_;
|
|
||||||
}
|
|
||||||
close (FH);
|
|
||||||
#
|
|
||||||
# Body
|
|
||||||
#
|
|
||||||
my $totalht = 0;
|
|
||||||
my ($qty, $ref, $pu, $pricep, $label);
|
|
||||||
#
|
|
||||||
my $sql = "SELECT p.price, pr.ref, pr.label, pr.description";
|
|
||||||
$sql .= " FROM llx_propaldet as p, llx_product as pr WHERE p.fk_propal = $idpropal AND p.fk_product = pr.rowid";
|
|
||||||
|
|
||||||
|
|
||||||
$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 = 1 ;
|
|
||||||
|
|
||||||
$pu = sprintf("%.2f", $hsr->{"price"});
|
|
||||||
$pricep = sprintf("%.2f", $hsr->{"price"});
|
|
||||||
|
|
||||||
open (FH, "<$bodyfilename") || die "can't open $bodyfilename: $!";
|
|
||||||
while (<FH>) {
|
|
||||||
s|\#LABEL\#|$hsr->{"description"}|g;
|
|
||||||
s|\#QTY\#|$qty|g;
|
|
||||||
s|\#REF\#|$ref|g;
|
|
||||||
s|\#PU\#|$pu|g;
|
|
||||||
s|\#PRICE\#|$pricep|g;
|
|
||||||
print FC $_;
|
|
||||||
}
|
|
||||||
close (FH);
|
|
||||||
}
|
|
||||||
|
|
||||||
$sth->finish;
|
|
||||||
}
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#
|
|
||||||
$totalht = $price - $remise ;
|
|
||||||
my $francsht = $totalht * 6.55957;
|
|
||||||
my $francsttc = $total * 6.55957;
|
|
||||||
#
|
|
||||||
# Footer
|
|
||||||
#
|
|
||||||
$price = sprintf("%.2f", $price);
|
|
||||||
$remise = sprintf("%.2f", $remise);
|
|
||||||
$totalht = sprintf("%.2f", $totalht);
|
|
||||||
$tva = sprintf("%.2f", $tva);
|
|
||||||
$total = sprintf("%.2f", $total);
|
|
||||||
|
|
||||||
$francsttc = sprintf("%.2f", $francsttc);
|
|
||||||
$francsht = sprintf("%.2f", $francsht);
|
|
||||||
|
|
||||||
|
|
||||||
$date = strftime("%d/%m/%Y", localtime($date));
|
|
||||||
#
|
|
||||||
open (FF, "<$footerfilename") || die "can't open $footerfilename: $!";
|
|
||||||
while (<FF>) {
|
|
||||||
s|\#SOCIETE\#|$societe|g;
|
|
||||||
|
|
||||||
s|\#DATE\#|$date|g;
|
|
||||||
s|\#TOTALHT\#|$totalht|g;
|
|
||||||
|
|
||||||
s|\#FRANCSHT\#|$francsht|g;
|
|
||||||
|
|
||||||
s|\#REMISEHT\#|$remise|g;
|
|
||||||
s|\#TVA\#|$tva|g;
|
|
||||||
s|\#TOTALTTC\#|$total|g;
|
|
||||||
|
|
||||||
s|\#FRANCSTTC\#|$francsttc|g;
|
|
||||||
|
|
||||||
print FC $_;
|
|
||||||
}
|
|
||||||
close (FF);
|
|
||||||
|
|
||||||
|
|
||||||
close (FC);
|
|
||||||
|
|
||||||
$dbh->disconnect if $dbh;
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#print "Generate dvi file<br>\n";
|
|
||||||
system("cd $outputdir/ ; latex $numpropale.tex > /dev/null");
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#
|
|
||||||
if ($do_pdf) {
|
|
||||||
#print "<p>Generate pdf file<br>\n";
|
|
||||||
system("cd $outputdir/ ; pdflatex $numpropale.tex > /dev/null");
|
|
||||||
}
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#
|
|
||||||
if ($do_ps) {
|
|
||||||
#print "Generate ps file\n";
|
|
||||||
system("cd $outputdir/ ; dvips $numpropale.dvi -o $numpropale.ps > /dev/null");
|
|
||||||
}
|
|
||||||
#
|
|
||||||
# $outputdir/$numpropale.tex
|
|
||||||
#
|
|
||||||
if ($do_fax) {
|
|
||||||
#print "Generate fax file\n";
|
|
||||||
system("gs -q -sDEVICE=tiffg3 -dNOPAUSE -sOutputFile=$outputdir/$numpropale.%03d $outputdir/$numpropale.ps </dev/null");
|
|
||||||
}
|
|
||||||
Sys::Syslog::syslog('info', 'End propale '.$idpropal);
|
|
||||||
Sys::Syslog::closelog();
|
|
||||||
#
|
|
||||||
#
|
|
||||||
#
|
|
||||||
|
|
||||||
#
|
|
||||||
# export DBI_DSN="dbi:mysql:dbname=lolixfr:host=espy" ; ../scripts/propal-tex.pl
|
|
||||||
#
|
|
||||||
Loading…
Reference in New Issue
Block a user