Revision b092fef7
Von Jan Büren vor etwa 10 Jahren hinzugefügt
| SL/Controller/DeliveryPlan.pm | ||
|---|---|---|
| 22 | 22 |
partnumber => t8('Part Number'),
|
| 23 | 23 |
qty => t8('Qty'),
|
| 24 | 24 |
shipped_qty => t8('shipped'),
|
| 25 |
delivered_qty => t8('transferred out'),
|
|
| 25 | 26 |
not_shipped_qty => t8('not shipped'),
|
| 26 | 27 |
ordnumber => t8('Order'),
|
| 27 | 28 |
customer => t8('Customer'),
|
| ... | ... | |
| 46 | 47 |
my $report = SL::ReportGenerator->new(\%::myconfig, $::form); |
| 47 | 48 |
$self->{report} = $report;
|
| 48 | 49 |
|
| 49 |
my @columns = qw(reqdate customer ordnumber partnumber description qty shipped_qty not_shipped_qty); |
|
| 50 |
my @columns = qw(reqdate customer ordnumber partnumber description qty shipped_qty not_shipped_qty delivered_qty);
|
|
| 50 | 51 |
my @sortable = qw(reqdate customer ordnumber partnumber description); |
| 51 | 52 |
|
| 52 | 53 |
my %column_defs = ( |
| ... | ... | |
| 58 | 59 |
qty => { sub => sub { $_[0]->qty_as_number . ' ' . $_[0]->unit } },
|
| 59 | 60 |
shipped_qty => { sub => sub { $::form->format_amount(\%::myconfig, $_[0]->shipped_qty, 2) . ' ' . $_[0]->unit } },
|
| 60 | 61 |
not_shipped_qty => { sub => sub { $::form->format_amount(\%::myconfig, $_[0]->qty - $_[0]->shipped_qty, 2) . ' ' . $_[0]->unit } },
|
| 62 |
delivered_qty => { sub => sub { $::form->format_amount(\%::myconfig, $_[0]->delivered_qty, 2) . ' ' . $_[0]->unit } },
|
|
| 61 | 63 |
ordnumber => { sub => sub { $_[0]->order->ordnumber },
|
| 62 | 64 |
obj_link => sub { $self->link_to($_[0]->order) } },
|
| 63 | 65 |
customer => { sub => sub { $_[0]->order->customer->name },
|
| SL/DB/OrderItem.pm | ||
|---|---|---|
| 34 | 34 |
return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi);
|
| 35 | 35 |
} |
| 36 | 36 |
|
| 37 |
sub delivered_qty {
|
|
| 38 |
my ($self) = @_; |
|
| 39 |
|
|
| 40 |
my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder'); |
|
| 41 |
my @d_orders_delivered; |
|
| 42 |
|
|
| 43 |
foreach (@$d_orders) {
|
|
| 44 |
push (@d_orders_delivered, $_) if $_->delivered; |
|
| 45 |
} |
|
| 46 |
|
|
| 47 |
my @doi_delivered = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @d_orders_delivered;
|
|
| 48 |
|
|
| 49 |
require SL::AM; |
|
| 50 |
return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi_delivered);
|
|
| 51 |
} |
|
| 52 |
|
|
| 37 | 53 |
1; |
Auch abrufbar als: Unified diff
Lieferplan-Bericht um Berichts-Feld "ausgelagerte Menge" erweitert
Der Lieferplan berechnet aktuell die "verschickte" Menge der Waren
aus der Menge der generierten Lieferschein, beachtet aber nicht den
tatsächlichen Status des Lieferscheins (ausgelagert oder nicht).
Entsprechend ein Extra-Feld in dem Bericht hinzugefügt, dass diese
Untermenge der Lieferscheine (Status ausgelagert) berücksichtigt.
Nur teilweise ausgelagerte Lieferscheine werden NICHT berücksichtigt.
-> technischer Hintergrund: keine Verknüpfung mit inventory
Die "große" UNION-Query (sub delivery_plan_query) musste nicht angefasst werden,
da der Filter über "offene Verkaufsaufträge" geht. Verkaufsaufträge werden aber
erst dann geschlossen wenn alle Menge in der Verkaufsrechnung verbucht
worden sind und NICHT wenn alle Mengen in den Lieferscheinen (unabhängig
vom Status 'ausgelagert') verbucht / geschrieben wurden.