projekt kivitendo

  die "No 'email_journal_id' was given." unless ($::form->{email_journal_id});

  $::form->{workflow_email_journal_id}    = delete $::form->{email_journal_id};

  $::form->{workflow_email_attachment_id} = delete $::form->{email_attachment_id};

  &edit;

}

  $form->{email_journal_id}    = delete $form->{workflow_email_journal_id};

  $form->{email_attachment_id} = delete $form->{workflow_email_attachment_id};

  if ($form->{storno}) {

    $form->error($locale->text('Cannot storno storno invoice!'));

  $form->{email_journal_id}    = delete $form->{workflow_email_journal_id};

  $form->{email_attachment_id} = delete $form->{workflow_email_attachment_id};

  map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);

  $form->{paidaccounts} = 1;