Revision 32823bf0
Von Sven Schöling vor etwa 3 Jahren hinzugefügt
| SL/DB/DeliveryOrder/TypeData.pm | ||
|---|---|---|
|
save_and_ap_transaction => 0,
|
||
|
save_and_invoice => 0,
|
||
|
delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
|
||
|
new_controller => 0,
|
||
|
},
|
||
|
properties => {
|
||
|
customervendor => "customer",
|
||
| ... | ... | |
|
save_and_ap_transaction => 0,
|
||
|
save_and_invoice => 0,
|
||
|
delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
|
||
|
new_controller => 0,
|
||
|
},
|
||
|
properties => {
|
||
|
customervendor => "vendor",
|
||
| ... | ... | |
|
save_and_ap_transaction => 0,
|
||
|
save_and_invoice => 0,
|
||
|
delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
|
||
|
new_controller => 1,
|
||
|
},
|
||
|
properties => {
|
||
|
customervendor => "vendor",
|
||
| ... | ... | |
|
save_and_ap_transaction => 0,
|
||
|
save_and_invoice => 0,
|
||
|
delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
|
||
|
new_controller => 1,
|
||
|
},
|
||
|
properties => {
|
||
|
customervendor => "customer",
|
||
| SL/DO.pm | ||
|---|---|---|
|
use SL::Common;
|
||
|
use SL::CVar;
|
||
|
use SL::DB::DeliveryOrder;
|
||
|
use SL::DB::DeliveryOrder::TypeData qw(:types is_valid_type);
|
||
|
use SL::DB::Status;
|
||
|
use SL::DBUtils;
|
||
|
use SL::Helper::ShippedQty;
|
||
| ... | ... | |
|
dord.transaction_description, dord.itime::DATE AS insertdate,
|
||
|
pr.projectnumber AS globalprojectnumber,
|
||
|
dep.description AS department,
|
||
|
dord.order_type,
|
||
|
e.name AS employee,
|
||
|
sm.name AS salesman
|
||
|
FROM delivery_orders dord
|
||
| ... | ... | |
|
LEFT JOIN department dep ON (dord.department_id = dep.id)
|
||
|
|;
|
||
|
|
||
|
push @where, ($form->{type} eq 'sales_delivery_order' ? '' : 'NOT ') . qq|COALESCE(dord.is_sales, FALSE)|;
|
||
|
if ($form->{type} && is_valid_type($form->{type})) {
|
||
|
push @where, 'dord.order_type = ?';
|
||
|
push @values, $form->{type};
|
||
|
}
|
||
|
|
||
|
if ($form->{department_id}) {
|
||
|
push @where, qq|dord.department_id = ?|;
|
||
| ... | ... | |
|
shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, closed = ?,
|
||
|
delivered = ?, department_id = ?, language_id = ?, shipto_id = ?,
|
||
|
globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?,
|
||
|
is_sales = ?, taxzone_id = ?, taxincluded = ?, payment_id = ?, currency_id = (SELECT id FROM currencies WHERE name = ?),
|
||
|
order_type = ?, taxzone_id = ?, taxincluded = ?, payment_id = ?, currency_id = (SELECT id FROM currencies WHERE name = ?),
|
||
|
delivery_term_id = ?
|
||
|
WHERE id = ?|;
|
||
|
|
||
| ... | ... | |
|
conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),
|
||
|
conv_i($form->{salesman_id}), conv_i($form->{cp_id}),
|
||
|
$form->{transaction_description},
|
||
|
$form->{type} =~ /^sales/ ? 't' : 'f',
|
||
|
$form->{type} =~ /^sales/ ? SALES_DELIVERY_ORDER_TYPE : PURCHASE_DELIVERY_ORDER_TYPE,
|
||
|
conv_i($form->{taxzone_id}), $form->{taxincluded} ? 't' : 'f', conv_i($form->{payment_id}), $form->{currency},
|
||
|
conv_i($form->{delivery_term_id}),
|
||
|
conv_i($form->{id}));
|
||
| bin/mozilla/do.pl | ||
|---|---|---|
|
use List::Util qw(max sum);
|
||
|
use POSIX qw(strftime);
|
||
|
|
||
|
use SL::Controller::DeliveryOrder;
|
||
|
use SL::DB::DeliveryOrder;
|
||
|
use SL::DB::DeliveryOrder::TypeData qw(:types validate_type);
|
||
|
use SL::DO;
|
||
|
use SL::IR;
|
||
|
use SL::IS;
|
||
| ... | ... | |
|
# end of main
|
||
|
|
||
|
sub check_do_access {
|
||
|
$main::auth->assert($main::form->{type} . '_edit');
|
||
|
validate_type($::form->{type});
|
||
|
|
||
|
my $right = SL::DB::DeliveryOrder::TypeData::get($::form->{type}, "right");
|
||
|
$main::auth->assert($right);
|
||
|
}
|
||
|
|
||
|
sub set_headings {
|
||
| ... | ... | |
|
'align' => 'center',
|
||
|
};
|
||
|
|
||
|
$row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
|
||
|
$row->{donumber}->{link} = SL::DB::DeliveryOrder::TypeData::get3($dord->{order_type}, "show_menu", "new_controller")
|
||
|
? 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};
|
||
|
$report->add_data($row);
|
||
|
|
||
| menus/user/00-erp.yaml | ||
|---|---|---|
|
params:
|
||
|
action: search
|
||
|
type: purchase_delivery_order
|
||
|
- parent: ap_reports
|
||
|
id: ap_reports_delivery_orders
|
||
|
name: Supplier Delivery Orders
|
||
|
order: 350
|
||
|
access: purchase_delivery_order_edit
|
||
|
module: do.pl
|
||
|
params:
|
||
|
action: search
|
||
|
type: supplier_delivery_order
|
||
|
- parent: ap_reports
|
||
|
id: ap_reports_vendor_invoices_ap_transactions
|
||
|
name: Vendor Invoices & AP Transactions
|
||
Auch abrufbar als: Unified diff
Lieferschein: Suche angepasst auf neue Typen