projekt kivitendo

our (%myconfig, $form);

  # this does not apply to stornos, where the paid field is set manually

  unless ($form->{storno}) {

    $form->{paidaccounts}-- unless $form->{"datepaid_$form->{paidaccounts}"};

    $form->{paid} = 0;

    # add payments

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

      $form->{"paid_$i"} = $form->round_amount($form->parse_amount($myconfig, $form->{"paid_$i"}), 2);

      $form->{paid}     += $form->{"paid_$i"};

      $form->{datepaid}  = $form->{"datepaid_$i"};

    }

    $form->{amount} = $form->{netamount} + $form->{total_tax};

  }

  $form->{paid}   = $form->round_amount($form->{paid} * ($form->{exchangerate} || 1), 2);

  $main::lxdebug->leave_sub();

sub storno {

  $main::lxdebug->enter_sub();

  my ($self, $form, $myconfig, $id) = @_;

  my ($query, $new_id, $storno_row, $acc_trans_rows);

  my $dbh = $form->get_standard_dbh($myconfig);

  $query = qq|SELECT nextval('glid')|;

  ($new_id) = selectrow_query($form, $dbh, $query);

  $query = qq|SELECT * FROM ar WHERE id = ?|;

  $storno_row = selectfirst_hashref_query($form, $dbh, $query, $id);

  $storno_row->{id}         = $new_id;

  $storno_row->{storno_id}  = $id;

  $storno_row->{storno}     = 't';

  $storno_row->{invnumber}  = 'Storno-' . $storno_row->{invnumber};

  $storno_row->{amount}    *= -1;

  $storno_row->{netamount} *= -1;

  $storno_row->{paid}       = $storno_amount->{amount};

  delete @$storno_row{qw(itime mtime)};

  $query = sprintf 'INSERT INTO ar (%s) VALUES (%s)', join(', ', keys %$storno_row), join(', ', map '?', values %$storno_row);

  do_query($form, $dbh, $query, (values %$storno_row));

  $query = qq|UPDATE ar SET paid = amount + paid, storno = 't' WHERE id = ?|;

  do_query($form, $dbh, $query, $id);

  # now copy acc_trans entries

  $query = qq|SELECT * FROM acc_trans WHERE trans_id = ?|;

  for my $row (@{ selectall_hashref_query($form, $dbh, $query, $id) }) {

    delete @$row{qw(itime mtime)};

    $query = sprintf 'INSERT INTO acc_trans (%s) VALUES (%s)', join(', ', keys %$row), join(', ', map '?', values %$row);

    $row->{trans_id}   = $new_id;

    $row->{amount}    *= -1;

    do_query($form, $dbh, $query, (values %$row));

  }

  $dbh->commit;

  $main::lxdebug->leave_sub();

}

use strict;

use warnings;

# imports

our ($cgi, $form, $lxdebug, $locale, %myconfig);

  my ($duedate, $taxincluded, @curr);

  my ($title, $readonly, $exchangerate, $rows);

  my ($taxincluded, $notes, $department, $customer, $employee, $amount, $project);

  my ($jsscript, $button1, $button2, $onload);

  my ($selectAR_amount, $selectAR_paid, $korrektur_checked, $ARselected, $tax);

  my (@column_index, %column_data);

  foreach my $item (qw(customer currency department employee)) {

  my $n = ($form->{creditremaining} =~ /-/) ? "0" : "1";

  $customer = ($form->{selectcustomer}) 

    ? qq|<select name="customer" onchange="document.getElementById('update_button').click();">$form->{selectcustomer}</select>| 

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

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

  my ($transdate, $closedto);

  my ($totaltax, $exchangerate, $totalpaid);

  my @flds  = qw(amount AR_amount projectnumber oldprojectnumber project_id);

  my $count = 0;

  my @a     = ();

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

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

      my $j = $#a;

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

  my $save_AR = $form->{AR};

  check_name("customer");

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

#

# ToDO: fix $closedto and $invdate

#

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

      my $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);

#      $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto);

#        $form->{"exchangerate_$i"} = $form->{exchangerate} if ($invdate == $datepaid);

        $form->isblank("exchangerate_$i", $locale->text('Exchangerate for payment missing!'));

  $form->redirect($locale->text('Payment posted!')) if (AR->post_payment(\%myconfig, \%$form));

  $form->error($locale->text('Cannot post payment!'));

sub _post {

  # inline post

  post(1);

}

  my ($inline) = @_;

  my ($datepaid);

  my $closedto  = $form->datetonum($form->{closedto},  \%myconfig);

  my $transdate = $form->datetonum($form->{transdate}, \%myconfig);

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

  my ($customer) = split /--/, $form->{customer};

    update();

  $lxdebug->message(0, $form->{amount});

  $form->error($locale->text('Cannot post transaction!')) unless AR->post_transaction(\%myconfig, \%$form);

  # saving the history

  if(!exists $form->{addition} && $form->{id} ne "") {

    $form->{snumbers} = "invnumber_$form->{invnumber}";

    $form->{addition} = "POSTED";

    $form->save_history($form->dbconnect(\%myconfig));

  # /saving the history 

  remove_draft() if $form->{remove_draft};

  $form->redirect($locale->text('Transaction posted!')) unless $inline;

  foreach my $key (keys %$form) {

  if (AR->delete_transaction(\%myconfig, \%$form)) {

  my ($customer, $department);

  my ($jsscript, $button1, $button2, $onload);

  my ($callback, $href, @columns);

  $form->{customer} = $form->unescape($form->{customer});

  @columns =

  $href = build_std_url('action=ar_transactions', grep { $form->{$_} } @hidden_variables);

    my ($department) = split /--/, $form->{department};

  foreach my $ar (@{ $form->{AR} }) {

  # don't cancel cancelled transactions

  AR->storno($form, \%myconfig, $form->{id});

  $form->redirect(sprintf $locale->text("Transaction %d cancelled."), $form->{storno_id});