Revision 743249b4
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
|
use SL::DB::InvoiceItem;
|
||
|
use SL::DB::RecordTemplate;
|
||
|
use SL::DB::Tax;
|
||
|
use SL::DB::EmailJournal;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::Helper::Flash qw(flash flash_later);
|
||
|
use SL::Locale::String qw(t8);
|
||
| ... | ... | |
|
|
||
|
AR->get_transdate(\%myconfig, $form);
|
||
|
$form->{initial_transdate} = $form->{transdate};
|
||
|
$form->{initial_customer_id} = $form->{customer_id};
|
||
|
create_links(dont_save => 1);
|
||
|
$form->{transdate} = $form->{initial_transdate};
|
||
|
$form->{customer_id} = $form->{initial_customer_id} if $form->{initial_customer_id};
|
||
|
|
||
|
if ($form->{customer_id}) {
|
||
|
my $last_used_ar_chart = SL::DB::Customer->load_cached($form->{customer_id})->last_used_ar_chart;
|
||
| ... | ... | |
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub add_from_email_journal {
|
||
|
die "No 'email_journal_id' was given." unless ($::form->{email_journal_id});
|
||
|
&add;
|
||
|
}
|
||
|
|
||
|
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 edit {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| ... | ... | |
|
}
|
||
|
# /saving the history
|
||
|
|
||
|
if ($form->{email_journal_id} && $form->{id} ne "") {
|
||
|
my $ar_transaction = SL::DB::Invoice->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});
|
||
|
}
|
||
|
|
||
|
if (!$inline) {
|
||
|
my $msg = $locale->text("AR transaction '#1' posted (ID: #2)", $form->{invnumber}, $form->{id});
|
||
|
if ($::instance_conf->get_ar_add_doc && $::instance_conf->get_doc_storage) {
|
||
| ... | ... | |
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
$form->{email_journal_id} = delete $form->{workflow_email_journal_id};
|
||
|
$form->{email_attachment_id} = delete $form->{workflow_email_attachment_id};
|
||
|
|
||
|
map { delete $form->{$_} } qw(printed emailed queued invnumber deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);
|
||
|
$form->{paidaccounts} = 1;
|
||
|
$form->{rowcount}--;
|
||
Auch abrufbar als: Unified diff
Workflow: E-Mail → Debitorenbuchung hinzugefügt