projekt kivitendo

  setup_do_action_bar();

  $form->header();

  # Fix für Bug 1082 Erwartet wird: 'abteilungsNAME--abteilungsID'

  # und Erweiterung für Bug 1760:

  # Das war leider nur ein Teil-Fix, da das Verhalten den 'Erneuern'-Knopf

  my $form     = $main::form;

  $form->{PRINT_OPTIONS}      = setup_sales_purchase_print_options();

  print $form->parse_html_template('do/form_footer',

    {transfer_default         => ($::instance_conf->get_transfer_default)});

  for my $i (1 .. $form->{rowcount}) {

    if ($form->{show_details}) {

      $source = qq|

      $memo = qq|

    } else {

      $source_hidden = qq|

      $memo_hidden = qq|

    }

    my %taxchart_labels = ();

    if ($init) {

      if ($form->{transfer}) {

        $fx_transaction = qq|

    |;

      }

          $checked = ($form->{"fx_transaction_$i"}) ? "1" : "";

          my $x = ($checked) ? "x" : "";

          $fx_transaction = qq|

    |;

        }

        $form->hide_form("accno_$i");

      } else {

        if ($form->{transfer}) {

          $fx_transaction = qq|

    |;

        }

      }

    print qq|<tr valign=top>

    $accno

    $fx_transaction

    $tax_ddbox|;

    if ($form->{show_details}) {

  # column_index

  my @header_sort = qw(

    runningnumber partnumber type_and_classific description ship ship_missing qty price_factor

    bin stock_in_out

  );

  my @row2_sort   = qw(

    serialnr projectnr reqdate subtotal marge listprice lastcost onhand

  );

  my %column_def = (

    partnumber    => { width => 8,     value => $locale->text('Number'),               display => 1, },

    type_and_classific

                  => { width => 2,     value => $locale->text('Type'),                 display => 1, },

    serialnr      => { width => 10,    value => $locale->text('Serial No.'),           display => !$is_quotation },

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

    price_source  => { width => 5,     value => $locale->text('Price Source'),         display => !$is_delivery_order, },

    discount      => { width => 5,     value => $locale->text('Discount'),             display => !$is_delivery_order, },

    linetotal     => { width => 10,    value => $locale->text('Extended'),             display => !$is_delivery_order, },

    bin           => { width => 10,    value => $locale->text('Bin'),                  display => 0, },

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

  # special alignings

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

  $form->{marge_total}           = 0;

    my $rows            = $form->numtextrows($form->{"description_$i"}, 30, 6);

    # quick delete single row

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

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

                                       SL::Presenter::Part::classification_abbreviation($form->{"classification_id_$i"}) if $form->{"id_$i"};

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

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

    $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"};

    my $edit_discounts  = $main::auth->assert('edit_prices', 1) && !$::form->{"active_discount_source_$i"};

    $column_data{sellprice}   = (!$edit_prices)

                                ? $cgi->hidden(   -name => "sellprice_$i", -id => "sellprice_$i", -value => $sellprice_value) . $sellprice_value

    $column_data{discount}    = (!$edit_discounts)

                                  ? $cgi->hidden(   -name => "discount_$i", -id => "discount_$i", -value => $discount_value) . $discount_value . ' %'

    if ($is_delivery_order) {

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

    }

    $column_data{projectnr} = NTI($cgi->popup_menu(

      '-name' => "project_id_$i",

      '-values' => \@projectnumber_values,

      '-labels' => \%projectnumber_labels,

    ));

    $column_data{subtotal}  = sprintf qq|<input type="checkbox" name="subtotal_$i" value="1" %s>|, $form->{"subtotal_$i"} ? 'checked' : '';

# begin marge calculations

    map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(marge_absolut marge_percent);

      $marge_color, $form->{"marge_absolut_$i"}, $form->{"marge_percent_$i"};

# / marge calculations ending

# Calculate total weight

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

      my $part         = IC->get_basic_part_info(id => $form->{"id_$i"});

      my $onhand_color = $part->{onhand} < $part->{rop} ? 'color="#ff0000"' : '';

                      $onhand_color,

                      $form->format_amount(\%myconfig, $part->{onhand}, 2),

                      $part->{unit};

# / calculate onhand

    my @ROW1 = map { { value => $column_data{$_}, align => $align{$_}, nowrap => $nowrap{$_} } } grep { $column_def{$_}{display} } @header_sort;

    my @hidden_vars;

    # add hidden ids for persistent (item|invoice)_ids and previous (converted_from*) ids

  setup_ir_action_bar();

  $form->header();

  print $form->parse_html_template("ir/form_header", \%TMPL_VAR);

  foreach my $item (@{ $form->{taxaccounts_array} }) {

    if ($form->{"${item}_base"}) {

      if ($form->{taxincluded}) {

        $form->{"${item}_netto"} = $form->round_amount( ($form->{"${item}_base"} - $form->{"${item}_total"}), 2);

        $form->{"${item}_total"} = $form->round_amount( $form->{"${item}_base"} * $form->{"${item}_rate"}, 2);

        $form->{invtotal} += $form->{"${item}_total"};

      }

    $totalpaid += $form->{"paid_$i"};

  }

  print $form->parse_html_template('ir/form_footer', {

    totalpaid           => $totalpaid,

        t8('Update'),

        submit    => [ '#form', { action => "update" } ],

        id        => 'update_button',

        accesskey => 'enter',

      ],

                        $form->{"delivered"} ? "checked" : "",  $locale->text('Delivery Order(s) for full qty created') if $form->{"type"} =~ /_order$/;

  push @tmp, sprintf qq|<input name="closed" id="closed" type="checkbox" class="checkbox" value="1" %s><label for="closed">%s</label>|,

                        $form->{"closed"}    ? "checked" : "",  $locale->text('Closed')    if $form->{id};

  my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";

    $TMPL_VAR->{transport_cost_reminder_article} = SL::DB::Part->new(id => $::instance_conf->get_transport_cost_reminder_article_number_id)->load;

  }

  print $form->parse_html_template("oe/form_header", {

    %$TMPL_VAR,

    %type_check_vars,

  $form->{invtotal} = $form->{invsubtotal};

  my $TMPL_VAR = $::request->cache('tmpl_var', {});

  if( $form->{customer_id} && !$form->{taxincluded_changed_by_user} ) {

    my $customer = SL::DB::Customer->new(id => $form->{customer_id})->load();

  };

  push @options, $locale->text('Open')                                                                    if $form->{open};

  push @options, $locale->text('Closed')                                                                  if $form->{closed};

  push @options, $locale->text('Not delivered')                                                           if $form->{notdelivered};

  push @options, $locale->text('Periodic invoices active')                                                if $form->{periodic_invoices_active};

  push @options, $locale->text('Reqdate not set or before current month')                                 if $form->{reqdate_unset_or_old};

  $::form->all_departments(\%::myconfig);

  if (@{ $::form->{all_departments} || [] }) {

    $::form->{selectdepartment} = "<option>\n";

  }

  $::form->get_lists("projects" => { "key" => "ALL_PROJECTS", "all" => 1 });