projekt kivitendo

# Changelog: Wann - Wer - Was

# Veraendert 2005-01-05 - Marco Welter <mawe@linux-studio.de> - Neue Optik

# 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

#############################################################################

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

#

use Carp;

use CGI;

use List::MoreUtils qw(any uniq apply);

use List::Util qw(sum min max first);

use List::UtilsBy qw(sort_by uniq_by);

use SL::ClientJS;

use SL::CVar;

use SL::Common;

use SL::Controller::Base;

use SL::CT;

use SL::Locale::String qw(t8);

use SL::IC;

use SL::IO;

use SL::File;

use SL::PriceSource;

use SL::Presenter::Part;

use SL::Presenter::Chart;

use SL::Util qw(trim);

use SL::DB::AuthUser;

use SL::DB::Contact;

use SL::DB::Currency;

use SL::DB::Customer;

use SL::DB::DeliveryOrder::TypeData qw();

use SL::DB::Default;

use SL::DB::Language;

use SL::DB::Vendor;

use SL::Helper::CreatePDF;

use SL::Helper::Flash;

use SL::Helper::PrintOptions;

use SL::Helper::ShippedQty;

require "bin/mozilla/common.pl";

use strict;

# any custom scripts for this one

if (-f "bin/mozilla/custom_io.pl") {

}

if (-f "bin/mozilla/$::myconfig{login}_io.pl") {

}

use SL::IS;

use SL::AM;

use Data::Dumper;

$main::auth->assert('part_service_assembly_edit | vendor_invoice_edit | sales_order_edit | invoice_edit |' .

'request_quotation_edit | sales_quotation_edit | purchase_order_edit | ' .

'purchase_delivery_order_edit | sales_delivery_order_edit | part_service_assembly_details');

}

########################################

sub display_row {

$main::lxdebug->enter_sub();

my $form = $main::form;

my $cgi = $::request->{cgi};

my $numrows = shift;

my ($stock_in_out, $stock_in_out_title);

my $defaults = AM->get_defaults();

my $is_purchase = (first { $_ eq $form->{type} } qw(request_quotation purchase_order purchase_delivery_order)) || ($form->{script} eq 'ir.pl');

my $is_quotation = $form->{type} =~ /_quotation$/;

my $is_credit_note = $form->{type} =~ /credit_note/;

my $is_s_p_order = (first { $_ eq $form->{type} } qw(sales_order purchase_order));

my $show_ship_missing = $is_s_p_order && $::instance_conf->get_sales_purchase_order_ship_missing_column;

my $show_marge = (!$is_purchase || $is_invoice || $is_credit_note) && !$is_delivery_order;

}

# column_index

my @header_sort = qw(

runningnumber partnumber vendor_partnumber type_and_classific description ship ship_missing qty price_factor

unit weight price_source sellprice discount linetotal

);

# position of serialnr is used below!

my @row2_sort = qw(

tax_chart tax serialnr projectnr reqdate subtotal recurring_billing_mode marge listprice lastcost onhand

orderer

);

# serialnr is important for delivery_orders

splice @row2_sort, 0, 3;

splice @header_sort, 4, 0, "serialnr";

}

my %column_def = (

type_and_classific

description => { width => 30, value => $locale->text('Part Description'), display => 1, },

recurring_billing_mode => { value => $locale->text('Recurring billing'), display => $form->{type} eq 'sales_order', },

marge => { value => $locale->text('Ertrag'), display => $show_marge, },

vendor_partnumber => { width => 8, value => $locale->text('Vendor Part Number'), display => $is_delivery_order && $is_purchase, },

tax_chart => { value => "", display => $is_purchase && $is_invoice },

tax => { value => $locale->text('Tax'), display => $is_purchase && $is_invoice },

orderer => { width => 10, value => $locale->text('Orderer'), display => 1, },

);

# cache units

my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };

# about details

$myconfig{show_form_details} = 1 unless (defined($myconfig{show_form_details}));

my $deliverydate = $locale->text('Required by');

my %align = map { $_ => 'right' } qw(qty ship right discount linetotal stock_in_out weight ship_missing);

my %nowrap = map { $_ => 1 } qw(description unit price_source);

$form->{totalweight} = 0;

my %projectnumber_labels = ();

_update_part_information();

_update_custom_variables();

my $totalweight = 0;

my $record = _make_record();

# rows

my %column_data = ();

my $record_item = $record->id && $record->items ? $record->items->[$i-1] : _make_record_item($i);

# undo formatting

map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }

unless ($form->{simple_save});

if ($form->{"prices_$i"} && ($form->{"new_pricegroup_$i"} != $form->{"old_pricegroup_$i"})) {

# unit begin

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

my $this_unit = $form->{"unit_$i"};

if (0 < scalar @{ $form->{ALL_PRICE_FACTORS} }) {

$column_data{price_factor} =

NTI($cgi->popup_menu('-name' => "price_factor_id_$i",

'-style' => 'width:90px'));

}

$form->{"weight_$i"} *= AM->convert_unit($form->{"selected_unit_$i"}, $form->{"partunit_$i"}, $all_units) || 1;

$column_data{"unit"} = AM->unit_select_html($all_units, "unit_$i", $this_unit, $form->{"id_$i"} ? $form->{"unit_$i"} : undef);

# / unit ending

#count the max of decimalplaces of sellprice and lastcost, so the same number of decimalplaces

my $decimalplaces = ($form->{"sellprice_$i"} =~ /\.(\d+)/) ? max 2, length $1 : 2;

$decimalplaces = ($form->{"lastcost_$i"} =~ /\.(\d+)/) ? max $decimalplaces, length $1 : $decimalplaces;

my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || 1;

# quick delete single row

$column_data{runningnumber} = q|<a onclick= "$('#partnumber_| . $i . q|').val(''); $('#update_button').click();">| .

q|<img class="icon-delete" alt="| . $locale->text('Remove') . q|"></a> |;

$column_data{runningnumber} .= $cgi->textfield(-name => "runningnumber_$i", -id => "runningnumber_$i", -size => 5, -value => $i); # HuT

$column_data{partnumber} = $cgi->textfield(-name => "partnumber_$i", -id => "partnumber_$i", -size => 12, -value => $form->{"partnumber_$i"});

$column_data{vendor_partnumber} = $form->{"vendor_partnumber_$i"};

$column_data{type_and_classific} = SL::Presenter::Part::type_abbreviation($form->{"part_type_$i"}).

$column_data{description} = (($rows > 1) # if description is too large, use a textbox instead

? $cgi->textarea( -name => "description_$i", -id => "description_$i", -default => $form->{"description_$i"}, -rows => $rows, -columns => 30)

my $qty_dec = ($form->{"qty_$i"} =~ /\.(\d+)/) ? length $1 : 2;

$column_data{qty} = $cgi->textfield(-name => "qty_$i", -size => 5, -class => "numeric", -value => $form->format_amount(\%myconfig, $form->{"qty_$i"}, $qty_dec));

$column_data{qty} .= $cgi->button(-onclick => "calculate_qty_selection_dialog('qty_$i', '', 'formel_$i', '')", -value => $locale->text('*/'))

. $cgi->hidden(-name => "formel_$i", -value => $form->{"formel_$i"})

if $form->{"formel_$i"};

$ship_qty /= ( $all_units->{$form->{"unit_$i"}}->{factor} || 1 );

$column_data{ship} = $form->format_amount(\%myconfig, $form->round_amount($ship_qty, 2) * 1) . ' ' . $form->{"unit_$i"}

. $cgi->hidden(-name => "ship_$i", -value => $form->{"ship_$i"}, $qty_dec);

}

$column_data{weight} = $form->format_amount(\%myconfig, $form->{"qty_$i"} * $form->{"weight_$i"}, 3) . ' ' . $defaults->{weightunit} if $defaults->{show_weight};

my $sellprice_value = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

if ($form->{"id_${i}"} && !$is_delivery_order) {

my $price_source = SL::PriceSource->new(record_item => $record_item, record => $record);

$price = $price_source->price_from_source($::form->{"active_price_source_$i"});

my $discount = $price_source->discount_from_source($::form->{"active_discount_source_$i"});

my $best_price = $price_source->best_price;

$column_data{price_source} .= $cgi->button(-value => $price->source_description, -onClick => "kivi.io.price_chooser($i)");

if ($price->source) {

if (!$price->missing && !$price->invalid) {

$column_data{price_source} .= ' ' . $cgi->img({src => 'image/up.png', alt => t8('This price has since gone up'), title => t8('This price has since gone up' ) }) if $price->price - $record_item->sellprice > 0.01;

$column_data{price_source} .= ' ' . $cgi->img({src => 'image/ok.png', alt => t8('There is a better price available'), title => t8('There is a better price available') }) if $best_price && $price->source ne $price_source->best_price->source;

}

$column_data{price_source} .= ' ' . $cgi->img({src => 'image/up.png', alt => t8('This discount has since gone up'), title => t8('This discount has since gone up') }) if $discount->discount * 100 - $record_item->discount > 0.01;

$column_data{price_source} .= ' ' . $cgi->img({src => 'image/ok.png', alt => t8('There is a better discount available'), title => t8('There is a better discount available') }) if $best_discount && $discount->source ne $price_source->best_discount->source;

}

}

}

my $right_to_edit_prices = (!$is_purchase && $main::auth->assert('sales_edit_prices', 1)) || ($is_purchase && $main::auth->assert('purchase_edit_prices', 1));

$column_data{sellprice} = (!$edit_prices)

: $cgi->textfield(-name => "sellprice_$i", -id => "sellprice_$i", -size => 10, -class => "numeric", -value => $sellprice_value);

$column_data{discount} = (!$edit_discounts)

: $cgi->textfield(-name => "discount_$i", -id => "discount_$i", -size => 3, -"data-validate" => "number", -class => "numeric", -value => $discount_value);

if ($is_delivery_order) {

$column_data{stock_in_out} = calculate_stock_in_out($i);

}

# tax_chart and tax

);