Revision 743249b4
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/AR.pm | ||
|---|---|---|
|
use SL::IO;
|
||
|
use SL::MoreCommon;
|
||
|
use SL::DB::Default;
|
||
|
use SL::DB::Invoice;
|
||
|
use SL::DB::EmailJournal;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::TransNumber;
|
||
|
use SL::Util qw(trim);
|
||
| ... | ... | |
|
|
||
|
map { IO->set_datepaid(table => 'ar', id => $_, dbh => $dbh) } ($id, $new_id);
|
||
|
|
||
|
if ($form->{workflow_email_journal_id}) {
|
||
|
my $ar_transaction_storno = SL::DB::Invoice->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(
|
||
|
$ar_transaction_storno,
|
||
|
delete $::form->{email_attachment_id}
|
||
|
);
|
||
|
}
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Workflow: E-Mail → Debitorenbuchung hinzugefügt