Revision 5e212d30
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
use SL::DB::Draft;
|
||
|
use SL::DB::Order;
|
||
|
use SL::DB::PurchaseInvoice;
|
||
|
use SL::DB::EmailJournal;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::Util qw(trim);
|
||
|
use SL::DB;
|
||
| ... | ... | |
|
|
||
|
map { IO->set_datepaid(table => 'ap', id => $_, dbh => $dbh) } ($id, $new_id);
|
||
|
|
||
|
if ($form->{workflow_email_journal_id}) {
|
||
|
my $ap_transaction_storno = SL::DB::PurchaseInvoice->new(id => $new_id)->load;
|
||
|
my $email_journal = SL::DB::EmailJournal->new(
|
||
|
id => delete $form->{workflow_email_journal_id}
|
||
|
)->load;
|
||
|
$email_journal->link_to_record_with_attachment(
|
||
|
$ap_transaction_storno,
|
||
|
delete $::form->{email_attachment_id}
|
||
|
);
|
||
|
}
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Workflow: E-Mail → Kreditorenbuchung hinzugefügt