forked from Wavyzz/dolibarr
326 lines
10 KiB
PHP
326 lines
10 KiB
PHP
<?php
|
|
/* Copyright (C) 2002-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004 Éric Seigne <eric.seigne@ryxeo.com>
|
|
* Copyright (C) 2004-2005 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2005-2006 Regis Houssin <regis.houssin@cap-networks.com>
|
|
*
|
|
* 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/commande/apercu.php
|
|
\ingroup commande
|
|
\brief Page de l'onglet aperçu d'une commande
|
|
\version $Revision$
|
|
*/
|
|
|
|
require("./pre.inc.php");
|
|
|
|
$user->getrights('commande');
|
|
$user->getrights('expedition');
|
|
|
|
if (!$user->rights->commande->lire)
|
|
accessforbidden();
|
|
|
|
$langs->load('propal');
|
|
$langs->load("bills");
|
|
$langs->load('compta');
|
|
$langs->load('sendings');
|
|
|
|
|
|
require_once(DOL_DOCUMENT_ROOT.'/commande/commande.class.php');
|
|
require_once(DOL_DOCUMENT_ROOT.'/propal.class.php');
|
|
|
|
if ($conf->projet->enabled)
|
|
{
|
|
require_once(DOL_DOCUMENT_ROOT."/project.class.php");
|
|
}
|
|
|
|
|
|
/*
|
|
* Sécurité accés client
|
|
*/
|
|
if ($user->societe_id > 0)
|
|
{
|
|
$action = '';
|
|
$socidp = $user->societe_id;
|
|
}
|
|
|
|
llxHeader();
|
|
|
|
$html = new Form($db);
|
|
|
|
/* *************************************************************************** */
|
|
/* */
|
|
/* Mode fiche */
|
|
/* */
|
|
/* *************************************************************************** */
|
|
|
|
if ($_GET["id"] > 0) {
|
|
$commande = new Commande($db);
|
|
|
|
if ( $commande->fetch($_GET["id"], $user->societe_id) > 0)
|
|
{
|
|
$soc = new Societe($db, $commande->socidp);
|
|
$soc->fetch($commande->socidp);
|
|
|
|
$h=0;
|
|
|
|
if ($conf->commande->enabled && $user->rights->commande->lire)
|
|
{
|
|
$head[$h][0] = DOL_URL_ROOT.'/commande/fiche.php?id='.$commande->id;
|
|
$head[$h][1] = $langs->trans('OrderCard');
|
|
$h++;
|
|
}
|
|
|
|
if ($conf->expedition->enabled && $user->rights->expedition->lire)
|
|
{
|
|
$head[$h][0] = DOL_URL_ROOT.'/expedition/commande.php?id='.$commande->id;
|
|
$head[$h][1] = $langs->trans('SendingCard');
|
|
$h++;
|
|
}
|
|
|
|
if ($conf->compta->enabled)
|
|
{
|
|
$head[$h][0] = DOL_URL_ROOT.'/compta/commande/fiche.php?id='.$commande->id;
|
|
$head[$h][1] = $langs->trans('ComptaCard');
|
|
$h++;
|
|
}
|
|
|
|
if ($conf->use_preview_tabs)
|
|
{
|
|
$head[$h][0] = DOL_URL_ROOT.'/commande/apercu.php?id='.$commande->id;
|
|
$head[$h][1] = $langs->trans("Preview");
|
|
$hselected=$h;
|
|
$h++;
|
|
}
|
|
|
|
$head[$h][0] = DOL_URL_ROOT.'/commande/info.php?id='.$commande->id;
|
|
$head[$h][1] = $langs->trans('Info');
|
|
$h++;
|
|
|
|
dolibarr_fiche_head($head, $hselected, $langs->trans('Order').': '.$commande->ref);
|
|
|
|
|
|
/*
|
|
* Commande
|
|
*/
|
|
/*
|
|
$sql = 'SELECT s.nom, s.idp, c.amount_ht, c.fk_projet, c.remise, c.tva, c.total_ttc, c.ref, c.fk_statut, '.$db->pdate('c.date_commande').' as dp, c.note,';
|
|
$sql.= ' x.firstname, x.name, x.fax, x.phone, x.email, c.fk_user_author, c.fk_user_valid, c.fk_user_cloture, c.date_creation, c.date_valid, c.date_cloture';
|
|
$sql.= ' FROM '.MAIN_DB_PREFIX.'societe as s, '.MAIN_DB_PREFIX.'commande as c, '.MAIN_DB_PREFIX.'socpeople as x';
|
|
$sql.= ' WHERE c.fk_soc = s.idp AND c.fk_soc_contact = x.idp AND c.rowid = '.$commande->id;
|
|
if ($socidp) $sql .= ' AND s.idp = '.$socidp;
|
|
|
|
$result = $db->query($sql);
|
|
|
|
|
|
|
|
|
|
if ($result) {
|
|
if ($db->num_rows($result)) {
|
|
$obj = $db->fetch_object($result);
|
|
*/
|
|
$societe = new Societe($db);
|
|
$societe->fetch($obj->idp);
|
|
|
|
print '<table class="border" width="100%">';
|
|
$rowspan=3;
|
|
// ligne 1
|
|
// partie Gauche
|
|
print '<tr><td>'.$langs->trans('Company').'</td><td colspan="3">';
|
|
if ($societe->client == 1)
|
|
{
|
|
$url = DOL_URL_ROOT.'/comm/fiche.php?socid='.$societe->id;
|
|
}
|
|
else
|
|
{
|
|
$url = DOL_URL_ROOT.'/comm/prospect/fiche.php?socid='.$societe->id;
|
|
}
|
|
print '<a href="'.$url.'">'.$societe->nom.'</a></td>';
|
|
// partie Droite
|
|
print '<td align="left">Conditions de réglement</td>';
|
|
print '<td>'.' '.'</td>';
|
|
print '</tr>';
|
|
|
|
// ligne 2
|
|
// partie Gauche
|
|
print '<tr><td>'.$langs->trans('Date').'</td><td colspan="3">';
|
|
print dolibarr_print_date($commande->date,'%a %e %B %Y');
|
|
print '</td>';
|
|
|
|
// partie Droite
|
|
print '<td>'.$langs->trans('DateEndPropal').'</td><td>';
|
|
if ($commande->fin_validite) {
|
|
print dolibarr_print_date($commande->fin_validite,'%a %d %B %Y');
|
|
} else {
|
|
print $langs->trans("Unknown");
|
|
}
|
|
print '</td>';
|
|
print '</tr>';
|
|
|
|
// Destinataire
|
|
$langs->load('mails');
|
|
// ligne 3
|
|
print '<tr>';
|
|
// partie Gauche
|
|
print '<td>'.$langs->trans('MailTo').'</td>';
|
|
|
|
$dests=$societe->contact_array($societe->id);
|
|
$numdest = count($dests);
|
|
print '<td colspan="3">';
|
|
if ($numdest==0) {
|
|
print '<font class="error">Cette societe n\'a pas de contact, veuillez en créer un avant de faire votre proposition commerciale</font><br>';
|
|
print '<a href="'.DOL_URL_ROOT.'/contact/fiche.php?socid='.$societe->id.'&action=create&backtoreferer=1">'.$langs->trans('AddContact').'</a>';
|
|
} else {
|
|
if (!empty($commande->contactid)) {
|
|
require_once(DOL_DOCUMENT_ROOT.'/contact.class.php');
|
|
$contact=new Contact($db);
|
|
$contact->fetch($commande->contactid);
|
|
print '<a href="'.DOL_URL_ROOT.'/contact/fiche.php?id='.$commande->contactid.'" title="'.$langs->trans('ShowContact').'">';
|
|
print $contact->firstname.' '.$contact->name;
|
|
print '</a>';
|
|
} else {
|
|
print ' ';
|
|
}
|
|
}
|
|
print '</td>';
|
|
|
|
// partie Droite sur $rowspan lignes
|
|
print '<td colspan="2" rowspan="'.$rowspan.'" valign="top" width="50%">';
|
|
|
|
|
|
/*
|
|
* Documents
|
|
*/
|
|
$commanderef = sanitize_string($commande->ref);
|
|
$file = $conf->commande->dir_output . "/" . $commanderef . "/" . $commanderef . ".pdf";
|
|
$filedetail = $conf->commande->dir_output . "/" . $commanderef . "/" . $commanderef . "-detail.pdf";
|
|
$relativepath = "${commanderef}/${commanderef}.pdf";
|
|
$relativepathdetail = "${commanderef}/${commanderef}-detail.pdf";
|
|
|
|
// Chemin vers png aperçus
|
|
$relativepathimage = "${commanderef}/${commanderef}.pdf.png";
|
|
$relativepathimagebis = "${commanderef}/${commanderef}.pdf.png.0";
|
|
$fileimage = $file.".png"; // Si PDF d'1 page
|
|
$fileimagebis = $file.".png.0"; // Si PDF de plus d'1 page
|
|
|
|
$var=true;
|
|
|
|
// Si fichier PDF existe
|
|
if (file_exists($file))
|
|
{
|
|
$encfile = urlencode($file);
|
|
print_titre($langs->trans("Documents"));
|
|
print '<table class="border" width="100%">';
|
|
|
|
print "<tr $bc[$var]><td>".$langs->trans("Propal")." PDF</td>";
|
|
|
|
print '<td><a href="'.DOL_URL_ROOT . '/document.php?modulepart=commande&file='.urlencode($relativepath).'">'.$commande->ref.'.pdf</a></td>';
|
|
print '<td align="right">'.filesize($file). ' bytes</td>';
|
|
print '<td align="right">'.strftime("%d %b %Y %H:%M:%S",filemtime($file)).'</td>';
|
|
print '</tr>';
|
|
|
|
// Si fichier detail PDF existe
|
|
if (file_exists($filedetail)) { // commande détaillée supplémentaire
|
|
print "<tr $bc[$var]><td>Commande détaillée</td>";
|
|
|
|
print '<td><a href="'.DOL_URL_ROOT . '/document.php?modulepart=commande&file='.urlencode($relativepathdetail).'">'.$commande->ref.'-detail.pdf</a></td>';
|
|
print '<td align="right">'.filesize($filedetail). ' bytes</td>';
|
|
print '<td align="right">'.strftime("%d %b %Y %H:%M:%S",filemtime($filedetail)).'</td>';
|
|
print '</tr>';
|
|
}
|
|
print "</table>\n";
|
|
|
|
// Conversion du PDF en image png si fichier png non existant
|
|
if (! file_exists($fileimage) && ! file_exists($fileimagebis))
|
|
{
|
|
if (function_exists("imagick_readimage"))
|
|
{
|
|
$handle = imagick_readimage( $file ) ;
|
|
if ( imagick_iserror( $handle ) )
|
|
{
|
|
$reason = imagick_failedreason( $handle ) ;
|
|
$description = imagick_faileddescription( $handle ) ;
|
|
|
|
print "handle failed!<BR>\nReason: $reason<BR>\nDescription: $description<BR>\n";
|
|
}
|
|
imagick_convert( $handle, "PNG" ) ;
|
|
if ( imagick_iserror( $handle ) )
|
|
{
|
|
$reason = imagick_failedreason( $handle ) ;
|
|
$description = imagick_faileddescription( $handle ) ;
|
|
print "handle failed!<BR>\nReason: $reason<BR>\nDescription: $description<BR>\n";
|
|
}
|
|
imagick_writeimage( $handle, $file .".png");
|
|
} else {
|
|
$langs->load("other");
|
|
print '<font class="error">'.$langs->trans("ErrorNoImagickReadimage").'</font>';
|
|
}
|
|
}
|
|
}
|
|
print "</td></tr>";
|
|
|
|
|
|
// ligne 4
|
|
// partie Gauche
|
|
print '<tr><td height="10" nowrap>'.$langs->trans('GlobalDiscount').'</td>';
|
|
print '<td colspan="3">'.$commande->remise_percent.'%</td>';
|
|
print '</tr>';
|
|
|
|
// ligne 5
|
|
// partie Gauche
|
|
print '<tr><td height="10">'.$langs->trans('AmountHT').'</td>';
|
|
print '<td align="right" colspan="2"><b>'.price($commande->price).'</b></td>';
|
|
print '<td>'.$langs->trans("Currency".$conf->monnaie).'</td></tr>';
|
|
print '</table>';
|
|
/* }
|
|
} else {
|
|
dolibarr_print_error($db);
|
|
}*/
|
|
} else {
|
|
// Commande non trouvée
|
|
print $langs->trans("ErrorPropalNotFound",$_GET["id"]);
|
|
}
|
|
}
|
|
|
|
// Si fichier png PDF d'1 page trouvé
|
|
if (file_exists($fileimage))
|
|
{
|
|
print '<img src="'.DOL_URL_ROOT . '/viewimage.php?modulepart=apercucommande&file='.urlencode($relativepathimage).'">';
|
|
}
|
|
// Si fichier png PDF de plus d'1 page trouvé
|
|
elseif (file_exists($fileimagebis))
|
|
{
|
|
print '<img src="'.DOL_URL_ROOT . '/viewimage.php?modulepart=apercucommande&file='.urlencode($relativepathimagebis).'">';
|
|
}
|
|
|
|
|
|
print '</div>';
|
|
|
|
|
|
// Juste pour éviter bug IE qui réorganise mal div précédents si celui-ci absent
|
|
print '<div class="tabsAction">';
|
|
print '</div>';
|
|
|
|
|
|
$db->close();
|
|
|
|
llxFooter('$Date$ - $Revision$');
|
|
?>
|