Revision 1927b931
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
use SL::DB::Department;
|
||
|
use SL::DB::Project;
|
||
|
use SL::DB::PurchaseInvoice;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::DB::Vendor;
|
||
|
use List::MoreUtils qw(uniq);
|
||
|
use List::Util qw(max sum);
|
||
| ... | ... | |
|
|
||
|
$form->{title} = $locale->text('Record Vendor Invoice');
|
||
|
|
||
|
if (!$form->{form_validity_token}) {
|
||
|
$form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
}
|
||
|
|
||
|
&invoice_links;
|
||
|
&prepare_invoice;
|
||
|
&display_form;
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
sub show_draft {
|
||
|
$::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
update();
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
$form->{invnumber} = "Storno zu " . $form->{invnumber};
|
||
|
$form->{rowcount}++;
|
||
|
$form->{employee_id} = $employee_id;
|
||
|
|
||
|
$form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
|
||
|
post();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
| ... | ... | |
|
$form->{rowcount}--;
|
||
|
$form->{invdate} = $form->current_date(\%myconfig);
|
||
|
|
||
|
$form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST())->token;
|
||
|
|
||
|
$form->{"converted_from_invoice_id_$_"} = delete $form->{"invoice_id_$_"} for 1 .. $form->{"rowcount"};
|
||
|
|
||
|
$form->{useasnew} = 1;
|
||
| ... | ... | |
|
$main::auth->assert('vendor_invoice_edit');
|
||
|
|
||
|
$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;
|
||
|
}
|
||
|
|
||
|
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
||
|
|
||
|
$form->isblank("invdate", $locale->text('Invoice Date missing!'));
|
||
| ... | ... | |
|
|
||
|
relink_accounts();
|
||
|
if (IR->post_invoice(\%myconfig, \%$form)){
|
||
|
|
||
|
$validity_token->delete if $validity_token;
|
||
|
delete $form->{form_validity_token};
|
||
|
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
||
|
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
||
Auch abrufbar als: Unified diff
Gültigkeitstoken Einkaufsrechnung