Revision 6887d2fc
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
|
use SL::Template;
|
||
|
use SL::DB::Printer;
|
||
|
use SL::DB::Language;
|
||
|
use SL::TransNumber;
|
||
|
|
||
|
use strict;
|
||
|
|
||
| ... | ... | |
|
|
||
|
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,
|
||
| ... | ... | |
|
(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,
|
||
Auch abrufbar als: Unified diff
DN.pm: SL::TransNumber anstelle von Form->update_defaults für Nummernkreise nutzen