Revision 6887d2fc
Von Moritz Bunkus vor fast 11 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 44 | 44 |
use SL::Template; |
| 45 | 45 |
use SL::DB::Printer; |
| 46 | 46 |
use SL::DB::Language; |
| 47 |
use SL::TransNumber; |
|
| 47 | 48 |
|
| 48 | 49 |
use strict; |
| 49 | 50 |
|
| ... | ... | |
| 205 | 206 |
|
| 206 | 207 |
my ($ar_id) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
|
| 207 | 208 |
my $curr = $form->get_default_currency($myconfig); |
| 209 |
my $trans_number = SL::TransNumber->new(type => 'invoice', dbh => $dbh); |
|
| 208 | 210 |
|
| 209 | 211 |
$query = |
| 210 | 212 |
qq|INSERT INTO ar (id, invnumber, transdate, gldate, customer_id, |
| ... | ... | |
| 235 | 237 |
(SELECT id FROM employee WHERE login = ?) |
| 236 | 238 |
)|; |
| 237 | 239 |
@values = ($ar_id, # id |
| 238 |
$form->update_defaults($myconfig, 'invnumber', $dbh), # invnumber
|
|
| 240 |
$trans_number->create_unique, # invnumber
|
|
| 239 | 241 |
$dunning_id, # customer_id |
| 240 | 242 |
$amount, |
| 241 | 243 |
$amount, |
Auch abrufbar als: Unified diff
DN.pm: SL::TransNumber anstelle von Form->update_defaults für Nummernkreise nutzen