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};

  delete @{ $form }{qw(printed emailed queued invnumber invdate exchangerate forex deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno locked qr_unstructured_message)};

  $form->{rowcount}--;

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

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

  delete @{ $form }{qw(printed emailed queued invnumber invdate exchangerate forex deliverydate datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno locked)};

  $form->{convert_from_ar_ids} = $form->{id};

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

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

  my $related_invoices = IS->_get_invoices_for_advance_payment($form->{id});

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

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

  map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password type))); } keys(%{ $form }));

  $form->{email_journal_id}    = $email_journal_id;

  $form->{email_attachment_id} = $email_attachment_id;

  invoice_links();

  prepare_invoice();

  # post expects the field as user input

  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});

  $form->{script}       = 'is.pl';

  $main::lxdebug->leave_sub();

}

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

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

  $form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_SALES_INVOICE_POST())->token;