projekt kivitendo

  # connect to database, turn off autocommit

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

  # total payments, don't move we need it here

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

  }

  $form->{exchangerate} =

                              "buy");

  # record payments and offsetting AR

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

      my $project_id = conv_i($form->{"paid_project_id_$i"});

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

        unless ($form->{"datepaid_$i"});

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

      $query = qq|DELETE FROM acc_trans WHERE trans_id=$form->{id} AND chart_id=(SELECT c.id FROM chart c

      $dbh->do($query) || $form->dberror($query);

      $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,

                  transdate, project_id)

                  VALUES ($form->{id}, (SELECT c.id FROM chart c

                  $amount, '$form->{"datepaid_$i"}', ?)|;

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