Revision 822fc676
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
bin/mozilla/ap.pl | ||
---|---|---|
use SL::DB::PurchaseInvoice;
|
||
use SL::DB::RecordTemplate;
|
||
use SL::DB::Tax;
|
||
use SL::DB::ValidityToken;
|
||
use SL::Presenter::ItemsList;
|
||
use SL::Webdav;
|
||
use SL::Locale::String qw(t8);
|
||
... | ... | |
$form_defaults->{AP_paid_1_suggestion},
|
||
)) if $::form->{no_payment_bookings};
|
||
|
||
$::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
||
update(
|
||
keep_rows_without_amount => 1,
|
||
dont_add_new_row => 1,
|
||
... | ... | |
$form->{"AP_amount_chart_id_1"} = $last_used_ap_chart->id if $last_used_ap_chart;
|
||
}
|
||
|
||
if (!$form->{form_validity_token}) {
|
||
$form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
}
|
||
|
||
&display_form;
|
||
|
||
$main::lxdebug->leave_sub();
|
||
... | ... | |
sub show_draft {
|
||
$::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
|
||
$::form->{gldate} = $::form->{transdate} if !$::form->{gldate};
|
||
$::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
update();
|
||
}
|
||
|
||
... | ... | |
$main::auth->assert('ap_transactions');
|
||
$form->mtime_ischanged('ap');
|
||
|
||
my $validity_token;
|
||
if (!$form->{id}) {
|
||
$validity_token = SL::DB::Manager::ValidityToken->fetch_valid_token(
|
||
scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST(),
|
||
token => $form->{form_validity_token},
|
||
);
|
||
|
||
$form->error($::locale->text('The form is not valid anymore.')) if !$validity_token;
|
||
}
|
||
|
||
my ($inline) = @_;
|
||
|
||
# check if there is a vendor, invoice, due date and invnumber
|
||
... | ... | |
$form->{id} = 0 if $form->{postasnew};
|
||
|
||
if (AP->post_transaction(\%myconfig, \%$form)) {
|
||
$validity_token->delete if $validity_token;
|
||
delete $form->{form_validity_token};
|
||
|
||
# create webdav folder
|
||
if ($::instance_conf->get_webdav) {
|
||
SL::Webdav->new(type => 'accounts_payable',
|
||
... | ... | |
$form->{duedate} = $payment_terms->calc_date(reference_date => $today)->to_kivitendo if $payment_terms;
|
||
}
|
||
|
||
$form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
||
&update;
|
||
|
||
$main::lxdebug->leave_sub();
|
||
... | ... | |
$::form->{"AP_amount_chart_id_$row"} = $last_used_ap_chart->id if $last_used_ap_chart;
|
||
$::form->{rowcount} = $row;
|
||
|
||
$::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
||
update(
|
||
keep_rows_without_amount => 1,
|
||
dont_add_new_row => 1,
|
Auch abrufbar als: Unified diff
Gültigkeitstoken: Kreditorenbuchung