Revision f95864a1
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 258 | 258 |
sub _fill {
|
| 259 | 259 |
$main::lxdebug->enter_sub(); |
| 260 | 260 |
|
| 261 |
my $text = shift; |
|
| 261 |
my $text = shift // '';
|
|
| 262 | 262 |
my $field_len = shift; |
| 263 | 263 |
my $fill_char = shift; |
| 264 | 264 |
my $alignment = shift || 'right'; |
| 265 | 265 |
|
| 266 |
my $text_len = length($text // '');
|
|
| 266 |
my $text_len = length $text;
|
|
| 267 | 267 |
|
| 268 | 268 |
if ($field_len < $text_len) {
|
| 269 | 269 |
$text = substr $text, 0, $field_len; |
| ... | ... | |
| 674 | 674 |
$header .= _fill($stamm->{dfvkz}, 2, '0');
|
| 675 | 675 |
$header .= _fill($stamm->{beraternr}, 7, '0');
|
| 676 | 676 |
$header .= _fill($stamm->{mandantennr}, 5, '0');
|
| 677 |
$header .= _fill($stamm->{abrechnungsnr} . $jahr, 6, '0');
|
|
| 677 |
$header .= _fill(($stamm->{abrechnungsnr} // '') . $jahr, 6, '0');
|
|
| 678 | 678 |
|
| 679 | 679 |
$header .= $self->from ? $self->from->strftime('%d%m%y') : '';
|
| 680 | 680 |
$header .= $self->to ? $self->to->strftime('%d%m%y') : '';
|
| ... | ... | |
| 899 | 899 |
if ($transaction->[$haben]->{'name'} ne "") {
|
| 900 | 900 |
$buchungstext = "\x1E" . $transaction->[$haben]->{'name'} . "\x1C";
|
| 901 | 901 |
} |
| 902 |
if ($transaction->[$haben]->{'ustid'} ne "") {
|
|
| 902 |
if (($transaction->[$haben]->{'ustid'} // '') ne "") {
|
|
| 903 | 903 |
$ustid = "\xBA" . $transaction->[$haben]->{'ustid'} . "\x1C";
|
| 904 | 904 |
} |
| 905 |
if ($transaction->[$haben]->{'duedate'} ne "") {
|
|
| 905 |
if (($transaction->[$haben]->{'duedate'} // '') ne "") {
|
|
| 906 | 906 |
$belegfeld2 = "\xBE" . &datetofour($transaction->[$haben]->{'duedate'}, 1) . "\x1C";
|
| 907 | 907 |
} |
| 908 | 908 |
} |
Auch abrufbar als: Unified diff
DATEV: Benutzung undefinierter Werte vermeiden
Wenn der DATEV-Export vom Payment-Helfer mit aktivierten DATEV-Checks
heraus aufgerufen wird, so sind diverse Felder wie die KNE-Kopfdaten
nicht gesetzt (werden auch nicht benötigt).