Revision 5e0c45f8
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/GL.pm | ||
|---|---|---|
|
use SL::DB::Chart;
|
||
|
use SL::DB::Draft;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::DB::GLTransaction;
|
||
|
use SL::Util qw(trim);
|
||
|
use SL::DB;
|
||
|
|
||
| ... | ... | |
|
do_query($form, $dbh, $query, (values %$row));
|
||
|
}
|
||
|
|
||
|
if ($form->{workflow_email_journal_id}) {
|
||
|
my $ar_transaction_storno = SL::DB::GLTransaction->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->{workflow_email_attachment_id}
|
||
|
);
|
||
|
}
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Belegvorlagen + Dialogbuchung: Workflow von EmailJournal aus umgesetzt