projekt kivitendo

use strict;

my ($transdate1, $transdate2, $transdate3, $transdate4, $currency, $exchangerate, $exchangerate2, $exchangerate3, $exchangerate4);

my ($ar_chart,$bank,$ar_amount_chart, $ap_chart, $ap_amount_chart, $fxloss_chart, $fxgain_chart);

my $purchase_invoice_counter = 0; # used for generating purchase invnumber

Support::TestSetup::login();

# test cases: without_skonto

test_default_invoice_one_item_19_without_skonto();

test_default_invoice_two_items_19_7_tax_with_skonto();

test_ap_currency_tax_not_included_and_payment_2();             # two exchangerates, with fx_gain_loss

test_ap_currency_tax_not_included_and_payment_2_credit_note(); # two exchangerates, with fx_gain_loss

}

# remove all created data at end of test

done_testing();

  SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);

};

  my %params = @_;

  clear_up();

  $transdate1 = DateTime->today;

  $transdate3 = DateTime->today->add(days => 2);

  $transdate4 = DateTime->today->add(days => 3);

  $currency_id     = $::instance_conf->get_currency_id;

  $bank            = SL::DB::Manager::Chart->find_by( accno => '1200' ); # Bank

  $ar_amount_chart = SL::DB::Manager::Chart->find_by( accno => '8400' ); # Erlöse

  $ap_amount_chart = SL::DB::Manager::Chart->find_by( accno => '3400' ); # Wareneingang 19%

}

sub new_purchase_invoice {

# test 1

sub test_default_invoice_one_item_19_without_skonto() {

  my $item    = create_invoice_item(part => $parts[0], qty => 2.5);

  my $invoice = create_sales_invoice(

    taxincluded  => 0,

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,   5.85,      "${title}: netamount");

  is($invoice->amount,      6.96,      "${title}: amount");

  is($paid_amount,         -6.96,      "${title}: paid amount");

}

sub test_default_invoice_one_item_19_without_skonto_overpaid() {

  my $item    = create_invoice_item(part => $parts[0], qty => 2.5);

  my $invoice = create_sales_invoice(

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,   5.85,      "${title}: netamount");

  is($invoice->amount,      6.96,      "${title}: amount");

  is($paid_amount,         -6.96,      "${title}: paid amount");

# test 2

sub test_default_invoice_two_items_19_7_tax_with_skonto() {

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 1.2);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,  5.85 + 11.66,   "${title}: netamount");

  is($invoice->amount,     6.96 + 12.48,   "${title}: amount");

  is($paid_amount,               -19.44,   "${title}: paid amount");

}

sub test_default_invoice_two_items_19_7_tax_with_skonto_tax_included() {

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 1.2);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,         15.82,   "${title}: netamount");

  is($invoice->amount,            17.51,   "${title}: amount");

  is($paid_amount,               -17.51,   "${title}: paid amount");

  is($invoice->paid,              17.51,   "${title}: paid");

  is($number_of_payments,             3,   "${title}: 3 AR_paid bookings");

  is($total,                          0,   "${title}: even balance");

  }

}

# test 3 : two items, without skonto

sub test_default_invoice_two_items_19_7_without_skonto() {

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 1.2);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,     5.85 + 11.66,     "${title}: netamount");

  is($invoice->amount,        6.96 + 12.48,     "${title}: amount");

  is($paid_amount,                  -19.44,     "${title}: paid amount");

# test 4

sub test_default_invoice_two_items_19_7_without_skonto_incomplete_payment() {

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 1.2);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        5.85 + 11.66,     "${title}: netamount");

  is($invoice->amount,           6.96 + 12.48,     "${title}: amount");

  is($paid_amount,              -9.44,             "${title}: paid amount");

# test 5

sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments() {

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 1.2);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        5.85 + 11.66,     "${title}: netamount");

  is($invoice->amount,           6.96 + 12.48,     "${title}: amount");

  is($paid_amount,                     -19.44,     "${title}: paid amount");

# test 6

sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto() {

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 1.2);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        5.85 + 11.66,     "${title}: netamount");

  is($invoice->amount,           6.96 + 12.48,     "${title}: amount");

  is($paid_amount,                     -19.44,     "${title}: paid amount");

}

sub  test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_1cent() {

  # if there is only one cent left there can only be one skonto booking, the

  # error handling should choose the highest amount, which is the 7% account

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        5.85 + 11.66,     "${title}: netamount");

  is($invoice->amount,           6.96 + 12.48,     "${title}: amount");

  is($paid_amount,                     -19.44,     "${title}: paid amount");

}

sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_2cent() {

  # if there are two cents left there will be two skonto bookings, 1 cent each

  my $item1   = create_invoice_item(part => $parts[0], qty => 2.5);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        5.85 + 11.66,     "${title}: netamount");

  is($invoice->amount,           6.96 + 12.48,     "${title}: amount");

  is($paid_amount,                     -19.44,     "${title}: paid amount");

}

sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto() {

  my $item    = create_invoice_item(part => $parts[0], qty => 2.5);

  my $invoice = create_sales_invoice(

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,       5.85,     "${title}: netamount");

  is($invoice->amount,          6.96,     "${title}: amount");

  is($paid_amount,             -6.96,     "${title}: paid amount");

}

sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto_1cent() {

  my $item    = create_invoice_item(part => $parts[0], qty => 2.5);

  my $invoice = create_sales_invoice(

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,       5.85,     "${title}: netamount");

  is($invoice->amount,          6.96,     "${title}: amount");

  is($paid_amount,             -6.96,     "${title}: paid amount");

# test 3 : two items, without skonto

sub test_default_purchase_invoice_two_charts_19_7_without_skonto() {

  my $purchase_invoice = new_purchase_invoice();

  my ($number_of_payments, $paid_amount) = number_of_payments($purchase_invoice);

  my $total = total_amount($purchase_invoice);

  is($paid_amount,         226,     "${title}: paid amount");

  is($number_of_payments,    1,     "${title}: 1 AP_paid bookings");

  is($total,                 0,     "${title}: even balance");

}

sub test_default_purchase_invoice_two_charts_19_7_with_skonto() {

  my $purchase_invoice = new_purchase_invoice();

  my ($number_of_payments, $paid_amount) = number_of_payments($purchase_invoice);

  my $total = total_amount($purchase_invoice);

  is($paid_amount,         226,     "${title}: paid amount");

  is($number_of_payments,    3,     "${title}: 1 AP_paid bookings");

  is($total,                 0,     "${title}: even balance");

}

sub test_default_purchase_invoice_two_charts_19_7_tax_partial_unrounded_payment_without_skonto() {

  # check whether unrounded amounts passed via $params{amount} are rounded for without_skonto case

  my $purchase_invoice = new_purchase_invoice();

  $purchase_invoice->pay_invoice(

                          amount       => ( $purchase_invoice->amount / 3 * 2),

  my ($number_of_payments, $paid_amount) = number_of_payments($purchase_invoice);

  my $total = total_amount($purchase_invoice);

  is($paid_amount,         150.67,   "${title}: paid amount");

  is($number_of_payments,       1,   "${title}: 1 AP_paid bookings");

  is($total,                    0,   "${title}: even balance");

sub test_default_purchase_invoice_two_charts_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto() {

  my $purchase_invoice = new_purchase_invoice();

  my ($number_of_payments, $paid_amount) = number_of_payments($purchase_invoice);

  my $total = total_amount($purchase_invoice);

  is($paid_amount,         226, "${title}: paid amount");

  is($number_of_payments,    4, "${title}: 1 AP_paid bookings");

  is($total,                 0, "${title}: even balance");

# test

sub test_default_invoice_two_items_19_7_tax_with_skonto_50_50() {

  my $item1   = create_invoice_item(part => $parts[2], qty => 1);

  my $item2   = create_invoice_item(part => $parts[3], qty => 1);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        100,     "${title}: netamount");

  is($invoice->amount,           113,     "${title}: amount");

  is($paid_amount,              -113,     "${title}: paid amount");

# test

sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25() {

  my $item1   = create_invoice_item(part => $parts[2], qty => 0.5);

  my $item2   = create_invoice_item(part => $parts[3], qty => 0.5);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount , 100  , "${title}: netamount");

  is($invoice->amount    , 113  , "${title}: amount");

  is($paid_amount        , -113 , "${title}: paid amount");

}

sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_tax_included() {

  my $item1   = create_invoice_item(part => $parts[2], qty => 0.5);

  my $item2   = create_invoice_item(part => $parts[3], qty => 0.5);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,   88.75,    "${title}: netamount");

  is($invoice->amount,        100,    "${title}: amount");

  is($paid_amount,           -100,    "${title}: paid amount");

  is($invoice->paid,          100,    "${title}: paid");

  is($number_of_payments,       3,    "${title}: 3 AR_paid bookings");

  is($total,                    0,    "${title}: even balance");

  }

}

sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_multiple() {

  my $item1   = create_invoice_item(part => $parts[2], qty => 0.5);

  my $item2   = create_invoice_item(part => $parts[3], qty => 0.5);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,  100,     "${title}: netamount");

  is($invoice->amount,     113,     "${title}: amount");

  is($paid_amount,        -113,     "${title}: paid amount");

}

sub test_ar_currency_tax_not_included_and_payment {

  my $netamount = $::form->round_amount(75 * $exchangerate->sell,2); #  75 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);        # 100 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::Invoice->new(

};

sub test_ar_currency_tax_included {

  # we want the acc_trans amount to be 100

  my $amount    = $::form->round_amount(75 * $exchangerate->sell * 1.19);

  my $netamount = $::form->round_amount($amount / 1.19,2);

};

sub test_ap_currency_tax_not_included_and_payment {

  my $netamount = $::form->round_amount(75 * $exchangerate->buy,2); #  75 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);        # 100 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::PurchaseInvoice->new(

};

sub test_ap_currency_tax_included {

  # we want the acc_trans amount to be 100

  my $amount    = $::form->round_amount(75 * $exchangerate->buy * 1.19);

  my $netamount = $::form->round_amount($amount / 1.19,2);

sub test_ar_currency_tax_not_included_and_payment_2 {

  my $title = 'test_ar_currency_tax_not_included_and_payment_2';

  my $netamount = $::form->round_amount(125 * $exchangerate2->sell,2); # 125.00 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);          # 148.75 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::Invoice->new(

};

sub test_ar_currency_tax_not_included_and_payment_2_credit_note {

  my $netamount = $::form->round_amount(-125 * $exchangerate2->sell,2); # 125.00 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);          # 148.75 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::Invoice->new(

sub test_ap_currency_tax_not_included_and_payment_2 {

  my $title = 'test_ap_currency_tax_not_included_and_payment_2';

  my $netamount = $::form->round_amount(125 * $exchangerate2->sell,2); # 125.00 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);          # 148.75 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::PurchaseInvoice->new(

sub test_ap_currency_tax_not_included_and_payment_2_credit_note {

  my $title = 'test_ap_currency_tax_not_included_and_payment_2_credit_note';

  my $netamount = $::form->round_amount(-125 * $exchangerate2->sell,2); # 125.00 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);          # 148.75 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::PurchaseInvoice->new(

  is(total_amount($invoice), 0,   "$title: even balance");

};

  my $item1   = create_invoice_item(part => $parts[0], qty => 5);

  my $item2   = create_invoice_item(part => $parts[1], qty => 3);

  my ($number_of_payments, $paid_amount) = number_of_payments($invoice);

  my $total = total_amount($invoice);

  is($invoice->netamount,        -40.84,   "${title}: netamount");

  is($invoice->amount,           -45.10,   "${title}: amount");

  is($paid_amount,                45.10,   "${title}: paid amount according to acc_trans is positive (Haben)");