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