X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAR.pm;h=3da550d68d7d83e9ea21a6e0f53896a24fea6447;hb=a3511b2d8974c72e4d26b2d85c5cf1cd711ccb6f;hp=c52a00fd5de091d0bc794de6f82c07c55c8f61a4;hpb=13b7b660f564981597f58ba4e6d0b4cc5b7c6d1a;p=kivitendo-erp.git diff --git a/SL/AR.pm b/SL/AR.pm index c52a00fd5..3da550d68 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -40,6 +40,7 @@ use SL::DBUtils; use SL::IO; use SL::MoreCommon; use SL::DB::Default; +use SL::TransNumber; use strict; @@ -136,7 +137,10 @@ sub post_transaction { ($form->{id}) = selectrow_query($form, $dbh, $query); $query = qq|INSERT INTO ar (id, invnumber, employee_id, currency_id) VALUES (?, 'dummy', ?, (SELECT id FROM currencies WHERE name=?))|; do_query($form, $dbh, $query, $form->{id}, $form->{employee_id}, $form->{currency}); - $form->{invnumber} = $form->update_defaults($myconfig, "invnumber", $dbh) unless $form->{invnumber}; + if (!$form->{invnumber}) { + my $trans_number = SL::TransNumber->new(type => 'invoice', dbh => $dbh, number => $form->{partnumber}, id => $form->{id}); + $form->{invnumber} = $trans_number->create_unique; + } } } @@ -800,4 +804,3 @@ sub storno { 1; -