Revision 464f44ac
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
SL/DB/DeliveryOrder.pm | ||
---|---|---|
50 | 50 |
|
51 | 51 |
sub items { goto &orderitems; } |
52 | 52 |
sub add_items { goto &add_orderitems; } |
53 |
sub payment_terms { goto &payment; } |
|
53 | 54 |
|
54 | 55 |
sub sales_order { |
55 | 56 |
my $self = shift; |
... | ... | |
104 | 105 |
$item_parent_column = 'order'; |
105 | 106 |
} |
106 | 107 |
|
107 |
my $terms = $source->can('payment_id') && $source->payment_id ? $source->payment_terms->terms_netto : 0; |
|
108 |
|
|
109 | 108 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(cp_id currency_id customer_id cusordnumber department_id employee_id globalproject_id intnotes language_id notes |
110 |
ordnumber reqdate salesman_id shippingpoint shipvia taxincluded taxzone_id transaction_description vendor_id |
|
109 |
ordnumber payment_id reqdate salesman_id shippingpoint shipvia taxincluded taxzone_id transaction_description vendor_id
|
|
111 | 110 |
)), |
112 | 111 |
closed => 0, |
113 | 112 |
is_sales => !!$source->customer_id, |
114 | 113 |
delivered => 0, |
115 |
terms => $terms, |
|
116 | 114 |
transdate => DateTime->today_local, |
117 | 115 |
); |
118 | 116 |
|
Auch abrufbar als: Unified diff
Zahlungsbedingungen bei Lieferscheinen; veraltete Spalte »terms« entfernt