Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6fe0118b

Von Jan Büren vor 11 Monaten hinzugefügt

  • ID 6fe0118b4e067dcf01fca12f0618e22986aac9eb
  • Vorgänger ca3b14ff
  • Nachfolger 3c1390b8

DATEV: Belegexport -> Eine Buchung darf mehrere Belege haben und ...

Filter für nicht Buchungsdokumente (trans_id ist nur in ar, ap und gl
eindeutig).

Unterschiede anzeigen:

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