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

Update Bob50 Export

Browse Source
This commit is contained in:
Alexandre SPANGARO 2023-04-29 07:44:32 +02:00
parent 078be6088f
commit ca0e032a04
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

@ -692,38 +692,47 @@ class AccountancyExport
/** /**
* Export format : BOB50 * Export format : BOB50
* *
* @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 exportBob50($objectLines) public function exportBob50($objectLines, $exportFile = null)
{ {
// Bob50 // Bob50
$separator = ";"; $separator = ";";
$end_line = "\n"; $end_line = "\n";
foreach ($objectLines as $line) { foreach ($objectLines as $line) {
print $line->piece_num.$separator; $date_document = dol_print_date($line->doc_date, '%d/%m/%Y');
$date = dol_print_date($line->doc_date, '%d/%m/%Y');
print $date.$separator; $tab = array();
$tab[] = $line->piece_num;
$tab[] = $date_document;
if (empty($line->subledger_account)) { if (empty($line->subledger_account)) {
print 'G'.$separator; $tab[] = 'G';
print length_accounta($line->numero_compte).$separator; $tab[] = length_accountg($line->numero_compte);
} else { } else {
if (substr($line->numero_compte, 0, 3) == '411') { if (substr($line->numero_compte, 0, 3) == '411') {
print 'C'.$separator; $tab[] = 'C';
} }
if (substr($line->numero_compte, 0, 3) == '401') { if (substr($line->numero_compte, 0, 3) == '401') {
print 'F'.$separator; $tab[] = 'F';
} }
print length_accountg($line->subledger_account).$separator; $tab[] = length_accounta($line->subledger_account);
} }
print price($line->debit).$separator; $tab[] = price($line->debit);
print price($line->credit).$separator; $tab[] = price($line->credit);
print dol_trunc($line->label_operation, 32).$separator; $tab[] = dol_trunc($line->label_operation, 32);
print $end_line;
$output = implode($separator, $tab).$end_line;
if ($exportFile) {
fwrite($exportFile, $output);
} else {
print $output;
}
} }
} }