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
*
* @param array $objectLines data
* @return void
* @param array $objectLines data
* @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
$separator = ";";
$end_line = "\n";
foreach ($objectLines as $line) {
print $line->piece_num.$separator;
$date = dol_print_date($line->doc_date, '%d/%m/%Y');
print $date.$separator;
$date_document = dol_print_date($line->doc_date, '%d/%m/%Y');
$tab = array();
$tab[] = $line->piece_num;
$tab[] = $date_document;
if (empty($line->subledger_account)) {
print 'G'.$separator;
print length_accounta($line->numero_compte).$separator;
$tab[] = 'G';
$tab[] = length_accountg($line->numero_compte);
} else {
if (substr($line->numero_compte, 0, 3) == '411') {
print 'C'.$separator;
$tab[] = 'C';
}
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;
print price($line->credit).$separator;
print dol_trunc($line->label_operation, 32).$separator;
print $end_line;
$tab[] = price($line->debit);
$tab[] = price($line->credit);
$tab[] = dol_trunc($line->label_operation, 32);
$output = implode($separator, $tab).$end_line;
if ($exportFile) {
fwrite($exportFile, $output);
} else {
print $output;
}
}
}