Revision 6e00af5b
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
SL/Controller/EmailJournal.pm | ||
---|---|---|
use SL::DB::Manager::Customer;
|
||
use SL::DB::Manager::Vendor;
|
||
|
||
use List::Util qw(first);
|
||
use List::MoreUtils qw(any);
|
||
|
||
use Rose::Object::MakeMethods::Generic
|
||
... | ... | |
|
||
my $customer = $self->find_customer_vendor_from_email('customer', $self->entry);
|
||
my $vendor = $self->find_customer_vendor_from_email('vendor' , $self->entry);
|
||
my $cv_type_found;
|
||
$cv_type_found = 'vendor' if $self->entry->record_type eq 'ap_transaction';
|
||
my ($cv_type_found) =
|
||
map {$_->{customervendor}}
|
||
first {$_->{record_type} eq $self->entry->record_type}
|
||
@record_types_with_info;
|
||
$cv_type_found ||= 'vendor' if defined $vendor;
|
||
$cv_type_found ||= 'customer';
|
||
|
Auch abrufbar als: Unified diff
EmailJournal: EK/VK für alle Belegtyp setzen