projekt kivitendo

# build html-code for pricegroups in variable $form->{prices_$j}

sub set_pricegroup {

  $lxdebug->enter_sub();

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

    if ($form->{PRICES}{ $j }) {

      $prices = '';

      $price = 0;

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

# print STDERR "-VOR   PREIS--$item->{price}--PREISGRUOP-$item->{pricegroup_id}\n";

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

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

      }

    }

  }

  $lxdebug->leave_sub();

}

sub display_form {

  $lxdebug->enter_sub();

  # if we have a display_form

  if ($form->{display_form}) {

    &{"$form->{display_form}"};

    exit;

  }

  if (   $form->{print_and_post}

    $form->{second_run} = 1;

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

    $form->{rowcount}--;

    $form->{resubmit} = 1;

  $subroutine = "display_row";

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

    #set preisgruppenanzahl

    $numrows    = $form->{price_rows};

    $subroutine = "price_row";

    $subroutine = "makemodel_row";

  }

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

    $numrows    = ++$form->{price_rows};

    $subroutine = "price_row";

    $subroutine = "assembly_row";

  }

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

    $numrows    = ++$form->{price_rows};

    $subroutine = "price_row";

  &form_footer;

  $lxdebug->leave_sub();

}

  }

  #sk 

  # if pricegroups

  if ($form->{type} =~ (/sales_quotation/) or (($form->{level} =~ /Sales/) and ($form->{type} =~ /invoice/)) or (($form->{level} eq undef) and ($form->{type} =~ /invoice/)) or ($form->{type} =~ /sales_order/)) {

sub order {

  $lxdebug->enter_sub();

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

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

sub quotation {

  $lxdebug->enter_sub();

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

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

sub e_mail {

  $lxdebug->enter_sub();

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

    $bcc = qq|

 	  <th align=right nowrap=true>| . $locale->text('Bcc') . qq|</th>

sub print {

  $lxdebug->enter_sub();

  # 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!'))

sub print_form {

  $lxdebug->enter_sub();

  my ($old_form) = @_;

  $inv = "inv";

  $due = "due";

  $numberfld = "invnumber";

  $display_form =

sub ship_to {

  $lxdebug->enter_sub();

  $title = $form->{title};

  $form->{title} = $locale->text('Ship to');

        qw(partnumber description unit partnotes);

      $form->{rowcount} = $i;

    }

  }

  $lxdebug->leave_sub();

sub update {

  $lxdebug->enter_sub();

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

    qw(exchangerate creditlimit creditremaining);

  &check_name(customer);

  &check_project;

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

        # build up html code for prices_$i

      }

      &display_form;

sub post {

  $lxdebug->enter_sub();

  $form->isblank("invdate",  $locale->text('Invoice Date missing!'));

  $form->isblank("customer", $locale->text('Customer missing!'));

    &update;

    exit;

  }

  &validate_items;

  $print_post             = 1;

  $form->{print_and_post} = 1;

  &post();

  &display_form();

  $lxdebug->leave_sub();

sub delete {

  $lxdebug->enter_sub();

  $form->header;

  print qq|

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

        # build up html code for prices_$i

      }

      &display_form;