Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6e00af5b

Von Tamino Steinert vor 10 Monaten hinzugefügt

EmailJournal: EK/VK für alle Belegtyp setzen

Unterschiede anzeigen:

SL/Controller/EmailJournal.pm
30 30 
use SL::DB::Manager::Customer;
31 31 
use SL::DB::Manager::Vendor;
32 32 

  		




  
  33
  
    
use List::Util qw(first);


  		




  33
  34
  
    
use List::MoreUtils qw(any);


  		




  34
  35
  
    

  		




  35
  36
  
    
use Rose::Object::MakeMethods::Generic


  		




  ......




  256
  257
  
    

  		




  257
  258
  
    
  my $customer = $self->find_customer_vendor_from_email('customer', $self->entry);


  		




  258
  259
  
    
  my $vendor   = $self->find_customer_vendor_from_email('vendor'  , $self->entry);


  		




  259
  
  
    
  my $cv_type_found;


  		




  260
  
  
    
  $cv_type_found   = 'vendor' if $self->entry->record_type eq 'ap_transaction';


  		




  
  260
  
    
  my ($cv_type_found) =


  		




  
  261
  
    
    map {$_->{customervendor}}


  		




  
  262
  
    
    first {$_->{record_type} eq $self->entry->record_type}


  		




  
  263
  
    
    @record_types_with_info;


  		




  261
  264
  
    
  $cv_type_found ||= 'vendor' if defined $vendor;


  		




  262
  265
  
    
  $cv_type_found ||= 'customer';


  		




  263
  266
  
    

  		












Auch abrufbar als:  Unified diff