X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FFlattenToForm.pm;h=1228acc87e4b1b20c4ba8a7acb1892cdfea8f55c;hb=0ebb8f829ac2d23b65e8d993c7d03aa0b172b637;hp=5166ff9b20341278002077f9bb281a5d4b45b140;hpb=54ce51443886623bb785e7c54492ecbc8dc9b3aa;p=kivitendo-erp.git diff --git a/SL/DB/Helper/FlattenToForm.pm b/SL/DB/Helper/FlattenToForm.pm index 5166ff9b2..1228acc87 100644 --- a/SL/DB/Helper/FlattenToForm.pm +++ b/SL/DB/Helper/FlattenToForm.pm @@ -36,7 +36,7 @@ sub flatten_to_form { $form->{vc} = $vc if ref($self) =~ m{^SL::DB::(?:.*Invoice|.*Order)}; my @vc_fields = (qw(account_number bank bank_code bic business city contact country creditlimit - department_1 department_2 discount email fax gln homepage iban language name + department_1 department_2 discount email fax gln greeting homepage iban language name phone street taxnumber ustid zipcode), "${vc}number", ($vc eq 'customer')? 'c_vendor_id': 'v_customer_id'); @@ -52,10 +52,8 @@ sub flatten_to_form { _copy($self->salesman, $form, 'salesman_', '', 0, map { $_->name } SL::DB::Employee->meta->columns) if _has($self, 'salesman_id'); _copy($self->acceptance_confirmed_by, $form, 'acceptance_confirmed_by_', '', 0, map { $_->name } SL::DB::Employee->meta->columns) if _has($self, 'acceptance_confirmed_by_id'); - if (_has($self, 'employee_id')) { - my $user = User->new(login => $self->employee->login); - $form->{"employee_$_"} = $user->{$_} for qw(tel email fax); - } + _handle_user_data($self, $form); + # company is employee and login independent $form->{"${_}_company"} = $::instance_conf->get_company for qw (employee salesman); @@ -92,7 +90,7 @@ sub flatten_to_form { _copy($item, $form, '', "_${idx}", 0, qw(description project_id ship serialnumber pricegroup_id ordnumber donumber cusordnumber unit subtotal longdescription price_factor_id marge_price_factor reqdate transdate active_price_source active_discount_source)); - _copy($item, $form, '', "_${idx}", $format_noround, qw(qty sellprice)); + _copy($item, $form, '', "_${idx}", $format_noround, qw(qty sellprice fxsellprice)); _copy($item, $form, '', "_${idx}", $format_amounts, qw(marge_total marge_percent lastcost)); _copy($item, $form, '', "_${idx}", $format_percent, qw(discount)); _copy($item->project, $form, 'project', "_${idx}", 0, qw(number description)) if _has($item, 'project_id'); @@ -107,6 +105,7 @@ sub flatten_to_form { } _copy_custom_variables($self, $form, 'vc_cvar_', '', $cvar_validity{vc}); + _copy_custom_variables($self->contact, $form, 'cp_cvar_', '') if $self->contact; return $self; } @@ -133,7 +132,7 @@ sub _copy { sub _copy_custom_variables { my ($src, $form, $prefix, $postfix, $cvar_validity) = @_; - my $obj = (any { ref($src) eq $_ } qw(SL::DB::OrderItem SL::DB::DeliveryOrderItem SL::DB::InvoiceItem)) + my $obj = (any { ref($src) eq $_ } qw(SL::DB::OrderItem SL::DB::DeliveryOrderItem SL::DB::InvoiceItem SL::DB::Contact)) ? $src : $src->customervendor; @@ -169,4 +168,23 @@ sub _determine_cvar_validity { ); } +sub _handle_user_data { + my ($self, $form) = @_; + + foreach my $type (qw(employee salesman)) { + next if !_has($self, "${type}_id"); + + my $user = User->new(login => $self->$type->login); + $form->{"${type}_$_"} = $user->{$_} for qw(tel email fax signature); + + if ($self->$type->deleted) { + for my $key (grep { $_ =~ m{^deleted_} } SL::DB::Employee->meta->columns) { + $key =~ s{^deleted_}{}; + $form->{"${type}_${key}"} = $form->{"${type}_deleted_${key}"} + } + } + + } +} + 1;