Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8010b559

Von Tamino Steinert vor fast 2 Jahren hinzugefügt

  • ID 8010b559b6a609a95a34d81bd98b47c1312d3061
  • Vorgänger ec744c01
  • Nachfolger 70e0527b

Reclamation: don't need shipped_qty

Unterschiede anzeigen:

SL/Controller/Reclamation.pm
27 27

  
28 28
use SL::Helper::CreatePDF qw(:all);
29 29
use SL::Helper::PrintOptions;
30
use SL::Helper::ShippedQty;
31 30
use SL::Helper::UserPreferences::PositionsScrollbar;
32 31
use SL::Helper::UserPreferences::UpdatePositions;
33 32

  
......
900 899
    reason       => sub { $_[0]->reason eq undef ? "" : $_[0]->reason->name },
901 900
    reason_description_ext => sub { $_[0]->reason_description_ext },
902 901
    reason_description_int => sub { $_[0]->reason_description_int },
903
    shipped_qty  => sub { $_[0]->shipped_qty },
904 902
    qty          => sub { $_[0]->qty },
905 903
    sellprice    => sub { $_[0]->sellprice },
906 904
    discount     => sub { $_[0]->discount },
......
909 907

  
910 908
  $self->get_item_cvpartnumber($_) for @{$self->reclamation->items_sorted};
911 909

  
912
  if ($::form->{order_by} eq 'shipped_qty') {
913
    # Calculate shipped qtys here to prevent calling calculate for every item
914
    # via the items method. Do not use write_to_objects to prevent
915
    # reclamation->delivered to be set, because this should be the value from
916
    # db, which can be set manually or is set when linked delivery orders are
917
    # saved.
918
    SL::Helper::ShippedQty->new->calculate($self->reclamation)->write_to(\@{$self->reclamation->items});
919
  }
920

  
921 910
  my $method = $sort_keys{$::form->{order_by}};
922 911
  my @to_sort = map { { old_pos => $_->position, order_by => $method->($_) } } @{ $self->reclamation->items_sorted };
923 912
  if ($::form->{sort_dir}) {
......
1892 1881
    $item->active_discount_source($price_source->discount_from_source($item->active_discount_source));
1893 1882
  }
1894 1883

  
1895
  # Calculate shipped qtys here to prevent calling calculate for every item via
1896
  # the items method. Do not use write_to_objects to prevent
1897
  # reclamation->delivered to be set, because this should be the value from db,
1898
  # which can be set manually or is set when linked delivery orders are saved.
1899
  SL::Helper::ShippedQty->new->calculate($self->reclamation)->write_to(\@{$self->reclamation->items});
1900

  
1901 1884
  if ($self->reclamation->record_number && $::instance_conf->get_webdav) {
1902 1885
    my $webdav = SL::Webdav->new(
1903 1886
      type     => $self->type,
......
2631 2614

  
2632 2615
=item *
2633 2616

  
2617
<<<<<<< HEAD
2634 2618
Ordering item rows with drag and drop is possible. Sorting item rows is possible
2635 2619
(by partnumber, description, reason, reason_description_int,
2636 2620
reason_description_ext, qty, sellprice and discount for now).
2621
=======
2622
Ordering item rows with drag and drop is possible. Sorting item rows is
2623
possible (by partnumber, description, reason, qty, sellprice
2624
and discount for now).
2625
>>>>>>> 66ac9fa6c7 (Reclamation: don't need shipped_qty)
2637 2626

  
2638 2627
=item *
2639 2628

  
SL/DB/ReclamationItem.pm
21 21
    }
22 22
  },
23 23
);
24
use SL::Helper::ShippedQty;
25 24

  
26 25
__PACKAGE__->meta->initialize;
27 26

  
28 27
__PACKAGE__->configure_acts_as_list(group_by => [qw(reclamation_id)]);
29 28

  
30
sub shipped_qty {
31
  my ($self, %params) = @_;
32

  
33
  my $force = delete $params{force};
34

  
35
  SL::Helper::ShippedQty->new(%params)->calculate($self)->write_to_objects if $force || !defined $self->{shipped_qty};
36

  
37
  $self->{shipped_qty};
38
}
39

  
40 29
sub is_linked_to_record {
41 30
  my ($self) = @_;
42 31

  
......
131 120
  return $self->reclamation->customervendor;
132 121
}
133 122

  
134
sub delivered_qty { goto &shipped_qty }
135 123
sub record { goto &reclamation }
136 124
sub record_id { goto &reclamation_id }
137 125
sub trans_id { goto &reclamation_id }
......
149 137

  
150 138
=head1 FUNCTIONS
151 139

  
152
=over 4
153

  
154
=item C<shipped_qty PARAMS>
155

  
156
Calculates the shipped qty for this reclamationitem (measured in the current unit)
157
and returns it.
158

  
159
Note that the shipped qty is expected not to change within the request and is
160
cached in C<shipped_qty> once calculated. If C<< force => 1 >> is passed, the
161
existibng cache is ignored.
162

  
163
Given parameters will be passed to L<SL::Helper::ShippedQty>, so you can force
164
the shipped/delivered distinction like this:
165

  
166
  $_->shipped_qty(require_stock_out => 0);
167

  
168
Note however that calculating shipped_qty on individual Reclamationitems is generally
169
a bad idea. See L<SL::Helper::ShippedQty> for way to compute these all at once.
170

  
171
=item C<delivered_qty>
172

  
173
Alias for L</shipped_qty>.
174

  
175
=back
176

  
177 140
=head1 AUTHORS
178 141

  
179 142
G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
templates/webpages/reclamation/tabs/basic_data.html
226 226
                <th id="reason_header_id"   class="listheading" nowrap width="100"><a href='#' onClick='javascript:kivi.Reclamation.reorder_items("reason")'>[%- 'Reason' | $T8 %]</a></th>
227 227
                <th id="reason_description_ext_header_id"  class="listheading" nowrap ><a href='#' onClick='javascript:kivi.Reclamation.reorder_items("reason_description_ext")'>[%- 'Reason Description Extern' | $T8 %]</a></th>
228 228
                <th id="reason_description_int_header_id"  class="listheading" nowrap ><a href='#' onClick='javascript:kivi.Reclamation.reorder_items("reason_description_int")'>[%- 'Reason Description Intern' | $T8 %]</a></th>
229
                <th id="shipped_qty_header_id"  class="listheading" nowrap width="5" ><a href='#' onClick='javascript:kivi.Reclamation.reorder_items("shipped_qty")'>[%- 'Delivered'   | $T8 %]</a></th>
230 229
                <th id="qty_header_id"          class="listheading" nowrap width="5" ><a href='#' onClick='javascript:kivi.Reclamation.reorder_items("qty")'>        [%- 'Qty'         | $T8 %]</a></th>
231 230
                <th class="listheading" nowrap width="5" >[%- 'Price Factor' | $T8 %] </th>
232 231
                <th class="listheading" nowrap width="5" >[%- 'Unit'         | $T8 %] </th>
templates/webpages/reclamation/tabs/basic_data/_row.html
83 83
                     size='40',
84 84
                     style='width: 150px') %]
85 85
    </td>
86
    <td nowrap>
87
      [%- L.div_tag(LxERP.format_amount(ITEM.shipped_qty, 2, 0) _ ' ' _ ITEM.unit, name="shipped_qty", class="numeric") %]
88
    </td>
89 86
    <td nowrap>
90 87
      [%- L.input_tag("reclamation.reclamation_items[].qty_as_number",
91 88
                      ITEM.qty_as_number,

Auch abrufbar als: Unified diff