projekt kivitendo

sub delete_invoice {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect_noauto($myconfig);

  $dbh->disconnect;

  if ($rc) {

    map { unlink "$spool/$_" if -f "$spool/$_"; } @spoolfiles;

  }

        # to distinguish case A and B the variable pricegroup_id_$i is used

        # for new articles this variable isn't defined, for loaded articles it is

        # sellprice can't be used, as it already has 0,00 set

        if ($pkr->{pricegroup_id} eq $form->{"pricegroup_id_$i"} and defined $form->{"pricegroup_id_$i"}) {

          # Case A

          $pkr->{selected}  = ' selected';

                 and $pkr->{price} != 0    # only use customer pricegroup price if it has a value, else use default_sellprice

                                           # for the case where pricegroup prices haven't been set

                ) {