Revision c2eb03d4
Von Kivitendo Admin vor mehr als 9 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
|
use SL::CVar;
|
||
|
use SL::DB::Order;
|
||
|
use SL::DB::PeriodicInvoicesConfig;
|
||
|
use SL::DB::Project;
|
||
|
use SL::DB::ProjectType;
|
||
|
use SL::DB::Status;
|
||
|
use SL::DB::Tax;
|
||
|
use SL::DBUtils;
|
||
| ... | ... | |
|
|
||
|
my $number_field = $form->{type} =~ m{order} ? 'ordnumber' : 'quonumber';
|
||
|
my $trans_number = SL::TransNumber->new(type => $form->{type}, dbh => $dbh, number => $form->{$number_field}, id => $form->{id});
|
||
|
$form->{$number_field} ||= $trans_number->create_unique;
|
||
|
$form->{$number_field} ||= $trans_number->create_unique; # set $form->{ordnumber} or $form->{quonumber}
|
||
|
|
||
|
if ($form->{id}) {
|
||
|
$query = qq|DELETE FROM shipto | .
|
||
| ... | ... | |
|
$pricegroup_id *= 1;
|
||
|
$pricegroup_id = undef if !$pricegroup_id;
|
||
|
|
||
|
if ( $::instance_conf->get_order_always_project && !$form->{"globalproject_id"} && ( $form->{type} eq 'sales_order' ) ) {
|
||
|
my $new_project = SL::DB::Project->new(
|
||
|
projectnumber => $form->{ordnumber},
|
||
|
description => $form->{customer},
|
||
|
active => 1,
|
||
|
project_type_id => $::instance_conf->get_project_type_id,
|
||
|
project_status_id => $::instance_conf->get_project_status_id,
|
||
|
# id => $form->{globalproject_id}
|
||
|
);
|
||
|
$new_project->save;
|
||
|
$form->{"globalproject_id"} = $new_project->id;
|
||
|
};
|
||
|
|
||
|
CVar->get_non_editable_ic_cvars(form => $form,
|
||
|
dbh => $dbh,
|
||
|
row => $i,
|
||
Auch abrufbar als: Unified diff
Verkaufsauftrag immer mit neuem Projekt speichern
sofern kein Projekt angegeben wurde. Die Projektnummer entspricht der
Auftragsnummer.