Revision b9e37152
Von Sven Schöling vor etwa 3 Jahren hinzugefügt
| SL/Dev/Record.pm | ||
|---|---|---|
| 20 | 20 |
|
| 21 | 21 |
use SL::DB::Invoice; |
| 22 | 22 |
use SL::DB::InvoiceItem; |
| 23 |
use SL::DB::DeliveryOrder::TypeData qw(:types); |
|
| 23 | 24 |
use SL::DB::Employee; |
| 24 | 25 |
use SL::Dev::Part qw(new_part); |
| 25 | 26 |
use SL::Dev::CustomerVendor qw(new_vendor new_customer); |
| ... | ... | |
| 116 | 117 |
die "illegal customer" unless ref($customer) eq 'SL::DB::Customer'; |
| 117 | 118 |
|
| 118 | 119 |
my $delivery_order = SL::DB::DeliveryOrder->new( |
| 119 |
'is_sales' => 'true',
|
|
| 120 |
order_type => SALES_DELIVERY_ORDER_TYPE,
|
|
| 120 | 121 |
'closed' => undef, |
| 121 | 122 |
customer_id => $customer->id, |
| 122 | 123 |
taxzone_id => $customer->taxzone_id, |
| ... | ... | |
| 144 | 145 |
die "illegal customer" unless ref($vendor) eq 'SL::DB::Vendor'; |
| 145 | 146 |
|
| 146 | 147 |
my $delivery_order = SL::DB::DeliveryOrder->new( |
| 147 |
'is_sales' => 'false',
|
|
| 148 |
order_type => PURCHASE_DELIVERY_ORDER_TYPE,
|
|
| 148 | 149 |
'closed' => undef, |
| 149 | 150 |
vendor_id => $vendor->id, |
| 150 | 151 |
taxzone_id => $vendor->taxzone_id, |
Auch abrufbar als: Unified diff
SL::Dev: Lieferschein typen