projekt kivitendo

  $form->{callback} = "$form->{script}?action=add&type=$form->{type}" unless $form->{callback};

  &prepare_invoice;

  &display_form;

  # Delay access check to after the invoice's been loaded so that

  # project-specific invoice rights can be evaluated.

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

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

  $form->restore_vars(qw(id));

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

    $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};

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

  }

  $form->{taxincluded} ||= $taxincluded;