Revision 5e0c45f8
Von Tamino Steinert vor 8 Monaten hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 47 | 47 |
use SL::DB::Chart; |
| 48 | 48 |
use SL::DB::Draft; |
| 49 | 49 |
use SL::DB::ValidityToken; |
| 50 |
use SL::DB::GLTransaction; |
|
| 50 | 51 |
use SL::Util qw(trim); |
| 51 | 52 |
use SL::DB; |
| 52 | 53 |
|
| ... | ... | |
| 797 | 798 |
do_query($form, $dbh, $query, (values %$row)); |
| 798 | 799 |
} |
| 799 | 800 |
|
| 801 |
if ($form->{workflow_email_journal_id}) {
|
|
| 802 |
my $ar_transaction_storno = SL::DB::GLTransaction->new(id => $new_id)->load; |
|
| 803 |
my $email_journal = SL::DB::EmailJournal->new( |
|
| 804 |
id => delete $form->{workflow_email_journal_id}
|
|
| 805 |
)->load; |
|
| 806 |
$email_journal->link_to_record_with_attachment( |
|
| 807 |
$ar_transaction_storno, |
|
| 808 |
delete $::form->{workflow_email_attachment_id}
|
|
| 809 |
); |
|
| 810 |
} |
|
| 800 | 811 |
return 1; |
| 801 | 812 |
} |
| 802 | 813 |
|
Auch abrufbar als: Unified diff
Belegvorlagen + Dialogbuchung: Workflow von EmailJournal aus umgesetzt