Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d447f948

Von Werner Hahn vor mehr als 2 Jahren hinzugefügt

  • ID d447f948426e1befbbfc04033b8ceef75c491d1f
  • Vorgänger e5a00f58
  • Nachfolger 8770ce07

ReclamationsController: Workflow Lieferschein neuer DeliveryController

Unterschiede anzeigen:

SL/Controller/DeliveryOrder.pm
105 105

  
106 106
  require SL::DB::Reclamation;
107 107
  my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;
108
  my ($delivery_order, $error) = $reclamation->convert_to_delivery_order();
108
  my $type = $reclamation->type eq 'sales_reclamation' ? 'rma_delivery_order' : 'supplier_delivery_order';
109
  my ($delivery_order, $error) = $reclamation->convert_to_delivery_order(type => $type);
109 110
  if($error) {
110 111
    croak("Error while converting: " . $error);
111 112
  }
......
1075 1076

  
1076 1077
  # TODO move to type data
1077 1078
  my $trans_type = $inout eq 'in'
1078
    ? SL::DB::Manager::TransferType->find_by(direction => "id", description => "stock")
1079
    ? SL::DB::Manager::TransferType->find_by(direction => "in", description => "stock")
1079 1080
    : SL::DB::Manager::TransferType->find_by(direction => "out", description => "shipped");
1080 1081

  
1082

  
1081 1083
  my @transfer_requests;
1082 1084

  
1083 1085
  for my $item (@{ $order->items_sorted }) {
......
1085 1087
      my $transfer = SL::DB::Inventory->new_from($stock);
1086 1088
      $transfer->trans_type($trans_type);
1087 1089
      $transfer->qty($transfer->qty * -1) if $inout eq 'out';
1090
      $transfer->qty($transfer->qty * 1) if $inout eq 'in';
1088 1091

  
1089 1092
      push @transfer_requests, $transfer if defined $transfer->qty && $transfer->qty != 0;
1090 1093
    };
SL/Presenter/DeliveryOrder.pm
43 43
  croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
44 44

  
45 45
  my $text = join '', (
46
    $params{no_link} ? '' : '<a href="contoller.pl?action=DeliveryOrder/edit&amp;type=' . $type . '&amp;id=' . escape($delivery_order->id) . '">',
46
    $params{no_link} ? '' : '<a href="controller.pl?action=DeliveryOrder/edit&amp;type=' . $type . '&amp;id=' . escape($delivery_order->id) . '">',
47 47
    escape($delivery_order->donumber),
48 48
    $params{no_link} ? '' : '</a>',
49 49
  );

Auch abrufbar als: Unified diff