Revision 40dbbd16
Von Sven Schöling vor fast 3 Jahren hinzugefügt
bin/mozilla/io.pl | ||
---|---|---|
60 | 60 |
use SL::DB::Contact; |
61 | 61 |
use SL::DB::Currency; |
62 | 62 |
use SL::DB::Customer; |
63 |
use SL::DB::DeliveryOrder::TypeData qw(); |
|
63 | 64 |
use SL::DB::Default; |
64 | 65 |
use SL::DB::Language; |
65 | 66 |
use SL::DB::Printer; |
... | ... | |
2007 | 2008 |
} |
2008 | 2009 |
|
2009 | 2010 |
$obj->items(@items) if @items; |
2010 |
$obj->is_sales(!!$obj->customer_id) if $class eq 'SL::DB::DeliveryOrder'; |
|
2011 |
|
|
2012 |
if ($class eq 'SL::DB::DeliveryOrder' && !$obj->order_type) { |
|
2013 |
$obj->order_type(SL::DB::DeliveryOrder::TypeData::validate_type($::form->{type})); |
|
2014 |
} |
|
2011 | 2015 |
|
2012 | 2016 |
if ($class eq 'SL::DB::Invoice') { |
2013 | 2017 |
my $paid = $factor * |
Auch abrufbar als: Unified diff
DeliveryOrder: _make_record für den alten Controller