X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f8f101f30251b63e62e36e2aec1d6986e3167f78..6339df04b0fb8b65e3ad193ec26b4f7c29a5da84:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index ec64dc50c..3982b267e 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -646,14 +646,14 @@ sub post_invoice { $dbh->do($query) || $form->dberror($query); if ($form->{storno}) { - $query = qq| update ap set paid=paid+amount where id=$form->{storno_id}|; + $query = qq| UPDATE ap SET paid = paid+amount WHERE id = $form->{storno_id}|; $dbh->do($query) || $form->dberror($query); - $query = qq| update ap set storno='$form->{storno}' where id=$form->{storno_id}|; + $query = qq| UPDATE ap SET storno = '$form->{storno}' WHERE id = $form->{storno_id}|; $dbh->do($query) || $form->dberror($query); - $query = qq§ update ap set intnotes='Rechnung storniert am $form->{invdate} ' || intnotes where id=$form->{storno_id}§; + $query = qq§ UPDATE ap SET intnotes = 'Rechnung storniert am $form->{invdate} ' || intnotes WHERE id = $form->{storno_id}§; $dbh->do($query) || $form->dberror($query); - $query = qq| update ap set paid=amount where id=$form->{id}|; + $query = qq| UPDATE ap SET paid = amount WHERE id = $form->{id}|; $dbh->do($query) || $form->dberror($query); }