dolibarr  20.0.0-beta
accountancyexport.class.php
Go to the documentation of this file.
1 <?php
2 /*
3  * Copyright (C) 2007-2012 Laurent Destailleur <eldy@users.sourceforge.net>
4  * Copyright (C) 2014 Juanjo Menent <jmenent@2byte.es>
5  * Copyright (C) 2015 Florian Henry <florian.henry@open-concept.pro>
6  * Copyright (C) 2015 Raphaël Doursenaud <rdoursenaud@gpcsolutions.fr>
7  * Copyright (C) 2016 Pierre-Henry Favre <phf@atm-consulting.fr>
8  * Copyright (C) 2016-2024 Alexandre Spangaro <aspangaro@open-dsi.fr>
9  * Copyright (C) 2022 Lionel Vessiller <lvessiller@open-dsi.fr>
10  * Copyright (C) 2013-2017 Olivier Geffroy <jeff@jeffinfo.com>
11  * Copyright (C) 2017 Elarifr. Ari Elbaz <github@accedinfo.com>
12  * Copyright (C) 2017-2019 Frédéric France <frederic.france@netlogic.fr>
13  * Copyright (C) 2017 André Schild <a.schild@aarboard.ch>
14  * Copyright (C) 2020 Guillaume Alexandre <guillaume@tag-info.fr>
15  * Copyright (C) 2022 Joachim Kueter <jkueter@gmx.de>
16  * Copyright (C) 2022 Progiseize <a.bisotti@progiseize.fr>
17  * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
18  *
19  * This program is free software; you can redistribute it and/or modify
20  * it under the terms of the GNU General Public License as published by
21  * the Free Software Foundation; either version 3 of the License, or
22  * (at your option) any later version.
23  *
24  * This program is distributed in the hope that it will be useful,
25  * but WITHOUT ANY WARRANTY; without even the implied warranty of
26  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
27  * GNU General Public License for more details.
28  *
29  * You should have received a copy of the GNU General Public License
30  * along with this program. If not, see <https://www.gnu.org/licenses/>.
31  */
32 
39 require_once DOL_DOCUMENT_ROOT.'/core/lib/functions.lib.php';
40 require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
41 require_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
42 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
43 require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
44 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
45 
49 class AccountancyExport
50 {
51  // Types of export.
52  public static $EXPORT_TYPE_CONFIGURABLE = 1; // CSV
53  public static $EXPORT_TYPE_AGIRIS = 10;
54  public static $EXPORT_TYPE_EBP = 15;
55  public static $EXPORT_TYPE_CEGID = 20;
56  public static $EXPORT_TYPE_COGILOG = 25;
57  public static $EXPORT_TYPE_COALA = 30;
58  public static $EXPORT_TYPE_BOB50 = 35;
59  public static $EXPORT_TYPE_CIEL = 40;
60  public static $EXPORT_TYPE_SAGE50_SWISS = 45;
61  public static $EXPORT_TYPE_CHARLEMAGNE = 50;
62  public static $EXPORT_TYPE_QUADRATUS = 60;
63  public static $EXPORT_TYPE_WINFIC = 70;
64  public static $EXPORT_TYPE_OPENCONCERTO = 100;
65  public static $EXPORT_TYPE_LDCOMPTA = 110;
66  public static $EXPORT_TYPE_LDCOMPTA10 = 120;
67  public static $EXPORT_TYPE_GESTIMUMV3 = 130;
68  public static $EXPORT_TYPE_GESTIMUMV5 = 135;
69  public static $EXPORT_TYPE_ISUITEEXPERT = 200;
70  // Generic FEC after that
71  public static $EXPORT_TYPE_FEC = 1000;
72  public static $EXPORT_TYPE_FEC2 = 1010;
73 
77  public $db;
78 
82  public $errors = array();
83 
87  public $separator = '';
88 
92  public $end_line = '';
93 
97  public $generatedfiledata = array();
98 
99 
105  public function __construct(DoliDB $db)
106  {
107  global $conf, $hookmanager;
108 
109  $this->db = $db;
110  $this->separator = getDolGlobalString('ACCOUNTING_EXPORT_SEPARATORCSV');
111  $this->end_line = getDolGlobalString('ACCOUNTING_EXPORT_ENDLINE') ? (getDolGlobalInt('ACCOUNTING_EXPORT_ENDLINE') == 1 ? "\n" : "\r\n") : "\n";
112 
113  $hookmanager->initHooks(array('accountancyexport'));
114  }
115 
122  public function getType($mode = 0)
123  {
124  global $langs, $hookmanager;
125 
126  $listofspecialformatexport = array(
127  self::$EXPORT_TYPE_CEGID => $langs->trans('Modelcsv_CEGID'),
128  self::$EXPORT_TYPE_COALA => $langs->trans('Modelcsv_COALA'),
129  self::$EXPORT_TYPE_BOB50 => $langs->trans('Modelcsv_bob50'),
130  self::$EXPORT_TYPE_CIEL => $langs->trans('Modelcsv_ciel'),
131  self::$EXPORT_TYPE_QUADRATUS => $langs->trans('Modelcsv_quadratus'),
132  self::$EXPORT_TYPE_WINFIC => $langs->trans('Modelcsv_winfic'),
133  self::$EXPORT_TYPE_EBP => $langs->trans('Modelcsv_ebp'),
134  self::$EXPORT_TYPE_COGILOG => $langs->trans('Modelcsv_cogilog'),
135  self::$EXPORT_TYPE_AGIRIS => $langs->trans('Modelcsv_agiris'),
136  self::$EXPORT_TYPE_OPENCONCERTO => $langs->trans('Modelcsv_openconcerto'),
137  self::$EXPORT_TYPE_SAGE50_SWISS => $langs->trans('Modelcsv_Sage50_Swiss'),
138  self::$EXPORT_TYPE_CHARLEMAGNE => $langs->trans('Modelcsv_charlemagne'),
139  self::$EXPORT_TYPE_LDCOMPTA => $langs->trans('Modelcsv_LDCompta'),
140  self::$EXPORT_TYPE_LDCOMPTA10 => $langs->trans('Modelcsv_LDCompta10'),
141  self::$EXPORT_TYPE_GESTIMUMV3 => $langs->trans('Modelcsv_Gestinumv3'),
142  self::$EXPORT_TYPE_GESTIMUMV5 => $langs->trans('Modelcsv_Gestinumv5'),
143  self::$EXPORT_TYPE_ISUITEEXPERT => 'Export iSuite Expert',
144  );
145 
146  $listofgenericformatexport = array(
147  self::$EXPORT_TYPE_CONFIGURABLE => $langs->trans('Modelcsv_configurable'),
148  self::$EXPORT_TYPE_FEC => $langs->trans('Modelcsv_FEC'),
149  self::$EXPORT_TYPE_FEC2 => $langs->trans('Modelcsv_FEC2'),
150  );
151 
152  if (empty($mode)) {
153  $listofexporttypes = $listofgenericformatexport + $listofspecialformatexport;
154  ksort($listofexporttypes, SORT_NUMERIC);
155  } else {
156  ksort($listofspecialformatexport, SORT_NUMERIC);
157  $listofexporttypes = array();
158  $i = 0;
159  foreach ($listofgenericformatexport as $key => $val) {
160  $i++;
161  $listofexporttypes[$key] = array('id' => $key, 'label' => $val, 'position' => $i);
162  }
163  $listofexporttypes['separator_'.$i] = array('id' => 0, 'label' => '----------------', 'position' => $i, 'disabled' => 'disabled');
164  foreach ($listofspecialformatexport as $key => $val) {
165  $i++;
166  $listofexporttypes[$key] = array('id' => $key, 'label' => $val, 'position' => $i);
167  }
168  }
169 
170  // allow modules to define export formats
171  $parameters = array();
172  $reshook = $hookmanager->executeHooks('getType', $parameters, $listofexporttypes);
173 
174  return $listofexporttypes;
175  }
176 
183  public static function getFormatCode($type)
184  {
185  $formatcode = array(
186  self::$EXPORT_TYPE_CONFIGURABLE => 'csv',
187  self::$EXPORT_TYPE_CEGID => 'cegid',
188  self::$EXPORT_TYPE_COALA => 'coala',
189  self::$EXPORT_TYPE_BOB50 => 'bob50',
190  self::$EXPORT_TYPE_CIEL => 'ciel',
191  self::$EXPORT_TYPE_QUADRATUS => 'quadratus',
192  self::$EXPORT_TYPE_WINFIC => 'winfic',
193  self::$EXPORT_TYPE_EBP => 'ebp',
194  self::$EXPORT_TYPE_COGILOG => 'cogilog',
195  self::$EXPORT_TYPE_AGIRIS => 'agiris',
196  self::$EXPORT_TYPE_OPENCONCERTO => 'openconcerto',
197  self::$EXPORT_TYPE_SAGE50_SWISS => 'sage50ch',
198  self::$EXPORT_TYPE_CHARLEMAGNE => 'charlemagne',
199  self::$EXPORT_TYPE_LDCOMPTA => 'ldcompta',
200  self::$EXPORT_TYPE_LDCOMPTA10 => 'ldcompta10',
201  self::$EXPORT_TYPE_GESTIMUMV3 => 'gestimumv3',
202  self::$EXPORT_TYPE_GESTIMUMV5 => 'gestimumv5',
203  self::$EXPORT_TYPE_FEC => 'fec',
204  self::$EXPORT_TYPE_FEC2 => 'fec2',
205  self::$EXPORT_TYPE_ISUITEEXPERT => 'isuiteexpert',
206  );
207 
208  global $hookmanager;
209  $code = $formatcode[$type];
210  $parameters = array('type' => $type);
211  $reshook = $hookmanager->executeHooks('getFormatCode', $parameters, $code);
212 
213  return $code;
214  }
215 
221  public function getTypeConfig()
222  {
223  global $langs;
224 
225  $exporttypes = array(
226  'param' => array(
227  self::$EXPORT_TYPE_CONFIGURABLE => array(
228  'label' => $langs->trans('Modelcsv_configurable'),
229  'ACCOUNTING_EXPORT_FORMAT' => getDolGlobalString('ACCOUNTING_EXPORT_FORMAT', 'txt'),
230  'ACCOUNTING_EXPORT_SEPARATORCSV' => getDolGlobalString('ACCOUNTING_EXPORT_SEPARATORCSV', ','),
231  'ACCOUNTING_EXPORT_ENDLINE' => getDolGlobalString('ACCOUNTING_EXPORT_ENDLINE', 1),
232  'ACCOUNTING_EXPORT_DATE' => getDolGlobalString('ACCOUNTING_EXPORT_DATE', '%Y-%m-%d'),
233  ),
234  self::$EXPORT_TYPE_CEGID => array(
235  'label' => $langs->trans('Modelcsv_CEGID'),
236  ),
237  self::$EXPORT_TYPE_COALA => array(
238  'label' => $langs->trans('Modelcsv_COALA'),
239  ),
240  self::$EXPORT_TYPE_BOB50 => array(
241  'label' => $langs->trans('Modelcsv_bob50'),
242  ),
243  self::$EXPORT_TYPE_CIEL => array(
244  'label' => $langs->trans('Modelcsv_ciel'),
245  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
246  ),
247  self::$EXPORT_TYPE_QUADRATUS => array(
248  'label' => $langs->trans('Modelcsv_quadratus'),
249  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
250  ),
251  self::$EXPORT_TYPE_WINFIC => array(
252  'label' => $langs->trans('Modelcsv_winfic'),
253  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
254  ),
255  self::$EXPORT_TYPE_EBP => array(
256  'label' => $langs->trans('Modelcsv_ebp'),
257  ),
258  self::$EXPORT_TYPE_COGILOG => array(
259  'label' => $langs->trans('Modelcsv_cogilog'),
260  ),
261  self::$EXPORT_TYPE_AGIRIS => array(
262  'label' => $langs->trans('Modelcsv_agiris'),
263  ),
264  self::$EXPORT_TYPE_OPENCONCERTO => array(
265  'label' => $langs->trans('Modelcsv_openconcerto'),
266  ),
267  self::$EXPORT_TYPE_SAGE50_SWISS => array(
268  'label' => $langs->trans('Modelcsv_Sage50_Swiss'),
269  ),
270  self::$EXPORT_TYPE_CHARLEMAGNE => array(
271  'label' => $langs->trans('Modelcsv_charlemagne'),
272  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
273  ),
274  self::$EXPORT_TYPE_LDCOMPTA => array(
275  'label' => $langs->trans('Modelcsv_LDCompta'),
276  ),
277  self::$EXPORT_TYPE_LDCOMPTA10 => array(
278  'label' => $langs->trans('Modelcsv_LDCompta10'),
279  ),
280  self::$EXPORT_TYPE_GESTIMUMV3 => array(
281  'label' => $langs->trans('Modelcsv_Gestinumv3'),
282  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
283  ),
284  self::$EXPORT_TYPE_GESTIMUMV5 => array(
285  'label' => $langs->trans('Modelcsv_Gestinumv5'),
286  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
287  ),
288  self::$EXPORT_TYPE_FEC => array(
289  'label' => $langs->trans('Modelcsv_FEC'),
290  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
291  ),
292  self::$EXPORT_TYPE_FEC2 => array(
293  'label' => $langs->trans('Modelcsv_FEC2'),
294  'ACCOUNTING_EXPORT_FORMAT' => 'txt',
295  ),
296  self::$EXPORT_TYPE_ISUITEEXPERT => array(
297  'label' => 'iSuite Expert',
298  'ACCOUNTING_EXPORT_FORMAT' => 'csv',
299  ),
300  ),
301  'cr' => array(
302  '1' => $langs->trans("Unix"),
303  '2' => $langs->trans("Windows")
304  ),
305  'format' => array(
306  'csv' => $langs->trans("csv"),
307  'txt' => $langs->trans("txt")
308  ),
309  );
310 
311  global $hookmanager;
312  $parameters = array();
313  $reshook = $hookmanager->executeHooks('getTypeConfig', $parameters, $exporttypes);
314  return $exporttypes;
315  }
316 
317 
324  public function getMimeType($formatexportset)
325  {
326  switch ($formatexportset) {
327  case self::$EXPORT_TYPE_FEC:
328  $mime = 'text/tab-separated-values';
329  break;
330  default:
331  $mime = 'text/csv';
332  break;
333  }
334 
335  return $mime;
336  }
337 
355  public function export(&$TData, $formatexportset, $withAttachment = 0, $downloadMode = 0, $outputMode = 0, $noouput = 0)
356  {
357  global $db, $conf, $langs; // The tpl file use $db
358  global $search_date_end; // Used into /accountancy/tpl/export_journal.tpl.php
359 
360  // Define name of file to save
361  $filename = 'general_ledger-'.$this->getFormatCode($formatexportset);
362  $type_export = 'general_ledger';
363 
364  $completefilename = '';
365  $exportFile = null;
366  $exportFileName = '';
367  $exportFilePath = '';
368  $exportFileFullName = '';
369  $downloadFileMimeType = '';
370  $downloadFileFullName = '';
371  $downloadFilePath = '';
372  $archiveFullName = '';
373  $archivePath = '';
374  $archiveFileList = array();
375  if ($withAttachment == 1) {
376  if ($downloadMode == 0) {
377  $downloadMode = 1; // force to download after writing all files (can't use direct download)
378  }
379  if ($outputMode == 0) {
380  $outputMode = 1; // force to put files in a temp directory (can't use print on screen)
381  }
382 
383  // PHP ZIP extension must be enabled
384  if (!extension_loaded('zip')) {
385  $langs->load('install');
386  $this->errors[] = $langs->trans('ErrorPHPDoesNotSupport', 'ZIP');
387  return -1;
388  }
389  }
390 
391  $mimetype = $this->getMimeType($formatexportset);
392  if ($downloadMode == 0) {
393  // begin to print header for direct download
394  top_httphead($mimetype, 1);
395  }
396 
397  include DOL_DOCUMENT_ROOT.'/accountancy/tpl/export_journal.tpl.php';
398 
399  if ($outputMode == 1 || $outputMode == 2) {
400  if ($outputMode == 1) {
401  // uses the temp directory by default to write files
402  if (!empty($conf->accounting->multidir_temp[$conf->entity])) {
403  $outputDir = $conf->accounting->multidir_temp[$conf->entity];
404  } else {
405  $outputDir = $conf->accounting->dir_temp;
406  }
407  } else {
408  // uses the default export directory "accounting/export"
409  if (!empty($conf->accounting->multidir_output[$conf->entity])) {
410  $outputDir = $conf->accounting->multidir_output[$conf->entity];
411  } else {
412  $outputDir = $conf->accounting->dir_output;
413  }
414 
415  // directory already created when module is enabled
416  $outputDir .= '/export';
417  $outputDir .= '/'.dol_sanitizePathName($formatexportset);
418  }
419 
420  if (!dol_is_dir($outputDir)) {
421  if (dol_mkdir($outputDir) < 0) {
422  $this->errors[] = $langs->trans('ErrorCanNotCreateDir', $outputDir);
423  return -1;
424  }
425  }
426 
427  if ($outputDir != '') {
428  if (!dol_is_dir($outputDir)) {
429  $langs->load('errors');
430  $this->errors[] = $langs->trans('ErrorDirNotFound', $outputDir);
431  return -1;
432  }
433 
434  if (!empty($completefilename)) {
435  // create export file
436  $exportFileFullName = $completefilename;
437  $exportFileBaseName = basename($exportFileFullName);
438  $exportFileName = pathinfo($exportFileBaseName, PATHINFO_FILENAME);
439  $exportFilePath = $outputDir . '/' . $exportFileFullName;
440  $exportFile = fopen($exportFilePath, 'w');
441  if (!$exportFile) {
442  $this->errors[] = $langs->trans('ErrorFileNotFound', $exportFilePath);
443  return -1;
444  }
445 
446  if ($withAttachment == 1) {
447  $archiveFileList[0] = array(
448  'path' => $exportFilePath,
449  'name' => $exportFileFullName,
450  );
451 
452  // archive name and path
453  $archiveFullName = $exportFileName . '.zip';
454  $archivePath = $outputDir . '/' . $archiveFullName;
455  }
456  }
457  }
458  }
459 
460  // export file (print on screen or write in a file) and prepare archive list if with attachment is set to 1
461  switch ($formatexportset) {
462  case self::$EXPORT_TYPE_CONFIGURABLE:
463  $this->exportConfigurable($TData, $exportFile);
464  break;
465  case self::$EXPORT_TYPE_CEGID:
466  $this->exportCegid($TData, $exportFile);
467  break;
468  case self::$EXPORT_TYPE_COALA:
469  $this->exportCoala($TData, $exportFile);
470  break;
471  case self::$EXPORT_TYPE_BOB50:
472  $this->exportBob50($TData, $exportFile);
473  break;
474  case self::$EXPORT_TYPE_CIEL:
475  $this->exportCiel($TData, $exportFile);
476  break;
477  case self::$EXPORT_TYPE_QUADRATUS:
478  $archiveFileList = $this->exportQuadratus($TData, $exportFile, $archiveFileList, $withAttachment);
479  break;
480  case self::$EXPORT_TYPE_WINFIC:
481  $this->exportWinfic($TData, $exportFile);
482  break;
483  case self::$EXPORT_TYPE_EBP:
484  $this->exportEbp($TData, $exportFile);
485  break;
486  case self::$EXPORT_TYPE_COGILOG:
487  $this->exportCogilog($TData, $exportFile);
488  break;
489  case self::$EXPORT_TYPE_AGIRIS:
490  $this->exportAgiris($TData, $exportFile);
491  break;
492  case self::$EXPORT_TYPE_OPENCONCERTO:
493  $this->exportOpenConcerto($TData, $exportFile);
494  break;
495  case self::$EXPORT_TYPE_SAGE50_SWISS:
496  $this->exportSAGE50SWISS($TData, $exportFile);
497  break;
498  case self::$EXPORT_TYPE_CHARLEMAGNE:
499  $this->exportCharlemagne($TData, $exportFile);
500  break;
501  case self::$EXPORT_TYPE_LDCOMPTA:
502  $this->exportLDCompta($TData, $exportFile);
503  break;
504  case self::$EXPORT_TYPE_LDCOMPTA10:
505  $this->exportLDCompta10($TData, $exportFile);
506  break;
507  case self::$EXPORT_TYPE_GESTIMUMV3:
508  $this->exportGestimumV3($TData, $exportFile);
509  break;
510  case self::$EXPORT_TYPE_GESTIMUMV5:
511  $this->exportGestimumV5($TData, $exportFile);
512  break;
513  case self::$EXPORT_TYPE_FEC:
514  $archiveFileList = $this->exportFEC($TData, $exportFile, $archiveFileList, $withAttachment);
515  break;
516  case self::$EXPORT_TYPE_FEC2:
517  $archiveFileList = $this->exportFEC2($TData, $exportFile, $archiveFileList, $withAttachment);
518  break;
519  case self::$EXPORT_TYPE_ISUITEEXPERT:
520  $this->exportiSuiteExpert($TData, $exportFile);
521  break;
522  default:
523  global $hookmanager;
524  $parameters = array('format' => $formatexportset);
525  // file contents will be created in the hooked function via print
526  $reshook = $hookmanager->executeHooks('export', $parameters, $TData);
527  if ($reshook != 1) {
528  $this->errors[] = $langs->trans('accountancy_error_modelnotfound');
529  }
530  break;
531  }
532 
533 
534  // Create and download export file or archive
535  if ($outputMode == 1 || $outputMode == 2) {
536  $error = 0;
537 
538  // close export file
539  if ($exportFile) {
540  fclose($exportFile);
541  }
542 
543  if ($withAttachment == 1) {
544  // create archive file
545  if (!empty($archiveFullName) && !empty($archivePath) && !empty($archiveFileList)) {
546  // archive files
547  $downloadFileMimeType = 'application/zip';
548  $downloadFileFullName = $archiveFullName;
549  $downloadFilePath = $archivePath;
550 
551  // create archive
552  $archive = new ZipArchive();
553  $res = $archive->open($archivePath, ZipArchive::OVERWRITE | ZipArchive::CREATE);
554  if ($res !== true) {
555  $error++;
556  $this->errors[] = $langs->trans('ErrorFileNotFound', $archivePath);
557  }
558  if (!$error) {
559  // add files
560  foreach ($archiveFileList as $archiveFileArr) {
561  $res = $archive->addFile($archiveFileArr['path'], $archiveFileArr['name']);
562  if (!$res) {
563  $error++;
564  $this->errors[] = $langs->trans('ErrorArchiveAddFile', $archiveFileArr['name']);
565  break;
566  }
567  }
568  }
569  if (!$error) {
570  // close archive
571  $archive->close();
572  }
573  }
574  }
575 
576  if (!$error) {
577  // download after writing files
578  if ($downloadMode == 1) {
579  if ($withAttachment == 0) {
580  // only download exported file
581  if (!empty($exportFileFullName) && !empty($exportFilePath)) {
582  $downloadFileMimeType = $mimetype;
583  $downloadFileFullName = $exportFileFullName;
584  $downloadFilePath = $exportFilePath;
585  }
586  }
587 
588  // download export file or archive
589  if (!empty($downloadFileMimeType) && !empty($downloadFileFullName) && !empty($downloadFilePath) && empty($noouput)) {
590  // deprecated. We must not use this anymore, but have $noouput = 1 because HTTP header must be sent
591  // into main page not into a method.
592  header('Content-Type: ' . $downloadFileMimeType);
593  header('Content-Disposition: attachment; filename=' . $downloadFileFullName);
594  header('Cache-Control: Public, must-revalidate');
595  header('Pragma: public');
596  header('Content-Length: ' . dol_filesize($downloadFilePath));
597 
598  readfileLowMemory($downloadFilePath);
599  }
600 
601  $this->generatedfiledata = array('downloadFilePath' => $downloadFilePath, 'downloadFileMimeType' => $downloadFileMimeType, 'downloadFileFullName' => $downloadFileFullName);
602  }
603  }
604 
605  if ($error) {
606  return -1;
607  }
608  }
609 
610  return 1;
611  }
612 
613 
621  public function exportCegid($objectLines, $exportFile = null)
622  {
623  $separator = ";";
624  $end_line = "\n";
625 
626  foreach ($objectLines as $line) {
627  $date_document = dol_print_date($line->doc_date, '%d%m%Y');
628 
629  $tab = array();
630 
631  $tab[] = $date_document;
632  $tab[] = $line->code_journal;
633  $tab[] = length_accountg($line->numero_compte);
634  $tab[] = length_accounta($line->subledger_account);
635  $tab[] = $line->sens;
636  $tab[] = price2fec(abs($line->debit - $line->credit));
637  $tab[] = dol_string_unaccent($line->label_operation);
638  $tab[] = dol_string_unaccent($line->doc_ref);
639 
640  $output = implode($separator, $tab).$end_line;
641  if ($exportFile) {
642  fwrite($exportFile, $output);
643  } else {
644  print $output;
645  }
646  }
647  }
648 
657  public function exportCogilog($objectLines, $exportFile = null)
658  {
659  $separator = "\t";
660  $end_line = "\n";
661 
662  foreach ($objectLines as $line) {
663  $date_document = dol_print_date($line->doc_date, '%d%m%Y');
664 
665  $refInvoice = '';
666  if ($line->doc_type == 'customer_invoice') {
667  // Customer invoice
668  require_once DOL_DOCUMENT_ROOT . '/compta/facture/class/facture.class.php';
669  $invoice = new Facture($this->db);
670  $invoice->fetch($line->fk_doc);
671 
672  $refInvoice = $invoice->ref;
673  } elseif ($line->doc_type == 'supplier_invoice') {
674  // Supplier invoice
675  require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.facture.class.php';
676  $invoice = new FactureFournisseur($this->db);
677  $invoice->fetch($line->fk_doc);
678 
679  $refInvoice = $invoice->ref_supplier;
680  }
681 
682  $tab = array();
683 
684  $tab[] = $line->code_journal;
685  $tab[] = $date_document;
686  $tab[] = $refInvoice;
687  if (empty($line->subledger_account)) {
688  $tab[] = length_accountg($line->numero_compte);
689  } else {
690  $tab[] = length_accounta($line->subledger_account);
691  }
692  $tab[] = "";
693  $tab[] = $line->label_operation;
694  $tab[] = $date_document;
695  if ($line->sens == 'D') {
696  $tab[] = price($line->debit);
697  $tab[] = "";
698  } elseif ($line->sens == 'C') {
699  $tab[] = "";
700  $tab[] = price($line->credit);
701  }
702  $tab[] = $line->doc_ref;
703  $tab[] = $line->label_operation;
704 
705  $output = implode($separator, $tab).$end_line;
706  if ($exportFile) {
707  fwrite($exportFile, $output);
708  } else {
709  print $output;
710  }
711  }
712  }
713 
721  public function exportCoala($objectLines, $exportFile = null)
722  {
723  // Coala export
724  $separator = ";";
725  $end_line = "\n";
726 
727  foreach ($objectLines as $line) {
728  $date_document = dol_print_date($line->doc_date, '%d/%m/%Y');
729 
730  $tab = array();
731 
732  $tab[] = $date_document;
733  $tab[] = $line->code_journal;
734  $tab[] = length_accountg($line->numero_compte);
735  $tab[] = $line->piece_num;
736  $tab[] = $line->doc_ref;
737  $tab[] = price($line->debit);
738  $tab[] = price($line->credit);
739  $tab[] = 'E';
740  $tab[] = length_accounta($line->subledger_account);
741 
742  $output = implode($separator, $tab).$end_line;
743  if ($exportFile) {
744  fwrite($exportFile, $output);
745  } else {
746  print $output;
747  }
748  }
749  }
750 
758  public function exportBob50($objectLines, $exportFile = null)
759  {
760  // Bob50
761  $separator = ";";
762  $end_line = "\n";
763 
764  foreach ($objectLines as $line) {
765  $date_document = dol_print_date($line->doc_date, '%d/%m/%Y');
766 
767  $tab = array();
768 
769  $tab[] = $line->piece_num;
770  $tab[] = $date_document;
771 
772  if (empty($line->subledger_account)) {
773  $tab[] = 'G';
774  $tab[] = length_accountg($line->numero_compte);
775  } else {
776  if (substr($line->numero_compte, 0, 3) == '411') {
777  $tab[] = 'C';
778  }
779  if (substr($line->numero_compte, 0, 3) == '401') {
780  $tab[] = 'F';
781  }
782  $tab[] = length_accounta($line->subledger_account);
783  }
784 
785  $tab[] = price($line->debit);
786  $tab[] = price($line->credit);
787  $tab[] = dol_trunc($line->label_operation, 32);
788 
789  $output = implode($separator, $tab).$end_line;
790  if ($exportFile) {
791  fwrite($exportFile, $output);
792  } else {
793  print $output;
794  }
795  }
796  }
797 
813  public function exportCiel($objectLines, $exportFile = null)
814  {
815  $end_line = "\r\n";
816 
817  $i = 1;
818 
819  foreach ($objectLines as $line) {
820  $code_compta = length_accountg($line->numero_compte);
821  if (!empty($line->subledger_account)) {
822  $code_compta = length_accounta($line->subledger_account);
823  }
824 
825  $date_document = dol_print_date($line->doc_date, '%Y%m%d');
826  $date_echeance = dol_print_date($line->date_lim_reglement, '%Y%m%d');
827 
828  $tab = array();
829 
830  $tab[] = str_pad($line->piece_num, 5);
831  $tab[] = str_pad(self::trunc($line->code_journal, 2), 2);
832  $tab[] = str_pad($date_document, 8, ' ', STR_PAD_LEFT);
833  $tab[] = str_pad($date_echeance, 8, ' ', STR_PAD_LEFT);
834  $tab[] = str_pad(self::trunc($line->doc_ref, 12), 12);
835  $tab[] = str_pad(self::trunc($code_compta, 11), 11);
836  $tab[] = str_pad(self::trunc(dol_string_unaccent($line->doc_ref).dol_string_unaccent($line->label_operation), 25), 25);
837  $tab[] = str_pad(price2fec(abs($line->debit - $line->credit)), 13, ' ', STR_PAD_LEFT);
838  $tab[] = str_pad($line->sens, 1);
839  $tab[] = str_repeat(' ', 18); // Analytical accounting - Not managed in Dolibarr
840  $tab[] = str_pad(self::trunc(dol_string_unaccent($line->label_operation), 34), 34);
841  $tab[] = 'O2003'; // 0 = EUR | 2003 = Format Ciel
842 
843  $output = implode($tab).$end_line;
844  if ($exportFile) {
845  fwrite($exportFile, $output);
846  } else {
847  print $output;
848  }
849  $i++;
850  }
851  }
852 
868  public function exportQuadratus($objectLines, $exportFile = null, $archiveFileList = array(), $withAttachment = 0)
869  {
870  global $conf, $db;
871 
872  $end_line = "\r\n";
873 
874  // We should use dol_now function not time however this is wrong date to transfer in accounting
875  foreach ($objectLines as $line) {
876  // Clean some data
877  $line->doc_ref = dol_string_unaccent($line->doc_ref);
878 
879  $line->label_operation = str_replace(array("\t", "\n", "\r"), " ", $line->label_operation);
880  $line->label_operation = str_replace(array("- ", "…", "..."), "", $line->label_operation);
881  $line->label_operation = dol_string_unaccent($line->label_operation);
882 
883  $line->numero_compte = dol_string_unaccent($line->numero_compte);
884  $line->label_compte = dol_string_unaccent($line->label_compte);
885  $line->subledger_account = dol_string_unaccent($line->subledger_account);
886 
887  $line->subledger_label = str_replace(array("- ", "…", "..."), "", $line->subledger_label);
888  $line->subledger_label = dol_string_unaccent($line->subledger_label);
889 
890  $code_compta = $line->numero_compte;
891  if (!empty($line->subledger_account)) {
892  $code_compta = $line->subledger_account;
893  }
894 
895  $tab = array();
896 
897  if (!empty($line->subledger_account)) {
898  $tab['type_ligne'] = 'C';
899  $tab['num_compte'] = str_pad(self::trunc($line->subledger_account, 8), 8);
900  $tab['lib_compte'] = str_pad(self::trunc($line->subledger_label, 30), 30);
901 
902  if ($line->doc_type == 'customer_invoice') {
903  $tab['lib_alpha'] = strtoupper(str_pad('C'.self::trunc(dol_string_unaccent($line->subledger_label), 6), 7));
904  $tab['filler'] = str_repeat(' ', 52);
905  $tab['coll_compte'] = str_pad(self::trunc(getDolGlobalString('ACCOUNTING_ACCOUNT_CUSTOMER'), 8), 8);
906  } elseif ($line->doc_type == 'supplier_invoice') {
907  $tab['lib_alpha'] = strtoupper(str_pad('F'.self::trunc(dol_string_unaccent($line->subledger_label), 6), 7));
908  $tab['filler'] = str_repeat(' ', 52);
909  $tab['coll_compte'] = str_pad(self::trunc(getDolGlobalString('ACCOUNTING_ACCOUNT_SUPPLIER'), 8), 8);
910  } else {
911  $tab['filler'] = str_repeat(' ', 59);
912  $tab['coll_compte'] = str_pad(' ', 8);
913  }
914 
915  $tab['filler2'] = str_repeat(' ', 110);
916  $tab['Maj'] = 2; // Partial update (alpha key, label, address, collectif, RIB)
917 
918  if ($line->doc_type == 'customer_invoice') {
919  $tab['type_compte'] = 'C';
920  } elseif ($line->doc_type == 'supplier_invoice') {
921  $tab['type_compte'] = 'F';
922  } else {
923  $tab['type_compte'] = 'G';
924  }
925 
926  $tab['filler3'] = str_repeat(' ', 235);
927 
928  $tab['end_line'] = $end_line;
929 
930  if ($exportFile) {
931  fwrite($exportFile, implode($tab));
932  } else {
933  print implode($tab);
934  }
935  }
936 
937  $tab = array();
938  $tab['type_ligne'] = 'M';
939  $tab['num_compte'] = str_pad(self::trunc($code_compta, 8), 8);
940  $tab['code_journal'] = str_pad(self::trunc($line->code_journal, 2), 2);
941  $tab['folio'] = '000';
942 
943  // We use invoice date $line->doc_date not $date_ecriture which is the transfer date
944  // maybe we should set an option for customer who prefer to keep in accounting software the tranfert date instead of invoice date ?
945  //$tab['date_ecriture'] = $date_ecriture;
946  $tab['date_ecriture'] = dol_print_date($line->doc_date, '%d%m%y');
947  $tab['filler'] = ' ';
948  $tab['libelle_ecriture'] = str_pad(self::trunc($line->doc_ref.' '.$line->label_operation, 20), 20);
949 
950  // Credit invoice - invert sens
951  /*
952  if ($line->montant < 0) {
953  if ($line->sens == 'C') {
954  $tab['sens'] = 'D';
955  } else {
956  $tab['sens'] = 'C';
957  }
958  $tab['signe_montant'] = '-';
959  } else {
960  $tab['sens'] = $line->sens; // C or D
961  $tab['signe_montant'] = '+';
962  }*/
963  $tab['sens'] = $line->sens; // C or D
964  $tab['signe_montant'] = '+';
965 
966  // The amount must be in centimes without decimal points.
967  $tab['montant'] = str_pad((string) abs(($line->debit - $line->credit) * 100), 12, '0', STR_PAD_LEFT);
968  $tab['contrepartie'] = str_repeat(' ', 8);
969 
970  // Force date format : %d%m%y
971  if (!empty($line->date_lim_reglement)) {
972  $tab['date_echeance'] = dol_print_date($line->date_lim_reglement, '%d%m%y'); // Format must be ddmmyy
973  } else {
974  $tab['date_echeance'] = '000000';
975  }
976 
977  // Please keep quadra named field lettrage(2) + codestat(3) instead of fake lettrage(5)
978  // $tab['lettrage'] = str_repeat(' ', 5);
979  $tab['lettrage'] = str_repeat(' ', 2);
980  $tab['codestat'] = str_repeat(' ', 3);
981  $tab['num_piece'] = str_pad(self::trunc($line->piece_num, 5), 5);
982 
983  // Keep correct quadra named field instead of anon filler
984  // $tab['filler2'] = str_repeat(' ', 20);
985  $tab['affaire'] = str_repeat(' ', 10);
986  $tab['quantity1'] = str_repeat(' ', 10);
987  $tab['num_piece2'] = str_pad(self::trunc($line->piece_num, 8), 8);
988  $tab['devis'] = str_pad($conf->currency, 3);
989  $tab['code_journal2'] = str_pad(self::trunc($line->code_journal, 3), 3);
990  $tab['filler3'] = str_repeat(' ', 3);
991 
992  // Keep correct quadra named field instead of anon filler libelle_ecriture2 is 30 char not 32 !!!!
993  // as we use utf8, we must remove accent to have only one ascii char instead of utf8 2 chars for specials that report wrong line size that will exceed import format spec
994  // TODO: we should filter more than only accent to avoid wrong line size
995  // TODO: remove invoice number doc_ref in label,
996  // TODO: we should offer an option for customer to build the label using invoice number / name / date in accounting software
997  //$tab['libelle_ecriture2'] = str_pad(self::trunc($line->doc_ref . ' ' . $line->label_operation, 30), 30);
998  $tab['libelle_ecriture2'] = str_pad(self::trunc($line->label_operation, 30), 30);
999  $tab['codetva'] = str_repeat(' ', 2);
1000 
1001  // We need to keep the 10 latest number of invoices doc_ref not the beginning part that is the useless almost same part
1002  // $tab['num_piece3'] = str_pad(self::trunc($line->piece_num, 10), 10);
1003  $tab['num_piece3'] = substr(self::trunc($line->doc_ref, 20), -10);
1004  $tab['reserved'] = str_repeat(' ', 10); // position 159
1005  $tab['currency_amount'] = str_repeat(' ', 13); // position 169
1006  // get document file
1007  $attachmentFileName = '';
1008  if ($withAttachment == 1) {
1009  $attachmentFileKey = trim($line->piece_num);
1010 
1011  if (!isset($archiveFileList[$attachmentFileKey])) {
1012  $objectDirPath = '';
1013  $objectFileName = dol_sanitizeFileName($line->doc_ref);
1014  if ($line->doc_type == 'customer_invoice') {
1015  $objectDirPath = !empty($conf->invoice->multidir_output[$conf->entity]) ? $conf->invoice->multidir_output[$conf->entity] : $conf->invoice->dir_output;
1016  } elseif ($line->doc_type == 'expense_report') {
1017  $objectDirPath = !empty($conf->expensereport->multidir_output[$conf->entity]) ? $conf->expensereport->multidir_output[$conf->entity] : $conf->expensereport->dir_output;
1018  } elseif ($line->doc_type == 'supplier_invoice') {
1019  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
1020  $invoice = new FactureFournisseur($this->db);
1021  $invoice->fetch($line->fk_doc);
1022  $objectDirPath = !empty($conf->fournisseur->facture->multidir_output[$conf->entity]) ? $conf->fournisseur->facture->multidir_output[$conf->entity] : $conf->fournisseur->facture->dir_output;
1023  $objectDirPath .= '/'.rtrim(get_exdir($invoice->id, 2, 0, 0, $invoice, 'invoice_supplier'), '/');
1024  }
1025  $arrayofinclusion = array();
1026  // If it is a supplier invoice, we want to use last uploaded file
1027  $arrayofinclusion[] = '^'.preg_quote($objectFileName, '/').(($line->doc_type == 'supplier_invoice') ? '.+' : '').'\.pdf$';
1028  $fileFoundList = dol_dir_list($objectDirPath.'/'.$objectFileName, 'files', 0, implode('|', $arrayofinclusion), '(\.meta|_preview.*\.png)$', 'date', SORT_DESC, 0, true);
1029  if (!empty($fileFoundList)) {
1030  $attachmentFileNameTrunc = str_pad(self::trunc($line->piece_num, 8), 8, '0', STR_PAD_LEFT);
1031  foreach ($fileFoundList as $fileFound) {
1032  if (strstr($fileFound['name'], $objectFileName)) {
1033  // skip native invoice pdfs (canelle)
1034  // We want to retrieve an attachment representative of the supplier invoice, not a fake document generated by Dolibarr.
1035  if ($line->doc_type == 'supplier_invoice') {
1036  if ($fileFound['name'] === $objectFileName.'.pdf') {
1037  continue;
1038  }
1039  } elseif ($fileFound['name'] !== $objectFileName.'.pdf') {
1040  continue;
1041  }
1042  $fileFoundPath = $objectDirPath.'/'.$objectFileName.'/'.$fileFound['name'];
1043  if (file_exists($fileFoundPath)) {
1044  $archiveFileList[$attachmentFileKey] = array(
1045  'path' => $fileFoundPath,
1046  'name' => $attachmentFileNameTrunc.'.pdf',
1047  );
1048  break;
1049  }
1050  }
1051  }
1052  }
1053  }
1054 
1055  if (isset($archiveFileList[$attachmentFileKey])) {
1056  $attachmentFileName = $archiveFileList[$attachmentFileKey]['name'];
1057  }
1058  }
1059  if (dol_strlen($attachmentFileName) == 12) {
1060  $tab['attachment'] = $attachmentFileName; // position 182
1061  } else {
1062  $tab['attachment'] = str_repeat(' ', 12); // position 182
1063  }
1064  $tab['filler4'] = str_repeat(' ', 38);
1065  $tab['end_line'] = $end_line;
1066 
1067  if ($exportFile) {
1068  fwrite($exportFile, implode($tab));
1069  } else {
1070  print implode($tab);
1071  }
1072  }
1073 
1074  return $archiveFileList;
1075  }
1076 
1087  public function exportWinfic($objectLines, $exportFile = null)
1088  {
1089  global $conf;
1090 
1091  $end_line = "\r\n";
1092  $index = 1;
1093 
1094  // Warning ! When truncation is necessary, no dot because 3 dots = three characters. The columns are shifted
1095 
1096  foreach ($objectLines as $line) {
1097  $code_compta = $line->numero_compte;
1098  if (!empty($line->subledger_account)) {
1099  $code_compta = $line->subledger_account;
1100  }
1101 
1102  $tab = array();
1103  //$tab['type_ligne'] = 'M';
1104  $tab['code_journal'] = str_pad(dol_trunc($line->code_journal, 2, 'right', 'UTF-8', 1), 2);
1105 
1106  //We use invoice date $line->doc_date not $date_ecriture which is the transfer date
1107  //maybe we should set an option for customer who prefer to keep in accounting software the tranfert date instead of invoice date ?
1108  //$tab['date_ecriture'] = $date_ecriture;
1109  $tab['date_operation'] = dol_print_date($line->doc_date, '%d%m%Y');
1110 
1111  $tab['folio'] = ' 1';
1112 
1113  $tab['num_ecriture'] = str_pad(dol_trunc($index, 6, 'right', 'UTF-8', 1), 6, ' ', STR_PAD_LEFT);
1114 
1115  $tab['jour_ecriture'] = dol_print_date($line->doc_date, '%d%m%y');
1116 
1117  $tab['num_compte'] = str_pad(dol_trunc($code_compta, 6, 'right', 'UTF-8', 1), 6, '0');
1118 
1119  if ($line->sens == 'D') {
1120  $tab['montant_debit'] = str_pad(number_format($line->debit, 2, ',', ''), 13, ' ', STR_PAD_LEFT);
1121 
1122  $tab['montant_crebit'] = str_pad(number_format(0, 2, ',', ''), 13, ' ', STR_PAD_LEFT);
1123  } else {
1124  $tab['montant_debit'] = str_pad(number_format(0, 2, ',', ''), 13, ' ', STR_PAD_LEFT);
1125 
1126  $tab['montant_crebit'] = str_pad(number_format($line->credit, 2, ',', ''), 13, ' ', STR_PAD_LEFT);
1127  }
1128 
1129  $tab['libelle_ecriture'] = str_pad(dol_trunc(dol_string_unaccent($line->doc_ref).' '.dol_string_unaccent($line->label_operation), 30, 'right', 'UTF-8', 1), 30);
1130 
1131  $tab['lettrage'] = str_repeat(dol_trunc($line->lettering_code, 2, 'left', 'UTF-8', 1), 2);
1132 
1133  $tab['code_piece'] = str_pad(dol_trunc($line->piece_num, 5, 'left', 'UTF-8', 1), 5, ' ', STR_PAD_LEFT);
1134 
1135  $tab['code_stat'] = str_repeat(' ', 4);
1136 
1137  if (!empty($line->date_lim_reglement)) {
1138  $tab['date_echeance'] = dol_print_date($line->date_lim_reglement, '%d%m%Y');
1139  } else {
1140  $tab['date_echeance'] = dol_print_date($line->doc_date, '%d%m%Y');
1141  }
1142 
1143  $tab['monnaie'] = '1';
1144 
1145  $tab['filler'] = ' ';
1146 
1147  $tab['ind_compteur'] = ' ';
1148 
1149  $tab['quantite'] = '0,000000000';
1150 
1151  $tab['code_pointage'] = str_repeat(' ', 2);
1152 
1153  $tab['end_line'] = $end_line;
1154 
1155  print implode('|', $tab);
1156 
1157  $index++;
1158  }
1159  }
1160 
1161 
1169  public function exportEbp($objectLines, $exportFile = null)
1170  {
1171  $separator = ',';
1172  $end_line = "\n";
1173 
1174  foreach ($objectLines as $line) {
1175  $date_document = dol_print_date($line->doc_date, '%d%m%Y');
1176 
1177  $tab = array();
1178 
1179  $tab[] = $line->id;
1180  $tab[] = $date_document;
1181  $tab[] = $line->code_journal;
1182  if (empty($line->subledger_account)) {
1183  $tab[] = $line->numero_compte;
1184  } else {
1185  $tab[] = $line->subledger_account;
1186  }
1187  //$tab[] = substr(length_accountg($line->numero_compte), 0, 2) . $separator;
1188  $tab[] = '"'.dol_trunc($line->label_operation, 40, 'right', 'UTF-8', 1).'"';
1189  $tab[] = '"'.dol_trunc($line->piece_num, 15, 'right', 'UTF-8', 1).'"';
1190  $tab[] = price2num(abs($line->debit - $line->credit));
1191  $tab[] = $line->sens;
1192  $tab[] = $date_document;
1193  //print 'EUR';
1194 
1195  $output = implode($separator, $tab).$end_line;
1196  if ($exportFile) {
1197  fwrite($exportFile, $output);
1198  } else {
1199  print $output;
1200  }
1201  }
1202  }
1203 
1204 
1212  public function exportAgiris($objectLines, $exportFile = null)
1213  {
1214  $separator = ';';
1215  $end_line = "\n";
1216 
1217  foreach ($objectLines as $line) {
1218  $date_document = dol_print_date($line->doc_date, '%d%m%Y');
1219 
1220  $tab = array();
1221 
1222  $tab[] = $line->piece_num;
1223  $tab[] = self::toAnsi($line->label_operation);
1224  $tab[] = $date_document;
1225  $tab[] = self::toAnsi($line->label_operation);
1226 
1227  if (empty($line->subledger_account)) {
1228  $tab[] = length_accountg($line->numero_compte);
1229  $tab[] = self::toAnsi($line->label_compte);
1230  } else {
1231  $tab[] = length_accounta($line->subledger_account);
1232  $tab[] = self::toAnsi($line->subledger_label);
1233  }
1234 
1235  $tab[] = self::toAnsi($line->doc_ref);
1236  $tab[] = price($line->debit);
1237  $tab[] = price($line->credit);
1238  $tab[] = price(abs($line->debit - $line->credit));
1239  $tab[] = $line->sens;
1240  $tab[] = $line->lettering_code;
1241  $tab[] = $line->code_journal;
1242 
1243  $output = implode($separator, $tab).$end_line;
1244  if ($exportFile) {
1245  fwrite($exportFile, $output);
1246  } else {
1247  print $output;
1248  }
1249  }
1250  }
1251 
1259  public function exportOpenConcerto($objectLines, $exportFile = null)
1260  {
1261  $separator = ';';
1262  $end_line = "\n";
1263 
1264  foreach ($objectLines as $line) {
1265  $date_document = dol_print_date($line->doc_date, '%d/%m/%Y');
1266 
1267  $tab = array();
1268 
1269  $tab[] = $date_document;
1270  $tab[] = $line->code_journal;
1271  if (empty($line->subledger_account)) {
1272  $tab[] = length_accountg($line->numero_compte);
1273  } else {
1274  $tab[] = length_accounta($line->subledger_account);
1275  }
1276  $tab[] = $line->doc_ref;
1277  $tab[] = $line->label_operation;
1278  $tab[] = price($line->debit);
1279  $tab[] = price($line->credit);
1280 
1281  $output = implode($separator, $tab).$end_line;
1282  if ($exportFile) {
1283  fwrite($exportFile, $output);
1284  } else {
1285  print $output;
1286  }
1287  }
1288  }
1289 
1297  public function exportConfigurable($objectLines, $exportFile = null)
1298  {
1299  global $conf;
1300 
1301  $separator = $this->separator;
1302 
1303  foreach ($objectLines as $line) {
1304  $date_document = dol_print_date($line->doc_date, getDolGlobalString('ACCOUNTING_EXPORT_DATE'));
1305 
1306  $tab = array();
1307  // export configurable
1308  $tab[] = $line->piece_num;
1309  $tab[] = $date_document;
1310  $tab[] = $line->doc_ref;
1311  $tab[] = preg_match('/'.$separator.'/', $line->label_operation) ? "'".$line->label_operation."'" : $line->label_operation;
1312  $tab[] = length_accountg($line->numero_compte);
1313  $tab[] = length_accounta($line->subledger_account);
1314  $tab[] = price2num($line->debit);
1315  $tab[] = price2num($line->credit);
1316  $tab[] = price2num($line->debit - $line->credit);
1317  $tab[] = $line->code_journal;
1318 
1319  $output = implode($separator, $tab).$this->end_line;
1320  if ($exportFile) {
1321  fwrite($exportFile, $output);
1322  } else {
1323  print $output;
1324  }
1325  }
1326  }
1327 
1340  public function exportFEC($objectLines, $exportFile = null, $archiveFileList = array(), $withAttachment = 0)
1341  {
1342  global $conf, $langs;
1343 
1344  $separator = "\t";
1345  $end_line = "\r\n";
1346 
1347  $tab = array();
1348  $tab[] = "JournalCode";
1349  $tab[] = "JournalLib";
1350  $tab[] = "EcritureNum";
1351  $tab[] = "EcritureDate";
1352  $tab[] = "CompteNum";
1353  $tab[] = "CompteLib";
1354  $tab[] = "CompAuxNum";
1355  $tab[] = "CompAuxLib";
1356  $tab[] = "PieceRef";
1357  $tab[] = "PieceDate";
1358  $tab[] = "EcritureLib";
1359  $tab[] = "Debit";
1360  $tab[] = "Credit";
1361  $tab[] = "EcritureLet";
1362  $tab[] = "DateLet";
1363  $tab[] = "ValidDate";
1364  $tab[] = "Montantdevise";
1365  $tab[] = "Idevise";
1366  $tab[] = "DateLimitReglmt";
1367  $tab[] = "NumFacture";
1368  $tab[] = "FichierFacture";
1369 
1370  $output = implode($separator, $tab).$end_line;
1371  if ($exportFile) {
1372  fwrite($exportFile, $output);
1373  } else {
1374  print $output;
1375  }
1376 
1377  foreach ($objectLines as $line) {
1378  if ($line->debit == 0 && $line->credit == 0) {
1379  //var_dump($line->id);
1380  //unset($array[$line]);
1381  } else {
1382  $date_creation = dol_print_date($line->date_creation, '%Y%m%d');
1383  $date_document = dol_print_date($line->doc_date, '%Y%m%d');
1384  $date_lettering = dol_print_date($line->date_lettering, '%Y%m%d');
1385  $date_validation = dol_print_date($line->date_validation, '%Y%m%d');
1386  $date_limit_payment = dol_print_date($line->date_lim_reglement, '%Y%m%d');
1387 
1388  $refInvoice = '';
1389  if ($line->doc_type == 'customer_invoice') {
1390  // Customer invoice
1391  require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
1392  $invoice = new Facture($this->db);
1393  $invoice->fetch($line->fk_doc);
1394 
1395  $refInvoice = $invoice->ref;
1396  } elseif ($line->doc_type == 'supplier_invoice') {
1397  // Supplier invoice
1398  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
1399  $invoice = new FactureFournisseur($this->db);
1400  $invoice->fetch($line->fk_doc);
1401 
1402  $refInvoice = $invoice->ref_supplier;
1403  }
1404 
1405  $tab = array();
1406 
1407  // FEC:JournalCode
1408  $tab[] = $line->code_journal;
1409 
1410  // FEC:JournalLib
1411  $labeljournal = dol_string_unaccent($langs->transnoentities($line->journal_label));
1412  $labeljournal = dol_string_nospecial($labeljournal, ' ');
1413  $tab[] = $labeljournal;
1414 
1415  // FEC:EcritureNum
1416  $tab[] = $line->piece_num;
1417 
1418  // FEC:EcritureDate
1419  $tab[] = $date_document;
1420 
1421  // FEC:CompteNum
1422  $tab[] = length_accountg($line->numero_compte);
1423 
1424  // FEC:CompteLib
1425  $tab[] = dol_string_unaccent($line->label_compte);
1426 
1427  // FEC:CompAuxNum
1428  $tab[] = length_accounta($line->subledger_account);
1429 
1430  // FEC:CompAuxLib
1431  $tab[] = dol_string_unaccent($line->subledger_label);
1432 
1433  // FEC:PieceRef
1434  $tab[] = $line->doc_ref;
1435 
1436  // FEC:PieceDate
1437  $tab[] = dol_string_unaccent($date_creation);
1438 
1439  // FEC:EcritureLib
1440  // Clean label operation to prevent problem on export with tab separator & other character
1441  $line->label_operation = str_replace(array("\t", "\n", "\r"), " ", $line->label_operation);
1442  $line->label_operation = str_replace(array("..."), "", $line->label_operation);
1443  $tab[] = dol_string_unaccent($line->label_operation);
1444 
1445  // FEC:Debit
1446  $tab[] = price2fec($line->debit);
1447 
1448  // FEC:Credit
1449  $tab[] = price2fec($line->credit);
1450 
1451  // FEC:EcritureLet
1452  $tab[] = $line->lettering_code;
1453 
1454  // FEC:DateLet
1455  $tab[] = $date_lettering;
1456 
1457  // FEC:ValidDate
1458  $tab[] = $date_validation;
1459 
1460  // FEC:Montantdevise
1461  $tab[] = $line->multicurrency_amount;
1462 
1463  // FEC:Idevise
1464  $tab[] = $line->multicurrency_code;
1465 
1466  // FEC_suppl:DateLimitReglmt
1467  $tab[] = $date_limit_payment;
1468 
1469  // FEC_suppl:NumFacture
1470  // Clean ref invoice to prevent problem on export with tab separator & other character
1471  $refInvoice = str_replace(array("\t", "\n", "\r"), " ", $refInvoice);
1472  $tab[] = dol_trunc(self::toAnsi($refInvoice), 17, 'right', 'UTF-8', 1);
1473 
1474  // FEC_suppl:FichierFacture
1475  // get document file
1476  $attachmentFileName = '';
1477  if ($withAttachment == 1) {
1478  $attachmentFileKey = trim($line->piece_num);
1479 
1480  if (!isset($archiveFileList[$attachmentFileKey])) {
1481  $objectDirPath = '';
1482  $objectFileName = dol_sanitizeFileName($line->doc_ref);
1483  if ($line->doc_type == 'customer_invoice') {
1484  $objectDirPath = !empty($conf->invoice->multidir_output[$conf->entity]) ? $conf->invoice->multidir_output[$conf->entity] : $conf->invoice->dir_output;
1485  } elseif ($line->doc_type == 'expense_report') {
1486  $objectDirPath = !empty($conf->expensereport->multidir_output[$conf->entity]) ? $conf->expensereport->multidir_output[$conf->entity] : $conf->expensereport->dir_output;
1487  } elseif ($line->doc_type == 'supplier_invoice') {
1488  $objectDirPath = !empty($conf->fournisseur->facture->multidir_output[$conf->entity]) ? $conf->fournisseur->facture->multidir_output[$conf->entity] : $conf->fournisseur->facture->dir_output;
1489  $objectDirPath .= '/'.rtrim(get_exdir($invoice->id, 2, 0, 0, $invoice, 'invoice_supplier'), '/');
1490  }
1491  $arrayofinclusion = array();
1492  // If it is a supplier invoice, we want to use last uploaded file
1493  $arrayofinclusion[] = '^'.preg_quote($objectFileName, '/').(($line->doc_type == 'supplier_invoice') ? '.+' : '').'\.pdf$';
1494  $fileFoundList = dol_dir_list($objectDirPath.'/'.$objectFileName, 'files', 0, implode('|', $arrayofinclusion), '(\.meta|_preview.*\.png)$', 'date', SORT_DESC, 0, true);
1495  if (!empty($fileFoundList)) {
1496  $attachmentFileNameTrunc = $line->doc_ref;
1497  foreach ($fileFoundList as $fileFound) {
1498  if (strstr($fileFound['name'], $objectFileName)) {
1499  // skip native invoice pdfs (canelle)
1500  // We want to retrieve an attachment representative of the supplier invoice, not a fake document generated by Dolibarr.
1501  if ($line->doc_type == 'supplier_invoice') {
1502  if ($fileFound['name'] === $objectFileName.'.pdf') {
1503  continue;
1504  }
1505  } elseif ($fileFound['name'] !== $objectFileName.'.pdf') {
1506  continue;
1507  }
1508  $fileFoundPath = $objectDirPath.'/'.$objectFileName.'/'.$fileFound['name'];
1509  if (file_exists($fileFoundPath)) {
1510  $archiveFileList[$attachmentFileKey] = array(
1511  'path' => $fileFoundPath,
1512  'name' => $attachmentFileNameTrunc.'.pdf',
1513  );
1514  break;
1515  }
1516  }
1517  }
1518  }
1519  }
1520 
1521  if (isset($archiveFileList[$attachmentFileKey])) {
1522  $attachmentFileName = $archiveFileList[$attachmentFileKey]['name'];
1523  }
1524  }
1525 
1526  $tab[] = $attachmentFileName;
1527 
1528  $output = implode($separator, $tab).$end_line;
1529 
1530  if ($exportFile) {
1531  fwrite($exportFile, $output);
1532  } else {
1533  print $output;
1534  }
1535  }
1536  }
1537 
1538  return $archiveFileList;
1539  }
1540 
1553  public function exportFEC2($objectLines, $exportFile = null, $archiveFileList = array(), $withAttachment = 0)
1554  {
1555  global $conf, $langs;
1556 
1557  $separator = "\t";
1558  $end_line = "\r\n";
1559 
1560  $tab = array();
1561  $tab[] = "JournalCode";
1562  $tab[] = "JournalLib";
1563  $tab[] = "EcritureNum";
1564  $tab[] = "EcritureDate";
1565  $tab[] = "CompteNum";
1566  $tab[] = "CompteLib";
1567  $tab[] = "CompAuxNum";
1568  $tab[] = "CompAuxLib";
1569  $tab[] = "PieceRef";
1570  $tab[] = "PieceDate";
1571  $tab[] = "EcritureLib";
1572  $tab[] = "Debit";
1573  $tab[] = "Credit";
1574  $tab[] = "EcritureLet";
1575  $tab[] = "DateLet";
1576  $tab[] = "ValidDate";
1577  $tab[] = "Montantdevise";
1578  $tab[] = "Idevise";
1579  $tab[] = "DateLimitReglmt";
1580  $tab[] = "NumFacture";
1581  $tab[] = "FichierFacture";
1582 
1583  $output = implode($separator, $tab).$end_line;
1584  if ($exportFile) {
1585  fwrite($exportFile, $output);
1586  } else {
1587  print $output;
1588  }
1589 
1590  foreach ($objectLines as $line) {
1591  if ($line->debit == 0 && $line->credit == 0) {
1592  //unset($array[$line]);
1593  } else {
1594  $date_creation = dol_print_date($line->date_creation, '%Y%m%d');
1595  $date_document = dol_print_date($line->doc_date, '%Y%m%d');
1596  $date_lettering = dol_print_date($line->date_lettering, '%Y%m%d');
1597  $date_validation = dol_print_date($line->date_validation, '%Y%m%d');
1598  $date_limit_payment = dol_print_date($line->date_lim_reglement, '%Y%m%d');
1599 
1600  $refInvoice = '';
1601  if ($line->doc_type == 'customer_invoice') {
1602  // Customer invoice
1603  require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
1604  $invoice = new Facture($this->db);
1605  $invoice->fetch($line->fk_doc);
1606 
1607  $refInvoice = $invoice->ref;
1608  } elseif ($line->doc_type == 'supplier_invoice') {
1609  // Supplier invoice
1610  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
1611  $invoice = new FactureFournisseur($this->db);
1612  $invoice->fetch($line->fk_doc);
1613 
1614  $refInvoice = $invoice->ref_supplier;
1615  }
1616 
1617  $tab = array();
1618 
1619  // FEC:JournalCode
1620  $tab[] = $line->code_journal;
1621 
1622  // FEC:JournalLib
1623  $labeljournal = dol_string_unaccent($langs->transnoentities($line->journal_label));
1624  $labeljournal = dol_string_nospecial($labeljournal, ' ');
1625  $tab[] = $labeljournal;
1626 
1627  // FEC:EcritureNum
1628  $tab[] = $line->piece_num;
1629 
1630  // FEC:EcritureDate
1631  $tab[] = $date_creation;
1632 
1633  // FEC:CompteNum
1634  $tab[] = length_accountg($line->numero_compte);
1635 
1636  // FEC:CompteLib
1637  $tab[] = dol_string_unaccent($line->label_compte);
1638 
1639  // FEC:CompAuxNum
1640  $tab[] = length_accounta($line->subledger_account);
1641 
1642  // FEC:CompAuxLib
1643  $tab[] = dol_string_unaccent($line->subledger_label);
1644 
1645  // FEC:PieceRef
1646  $tab[] = $line->doc_ref;
1647 
1648  // FEC:PieceDate
1649  $tab[] = $date_document;
1650 
1651  // FEC:EcritureLib
1652  // Clean label operation to prevent problem on export with tab separator & other character
1653  $line->label_operation = str_replace(array("\t", "\n", "\r"), " ", $line->label_operation);
1654  $line->label_operation = str_replace(array("..."), "", $line->label_operation);
1655  $tab[] = dol_string_unaccent($line->label_operation);
1656 
1657  // FEC:Debit
1658  $tab[] = price2fec($line->debit);
1659 
1660  // FEC:Credit
1661  $tab[] = price2fec($line->credit);
1662 
1663  // FEC:EcritureLet
1664  $tab[] = $line->lettering_code;
1665 
1666  // FEC:DateLet
1667  $tab[] = $date_lettering;
1668 
1669  // FEC:ValidDate
1670  $tab[] = $date_validation;
1671 
1672  // FEC:Montantdevise
1673  $tab[] = $line->multicurrency_amount;
1674 
1675  // FEC:Idevise
1676  $tab[] = $line->multicurrency_code;
1677 
1678  // FEC_suppl:DateLimitReglmt
1679  $tab[] = $date_limit_payment;
1680 
1681  // FEC_suppl:NumFacture
1682  // Clean ref invoice to prevent problem on export with tab separator & other character
1683  $refInvoice = str_replace(array("\t", "\n", "\r"), " ", $refInvoice);
1684  $tab[] = dol_trunc(self::toAnsi($refInvoice), 17, 'right', 'UTF-8', 1);
1685 
1686  // FEC_suppl:FichierFacture
1687  // get document file
1688  $attachmentFileName = '';
1689  if ($withAttachment == 1) {
1690  $attachmentFileKey = trim($line->piece_num);
1691 
1692  if (!isset($archiveFileList[$attachmentFileKey])) {
1693  $objectDirPath = '';
1694  $objectFileName = dol_sanitizeFileName($line->doc_ref);
1695  if ($line->doc_type == 'customer_invoice') {
1696  $objectDirPath = !empty($conf->invoice->multidir_output[$conf->entity]) ? $conf->invoice->multidir_output[$conf->entity] : $conf->invoice->dir_output;
1697  } elseif ($line->doc_type == 'expense_report') {
1698  $objectDirPath = !empty($conf->expensereport->multidir_output[$conf->entity]) ? $conf->expensereport->multidir_output[$conf->entity] : $conf->expensereport->dir_output;
1699  } elseif ($line->doc_type == 'supplier_invoice') {
1700  $objectDirPath = !empty($conf->fournisseur->facture->multidir_output[$conf->entity]) ? $conf->fournisseur->facture->multidir_output[$conf->entity] : $conf->fournisseur->facture->dir_output;
1701  $objectDirPath .= '/'.rtrim(get_exdir($invoice->id, 2, 0, 0, $invoice, 'invoice_supplier'), '/');
1702  }
1703  $arrayofinclusion = array();
1704  // If it is a supplier invoice, we want to use last uploaded file
1705  $arrayofinclusion[] = '^'.preg_quote($objectFileName, '/').(($line->doc_type == 'supplier_invoice') ? '.+' : '').'\.pdf$';
1706  $fileFoundList = dol_dir_list($objectDirPath.'/'.$objectFileName, 'files', 0, implode('|', $arrayofinclusion), '(\.meta|_preview.*\.png)$', 'date', SORT_DESC, 0, true);
1707  if (!empty($fileFoundList)) {
1708  $attachmentFileNameTrunc = $line->doc_ref;
1709  foreach ($fileFoundList as $fileFound) {
1710  if (strstr($fileFound['name'], $objectFileName)) {
1711  // skip native invoice pdfs (canelle)
1712  // We want to retrieve an attachment representative of the supplier invoice, not a fake document generated by Dolibarr.
1713  if ($line->doc_type == 'supplier_invoice') {
1714  if ($fileFound['name'] === $objectFileName.'.pdf') {
1715  continue;
1716  }
1717  } elseif ($fileFound['name'] !== $objectFileName.'.pdf') {
1718  continue;
1719  }
1720  $fileFoundPath = $objectDirPath.'/'.$objectFileName.'/'.$fileFound['name'];
1721  if (file_exists($fileFoundPath)) {
1722  $archiveFileList[$attachmentFileKey] = array(
1723  'path' => $fileFoundPath,
1724  'name' => $attachmentFileNameTrunc.'.pdf',
1725  );
1726  break;
1727  }
1728  }
1729  }
1730  }
1731  }
1732 
1733  if (isset($archiveFileList[$attachmentFileKey])) {
1734  $attachmentFileName = $archiveFileList[$attachmentFileKey]['name'];
1735  }
1736  }
1737 
1738  $tab[] = $attachmentFileName;
1739 
1740  $output = implode($separator, $tab).$end_line;
1741  if ($exportFile) {
1742  fwrite($exportFile, $output);
1743  } else {
1744  print $output;
1745  }
1746  }
1747  }
1748 
1749  return $archiveFileList;
1750  }
1751 
1762  public function exportSAGE50SWISS($objectLines, $exportFile = null)
1763  {
1764  // SAGE50SWISS
1765  $separator = ',';
1766  $end_line = "\r\n";
1767 
1768  // Print header line
1769  $tab = array();
1770 
1771  $tab[] = "Blg";
1772  $tab[] = "Datum";
1773  $tab[] = "Kto";
1774  $tab[] = "S/H";
1775  $tab[] = "Grp";
1776  $tab[] = "GKto";
1777  $tab[] = "SId";
1778  $tab[] = "SIdx";
1779  $tab[] = "KIdx";
1780  $tab[] = "BTyp";
1781  $tab[] = "MTyp";
1782  $tab[] = "Code";
1783  $tab[] = "Netto";
1784  $tab[] = "Steuer";
1785  $tab[] = "FW-Betrag";
1786  $tab[] = "Tx1";
1787  $tab[] = "Tx2";
1788  $tab[] = "PkKey";
1789  $tab[] = "OpId";
1790  $tab[] = "Flag";
1791 
1792  $output = implode($separator, $tab).$end_line;
1793  if ($exportFile) {
1794  fwrite($exportFile, $output);
1795  } else {
1796  print $output;
1797  }
1798 
1799  $thisPieceNum = "";
1800  $thisPieceAccountNr = "";
1801  $aSize = count($objectLines);
1802  foreach ($objectLines as $aIndex => $line) {
1803  $sammelBuchung = false;
1804  if ($aIndex - 2 >= 0 && $objectLines[$aIndex - 2]->piece_num == $line->piece_num) {
1805  $sammelBuchung = true;
1806  } elseif ($aIndex + 2 < $aSize && $objectLines[$aIndex + 2]->piece_num == $line->piece_num) {
1807  $sammelBuchung = true;
1808  } elseif ($aIndex + 1 < $aSize
1809  && $objectLines[$aIndex + 1]->piece_num == $line->piece_num
1810  && $aIndex - 1 < $aSize
1811  && $objectLines[$aIndex - 1]->piece_num == $line->piece_num
1812  ) {
1813  $sammelBuchung = true;
1814  }
1815 
1816  $tab = array();
1817 
1818  //Blg
1819  $tab[] = $line->piece_num;
1820 
1821  // Datum
1822  $date_document = dol_print_date($line->doc_date, '%d.%m.%Y');
1823  $tab[] = $date_document;
1824 
1825  // Kto
1826  $tab[] = length_accountg($line->numero_compte);
1827  // S/H
1828  if ($line->sens == 'D') {
1829  $tab[] = 'S';
1830  } else {
1831  $tab[] = 'H';
1832  }
1833  // Grp
1834  $tab[] = self::trunc($line->code_journal, 1);
1835  // GKto
1836  if (empty($line->code_tiers)) {
1837  if ($line->piece_num == $thisPieceNum) {
1838  $tab[] = length_accounta($thisPieceAccountNr);
1839  } else {
1840  $tab[] = "div";
1841  }
1842  } else {
1843  $tab[] = length_accounta($line->code_tiers);
1844  }
1845  // SId
1846  $tab[] = $this->separator;
1847  // SIdx
1848  $tab[] = "0";
1849  // KIdx
1850  $tab[] = "0";
1851  // BTyp
1852  $tab[] = "0";
1853 
1854  // MTyp 1=Fibu Einzelbuchung 2=Sammebuchung
1855  if ($sammelBuchung) {
1856  $tab[] = "2";
1857  } else {
1858  $tab[] = "1";
1859  }
1860  // Code
1861  $tab[] = '""';
1862  // Netto
1863  $tab[] = abs($line->debit - $line->credit);
1864  // Steuer
1865  $tab[] = "0.00";
1866  // FW-Betrag
1867  $tab[] = "0.00";
1868  // Tx1
1869  $line1 = self::toAnsi($line->label_compte, 29);
1870  if ($line1 == "LIQ" || $line1 == "LIQ Beleg ok" || strlen($line1) <= 3) {
1871  $line1 = "";
1872  }
1873  $line2 = self::toAnsi($line->doc_ref, 29);
1874  if (strlen($line1) == 0) {
1875  $line1 = $line2;
1876  $line2 = "";
1877  }
1878  if (strlen($line1) > 0 && strlen($line2) > 0 && (strlen($line1) + strlen($line2)) < 27) {
1879  $line1 = $line1.' / '.$line2;
1880  $line2 = "";
1881  }
1882 
1883  $tab[] = '"'.self::toAnsi($line1).'"';
1884  // Tx2
1885  $tab[] = '"'.self::toAnsi($line2).'"';
1886  //PkKey
1887  $tab[] = "0";
1888  //OpId
1889  $tab[] = $this->separator;
1890 
1891  // Flag
1892  $tab[] = "0";
1893 
1894  $output = implode($separator, $tab).$end_line;
1895  if ($exportFile) {
1896  fwrite($exportFile, $output);
1897  } else {
1898  print $output;
1899  }
1900 
1901  if ($line->piece_num !== $thisPieceNum) {
1902  $thisPieceNum = $line->piece_num;
1903  $thisPieceAccountNr = $line->numero_compte;
1904  }
1905  }
1906  }
1907 
1916  public function exportLDCompta($objectLines, $exportFile = null)
1917  {
1918  $separator = ';';
1919  $end_line = "\r\n";
1920 
1921  foreach ($objectLines as $line) {
1922  $date_document = dol_print_date($line->doc_date, '%Y%m%d');
1923  $date_creation = dol_print_date($line->date_creation, '%Y%m%d');
1924  $date_lim_reglement = dol_print_date($line->date_lim_reglement, '%Y%m%d');
1925 
1926  $tab = array();
1927 
1928  // TYPE
1929  $type_enregistrement = 'E'; // For write movement
1930  $tab[] = $type_enregistrement;
1931  // JNAL
1932  $tab[] = substr($line->code_journal, 0, 2);
1933  // NECR
1934  $tab[] = $line->id;
1935  // NPIE
1936  $tab[] = $line->piece_num;
1937  // DATP
1938  $tab[] = $date_document;
1939  // LIBE
1940  $tab[] = $line->label_operation;
1941  // DATH
1942  $tab[] = $date_lim_reglement;
1943  // CNPI
1944  if ($line->doc_type == 'supplier_invoice') {
1945  if (($line->debit - $line->credit) > 0) {
1946  $nature_piece = 'AF';
1947  } else {
1948  $nature_piece = 'FF';
1949  }
1950  } elseif ($line->doc_type == 'customer_invoice') {
1951  if (($line->debit - $line->credit) < 0) {
1952  $nature_piece = 'AC';
1953  } else {
1954  $nature_piece = 'FC';
1955  }
1956  } else {
1957  $nature_piece = '';
1958  }
1959  $tab[] = $nature_piece;
1960  // RACI
1961  // if (!empty($line->subledger_account)) {
1962  // if ($line->doc_type == 'supplier_invoice') {
1963  // $racine_subledger_account = '40';
1964  // } elseif ($line->doc_type == 'customer_invoice') {
1965  // $racine_subledger_account = '41';
1966  // } else {
1967  // $racine_subledger_account = '';
1968  // }
1969  // } else {
1970  $racine_subledger_account = ''; // for records of type E leave this field blank
1971  // }
1972 
1973  $tab[] = $racine_subledger_account; // deprecated CPTG & CPTA use instead
1974  // MONT
1975  $tab[] = price(abs($line->debit - $line->credit), 0, '', 1, 2, 2);
1976  // CODC
1977  $tab[] = $line->sens;
1978  // CPTG
1979  $tab[] = length_accountg($line->numero_compte);
1980  // DATE
1981  $tab[] = $date_creation;
1982  // CLET
1983  $tab[] = $line->lettering_code;
1984  // DATL
1985  $tab[] = $line->date_lettering;
1986  // CPTA
1987  if (!empty($line->subledger_account)) {
1988  $tab[] = length_accounta($line->subledger_account);
1989  } else {
1990  $tab[] = "";
1991  }
1992  // C.N.A.T
1993  if ($line->doc_type == 'supplier_invoice' && !empty($line->subledger_account)) {
1994  $tab[] = 'F';
1995  } elseif ($line->doc_type == 'customer_invoice' && !empty($line->subledger_account)) {
1996  $tab[] = 'C';
1997  } else {
1998  $tab[] = "";
1999  }
2000  // SECT
2001  $tab[] = "";
2002  // CTRE
2003  $tab[] = "";
2004  // NORL
2005  $tab[] = "";
2006  // DATV
2007  $tab[] = "";
2008  // REFD
2009  $tab[] = $line->doc_ref;
2010  // CODH
2011  $tab[] = "";
2012  // NSEQ
2013  $tab[] = "";
2014  // MTDV
2015  $tab[] = '0';
2016  // CODV
2017  $tab[] = "";
2018  // TXDV
2019  $tab[] = '0';
2020  // MOPM
2021  $tab[] = "";
2022  // BONP
2023  $tab[] = "";
2024  // BQAF
2025  $tab[] = "";
2026  // ECES
2027  $tab[] = "";
2028  // TXTL
2029  $tab[] = "";
2030  // ECRM
2031  $tab[] = "";
2032  // DATK
2033  $tab[] = "";
2034  // HEUK
2035  $tab[] = "";
2036 
2037  $output = implode($separator, $tab).$end_line;
2038  if ($exportFile) {
2039  fwrite($exportFile, $output);
2040  } else {
2041  print $output;
2042  }
2043  }
2044  }
2045 
2056  public function exportLDCompta10($objectLines, $exportFile = null)
2057  {
2058  require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
2059 
2060  $separator = ';';
2061  $end_line = "\r\n";
2062  $last_codeinvoice = '';
2063 
2064  foreach ($objectLines as $line) {
2065  // TYPE C
2066  if ($last_codeinvoice != $line->doc_ref) {
2067  //recherche societe en fonction de son code client
2068  $sql = "SELECT code_client, fk_forme_juridique, nom, address, zip, town, fk_pays, phone, siret FROM ".MAIN_DB_PREFIX."societe";
2069  $sql .= " WHERE code_client = '".$this->db->escape($line->thirdparty_code)."'";
2070  $resql = $this->db->query($sql);
2071 
2072  if ($resql && $this->db->num_rows($resql) > 0) {
2073  $soc = $this->db->fetch_object($resql);
2074 
2075  $address = array('', '', '');
2076  if (strpos($soc->address, "\n") !== false) {
2077  $address = explode("\n", $soc->address);
2078  if (is_array($address) && count($address) > 0) {
2079  foreach ($address as $key => $data) {
2080  $address[$key] = str_replace(array("\t", "\n", "\r"), "", $data);
2081  $address[$key] = dol_trunc($address[$key], 40, 'right', 'UTF-8', 1);
2082  }
2083  }
2084  } else {
2085  $address[0] = substr(str_replace(array("\t", "\r"), " ", $soc->address), 0, 40);
2086  $address[1] = substr(str_replace(array("\t", "\r"), " ", $soc->address), 41, 40);
2087  $address[2] = substr(str_replace(array("\t", "\r"), " ", $soc->address), 82, 40);
2088  }
2089 
2090  $tab = array();
2091 
2092  $type_enregistrement = 'C';
2093  //TYPE
2094  $tab[] = $type_enregistrement;
2095  //NOCL
2096  $tab[] = $soc->code_client;
2097  //NMCM
2098  $tab[] = "";
2099  //LIBI
2100  $tab[] = "";
2101  //TITR
2102  $tab[] = "";
2103  //RSSO
2104  $tab[] = $soc->nom;
2105  //CAD1
2106  $tab[] = $address[0];
2107  //CAD2
2108  $tab[] = $address[1];
2109  //CAD3
2110  $tab[] = $address[2];
2111  //COPO
2112  $tab[] = $soc->zip;
2113  //BUDI
2114  $tab[] = substr($soc->town, 0, 40);
2115  //CPAY
2116  $tab[] = "";
2117  //PAYS
2118  $tab[] = substr(getCountry($soc->fk_pays), 0, 40);
2119  //NTEL
2120  $tab[] = $soc->phone;
2121  //TLEX
2122  $tab[] = "";
2123  //TLPO
2124  $tab[] = "";
2125  //TLCY
2126  $tab[] = "";
2127  //NINT
2128  $tab[] = "";
2129  //COMM
2130  $tab[] = "";
2131  //SIRE
2132  $tab[] = str_replace(" ", "", $soc->siret);
2133  //RIBP
2134  $tab[] = "";
2135  //DOBQ
2136  $tab[] = "";
2137  //IBBQ
2138  $tab[] = "";
2139  //COBQ
2140  $tab[] = "";
2141  //GUBQ
2142  $tab[] = "";
2143  //CPBQ
2144  $tab[] = "";
2145  //CLBQ
2146  $tab[] = "";
2147  //BIBQ
2148  $tab[] = "";
2149  //MOPM
2150  $tab[] = "";
2151  //DJPM
2152  $tab[] = "";
2153  //DMPM
2154  $tab[] = "";
2155  //REFM
2156  $tab[] = "";
2157  //SLVA
2158  $tab[] = "";
2159  //PLCR
2160  $tab[] = "";
2161  //ECFI
2162  $tab[] = "";
2163  //CREP
2164  $tab[] = "";
2165  //NREP
2166  $tab[] = "";
2167  //TREP
2168  $tab[] = "";
2169  //MREP
2170  $tab[] = "";
2171  //GRRE
2172  $tab[] = "";
2173  //LTTA
2174  $tab[] = "";
2175  //CACT
2176  $tab[] = "";
2177  //CODV
2178  $tab[] = "";
2179  //GRTR
2180  $tab[] = "";
2181  //NOFP
2182  $tab[] = "";
2183  //BQAF
2184  $tab[] = "";
2185  //BONP
2186  $tab[] = "";
2187  //CESC
2188  $tab[] = "";
2189 
2190  $output = implode($separator, $tab).$end_line;
2191  if ($exportFile) {
2192  fwrite($exportFile, $output);
2193  } else {
2194  print $output;
2195  }
2196  }
2197  }
2198 
2199  $tab = array();
2200 
2201  $date_document = dol_print_date($line->doc_date, '%Y%m%d');
2202  $date_creation = dol_print_date($line->date_creation, '%Y%m%d');
2203  $date_lim_reglement = dol_print_date($line->date_lim_reglement, '%Y%m%d');
2204 
2205  // TYPE E
2206  $type_enregistrement = 'E'; // For write movement
2207  $tab[] = $type_enregistrement;
2208  // JNAL
2209  $tab[] = substr($line->code_journal, 0, 2);
2210  // NECR
2211  $tab[] = $line->id;
2212  // NPIE
2213  $tab[] = $line->piece_num;
2214  // DATP
2215  $tab[] = $date_document;
2216  // LIBE
2217  $tab[] = dol_trunc($line->label_operation, 25, 'right', 'UTF-8', 1);
2218  // DATH
2219  $tab[] = $date_lim_reglement;
2220  // CNPI
2221  if ($line->doc_type == 'supplier_invoice') {
2222  if (($line->amount) < 0) { // Currently, only the sign of amount allows to know the type of invoice (standard or credit note). Other solution is to analyse debit/credit/role of account. TODO Add column doc_type_long or make amount mandatory with rule on sign.
2223  $nature_piece = 'AF';
2224  } else {
2225  $nature_piece = 'FF';
2226  }
2227  } elseif ($line->doc_type == 'customer_invoice') {
2228  if (($line->amount) < 0) {
2229  $nature_piece = 'AC'; // Currently, only the sign of amount allows to know the type of invoice (standard or credit note). Other solution is to analyse debit/credit/role of account. TODO Add column doc_type_long or make amount mandatory with rule on sign.
2230  } else {
2231  $nature_piece = 'FC';
2232  }
2233  } else {
2234  $nature_piece = '';
2235  }
2236  $tab[] = $nature_piece;
2237  // RACI
2238  // if (!empty($line->subledger_account)) {
2239  // if ($line->doc_type == 'supplier_invoice') {
2240  // $racine_subledger_account = '40';
2241  // } elseif ($line->doc_type == 'customer_invoice') {
2242  // $racine_subledger_account = '41';
2243  // } else {
2244  // $racine_subledger_account = '';
2245  // }
2246  // } else {
2247  $racine_subledger_account = ''; // for records of type E leave this field blank
2248  // }
2249 
2250  $tab[] = $racine_subledger_account; // deprecated CPTG & CPTA use instead
2251  // MONT
2252  $tab[] = price(abs($line->debit - $line->credit), 0, '', 1, 2);
2253  // CODC
2254  $tab[] = $line->sens;
2255  // CPTG
2256  $tab[] = length_accountg($line->numero_compte);
2257  // DATE
2258  $tab[] = $date_document;
2259  // CLET
2260  $tab[] = $line->lettering_code;
2261  // DATL
2262  $tab[] = $line->date_lettering;
2263  // CPTA
2264  if (!empty($line->subledger_account)) {
2265  $tab[] = length_accounta($line->subledger_account);
2266  } else {
2267  $tab[] = "";
2268  }
2269  // C.N.A.T
2270  if ($line->doc_type == 'supplier_invoice' && !empty($line->subledger_account)) {
2271  $tab[] = 'F';
2272  } elseif ($line->doc_type == 'customer_invoice' && !empty($line->subledger_account)) {
2273  $tab[] = 'C';
2274  } else {
2275  $tab[] = "";
2276  }
2277  // CTRE
2278  $tab[] = "";
2279  // NORL
2280  $tab[] = "";
2281  // DATV
2282  $tab[] = "";
2283  // REFD
2284  $tab[] = $line->doc_ref;
2285  // NECA
2286  $tab[] = '0';
2287  // CSEC
2288  $tab[] = "";
2289  // CAFF
2290  $tab[] = "";
2291  // CDES
2292  $tab[] = "";
2293  // QTUE
2294  $tab[] = "";
2295  // MTDV
2296  $tab[] = '0';
2297  // CODV
2298  $tab[] = "";
2299  // TXDV
2300  $tab[] = '0';
2301  // MOPM
2302  $tab[] = "";
2303  // BONP
2304  $tab[] = "";
2305  // BQAF
2306  $tab[] = "";
2307  // ECES
2308  $tab[] = "";
2309  // TXTL
2310  $tab[] = "";
2311  // ECRM
2312  $tab[] = "";
2313  // DATK
2314  $tab[] = "";
2315  // HEUK
2316  $tab[] = "";
2317 
2318  $output = implode($separator, $tab).$end_line;
2319  if ($exportFile) {
2320  fwrite($exportFile, $output);
2321  } else {
2322  print $output;
2323  }
2324 
2325  $last_codeinvoice = $line->doc_ref;
2326  }
2327  }
2328 
2336  public function exportCharlemagne($objectLines, $exportFile = null)
2337  {
2338  global $langs;
2339  $langs->load('compta');
2340 
2341  $separator = "\t";
2342  $end_line = "\n";
2343 
2344  $tab = array();
2345 
2346  $tab[] = $langs->transnoentitiesnoconv('Date');
2347  $tab[] = self::trunc($langs->transnoentitiesnoconv('Journal'), 6);
2348  $tab[] = self::trunc($langs->transnoentitiesnoconv('Account'), 15);
2349  $tab[] = self::trunc($langs->transnoentitiesnoconv('LabelAccount'), 60);
2350  $tab[] = self::trunc($langs->transnoentitiesnoconv('Piece'), 20);
2351  $tab[] = self::trunc($langs->transnoentitiesnoconv('LabelOperation'), 60);
2352  $tab[] = $langs->transnoentitiesnoconv('Amount');
2353  $tab[] = 'S';
2354  $tab[] = self::trunc($langs->transnoentitiesnoconv('Analytic').' 1', 15);
2355  $tab[] = self::trunc($langs->transnoentitiesnoconv('AnalyticLabel').' 1', 60);
2356  $tab[] = self::trunc($langs->transnoentitiesnoconv('Analytic').' 2', 15);
2357  $tab[] = self::trunc($langs->transnoentitiesnoconv('AnalyticLabel').' 2', 60);
2358  $tab[] = self::trunc($langs->transnoentitiesnoconv('Analytic').' 3', 15);
2359  $tab[] = self::trunc($langs->transnoentitiesnoconv('AnalyticLabel').' 3', 60);
2360 
2361  $output = implode($separator, $tab).$end_line;
2362  if ($exportFile) {
2363  fwrite($exportFile, $output);
2364  } else {
2365  print $output;
2366  }
2367 
2368  foreach ($objectLines as $line) {
2369  $date_document = dol_print_date($line->doc_date, '%Y%m%d');
2370 
2371  $tab = array();
2372 
2373  $tab[] = $date_document; //Date
2374 
2375  $tab[] = self::trunc($line->code_journal, 6); //Journal code
2376 
2377  if (!empty($line->subledger_account)) {
2378  $account = $line->subledger_account;
2379  } else {
2380  $account = $line->numero_compte;
2381  }
2382  $tab[] = self::trunc($account, 15); //Account number
2383 
2384  $tab[] = self::trunc($line->label_compte, 60); //Account label
2385  $tab[] = self::trunc($line->doc_ref, 20); //Piece
2386  // Clean label operation to prevent problem on export with tab separator & other character
2387  $line->label_operation = str_replace(array("\t", "\n", "\r"), " ", $line->label_operation);
2388  $tab[] = self::trunc($line->label_operation, 60); //Operation label
2389  $tab[] = price(abs($line->debit - $line->credit)); //Amount
2390  $tab[] = $line->sens; //Direction
2391  $tab[] = ""; //Analytic
2392  $tab[] = ""; //Analytic
2393  $tab[] = ""; //Analytic
2394  $tab[] = ""; //Analytic
2395  $tab[] = ""; //Analytic
2396  $tab[] = ""; //Analytic
2397 
2398  $output = implode($separator, $tab).$end_line;
2399  if ($exportFile) {
2400  fwrite($exportFile, $output);
2401  } else {
2402  print $output;
2403  }
2404  }
2405  }
2406 
2414  public function exportGestimumV3($objectLines, $exportFile = null)
2415  {
2416  global $langs;
2417 
2418  $separator = ',';
2419  $end_line = "\r\n";
2420 
2421  $invoices_infos = array();
2422  $supplier_invoices_infos = array();
2423  foreach ($objectLines as $line) {
2424  if ($line->debit == 0 && $line->credit == 0) {
2425  //unset($array[$line]);
2426  } else {
2427  $date_document = dol_print_date($line->doc_date, '%d/%m/%Y');
2428  $date_echeance = dol_print_date($line->date_lim_reglement, '%Y%m%d');
2429 
2430  $invoice_ref = $line->doc_ref;
2431  $company_name = "";
2432 
2433  if (($line->doc_type == 'customer_invoice' || $line->doc_type == 'supplier_invoice') && $line->fk_doc > 0) {
2434  if (($line->doc_type == 'customer_invoice' && !isset($invoices_infos[$line->fk_doc])) ||
2435  ($line->doc_type == 'supplier_invoice' && !isset($supplier_invoices_infos[$line->fk_doc]))) {
2436  if ($line->doc_type == 'customer_invoice') {
2437  // Get new customer invoice ref and company name
2438  $sql = 'SELECT f.ref, s.nom FROM ' . MAIN_DB_PREFIX . 'facture as f';
2439  $sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'societe AS s ON f.fk_soc = s.rowid';
2440  $sql .= ' WHERE f.rowid = '.((int) $line->fk_doc);
2441  $resql = $this->db->query($sql);
2442  if ($resql) {
2443  if ($obj = $this->db->fetch_object($resql)) {
2444  // Save invoice infos
2445  $invoices_infos[$line->fk_doc] = array('ref' => $obj->ref, 'company_name' => $obj->nom);
2446  $invoice_ref = $obj->ref;
2447  $company_name = $obj->nom;
2448  }
2449  }
2450  } else {
2451  // Get new supplier invoice ref and company name
2452  $sql = 'SELECT ff.ref, s.nom FROM ' . MAIN_DB_PREFIX . 'facture_fourn as ff';
2453  $sql .= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'societe AS s ON ff.fk_soc = s.rowid';
2454  $sql .= ' WHERE ff.rowid = '.((int) $line->fk_doc);
2455  $resql = $this->db->query($sql);
2456  if ($resql) {
2457  if ($obj = $this->db->fetch_object($resql)) {
2458  // Save invoice infos
2459  $supplier_invoices_infos[$line->fk_doc] = array('ref' => $obj->ref, 'company_name' => $obj->nom);
2460  $invoice_ref = $obj->ref;
2461  $company_name = $obj->nom;
2462  }
2463  }
2464  }
2465  } elseif ($line->doc_type == 'customer_invoice') {
2466  // Retrieve invoice infos
2467  $invoice_ref = $invoices_infos[$line->fk_doc]['ref'];
2468  $company_name = $invoices_infos[$line->fk_doc]['company_name'];
2469  } else {
2470  // Retrieve invoice infos
2471  $invoice_ref = $supplier_invoices_infos[$line->fk_doc]['ref'];
2472  $company_name = $supplier_invoices_infos[$line->fk_doc]['company_name'];
2473  }
2474  }
2475 
2476  $tab = array();
2477 
2478  $tab[] = $line->id;
2479  $tab[] = $date_document;
2480  $tab[] = substr($line->code_journal, 0, 4);
2481 
2482  if ((substr($line->numero_compte, 0, 3) == '411') || (substr($line->numero_compte, 0, 3) == '401')) {
2483  $tab[] = length_accountg($line->subledger_account);
2484  } else {
2485  $tab[] = substr(length_accountg($line->numero_compte), 0, 15);
2486  }
2487  //Libellé Auto
2488  $tab[] = "";
2489  //print '"'.dol_trunc(str_replace('"', '', $line->label_operation),40,'right','UTF-8',1).'"';
2490  //Libellé manual
2491  $tab[] = dol_trunc(str_replace('"', '', $invoice_ref . (!empty($company_name) ? ' - ' : '') . $company_name), 40, 'right', 'UTF-8', 1);
2492  //Numéro de pièce
2493  $tab[] = dol_trunc(str_replace('"', '', $line->piece_num), 10, 'right', 'UTF-8', 1);
2494  //Devise
2495  $tab[] = 'EUR';
2496  //Amount
2497  $tab[] = price2num(abs($line->debit - $line->credit));
2498  //Sens
2499  $tab[] = $line->sens;
2500  //Code lettrage
2501  $tab[] = "";
2502  //Date Echéance
2503  $tab[] = $date_echeance;
2504 
2505  $output = implode($separator, $tab).$end_line;
2506  if ($exportFile) {
2507  fwrite($exportFile, $output);
2508  } else {
2509  print $output;
2510  }
2511  }
2512  }
2513  }
2514 
2522  public function exportGestimumV5($objectLines, $exportFile = null)
2523  {
2524  $separator = ',';
2525  $end_line = "\r\n";
2526 
2527  foreach ($objectLines as $line) {
2528  if ($line->debit == 0 && $line->credit == 0) {
2529  //unset($array[$line]);
2530  } else {
2531  $date_document = dol_print_date($line->doc_date, '%d%m%Y');
2532 
2533  $tab = array();
2534 
2535  $tab[] = $line->id;
2536  $tab[] = $date_document;
2537  $tab[] = substr($line->code_journal, 0, 4);
2538  if ((substr($line->numero_compte, 0, 3) == '411') || (substr($line->numero_compte, 0, 3) == '401')) { // TODO No hard code value
2539  $tab[] = length_accountg($line->subledger_account);
2540  } else {
2541  $tab[] = substr(length_accountg($line->numero_compte), 0, 15);
2542  }
2543  $tab[] = "";
2544  $tab[] = '"'.dol_trunc(str_replace('"', '', $line->label_operation), 40, 'right', 'UTF-8', 1).'"';
2545  $tab[] = '"' . dol_trunc(str_replace('"', '', $line->doc_ref), 40, 'right', 'UTF-8', 1) . '"';
2546  $tab[] = '"' . dol_trunc(str_replace('"', '', $line->piece_num), 10, 'right', 'UTF-8', 1) . '"';
2547  $tab[] = price2num(abs($line->debit - $line->credit));
2548  $tab[] = $line->sens;
2549  $tab[] = $date_document;
2550  $tab[] = "";
2551  $tab[] = "";
2552  $tab[] = 'EUR';
2553 
2554  $output = implode($separator, $tab).$end_line;
2555  if ($exportFile) {
2556  fwrite($exportFile, $output);
2557  } else {
2558  print $output;
2559  }
2560  }
2561  }
2562  }
2563 
2573  public function exportiSuiteExpert($objectLines, $exportFile = null)
2574  {
2575  $separator = ';';
2576  $end_line = "\r\n";
2577 
2578 
2579  foreach ($objectLines as $line) {
2580  $tab = array();
2581 
2582  $date = dol_print_date($line->doc_date, '%d/%m/%Y');
2583 
2584  $tab[] = $line->piece_num;
2585  $tab[] = $date;
2586  $tab[] = substr($date, 6, 4);
2587  $tab[] = substr($date, 3, 2);
2588  $tab[] = substr($date, 0, 2);
2589  $tab[] = $line->doc_ref;
2590  //Conversion de chaine UTF8 en Latin9
2591  $tab[] = mb_convert_encoding(str_replace(' - Compte auxiliaire', '', $line->label_operation), "Windows-1252", 'UTF-8');
2592 
2593  //Calcul de la longueur des numéros de comptes
2594  $taille_numero = strlen(length_accountg($line->numero_compte));
2595 
2596  //Création du numéro de client et fournisseur générique
2597  $numero_cpt_client = '411';
2598  $numero_cpt_fourn = '401';
2599  for ($i = 1; $i <= ($taille_numero - 3); $i++) {
2600  $numero_cpt_client .= '0';
2601  $numero_cpt_fourn .= '0';
2602  }
2603 
2604  //Création des comptes auxiliaire des clients et fournisseur
2605  if (length_accountg($line->numero_compte) == $numero_cpt_client || length_accountg($line->numero_compte) == $numero_cpt_fourn) {
2606  $tab[] = rtrim(length_accounta($line->subledger_account), "0");
2607  } else {
2608  $tab[] = length_accountg($line->numero_compte);
2609  }
2610  $nom_client = explode(" - ", $line->label_operation);
2611  $tab[] = mb_convert_encoding($nom_client[0], "Windows-1252", 'UTF-8');
2612  $tab[] = price($line->debit);
2613  $tab[] = price($line->credit);
2614  $tab[] = price($line->montant);
2615  $tab[] = $line->code_journal;
2616 
2617  $output = implode($separator, $tab).$end_line;
2618  if ($exportFile) {
2619  fwrite($exportFile, $output);
2620  } else {
2621  print $output;
2622  }
2623  }
2624  }
2625 
2633  public static function trunc($str, $size)
2634  {
2635  return dol_trunc($str, $size, 'right', 'UTF-8', 1);
2636  }
2637 
2645  public static function toAnsi($str, $size = -1)
2646  {
2647  $retVal = dol_string_nohtmltag($str, 1, 'Windows-1251');
2648  if ($retVal >= 0 && $size >= 0) {
2649  $retVal = dol_substr($retVal, 0, $size, 'Windows-1251');
2650  }
2651  return $retVal;
2652  }
2653 }
length_accountg
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
Definition: accounting.lib.php:94
length_accounta
length_accounta($accounta)
Return Auxiliary accounting account of thirdparties with defined length.
Definition: accounting.lib.php:133
AccountancyExport
Manage the different format accountancy export.
Definition: accountancyexport.class.php:50
AccountancyExport\export
export(&$TData, $formatexportset, $withAttachment=0, $downloadMode=0, $outputMode=0, $noouput=0)
Function who chose which export to use with the default config, and make the export into a file.
Definition: accountancyexport.class.php:355
AccountancyExport\exportCogilog
exportCogilog($objectLines, $exportFile=null)
Export format : COGILOG Last review for this format : 2022-07-12 Alexandre Spangaro (aspangaro@open-d...
Definition: accountancyexport.class.php:657
AccountancyExport\exportAgiris
exportAgiris($objectLines, $exportFile=null)
Export format : Agiris Isacompta.
Definition: accountancyexport.class.php:1212
AccountancyExport\exportQuadratus
exportQuadratus($objectLines, $exportFile=null, $archiveFileList=array(), $withAttachment=0)
Export format : Quadratus (Format ASCII) Format since 2015 compatible QuadraCOMPTA Last review for th...
Definition: accountancyexport.class.php:868
AccountancyExport\exportWinfic
exportWinfic($objectLines, $exportFile=null)
Export format : WinFic - eWinfic - WinSis Compta Last review for this format : 2022-11-01 Alexandre S...
Definition: accountancyexport.class.php:1087
AccountancyExport\exportSAGE50SWISS
exportSAGE50SWISS($objectLines, $exportFile=null)
Export format : SAGE50SWISS.
Definition: accountancyexport.class.php:1762
AccountancyExport\exportOpenConcerto
exportOpenConcerto($objectLines, $exportFile=null)
Export format : OpenConcerto.
Definition: accountancyexport.class.php:1259
AccountancyExport\exportEbp
exportEbp($objectLines, $exportFile=null)
Export format : EBP.
Definition: accountancyexport.class.php:1169
AccountancyExport\exportLDCompta10
exportLDCompta10($objectLines, $exportFile=null)
Export format : LD Compta version 10 & higher Last review for this format : 08-15-2021 Alexandre Span...
Definition: accountancyexport.class.php:2056
AccountancyExport\exportCharlemagne
exportCharlemagne($objectLines, $exportFile=null)
Export format : Charlemagne.
Definition: accountancyexport.class.php:2336
AccountancyExport\getTypeConfig
getTypeConfig()
Array with all export type available (key + label) and parameters for config.
Definition: accountancyexport.class.php:221
AccountancyExport\exportFEC
exportFEC($objectLines, $exportFile=null, $archiveFileList=array(), $withAttachment=0)
Export format : FEC Last review for this format : 2023/10/12 Alexandre Spangaro (aspangaro@open-dsi....
Definition: accountancyexport.class.php:1340
AccountancyExport\exportLDCompta
exportLDCompta($objectLines, $exportFile=null)
Export format : LD Compta version 9 http://www.ldsysteme.fr/fileadmin/telechargement/np/ldcompta/Docu...
Definition: accountancyexport.class.php:1916
AccountancyExport\exportBob50
exportBob50($objectLines, $exportFile=null)
Export format : BOB50.
Definition: accountancyexport.class.php:758
AccountancyExport\exportGestimumV3
exportGestimumV3($objectLines, $exportFile=null)
Export format : Gestimum V3.
Definition: accountancyexport.class.php:2414
AccountancyExport\trunc
static trunc($str, $size)
trunc
Definition: accountancyexport.class.php:2633
AccountancyExport\exportiSuiteExpert
exportiSuiteExpert($objectLines, $exportFile=null)
Export format : iSuite Expert.
Definition: accountancyexport.class.php:2573
AccountancyExport\exportCiel
exportCiel($objectLines, $exportFile=null)
Export format : CIEL (Format XIMPORT) Format since 2003 compatible CIEL version > 2002 / Sage50 Last ...
Definition: accountancyexport.class.php:813
AccountancyExport\getType
getType($mode=0)
Array with all export type available (key + label)
Definition: accountancyexport.class.php:122
AccountancyExport\toAnsi
static toAnsi($str, $size=-1)
toAnsi
Definition: accountancyexport.class.php:2645
AccountancyExport\exportConfigurable
exportConfigurable($objectLines, $exportFile=null)
Export format : Configurable CSV.
Definition: accountancyexport.class.php:1297
AccountancyExport\getFormatCode
static getFormatCode($type)
Return string to summarize the format (Used to generated export filename)
Definition: accountancyexport.class.php:183
AccountancyExport\exportFEC2
exportFEC2($objectLines, $exportFile=null, $archiveFileList=array(), $withAttachment=0)
Export format : FEC2 Last review for this format : 2023/10/12 Alexandre Spangaro (aspangaro@open-dsi....
Definition: accountancyexport.class.php:1553
AccountancyExport\__construct
__construct(DoliDB $db)
Constructor.
Definition: accountancyexport.class.php:105
AccountancyExport\exportCegid
exportCegid($objectLines, $exportFile=null)
Export format : CEGID.
Definition: accountancyexport.class.php:621
AccountancyExport\exportCoala
exportCoala($objectLines, $exportFile=null)
Export format : COALA.
Definition: accountancyexport.class.php:721
AccountancyExport\getMimeType
getMimeType($formatexportset)
Return the MIME type of a file.
Definition: accountancyexport.class.php:324
AccountancyExport\exportGestimumV5
exportGestimumV5($objectLines, $exportFile=null)
Export format : Gestimum V5.
Definition: accountancyexport.class.php:2522
DoliDB
Class to manage Dolibarr database access.
Definition: DoliDB.class.php:34
FactureFournisseur
Class to manage suppliers invoices.
Definition: fournisseur.facture.class.php:54
Facture
Class to manage invoices.
Definition: facture.class.php:64
getCountry
getCountry($searchkey, $withcode='', $dbtouse=null, $outputlangs=null, $entconv=1, $searchlabel='')
Return country label, code or id from an id, code or label.
Definition: company.lib.php:535
$sql
if(isModEnabled('invoice') && $user->hasRight('facture', 'lire')) if((isModEnabled('fournisseur') &&!getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD') && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') && $user->hasRight('don', 'lire')) if(isModEnabled('tax') && $user->hasRight('tax', 'charges', 'lire')) if(isModEnabled('invoice') &&isModEnabled('order') && $user->hasRight("commande", "lire") &&!getDolGlobalString('WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER')) $sql
Social contributions to pay.
Definition: index.php:745
dol_filesize
dol_filesize($pathoffile)
Return size of a file.
Definition: files.lib.php:635
dol_dir_list
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
Definition: files.lib.php:63
dol_is_dir
dol_is_dir($folder)
Test if filename is a directory.
Definition: files.lib.php:489
price2fec
price2fec($amount)
Function to format a value into a defined format for French administration (no thousand separator & d...
Definition: functions2.lib.php:2774
dol_string_nohtmltag
dol_string_nohtmltag($stringtoclean, $removelinefeed=1, $pagecodeto='UTF-8', $strip_tags=0, $removedoublespaces=1)
Clean a string from all HTML tags and entities.
Definition: functions.lib.php:7739
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition: functions.lib.php:6632
dol_string_nospecial
dol_string_nospecial($str, $newstr='_', $badcharstoreplace='', $badcharstoremove='', $keepspaces=0)
Clean a string from all punctuation characters to use it as a ref or login.
Definition: functions.lib.php:1711
dol_strlen
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
Definition: functions.lib.php:4584
price
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
Definition: functions.lib.php:6505
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
Definition: functions.lib.php:223
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
Definition: functions.lib.php:3182
dol_string_unaccent
dol_string_unaccent($str)
Clean a string from all accent characters to be used as ref, login or by dol_sanitizeFileName.
Definition: functions.lib.php:1639
dol_substr
dol_substr($string, $start, $length=null, $stringencoding='', $trunconbytes=0)
Make a substring.
Definition: functions.lib.php:4607
readfileLowMemory
readfileLowMemory($fullpath_original_file_osencoded, $method=-1)
Return a file on output using a low memory.
Definition: functions.lib.php:13058
dol_sanitizeFileName
dol_sanitizeFileName($str, $newstr='_', $unaccent=1)
Clean a string to use it as a file name.
Definition: functions.lib.php:1537
dol_trunc
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
Definition: functions.lib.php:4646
getDolGlobalString
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition: functions.lib.php:208
get_exdir
get_exdir($num, $level, $alpha, $withoutslash, $object, $modulepart='')
Return a path to have a the directory according to object where files are stored.
Definition: functions.lib.php:7576
dol_mkdir
dol_mkdir($dir, $dataroot='', $newmask='')
Creation of a directory (this can create recursive subdir)
Definition: functions.lib.php:7628
top_httphead
if(!defined('NOREQUIREMENU')) if(!empty(GETPOST('seteventmessages', 'alpha'))) if(!function_exists("llxHeader")) top_httphead($contenttype='text/html', $forcenocache=0)
Show HTTP header.
Definition: main.inc.php:1648
Generated on Sat Jun 1 2024 01:00:36 for dolibarr by Doxygen 1.9.1