Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 822fc676

Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt

  • ID 822fc6762cb3277c0e3cac8e3755001528528f1b
  • Vorgänger 680c7f12
  • Nachfolger 0c0e2ee2

Gültigkeitstoken: Kreditorenbuchung

Unterschiede anzeigen:

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