|
#=====================================================================
|
|
# LX-Office ERP
|
|
# Copyright (C) 2004
|
|
# Based on SQL-Ledger Version 2.1.9
|
|
# Web http://www.lx-office.org
|
|
#
|
|
#=====================================================================
|
|
# SQL-Ledger Accounting
|
|
# Copyright (c) 1998-2002
|
|
#
|
|
# Author: Dieter Simader
|
|
# Email: dsimader@sql-ledger.org
|
|
# Web: http://www.sql-ledger.org
|
|
#
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
# MA 02110-1335, USA.
|
|
#======================================================================
|
|
#
|
|
# Genereal Ledger
|
|
#
|
|
#======================================================================
|
|
|
|
use utf8;
|
|
use strict;
|
|
|
|
use POSIX qw(strftime);
|
|
use List::Util qw(first sum);
|
|
|
|
use SL::DB::ApGl;
|
|
use SL::DB::RecordTemplate;
|
|
use SL::DB::ReconciliationLink;
|
|
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);
|
|
use SL::IS;
|
|
use SL::ReportGenerator;
|
|
use SL::DBUtils qw(selectrow_query selectall_hashref_query);
|
|
use SL::Webdav;
|
|
use SL::Locale::String qw(t8);
|
|
use SL::Helper::GlAttachments qw(count_gl_attachments);
|
|
use SL::Presenter::Tag;
|
|
use SL::Presenter::Chart;
|
|
require "bin/mozilla/common.pl";
|
|
require "bin/mozilla/reportgenerator.pl";
|
|
|
|
# this is for our long dates
|
|
# $locale->text('January')
|
|
# $locale->text('February')
|
|
# $locale->text('March')
|
|
# $locale->text('April')
|
|
# $locale->text('May ')
|
|
# $locale->text('June')
|
|
# $locale->text('July')
|
|
# $locale->text('August')
|
|
# $locale->text('September')
|
|
# $locale->text('October')
|
|
# $locale->text('November')
|
|
# $locale->text('December')
|
|
|
|
# this is for our short month
|
|
# $locale->text('Jan')
|
|
# $locale->text('Feb')
|
|
# $locale->text('Mar')
|
|
# $locale->text('Apr')
|
|
# $locale->text('May')
|
|
# $locale->text('Jun')
|
|
# $locale->text('Jul')
|
|
# $locale->text('Aug')
|
|
# $locale->text('Sep')
|
|
# $locale->text('Oct')
|
|
# $locale->text('Nov')
|
|
# $locale->text('Dec')
|
|
|
|
sub load_record_template {
|
|
$::auth->assert('gl_transactions');
|
|
|
|
# Load existing template and verify that its one for this module.
|
|
my $template = SL::DB::RecordTemplate
|
|
->new(id => $::form->{id})
|
|
->load(
|
|
with_object => [ qw(customer payment currency record_items record_items.chart) ],
|
|
);
|
|
|
|
die "invalid template type" unless $template->template_type eq 'gl_transaction';
|
|
|
|
$template->substitute_variables"gl.pl.html#L1042" data-txt="1042">
|
$create_post_action->(t8('Post and new booking')) ]);
|
|
|
} elsif ($::instance_conf->get_doc_storage) {
|
|
%post_entry = (combobox => [ $create_post_action->(t8('Post')),
|
|
$create_post_action->(t8('Post and upload document'), 'doc-tab') ]);
|
|
} else {
|
|
%post_entry = $create_post_action->(t8('Post'));
|
|
}
|
|
|
|
for my $bar ($::request->layout->get('actionbar')) {
|
|
$bar->add(
|
|
action => [
|
|
t8('Update'),
|
|
submit => [ '#form', { action => 'update' } ],
|
|
id => 'update_button',
|
|
accesskey => 'enter',
|
|
],
|
|
%post_entry,
|
|
combobox => [
|
|
action => [ t8('Storno'),
|
|
submit => [ '#form', { action => 'storno' } ],
|
|
confirm => t8('Do you really want to cancel this general ledger transaction?'),
|
|
disabled => !$form->{id} ? t8('This general ledger transaction has not been posted yet.')
|
|
: $form->{storno} ? t8('A canceled general ledger transaction cannot be canceled again.')
|
|
: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')
|
|
: $is_linked_ap_transaction ? t8('This transaction is linked with a AP transaction. Please undo and redo the AP transaction booking if needed.')
|
|
: $is_reconciled_bank_transaction ? t8('This transaction is reconciled with a bank transaction. Please undo the reconciliation if needed.')
|
|
: undef,
|
|
],
|
|
action => [ t8('Delete'),
|
|
submit => [ '#form', { action => 'delete' } ],
|
|
confirm => t8('Do you really want to delete this object?'),
|
|
disabled => !$form->{id} ? t8('This invoice has not been posted yet.')
|
|
: $form->{locked} ? t8('The billing period has already been locked.')
|
|
: $change_never ? t8('Changing invoices has been disabled in the configuration.')
|
|
: $change_on_same_day_only ? t8('Invoices can only be changed on the day they are posted.')
|
|
: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')
|
|
: $is_linked_ap_transaction ? t8('This transaction is linked with a AP transaction. Please undo and redo the AP transaction booking if needed.')
|
|
: $is_reconciled_bank_transaction ? t8('This transaction is reconciled with a bank transaction. Please undo the reconciliation if needed.')
|
|
: $form->{storno} ? t8('A canceled general ledger transaction cannot be deleted.')
|
|
: undef,
|
|
],
|
|
], # end of combobox "Storno"
|
|
|
|
combobox => [
|
|
action => [ t8('more') ],
|
|
action => [
|
|
t8('History'),
|
|
call => [ 'set_history_window', $form->{id} * 1, 'glid' ],
|
|
disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,
|
|
],
|
|
action => [
|
|
t8('Follow-Up'),
|
|
call => [ 'follow_up_window' ],
|
|
disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,
|
|
],
|
|
action => [
|
|
t8('Record templates'),
|
|
call => [ 'kivi.RecordTemplate.popup', 'gl_transaction' ],
|
|
],
|
|
action => [
|
|
t8('Drafts'),
|
|
call => [ 'kivi.Draft.popup', 'gl', 'unknown', $form->{draft_id}, $form->{draft_description} ],
|
|
disabled => $form->{id} ? t8('This invoice has already been posted.')
|
|
: $form->{locked} ? t8('The billing period has already been locked.')
|
|
: undef,
|
|
],
|
|
], # end of combobox "more"
|
|
);
|
|
}
|
|
}
|
|
|
|
sub setup_gl_search_action_bar {
|
|
my %params = @_;
|
|
|
|
for my $bar ($::request->layout->get('actionbar')) {
|
|
$bar->add(
|
|
action => [
|
|
t8('Search'),
|
|
submit => [ '#form', { action => 'continue', nextsub => 'generate_report' } ],
|
|
accesskey => 'enter',
|
|
],
|
|
);
|
|
}
|
|
}
|
|
|
|
sub setup_gl_transactions_action_bar {
|
|
my %params = @_;
|
|
|
|
for my $bar ($::request->layout->get('actionbar')) {
|
|
$bar->add(
|
|
combobox => [
|
|
action => [ $::locale->text('Create new') ],
|
|
action => [
|
|
$::locale->text('GL Transaction'),
|
|
submit => [ '#create_new_form', { action => 'gl_transaction' } ],
|
|
],
|
|
action => [
|
|
$::locale->text('AR Transaction'),
|
|
submit => [ '#create_new_form', { action => 'ar_transaction' } ],
|
|
],
|
|
action => [
|
|
$::locale->text('AP Transaction'),
|
|
submit => [ '#create_new_form', { action => 'ap_transaction' } ],
|
|
],
|
|
action => [
|
|
$::locale->text('Sales Invoice'),
|
|
submit => [ '#create_new_form', { action => 'sales_invoice' } ],
|
|
],
|
|
action => [
|
|
$::locale->text('Vendor Invoice'),
|
|
submit => [ '#create_new_form', { action => 'vendor_invoice' } ],
|
|
],
|
|
], # end of combobox "Create new"
|
|
);
|
|
}
|
|
}
|
|
|
|
sub form_header {
|
|
$::lxdebug->enter_sub;
|
|
$::auth->assert('gl_transactions');
|
|
|
|
my ($init) = @_;
|
|
|
|
$::request->layout->add_javascripts("autocomplete_chart.js", "autocomplete_project.js", "kivi.File.js", "kivi.GL.js", "kivi.RecordTemplate.js", "kivi.Validator.js", "show_history.js");
|
|
|
|
my @old_project_ids = grep { $_ } map{ $::form->{"project_id_$_"} } 1..$::form->{rowcount};
|
|
my @conditions = @old_project_ids ? (id => \@old_project_ids) : ();
|
|
$::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => [ or => [ active => 1, @conditions ]]);
|
|
|
|
$::form->get_lists(
|
|
"charts" => { "key" => "ALL_CHARTS", "transdate" => $::form->{transdate} },
|
|
);
|
|
|
|
# we cannot book on charttype header
|
|
@{ $::form->{ALL_CHARTS} } = grep { $_->{charttype} ne 'H' } @{ $::form->{ALL_CHARTS} };
|
|
$::form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;
|
|
|
|
my $title = $::form->{title};
|
|
$::form->{title} = $::locale->text("$title General Ledger Transaction");
|
|
# $locale->text('Add General Ledger Transaction')
|
|
# $locale->text('Edit General Ledger Transaction')
|
|
|
|
map { $::form->{$_} =~ s/\"/"/g }
|
|
qw(chart taxchart);
|
|
|
|
if ($init) {
|
|
$::request->{layout}->focus("#reference");
|
|
$::form->{taxincluded} = "1";
|
|
} else {
|
|
$::request->{layout}->focus("#accno_id_$::form->{rowcount}_name");
|
|
}
|
|
|
|
$::form->{previous_id} ||= "--";
|
|
$::form->{previous_gldate} ||= "--";
|
|
|
|
setup_gl_action_bar();
|
|
|
|
$::form->header;
|
|
print $::form->parse_html_template('gl/form_header', {
|
|
hide_title => $title,
|
|
readonly => $::form->{id} && ($::form->{locked} || !_get_radieren()),
|
|
});
|
|
|
|
$::lxdebug->leave_sub;
|
|
|
|
}
|
|
|
|
sub form_footer {
|
|
$::lxdebug->enter_sub;
|
|
$::auth->assert('gl_transactions');
|
|
|
|
my ($follow_ups, $follow_ups_due);
|
|
|
|
if ($::form->{id}) {
|
|
$follow_ups = FU->follow_ups('trans_id' => $::form->{id}, 'not_done' => 1);
|
|
$follow_ups_due = sum map { $_->{due} * 1 } @{ $follow_ups || [] };
|
|
}
|
|
|
|
print $::form->parse_html_template('gl/form_footer', {
|
|
radieren => _get_radieren(),
|
|
follow_ups => $follow_ups,
|
|
follow_ups_due => $follow_ups_due,
|
|
});
|
|
|
|
$::lxdebug->leave_sub;
|
|
}
|
|
|
|
sub delete {
|
|
$main::lxdebug->enter_sub();
|
|
|
|
my $form = $main::form;
|
|
my %myconfig = %main::myconfig;
|
|
my $locale = $main::locale;
|
|
|
|
if (GL->delete_transaction(\%myconfig, \%$form)){
|
|
# saving the history
|
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
|
$form->{snumbers} = qq|gltransaction_| . $form->{id};
|
|
$form->{addition} = "DELETED";
|
|
$form->{what_done} = "gl_transaction";
|
|
$form->save_history;
|
|
}
|
|
# /saving the history
|
|
$form->redirect($locale->text('Transaction deleted!'))
|
|
}
|
|
$form->error($locale->text('Cannot delete transaction!'));
|
|
$main::lxdebug->leave_sub();
|
|
|
|
}
|
|
|
|
sub post_transaction {
|
|
$main::lxdebug->enter_sub();
|
|
|
|
my $form = $main::form;
|
|
my %myconfig = %main::myconfig;
|
|
my $locale = $main::locale;
|
|
|
|
# check if there is something in reference and date
|
|
$form->isblank("reference", $locale->text('Reference missing!'));
|
|
$form->isblank("transdate", $locale->text('Transaction Date missing!'));
|
|
$form->isblank("description", $locale->text('Description missing!'));
|
|
$form->isblank("transaction_description", $locale->text('A transaction description is required.')) if $::instance_conf->get_require_transaction_description_ps;
|
|
|
|
my $transdate = $form->datetonum($form->{transdate}, \%myconfig);
|
|
my $closedto = $form->datetonum($form->{closedto}, \%myconfig);
|
|
|
|
my @a = ();
|
|
my $count = 0;
|
|
my $debittax = 0;
|
|
my $credittax = 0;
|
|
my $debitcount = 0;
|
|
my $creditcount = 0;
|
|
my $debitcredit;
|
|
my %split_safety = ();
|
|
|
|
my $dbh = SL::DB->client->dbh;
|
|
my ($notax_id) = selectrow_query($form, $dbh, "SELECT id FROM tax WHERE taxkey = 0 LIMIT 1", );
|
|
my $zerotaxes = selectall_hashref_query($form, $dbh, "SELECT id FROM tax WHERE rate = 0", );
|
|
|
|
my @flds = qw(accno_id debit credit projectnumber fx_transaction source memo tax taxchart);
|
|
|
|
for my $i (1 .. $form->{rowcount}) {
|
|
next if $form->{"debit_$i"} eq "" && $form->{"credit_$i"} eq "";
|
|
|
|
for (qw(debit credit tax)) {
|
|
$form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"});
|
|
}
|
|
|
|
push @a, {};
|
|
$debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
|
|
|
|
$split_safety{ $form->{"debit_$i"} <=> 0 }++;
|
|
$split_safety{ - $form->{"credit_$i"} <=> 0 }++;
|
|
|
|
if ($debitcredit) {
|
|
$debitcount++;
|
|
} else {
|
|
$creditcount++;
|
|
}
|
|
|
|
if (($debitcount >= 2) && ($creditcount == 2)) {
|
|
$form->{"credit_$i"} = 0;
|
|
$form->{"tax_$i"} = 0;
|
|
$creditcount--;
|
|
$form->{creditlock} = 1;
|
|
}
|
|
if (($creditcount >= 2) && ($debitcount == 2)) {
|
|
$form->{"debit_$i"} = 0;
|
|
$form->{"tax_$i"} = 0;
|
|
$debitcount--;
|
|
$form->{debitlock} = 1;
|
|
}
|
|
if (($creditcount == 1) && ($debitcount == 2)) {
|
|
$form->{creditlock} = 1;
|
|
}
|
|
if (($creditcount == 2) && ($debitcount == 1)) {
|
|
$form->{debitlock} = 1;
|
|
}
|
|
if ($debitcredit && $credittax) {
|
|
$form->{"taxchart_$i"} = "$notax_id--0.00000";
|
|
}
|
|
if (!$debitcredit && $debittax) {
|
|
$form->{"taxchart_$i"} = "$notax_id--0.00000";
|
|
}
|
|
my $amount = ($form->{"debit_$i"} == 0)
|
|
? $form->{"credit_$i"}
|
|
: $form->{"debit_$i"};
|
|
my $j = $#a;
|
|
if (($debitcredit && $credittax) || (!$debitcredit && $debittax)) {
|
|
$form->{"taxchart_$i"} = "$notax_id--0.00000";
|
|
$form->{"tax_$i"} = 0;
|
|
}
|
|
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
|
|
my $iswithouttax = grep { $_->{id} == $taxkey } @{ $zerotaxes };
|
|
if (!$iswithouttax) {
|
|
if ($debitcredit) {
|
|
$debittax = 1;
|
|
} else {
|
|
$credittax = 1;
|
|
}
|
|
|
|
my ($tmpnetamount,$tmpdiff);
|
|
($tmpnetamount,$form->{"tax_$i"},$tmpdiff) = $form->calculate_tax($amount,$rate,$form->{taxincluded} *= 1,2);
|
|
if ($debitcredit) {
|
|
$form->{"debit_$i"} = $tmpnetamount;
|
|
} else {
|
|
$form->{"credit_$i"} = $tmpnetamount;
|
|
}
|
|
|
|
} else {
|
|
$form->{"tax_$i"} = 0;
|
|
}
|
|
|
|
for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
|
|
$count++;
|
|
}
|
|
|
|
if ($split_safety{-1} > 1 && $split_safety{1} > 1) {
|
|
$::form->error($::locale->text("Split entry detected. The values you have entered will result in an entry with more than one position on both debit and credit. " .
|
|
"Due to known problems involving accounting software kivitendo does not allow these."));
|
|
}
|
|
|
|
for my $i (1 .. $count) {
|
|
my $j = $i - 1;
|
|
for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} }
|
|
}
|
|
|
|
for my $i ($count + 1 .. $form->{rowcount}) {
|
|
for (@flds) { delete $form->{"${_}_$i"} }
|
|
}
|
|
|
|
my ($debit, $credit, $taxtotal);
|
|
for my $i (1 .. $form->{rowcount}) {
|
|
my $dr = $form->{"debit_$i"};
|
|
my $cr = $form->{"credit_$i"};
|
|
my $tax = $form->{"tax_$i"};
|
|
if ($dr && $cr) {
|
|
$form->error($locale->text('Cannot post transaction with a debit and credit entry for the same account!'));
|
|
}
|
|
$debit += $dr + $tax if $dr;
|
|
$credit += $cr + $tax if $cr;
|
|
$taxtotal += $tax if $form->{taxincluded}
|
|
}
|
|
|
|
$form->{taxincluded} = 0 if !$taxtotal;
|
|
|
|
# this is just for the wise guys
|
|
|
|
$form->error($locale->text('Cannot post transaction above the maximum future booking date!'))
|
|
if ($form->date_max_future($form->{"transdate"}, \%myconfig));
|
|
$form->error($locale->text('Cannot post transaction for a closed period!'))
|
|
if ($form->date_closed($form->{"transdate"}, \%myconfig));
|
|
if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) {
|
|
$form->error($locale->text('Out of balance transaction!'));
|
|
}
|
|
|
|
if ($form->round_amount($debit, 2) + $form->round_amount($credit, 2) == 0) {
|
|
$form->error($locale->text('Empty transaction!'));
|
|
}
|
|
|
|
|
|
# start transaction (post + history + (optional) banktrans)
|
|
SL::DB->client->with_transaction(sub {
|
|
|
|
if ((my $errno = GL->post_transaction(\%myconfig, \%$form)) <= -1) {
|
|
$errno *= -1;
|
|
my @err;
|
|
$err[1] = $locale->text('Cannot have a value in both Debit and Credit!');
|
|
$err[2] = $locale->text('Debit and credit out of balance!');
|
|
$err[3] = $locale->text('Cannot post a transaction without a value!');
|
|
|
|
die $err[$errno];
|
|
}
|
|
# saving the history
|
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
|
$form->{snumbers} = qq|gltransaction_| . $form->{id};
|
|
$form->{addition} = "POSTED";
|
|
$form->{what_done} = "gl transaction";
|
|
$form->save_history;
|
|
}
|
|
|
|
# Case BankTransaction: update RecordLink and BankTransaction
|
|
if ($form->{callback} =~ /BankTransaction/ && $form->{bt_id}) {
|
|
# set invoice_amount - we only rely on bt_id in form, do all other stuff ui independent
|
|
# die if we have a unlogic or NYI case and abort the whole transaction
|
|
my ($bt, $chart_id, $payment);
|
|
require SL::DB::Manager::BankTransaction;
|
|
|
|
$bt = SL::DB::Manager::BankTransaction->find_by(id => $::form->{bt_id});
|
|
die "No bank transaction found" unless $bt;
|
|
|
|
$chart_id = SL::DB::Manager::BankAccount->find_by(id => $bt->local_bank_account_id)->chart_id;
|
|
die "no chart id" unless $chart_id;
|
|
|
|
$payment = SL::DB::Manager::AccTransaction->get_all(where => [ trans_id => $::form->{id},
|
|
chart_link => { like => '%_paid%' },
|
|
chart_id => $chart_id ]);
|
|
die "guru meditation error: Can only assign amount to one bank account booking" if scalar @{ $payment } > 1;
|
|
|
|
# credit/debit * -1 matches the sign for bt.amount and bt.invoice_amount
|
|
|
|
die "Can only assign the full (partial) bank amount to a single general ledger booking: " . $bt->not_assigned_amount . " " . ($payment->[0]->amount * -1)
|
|
unless (abs($bt->not_assigned_amount - ($payment->[0]->amount * -1)) < 0.001);
|
|
|
|
$bt->update_attributes(invoice_amount => $bt->invoice_amount + ($payment->[0]->amount * -1));
|
|
|
|
# create record_link
|
|
my %props = (
|
|
from_table => 'bank_transactions',
|
|
from_id => $::form->{bt_id},
|
|
to_table => 'gl',
|
|
to_id => $::form->{id},
|
|
);
|
|
SL::DB::RecordLink->new(%props)->save;
|
|
# and tighten holy acc_trans_id for this bank_transaction
|
|
my %props_acc = (
|
|
acc_trans_id => $payment->[0]->acc_trans_id,
|
|
bank_transaction_id => $bt->id,
|
|
gl_id => $payment->[0]->trans_id,
|
|
);
|
|
my $bta = SL::DB::BankTransactionAccTrans->new(%props_acc);
|
|
$bta->save;
|
|
|
|
}
|
|
1;
|
|
}) or do { die SL::DB->client->error };
|
|
|
|
$main::lxdebug->leave_sub();
|
|
}
|
|
|
|
sub post {
|
|
$main::lxdebug->enter_sub();
|
|
|
|
$main::auth->assert('gl_transactions');
|
|
|
|
my $form = $main::form;
|
|
my $locale = $main::locale;
|
|
|
|
if ($::myconfig{mandatory_departments} && !$form->{department_id}) {
|
|
$form->error($locale->text('You have to specify a department.'));
|
|
}
|
|
|
|
$form->{title} = $locale->text("$form->{title} General Ledger Transaction");
|
|
$form->{storno} = 0;
|
|
|
|
post_transaction();
|
|
|
|
if ($::instance_conf->get_webdav) {
|
|
SL::Webdav->new(type => 'general_ledger',
|
|
number => $form->{id},
|
|
)->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;
|
|
print $::form->redirect_header($form->{callback});
|
|
} elsif ('doc-tab' eq $form->{after_action}) {
|
|
# Redirect with callback containing a fragment does not work (by now)
|
|
# because the callback info is stored in the session an parsing the
|
|
# callback parameters does not support fragments (see SL::Form::redirect).
|
|
# So use flash_later for the message and redirect_headers for redirecting.
|
|
my $add_doc_url = build_std_url("script=gl.pl", 'action=edit', 'id=' . E($form->{id}), 'fragment=ui-tabs-docs');
|
|
SL::Helper::Flash::flash_later('info', $msg);
|
|
print $form->redirect_header($add_doc_url);
|
|
$::dispatcher->end_request;
|
|
|
|
} else {
|
|
$form->{callback} = build_std_url("action=add", "show_details");
|
|
$form->redirect($msg);
|
|
}
|
|
|
|
$main::lxdebug->leave_sub();
|
|
}
|
|
|
|
sub storno {
|
|
$main::lxdebug->enter_sub();
|
|
|
|
$main::auth->assert('gl_transactions');
|
|
|
|
my $form = $main::form;
|
|
my %myconfig = %main::myconfig;
|
|
my $locale = $main::locale;
|
|
|
|
# don't cancel cancelled transactions
|
|
if (IS->has_storno(\%myconfig, $form, 'gl')) {
|
|
$form->{title} = $locale->text("Cancel Accounts Receivables Transaction");
|
|
$form->error($locale->text("Transaction has already been cancelled!"));
|
|
}
|
|
|
|
GL->storno($form, \%myconfig, $form->{id});
|
|
|
|
# saving the history
|
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
|
$form->{snumbers} = qq|gltransaction_| . $form->{id};
|
|
$form->{addition} = "STORNO";
|
|
$form->{what_done} = "gl_transaction";
|
|
$form->save_history;
|
|
}
|
|
# /saving the history
|
|
|
|
$form->redirect(sprintf $locale->text("Transaction %d cancelled."), $form->{storno_id});
|
|
|
|
$main::lxdebug->leave_sub();
|
|
}
|
|
|
|
sub continue {
|
|
call_sub($main::form->{nextsub});
|
|
}
|
|
|
|
sub get_tax_dropdown {
|
|
my $transdate = $::form->{transdate} ? DateTime->from_kivitendo($::form->{transdate}) : DateTime->today_local;
|
|
my $deliverydate = $::form->{deliverydate} ? DateTime->from_kivitendo($::form->{deliverydate}) : undef;
|
|
my @tax_accounts = GL->get_active_taxes_for_chart($::form->{accno_id}, $deliverydate // $transdate);
|
|
my $html = $::form->parse_html_template("gl/update_tax_accounts", { TAX_ACCOUNTS => \@tax_accounts });
|
|
|
|
print $::form->ajax_response_header, $html;
|
|
}
|
|
|
|
sub get_chart_balance {
|
|
my %balances = GL->get_chart_balances($::form->{accno_id});
|
|
my $balance = $::form->format_amount(\%::myconfig, $balances{ $::form->{accno_id} }, 2, 'DRCR');
|
|
|
|
print $::form->ajax_response_header, $balance;
|
|
}
|
|
|
|
1;
|