Revision dd69eacf
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).