2
0
forked from Wavyzz/dolibarr
Files
dolibarr-fork/htdocs/compta/export/modules/compta.export.safran.class.php
Rodolphe Quiedeville 3722721e10 Nouveau fichier
2004-12-07 10:15:42 +00:00

128 lines
3.1 KiB
PHP

<?PHP
/* Copyright (C) 2004 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$
*
*/
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";
class ComptaExportTableur extends ComptaExport
{
function ComptaExportTableur ()
{
}
function Create()
{
$this->date = time();
$this->datef = "commande-".strftime("%d%b%y-%HH%M", $this->date);
$fname = DOL_DATA_ROOT ."/telephonie/ligne/commande/".$this->datef.".xls";
if (strlen(trim($this->fournisseur->email_commande)) == 0)
{
return -3;
}
if (file_exists($fname))
{
return 2;
}
else
{
$res = $this->CreateFile($fname);
$res = $res + $this->LogSql();
$res = $res + $this->MailFile($fname);
return $res;
}
}
function Export($linec)
{
$fname = "/tmp/toto.xls";
$workbook = &new writeexcel_workbook($fname);
$worksheet = &$workbook->addworksheet();
// Pour les factures
// Date Opération 040604 pour 4 juin 2004
// VE -> ventilation
// code Compte général
// code client
// Intitulé
// Numéro de pièce
// Montant
// Type opération D pour Débit ou C pour Crédit
// Date d'échéance, = à la date d'opération si pas d'échéance
// EUR pour Monnaie en Euros
// Pour les paiements
$worksheet->set_column('A:A', 20);
$worksheet->set_column('B:B', 20);
$worksheet->set_column('C:C', 15);
$worksheet->set_column('D:D', 9);
$worksheet->set_column('E:E', 16);
$worksheet->set_column('F:F', 18);
$worksheet->set_column('G:G', 20);
$i = 0;
$j = 0;
$n = sizeof($linec);
$oldfacture = 0;
for ( $i = 0 ; $i < $n ; $i++)
{
if ( $oldfacture <> $linec[$i][1])
{
$worksheet->write_string($j, 0, strftime("%d%m%y",$linec[$i][0]));
$worksheet->write_string($j, 1, 'VE');
$worksheet->write_string($j, 3, '411000000');
$worksheet->write_string($j, 4, $linec[$i][3]." Facture");
$oldfacture = $linec[$i][1];
$j++;
}
$worksheet->write_string($j, 0, strftime("%d%m%y",$linec[$i][0]));
$worksheet->write_string($j, 1, 'VE');
$worksheet->write_string($j, 2, $linec[$i][4]);
$worksheet->write_string($j, 4, $linec[$i][3]." Facture");
$j++;
}
$workbook->close();
return 0;
}
}