Revision 5e0c45f8
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
|
use SL::DB::BankTransactionAccTrans;
|
||
|
use SL::DB::Tax;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::DB::GLTransaction;
|
||
|
use SL::FU;
|
||
|
use SL::GL;
|
||
|
use SL::Helper::Flash qw(flash flash_later);
|
||
| ... | ... | |
|
|
||
|
}
|
||
|
|
||
|
sub add_from_email_journal {
|
||
|
die "No 'email_journal_id' was given." unless ($::form->{email_journal_id});
|
||
|
&add;
|
||
|
}
|
||
|
|
||
|
sub load_record_template_from_email_journal {
|
||
|
die "No 'email_journal_id' was given." unless ($::form->{email_journal_id});
|
||
|
&load_record_template;
|
||
|
}
|
||
|
|
||
|
sub edit_with_email_journal_workflow {
|
||
|
my ($self) = @_;
|
||
|
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;
|
||
|
}
|
||
|
|
||
|
sub prepare_transaction {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| ... | ... | |
|
)->webdav_path;
|
||
|
}
|
||
|
|
||
|
if ($form->{email_journal_id} && $form->{id} ne "") {
|
||
|
my $ar_transaction = SL::DB::GLTransaction->new(id => $form->{id})->load;
|
||
|
my $email_journal = SL::DB::EmailJournal->new(
|
||
|
id => delete $form->{email_journal_id}
|
||
|
)->load;
|
||
|
$email_journal->link_to_record_with_attachment($ar_transaction, delete $::form->{email_attachment_id});
|
||
|
}
|
||
|
|
||
|
my $msg = $::locale->text("General ledger transaction '#1' posted (ID: #2)", $form->{reference}, $form->{id});
|
||
|
if ($form->{callback} =~ /BankTransaction/ && $form->{bt_id}) {
|
||
|
SL::Helper::Flash::flash_later('info', $msg) if $msg;
|
||
Auch abrufbar als: Unified diff
Belegvorlagen + Dialogbuchung: Workflow von EmailJournal aus umgesetzt