X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frp.pl;h=848ec62baed3981fd79e80af34a8bc061c7ec8fc;hb=da10bf753ae49b8322e79fc1bb9276a092403b9a;hp=32ec6efb0073ab1bce035eff4fa29404bf93c067;hpb=8d19aa002666b22761822ba2fdc8be4ee204c5f1;p=kivitendo-erp.git
diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 32ec6efb0..848ec62ba 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -36,9 +36,11 @@
#======================================================================
require "$form->{path}/arap.pl";
+require "bin/mozilla/common.pl";
use SL::PE;
use SL::RP;
+use SL::USTVA;
1;
@@ -130,6 +132,21 @@ sub report {
| if $form->{selectdepartment};
+ $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
+ "all" => 1 });
+
+ my %project_labels = ();
+ my @project_values = ("");
+ foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
+ push(@project_values, $item->{"id"});
+ $project_labels{$item->{"id"}} = $item->{"projectnumber"};
+ }
+
+ my $projectnumber =
+ NTI($cgi->popup_menu('-name' => "project_id",
+ '-values' => \@project_values,
+ '-labels' => \%project_labels));
+
# use JavaScript Calendar or not
$form->{jsscript} = $jscalendar;
$jsscript = "";
@@ -269,8 +286,7 @@ sub report {
|
- . $locale->text('Customized Report')
- . qq| |
+ . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq| |
|
+ . $locale->text('YYYY') . qq|" value="$year">
|;
@@ -440,70 +434,54 @@ $jsscript
|
1. |
- . $locale->text('Quarter')
- . qq| |
+ . $locale->text('Quarter') . qq|
|;
$checked = "checked";
print qq|
|
- . $locale->text('January')
- . qq| |
+ . $locale->text('January') . qq|
|;
$checked = "";
print qq|
|
- . $locale->text('May')
- . qq| |
+ . $locale->text('May') . qq|
|
- . $locale->text('September')
- . qq| |
+ . $locale->text('September') . qq|
|
2. |
- . $locale->text('Quarter')
- . qq| |
+ . $locale->text('Quarter') . qq|
|
- . $locale->text('February')
- . qq| |
+ . $locale->text('February') . qq|
|
- . $locale->text('June')
- . qq| |
+ . $locale->text('June') . qq|
|
- . $locale->text('October')
- . qq| |
+ . $locale->text('October') . qq|
|
3. |
- . $locale->text('Quarter')
- . qq| |
+ . $locale->text('Quarter') . qq|
|
- . $locale->text('March')
- . qq| |
+ . $locale->text('March') . qq|
|
- . $locale->text('July')
- . qq| |
+ . $locale->text('July') . qq|
|
- . $locale->text('November')
- . qq| |
+ . $locale->text('November') . qq|
|
4. |
- . $locale->text('Quarter')
- . qq| |
+ . $locale->text('Quarter') . qq|
|
- . $locale->text('April')
- . qq| |
+ . $locale->text('April') . qq|
|
- . $locale->text('August')
- . qq| |
+ . $locale->text('August') . qq|
|
- . $locale->text('December')
- . qq| |
+ . $locale->text('December') . qq|
@@ -511,8 +489,7 @@ $checked>
|
- . $locale->text('Free report period')
- . qq| |
+ . $locale->text('Free report period') . qq|
| . $locale->text('From') . qq|
$button1
$button1_2
@@ -529,12 +506,13 @@ $checked> |
|
. $locale->text('Accrual') . qq|
|
- . $locale->text('EUR')
- . qq| |
+ . $locale->text('EUR') . qq|
- | . $locale->text('Decimalplaces') . qq| |
- |
+ |
+ . $locale->text('Decimalplaces')
+ . qq| |
+ |
$jsscript
@@ -551,14 +529,12 @@ $jsscript
@@ -691,8 +650,7 @@ $checked>
|
. $locale->text('Accrual') . qq|
|
- . $locale->text('EUR')
- . qq| |
+ . $locale->text('EUR') . qq|
@@ -702,8 +660,7 @@ $checked>
|
. $locale->text('Subtotal') . qq|
|
- . $locale->text('Account Number')
- . qq|
+ . $locale->text('Account Number') . qq|
$jsscript
@@ -739,8 +696,7 @@ $jsscript
|
. $locale->text('Subtotal') . qq|
|
- . $locale->text('All Accounts')
- . qq|
+ . $locale->text('All Accounts') . qq|
$jsscript
@@ -748,8 +704,6 @@ $jsscript
}
if ($form->{report} =~ /^tax_/) {
- $gifi = "";
-
$form->{db} = ($form->{report} =~ /_collected/) ? "ar" : "ap";
RP->get_taxaccounts(\%myconfig, \%$form);
@@ -786,39 +740,12 @@ $jsscript
-|;
-
- if (@{ $form->{gifi_taxaccounts} }) {
- print qq|
-
- | . $locale->text('GIFI') . qq| |
-
-|;
-
- foreach $ref (@{ $form->{gifi_taxaccounts} }) {
-
- print
- qq| $ref->{description}
-
-
- |;
-
- }
-
- print qq|
- |
-
-|;
- }
-
- print qq|
| . $locale->text('Method') . qq| |
|
. $locale->text('Accrual') . qq|
|
- . $locale->text('EUR')
- . qq| |
+ . $locale->text('EUR') . qq|
@@ -869,8 +796,6 @@ $jsscript
}
if ($form->{report} =~ /^nontaxable_/) {
- $gifi = "";
-
$form->{db} = ($form->{report} =~ /_sales/) ? "ar" : "ap";
print qq|
@@ -891,8 +816,7 @@ $jsscript