diff --git a/htdocs/telephonie/script/recap-commande.php b/htdocs/telephonie/script/recap-commande.php new file mode 100644 index 0000000000000000000000000000000000000000..7dff1e5c84db72309d124f1c68b4dbbe093bc576 --- /dev/null +++ b/htdocs/telephonie/script/recap-commande.php @@ -0,0 +1,162 @@ +<?PHP +/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org> + * + * 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$ + * + * + * G�n�re un tableur des lignes command�es dans le mois + * + * + */ +require "../../master.inc.php"; +require_once DOL_DOCUMENT_ROOT."/telephonie/lignetel.class.php"; +require_once DOL_DOCUMENT_ROOT."/includes/php_writeexcel/class.writeexcel_workbook.inc.php"; +require_once DOL_DOCUMENT_ROOT."/includes/php_writeexcel/class.writeexcel_worksheet.inc.php"; +require_once DOL_DOCUMENT_ROOT."/lib/dolibarrmail.class.php"; + +define ('COMMANDETABLEUR_NOEMAIL', -3); + +$date = time(); +$date_now = $date; + +Generate($date, $db, $date_now); + +if (strftime("%d", $date_now) < 7) +{ + $date_prev = $date - (86400 * 9); + Generate($date_prev, $db, $date_now); +} + +/* + * + * + */ + +function Generate($date_gen, $db, $date_now) +{ + + $datef = strftime("%Y-%m", $date_gen); + + $fname = DOL_DATA_ROOT ."/telephonie/ligne/commande/recap-".$datef.".xls"; + + $ligne = new LigneTel($db); + + $workbook = &new writeexcel_workbook($fname); + + $worksheet = &$workbook->addworksheet(); + + $worksheet->write(0, 0, "R�capitulation des commandes du mois de ".strftime("%B %Y",$date_gen)." (g�n�r� le ".strftime("%d %B %Y %HH%M", $date_now) . ")"); + + $worksheet->set_column('A:A', 24); + $worksheet->set_column('B:B', 40); + $worksheet->set_column('C:C', 15); + $worksheet->set_column('D:D', 14); + $worksheet->set_column('E:E', 28); + + $formatcc =& $workbook->addformat(); + $formatcc->set_align('center'); + $formatcc->set_align('vcenter'); + + $formatccb =& $workbook->addformat(); + $formatccb->set_align('center'); + $formatccb->set_align('vcenter'); + $formatccb->set_bold(); + + $formatccbr =& $workbook->addformat(); + $formatccbr->set_align('center'); + $formatccbr->set_align('vcenter'); + $formatccbr->set_color('red'); + $formatccbr->set_bold(); + + $formatc =& $workbook->addformat(); + $formatc->set_align('vcenter'); + + $formatcb =& $workbook->addformat(); + $formatcb->set_align('vcenter'); + $formatcb->set_bold(); + + $i = 0; + + $ligneids = array(); + + $sqlall = "SELECT s.nom, s.idp as socid, l.ligne, f.nom as fournisseur, l.statut, l.rowid"; + $sqlall .= " , comm.name, comm.firstname, l.remise"; + $sqlall .= " , ".$db->pdate("l.date_commande")." as date_commande"; + $sqlall .= " FROM ".MAIN_DB_PREFIX."societe as s"; + $sqlall .= " , ".MAIN_DB_PREFIX."telephonie_societe_ligne as l"; + $sqlall .= " , ".MAIN_DB_PREFIX."societe as r"; + $sqlall .= " , ".MAIN_DB_PREFIX."user as comm"; + $sqlall .= " , ".MAIN_DB_PREFIX."telephonie_fournisseur as f"; + $sqlall .= " WHERE l.fk_soc = s.idp AND l.fk_fournisseur = f.rowid"; + $sqlall .= " AND l.fk_soc_facture = r.idp "; + $sqlall .= " AND l.fk_commercial = comm.rowid "; + $sqlall .= " AND date_format(l.date_commande,'%Y%m') = '".strftime("%Y%m", $date_gen)."'"; + /* + * + */ + + $sql = $sqlall; + + $sql .= " ORDER BY l.date_commande DESC"; + + $result = $db->query($sql); + + if ($result) + { + $num = $db->num_rows(); + + $worksheet->write(1, 0, "Clients", $formatc); + $worksheet->write(1, 1, "Adresses", $formatc); + $worksheet->write(1, 2, "Num�ro", $formatcc); + $worksheet->write(1, 3, "Date commande", $formatcc); + $worksheet->write(1, 4, "Statut actuel", $formatcc); + + while ($i < $num) + { + $obj = $db->fetch_object(); + + $j = $i + 3; + + $soc = new Societe($db); + $soc->fetch($obj->socid); + + $worksheet->write($j, 0, $obj->nom, $formatc); + $worksheet->write($j, 1, $soc->adresse. " " . $soc->cp . " " . $soc->ville, $formatc); + + $worksheet->write_string($j, 2, "$obj->ligne", $formatcc); + + $worksheet->write($j, 3, strftime("%d/%m/%y",$obj->date_commande), $formatcc); + $worksheet->write($j, 4, $ligne->statuts[$obj->statut], $formatcc); + + $i++; + } + + $db->free(); + } + else + { + print $db->error() . ' ' . $sql; + } + + /* + * + * + */ + + $workbook->close(); +}