Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 3ab57a41

Von Kivitendo Admin vor fast 2 Jahren hinzugefügt

  • ID 3ab57a41bbf4f115875593260cf025ffa5308acb
  • Vorgänger 61fabdc2
  • Nachfolger 1b98d23f

SL::Dev::Record - Verkaufsangebote erstellen per create_sales_quotation

Dafür eine verallgemeinerte Hilfsfunktion erstellt, die sowohl Angebot
als auch Auftrag kann.

Unterschiede anzeigen:

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