projekt kivitendo

sub getnumcolumns {

  my ($self) = @_;

                     missing shipped used outsum consumed averconsumed);

}

  push @columns , qw(ptype unit) if $form->{report_generator_output_format} eq 'HTML';

                     missing shipped used outsum consumed averconsumed);

  push @columns , $self->getnumcolumns();

                            warehouse_id bin_id partnumber description bestbefore chargenumber partstypes_id);

  my %column_defs = (

    'partnumber'      => { 'text' => $locale->text('Part Number'), },

  my @custom_headers = ();

  # Zeile 1:

  push @custom_headers, [

        'colspan' => ($form->{report_generator_output_format} eq 'HTML'?4:2), 'align' => 'center'},

      { 'text' => $locale->text('Into bin'), 'colspan' => 4, 'align' => 'center'},

      { 'text' => $locale->text('From bin'), 'colspan' => 7, 'align' => 'center'},

  $end->set_second(59);

  $end->set_minute(59);

  $end->set_hour(23);

      $end = DateTime->now_local;

      my $dur = $start->delta_md($end);

      $days = $dur->delta_months()*30 + $dur->delta_days() ;

                  $report->add_data($last_row);

              }

              $row_ind++ ;

          $last_partid = $entry->parts_id;

          $last_row = { };

          $last_row->{partnumber}->{data} = $entry->part->partnumber;

      if ( $entry->trans_type->description eq 'correction' ) {

          $prefix = $entry->trans_type->direction;

      }

          ( $entry->trans_type->direction eq 'out' ? -$entry->qty : $entry->qty );

  }

  if ( $last_partid > 0 && ( $allrows || ($row_ind >= $first_nr && $row_ind < $last_nr ))) {

      $self->make_row_result($last_row,$days,$last_partid);

      $report->add_data($last_row);

      $row_ind++ ;

  my $num_rows = @{ $report->{data} } ;

  #$main::lxdebug->message(LXDebug->DEBUG2(), "count=".$row_ind." rows=".$num_rows);

  $row->{insum}->{data}  = $row->{stock}->{data} + $row->{incorrection}->{data} + $row->{found}->{data};

  $row->{outsum}->{data} = $row->{back}->{data} + $row->{outcorrection}->{data} + $row->{disposed}->{data} +

       $row->{missing}->{data} + $row->{shipped}->{data} + $row->{used}->{data};

       $row->{outcorrection}->{data} - $row->{incorrection}->{data};

  $row->{averconsumed}->{data} = $row->{consumed}->{data}*30/$days ;

  map { $row->{$_}->{data} = $form->format_amount($myconfig,$row->{$_}->{data},2); } $self->getnumcolumns();