X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Foe.pl;h=e47ffeefa1b8cb09f05dc654b99f08a5a1012f4f;hb=c2d72edadd2639c4dd854a3ad4daf29ebd4c4f2b;hp=9de5cde98bc3fe37f0af85c36d4dc339e4dab0c2;hpb=b03dd3d7b7f7d8de0a5785e56d72511ba916daac;p=kivitendo-erp.git diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index 9de5cde98..e47ffeefa 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -361,7 +361,7 @@ sub form_header { $onload = ($form->{resubmit} && ($form->{format} eq "html")) ? "window.open('about:blank','Beleg'); document.oe.target = 'Beleg';document.oe.submit()" : ($form->{resubmit}) ? "document.oe.submit()" : ($creditwarning) ? "alert('$credittext')" - : "focus()"; + : ""; $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|; $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|; @@ -527,9 +527,17 @@ sub update { } else { $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); - $form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"}; + # hier werden parts (Artikeleigenschaften) aus item_list (retrieve_item aus IS.pm) + # (item wahrscheinlich synonym für parts) entsprechend in die form geschrieben ... + + # Wäre dieses Mapping nicht besser in retrieve_items aufgehoben? + #(Eine Funktion bekommt Daten -> ARBEIT -> Rückgabe DATEN) + # Das quot sieht doch auch nach Überarbeitung aus ... (hmm retrieve_items gibt es in IS und IR) map { $form->{item_list}[$i]{$_} =~ s/\"/"/g } qw(partnumber description unit); map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + + # ... deswegen muss die prüfung, ob es sich um einen nicht rabattierfähigen artikel handelt später erfolgen (Bug 1136) + $form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"}; $form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne ""; $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor}; @@ -1093,7 +1101,7 @@ sub save { $form->{simple_save} = 1; if(!$form->{print_and_save}) { - delete @{$form}{ary_diff([keys %{ $form }], [qw(login stylesheet id script type)])}; + delete @{$form}{ary_diff([keys %{ $form }], [qw(login stylesheet id script type cursor_fokus)])}; edit(); exit; } @@ -1183,8 +1191,9 @@ sub invoice { check_oe_access(); $auth->assert($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation' ? 'vendor_invoice_edit' : 'invoice_edit'); - $form->{old_employee_id} = $form->{employee_id}; $form->{old_salesman_id} = $form->{salesman_id}; + $form->get_employee(); + if ($form->{type} =~ /_order$/) { @@ -1580,6 +1589,8 @@ sub purchase_order { $form->{vc} = "vendor"; $form->{type} = "purchase_order"; + $form->get_employee(); + &poso; $lxdebug->leave_sub(); @@ -1601,6 +1612,8 @@ sub sales_order { $form->{vc} = "customer"; $form->{type} = "sales_order"; + $form->get_employee(); + &poso; $lxdebug->leave_sub(); @@ -1669,6 +1682,8 @@ sub delivery_order { $form->{type} = 'purchase_delivery_order'; } + $form->get_employee(); + require "bin/mozilla/do.pl"; $form->{script} = 'do.pl';