projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ad0096b
)
DN.pm: SL::TransNumber anstelle von Form->update_defaults für Nummernkreise nutzen
author
Moritz Bunkus
<m.bunkus@linet-services.de>
Wed, 8 Jan 2014 12:16:06 +0000
(13:16 +0100)
committer
Moritz Bunkus
<m.bunkus@linet-services.de>
Wed, 8 Jan 2014 12:16:06 +0000
(13:16 +0100)
SL/DN.pm
patch
|
blob
|
history
diff --git
a/SL/DN.pm
b/SL/DN.pm
index
ebfa4f3
..
b4ad666
100644
(file)
--- a/
SL/DN.pm
+++ b/
SL/DN.pm
@@
-44,6
+44,7
@@
use SL::MoreCommon;
use SL::Template;
use SL::DB::Printer;
use SL::DB::Language;
use SL::Template;
use SL::DB::Printer;
use SL::DB::Language;
+use SL::TransNumber;
use strict;
use strict;
@@
-205,6
+206,7
@@
sub create_invoice_for_fees {
my ($ar_id) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
my $curr = $form->get_default_currency($myconfig);
my ($ar_id) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
my $curr = $form->get_default_currency($myconfig);
+ my $trans_number = SL::TransNumber->new(type => 'invoice', dbh => $dbh);
$query =
qq|INSERT INTO ar (id, invnumber, transdate, gldate, customer_id,
$query =
qq|INSERT INTO ar (id, invnumber, transdate, gldate, customer_id,
@@
-235,7
+237,7
@@
sub create_invoice_for_fees {
(SELECT id FROM employee WHERE login = ?)
)|;
@values = ($ar_id, # id
(SELECT id FROM employee WHERE login = ?)
)|;
@values = ($ar_id, # id
- $
form->update_defaults($myconfig, 'invnumber', $dbh)
, # invnumber
+ $
trans_number->create_unique
, # invnumber
$dunning_id, # customer_id
$amount,
$amount,
$dunning_id, # customer_id
$amount,
$amount,