Revision a74b677c
Von Moritz Bunkus vor fast 11 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 44 | 44 |
use SL::DBUtils; |
| 45 | 45 |
use SL::RecordLinks; |
| 46 | 46 |
use SL::IC; |
| 47 |
use SL::TransNumber; |
|
| 47 | 48 |
|
| 48 | 49 |
use strict; |
| 49 | 50 |
|
| ... | ... | |
| 224 | 225 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC', |
| 225 | 226 |
dbh => $dbh); |
| 226 | 227 |
|
| 227 |
$form->{donumber} = $form->update_defaults($myconfig, $form->{type} eq 'sales_delivery_order' ? 'sdonumber' : 'pdonumber', $dbh) unless $form->{donumber};
|
|
| 228 |
my $trans_number = SL::TransNumber->new(type => $form->{type}, dbh => $dbh, number => $form->{donumber}, id => $form->{id});
|
|
| 229 |
$form->{donumber} ||= $trans_number->create_unique;
|
|
| 228 | 230 |
$form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id};
|
| 229 | 231 |
$form->get_employee($dbh) unless ($form->{employee_id});
|
| 230 | 232 |
|
Auch abrufbar als: Unified diff
DN.pm: SL::TransNumber anstelle von Form->update_defaults für Nummernkreise nutzen