X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FCP.pm;h=a2a247613943f1a95c32c634aff0b9be82ef56ac;hb=c0158b6b111fa98fbde66a300237133c999bfb9f;hp=21e74de3cdeaee38110a18f2e736dbca5be65f6a;hpb=d4610c7f35448a300e3e3d65907d611d6fd07b6e;p=kivitendo-erp.git diff --git a/SL/CP.pm b/SL/CP.pm index 21e74de3c..a2a247613 100644 --- a/SL/CP.pm +++ b/SL/CP.pm @@ -147,23 +147,23 @@ sub get_openinvoices { my $buysell = $form->{vc} eq 'customer' ? "buy" : "sell"; my $arap = $form->{arap} eq "ar" ? "ar" : "ap"; - my $invnumber = $form->{invnumber}; - $invnumber =~ s/^\s+//m; - $invnumber =~ s/\s+$//m; - - my $whereinvoice = $invnumber ? qq| AND a.invnumber LIKE '| . $invnumber . qq|' | : undef; + + my @values = (conv_i($form->{"${vc}_id"}), "$form->{currency}"); + my $whereinvoice = ''; + if ($::form->{invnumber}) { + $whereinvoice = ' AND a.invnumber LIKE ? '; + push @values, $::form->{invnumber}; + } my $query = qq|SELECT a.id, a.invnumber, a.transdate, a.amount, a.paid, cu.name AS curr | . qq|FROM $arap a | . qq|LEFT JOIN currencies cu ON (cu.id=a.currency_id)| . qq|WHERE (a.${vc}_id = ?) AND cu.name = ? AND NOT (a.amount = a.paid)| . - $whereinvoice . + $whereinvoice . qq|ORDER BY a.id|; - - my $sth = prepare_execute_query($form, $dbh, $query, - conv_i($form->{"${vc}_id"}), - "$form->{currency}"); + + my $sth = prepare_execute_query($form, $dbh, $query, @values); $form->{PR} = []; while (my $ref = $sth->fetchrow_hashref("NAME_lc")) { @@ -348,8 +348,9 @@ sub process_payment { # saving the history $form->{id} = $form->{"id_$i"}; if(!exists $form->{addition}) { - $form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"}; - $form->{addition} = "POSTED"; + $form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"}; + $form->{what_done} = "invoice"; + $form->{addition} = "PAYMENT POSTED"; $form->save_history; } # /saving the history