Mahnwesen:

[mfinanz.git] / SL / AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index d837f8daafda72c4f1456f7a973ecb58c3469b8a..be9a2c4e40d8dbf63d07d404eeb1817f82cb17a6 100644 (file)
--- 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