projekt kivitendo

use SL::MoreCommon;

use List::Util qw(min);

sub post_invoice {

  $main::lxdebug->enter_sub();

  my ($amount, $linetotal, $lastinventoryaccno, $lastexpenseaccno);

  my ($netamount, $invoicediff, $expensediff) = (0, 0, 0);

  my $exchangerate = 0;

  my $all_units = AM->retrieve_units($myconfig, $form);

    $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;

    #####################################################################

    # das ist aus IS.pm kopiert. schlimm. jb 7.10.2009

    # ... vier stellen = (einkauf + verkauf) * (maske + backend)

    # ansonsten stolpert man immer wieder viermal statt einmal heftig

    # und auch das undo discount formatting ist nicht besonders wartungsfreundlich

    # keep entered selling price

    # keine ahnung wofür das in IS.pm gemacht wird:

    #      my ($dec) = ($fxsellprice =~ /\.(\d+)/);

    $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;

    # deduct discount

    $form->{"sellprice_$i"} = $fxsellprice * (1 - $form->{"discount_$i"});

    ######################################################################

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

           ORDER BY transdate|;

      $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id_$i"}));

        my $qty    = min $totalqty, ($ref->{base_qty} + $ref->{allocated});

        $linetotal = $form->round_amount(($form->{"sellprice_$i"} * $qty) / $basefactor, 2);

  my $netamount = 0;

    $netamount += $form->round_amount($ref->{sellprice} * $ref->{qty} * -1, 2);

    next unless $ref->{inventory_accno_id};

         ORDER BY transdate DESC|;

      my $sth2 = prepare_execute_query($form, $dbh, $query, $ref->{parts_id});

        my $qty = $ref->{allocated};

        if (($ref->{allocated} + $pthref->{allocated}) > 0) {

          $qty = $pthref->{allocated} * -1;

        ORDER BY i.id|;

  $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));

    # Retrieve custom variables.

    my $cvars = CVar->get_custom_variables(dbh        => $dbh,

                                           module     => 'IC',

    $ref->{taxaccounts} = "";

    my $i = 0;

      if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {

        $i++;

        $ptr->{accno} = $i;

       LEFT JOIN business b       ON (b.id = v.business_id)

       LEFT JOIN payment_terms pt ON (v.payment_id = pt.id)

       WHERE 1=1 $where|;

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

  $params->{creditremaining} = $params->{creditlimit};

    for $ref (@$refs) {

      if ($ref->{category} eq 'E') {

        $i++;

        if ($params->{initial_transdate}) {

          my $tax_query = qq|SELECT tk.tax_id, t.rate FROM taxkeys tk

                             LEFT JOIN tax t ON (tk.tax_id = t.id)

                             WHERE (tk.chart_id = ?) AND (startdate <= ?)

                             ORDER BY tk.startdate DESC

                             LIMIT 1|;

          $params->{"taxchart_$i"} = "${tax_id}--${rate}";

        }

  my $sth = prepare_execute_query($form, $dbh, $query, @values);

  $form->{item_list} = [];

    # In der Buchungsgruppe ist immer ein Bestandskonto verknuepft, auch wenn

    # es sich um eine Dienstleistung handelt. Bei Dienstleistungen muss das

    delete($ref->{inventory_accno_id});

    # get tax rates and description

    $query =

      qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber

         FROM tax t

    $ref->{taxaccounts} = "";

    my $i = 0;

      #    if ($customertax{$ref->{accno}}) {

      if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {

       ORDER BY accno|;

  my $sth = prepare_execute_query($query, $dbh, $query);

    foreach my $key (split(/:/, $ref->{link})) {

      if ($key =~ /IC/) {

        push @{ $form->{IC_links}{$key} },