Projekt

Allgemein

Profil

Herunterladen (63,2 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/bin/mozilla/rp.pl @ 40a94352

d319704a Moritz Bunkus
#=====================================================================
# 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
#
# Contributors: Antonio Gallardo <agssa@ibw.com.ni>
# Benjamin Lee <benjaminlee@consultant.com>
b65a230d Sven Schöling
# Philip Reetz <p.reetz@linet-services.de>
# Udo Spallek
d319704a Moritz Bunkus
#
# 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
f7b15d43 Christian Wittmer
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
# MA 02110-1335, USA.
d319704a Moritz Bunkus
#======================================================================
#
# module for preparing Income Statement and Balance Sheet
#
#======================================================================

8365e092 Moritz Bunkus
use POSIX qw(strftime);
d319704a Moritz Bunkus
2e66dde5 Moritz Bunkus
use SL::DB::Default;
7f8599c0 Moritz Bunkus
use SL::DB::Project;
5e2cb6ed Sven Schöling
use SL::DB::Customer;
d319704a Moritz Bunkus
use SL::RP;
a200453a Moritz Bunkus
use SL::Iconv;
2d1ba4f4 Moritz Bunkus
use SL::Locale::String qw(t8);
bc0e2eda Sven Schöling
use SL::Presenter::Tag;
8365e092 Moritz Bunkus
use SL::ReportGenerator;
5be29159 Sven Schöling
use Data::Dumper;
7f8599c0 Moritz Bunkus
use List::MoreUtils qw(any);
8365e092 Moritz Bunkus
require "bin/mozilla/common.pl";
18da4a96 Moritz Bunkus
require "bin/mozilla/reportgenerator.pl";
d319704a Moritz Bunkus
11461cce Sven Schöling
# note: this file was particularly hard to strictify.
# alot of the vars are passed carelessly between invocations
# should there be any missing vars, declare them globally
use strict;

d319704a Moritz Bunkus
# 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')

# $locale->text('Balance Sheet')
# $locale->text('Income Statement')
# $locale->text('Trial Balance')
# $locale->text('AR Aging')
# $locale->text('AP Aging')
4b937d1a Sven Donath
# $locale->text('Search AR Aging')
# $locale->text('Search AP Aging')
d319704a Moritz Bunkus
# $locale->text('Tax collected')
# $locale->text('Tax paid')
# $locale->text('Receipts')
# $locale->text('Payments')
# $locale->text('Project Transactions')
4b937d1a Sven Donath
# $locale->text('Business evaluation')
e9b11e12 Jan Büren
# $locale->text('Final Invoice, please use mark as paid manually')
d319704a Moritz Bunkus
6f205006 Moritz Bunkus
# $form->parse_html_template('rp/html_report_susa')

8c7e4493 Moritz Bunkus
my $rp_access_map = {
fc1e3973 Rolf Fluehmann
'projects' => 'report',
25d67207 Martin Helmling
'ar_aging' => 'general_ledger',
'ap_aging' => 'general_ledger',
fc1e3973 Rolf Fluehmann
'receipts' => 'cash',
'payments' => 'cash',
'trial_balance' => 'report',
'income_statement' => 'report',
'erfolgsrechnung' => 'report',
'bwa' => 'report',
'balance_sheet' => 'report',
8c7e4493 Moritz Bunkus
};

sub check_rp_access {
11461cce Sven Schöling
my $form = $main::form;

8c7e4493 Moritz Bunkus
my $right = $rp_access_map->{$form->{report}};
$right ||= 'DOES_NOT_EXIST';

11461cce Sven Schöling
$main::auth->assert($right);
8c7e4493 Moritz Bunkus
}

d319704a Moritz Bunkus
sub report {
6c4ea0af Sven Schöling
$::lxdebug->enter_sub;
d319704a Moritz Bunkus
8c7e4493 Moritz Bunkus
check_rp_access();

11461cce Sven Schöling
my %title = (
6c4ea0af Sven Schöling
balance_sheet => $::locale->text('Balance Sheet'),
income_statement => $::locale->text('Income Statement'),
fc1e3973 Rolf Fluehmann
erfolgsrechnung => $::locale->text('Erfolgsrechnung'),
6c4ea0af Sven Schöling
trial_balance => $::locale->text('Trial Balance'),
ar_aging => $::locale->text('Search AR Aging'),
ap_aging => $::locale->text('Search AP Aging'),
tax_collected => $::locale->text('Tax collected'),
tax_paid => $::locale->text('Tax paid'),
receipts => $::locale->text('Receipts'),
payments => $::locale->text('Payments'),
projects => $::locale->text('Project Transactions'),
bwa => $::locale->text('Business evaluation'),
11461cce Sven Schöling
);
d319704a Moritz Bunkus
6c4ea0af Sven Schöling
$::form->{title} = $title{$::form->{report}};
62bf9a5c Sven Schöling
$::request->{layout}->add_javascripts('kivi.CustomerVendor.js');
d79dde5a Geoffrey Richardson
$::request->{layout}->add_javascripts('autocomplete_project.js');
fc1e3973 Rolf Fluehmann
$::form->{fromdate} = DateTime->today->truncate(to => 'year')->to_kivitendo;
$::form->{todate} = DateTime->today->truncate(to => 'year')->add(years => 1)->add(days => -1)->to_kivitendo;
d319704a Moritz Bunkus
# get departments
6c4ea0af Sven Schöling
$::form->all_departments(\%::myconfig);
if (@{ $::form->{all_departments} || [] }) {
$::form->{selectdepartment} = "<option>\n";
map { $::form->{selectdepartment} .= "<option>$_->{description}--$_->{id}\n" } @{ $::form->{all_departments} || [] };
d319704a Moritz Bunkus
}

6c4ea0af Sven Schöling
$::form->get_lists("projects" => { "key" => "ALL_PROJECTS", "all" => 1 });
d319704a Moritz Bunkus
fc1e3973 Rolf Fluehmann
my $is_projects = $::form->{report} eq "projects";
my $is_income_statement = $::form->{report} eq "income_statement";
my $is_erfolgsrechnung = $::form->{report} eq "erfolgsrechnung";
my $is_bwa = $::form->{report} eq "bwa";
my $is_balance_sheet = $::form->{report} eq "balance_sheet";
my $is_trial_balance = $::form->{report} eq "trial_balance";
my $is_aging = $::form->{report} =~ /^a[rp]_aging$/;
my $is_payments = $::form->{report} =~ /(receipts|payments)$/;
2d1ba4f4 Moritz Bunkus
my $format = 'html';
6c4ea0af Sven Schöling
11461cce Sven Schöling
my ($label, $nextsub, $vc);
6c4ea0af Sven Schöling
if ($is_aging) {
my $is_sales = $::form->{report} eq 'ar_aging';
$label = $is_sales ? $::locale->text('Customer') : $::locale->text('Vendor');
$::form->{vc} = $is_sales ? 'customer' : 'vendor';
d319704a Moritz Bunkus
6c4ea0af Sven Schöling
$nextsub = "generate_$::form->{report}";
d319704a Moritz Bunkus
d659dc18 Moritz Bunkus
$vc = qq|<input name=$::form->{vc} size=35 class="initial_focus">|;
2d1ba4f4 Moritz Bunkus
$format = 'pdf';
d319704a Moritz Bunkus
}

11461cce Sven Schöling
my ($selection, $paymentaccounts);
6c4ea0af Sven Schöling
if ($is_payments) {
$::form->{db} = $::form->{report} =~ /payments$/ ? "ap" : "ar";
d319704a Moritz Bunkus
6c4ea0af Sven Schöling
RP->paymentaccounts(\%::myconfig, $::form);
d319704a Moritz Bunkus
$selection = "<option>\n";
6c4ea0af Sven Schöling
for my $ref (@{ $::form->{PR} }) {
d319704a Moritz Bunkus
$paymentaccounts .= "$ref->{accno} ";
$selection .= "<option>$ref->{accno}--$ref->{description}\n";
}
}

2d1ba4f4 Moritz Bunkus
setup_rp_report_action_bar();

6c4ea0af Sven Schöling
$::form->header;
print $::form->parse_html_template('rp/report', {
fc1e3973 Rolf Fluehmann
paymentaccounts => $paymentaccounts,
selection => $selection,
is_aging => $is_aging,
vc => $vc,
label => $label,
year => DateTime->today->year,
today => DateTime->today,
nextsub => $nextsub,
is_payments => $is_payments,
is_trial_balance => $is_trial_balance,
is_balance_sheet => $is_balance_sheet,
is_bwa => $is_bwa,
is_income_statement => $is_income_statement,
is_erfolgsrechnung => $is_erfolgsrechnung,
is_projects => $is_projects,
2d1ba4f4 Moritz Bunkus
format => $format,
6c4ea0af Sven Schöling
});

$::lxdebug->leave_sub;
d319704a Moritz Bunkus
}

11461cce Sven Schöling
sub continue { call_sub($main::form->{"nextsub"}); }
d319704a Moritz Bunkus
sub generate_income_statement {
11461cce Sven Schöling
$main::lxdebug->enter_sub();

$main::auth->assert('report');
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
$form->{padding} = "&nbsp;&nbsp;";
$form->{bold} = "<b>";
$form->{endbold} = "</b>";
$form->{br} = "<br>";

if ($form->{reporttype} eq "custom") {

#forgotten the year --> thisyear
if ($form->{year} !~ m/^\d\d\d\d$/) {
$locale->date(\%myconfig, $form->current_date(\%myconfig), 0) =~
/(\d\d\d\d)/;
$form->{year} = $1;
}

#yearly report
if ($form->{duetyp} eq "13") {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
}

#Quater reports
if ($form->{duetyp} eq "A") {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.3.$form->{year}";
}
if ($form->{duetyp} eq "B") {
$form->{fromdate} = "1.4.$form->{year}";
$form->{todate} = "30.6.$form->{year}";
}
if ($form->{duetyp} eq "C") {
$form->{fromdate} = "1.7.$form->{year}";
$form->{todate} = "30.9.$form->{year}";
}
if ($form->{duetyp} eq "D") {
$form->{fromdate} = "1.10.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
}

#Monthly reports
SWITCH: {
$form->{duetyp} eq "1" && do {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.1.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "2" && do {
$form->{fromdate} = "1.2.$form->{year}";

#this works from 1901 to 2099, 1900 and 2100 fail.
11461cce Sven Schöling
my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
d319704a Moritz Bunkus
$form->{todate} = "$leap.2.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "3" && do {
$form->{fromdate} = "1.3.$form->{year}";
$form->{todate} = "31.3.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "4" && do {
$form->{fromdate} = "1.4.$form->{year}";
$form->{todate} = "30.4.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "5" && do {
$form->{fromdate} = "1.5.$form->{year}";
$form->{todate} = "31.5.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "6" && do {
$form->{fromdate} = "1.6.$form->{year}";
$form->{todate} = "30.6.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "7" && do {
$form->{fromdate} = "1.7.$form->{year}";
$form->{todate} = "31.7.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "8" && do {
$form->{fromdate} = "1.8.$form->{year}";
$form->{todate} = "31.8.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "9" && do {
$form->{fromdate} = "1.9.$form->{year}";
$form->{todate} = "30.9.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "10" && do {
$form->{fromdate} = "1.10.$form->{year}";
$form->{todate} = "31.10.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "11" && do {
$form->{fromdate} = "1.11.$form->{year}";
$form->{todate} = "30.11.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "12" && do {
$form->{fromdate} = "1.12.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
last SWITCH;
};
}
02978267 Jan Büren
hotfix_reformat_date();
} # Ende Bericht für vorgewählten Zeitraum (warum auch immer die Prüfung (custom eq true) ist ...
00c4c994 Sven Schöling
d319704a Moritz Bunkus
RP->income_statement(\%myconfig, \%$form);

($form->{department}) = split /--/, $form->{department};

$form->{period} =
$locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
$form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};

# if there are any dates construct a where
if ($form->{fromdate} || $form->{todate}) {

unless ($form->{todate}) {
$form->{todate} = $form->current_date(\%myconfig);
}

11461cce Sven Schöling
my $longtodate = $locale->date(\%myconfig, $form->{todate}, 1);
my $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0);
d319704a Moritz Bunkus
11461cce Sven Schöling
my $longfromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
my $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0);
d319704a Moritz Bunkus
54e4131e Moritz Bunkus
$form->{this_period} = "$shortfromdate\n$shorttodate";
d319704a Moritz Bunkus
$form->{period} =
$locale->text('for Period')
54e4131e Moritz Bunkus
. qq|\n$longfromdate |
d319704a Moritz Bunkus
. $locale->text('Bis')
. qq| $longtodate|;
}

if ($form->{comparefromdate} || $form->{comparetodate}) {
11461cce Sven Schöling
my $longcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 1);
my $shortcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 0);
d319704a Moritz Bunkus
11461cce Sven Schöling
my $longcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 1);
my $shortcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 0);
d319704a Moritz Bunkus
54e4131e Moritz Bunkus
$form->{last_period} = "$shortcomparefromdate\n$shortcomparetodate";
d319704a Moritz Bunkus
$form->{period} .=
54e4131e Moritz Bunkus
"\n$longcomparefromdate "
d319704a Moritz Bunkus
. $locale->text('Bis')
. qq| $longcomparetodate|;
}

71d1fccd Geoffrey Richardson
if ( $::instance_conf->get_profit_determination eq 'balance' ) {
670205aa Geoffrey Richardson
$form->{title} = $locale->text('Income Statement');
71d1fccd Geoffrey Richardson
} elsif ( $::instance_conf->get_profit_determination eq 'income' ) {
670205aa Geoffrey Richardson
$form->{title} = $locale->text('Net Income Statement');
71d1fccd Geoffrey Richardson
} else {
670205aa Geoffrey Richardson
$form->{title} = "";
71d1fccd Geoffrey Richardson
};

if ( $form->{method} eq 'cash' ) {
$form->{accounting_method} = $locale->text('Cash accounting');
} elsif ( $form->{method} eq 'accrual' ) {
$form->{accounting_method} = $locale->text('Accrual accounting');
} else {
$form->{accounting_method} = "";
};

670205aa Geoffrey Richardson
$form->{report_date} = $locale->text('Report date') . ": " . $form->current_date;
71d1fccd Geoffrey Richardson
670205aa Geoffrey Richardson
$form->header;
print $form->parse_html_template('rp/income_statement');
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

fc1e3973 Rolf Fluehmann
sub generate_erfolgsrechnung {
$::lxdebug->enter_sub;
$::auth->assert('report');

$::form->{decimalplaces} = $::form->{decimalplaces} * 1 || 2;
$::form->{padding} = "&emsp;";
$::form->{bold} = "<b>";
$::form->{endbold} = "</b>";
$::form->{br} = "<br>";

my $data = RP->erfolgsrechnung(\%::myconfig, $::form);

$::form->header();
print $::form->parse_html_template('rp/erfolgsrechnung', $data);

$::lxdebug->leave_sub;
}


d319704a Moritz Bunkus
sub generate_balance_sheet {
8001c18b Sven Schöling
$::lxdebug->enter_sub;
$::auth->assert('report');
8c7e4493 Moritz Bunkus
8001c18b Sven Schöling
$::form->{decimalplaces} = $::form->{decimalplaces} * 1 || 2;
$::form->{padding} = "&nbsp;&nbsp;";
$::form->{bold} = "<b>";
$::form->{endbold} = "</b>";
$::form->{br} = "<br>";
17b87579 Sven Schöling
8001c18b Sven Schöling
my $data = RP->balance_sheet(\%::myconfig, $::form);
d319704a Moritz Bunkus
edb2023a Geoffrey Richardson
$::form->{asofdate} ||= $::form->current_date;
$::form->{report_title} = $::locale->text('Balance Sheet');
$::form->{report_date} ||= $::form->current_date;
d319704a Moritz Bunkus
8001c18b Sven Schöling
($::form->{department}) = split /--/, $::form->{department};
d319704a Moritz Bunkus
# define Current Earnings account
8001c18b Sven Schöling
my $padding = $::form->{l_heading} ? $::form->{padding} : "";
push @{ $::form->{equity_account} }, $padding . $::locale->text('Current Earnings');
d319704a Moritz Bunkus
8001c18b Sven Schöling
$::form->{this_period} = $::locale->date(\%::myconfig, $::form->{asofdate}, 0);
$::form->{last_period} = $::locale->date(\%::myconfig, $::form->{compareasofdate}, 0);
d319704a Moritz Bunkus
edb2023a Geoffrey Richardson
# balance sheet isn't read from print templates anymore,
# instead use template in rp
8001c18b Sven Schöling
# $::form->{IN} = "balance_sheet.html";
c9a7e79e Philip Reetz
8001c18b Sven Schöling
$::form->header;
print $::form->parse_html_template('rp/balance_sheet', $data);
d319704a Moritz Bunkus
8001c18b Sven Schöling
$::lxdebug->leave_sub;
d319704a Moritz Bunkus
}

sub generate_projects {
11461cce Sven Schöling
$main::lxdebug->enter_sub();

$main::auth->assert('report');
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
7f8599c0 Moritz Bunkus
my $project = $form->{project_id} ? SL::DB::Project->new(id => $form->{project_id})->load : undef;
$form->{projectnumber} = $project ? $project->projectnumber : '';
d319704a Moritz Bunkus
8610cf40 Geoffrey Richardson
# make sure todate and fromdate always have a value, even if the date fields
# were left empty or the inputs weren't valid dates/couldn't be parsed

$project = SL::DB::Project->new() unless $project; # dummy object for dbh
unless ($::locale->parse_date_to_object($::form->{fromdate})) {
($form->{fromdate}) = $project->db->dbh->selectrow_array('select min(transdate) from acc_trans');
};

unless ($::locale->parse_date_to_object($::form->{todate})) {
($form->{todate}) = $project->db->dbh->selectrow_array('select max(transdate) from acc_trans');
};

d319704a Moritz Bunkus
$form->{nextsub} = "generate_projects";
$form->{title} = $locale->text('Project Transactions');
RP->trial_balance(\%myconfig, \%$form);

3da2dca2 Moritz Bunkus
list_accounts('generate_projects');
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

# Antonio Gallardo
#
# D.S. Feb 16, 2001
# included links to display transactions for period entered
# added headers and subtotals
#
sub generate_trial_balance {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::auth->assert('report');

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
cd417762 Moritz Bunkus
my $defaults = SL::DB::Default->get;
8c7e4493 Moritz Bunkus
ddf6b218 Philip Reetz
if ($form->{reporttype} eq "custom") {

#forgotten the year --> thisyear
if ($form->{year} !~ m/^\d\d\d\d$/) {
$locale->date(\%myconfig, $form->current_date(\%myconfig), 0) =~
/(\d\d\d\d)/;
$form->{year} = $1;
}

#yearly report
if ($form->{duetyp} eq "13") {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
}

#Quater reports
if ($form->{duetyp} eq "A") {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.3.$form->{year}";
}
if ($form->{duetyp} eq "B") {
$form->{fromdate} = "1.4.$form->{year}";
$form->{todate} = "30.6.$form->{year}";
}
if ($form->{duetyp} eq "C") {
$form->{fromdate} = "1.7.$form->{year}";
$form->{todate} = "30.9.$form->{year}";
}
if ($form->{duetyp} eq "D") {
$form->{fromdate} = "1.10.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
}

#Monthly reports
SWITCH: {
$form->{duetyp} eq "1" && do {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.1.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "2" && do {
$form->{fromdate} = "1.2.$form->{year}";

#this works from 1901 to 2099, 1900 and 2100 fail.
11461cce Sven Schöling
my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
ddf6b218 Philip Reetz
$form->{todate} = "$leap.2.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "3" && do {
$form->{fromdate} = "1.3.$form->{year}";
$form->{todate} = "31.3.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "4" && do {
$form->{fromdate} = "1.4.$form->{year}";
$form->{todate} = "30.4.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "5" && do {
$form->{fromdate} = "1.5.$form->{year}";
$form->{todate} = "31.5.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "6" && do {
$form->{fromdate} = "1.6.$form->{year}";
$form->{todate} = "30.6.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "7" && do {
$form->{fromdate} = "1.7.$form->{year}";
$form->{todate} = "31.7.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "8" && do {
$form->{fromdate} = "1.8.$form->{year}";
$form->{todate} = "31.8.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "9" && do {
$form->{fromdate} = "1.9.$form->{year}";
$form->{todate} = "30.9.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "10" && do {
$form->{fromdate} = "1.10.$form->{year}";
$form->{todate} = "31.10.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "11" && do {
$form->{fromdate} = "1.11.$form->{year}";
$form->{todate} = "30.11.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "12" && do {
$form->{fromdate} = "1.12.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
last SWITCH;
};
}
02978267 Jan Büren
hotfix_reformat_date();
ddf6b218 Philip Reetz
}


d319704a Moritz Bunkus
# get for each account initial balance, debits and credits
bb5ee43d Moritz Bunkus
RP->trial_balance(\%myconfig, \%$form, 'beginning_balances' => 1);
d319704a Moritz Bunkus
ddf6b218 Philip Reetz
08c340d2 Sven Schöling
$form->{rowcount} = scalar @{ $form->{TB} || [] };
69e4ce03 Philip Reetz
$form->{title} = sprintf($locale->text('Trial balance between %s and %s'), $form->{fromdate}, $form->{todate});
ddf6b218 Philip Reetz
my @columns = (
"accno", "description",
"last_transaction", "soll_eb",
"haben_eb",
79d212c3 Moritz Bunkus
"soll", "haben",
"soll_kumuliert", "haben_kumuliert",
"soll_saldo", "haben_saldo"
ddf6b218 Philip Reetz
);


79d212c3 Moritz Bunkus
my $attachment_basename = $locale->text('trial_balance');
my $report = SL::ReportGenerator->new(\%myconfig, $form);
ddf6b218 Philip Reetz
9aa4d064 Jan Büren
my @hidden_variables = qw(fromdate todate year method department_id all_accounts);
ddf6b218 Philip Reetz
79d212c3 Moritz Bunkus
my $href = build_std_url('action=generate_trial_balance', grep { $form->{$_} } @hidden_variables);
ddf6b218 Philip Reetz
79d212c3 Moritz Bunkus
my %column_defs = (
c184bce3 Philip Reetz
'accno' => { 'text' => $locale->text('Account'), },
79d212c3 Moritz Bunkus
'description' => { 'text' => $locale->text('Description'), },
'last_transaction' => { 'text' => $locale->text('Last Transaction'), },
'soll_eb' => { 'text' => $locale->text('Debit Starting Balance'), },
'haben_eb' => { 'text' => $locale->text('Credit Starting Balance'), },
'soll' => { 'text' => $locale->text('Debit'), },
'haben' => { 'text' => $locale->text('Credit'), },
'soll_kumuliert' => { 'text' => $locale->text('Sum Debit'), },
'haben_kumuliert' => { 'text' => $locale->text('Sum Credit'), },
'soll_saldo' => { 'text' => $locale->text('Saldo Debit'), },
'haben_saldo' => { 'text' => $locale->text('Saldo Credit'), }
ddf6b218 Philip Reetz
);



my %column_alignment = map { $_ => 'right' } qw(soll_eb haben_eb soll haben soll_kumuliert haben_kumuliert soll_saldo haben_saldo);

map { $column_defs{$_}->{visible} = 1 } @columns;

$report->set_columns(%column_defs);
$report->set_column_order(@columns);

69e4ce03 Philip Reetz
$report->set_export_options('generate_trial_balance', @hidden_variables);
ddf6b218 Philip Reetz
my @options;


919aac79 Sven Schöling
$form->{template_fromto} = $locale->date(\%myconfig, $form->{fromdate}, 0) . " - " . $locale->date(\%myconfig, $form->{todate}, 0);
46a67f95 Philip Reetz
$form->{print_date} = $locale->text('Create Date') . " " . $locale->date(\%myconfig, $form->current_date(\%myconfig), 0);
push (@options, $form->{print_date});

cd417762 Moritz Bunkus
$form->{company} = $locale->text('Company') . " " . $defaults->company;
46a67f95 Philip Reetz
push (@options, $form->{company});

5e2cb6ed Sven Schöling
if ($::form->{customer_id}) {
my $customer = SL::DB::Manager::Customer->find_by(id => $::form->{customer_id});
push @options, $::locale->text('Customer') . ' ' . $customer->displayable_name;
}

46a67f95 Philip Reetz
ddf6b218 Philip Reetz
$form->{template_to} = $locale->date(\%myconfig, $form->{todate}, 0);

919aac79 Sven Schöling
my @custom_headers = ([
{ text => $::locale->text('Account'), rowspan => 2, },
{ text => $::locale->text('Description'), rowspan => 2, },
{ text => $::locale->text('Last Transaction'), rowspan => 2, },
{ text => $::locale->text('Starting Balance'), colspan => 2, },
{ text => $::locale->text('Sum for') . " $form->{template_fromto}", colspan => 2, },
{ text => $::locale->text('Sum per') . " $form->{template_to}", colspan => 2, },
{ text => $::locale->text('Saldo per') . " $form->{template_to}", colspan => 2, },
], [
{ text => '', },
{ text => '', },
{ text => '', },
{ text => $::locale->text('Assets'), },
{ text => $::locale->text('Equity'), },
{ text => $::locale->text('Debit'), },
{ text => $::locale->text('Credit'), },
{ text => $::locale->text('Debit'), },
{ text => $::locale->text('Credit'), },
{ text => $::locale->text('Debit'), },
{ text => $::locale->text('Credit'), },
]);

ddf6b218 Philip Reetz
$report->set_options('output_format' => 'HTML',
46a67f95 Philip Reetz
'top_info_text' => join("\n", @options),
ddf6b218 Philip Reetz
'title' => $form->{title},
'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
861b9e38 Moritz Bunkus
'html_template' => 'rp/html_report_susa',
'pdf_template' => 'rp/html_report_susa',
ddf6b218 Philip Reetz
);
919aac79 Sven Schöling
$report->set_custom_headers(@custom_headers);
ddf6b218 Philip Reetz
$report->set_options_from_form();
a873249c Moritz Bunkus
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
6f205006 Moritz Bunkus
ddf6b218 Philip Reetz
# add sort and escape callback, this one we use for the add sub
$form->{callback} = $href .= "&sort=$form->{sort}";

# escape callback for href
11461cce Sven Schöling
my $callback = $form->escape($href);
ddf6b218 Philip Reetz
my @subtotal_columns = qw(soll_eb haben_eb soll haben soll_kumuliert haben_kumuliert soll_saldo haben_saldo);

my %totals = map { $_ => 0 } @subtotal_columns;

my $edit_url = build_std_url('action=edit', 'type', 'vc');

11461cce Sven Schöling
my $idx;
3d7ea2e6 Sven Schöling
foreach my $accno (@{ $form->{TB} || [] }) {
ddf6b218 Philip Reetz
$accno->{soll} = $accno->{debit};
$accno->{haben} = $accno->{credit};
map { $totals{$_} += $accno->{$_} } @subtotal_columns;

93205ede Sven Schöling
map { $accno->{$_} = $accno->{$_} == 0 ? '' : $form->format_amount(\%myconfig, $accno->{$_}, 2) }
qw(soll_eb haben_eb soll haben soll_kumuliert haben_kumuliert soll_saldo haben_saldo);
ddf6b218 Philip Reetz
my $row = { };

foreach my $column (@columns) {
$row->{$column} = {
'data' => $accno->{$column},
'align' => $column_alignment{$column},
};
}

ad5a6910 Philip Reetz
$row->{accno}->{link} = build_std_url('script=ca.pl', 'action=list_transactions', 'accno=' . E($accno->{accno}), 'description=' . E($accno->{description}), 'fromdate=' . E($form->{fromdate}), 'todate=' . E($form->{todate}), 'method=' . E($form->{method}));
ddf6b218 Philip Reetz
my $row_set = [ $row ];


$report->add_data($row_set);

$idx++;
}

$report->add_separator();

$report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal'));

$report->generate_with_headers();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
ddf6b218 Philip Reetz
}

sub create_subtotal_row {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
ddf6b218 Philip Reetz
my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;

11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

ddf6b218 Philip Reetz
my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };

map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };

$row->{tax}->{data} = $form->format_amount(\%myconfig, $totals->{amount} - $totals->{netamount}, 2);

map { $totals->{$_} = 0 } @{ $subtotal_columns };

11461cce Sven Schöling
$main::lxdebug->leave_sub();
ddf6b218 Philip Reetz
return $row;
d319704a Moritz Bunkus
}

3da2dca2 Moritz Bunkus
sub create_list_accounts_subtotal_row {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
3da2dca2 Moritz Bunkus
my ($subtotals, $columns, $fields, $class) = @_;

11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

3da2dca2 Moritz Bunkus
my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => 'right' } } @{ $columns } };

map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $subtotals->{$_}, 2) } @{ $fields };

11461cce Sven Schöling
$main::lxdebug->leave_sub();
3da2dca2 Moritz Bunkus
return $row;
}

d319704a Moritz Bunkus
sub list_accounts {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
my ($action) = @_;
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

3da2dca2 Moritz Bunkus
my @options;
d319704a Moritz Bunkus
if ($form->{department}) {
3da2dca2 Moritz Bunkus
my ($department) = split /--/, $form->{department};
push @options, $locale->text('Department') . " : $department";
d319704a Moritz Bunkus
}
if ($form->{projectnumber}) {
3da2dca2 Moritz Bunkus
push @options, $locale->text('Project Number') . " : $form->{projectnumber}";
d319704a Moritz Bunkus
}

# if there are any dates
if ($form->{fromdate} || $form->{todate}) {
3da2dca2 Moritz Bunkus
my ($fromdate, $todate);

d319704a Moritz Bunkus
if ($form->{fromdate}) {
$fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
}
if ($form->{todate}) {
$todate = $locale->date(\%myconfig, $form->{todate}, 1);
}

3da2dca2 Moritz Bunkus
push @options, "$fromdate - $todate";
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
} else {
push @options, $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
d319704a Moritz Bunkus
}

3da2dca2 Moritz Bunkus
my @columns = qw(accno description begbalance debit credit endbalance);
my %column_defs = (
'accno' => { 'text' => $locale->text('Account'), },
'description' => { 'text' => $locale->text('Description'), },
'debit' => { 'text' => $locale->text('Debit'), },
'credit' => { 'text' => $locale->text('Credit'), },
'begbalance' => { 'text' => $locale->text('Balance'), },
'endbalance' => { 'text' => $locale->text('Balance'), },
);
my %column_alignment = map { $_ => 'right' } qw(debit credit begbalance endbalance);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
my @hidden_variables = qw(fromdate todate department l_heading l_subtotal all_accounts sort accounttype eur projectnumber project_id title nextsub);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$form->{callback} = build_std_url("action=$action", grep { $form->{$_} } @hidden_variables);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
my $report = SL::ReportGenerator->new(\%myconfig, $form);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->set_options('top_info_text' => join("\n", @options),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $locale->text('list_of_transactions') . strftime('_%Y%m%d', localtime time),
'std_column_visibility' => 1,
);
$report->set_options_from_form();
a873249c Moritz Bunkus
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->set_export_options($action, @hidden_variables);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
my @totals_columns = qw(credit debit begbalance endbalance);
my %subtotals = map { $_ => 0 } @totals_columns;
my %totals = map { $_ => 0 } @totals_columns;
my $found_heading = 0;
3d7ea2e6 Sven Schöling
my @tb = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} || [] };
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
# sort the whole thing by account numbers and display
foreach my $idx (0 .. scalar(@tb) - 1) {
my $ref = $tb[$idx];
my $href = build_std_url('script=ca.pl', 'action=list_transactions', 'accno=' . E($ref->{accno}), 'description=' . E($ref->{description}), @hidden_variables);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
my $ml = ($ref->{category} =~ /(A|C|E)/) ? -1 : 1;
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
my $row = { map { $_ => { 'align' => $column_alignment{$_} } } @columns };
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
if ($ref->{charttype} eq 'H') {
next unless ($form->{l_heading});
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
%subtotals = map { $_ => 0 } @totals_columns;
$found_heading = 1;
$row->{description}->{class} = 'listheading';
$row->{description}->{data} = $ref->{description};
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->add_data($row);

next;
d319704a Moritz Bunkus
}
3da2dca2 Moritz Bunkus
foreach (qw(debit credit)) {
$subtotals{$_} += $ref->{$_};
$totals{$_} += $ref->{$_};
d319704a Moritz Bunkus
}

3da2dca2 Moritz Bunkus
$subtotals{begbalance} += $ref->{balance} * $ml;
$subtotals{endbalance} += ($ref->{balance} + $ref->{amount}) * $ml;
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
map { $row->{$_}->{data} = $ref->{$_} } qw(accno description);
map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $ref->{$_}, 2) if ($ref->{$_} != 0) } qw(credit debit);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$row->{begbalance}->{data} = $form->format_amount(\%myconfig, $ref->{balance} * $ml, 2);
$row->{endbalance}->{data} = $form->format_amount(\%myconfig, ($ref->{balance} + $ref->{amount}) * $ml, 2);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->add_data($row);
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
if ($form->{l_heading} && $found_heading &&
(($idx == scalar(@tb) - 1) || ('H' eq $tb[$idx + 1]->{charttype}))) {
$report->add_data(create_list_accounts_subtotal_row(\%subtotals, \@columns, \@totals_columns, 'listsubtotal'));
}
d319704a Moritz Bunkus
}

3da2dca2 Moritz Bunkus
$report->add_separator();
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->add_data(create_list_accounts_subtotal_row(\%totals, \@columns, [ qw(debit credit) ], 'listtotal'));
d319704a Moritz Bunkus
3da2dca2 Moritz Bunkus
$report->generate_with_headers();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub generate_ar_aging {
11461cce Sven Schöling
$main::lxdebug->enter_sub();

e0f5deea Martin Helmling
$main::auth->assert('general_ledger | ar_transactions');
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
# split customer
($form->{customer}) = split(/--/, $form->{customer});

$form->{ct} = "customer";
$form->{arap} = "ar";

8365e092 Moritz Bunkus
$form->{callback} = build_std_url('action=generate_ar_aging', qw(todate customer title));
d319704a Moritz Bunkus
RP->aging(\%myconfig, \%$form);
8365e092 Moritz Bunkus
aging();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub generate_ap_aging {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
d319704a Moritz Bunkus
e0f5deea Martin Helmling
$main::auth->assert('general_ledger | ap_transactions');
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
# split vendor
($form->{vendor}) = split(/--/, $form->{vendor});

$form->{ct} = "vendor";
$form->{arap} = "ap";

8365e092 Moritz Bunkus
$form->{callback} = build_std_url('action=generate_ap_aging', qw(todate vendor title));
d319704a Moritz Bunkus
RP->aging(\%myconfig, \%$form);
8365e092 Moritz Bunkus
aging();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

8365e092 Moritz Bunkus
sub create_aging_subtotal_row {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
my ($subtotals, $columns, $periods, $class) = @_;
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

8365e092 Moritz Bunkus
my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => 'right' } } @{ $columns } };
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
foreach (@{ $periods }) {
c9a7e79e Philip Reetz
$row->{"$_"}->{data} = $subtotals->{$_} != 0 ? $form->format_amount(\%myconfig, $subtotals->{$_}, 2) : '';
8365e092 Moritz Bunkus
$subtotals->{$_} = 0;
d319704a Moritz Bunkus
}

11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
return $row;
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
sub aging {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
653ae9ea Philip Reetz
11461cce Sven Schöling
$main::auth->assert('general_ledger');

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
5494f687 Sven Schöling
my $cgi = $::request->{cgi};
8c7e4493 Moritz Bunkus
384a4f64 Moritz Bunkus
$::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery);

8365e092 Moritz Bunkus
my $report = SL::ReportGenerator->new(\%myconfig, $form);
d319704a Moritz Bunkus
e9b11e12 Jan Büren
my @columns = qw(statement ct invnumber transdate duedate amount open datepaid current_open type);
8365e092 Moritz Bunkus
my %column_defs = (
bc0e2eda Sven Schöling
'statement' => { raw_header_data => SL::Presenter::Tag::checkbox_tag("checkall", checkall => '[name^=statement_]'), 'visible' => $form->{ct} eq 'customer' ? 'HTML' : 0, align => "center" },
8365e092 Moritz Bunkus
'ct' => { 'text' => $form->{ct} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
'invnumber' => { 'text' => $locale->text('Invoice'), },
'transdate' => { 'text' => $locale->text('Date'), },
'duedate' => { 'text' => $locale->text('Due'), },
8b2aefcd Moritz Bunkus
'amount' => { 'text' => $locale->text('Amount'), },
'open' => { 'text' => $locale->text('Open'), },
33ddf79c Jan Büren
'datepaid' => { 'text' => $locale->text('Date of Last Payment'), visible => ($form->{reporttype} eq 'custom') },
'current_open' => { 'text' => $locale->text('Open Amount at Last Payment Date'), visible => ($form->{reporttype} eq 'custom') },
e9b11e12 Jan Büren
'type' => { 'text' => $locale->text('Note'), },
8365e092 Moritz Bunkus
);
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
my %column_alignment = ('statement' => 'center',
33ddf79c Jan Büren
map { $_ => 'right' } qw(open amount current_open datepaid));
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$report->set_options('std_column_visibility' => 1);
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
9a8cae7f Jan Büren
my @hidden_variables = qw(todate customer vendor arap title ct fordate reporttype department fromdate);
8365e092 Moritz Bunkus
$report->set_export_options('generate_' . ($form->{arap} eq 'ar' ? 'ar' : 'ap') . '_aging', @hidden_variables);
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
my @options;
69e4ce03 Philip Reetz
my $attachment_basename;
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
if ($form->{department}) {
my ($department) = split /--/, $form->{department};
push @options, $locale->text('Department') . " : $department";
$form->{callback} .= "&department=" . E($department);
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
if (($form->{arap} eq 'ar') && $form->{customer}) {
push @options, $form->{customer};
69e4ce03 Philip Reetz
$attachment_basename = $locale->text('ar_aging_list');
$form->{title} = sprintf($locale->text('Ar aging on %s'), $form->{todate});
8365e092 Moritz Bunkus
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
if (($form->{arap} eq 'ap') && $form->{vendor}) {
push @options, $form->{vendor};
69e4ce03 Philip Reetz
$attachment_basename = $locale->text('ap_aging_list');
$form->{title} = sprintf($locale->text('Ap aging on %s'), $form->{todate});
8365e092 Moritz Bunkus
}
d319704a Moritz Bunkus
a4386777 Jan Büren
$form->{callback} .= "&reporttype=" . E($form->{reporttype});
33ddf79c Jan Büren
if ($form->{reporttype} eq 'free') {
if ($form->{fromdate}) {
push @options, $locale->text('for Period') . " " . $locale->text('From') . " " .
$locale->date(\%myconfig, $form->{fromdate}, 1) . " " .
$locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
} else {
push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " .
$locale->date(\%myconfig, $form->{todate}, 1);
}
} elsif ($form->{reporttype} eq 'custom') {
push @options, $locale->text('Reference day') . " " . $locale->date(\%myconfig, $form->{fordate}, 1);
653ae9ea Philip Reetz
} else {
33ddf79c Jan Büren
die "Unknown reporttype for aging";
653ae9ea Philip Reetz
}
d319704a Moritz Bunkus
11461cce Sven Schöling
$attachment_basename = $form->{ct} eq 'customer' ? $locale->text('ar_aging_list') : $locale->text('ap_aging_list');
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$report->set_options('top_info_text' => join("\n", @options),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
);
a873249c Moritz Bunkus
$report->set_options_from_form();
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
my $previous_ctid = 0;
my $row_idx = 0;
33ddf79c Jan Büren
my @periods = qw(open amount current_open);
8365e092 Moritz Bunkus
my %subtotals = map { $_ => 0 } @periods;
my %totals = map { $_ => 0 } @periods;
d319704a Moritz Bunkus
11461cce Sven Schöling
foreach my $ref (@{ $form->{AG} }) {
8365e092 Moritz Bunkus
if ($row_idx && ($previous_ctid != $ref->{ctid})) {
$report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal'));
d319704a Moritz Bunkus
}

8365e092 Moritz Bunkus
foreach my $key (@periods) {
c9a7e79e Philip Reetz
$subtotals{$key} += $ref->{"$key"};
$totals{$key} += $ref->{"$key"};
$ref->{"$key"} = $ref->{"$key"} != 0 ? $form->format_amount(\%myconfig, $ref->{"$key"}, 2) : '';
8365e092 Moritz Bunkus
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
my $row = { };
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
foreach my $column (@columns) {
$row->{$column} = {
'data' => (($column eq 'ct') || ($column eq 'statement')) ? '' : $ref->{$column},
'align' => $column_alignment{$column},
'valign' => $column eq 'statement' ? 'center' : '',
};
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$row->{invnumber}->{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'callback', 'id=' . E($ref->{id}));
e9b11e12 Jan Büren
if ($row->{type}->{data} eq 'final_invoice') {
$row->{type}->{data} = $locale->text('Final Invoice, please use mark as paid manually');
$row->{type}->{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'callback', 'id=' . E($ref->{id}));
} else {
$row->{type}->{data} = '';
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
if ($previous_ctid != $ref->{ctid}) {
$row->{statement}->{raw_data} =
f50a5cf3 Moritz Bunkus
$cgi->hidden('-name' => "customer_id_" . ($row_idx + 1), '-value' => $ref->{ctid})
. $cgi->checkbox('-name' => "statement_" . ($row_idx + 1), '-value' => 1, '-label' => '', 'checked' => $ref->{checked});
8365e092 Moritz Bunkus
$row->{ct}->{data} = $ref->{name};
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$row_idx++;
}
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$previous_ctid = $ref->{ctid};
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$report->add_data($row);
d319704a Moritz Bunkus
}

8365e092 Moritz Bunkus
$report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal')) if ($row_idx);
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
$report->add_data(create_aging_subtotal_row(\%totals, \@columns, \@periods, 'listtotal'));
d319704a Moritz Bunkus
if ($form->{arap} eq 'ar') {
11461cce Sven Schöling
my $raw_top_info_text = $form->parse_html_template('rp/aging_ar_top');
my $raw_bottom_info_text = $form->parse_html_template('rp/aging_ar_bottom', { 'row_idx' => $row_idx,
9aaca433 Moritz Bunkus
'PRINT_OPTIONS' => print_options(inline => 1), });
8365e092 Moritz Bunkus
$report->set_options('raw_top_info_text' => $raw_top_info_text,
'raw_bottom_info_text' => $raw_bottom_info_text);
}
d319704a Moritz Bunkus
2d1ba4f4 Moritz Bunkus
setup_rp_aging_action_bar(arap => $form->{arap});
8365e092 Moritz Bunkus
$report->generate_with_headers();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub send_email {
11461cce Sven Schöling
$main::lxdebug->enter_sub();

$main::auth->assert('general_ledger');
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
$form->{subject} = $locale->text('Statement') . qq| - $form->{todate}|
unless $form->{subject};

RP->aging(\%myconfig, \%$form);


2d1ba4f4 Moritz Bunkus
my $email_form = delete $form->{email_form};
my %field_names = (to => 'email');

$form->{ $field_names{$_} // $_ } = $email_form->{$_} for keys %{ $email_form };
d46c087d Moritz Bunkus
$form->{media} = 'email';
print_form();
d319704a Moritz Bunkus
d46c087d Moritz Bunkus
$form->redirect($locale->text('Statement sent to') . " $form->{$form->{ct}}");
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub print {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::auth->assert('general_ledger');

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
if ($form->{media} eq 'printer') {
$form->error($locale->text('Select postscript or PDF!'))
if ($form->{format} !~ /(postscript|pdf)/);
}

11461cce Sven Schöling
my $selected = 0;
for my $i (1 .. $form->{rowcount}) {
d319704a Moritz Bunkus
if ($form->{"statement_$i"}) {
$form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};
$selected = 1;
last;
}
}

$form->error($locale->text('Nothing selected!')) unless $selected;

if ($form->{media} eq 'printer') {
$form->{"$form->{ct}_id"} = "";
} else {
$form->{"statement_1"} = 1;
}

RP->aging(\%myconfig, \%$form);

d46c087d Moritz Bunkus
print_form();
d319704a Moritz Bunkus
$form->redirect($locale->text('Statements sent to printer!'))
if ($form->{media} eq 'printer');

11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub print_form {
11461cce Sven Schöling
$main::lxdebug->enter_sub();

$main::auth->assert('general_ledger');
d319704a Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
2e66dde5 Moritz Bunkus
my $defaults = SL::DB::Default->get;
$form->error($::locale->text('No print templates have been created for this client yet. Please do so in the client configuration.')) if !$defaults->templates;
$form->{templates} = $defaults->templates;
d319704a Moritz Bunkus
2e66dde5 Moritz Bunkus
$form->{statementdate} = $locale->date(\%myconfig, $form->{todate}, 1);
d319704a Moritz Bunkus
d2e805ca Moritz Bunkus
my $suffix = "html";
my $attachment_suffix = "html";
d319704a Moritz Bunkus
if ($form->{format} eq 'postscript') {
$form->{postscript} = 1;
d2e805ca Moritz Bunkus
$suffix = "tex";
$attachment_suffix = "ps";
} elsif ($form->{format} eq 'pdf') {
d319704a Moritz Bunkus
$form->{pdf} = 1;
d2e805ca Moritz Bunkus
$suffix = "tex";
$attachment_suffix = "pdf";
d319704a Moritz Bunkus
}

d46c087d Moritz Bunkus
$form->{IN} = "$form->{type}.$suffix";
e6e07cb0 Moritz Bunkus
$form->{OUT} = $form->{media} eq 'printer' ? "| $myconfig{printer}" : "";
d2e805ca Moritz Bunkus
a63aaabd Moritz Bunkus
# Save $form->{email} because it will be overwritten.
$form->{EMAIL_RECIPIENT} = $form->{email};

11461cce Sven Schöling
my $i = 0;
my $ctid;
d319704a Moritz Bunkus
while (@{ $form->{AG} }) {

11461cce Sven Schöling
my $ref = shift @{ $form->{AG} };
d319704a Moritz Bunkus
if ($ctid != $ref->{ctid}) {

$ctid = $ref->{ctid};
$i++;

if ($form->{"statement_$i"}) {

11461cce Sven Schöling
my @a =
("name", "street", "zipcode", "city", "country", "contact", "email",
d319704a Moritz Bunkus
"$form->{ct}phone", "$form->{ct}fax");
map { $form->{$_} = $ref->{$_} } @a;

$form->{ $form->{ct} } = $form->{name};
$form->{"$form->{ct}_id"} = $ref->{ctid};

75254263 Geoffrey Richardson
map { $form->{$_} = () } qw(invnumber invdate duedate amount open);
d319704a Moritz Bunkus
$form->{total} = 0;
11461cce Sven Schöling
foreach my $item (qw(c0 c30 c60 c90)) {
d319704a Moritz Bunkus
$form->{$item} = ();
$form->{"${item}total"} = 0;
}

&statement_details($ref);

while ($ref) {

if (scalar(@{ $form->{AG} }) > 0) {

# one or more left to go
if ($ctid == $form->{AG}->[0]->{ctid}) {
$ref = shift @{ $form->{AG} };
&statement_details($ref);

# any more?
$ref = scalar(@{ $form->{AG} });
} else {
$ref = 0;
}
} else {

# set initial ref to 0
$ref = 0;
}

}

map {
$form->{"${_}total"} =
$form->format_amount(\%myconfig, $form->{"${_}total"}, 2)
11461cce Sven Schöling
} ('c0', 'c30', 'c60', 'c90', "");
d319704a Moritz Bunkus
dc3cd296 Moritz Bunkus
$form->{attachment_filename} = $locale->quote_special_chars('filenames', $locale->text("Statement") . "_$form->{todate}.$attachment_suffix");
$form->{attachment_filename} =~ s/\s+/_/g;
d2e805ca Moritz Bunkus
8cd05ad6 Moritz Bunkus
$form->parse_template(\%myconfig);
d319704a Moritz Bunkus
}
}
}
2b89ec97 Thomas Kasulke
# saving the history
if(!exists $form->{addition} && $form->{id} ne "") {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
b65a230d Sven Schöling
$form->{addition} = "PRINTED";
$form->{what_done} = $form->{type};
a590a651 Sven Schöling
$form->save_history;
2b89ec97 Thomas Kasulke
}
a304d5fa Sven Schöling
# /saving the history
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub statement_details {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
8c7e4493 Moritz Bunkus
11461cce Sven Schöling
$main::auth->assert('general_ledger');

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
my ($ref) = @_;

push @{ $form->{invnumber} }, $ref->{invnumber};
push @{ $form->{invdate} }, $ref->{transdate};
push @{ $form->{duedate} }, $ref->{duedate};
75254263 Geoffrey Richardson
push @{ $form->{amount} }, $form->format_amount(\%myconfig, $ref->{amount} / $ref->{exchangerate}, 2);
push @{ $form->{open} }, $form->format_amount(\%myconfig, $ref->{open} / $ref->{exchangerate}, 2);
d319704a Moritz Bunkus
11461cce Sven Schöling
foreach my $item (qw(c0 c30 c60 c90)) {
30531673 Moritz Bunkus
if ($ref->{exchangerate} * 1) {
75254263 Geoffrey Richardson
# add only the open amount of the invoice to the aging, not the total amount
$ref->{"${item}"} = $form->round_amount($ref->{open} / $ref->{exchangerate}, 2) if $ref->{overduedays} < 30 and $item eq 'c0';
$ref->{"${item}"} = $form->round_amount($ref->{open} / $ref->{exchangerate}, 2) if $ref->{overduedays} >= 30 and $ref->{overduedays} < 60 and $item eq 'c30';
$ref->{"${item}"} = $form->round_amount($ref->{open} / $ref->{exchangerate}, 2) if $ref->{overduedays} >= 60 and $ref->{overduedays} < 90 and $item eq 'c60';
$ref->{"${item}"} = $form->round_amount($ref->{open} / $ref->{exchangerate}, 2) if $ref->{overduedays} >= 90 and $item eq 'c90';
30531673 Moritz Bunkus
}
d319704a Moritz Bunkus
$form->{"${item}total"} += $ref->{$item};
$form->{total} += $ref->{$item};
push @{ $form->{$item} },
$form->format_amount(\%myconfig, $ref->{$item}, 2);
}

11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub generate_tax_report {
886784c7 Sven Schöling
$::lxdebug->enter_sub;
$::auth->assert('report');
8c7e4493 Moritz Bunkus
886784c7 Sven Schöling
RP->tax_report(\%::myconfig, $::form);
d319704a Moritz Bunkus
886784c7 Sven Schöling
my $descvar = "$::form->{accno}_description";
662ded38 Sven Schöling
my ($subtotalnetamount, $subtotaltax, $subtotal) = (0, 0, 0);
d319704a Moritz Bunkus
# construct href
886784c7 Sven Schöling
my $href =
my $callback = build_std_url('action=generate_tax_report', $descvar,
qw(fromdate todate db method accno department report title));
d319704a Moritz Bunkus
886784c7 Sven Schöling
my @columns = $::form->sort_columns(qw(id transdate invnumber name netamount tax amount));
662ded38 Sven Schöling
my @column_index;
d319704a Moritz Bunkus
886784c7 Sven Schöling
for my $item (@columns, 'subtotal') {
if ($::form->{"l_$item"} eq "Y") {
d319704a Moritz Bunkus
$callback .= "&l_$item=Y";
$href .= "&l_$item=Y";
}
}

886784c7 Sven Schöling
for my $item (@columns) {
if ($::form->{"l_$item"} eq "Y") {
push @column_index, $item;
}
d319704a Moritz Bunkus
}

886784c7 Sven Schöling
my @options;
if ($::form->{department}) {
my ($department) = split /--/, $::form->{department};
push @options, $::locale->text('Department') . " : $department";
d319704a Moritz Bunkus
}

# if there are any dates
886784c7 Sven Schöling
if ($::form->{fromdate} || $::form->{todate}) {
343802f9 Sven Schöling
my $fromdate = $::form->{fromdate} ? $::locale->date(\%::myconfig, $::form->{fromdate}, 1) : '';
my $todate = $::form->{todate} ? $::locale->date(\%::myconfig, $::form->{todate}, 1) : '';
886784c7 Sven Schöling
push @options, "$fromdate - $todate";
d319704a Moritz Bunkus
} else {
886784c7 Sven Schöling
push @options, $::locale->date(\%::myconfig, $::form->current_date, 1);
d319704a Moritz Bunkus
}

11461cce Sven Schöling
my ($name, $invoice, $arap);
886784c7 Sven Schöling
if ($::form->{db} eq 'ar') {
$name = $::locale->text('Customer');
d319704a Moritz Bunkus
$invoice = 'is.pl';
$arap = 'ar.pl';
}
886784c7 Sven Schöling
if ($::form->{db} eq 'ap') {
$name = $::locale->text('Vendor');
d319704a Moritz Bunkus
$invoice = 'ir.pl';
$arap = 'ap.pl';
}

886784c7 Sven Schöling
my %column_header = (
id => $::locale->text('ID'),
invnumber => $::locale->text('Invoice'),
transdate => $::locale->text('Date'),
netamount => $::locale->text('Amount'),
tax => $::locale->text('Tax'),
amount => $::locale->text('Total'),
name => $name,
);
d319704a Moritz Bunkus
886784c7 Sven Schöling
my %column_sorted = map { $_ => 1 } qw(id invnumber transdate);
d319704a Moritz Bunkus
886784c7 Sven Schöling
$callback .= "&sort=$::form->{sort}";
d319704a Moritz Bunkus
11461cce Sven Schöling
my $sameitem;
886784c7 Sven Schöling
if (@{ $::form->{TR} }) {
$sameitem = $::form->{TR}->[0]->{ $::form->{sort} };
d319704a Moritz Bunkus
}

886784c7 Sven Schöling
my ($totalnetamount, $totaltax, @data);
for my $ref (@{ $::form->{TR} }) {
d319704a Moritz Bunkus
11461cce Sven Schöling
my $module = ($ref->{invoice}) ? $invoice : $arap;
d319704a Moritz Bunkus
886784c7 Sven Schöling
if ($::form->{l_subtotal} eq 'Y') {
if ($sameitem ne $ref->{ $::form->{sort} }) {
push @data, {
subtotal => 1,
netamount => $subtotalnetamount,
tax => $subtotaltax,
amount => $subtotal,
};
$subtotalnetamount = 0;
$subtotaltax = 0;
$sameitem = $ref->{ $::form->{sort} };
d319704a Moritz Bunkus
}
}

$subtotalnetamount += $ref->{netamount};
$subtotaltax += $ref->{tax};
886784c7 Sven Schöling
$totalnetamount += $ref->{netamount};
$totaltax += $ref->{tax};
$ref->{amount} = $ref->{netamount} + $ref->{tax};
d319704a Moritz Bunkus
886784c7 Sven Schöling
push @data, { map { $_ => { data => $ref->{$_} } } keys %$ref };
$data[-1]{invnumber}{link} = "$module?action=edit&id=$ref->{id}&callback=$callback";
$data[-1]{$_}{numeric} = 1 for qw(netamount tax amount);
d319704a Moritz Bunkus
}

886784c7 Sven Schöling
if ($::form->{l_subtotal} eq 'Y') {
push @data, {
subtotal => 1,
netamount => $subtotalnetamount,
tax => $subtotaltax,
amount => $subtotal,
};
d319704a Moritz Bunkus
}

886784c7 Sven Schöling
push @data, {
total => 1,
netamount => $totalnetamount,
tax => $totaltax,
amount => $totalnetamount + $totaltax,
};
d319704a Moritz Bunkus
886784c7 Sven Schöling
$::form->header;
print $::form->parse_html_template('rp/tax_report', {
column_index => \@column_index,
column_header => \%column_header,
column_sorted => \%column_sorted,
sort_base => $href,
DATA => \@data,
options => \@options,
});
d319704a Moritz Bunkus
886784c7 Sven Schöling
$::lxdebug->leave_sub;
d319704a Moritz Bunkus
}

sub list_payments {
11461cce Sven Schöling
$main::lxdebug->enter_sub();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::auth->assert('cash');

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
if ($form->{account}) {
($form->{paymentaccounts}) = split /--/, $form->{account};
}
11461cce Sven Schöling
my $option;
d319704a Moritz Bunkus
if ($form->{department}) {
11461cce Sven Schöling
(my $department, $form->{department_id}) = split /--/, $form->{department};
d319704a Moritz Bunkus
$option = $locale->text('Department') . " : $department";
}

94e596e5 Moritz Bunkus
report_generator_set_default_sort('transdate', 1);

d319704a Moritz Bunkus
RP->payments(\%myconfig, \%$form);

c7581445 Moritz Bunkus
my @hidden_variables = qw(account title department reference source memo fromdate todate
fx_transaction db prepayment paymentaccounts sort);
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my $href = build_std_url('action=list_payments', grep { $form->{$_} } @hidden_variables);
$form->{callback} = $href;
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my @columns = qw(transdate invnumber name paid source memo);
my %column_defs = (
'name' => { 'text' => $locale->text('Description'), },
'invnumber' => { 'text' => $locale->text('Reference'), },
'transdate' => { 'text' => $locale->text('Date'), },
'paid' => { 'text' => $locale->text('Amount'), },
'source' => { 'text' => $locale->text('Source'), },
'memo' => { 'text' => $locale->text('Memo'), },
);
my %column_alignment = ('paid' => 'right');
d319704a Moritz Bunkus
94e596e5 Moritz Bunkus
foreach my $name (grep { $_ ne 'paid' } @columns) {
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
$column_defs{$name}->{link} = $href . "&sort=${name}&sortdir=$sortdir";
}
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my @options;
d319704a Moritz Bunkus
if ($form->{fromdate}) {
64c4e3c6 Moritz Bunkus
push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{fromdate}, 1);
d319704a Moritz Bunkus
}
if ($form->{todate}) {
64c4e3c6 Moritz Bunkus
push @options, $locale->text('bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
d319704a Moritz Bunkus
}

c7581445 Moritz Bunkus
my $report = SL::ReportGenerator->new(\%myconfig, $form);
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my $attachment_basename = $form->{db} eq 'ar' ? $locale->text('list_of_receipts') : $locale->text('list_of_payments');
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
$report->set_options('top_info_text' => join("\n", @options),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
'std_column_visibility' => 1,
);
$report->set_options_from_form();
d319704a Moritz Bunkus
a873249c Moritz Bunkus
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';

c7581445 Moritz Bunkus
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
d319704a Moritz Bunkus
19688fca Moritz Bunkus
$report->set_export_options('list_payments', @hidden_variables, qw(sort sortdir));
d319704a Moritz Bunkus
94e596e5 Moritz Bunkus
$report->set_sort_indicator($form->{sort}, $form->{sortdir});
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my $total_paid = 0;
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
foreach my $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{PR} }) {
d319704a Moritz Bunkus
next unless @{ $form->{ $ref->{id} } };

c7581445 Moritz Bunkus
$report->add_control({ 'type' => 'colspan_data', 'data' => "$ref->{accno}--$ref->{description}" });
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my $subtotal_paid = 0;
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
foreach my $payment (@{ $form->{ $ref->{id} } }) {
my $module = $payment->{module};
d319704a Moritz Bunkus
$module = 'is' if ($payment->{invoice} && $payment->{module} eq 'ar');
$module = 'ir' if ($payment->{invoice} && $payment->{module} eq 'ap');

c7581445 Moritz Bunkus
$subtotal_paid += $payment->{paid};
$total_paid += $payment->{paid};
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
$payment->{paid} = $form->format_amount(\%myconfig, $payment->{paid}, 2);
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my $row = { };
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
foreach my $column (@columns) {
$row->{$column} = {
'data' => $payment->{$column},
'align' => $column_alignment{$column},
};
}
d319704a Moritz Bunkus
796b3881 Moritz Bunkus
$row->{invnumber}->{link} = build_std_url("script=${module}.pl", 'action=edit', 'id=' . E($payment->{id}), 'callback');

c7581445 Moritz Bunkus
$report->add_data($row);
d319704a Moritz Bunkus
}

c7581445 Moritz Bunkus
my $row = { map { $_ => { 'class' => 'listsubtotal' } } @columns };
$row->{paid} = {
'data' => $form->format_amount(\%myconfig, $subtotal_paid, 2),
'align' => 'right',
'class' => 'listsubtotal',
};
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
$report->add_data($row);
d319704a Moritz Bunkus
}

c7581445 Moritz Bunkus
$report->add_separator();
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
my $row = { map { $_ => { 'class' => 'listtotal' } } @columns };
$row->{paid} = {
'data' => $form->format_amount(\%myconfig, $total_paid, 2),
'align' => 'right',
'class' => 'listtotal',
};
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
$report->add_data($row);
d319704a Moritz Bunkus
c7581445 Moritz Bunkus
$report->generate_with_headers();
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}

sub print_options {
0c2be997 Sven Schöling
$::lxdebug->enter_sub;
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
my ($dont_print) = @_;

0c2be997 Sven Schöling
$::form->{sendmode} = "attachment";
$::form->{format} ||= $::myconfig{template_format} || "pdf";
$::form->{copies} ||= $::myconfig{copies} || 2;
a7403105 Moritz Bunkus
0c2be997 Sven Schöling
$::form->{PD}{ $::form->{type} } = "selected";
$::form->{DF}{ $::form->{format} } = "selected";
$::form->{OP}{ $::form->{media} } = "selected";
$::form->{SM}{ $::form->{sendmode} } = "selected";
d319704a Moritz Bunkus
0c2be997 Sven Schöling
my $output = $::form->parse_html_template('rp/print_options', {
is_email => $::form->{media} eq 'email',
});
d319704a Moritz Bunkus
8365e092 Moritz Bunkus
print $output unless $dont_print;

0c2be997 Sven Schöling
$::lxdebug->leave_sub;
8365e092 Moritz Bunkus
return $output;
d319704a Moritz Bunkus
}

sub generate_bwa {
11461cce Sven Schöling
$main::lxdebug->enter_sub();

$main::auth->assert('report');
8c7e4493 Moritz Bunkus
11461cce Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
8c7e4493 Moritz Bunkus
d319704a Moritz Bunkus
$form->{padding} = "&nbsp;&nbsp;";
$form->{bold} = "<b>";
$form->{endbold} = "</b>";
$form->{br} = "<br>";

if ($form->{reporttype} eq "custom") {

#forgotten the year --> thisyear
if ($form->{year} !~ m/^\d\d\d\d$/) {
$locale->date(\%myconfig, $form->current_date(\%myconfig), 0) =~
/(\d\d\d\d)/;
$form->{year} = $1;
}

#yearly report
if ($form->{duetyp} eq "13") {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.12.$form->{year}";
}

#Quater reports
if ($form->{duetyp} eq "A") {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.3.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.03.$form->{year}";
}
if ($form->{duetyp} eq "B") {
$form->{fromdate} = "1.4.$form->{year}";
$form->{todate} = "30.6.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "30.06.$form->{year}";
}
if ($form->{duetyp} eq "C") {
$form->{fromdate} = "1.7.$form->{year}";
$form->{todate} = "30.9.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "30.09.$form->{year}";
}
if ($form->{duetyp} eq "D") {
$form->{fromdate} = "1.10.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.12.$form->{year}";
}

#Monthly reports
SWITCH: {
$form->{duetyp} eq "1" && do {
$form->{fromdate} = "1.1.$form->{year}";
$form->{todate} = "31.1.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.01.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "2" && do {
$form->{fromdate} = "1.2.$form->{year}";

#this works from 1901 to 2099, 1900 and 2100 fail.
11461cce Sven Schöling
my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
d319704a Moritz Bunkus
$form->{todate} = "$leap.2.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "$leap.02.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "3" && do {
$form->{fromdate} = "1.3.$form->{year}";
$form->{todate} = "31.3.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.03.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "4" && do {
$form->{fromdate} = "1.4.$form->{year}";
$form->{todate} = "30.4.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "30.04.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "5" && do {
$form->{fromdate} = "1.5.$form->{year}";
$form->{todate} = "31.5.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.05.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "6" && do {
$form->{fromdate} = "1.6.$form->{year}";
$form->{todate} = "30.6.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "30.06.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "7" && do {
$form->{fromdate} = "1.7.$form->{year}";
$form->{todate} = "31.7.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.07.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "8" && do {
$form->{fromdate} = "1.8.$form->{year}";
$form->{todate} = "31.8.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.08.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "9" && do {
$form->{fromdate} = "1.9.$form->{year}";
$form->{todate} = "30.9.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "30.09.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "10" && do {
$form->{fromdate} = "1.10.$form->{year}";
$form->{todate} = "31.10.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.10.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "11" && do {
$form->{fromdate} = "1.11.$form->{year}";
$form->{todate} = "30.11.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "30.11.$form->{year}";
last SWITCH;
};
$form->{duetyp} eq "12" && do {
$form->{fromdate} = "1.12.$form->{year}";
$form->{todate} = "31.12.$form->{year}";
$form->{comparefromdate} = "1.01.$form->{year}";
$form->{comparetodate} = "31.12.$form->{year}";
last SWITCH;
};
}
02978267 Jan Büren
hotfix_reformat_date();
d319704a Moritz Bunkus
} else {
f68c0971 Jan Büren
# die konvertierungen nur dann durchführen, wenn auch daten gesetzt sind.
8001c18b Sven Schöling
# ansonsten ist die prüfung in RP.pm
f68c0971 Jan Büren
# if (defined ($form->{fromdate|todate}=='..'))
# immer wahr
if ($form->{fromdate}){
646cb2aa Moritz Bunkus
my $datetime = $locale->parse_date_to_object($form->{fromdate});
02978267 Jan Büren
$datetime->set( month => 1,
day => 1);
$form->{comparefromdate} = $locale->format_date(\%::myconfig, $datetime);
f68c0971 Jan Büren
}
if ($form->{todate}){
$form->{comparetodate} = $form->{todate};
}
d319704a Moritz Bunkus
}

RP->bwa(\%myconfig, \%$form);

($form->{department}) = split /--/, $form->{department};

$form->{period} =
$locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
$form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};

# if there are any dates construct a where
if ($form->{fromdate} || $form->{todate}) {

unless ($form->{todate}) {
$form->{todate} = $form->current_date(\%myconfig);
}

my %germandate = ("dateformat" => "dd.mm.yyyy");

11461cce Sven Schöling
my $longtodate = $locale->date(\%germandate, $form->{todate}, 1);
my $shorttodate = $locale->date(\%germandate, $form->{todate}, 0);
d319704a Moritz Bunkus
11461cce Sven Schöling
my $longfromdate = $locale->date(\%germandate, $form->{fromdate}, 1);
my $shortfromdate = $locale->date(\%germandate, $form->{fromdate}, 0);
d319704a Moritz Bunkus
54e4131e Moritz Bunkus
$form->{this_period} = "$shortfromdate\n$shorttodate";
d319704a Moritz Bunkus
$form->{period} =
$locale->text('for Period')
54e4131e Moritz Bunkus
. qq|\n$longfromdate |
d319704a Moritz Bunkus
. $locale->text('bis')
. qq| $longtodate|;
}

a7e23c08 Geoffrey Richardson
$form->{report_date} = $locale->text('Report date') . ": " . $form->current_date;
d319704a Moritz Bunkus
a7e23c08 Geoffrey Richardson
if ( $form->{method} eq 'cash' ) {
$form->{accounting_method} = $locale->text('Cash accounting');
} elsif ( $form->{method} eq 'accrual' ) {
$form->{accounting_method} = $locale->text('Accrual accounting');
} else {
$form->{accounting_method} = "";
};

$form->{title} = $locale->text('BWA');

7ee5fab8 Sven Schöling
$::request->layout->add_stylesheets('bwa.css');
a7e23c08 Geoffrey Richardson
$form->header;
print $form->parse_html_template('rp/bwa');
d319704a Moritz Bunkus
11461cce Sven Schöling
$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
}
02978267 Jan Büren
###
# Hotfix, um das Datumsformat, die unten hart auf deutsches Datumsformat eingestellt
# sind, entsprechend mit anderem Formaten (z.B. iso-kodiert) zum Laufen zu bringen (S.a.: Bug 1388)
sub hotfix_reformat_date {
00c4c994 Sven Schöling
02978267 Jan Büren
$main::lxdebug->enter_sub();
00c4c994 Sven Schöling
02978267 Jan Büren
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
00c4c994 Sven Schöling
02978267 Jan Büren
if ($myconfig{dateformat} ne 'dd.mm.yyyy'){
my $current_dateformat = $myconfig{dateformat};
$myconfig{dateformat} = 'dd.mm.yyyy';
$form->{fromdate} = $main::locale->reformat_date(\%myconfig, $form->{fromdate}, $current_dateformat);
$form->{todate} = $main::locale->reformat_date(\%myconfig, $form->{todate}, $current_dateformat);
$form->{comparefromdate} = $main::locale->reformat_date(\%myconfig, $form->{comparefromdate}, $current_dateformat)
unless (!defined ($form->{comparefromdate}));
$form->{comparetodate} = $main::locale->reformat_date(\%myconfig, $form->{comparetodate}, $current_dateformat)
unless (!defined ($form->{comparetodate}));

# Und wieder zurücksetzen
$myconfig{dateformat} = $current_dateformat; #'dd.mm.yyyy';
} # Ende Hotifx Bug 1388

$main::lxdebug->leave_sub();
d319704a Moritz Bunkus
02978267 Jan Büren
}
2d1ba4f4 Moritz Bunkus
sub setup_rp_aging_action_bar {
my %params = @_;

return unless $params{arap} eq 'ar';

for my $bar ($::request->layout->get('actionbar')) {
$bar->add(
combobox => [
action => [
t8('Print'),
call => [ 'kivi.SalesPurchase.show_print_dialog' ],
checks => [ [ 'kivi.check_if_entries_selected', '[name^=statement_]' ] ],
],
action => [
t8('E Mail'),
call => [ 'kivi.SalesPurchase.show_email_dialog', 'send_email' ],
checks => [ [ 'kivi.check_if_entries_selected', '[name^=statement_]' ] ],
],
],
);
}
}

sub setup_rp_report_action_bar {
my %params = @_;

for my $bar ($::request->layout->get('actionbar')) {
$bar->add(
action => [
t8('Continue'),
submit => [ '#form', { action => 'continue' } ],
accesskey => 'enter',
],
);
}
}

2dacd279 Sven Schöling
1;