Revision 8e9ede8f
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
bin/mozilla/ca.pl | ||
---|---|---|
368 | 368 |
$lxdebug->leave_sub(); |
369 | 369 |
} |
370 | 370 |
|
371 |
sub format_debit_credit { |
|
372 |
$lxdebug->enter_sub(); |
|
373 |
|
|
374 |
my $dc = shift; |
|
375 |
|
|
376 |
my $formatted_dc = $form->format_amount(\%myconfig, abs($dc), 2) . ' '; |
|
377 |
$formatted_dc .= ($dc > 0) ? $locale->text('Credit (one letter abbreviation)') : $locale->text('Debit (one letter abbreviation)'); |
|
378 |
|
|
379 |
$lxdebug->leave_sub(); |
|
380 |
|
|
381 |
return $formatted_dc; |
|
382 |
} |
|
383 |
|
|
384 |
|
|
371 | 385 |
sub list_transactions { |
372 | 386 |
$lxdebug->enter_sub(); |
373 | 387 |
|
... | ... | |
479 | 493 |
CA->all_transactions(\%myconfig, \%$form); |
480 | 494 |
|
481 | 495 |
|
482 |
my $saldo_old = ($form->{saldo_old} > 0) ? $form->format_amount(\%myconfig, $form->{saldo_old}, 2) . " H" : $form->format_amount(\%myconfig, abs($form->{saldo_old}) , 2) . " S"; |
|
483 |
|
|
484 |
my $eb_string = ($form->{beginning_balance} > 0) ? $form->format_amount(\%myconfig, $form->{beginning_balance}, 2) . " H" : $form->format_amount(\%myconfig, abs($form->{beginning_balance}), 2) . " S"; |
|
496 |
my $saldo_old = format_debit_credit($form->{saldo_old}); |
|
497 |
my $eb_string = format_debit_credit($form->{beginning_balance}); |
|
485 | 498 |
|
486 | 499 |
my @options; |
487 | 500 |
if ($form->{department}) { |
... | ... | |
696 | 709 |
}; |
697 | 710 |
|
698 | 711 |
$report->add_data($row); |
699 |
my $saldo_new = ($form->{saldo_new} > 0) ? $form->format_amount(\%myconfig, $form->{saldo_new}, 2) . " H" : $form->format_amount(\%myconfig, abs($form->{saldo_new}) , 2) . " S";
|
|
712 |
my $saldo_new = format_debit_credit($form->{saldo_new});
|
|
700 | 713 |
my $row = { |
701 | 714 |
'transdate' => { |
702 | 715 |
'data' => "", |
locale/de/all | ||
---|---|---|
367 | 367 |
'Created for' => 'Erstellt für', |
368 | 368 |
'Created on' => 'Erstellt am', |
369 | 369 |
'Credit' => 'Haben', |
370 |
'Credit (one letter abbreviation)' => 'H', |
|
370 | 371 |
'Credit Account' => 'Habenkonto', |
371 | 372 |
'Credit Limit' => 'Kreditlimit', |
372 | 373 |
'Credit Limit exceeded!!!' => 'Kreditlimit ?berschritten!', |
... | ... | |
427 | 428 |
'Datevautomatik' => 'Datevexport', |
428 | 429 |
'Datum von' => 'Datum von', |
429 | 430 |
'Debit' => 'Soll', |
431 |
'Debit (one letter abbreviation)' => 'S', |
|
430 | 432 |
'Debit Account' => 'Sollkonto', |
431 | 433 |
'Debit Starting Balance' => 'EB Passiva', |
432 | 434 |
'Debit Tax' => 'Vorsteuer', |
locale/de/ca | ||
---|---|---|
37 | 37 |
'Create and edit sales quotations' => 'Angebote erfassen und bearbeiten', |
38 | 38 |
'Create and edit vendor invoices' => 'Eingangsrechnungen erfassen und bearbeiten', |
39 | 39 |
'Credit' => 'Haben', |
40 |
'Credit (one letter abbreviation)' => 'H', |
|
40 | 41 |
'Credit Note' => 'Gutschrift', |
41 | 42 |
'Customized Report' => 'Vorgew?hlte Zeitr?ume', |
42 | 43 |
'DATEV Export' => 'DATEV-Export', |
... | ... | |
45 | 46 |
'Dataset upgrade' => 'Datenbankaktualisierung', |
46 | 47 |
'Date' => 'Datum', |
47 | 48 |
'Debit' => 'Soll', |
49 |
'Debit (one letter abbreviation)' => 'S', |
|
48 | 50 |
'Dec' => 'Dez', |
49 | 51 |
'December' => 'Dezember', |
50 | 52 |
'Decimalplaces' => 'Dezimalstellen', |
... | ... | |
171 | 173 |
$self->{subs} = { |
172 | 174 |
'chart_of_accounts' => 'chart_of_accounts', |
173 | 175 |
'create_subtotal_row' => 'create_subtotal_row', |
176 |
'format_debit_credit' => 'format_debit_credit', |
|
174 | 177 |
'list' => 'list', |
175 | 178 |
'list_transactions' => 'list_transactions', |
176 | 179 |
'report_generator_back' => 'report_generator_back', |
Auch abrufbar als: Unified diff
Zahlenformatierung mit H/S in eigene Funktion gesteckt.