X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c63316e626c2b6723f796edeb69f508cced8aae9..63ecb9a75a94dc9ffbc2a74d153800ce4c1cd32b:/SL/AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index d837f8daa..be9a2c4e4 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -143,11 +143,11 @@ sub post_transaction {
          invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?,
          taxincluded = ?, amount = ?, duedate = ?, paid = ?, datepaid = ?,
          netamount = ?, curr = ?, notes = ?, department_id = ?,
-         employee_id = ?
+         employee_id = ?, storno = ?, storno_id = ?
        WHERE id = ?|;
   my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount},
                 conv_date($form->{duedate}), $form->{paid}, conv_date($datepaid), $form->{netamount}, $form->{currency}, $form->{notes}, conv_i($form->{department_id}),
-                conv_i($form->{employee_id}), conv_i($form->{id}));
+                conv_i($form->{employee_id}), $form->{storno} ? 't' : 'f', $form->{storno_id}, conv_i($form->{id}));
   do_query($form, $dbh, $query, @values);
 
   # amount for AR account