use SL::DB::PurchaseInvoice;
use SL::DB::BankTransaction;
use SL::DB::AccTransaction;
use SL::DB::PurchaseInvoice;
use SL::DB::BankTransaction;
use SL::DB::AccTransaction;
use Data::Dumper;
my ($customer, $vendor, $currency_id, @parts, $unit, $employee, $tax, $tax7, $tax_9, $taxzone, $payment_terms, $bank_account);
use Data::Dumper;
my ($customer, $vendor, $currency_id, @parts, $unit, $employee, $tax, $tax7, $tax_9, $taxzone, $payment_terms, $bank_account);
SL::DB::Manager::Vendor->delete_all(all => 1);
SL::DB::Manager::BankAccount->delete_all(all => 1);
SL::DB::Manager::AccTransaction->delete_all(all => 1);
SL::DB::Manager::Vendor->delete_all(all => 1);
SL::DB::Manager::BankAccount->delete_all(all => 1);
SL::DB::Manager::AccTransaction->delete_all(all => 1);
SL::DB::Manager::PaymentTerm->delete_all(all => 1);
SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);
};
SL::DB::Manager::PaymentTerm->delete_all(all => 1);
SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);
};
$ap_transaction = test_ap_transaction(invnumber => 'purchaseinv1');
my $ar_transaction_2 = test_ar_transaction(invnumber => 'salesinv_2');
$ap_transaction = test_ap_transaction(invnumber => 'purchaseinv1');
my $ar_transaction_2 = test_ar_transaction(invnumber => 'salesinv_2');
my $report = SL::ReportGenerator->new(\%::myconfig, $::form);
$::form->{"ob_date"} = DateTime->today->truncate(to => 'year')->add(years => 1)->to_kivitendo;
my $report = SL::ReportGenerator->new(\%::myconfig, $::form);
$::form->{"ob_date"} = DateTime->today->truncate(to => 'year')->add(years => 1)->to_kivitendo;
is($balance , '38.00000' , $chart->accno.' has right balance') if $chart->accno eq '1776';
is($balance , '-100.00000' , $chart->accno.' has right balance') if $chart->accno eq '3400';
is($balance , '200.00000' , $chart->accno.' has right balance') if $chart->accno eq '8400';
is($balance , '38.00000' , $chart->accno.' has right balance') if $chart->accno eq '1776';
is($balance , '-100.00000' , $chart->accno.' has right balance') if $chart->accno eq '3400';
is($balance , '200.00000' , $chart->accno.' has right balance') if $chart->accno eq '8400';