* * 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"; $sql.= " FROM ".MAIN_DB_PREFIX.$origin."det as obj"; $sql.= " , ".MAIN_DB_PREFIX."expeditiondet as ed, ".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"; $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 ''; print ''; print ''; print ''; print ''; print ''; if ($conf->expedition_bon->enabled) { print ''; } if ($conf->livraison_bon->enabled) { print ''; } print "\n"; $var=True; while ($i < $num) { $var=!$var; $objp = $db->fetch_object($resql); print ""; print ''; if ($objp->fk_product > 0) { $product = new Product($db); $product->fetch($objp->fk_product); print ''; } else { print "\n"; } print ''; print ''; if ($conf->expedition_bon->enabled) { print ''; } if ($conf->livraison_bon->enabled) { if ($objp->livraison_id) { print ''; } else { print ''; } } print ''; $i++; } print '

'.$langs->trans("Ref").'	'.$langs->trans("Description").'	'.$langs->trans("Qty").'	'.$langs->trans("DateSending").'	'.$langs->trans("SendingSheet").'	'.$langs->trans("DeliveryOrder").'
'.img_object($langs->trans("ShowSending"),'sending').' '.$objp->ref.'	'; 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 '	".dol_htmlentitiesbr(dolibarr_trunc($objp->description,24))."	'.$objp->qty_shipped.'	'.dolibarr_print_date($objp->date_expedition,'dayhour').'	'.img_object($langs->trans("ShowSending"),'sending').' '.$objp->ref.'	'.img_object($langs->trans("ShowSending"),'generic').' '.$objp->livraison_ref.'

'; } $db->free($resql); } else { dolibarr_print_error($db); } return 1; } ?>