Revision 21bf0785
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
|
|
||
|
} else {
|
||
|
my %args = (
|
||
|
is_sales => 1,
|
||
|
order_type => 'sales_delivery_order',
|
||
|
order_type => SALES_DELIVERY_ORDER_TYPE,
|
||
|
delivered => 0,
|
||
|
customer_id => $sources->[0]->customer_id,
|
||
|
taxzone_id => $sources->[0]->customer->taxzone_id,
|
||
| SL/Presenter/DeliveryOrder.pm | ||
|---|---|---|
|
=head1 SYNOPSIS
|
||
|
|
||
|
# Sales delivery orders:
|
||
|
my $object = SL::DB::Manager::DeliveryOrder->get_first(where => [ is_sales => 1 ]);
|
||
|
my $object = SL::DB::Manager::DeliveryOrder->get_first(where => [ order_type => SALES_DELIVERY_ORDER_TYPE ]);
|
||
|
my $html = SL::Presenter::DeliveryOrder::sales_delivery_order($object, display => 'inline');
|
||
|
|
||
|
# Purchase delivery orders:
|
||
|
my $object = SL::DB::Manager::DeliveryOrder->get_first(where => [ or => [ is_sales => undef, is_sales => 0 ]]);
|
||
|
my $object = SL::DB::Manager::DeliveryOrder->get_first(where => [ order_type => PURCHASE_DELIVERY_ORDER_TYPE ]);
|
||
|
my $html = SL::Presenter::DeliveryOrder::purchase_delivery_order($object, display => 'inline');
|
||
|
|
||
|
=head1 FUNCTIONS
|
||
| t/workflow/delivery_order_reclamation.t | ||
|---|---|---|
|
payment_terms => $payment_term,
|
||
|
delivery_term => $delivery_term,
|
||
|
taxincluded => 0,
|
||
|
is_sales => 1,
|
||
|
orderitems => [ SL::Dev::Record::create_delivery_order_item(part => $parts[0], qty => 3, sellprice => 70),
|
||
|
SL::Dev::Record::create_delivery_order_item(part => $parts[1], qty => 10, sellprice => 50),
|
||
|
]
|
||
| ... | ... | |
|
payment_terms => $payment_term,
|
||
|
delivery_term => $delivery_term,
|
||
|
taxincluded => 0,
|
||
|
is_sales => 0,
|
||
|
orderitems => [ SL::Dev::Record::create_delivery_order_item(part => $parts[0], qty => 3, sellprice => 70),
|
||
|
SL::Dev::Record::create_delivery_order_item(part => $parts[1], qty => 10, sellprice => 50),
|
||
|
]
|
||
| ... | ... | |
|
# clean different values
|
||
|
foreach (qw(
|
||
|
customer_id vendor_id
|
||
|
id is_sales order_type
|
||
|
id order_type
|
||
|
donumber salesman_id
|
||
|
transaction_description
|
||
|
itime mtime
|
||
| ... | ... | |
|
"sales_delivery_order to sales_reclamation",
|
||
|
qw(
|
||
|
id employee_id itime mtime reqdate
|
||
|
is_sales order_type ordnumber oreqnumber
|
||
|
order_type ordnumber oreqnumber
|
||
|
amount exchangerate netamount
|
||
|
cp_id contact_id
|
||
|
cusordnumber cv_record_number
|
||
| ... | ... | |
|
"sales_reclamation to sales_delivery_order",
|
||
|
qw(
|
||
|
id employee_id itime mtime delivered reqdate
|
||
|
is_sales order_type ordnumber oreqnumber
|
||
|
order_type ordnumber oreqnumber
|
||
|
amount exchangerate netamount
|
||
|
cp_id contact_id
|
||
|
cusordnumber cv_record_number
|
||
| ... | ... | |
|
"purchase_delivery_order to purchase_reclamation",
|
||
|
qw(
|
||
|
id employee_id itime mtime reqdate
|
||
|
is_sales order_type ordnumber oreqnumber
|
||
|
order_type ordnumber oreqnumber
|
||
|
amount exchangerate netamount
|
||
|
cp_id contact_id
|
||
|
cusordnumber cv_record_number
|
||
| ... | ... | |
|
"purchase_reclamation to purchase_delivery_order",
|
||
|
qw(
|
||
|
id employee_id itime mtime delivered reqdate
|
||
|
is_sales order_type ordnumber oreqnumber
|
||
|
order_type ordnumber oreqnumber
|
||
|
amount exchangerate netamount
|
||
|
cp_id contact_id
|
||
|
cusordnumber cv_record_number
|
||
Auch abrufbar als: Unified diff
Refs #490: Lieferschein: entferne alle Verweise auf 'is_sales'