mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-24 18:31:29 +01:00
251 lines
6.3 KiB
Perl
Executable File
251 lines
6.3 KiB
Perl
Executable File
#!/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
|
|
#
|