* Copyright (C) 2004-2006 Laurent Destailleur * * 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/boutique/index.php \ingroup boutique \brief Page accueil zone boutique \version $Revision$ */ require("./pre.inc.php"); $langs->load("boutique"); $langs->load("orders"); llxHeader("",$langs->trans("OSCOmmerceShop")); print_fiche_titre($langs->trans("OSCommerceShop")); print ''; print ''; /* * Derniers clients qui ont commandé */ print '

'; // initialisation des webservices set_magic_quotes_runtime(0); //WebService Client. require_once(NUSOAP_PATH."nusoap.php"); require_once("./includes/configure.php"); // Set the parameters to send to the WebService $parameters = array(); // Set the WebService URL $client = new soapclient(OSCWS_DIR."ws_orders.php"); /* /* Chiffre d'affaire */ print_titre($langs->trans('SalesTurnover')); print ''; print ''; print ''; print ''; // Call the WebService and store its result in $result. $result = $client->call("get_CAmensuel",$parameters ); if ($client->fault) { dolibarr_print_error('',"Erreur de connection "); print_r($client->faultstring); } elseif (!($err = $client->getError()) ) { $num=0; if ($result) $num = sizeof($result); $var=True; $i=0; if ($num > 0) { while ($i < $num) { $var=!$var; print ""; print ''; print ''; print ''; print "\n"; $i++; } } } else { dolibarr_print_error('',"Erreur du service web ".$err); } print " '.$langs->trans("année").' '.$langs->trans("mois").' '.$langs->trans("Total").' '.$result[$i][an].' '.$result[$i][mois].' '.convert_price($result[$i][value]).' "; print '

'; // partie commandes print_titre($langs->trans("Orders")); /* * 5 dernières commandes reçues */ print ''; print ''; print ''; // Call the WebService and store its result in $result. $parameters = array("limit"=>OSC_MAXNBCOM); $result = $client->call("get_orders",$parameters ); if ($client->fault) { dolibarr_print_error('',"Erreur de connection "); } elseif (!($err = $client->getError()) ) { $num=0; if ($result) $num = sizeof($result); $var=True; $i=0; if ($num > 0) { $num = min($num,OSC_MAXNBCOM); while ($i < $num) { $var=!$var; print ""; print ''; $i++; } } } else { dolibarr_print_error('',"Erreur du service web ".$err); } print " '.$langs->trans("Dernières commandes").' '.$result[$i][orders_id].' '.$result[$i][customers_name].' '.convert_price($result[$i][value]).' '.$result[$i][payment_method].' "; /* * 5 dernières commandes en attente */ print ''; print ''; print ''; $parameters = array("limit"=>OSC_MAXNBCOM, "status"=>OSC_ORDWAIT); $result = $client->call("get_orders",$parameters ); if ($client->fault) { dolibarr_print_error('',"Erreur webservice ".$client->faultstring); } elseif (!($err = $client->getError()) ) { $var=True; $i=0; $num=0; if ($result) $num = sizeof($result); $langs->load("orders"); if ($num > 0) { $num = min($num,OSC_MAXNBCOM); while ($i < $num) { $var=!$var; print ""; print ''; $i++; } } } else { dolibarr_print_error('',"Erreur du service web ".$err); } print " '.$langs->trans("En Attente").' '.$result[$i][orders_id].' '.$result[$i][customers_name].' '.convert_price($result[$i][value]).' '.$result[$i][payment_method].' "; /* * Commandes à traiter */ print ''; print ''; print ''; $parameters = array("limit"=>OSC_MAXNBCOM, "status"=>OSC_ORDPROCESS); $result = $client->call("get_orders",$parameters ); if ($client->fault) { dolibarr_print_error('',"Erreur webservice ".$client->faultstring); } elseif (!($err = $client->getError()) ) { $var=True; $i=0; $num=0; if ($result) $num = sizeof($result); $langs->load("orders"); if ($num > 0) { $num = min($num,OSC_MAXNBCOM); while ($i < $num) { print ""; print ''; $i++; $var=!$var; } } } else { dolibarr_print_error('',"Erreur du service web ".$err); } print " '.$langs->trans("A traiter").' '.$result[$i][orders_id].' '.$result[$i][customers_name].' '.convert_price($result[$i][value]).' '.$result[$i][payment_method].' "; print '

'; print ''; print ''; $parameters = array("limit"=>OSC_MAXNBCOM); $result = $client->call("get_lastOrderClients",$parameters ); if ($client->fault) { dolibarr_print_error('',"Erreur webservice ".$client->faultstring); } elseif (!($err = $client->getError()) ) { $var=True; $i=0; $num=0; if ($result) $num = sizeof($result); $langs->load("orders"); if ($num > 0) { $num = min($num,OSC_MAXNBCOM); while ($i < $num) { print ""; print ""; $i++; $var=!$var; } print "

'.$langs->trans("Derniers clients").'
".$result[$i][date_purchased]."	".$result[$i][customers_name]."	".$result[$i][delivery_country]."	".convert_price($result[$i][value])."	".$result[$i][payment_method]."	".$result[$i][orders_id]."	".$result[$i][statut]."

"; } } else { dolibarr_print_error('',"Erreur du service web ".$err); } print ''; llxFooter('$Date$ - $Revision$'); ?>