projekt kivitendo

  push @column_index, qw(unit);

  #for pricegroups column

    push @column_index, qw(sellprice_drag);

  }

    }

    $column_data{qty} =

    $column_data{ship} =

        qq|<td align=right><input name="ship_$i" size=5 value=|

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

    $column_data{unit} =

      qq|<td><input name="unit_$i" size=5 value="$form->{"unit_$i"}"></td>|;

    # build in dragdrop for pricesgroups

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

      $column_data{sellprice_drag} =

        qq|<td align=right><select name="sellprice_drag_$i">$form->{"prices_$i"}</select></td>|;

      $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 =

        $form->{"pricegroup_old_$i"} = $form->{"pricegroup_id_$i"};

        $column_data{sellprice_drag} =

          qq|<td align=right><select name="sellprice_drag_$i">$prices</select></td>|;

      $column_data{sellprice} =

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

<input type=hidden name="pricegroup_old_$i" value=$form->{"pricegroup_old_$i"}>

<input type=hidden name="price_old_$i" value=$form->{"price_old_$i"}>

<input type=hidden name="id_$i" value=$form->{"id_$i"}>

<input type=hidden name="inventory_accno_$i" value=$form->{"inventory_accno_$i"}>

  for $j (1 .. $rowcount) {

    my $pricegroup_old = $form->{"pricegroup_old_$i"};

      $len    = 0;

      $prices = '';

        $pricegroup_id = $item->{pricegroup_id};

        $pricegroup    = $item->{pricegroup};

        # build dragdrop for pricegroups

        $prices .=

        $len += 1;

        # set new selectedpricegroup_id and prices for "Preis"

        if ($item->{selected}) {

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

        }

        if ($len >= 1) {

          $form->{"prices_$j"} = $prices;

      }

    }

  }

  $lxdebug->leave_sub();

}

    }

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

    $ref->{sellprice} =

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

    $column_data{ndx} =

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');

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

  # build up html code for prices_$i

  &display_form;

    $form->{second_run} = 1;

    $form->{action}     = "display_form";

    $form->{rowcount}--;

    # get pricegroups for parts

    # build up html code for prices_$i

    set_pricegroup($rowcount);

    $form->{resubmit} = 1;

  $subroutine = "display_row";

  if ($form->{item} eq 'part') {

    #set preisgruppenanzahl

    $numrows    = $form->{price_rows};

    $subroutine = "price_row";

    }

  }

  # if pricegroups

  }

  &display_form;

sub validate_items {

  $lxdebug->enter_sub();

  # check if items are valid

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

    &update;

  $lxdebug->enter_sub();

  if ($form->{second_run}) {

    $form->{print_and_post} = 0;

  }

  if ($myconfig{role} eq 'admin') {

    $bcc = qq|

  if ($form->{second_run}) {

    $form->{print_and_post} = 0;

  }

  # if this goes to the printer pass through

  if ($form->{media} eq 'printer' || $form->{media} eq 'queue') {

    $form->error($locale->text('Select postscript or PDF!'))

  $lxdebug->enter_sub();

  my ($old_form) = @_;

  $numberfld = "invnumber";

  $display_form =

  if (!$form->{"${inv}number"} && !$form->{preview}) {

    $form->{"${inv}number"} = $form->update_defaults(\%myconfig, $numberfld);

    if ($form->{media} ne 'email') {

      $form->{rowcount}--;

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

    qw(exchangerate creditlimit creditremaining);

  # get details for name

  &{"$form->{vc}_details"};

    ? $locale->text('Customer Number')

    : $locale->text('Vendor Number');

  # get pricegroups for parts

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

  # build up html code for prices_$i

  $nextsub = ($form->{display_form}) ? $form->{display_form} : "display_form";

sub edit {

  $lxdebug->enter_sub();

  $form->{title} = $locale->text('Edit Sales Invoice');

  if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")

sub invoice_links {

  $lxdebug->enter_sub();

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

  # create links

sub prepare_invoice {

  $lxdebug->enter_sub();

  $form->{type}     = "invoice";

  $form->{formname} = "invoice";

  $form->{format}   = "html";

    map { $form->{$_} =~ s/\"/"/g }

      qw(invnumber ordnumber quonumber shippingpoint shipvia notes intnotes);

    foreach $ref (@{ $form->{invoice_details} }) {

      $i++;

sub form_header {

  $lxdebug->enter_sub();

  # set option selected

  foreach $item (qw(AR customer currency department employee contact)) {

    $form->{"select$item"} =~ s/ selected//;

sub form_footer {

  $lxdebug->enter_sub();

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

  if (($rows = $form->numtextrows($form->{notes}, 26, 8)) < 2) {

      } else {

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

        map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }

          qw(partnumber description unit);

        map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }

        }

        # get pricegroups for parts

        # build up html code for prices_$i

        &set_pricegroup($i);