X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4e9b1b0261e212d0d7e8c77a2e44cd92610da53a..931c8a6320097b9c0f6e7e098d2533b3a70d15db:/SL/AP.pm diff --git a/SL/AP.pm b/SL/AP.pm index eabf47112..cc7e06f94 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -174,13 +174,13 @@ sub post_transaction { } - $query = qq|UPDATE ap SET + $query = qq|UPDATE ap SET invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?, amount = ?, duedate = ?, paid = ?, netamount = ?, currency_id = (SELECT id FROM currencies WHERE name = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?, globalproject_id = ?, direct_debit = ? WHERE id = ?|; - @values = (conv_date($form->{transdate}), + @values = ($form->{invnumber}, conv_date($form->{transdate}), $form->{ordnumber}, conv_i($form->{vendor_id}), $form->{taxincluded} ? 't' : 'f', $form->{invtotal}, conv_date($form->{duedate}), $form->{invpaid},