*
* 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.
*/
/**
* \file htdocs/lib/sendings.lib.php
* \ingroup expedition
* \brief Library for expedition module
* \version $Id$
*/
/**
* List sendings and receive receipts
*
* @param unknown_type $option
* @return unknown
*/
function show_list_sending_receive($origin='commande',$origin_id,$filter='')
{
global $db, $conf, $langs, $bc;
$sql = "SELECT obj.rowid, obj.fk_product, obj.description, obj.qty as qty_asked";
$sql.= ", ed.qty as qty_shipped, ed.fk_expedition as expedition_id";
$sql.= ", e.ref, ".$db->pdate("e.date_expedition")." as date_expedition";
if ($conf->livraison_bon->enabled) $sql .= ", l.rowid as livraison_id, l.ref as livraison_ref, ".$db->pdate("l.date_livraison")." as date_delivery, ld.qty as qty_received";
$sql.= " FROM (".MAIN_DB_PREFIX."expeditiondet as ed,";
$sql.= " ".MAIN_DB_PREFIX.$origin."det as obj,";
$sql.= " ".MAIN_DB_PREFIX."expedition as e)";
if ($conf->livraison_bon->enabled) $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."livraison as l ON l.fk_expedition = e.rowid LEFT JOIN ".MAIN_DB_PREFIX."livraisondet as ld ON ld.fk_livraison = l.rowid AND obj.rowid = ld.fk_origin_line";
$sql.= " WHERE obj.fk_".$origin." = ".$origin_id;
if ($filter) $sql.=$filter;
$sql.= " AND obj.rowid = ed.fk_origin_line";
$sql.= " AND ed.fk_expedition = e.rowid";
$sql.= " ORDER BY obj.fk_product";
dolibarr_syslog("show_list_sending_receive sql=".$sql, LOG_DEBUG);
$resql = $db->query($sql);
if ($resql)
{
$num = $db->num_rows($resql);
$i = 0;
if ($num)
{
if ($somethingshown) print '
';
if ($filter) print_titre($langs->trans("OtherSendingsForSameOrder"));
else print_titre($langs->trans("SendingsAndReceivingForSameOrder"));
print '
| '.$langs->trans("Description").' | '; //print ''.$langs->trans("QtyOrdered").' | '; print ''.$langs->trans("SendingSheet").' | '; print ''.$langs->trans("QtyShipped").' | '; print ''.$langs->trans("DateSending").' | '; if ($conf->livraison_bon->enabled) { print ''.$langs->trans("DeliveryOrder").' | '; print ''.$langs->trans("QtyReceived").' | '; print ''.$langs->trans("DeliveryDate").' | '; } print "||||
| '; print ''.img_object($langs->trans("ShowProduct"),"product").' '.$product->ref.' - '.dolibarr_trunc($product->libelle,20); if ($objp->description) print dol_htmlentitiesbr(dolibarr_trunc($objp->description,24)); print ' | '; } else { print "".dol_htmlentitiesbr(dolibarr_trunc($objp->description,24))." | \n"; } //print ''.$objp->qty_asked.' | '; // Sending id print ''.img_object($langs->trans("ShowSending"),'sending').' '.$objp->ref.' | '; print ''.$objp->qty_shipped.' | '; print ''.dolibarr_print_date($objp->date_expedition,'dayhour').' | '; if ($conf->livraison_bon->enabled) { if ($objp->livraison_id) { print ''.img_object($langs->trans("ShowSending"),'sending').' '.$objp->livraison_ref.' | '; print ''.$objp->qty_received.' | '; print ''.dolibarr_print_date($objp->date_delivery,'dayhour').' | '; } else { print ''; print ' | '; print ' | '; } } print ' |