our ($ar_chart, $buchungsgruppe, $ctrl, $currency_id, $customer, $employee, $order, $part, $tax_zone, $unit, @invoices);
+sub cleanup {
+ "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(InvoiceItem Invoice OrderItem Order Customer Part);
+}
+
sub init_common_state {
$ar_chart = SL::DB::Manager::Chart->find_by(accno => '1400') || croak "No AR chart";
$buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%') || croak "No accounting group";
sub create_sales_order {
my %params = @_;
- $params{$_} ||= {} for qw(customer part tax order orderitem);
+ cleanup();
- # Clean up: remove invoices, orders, parts and customers
- "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(InvoiceItem Invoice OrderItem Order Customer Part);
+ $params{$_} ||= {} for qw(customer part tax order orderitem);
$customer = SL::DB::Customer->new(
name => 'Test Customer',
description => 'Fourty-two fifty-four',
lastcost => 222.22,
sellprice => 333.33,
+ part_type => 'part',
buchungsgruppen_id => $buchungsgruppe->id,
unit => $unit->name,
%{ $params{part} }
ok($order->save(cascade => 1));
- $::form = Form->new('');
+ $::form = Support::TestSetup->create_new_form;
$ctrl = SL::Controller::FinancialControllingReport->new;
$ctrl->orders($ctrl->models->get);
end_date => DateTime->from_kivitendo('30.04.2014'),
});
+cleanup();
done_testing();