Revision 6fe0118b
Von Jan Büren vor 11 Monaten hinzugefügt
| SL/DATEV/CSV.pm | ||
|---|---|---|
|
# "8DB85C02-4CC3-FF3E-06D7-7F87EEECCF3A".
|
||
|
type => 'Text',
|
||
|
default => '',
|
||
|
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}$/) },
|
||
|
formatter => sub { my ($input) = @_; return '' unless $input; return 'BEDI "' . $input . '"' },
|
||
|
input_check => sub { my ($check) = @_; return 1 unless $check;
|
||
|
my @guids = split(/,/,$check);
|
||
|
foreach my $guid (@guids) {
|
||
|
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}$/);
|
||
|
}
|
||
|
return 1; },
|
||
|
formatter => sub { my ($input) = @_; return '' unless $input;
|
||
|
my @guids = split (/,/,$input);
|
||
|
my $first = shift @guids;
|
||
|
my $bedi = 'BEDI "' . $first . '"';
|
||
|
foreach my $guid (@guids) {
|
||
|
$bedi .= ',"' . $guid . '"';
|
||
|
}
|
||
|
return $bedi; },
|
||
|
|
||
|
}, # pos 20
|
||
|
{
|
||
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).