projekt kivitendo

sub display_row {

  $lxdebug->enter_sub();

  my $numrows = shift;

  if ($lizenzen && $form->{vc} eq "customer") {

    if ($form->{type} =~ /sales_order/) {

      @column_index = (runningnumber, partnumber, description, ship, qty);

    # build in dragdrop for pricesgroups

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

      $price_tmp = $form->format_amount(\%myconfig, $form->{"price_new_$i"}, 2);

      $column_data{sellprice_drag} =

      $column_data{sellprice} =

        qq|<td><input name="sellprice_$i" size=5 value=$price_tmp></td>|;

    } else {

      # for last row and report

      # set pricegroup dragdrop from report menu

      if ($form->{"sellprice_$i"} != 0) {

        $prices =

             qq|<option value="$form->{"sellprice_$i"}--$form->{"pricegroup_id_$i"}" selected>$form->{"pricegroup_$i"}</option>\n|;

                               $decimalplaces)

        . qq|></td>|;

    }

    $column_data{discount} =

        qq|<td align=right><input name="discount_$i" size=3 value=|

      . $form->format_amount(\%myconfig, $form->{"discount_$i"})

      $prices = '';

      $price = 0;

      foreach $item (@{ $form->{PRICES}{ $j } }) {

        $price         = $form->round_amount($myconfig, $item->{price},5);

        $price         = $form->format_amount($myconfig, $item->{price},2);

        $price         = $item->{price};

        $pricegroup_id = $item->{pricegroup_id};

        $pricegroup    = $item->{pricegroup};

        # build dragdrop for pricegroups

             qq|<option value="$price--$pricegroup_id"$item->{selected}>$pricegroup</option>\n|;

        $len += 1;

        # set new selectedpricegroup_id and prices for "Preis"

        if ($item->{selected}) {

          $form->{"pricegroup_old_$j"} = $pricegroup_id;

sub select_item {

  $lxdebug->enter_sub();

  @column_index = qw(ndx partnumber description onhand sellprice);

  $column_data{ndx}        = qq|<th>&nbsp;</th>|;

    map { $ref->{$_} =~ s/\"/"/g } qw(partnumber description unit);

#sk tradediscount

    $ref->{sellprice} =

      $form->round_amount($ref->{sellprice} * (1 - $form->{tradediscount}), 2);

    $column_data{ndx} =

      qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;

    $column_data{partnumber} =

sub item_selected {

  $lxdebug->enter_sub();

  # replace the last row with the checked row

  $i = $form->{rowcount};

  $i = $form->{assembly_rows} if ($form->{item} eq 'assembly');

sub check_form {

  $lxdebug->enter_sub();

  my @a     = ();

  my $count = 0;

  my @flds  = (

sub validate_items {

  $lxdebug->enter_sub();

  # check if items are valid

  if ($form->{rowcount} == 1) {

    &update;

  $form->{ordnumber} = $form->{invnumber};

  map { delete $form->{$_} } qw(id printed emailed queued);

  if ($form->{script} eq 'ir.pl' || $form->{type} eq 'request_quotation') {

    $form->{title} = $locale->text('Add Purchase Order');

    $form->{vc}    = 'vendor';

sub print_options {

  $lxdebug->enter_sub();

  $form->{sendmode} = "attachment";

  $form->{copies}   = 3 unless $form->{copies};

sub customer_details {

  $lxdebug->enter_sub();

  IS->customer_details(\%myconfig, \%$form);

  $lxdebug->leave_sub();

}

  # retrieve order/quotation

  $form->{webdav} = $webdav;

  # set jscalendar

  $form->{jscalendar} = $jscalendar;

        qw(partnumber description unit);

      $form->{rowcount} = $i;

    }

  }

  $lxdebug->leave_sub();

      }

    }

  }

  $lxdebug->leave_sub();

}