projekt kivitendo

  my %project_labels = map { $_->id => $_->projectnumber }  @{ SL::DB::Manager::Project->get_all };

  my (%charts, %bank_accounts);

  # don't add manual bookings for charts which are assigned to real bank accounts

  # and are flagged for use with bank import

  my $bank_accounts = SL::DB::Manager::BankAccount->get_all();

  }

  foreach my $item (@{ $form->{ALL_CHARTS} }) {

      next if $bank_accounts{$item->{accno}};

      push(@{ $form->{ALL_CHARTS_AP_paid} }, $item);

    }

  for my $i (1 .. $form->{rowcount}) {

    # format amounts

    $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);

    $form->{"tax_$i"} = $form->format_amount(\%myconfig, $form->{"tax_$i"}, 2);

    if ( $form->{"taxchart_$i"} ) {

      ($used_tax_id) = split(/--/, $form->{"taxchart_$i"});

    }

    my @taxcharts       = GL->get_active_taxes_for_chart($amount_chart_id, $taxdate, $used_tax_id);

    foreach my $item (@taxcharts) {

  my (@a, $j, $totaltax);

  for my $i (1 .. $form->{rowcount}) {

    $form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"});

      push @a, {};

      $j = $#a;

      my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});

  my $zero_amount_posting = 1;

  for my $i (1 .. $form->{rowcount}) {

    # no taxincluded for reverse charge

    my ($used_tax_id) = split(/--/, $form->{"taxchart_$i"});