X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=850db5febe68094fad8802eaab3a28bc8ba59d1e;hb=a325f1b7554914418f885c43211099baa0ce083c;hp=716f1b0101e488d87bb0bbe7a2e4471b8982c803;hpb=48a78d168d01ab0128c3958eb398baec8a5d4ca4;p=kivitendo-erp.git diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index 716f1b010..850db5feb 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -4,7 +4,10 @@ # Based on SQL-Ledger Version 2.1.9 # Web http://www.lx-office.org ############################################################################# -# Veraendert 2005-01-05 - Marco Welter - Neue Optik # +# Changelog: Wann - Wer - Was +# Veraendert 2005-01-05 - Marco Welter - Neue Optik +# 08.11.2008 - information@richardson-bueren.de jb - Backport von Revision 7339 xplace - E-Mail-Vorlage automatisch auswählen +# 02.02.2009 - information@richardson-bueren.de jb - Backport von Revision 8535 xplace - Erweiterung der Waren bei Lieferantenauftrag um den Eintrag Mindestlagerbestand. Offen: Auswahlliste auf Lieferantenaufträge einschränken -> Erledigt 2.2.09 Prüfung wie das Skript heisst (oe.pl) -> das ist nur die halbe Miete, nochmal mb fragen -> mb gefragt und es gibt die variable is_purchase ############################################################################# # SQL-Ledger, Accounting # Copyright (c) 1998-2002 @@ -35,7 +38,7 @@ use CGI; use CGI::Ajax; -use List::Util qw(max first); +use List::Util qw(min max first); use SL::CVar; use SL::Common; @@ -111,6 +114,7 @@ sub display_row { my $is_purchase = (first { $_ eq $form->{type} } qw(request_quotation purchase_order purchase_delivery_order)) || ($form->{script} eq 'ir.pl'); my $show_min_order_qty = first { $_ eq $form->{type} } qw(request_quotation purchase_order); my $is_delivery_order = $form->{type} =~ /_delivery_order$/; + my $is_s_p_order = (first { $_ eq $form->{type} } qw(sales_order purchase_order)); if ($is_delivery_order) { $readonly = ' readonly' if ($form->{closed}); @@ -122,34 +126,33 @@ sub display_row { $stock_in_out_title = $locale->text('Transfer To Stock'); $stock_in_out = 'in'; } + + retrieve_partunits(); } # column_index my @header_sort = qw(runningnumber partnumber description ship qty unit sellprice_pg sellprice discount linetotal); my @HEADER = ( { id => 'runningnumber', width => 5, value => $locale->text('No.'), display => 1, }, - { id => 'partnumber', width => 12, value => $locale->text('Number'), display => 1, }, + { id => 'partnumber', width => 8, value => $locale->text('Number'), display => 1, }, { id => 'description', width => 30, value => $locale->text('Part Description'), display => 1, }, - { id => 'ship', width => 5, value => ($form->{type} eq 'purchase_order' ? $locale->text('Ship rcvd') : $locale->text('Ship')), - display => $form->{type} =~ /sales_order/ || ($form->{type} =~ /purchase_order/ && !($lizenzen && $form->{vc} eq "customer")) , }, - { id => 'qty', width => 5, value => $locale->text('Qty'), display => 1, }, + { id => 'ship', width => 5, value => $locale->text('Delivered'), display => $is_s_p_order, }, + { id => 'qty', width => 5, value => $locale->text('Wo bin ich'), display => 1, }, { id => 'price_factor', width => 5, value => $locale->text('Price Factor'), display => !$is_delivery_order, }, { id => 'unit', width => 5, value => $locale->text('Unit'), display => 1, }, { id => 'license', width => 10, value => $locale->text('License'), display => 0, }, { id => 'serialnr', width => 10, value => $locale->text('Serial No.'), display => 0, }, { id => 'projectnr', width => 10, value => $locale->text('Project'), display => 0, }, { id => 'sellprice', width => 15, value => $locale->text('Price'), display => !$is_delivery_order, }, - { id => 'sellprice_pg', width => 15, value => $locale->text('Pricegroup'), display => ($form->{type} =~ /^sales_/) && !$is_delivery_order, }, - { id => 'discount', width => 5, value => $locale->text('Discount'), display => ($form->{vc} eq 'customer') && !$is_delivery_order, }, + { id => 'sellprice_pg', width => 8, value => $locale->text('Pricegroup'), display => ($form->{type} =~ /^sales_/) && !$is_delivery_order, }, + { id => 'discount', width => 5, value => $locale->text('Discount'), display => !$is_delivery_order, }, { id => 'linetotal', width => 10, value => $locale->text('Extended'), display => !$is_delivery_order, }, { id => 'bin', width => 10, value => $locale->text('Bin'), display => 0, }, { id => 'stock_in_out', width => 10, value => $stock_in_out_title, display => $is_delivery_order, }, - ); + ); my @column_index = map { $_->{id} } grep { $_->{display} } @HEADER; # cache units - my $dimension_units = AM->retrieve_units(\%myconfig, $form, "dimension"); - my $service_units = AM->retrieve_units(\%myconfig, $form, "service"); my $all_units = AM->retrieve_units(\%myconfig, $form); my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} }; @@ -159,7 +162,7 @@ sub display_row { $form->{invsubtotal} = 0; map { $form->{"${_}_base"} = 0 } (split(/ /, $form->{taxaccounts})); - # about details + # about details $myconfig{show_form_details} = 1 unless (defined($myconfig{show_form_details})); $form->{show_details} = $myconfig{show_form_details} unless (defined($form->{show_details})); # /about details @@ -188,20 +191,20 @@ sub display_row { $projectnumber_labels{$item->{"id"}} = $item->{"projectnumber"}; } + _update_part_information(); + _update_ship() if ($is_s_p_order); + # rows for $i (1 .. $numrows) { # undo formatting - map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty ship discount sellprice price_new price_old) unless ($form->{simple_save}); + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty discount sellprice price_new price_old) unless ($form->{simple_save}); # unit begin $form->{"unit_old_$i"} ||= $form->{"unit_$i"}; $form->{"selected_unit_$i"} ||= $form->{"unit_$i"}; - my $local_units = $form->{"inventory_accno_$i"} || $form->{"assembly_$i"} ? $dimension_units - : $form->{"id_$i"} ? $service_units - : $all_units; - if ( !$local_units->{$form->{"selected_unit_$i"}} # Die ausgewaehlte Einheit ist fuer diesen Artikel nicht gueltig + if ( !$all_units->{$form->{"selected_unit_$i"}} # Die ausgewaehlte Einheit ist fuer diesen Artikel nicht gueltig || !AM->convert_unit($form->{"selected_unit_$i"}, $form->{"unit_old_$i"}, $all_units)) { # (z.B. Dimensionseinheit war ausgewaehlt, es handelt sich aber $form->{"unit_old_$i"} = $form->{"selected_unit_$i"} = $form->{"unit_$i"}; # um eine Dienstleistung). Dann keinerlei Umrechnung vornehmen. } @@ -228,16 +231,15 @@ sub display_row { $column_data{price_factor} = ' '; } - $column_data{"unit"} = AM->unit_select_html($local_units, "unit_$i", $this_unit, $form->{"id_$i"} ? $form->{"unit_$i"} : undef); + $column_data{"unit"} = AM->unit_select_html($all_units, "unit_$i", $this_unit, $form->{"id_$i"} ? $form->{"unit_$i"} : undef); # / unit ending $form->{"sellprice_$i"} =~ /\.(\d+)/; $decimalplaces = max 2, length $1; $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || 1; - $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"} / 100, $decimalplaces); - $linetotal = $form->round_amount(($form->{"sellprice_$i"} - $discount) / $price_factor, $decimalplaces); - $linetotal = $form->round_amount($linetotal * $form->{"qty_$i"}, 2); + $discount = $form->round_amount($form->{"qty_$i"} * $form->{"sellprice_$i"} * $form->{"discount_$i"} / 100 / $price_factor, 2); + $linetotal = $form->round_amount($form->{"qty_$i"} * $form->{"sellprice_$i"} * (100 - $form->{"discount_$i"}) / 100 / $price_factor, 2); $column_data{runningnumber} = $cgi->textfield(-name => "runningnumber_$i", -size => 5, -value => $i); # HuT $column_data{partnumber} = $cgi->textfield(-name => "partnumber_$i", -size => 12, -value => $form->{"partnumber_$i"}); @@ -253,11 +255,19 @@ sub display_row { $column_data{qty} .= $cgi->button(-onclick => "calculate_qty_selection_window('qty_$i','alu_$i', 'formel_$i', $i)", -value => $locale->text('*/')) . $cgi->hidden(-name => "formel_$i", -value => $form->{"formel_$i"}) . $cgi->hidden("-name" => "alu_$i", "-value" => $form->{"alu_$i"}) if $form->{"formel_$i"}; - $column_data{ship} = $cgi->textfield(-name => "ship_$i", -size => 5, -value => $form->format_amount(\%myconfig, $form->{"ship_$i"})); + + $column_data{ship} = ''; + if ($form->{"id_$i"}) { + my $ship_qty = $form->{"ship_$i"} * 1; + $ship_qty *= $all_units->{$form->{"partunit_$i"}}->{factor}; + $ship_qty /= $all_units->{$form->{"unit_$i"}}->{factor}; + + $column_data{ship} = $form->format_amount(\%myconfig, $form->round_amount($ship_qty, 2) * 1) . ' ' . $form->{"unit_$i"}; + } # build in drop down list for pricesgroups if ($form->{"prices_$i"}) { - $column_data{sellprice_pg} = qq||; + $column_data{sellprice_pg} = qq||; $column_data{sellprice} = $cgi->textfield(-name => "sellprice_$i", -size => 10, -onBlur => 'check_right_number_format(this)', -value => (($form->{"new_pricegroup_$i"} != $form->{"old_pricegroup_$i"}) ? $form->format_amount(\%myconfig, $form->{"price_new_$i"}, $decimalplaces) @@ -280,20 +290,20 @@ sub display_row { $column_data{bin} = $form->{"bin_$i"}; if ($is_delivery_order) { - $column_data{stock_in_out} = (!$form->{"assembly_$i"} && $form->{"inventory_accno_$i"}) ? calculate_stock_in_out($i) : ' '; + $column_data{stock_in_out} = calculate_stock_in_out($i); } my @ROW1 = map { value => $column_data{$_}, align => $align{$_}, nowrap => $nowrap{$_} }, @column_index; # second row my @ROW2 = (); - push @ROW2, { value => qq|$serialnumber | } + push @ROW2, { value => qq|$serialnumber | } if $form->{type} !~ /_quotation/; push @ROW2, { value => qq|$projectnumber | . NTI($cgi->popup_menu('-name' => "project_id_$i", '-values' => \@projectnumber_values, '-labels' => \%projectnumber_labels, '-default' => $form->{"project_id_$i"})) }; push @ROW2, { value => qq|$reqdate | } - if $form->{type} =~ /order/; - push @ROW2, { value => sprintf qq|%s |, + if ($form->{type} =~ /order/ || $form->{type} =~ /invoice/); + push @ROW2, { value => sprintf qq|%s |, $locale->text('Subtotal'), $form->{"subtotal_$i"} ? 'checked' : '' }; # begin marge calculations @@ -322,7 +332,7 @@ sub display_row { $marge_color, $locale->text('Ertrag'),$form->{"marge_absolut_$i"}, $form->{"marge_percent_$i"}, $locale->text('LP'), $form->format_amount(\%myconfig, $form->{"listprice_$i"}, 2), $locale->text('EK'), $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2) } - if $form->{"id_$i"} && $form->{type} =~ /^sales_/ && !$is_delivery_order; + if $form->{"id_$i"} && ($form->{type} =~ /^sales_/ || $form->{type} =~ /invoice/) && !$is_delivery_order; # / marge calculations ending my @hidden_vars; @@ -333,12 +343,10 @@ sub display_row { push @hidden_vars, "stock_${stock_in_out}_sum_qty", "stock_${stock_in_out}"; } - push @hidden_vars, qw(partunit) if ($is_purchase); - my @HIDDENS = map { value => $_}, ( $cgi->hidden("-name" => "unit_old_$i", "-value" => $form->{"selected_unit_$i"}), $cgi->hidden("-name" => "price_new_$i", "-value" => $form->format_amount(\%myconfig, $form->{"price_new_$i"})), - map { ($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } map { $_."_$i" } + map { ($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } map { $_."_$i" } (qw(orderitems_id bo pricegroup_old price_old id inventory_accno bin partsgroup partnotes income_accno expense_accno listprice assembly taxaccounts ordnumber transdate cusordnumber longdescription basefactor marge_absolut marge_percent marge_price_factor lastcost), @hidden_vars) @@ -375,7 +383,7 @@ sub set_pricegroup { next unless $form->{PRICES}{$j}; # build drop down list for pricegroups my $option_tmpl = qq||; - $form->{"prices_$j"} = join '', map { sprintf $option_tmpl, @$_{qw(price pricegroup_id selected pricegroup)} } + $form->{"prices_$j"} = join '', map { sprintf $option_tmpl, @$_{qw(price pricegroup_id selected pricegroup)} } (+{ pricegroup => $locale->text("none (pricegroup)") }, @{ $form->{PRICES}{$j} }); foreach $item (@{ $form->{PRICES}{$j} }) { @@ -390,10 +398,11 @@ sub set_pricegroup { sub select_item { $lxdebug->enter_sub(); - +# diese variable kommt schon in der methode display_row vor, kann man die besser wiederverwenden? @mb fragen. ich check das jetzt erstmal so ein + my $is_purchase = (first { $_ eq $form->{type} } qw(request_quotation purchase_order purchase_delivery_order)) || ($form->{script} eq 'ir.pl'); _check_io_auth(); - @column_index = qw(ndx partnumber description onhand unit sellprice); + @column_index = qw(ndx partnumber description rop onhand unit sellprice); $column_data{ndx} = qq| |; $column_data{partnumber} = @@ -402,6 +411,10 @@ sub select_item { qq|| . $locale->text('Part Description') . qq||; $column_data{sellprice} = qq|| . $locale->text('Price') . qq||; + if ($is_purchase){ + $column_data{rop} = + qq|| . $locale->text('ROP') . qq||; + }# ende if $is_purchase -> Überschrift Mindestlagerbestand - ähnliche Prüfung weiter unten $column_data{onhand} = qq|| . $locale->text('Qty') . qq||; $column_data{unit} = @@ -464,6 +477,12 @@ sub select_item { qq|| . $form->format_amount(\%myconfig, $ref->{onhand}, '', " ") . qq||; + if ($is_purchase){ + $column_data{rop} = + qq|| + . $form->format_amount(\%myconfig, $ref->{rop}, '', " ") + . qq||; + }# ende if $is_purchase -> Falls der Aufruf über eine Einkaufsmaske kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge $column_data{unit} = qq|$ref->{unit}|; $j++; @@ -576,7 +595,7 @@ sub item_selected { $form->{sellprice} += ($form->{"sellprice_$i"} * $form->{"qty_$i"}); $form->{weight} += ($form->{"weight_$i"} * $form->{"qty_$i"}); - + if ($form->{"not_discountable_$i"}) { $form->{"discount_$i"} = 0; } @@ -623,6 +642,8 @@ sub new_item { _check_io_auth(); + my $price_key = ($form->{type} =~ m/request_quotation|purchase_order/) || ($form->{script} eq 'ir.pl') ? 'lastcost' : 'sellprice'; + # change callback $form->{old_callback} = $form->escape($form->{callback}, 1); $form->{callback} = $form->escape("$form->{script}?action=display_form", 1); @@ -632,8 +653,10 @@ sub new_item { push @HIDDENS, { 'name' => 'previousform', 'value' => $form->escape($previousform, 1) }; push @HIDDENS, map +{ 'name' => $_, 'value' => $form->{$_} }, qw(rowcount vc); - push @HIDDENS, map +{ 'name' => $_, 'value' => $form->{"${_}_$form->{rowcount}"} }, qw(partnumber description unit sellprice); + push @HIDDENS, map +{ 'name' => $_, 'value' => $form->{"${_}_$form->{rowcount}"} }, qw(partnumber description unit); push @HIDDENS, { 'name' => 'taxaccount2', 'value' => $form->{taxaccounts} }; + push @HIDDENS, { 'name' => $price_key, 'value' => $form->parse_amount(\%myconfig, $form->{"sellprice_$form->{rowcount}"}) }; + push @HIDDENS, { 'name' => 'notes', 'value' => $form->{"longdescription_$form->{rowcount}"} }; $form->header(); print $form->parse_html_template("generic/new_item", { HIDDENS => [ sort { $a->{name} cmp $b->{name} } @HIDDENS ] } ); @@ -656,7 +679,7 @@ sub check_form { not_discountable shop ve gv buchungsgruppen_id language_values sellprice_pg pricegroup_old price_old price_new unit_old ordnumber transdate longdescription basefactor marge_total marge_percent - marge_price_factor lastcost price_factor_id + marge_price_factor lastcost price_factor_id partnotes stock_out stock_in); # remove any makes or model rows @@ -963,12 +986,12 @@ sub edit_e_mail { @hidden_keys = sort grep { !$dont_hide_key{$_} } grep { !ref $form->{$_} } keys %$form; print $form->parse_html_template('generic/edit_email', - { title => $title, - a_filename => $attachment_filename, - subject => $subject, - _print_options_ => print_options('inline' => 1), - HIDDEN => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ], - SHOW_BCC => $myconfig{role} eq 'admin' }); + { title => $title, + a_filename => $attachment_filename, + subject => $subject, + print_options => print_options('inline' => 1), + HIDDEN => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ], + SHOW_BCC => $myconfig{role} eq 'admin' }); $lxdebug->leave_sub(); } @@ -994,10 +1017,10 @@ sub send_email { # generate the printing options displayed at the bottom of oe and is forms. # this function will attempt to guess what type of form is displayed, and will generate according options # -# about the coding: +# about the coding: # this version builds the arrays of options pretty directly. if you have trouble understanding how, # the opthash function builds hashrefs which are then pieced together for the template arrays. -# unneeded options are "undef"ed out, and then grepped out. +# unneeded options are "undef"ed out, and then grepped out. # # the inline options is untested, but intended to be used later in metatemplating sub print_options { @@ -1027,7 +1050,7 @@ sub print_options { push @FORMNAME, grep $_, ($form->{type} eq 'purchase_order') ? ( opthash("purchase_order", $form->{PD}{purchase_order}, $locale->text('Purchase Order')), - opthash("bin_list", $form->{PD}{bin_list}, $locale->text('Bin List')) + opthash("bin_list", $form->{PD}{bin_list}, $locale->text('Bin List')) ) : undef, ($form->{type} eq 'credit_note') ? opthash("credit_note", $form->{PD}{credit_note}, $locale->text('Credit Note')) : undef, @@ -1045,16 +1068,16 @@ sub print_options { ) : undef, ($form->{type} eq 'invoice' && $form->{storno}) ? ( opthash("storno_invoice", $form->{PD}{storno_invoice}, $locale->text('Storno Invoice')), - opthash("storno_packing_list", $form->{PD}{storno_packing_list}, $locale->text('Storno Packing List')) + opthash("storno_packing_list", $form->{PD}{storno_packing_list}, $locale->text('Storno Packing List')) ) : undef, ($form->{type} =~ /_delivery_order$/) ? ( opthash($form->{type}, $form->{PD}{$form->{type}}, $locale->text('Delivery Order')), opthash('pick_list', $form->{PD}{pick_list}, $locale->text('Pick List')), - ) : undef; + ) : undef, ($form->{type} eq 'credit_note') ? opthash("credit_note", $form->{PD}{credit_note}, $locale->text('Credit Note')) : undef; - push @SENDMODE, + push @SENDMODE, opthash("attachment", $form->{SM}{attachment}, $locale->text('Attachment')), opthash("inline", $form->{SM}{inline}, $locale->text('In-line')) if ($form->{media} eq 'email'); @@ -1080,11 +1103,11 @@ sub print_options { ($opendocument_templates && !$options{no_opendocument}) ? opthash("opendocument", $form->{DF}{opendocument}, $locale->text("OpenDocument/OASIS")) : undef; - push @LANGUAGE_ID, + push @LANGUAGE_ID, map { opthash($_->{id}, ($_->{id} eq $form->{language_id} ? 'selected' : ''), $_->{description}) } +{}, @{ $form->{languages} } if (ref $form->{languages} eq 'ARRAY'); - push @PRINTER_ID, + push @PRINTER_ID, map { opthash($_->{id}, ($_->{id} eq $form->{printer_id} ? 'selected' : ''), $_->{printer_description}) } +{}, @{ $form->{printers} } if ((ref $form->{printers} eq 'ARRAY') && scalar @{ $form->{printers } }); @@ -1213,7 +1236,7 @@ sub print_form { $form->{invdate} = $form->{"${inv}date"} = $form->{transdate}; $form->{label} = $locale->text('Packing List'); $order = 1; - # set invnumber for template packing_list + # set invnumber for template packing_list $form->{invnumber} = $form->{ordnumber}; } if ($form->{formname} eq 'purchase_order') { @@ -1270,7 +1293,7 @@ sub print_form { $form->isblank("email", $locale->text('E-mail address missing!')) if ($form->{media} eq 'email'); $form->isblank("${inv}date", - $locale->text($form->{label}) + $locale->text($form->{label}) . ": " . $locale->text(' Date missing!')); @@ -1300,7 +1323,7 @@ sub print_form { call_sub($display_form); # saving the history if(!exists $form->{addition}) { - $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; + $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; $form->{addition} = "PRINTED"; $form->save_history($form->dbconnect(\%myconfig)); } @@ -1357,7 +1380,8 @@ sub print_form { IS->invoice_details(\%myconfig, \%$form, $locale); } - $form->get_salesman(\%myconfig, $salesman_id_saved); + $form->get_employee_data('prefix' => 'employee', 'id' => $form->{employee_id}); + $form->get_employee_data('prefix' => 'salesman', 'id' => $salesman_id_saved); if ($form->{shipto_id}) { $form->get_shipto(\%myconfig); @@ -1455,26 +1479,29 @@ sub print_form { reformat_numbers($output_numberformat, $precision, @{ $field_list }); } - $form->{IN} = "$form->{formname}$form->{language}${printer_code}.html"; + my $extension = ''; if ($form->{format} eq 'postscript') { - $form->{postscript} = 1; - $form->{IN} =~ s/html$/tex/; + $form->{postscript} = 1; + $extension = 'tex'; + } elsif ($form->{"format"} =~ /pdf/) { - $form->{pdf} = 1; - if ($form->{"format"} =~ /opendocument/) { - $form->{IN} =~ s/html$/odt/; - } else { - $form->{IN} =~ s/html$/tex/; - } + $form->{pdf} = 1; + $extension = $form->{'format'} =~ m/opendocument/i ? 'odt' : 'tex'; + } elsif ($form->{"format"} =~ /opendocument/) { - $form->{"opendocument"} = 1; - $form->{"IN"} =~ s/html$/odt/; + $form->{opendocument} = 1; + $extension = 'odt'; } + my $email_extension = '_email' if (($form->{media} eq 'email') && (-f "$myconfig{templates}/$form->{formname}_email$form->{language}${printer_code}.${extension}")); + + $form->{IN} = "$form->{formname}${email_extension}$form->{language}${printer_code}.${extension}"; + delete $form->{OUT}; if ($form->{media} eq 'printer') { - $form->{OUT} = "| $form->{printer_command} &>/dev/null"; + #$form->{OUT} = "| $form->{printer_command} &>/dev/null"; + $form->{OUT} = "| $form->{printer_command} "; $form->{printed} .= " $form->{formname}"; $form->{printed} =~ s/^ //; } @@ -1582,7 +1609,7 @@ sub print_form { } if ($form->{printing}) { call_sub($display_form); - exit; + exit; } $lxdebug->leave_sub(); @@ -1838,10 +1865,74 @@ sub set_duedate { _check_io_auth(); - $form->get_duedate(\%myconfig); + my $invdate = $form->{invdate} eq 'undefined' ? undef : $form->{invdate}; + my $duedate = $form->get_duedate(\%myconfig, $invdate); + + print $form->ajax_response_header() . $duedate; + + $lxdebug->leave_sub(); +} + +sub _update_part_information { + $lxdebug->enter_sub(); + + my %part_information = IC->get_basic_part_info('id' => [ grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount}) ], + 'vendor_id' => $form->{vendor_id}); + + $form->{PART_INFORMATION} = \%part_information; - print $cgi->header() . $form->{duedate}; + foreach my $i (1..$form->{rowcount}) { + next unless ($form->{"id_${i}"}); + + my $info = $form->{PART_INFORMATION}->{$form->{"id_${i}"}} || { }; + $form->{"partunit_${i}"} = $info->{unit}; + } $lxdebug->leave_sub(); } +sub _update_ship { + $lxdebug->enter_sub(); + + if (!$form->{ordnumber} || !$form->{id}) { + map { $form->{"ship_$_"} = 0 } (1..$form->{rowcount}); + $lxdebug->leave_sub(); + return; + } + + AM->retrieve_all_units(); + + my %ship = DO->get_shipped_qty('type' => ($form->{type} eq 'purchase_order') ? 'purchase' : 'sales', + 'oe_id' => $form->{id},); + + foreach my $i (1..$form->{rowcount}) { + next unless ($form->{"id_${i}"}); + + $form->{"ship_$i"} = 0; + + my $ship_entry = $ship{$form->{"id_$i"}}; + + next if (!$ship_entry || ($ship_entry->{qty} <= 0)); + + my $rowqty = + ($form->{simple_save} ? $form->{"qty_$i"} : $form->parse_amount(\%myconfig, $form->{"qty_$i"})) + * $all_units->{$form->{"unit_$i"}}->{factor} + / $all_units->{$form->{"partunit_$i"}}->{factor}; + + $form->{"ship_$i"} = min($rowqty, $ship_entry->{qty}); + $ship_entry->{qty} -= $form->{"ship_$i"}; + } + + foreach my $i (1..$form->{rowcount}) { + next unless ($form->{"id_${i}"}); + + my $ship_entry = $ship{$form->{"id_$i"}}; + + next if (!$ship_entry || ($ship_entry->{qty} <= 0.01)); + + $form->{"ship_$i"} += $ship_entry->{qty}; + $ship_entry->{qty} = 0; + } + + $lxdebug->leave_sub(); +}