Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c3896321

Von Cem Aydin vor 8 Monaten hinzugefügt

  • ID c38963214a3ef1debd43318040e17fd2a1ab25a0
  • Vorgänger 5aa9b450
  • Nachfolger 686ba63a

Reklamationen (neuer controller): Kunden-/Lieferanten picker mit Details Option verwenden

- dadurch obsolet gewordenen code, JavaScript sowie im Controller entfernt

Unterschiede anzeigen:

SL/Controller/Reclamation.pm
601 601
  $self->js->render();
602 602
}
603 603

  
604
# open the dialog for customer/vendor details
605
sub action_show_customer_vendor_details_dialog {
606
  my ($self) = @_;
607

  
608
  my $is_customer = ($self->type_data->properties('is_customer'));
609
  my $cv;
610
  if ($is_customer) {
611
    $cv = SL::DB::Customer->new(id => $::form->{cv_id})->load;
612
  } else {
613
    $cv = SL::DB::Vendor->new(id => $::form->{cv_id})->load;
614
  }
615

  
616
  my %details = map { $_ => $cv->$_ } @{$cv->meta->columns};
617
  $details{discount_as_percent} = $cv->discount_as_percent;
618
  $details{creditlimt}          = $cv->creditlimit_as_number;
619
  $details{business}            = $cv->business->description      if $cv->business;
620
  $details{language}            = $cv->language_obj->description  if $cv->language_obj;
621
  $details{delivery_terms}      = $cv->delivery_term->description if $cv->delivery_term;
622
  $details{payment_terms}       = $cv->payment->description       if $cv->payment;
623
  $details{pricegroup}          = $cv->pricegroup->pricegroup     if !$is_customer && $cv->pricegroup;
624

  
625
  foreach my $entry (@{ $cv->shipto }) {
626
    push @{ $details{SHIPTO} },   { map { $_ => $entry->$_ } @{$entry->meta->columns} };
627
  }
628
  foreach my $entry (@{ $cv->contacts }) {
629
    push @{ $details{CONTACTS} }, { map { $_ => $entry->$_ } @{$entry->meta->columns} };
630
  }
631

  
632
  $_[0]->render('common/show_vc_details', { layout => 0 },
633
                is_customer => $is_customer,
634
                %details);
635
}
636

  
637 604
# called if a unit in an existing item row is changed
638 605
sub action_unit_changed {
639 606
  my ($self) = @_;

Auch abrufbar als: Unified diff