X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FIS.pm;h=7d641309488e367406e1729d7b8967c7b31638b1;hb=8c1d5d7530f3a1c923ee470b7ff31616800a8574;hp=6e9e9601276386bcd65ee1ca9f339268e82ff528;hpb=aae6de35362b09814f64be668537fe6d164f6e5a;p=kivitendo-erp.git diff --git a/SL/IS.pm b/SL/IS.pm index 6e9e96012..7d6413094 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -1244,6 +1244,8 @@ SQL $query = qq|UPDATE ar SET paid = ? WHERE id = ?|; do_query($form, $dbh, $query, $form->{paid}, conv_i($form->{id})); + $form->new_lastmtime('ar'); + $dbh->commit if !$provided_dbh; $main::lxdebug->leave_sub(); @@ -1299,6 +1301,8 @@ SQL do_query($form, $dbh, qq|UPDATE ar SET paid = amount WHERE id = ?|, conv_i($form->{"id"})); } + $form->new_lastmtime('ar'); + $form->{name} = $form->{customer}; $form->{name} =~ s/--\Q$form->{customer_id}\E//;