- elsif ($params{do_id}) {
- my @links = RecordLinks->get_links( 'dbh' => $dbh,
- 'from_table' => 'oe',
- 'to_table' => 'delivery_orders',
- 'to_id' => $params{do_id});
-
- @oe_ids = map { $_->{from_id} } @links;
- }
-
- if (scalar (@oe_ids) > 0 ) {
-
- #$main::lxdebug->message(LXDebug->DEBUG2(),"oeid=".$params{oe_id}." doid=".$params{do_id});
- my $all_units = AM->retrieve_all_units();
- my $query = qq|SELECT oi.id, oi.position, oi.parts_id, oi.qty, oi.unit, oi.trans_id,
- p.unit AS partunit FROM orderitems oi
- LEFT JOIN parts p ON (oi.parts_id = p.id)
- WHERE trans_id IN (| .
- join(', ', ('?') x scalar @oe_ids) . qq|) ORDER BY position ASC|;
-
- my $orderitems = selectall_hashref_query($form, $dbh, $query, @oe_ids);
- foreach my $oe_entry (@{ $orderitems }) {
- $oe_entry->{qty} *= AM->convert_unit($oe_entry->{unit}, $oe_entry->{partunit}, $all_units);
- $oe_entry->{qty_notdelivered} = $oe_entry->{qty};
-
- # Bei oe Modus auf jeden Fall einen Record anlegen
- if ( $params{oe_id} ) {
- $ship{$oe_entry->{position}} = {
- 'qty_ordered' => $oe_entry->{qty} ,
- 'qty_notdelivered' => $oe_entry->{qty}
- };
- }
- }
-
- my @dolinks = RecordLinks->get_links('dbh' => $dbh,
- 'from_table' => 'oe',
- 'to_table' => 'delivery_orders',
- 'from_id' => @oe_ids);
-
- my @do_ids = map { $_->{to_id} } @dolinks ;
- if (scalar (@do_ids) == 0) {
- $main::lxdebug->leave_sub();
- return %ship;
- }
-
- my %oeitems_by_id = map { $_->{id} => $_ } @{ $orderitems };
-
-
- $query = qq|SELECT doi.parts_id, doi.id, doi.qty, doi.unit, doi.position,
- doi.delivery_order_id, COALESCE(rlitem.from_id,0) as from_id,
- p.unit AS partunit
- FROM delivery_order_items doi
- LEFT JOIN parts p ON (doi.parts_id = p.id)
- LEFT JOIN record_links rlitem
- ON (rlitem.to_id = doi.id AND rlitem.to_table='delivery_order_items')
- WHERE doi.delivery_order_id IN (| . join(', ', ('?') x scalar @do_ids) . qq|)|;
-
- my $deliveryorderitems = selectall_hashref_query($form, $dbh, $query, @do_ids);
-
- # erst mal qty der links bearbeiten
- foreach my $do_entry (@{ $deliveryorderitems }) {
- $do_entry->{qty} *= AM->convert_unit($do_entry->{unit}, $do_entry->{partunit}, $all_units);
- if ($do_entry->{from_id} > 0 ) {
- # record link zwischen items vorhanden, kann auch von anderem Auftrag sein
- my $oe_entry = $oeitems_by_id{$do_entry->{from_id}};
- if ( $oe_entry ) {
- $oe_entry->{qty_notdelivered} -= $do_entry->{qty};
- # derzeit nur ein link pro do_item
- $do_entry->{oe_entry} = $oe_entry;
- }
- } else {
- $main::lxdebug->message(LXDebug->DEBUG2(),"no entry for=".$do_entry->{id}." part=".$do_entry->{parts_id});
- }
- }
- # nun den rest ohne links bearbeiten
- foreach my $do_entry (@{ $deliveryorderitems }) {
- next if $do_entry->{from_id} > 0;
- next if $do_entry->{qty} == 0;
-
- foreach my $oe_entry (@{ $orderitems }) {
- #$main::lxdebug->message(LXDebug->DEBUG2(),"do oe_entry ".$oe_entry." id=".$oe_entry->{id}." not del=".$oe_entry->{qty_notdelivered});
- next if $oe_entry->{qty_notdelivered} == 0;
- if ( $do_entry->{parts_id} == $oe_entry->{parts_id} ) {
- # zu viele geliefert auf andere position ?
- if ( $oe_entry->{qty_notdelivered} < 0 ) {
- $do_entry->{qty} += - $oe_entry->{qty_notdelivered};
- $oe_entry->{qty_notdelivered} = 0;
- } else {
- if ( $do_entry->{qty} < $oe_entry->{qty_notdelivered} ) {
- $oe_entry->{qty_notdelivered} -= $do_entry->{qty};
- $do_entry->{qty} = 0;
- } else {
- $do_entry->{qty} -= $oe_entry->{qty_notdelivered};
- $oe_entry->{qty_notdelivered} = 0;
- }
- # derzeit nur ein link pro do_item
- $do_entry->{oe_entry} = $oe_entry if !$do_entry->{oe_entry};
- }
- }
- last if $do_entry->{qty} <= 0;
- }