lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update EBP Export

Browse Source
This commit is contained in:
Alexandre SPANGARO 2023-04-29 07:54:53 +02:00
parent 40358bb12e
commit 7ab189b054
1 changed files with 25 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
htdocs/accountancy/class/accountancyexport.class.php
View File

@ -1090,34 +1090,43 @@ class AccountancyExport
/** /**
* Export format : EBP * Export format : EBP
* *
* @param array $objectLines data * @param array $objectLines data
* @return void * @param resource $exportFile [=null] File resource to export or print if null
* @return void
*/ */
public function exportEbp($objectLines) public function exportEbp($objectLines, $exportFile = null)
{ {
$separator = ','; $separator = ',';
$end_line = "\n"; $end_line = "\n";
foreach ($objectLines as $line) { foreach ($objectLines as $line) {
$date = dol_print_date($line->doc_date, '%d%m%Y'); $date_document = dol_print_date($line->doc_date, '%d%m%Y');
print $line->id.$separator; $tab = array();
print $date.$separator;
print $line->code_journal.$separator; $tab[] = $line->id;
$tab[] = $date_document;
$tab[] = $line->code_journal;
if (empty($line->subledger_account)) { if (empty($line->subledger_account)) {
print $line->numero_compte.$separator; $tab[] = $line->numero_compte;
} else { } else {
print $line->subledger_account.$separator; $tab[] = $line->subledger_account;
} }
//print substr(length_accountg($line->numero_compte), 0, 2) . $separator; //$tab[] = substr(length_accountg($line->numero_compte), 0, 2) . $separator;
print '"'.dol_trunc($line->label_operation, 40, 'right', 'UTF-8', 1).'"'.$separator; $tab[] = '"'.dol_trunc($line->label_operation, 40, 'right', 'UTF-8', 1).'"';
print '"'.dol_trunc($line->piece_num, 15, 'right', 'UTF-8', 1).'"'.$separator; $tab[] = '"'.dol_trunc($line->piece_num, 15, 'right', 'UTF-8', 1).'"';
print price2num(abs($line->debit - $line->credit)).$separator; $tab[] = price2num(abs($line->debit - $line->credit));
print $line->sens.$separator; $tab[] = $line->sens;
print $date.$separator; $tab[] = $date_document;
//print 'EUR'; //print 'EUR';
print $end_line;
$output = implode($tab).$end_line;
if ($exportFile) {
fwrite($exportFile, $output);
} else {
print $output;
}
} }
} }