X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Foe.pl;h=10e71ac17ae2e3365e226536d55f492c3462607d;hb=7804fab3bb495ddedd90159071c51b35a7e603ce;hp=f0a0b3ca5f35a137e7b8cd495713a1276c2e5bb7;hpb=d316e88eb2ce82eb422dcefecbbaa6704e1124b6;p=kivitendo-erp.git diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index f0a0b3ca5..10e71ac17 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -284,7 +284,6 @@ sub order_links { sub prepare_order { $lxdebug->enter_sub(); - $form->{media} = "screen"; $form->{formname} = $form->{type} unless $form->{formname}; my $i = 0; @@ -328,8 +327,8 @@ sub prepare_order { sub form_header { $lxdebug->enter_sub(); - $checkedopen = ($form->{closed}) ? "" : "checked"; - $checkedclosed = ($form->{closed}) ? "checked" : ""; + my $checkedclosed = $form->{"closed"} ? "checked" : ""; + my $checkeddelivered = $form->{"delivered"} ? "checked" : ""; map { $form->{$_} =~ s/\"/"/g } qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname @@ -380,15 +379,20 @@ sub form_header { $openclosed = qq| - - - - - -
| - . $locale->text('Open') . qq| | - . $locale->text('Closed') . qq|
- + + +|; + + if (($form->{"type"} eq "sales_order") || + ($form->{"type"} eq "purchase_order")) { + $openclosed .= qq| + + +|; + } + + $openclosed .= qq| + |; } @@ -432,11 +436,12 @@ sub form_header { ""; } else { $form->{selectshipto} .= - ""; + ""; } } } else { + $form->{selectshipto} = $form->unquote($form->{selectshipto}); $form->{selectshipto} =~ s/ selected//g; if ($form->{shipto_id} ne "") { $form->{selectshipto} =~ s/value=$form->{shipto_id}/value=$form->{shipto_id} selected/; @@ -445,9 +450,9 @@ sub form_header { $shipto = qq| | . $locale->text('Shipping Address') . qq| - - |; - + |; + $form->{selectshipto} = $form->quote($form->{selectshipto}); + $shipto .= qq| |; @@ -493,13 +498,7 @@ sub form_header { $vclabel = ucfirst $form->{vc}; $vclabel = $locale->text($vclabel); - $terms = qq| - - | . $locale->text('Terms: Net') . qq| - {terms}> | - . $locale->text('days') . qq| - -|; + if ($form->{business}) { $business = qq| @@ -600,7 +599,7 @@ sub form_header { $form->{creditlimit} | . $locale->text('Remaining') . qq| - $form->{creditremaining} + $form->{creditremaining} @@ -630,7 +629,6 @@ sub form_header { |; - $terms = ""; } $ordnumber .= qq| @@ -704,6 +702,8 @@ sub form_header { $onload = qq|alert('$credittext')|; } + $form->{"javascript"} .= qq||; + $form->header; print qq| @@ -807,7 +807,6 @@ print qq| $openclosed $employee $ordnumber - $terms @@ -1034,7 +1033,7 @@ sub form_footer { | . $locale->text("Edit the $form->{type}") . qq|
-text('Update') . qq|"> @@ -1107,11 +1106,6 @@ sub form_footer { |; } - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - print qq| {rowcount}> @@ -1393,6 +1387,19 @@ sub search { |; } + my $delivered; + if (($form->{"type"} eq "sales_order") || + ($form->{"type"} eq "purchase_order")) { + $delivered = qq| + + + + + + +|; + } + # use JavaScript Calendar or not $form->{jsscript} = $jscalendar; $jsscript = ""; @@ -1460,6 +1467,7 @@ sub search { $openclosed + $delivered @@ -1535,7 +1543,7 @@ sub orders { # construct href $href = - "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse"; + "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse"; # construct callback $number = $form->escape($form->{$ordnumber}, 1); @@ -1544,17 +1552,20 @@ sub orders { $warehouse = $form->escape($form->{warehouse}, 1); $callback = - "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse"; + "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse"; @columns = $form->sort_columns("transdate", "reqdate", "id", "$ordnumber", "name", "netamount", "tax", "amount", "curr", "employee", "shipvia", "open", - "closed"); + "closed", "delivered"); $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed}); + $form->{"l_delivered"} = "Y" + if ($form->{"delivered"} && $form->{"notdelivered"}); + foreach $item (@columns) { if ($form->{"l_$item"} eq "Y") { push @column_index, $item; @@ -1618,7 +1629,9 @@ sub orders { . qq||; $column_header{quonumber} = qq||; $column_header{name} = qq||; @@ -1638,6 +1651,8 @@ sub orders { qq||; $column_header{closed} = qq||; + $column_header{"delivered"} = + qq||; $column_header{employee} = qq||; @@ -1765,6 +1780,9 @@ sub orders { $column_data{closed} = ""; $column_data{open} = ""; } + $column_data{"delivered"} = ""; $i++; $i %= 2; @@ -1851,11 +1869,6 @@ sub orders { . $locale->text('Add') . qq|">|; } - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - print qq| @@ -2844,14 +2857,6 @@ sub display_ship_receive { -|; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| {rowcount}> @@ -3123,14 +3128,8 @@ sub list_transfer { {password}> |; + . $locale->text('Transfer') . qq|"> - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq|
| . $locale->text('ID') . qq|| - . $locale->text('Quotation') + . ($form->{"type"} eq "request_quotation" ? + $locale->text('RFQ') : + $locale->text('Quotation')) . qq|$name| . $locale->text('O') . qq|| . $locale->text('C') . qq|| . $locale->text("Delivered") . qq|$employee X" . + ($oe->{"delivered"} ? $locale->text("Yes") : $locale->text("No")) . + "