Revision 77b081a5
Von Jan Büren vor 11 Monaten hinzugefügt
| SL/DATEV/CSV.pm | ||
|---|---|---|
| 160 | 160 |
# "8DB85C02-4CC3-FF3E-06D7-7F87EEECCF3A". |
| 161 | 161 |
type => 'Text', |
| 162 | 162 |
default => '', |
| 163 |
input_check => sub { my ($check) = @_; return 1 unless $check; return ($check =~ m/^[0-9a-fA-F]{8}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{12}$/) },
|
|
| 164 |
formatter => sub { my ($input) = @_; return '' unless $input; return 'BEDI "' . $input . '"' },
|
|
| 163 |
input_check => sub { my ($check) = @_; return 1 unless $check;
|
|
| 164 |
my @guids = split(/,/,$check); |
|
| 165 |
foreach my $guid (@guids) {
|
|
| 166 |
return unless ($guid =~ m/^[0-9a-fA-F]{8}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{12}$/);
|
|
| 167 |
} |
|
| 168 |
return 1; }, |
|
| 169 |
formatter => sub { my ($input) = @_; return '' unless $input;
|
|
| 170 |
my @guids = split (/,/,$input); |
|
| 171 |
my $first = shift @guids; |
|
| 172 |
my $bedi = 'BEDI "' . $first . '"'; |
|
| 173 |
foreach my $guid (@guids) {
|
|
| 174 |
$bedi .= ',"' . $guid . '"'; |
|
| 175 |
} |
|
| 176 |
return $bedi; }, |
|
| 165 | 177 |
|
| 166 | 178 |
}, # pos 20 |
| 167 | 179 |
{
|
Auch abrufbar als: Unified diff
DATEV: Belegexport -> Eine Buchung darf mehrere Belege haben und ...
Filter für nicht Buchungsdokumente (trans_id ist nur in ar, ap und gl
eindeutig).