Revision 3ab57a41
Von Kivitendo Admin vor fast 2 Jahren hinzugefügt
| SL/Dev/Record.pm | ||
|---|---|---|
|
create_invoice_item
|
||
|
create_reclamation_item
|
||
|
|
||
|
create_sales_quotation
|
||
|
create_sales_order
|
||
|
create_sales_delivery_order
|
||
|
create_sales_invoice
|
||
| ... | ... | |
|
purchase_invoice => 'SL::DB::InvoiceItem',
|
||
|
credit_note => 'SL::DB::InvoiceItem',
|
||
|
sales_order => 'SL::DB::OrderItem',
|
||
|
sales_quotation => 'SL::DB::OrderItem',
|
||
|
purchase_order => 'SL::DB::OrderItem',
|
||
|
sales_delivery_order => 'SL::DB::DeliveryOrderItem',
|
||
|
purchase_delivery_order => 'SL::DB::DeliveryOrderItem',
|
||
| ... | ... | |
|
return $delivery_order;
|
||
|
}
|
||
|
|
||
|
sub create_sales_order {
|
||
|
sub create_sales_quotation {
|
||
|
my (%params) = @_;
|
||
|
$params{type} = 'sales_quotation';
|
||
|
_create_sales_order_or_quotation(%params);
|
||
|
}
|
||
|
|
||
|
my $record_type = 'sales_order';
|
||
|
my $orderitems = delete $params{orderitems} // _create_two_items($record_type);
|
||
|
_check_items($orderitems, $record_type);
|
||
|
|
||
|
my $save = delete $params{save} // 0;
|
||
|
|
||
|
my $customer = $params{customer} // new_customer(name => 'Testcustomer')->save;
|
||
|
die "illegal customer" unless ref($customer) eq 'SL::DB::Customer';
|
||
|
|
||
|
my $order = SL::DB::Order->new(
|
||
|
customer_id => delete $params{customer_id} // $customer->id,
|
||
|
taxzone_id => delete $params{taxzone_id} // $customer->taxzone->id,
|
||
|
currency_id => delete $params{currency_id} // $::instance_conf->get_currency_id,
|
||
|
taxincluded => delete $params{taxincluded} // 0,
|
||
|
employee_id => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,
|
||
|
salesman_id => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,
|
||
|
transdate => delete $params{transdate} // DateTime->today,
|
||
|
orderitems => $orderitems,
|
||
|
);
|
||
|
$order->assign_attributes(%params) if %params;
|
||
|
|
||
|
if ( $save ) {
|
||
|
$order->calculate_prices_and_taxes;
|
||
|
$order->save;
|
||
|
}
|
||
|
return $order;
|
||
|
sub create_sales_order {
|
||
|
my (%params) = @_;
|
||
|
$params{type} = 'sales_order';
|
||
|
_create_sales_order_or_quotation(%params);
|
||
|
}
|
||
|
|
||
|
sub create_purchase_order {
|
||
| ... | ... | |
|
return $gl_transaction;
|
||
|
}
|
||
|
|
||
|
sub _create_sales_order_or_quotation {
|
||
|
my (%params) = @_;
|
||
|
|
||
|
my $record_type = $params{type};
|
||
|
die "illegal type" unless $record_type eq 'sales_order' or $record_type eq 'sales_quotation';
|
||
|
|
||
|
my $orderitems = delete $params{orderitems} // _create_two_items($record_type);
|
||
|
_check_items($orderitems, $record_type);
|
||
|
|
||
|
my $save = delete $params{save} // 0;
|
||
|
|
||
|
my $customer = $params{customer} // new_customer(name => 'Testcustomer')->save;
|
||
|
die "illegal customer" unless ref($customer) eq 'SL::DB::Customer';
|
||
|
|
||
|
my $record = SL::DB::Order->new(
|
||
|
customer_id => delete $params{customer_id} // $customer->id,
|
||
|
taxzone_id => delete $params{taxzone_id} // $customer->taxzone->id,
|
||
|
currency_id => delete $params{currency_id} // $::instance_conf->get_currency_id,
|
||
|
taxincluded => delete $params{taxincluded} // 0,
|
||
|
employee_id => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,
|
||
|
salesman_id => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,
|
||
|
transdate => delete $params{transdate} // DateTime->today,
|
||
|
quotation => $record_type eq 'sales_quotation' ? 1 : 0,
|
||
|
orderitems => $orderitems,
|
||
|
);
|
||
|
$record->assign_attributes(%params) if %params;
|
||
|
|
||
|
if ( $save ) {
|
||
|
$record->calculate_prices_and_taxes;
|
||
|
$record->save;
|
||
|
}
|
||
|
return $record;
|
||
|
}
|
||
|
|
||
|
|
||
|
sub _transaction_tax_helper {
|
||
|
# checks for hash-entries with key tax, tax_id or taxkey
|
||
|
# returns an SL::DB::Tax object
|
||
| ... | ... | |
|
orderitems => [ SL::Dev::Record::create_order_item(part => $part1, qty => 1, sellprice => 9) ]
|
||
|
) for 1 .. 100;
|
||
|
|
||
|
=head2 C<create_sales_quotation %PARAMS>
|
||
|
|
||
|
See C<create_sales_order>
|
||
|
|
||
|
=head2 C<create_purchase_order %PARAMS>
|
||
|
|
||
|
See comments for C<create_sales_order>.
|
||
Auch abrufbar als: Unified diff
SL::Dev::Record - Verkaufsangebote erstellen per create_sales_quotation
Dafür eine verallgemeinerte Hilfsfunktion erstellt, die sowohl Angebot
als auch Auftrag kann.