X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Frp.pl;h=731a060fd0ed837d87dbe80bf66a3c8116a00ce4;hb=eeb07c164e0c3398f14372308b404fb07e2102cf;hp=c06e79b4d34c16f85f5fdf989bb83192033caeb3;hpb=3da2dca2e601b311b6e464ffff02bfe98a7024d1;p=kivitendo-erp.git
diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index c06e79b4d..731a060fd 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -39,7 +39,6 @@ use POSIX qw(strftime);
use SL::PE;
use SL::RP;
-use SL::USTVA;
use SL::Iconv;
use SL::ReportGenerator;
@@ -92,9 +91,32 @@ require "bin/mozilla/reportgenerator.pl";
# $locale->text('Non-taxable Sales')
# $locale->text('Non-taxable Purchases')
+# $form->parse_html_template('rp/html_report_susa')
+
+my $rp_access_map = {
+ 'projects' => 'report',
+ 'ar_aging' => 'general_ledger',
+ 'ap_aging' => 'general_ledger',
+ 'receipts' => 'cash',
+ 'payments' => 'cash',
+ 'trial_balance' => 'report',
+ 'income_statement' => 'report',
+ 'bwa' => 'report',
+ 'balance_sheet' => 'report',
+};
+
+sub check_rp_access {
+ my $right = $rp_access_map->{$form->{report}};
+ $right ||= 'DOES_NOT_EXIST';
+
+ $auth->assert($right);
+}
+
sub report {
$lxdebug->enter_sub();
+ check_rp_access();
+
%title = ('balance_sheet' => 'Balance Sheet',
'income_statement' => 'Income Statement',
'trial_balance' => 'Trial Balance',
@@ -107,8 +129,7 @@ sub report {
'receipts' => 'Receipts',
'payments' => 'Payments',
'projects' => 'Project Transactions',
- 'bwa' => 'Betriebswirtschaftliche Auswertung',
- 'ustva' => 'Umsatzsteuervoranmeldung',);
+ 'bwa' => 'Betriebswirtschaftliche Auswertung',);
$form->{title} = $locale->text($title{ $form->{report} });
@@ -153,49 +174,43 @@ sub report {
# use JavaScript Calendar or not
$form->{jsscript} = 1;
$jsscript = "";
- if ($form->{report} eq "ustva") {
- $department = "";
+ if ($form->{report} eq "balance_sheet") {
+ $name_1 = "asofdate";
+ $id_1 = "asofdate";
+ $value_1 = "$form->{asofdate}";
+ $trigger_1 = "trigger1";
+ $name_2 = "compareasofdate";
+ $id_2 = "compareasofdate";
+ $value_2 = "$form->{compareasofdate}";
+ $trigger_2 = "trigger2";
+ } elsif ($form->{report} =~ /(receipts|payments)$/) {
+ $name_1 = "fromdate";
+ $id_1 = "fromdate";
+ $value_1 = "$form->{fromdate}";
+ $trigger_1 = "trigger1";
+ $name_2 = "todate";
+ $id_2 = "todate";
+ $value_2 = "";
+ $trigger_2 = "trigger2";
+ } elsif (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {
+ $name_1 = "";
+ $id_1 = "";
+ $value_1 = "";
+ $trigger_1 = "";
+ $name_2 = "todate";
+ $id_2 = "todate";
+ $value_2 = "";
+ $trigger_2 = "trigger2";
+
} else {
- if ($form->{report} eq "balance_sheet") {
- $name_1 = "asofdate";
- $id_1 = "asofdate";
- $value_1 = "$form->{asofdate}";
- $trigger_1 = "trigger1";
- $name_2 = "compareasofdate";
- $id_2 = "compareasofdate";
- $value_2 = "$form->{compareasofdate}";
- $trigger_2 = "trigger2";
- } elsif ($form->{report} =~ /(receipts|payments)$/) {
- $name_1 = "fromdate";
- $id_1 = "fromdate";
- $value_1 = "$form->{fromdate}";
- $trigger_1 = "trigger1";
- $name_2 = "todate";
- $id_2 = "todate";
- $value_2 = "";
- $trigger_2 = "trigger2";
- } else {
- if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {
- $name_1 = "";
- $id_1 = "";
- $value_1 = "";
- $trigger_1 = "";
- $name_2 = "todate";
- $id_2 = "todate";
- $value_2 = "";
- $trigger_2 = "trigger2";
-
- } else {
- $name_1 = "fromdate";
- $id_1 = "fromdate";
- $value_1 = "$form->{fromdate}";
- $trigger_1 = "trigger1";
- $name_2 = "todate";
- $id_2 = "todate";
- $value_2 = "";
- $trigger_2 = "trigger2";
- }
- }
+ $name_1 = "fromdate";
+ $id_1 = "fromdate";
+ $value_1 = "$form->{fromdate}";
+ $trigger_1 = "trigger1";
+ $name_2 = "todate";
+ $id_2 = "todate";
+ $value_2 = "";
+ $trigger_2 = "trigger2";
}
# with JavaScript Calendar
@@ -524,17 +539,65 @@ $jsscript
|;
}
- if ($form->{report} eq "ustva") {
-
+ if ($form->{report} eq "balance_sheet") {
print qq|
+
+
+ | . $locale->text('as at') . qq| |
+
+ $button1
+ $button1_2
+ |
+ | . $locale->text('Compare to') . qq| |
+
+ $button2
+ $button2_2
+ |
+
+
+ | . $locale->text('Decimalplaces') . qq| |
+ |
+
+
+
+
+
+
+
- |
-
-
-
-
- |
-
-
-
-
-{login}>
-{password}>
-
-|;
-
- # Hier Aufruf von get_config zum Einlesen der Finanzamtdaten
- USTVA->get_config($userspath, 'finanzamt.ini');
-
- $disabled = qq|disabled="disabled"|;
- $disabled = '' if ($form->{elster} eq '1');
- if ($form->{report} eq 'ustva') {
- print qq|
-
-
- |;
- print qq|
-
- |;
- }
- print qq|
|