Revision e0bac67f
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
|
|
||
|
my $sth = prepare_query($form, $dbh, $query);
|
||
|
|
||
|
|
||
|
my ($items_query, $items_sth);
|
||
|
if ($form->{l_items}) {
|
||
|
$items_query =
|
||
|
qq|SELECT id
|
||
|
FROM delivery_order_items
|
||
|
WHERE delivery_order_id = ?
|
||
|
ORDER BY position|;
|
||
|
|
||
|
$items_sth = prepare_query($form, $dbh, $items_query);
|
||
|
}
|
||
|
|
||
|
foreach my $dord (@{ $form->{DO} }) {
|
||
|
if ($form->{l_items}) {
|
||
|
do_statement($form, $items_sth, $items_query, $dord->{id});
|
||
|
$dord->{item_ids} = $dbh->selectcol_arrayref($items_sth);
|
||
|
}
|
||
|
|
||
|
next unless ($dord->{ordnumber});
|
||
|
do_statement($form, $sth, $query, $dord->{ordnumber});
|
||
|
($dord->{oe_id}) = $sth->fetchrow_array();
|
||
|
}
|
||
|
|
||
|
$sth->finish();
|
||
|
$items_sth->finish() if $form->{l_items};
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
| bin/mozilla/do.pl | ||
|---|---|---|
|
|
||
|
use SL::Controller::DeliveryOrder;
|
||
|
use SL::DB::DeliveryOrder;
|
||
|
use SL::DB::DeliveryOrderItem;
|
||
|
use SL::DB::DeliveryOrder::TypeData qw(:types validate_type);
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::Helper::UserPreferences::DisplayPreferences;
|
||
| ... | ... | |
|
use SL::IR;
|
||
|
use SL::IS;
|
||
|
use SL::MoreCommon qw(ary_diff restore_form save_form);
|
||
|
use SL::Presenter::ItemsList;
|
||
|
use SL::ReportGenerator;
|
||
|
use SL::WH;
|
||
|
use SL::YAML;
|
||
| ... | ... | |
|
shipvia globalprojectnumber
|
||
|
transaction_description department
|
||
|
open delivered
|
||
|
insertdate
|
||
|
insertdate items
|
||
|
);
|
||
|
|
||
|
$form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
|
||
| ... | ... | |
|
'delivered' => { 'text' => $locale->text('Delivered'), },
|
||
|
'department' => { 'text' => $locale->text('Department'), },
|
||
|
'insertdate' => { 'text' => $locale->text('Insert Date'), },
|
||
|
'items' => { 'text' => $locale->text('Positions'), },
|
||
|
);
|
||
|
|
||
|
foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
|
||
| ... | ... | |
|
$dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
|
||
|
$dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
|
||
|
|
||
|
my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
|
||
|
my $row = { map { $_ => { 'data' => $dord->{$_} } } grep {$_ ne 'items'} @columns };
|
||
|
|
||
|
my $ord_id = $dord->{id};
|
||
|
$row->{ids} = {
|
||
| ... | ... | |
|
? SL::Controller::DeliveryOrder->url_for(action => "edit", id => $dord->{id}, type => $dord->{order_type})
|
||
|
: $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
|
||
|
$row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
|
||
|
|
||
|
if ($form->{l_items}) {
|
||
|
my $items = SL::DB::Manager::DeliveryOrderItem->get_all_sorted(where => [id => $dord->{item_ids}]);
|
||
|
$row->{items}->{raw_data} = SL::Presenter::ItemsList::items_list($items) if lc($report->{options}->{output_format}) eq 'html';
|
||
|
$row->{items}->{data} = SL::Presenter::ItemsList::items_list($items, as_text => 1) if lc($report->{options}->{output_format}) ne 'html';
|
||
|
}
|
||
|
|
||
|
$report->add_data($row);
|
||
|
|
||
|
$idx++;
|
||
| templates/webpages/do/search.html | ||
|---|---|---|
|
</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<td>
|
||
|
<input name="l_items" id="l_items" class="checkbox" type="checkbox" value="Y">
|
||
|
<label for="l_items">[% 'Positions' | $T8 %]</label>
|
||
|
</td>
|
||
|
</tr>
|
||
|
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
Auch abrufbar als: Unified diff
Belegberichte (Lieferscheine) mit Positionsdetails