projekt kivitendo

=item C<expense_accno_id $taxzone>

Return the chart ID for the expense account for the given taxzone

=item C<expense_account>

Return the chart (an instance of L<SL::DB::Chart>) for the expense

=item C<income_accno_id>

Return the chart ID for the income account for the given taxzone

L<SL::DB::TaxZone>).

=item C<income_account>

Return the chart (an instance of L<SL::DB::Chart>) for the income

=back

           columns => { SIMPLE => 'ALL' } );

}

1;

C<$params{is_sales}>) or expense (for falsish values of

C<$params{is_sales}>) account for the current part. It uses the part's

associated buchungsgruppe and uses the fields belonging to the tax

The information retrieved by the function is cached.

the three key words C<income>, C<expense> and C<inventory>.

This function uses the part's associated buchungsgruppe and uses the

The information retrieved by the function is cached.

use SL::IO;

use SL::MoreCommon;

use SL::DB::Default;

use List::Util qw(min);

use strict;

  # set values which could be empty

  my $taxzone_id         = $form->{taxzone_id} * 1;

  # Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr

  # korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen

  }

  $form->{invnumber}     = $form->{id} unless $form->{invnumber};

  # save AP record

  $query = qq|UPDATE ap SET

                invnumber    = ?, ordnumber   = ?, quonumber     = ?, transdate   = ?,

  map { $form->{$_} = $ref->{$_} } keys %$ref;

  my $transdate  = $form->{invdate} ? $dbh->quote($form->{invdate}) : "current_date";

  # retrieve individual items

  $query =

  }

  my $taxzone_id = $form->{taxzone_id} * 1;

  my $query =

    qq|SELECT

use SL::TransNumber;

use SL::DB::Default;

use SL::DB::Tax;

use SL::TransNumber;

use Data::Dumper;

    my $taxzone_id = $form->{taxzone_id} *= 1;

    # retrieve individual items

    $query =