X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frp.pl;h=45bbb4d0b070924a4429d86a4ea2d2a98031e564;hb=3b21dee36ce7c81b395e9c57629d57bf5bd640b9;hp=5099c899551d9d1171fd3fad1b3dfba6f841674b;hpb=09fe7f33a735ecc3f4a3112ad716f674983b00cc;p=kivitendo-erp.git diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl index 5099c8995..45bbb4d0b 100644 --- a/bin/mozilla/rp.pl +++ b/bin/mozilla/rp.pl @@ -14,8 +14,8 @@ # # Contributors: Antonio Gallardo # Benjamin Lee -# Philip Reetz -# Udo Spallek +# Philip Reetz +# Udo Spallek # # 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 @@ -160,10 +160,10 @@ sub report { } my $department = qq| - - | . $locale->text('Department') . qq| - - + + | . $locale->text('Department') . qq| + + | if $form->{selectdepartment}; $form->get_lists("projects" => { "key" => "ALL_PROJECTS", @@ -279,30 +279,30 @@ sub report { if ($form->{report} eq "projects") { print qq| - - | . $locale->text('Project') . qq| - - + + | . $locale->text('Project') . qq| + + - | . $locale->text('From') . qq| + | . $locale->text('From') . qq| $button1 $button1_2 - | . $locale->text('Bis') . qq| + | . $locale->text('Bis') . qq| $button2 $button2_2 - + - - - - + + + + $jsscript |; @@ -310,86 +310,86 @@ $jsscript if ($form->{report} eq "income_statement") { print qq| - - - - + + + +
| . $locale->text('Include in Report') . qq| | . $locale->text('Heading') . qq| -  | . $locale->text('Subtotal') . qq|
| . $locale->text('Include in Report') . qq| | . $locale->text('Heading') . qq| +  | . $locale->text('Subtotal') . qq|
| . $locale->text('Project') . qq|$projectnumber
| . $locale->text('Project') . qq|$projectnumber
- - - - - - - + + + + + + + |; print qq| - - - - - - - - + + + + + + + + |; $checked = ""; print qq| - + |; $checked = ""; print qq| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - + + + + + + + $jsscript |; @@ -397,87 +397,87 @@ $jsscript if ($form->{report} eq "bwa") { print qq| - - - - + + + +
| . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq|
| . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq|
| . $locale->text('Yearly') . qq| | . $locale->text('Quarterly') . qq|| . $locale->text('Monthly') . qq|
   1. | . $locale->text('Quarter') . qq|
| . $locale->text('Yearly') . qq| | . $locale->text('Quarterly') . qq|| . $locale->text('Monthly') . qq|
   1. | . $locale->text('Quarter') . qq| | . $locale->text('January') . qq| | . $locale->text('January') . qq| | . $locale->text('May') . qq| | . $locale->text('September') . qq|
  2. | . $locale->text('Quarter') . qq| | . $locale->text('February') . qq| | . $locale->text('June') . qq| | . $locale->text('October') . qq|
  3. | . $locale->text('Quarter') . qq| | . $locale->text('March') . qq| | . $locale->text('July') . qq| | . $locale->text('November') . qq|
  4. | . $locale->text('Quarter') . qq|  | . $locale->text('April') . qq| | . $locale->text('August') . qq| | . $locale->text('December') . qq|

 | . $locale->text('May') . qq| | . $locale->text('September') . qq|
  2. | . $locale->text('Quarter') . qq| | . $locale->text('February') . qq| | . $locale->text('June') . qq| | . $locale->text('October') . qq|
  3. | . $locale->text('Quarter') . qq| | . $locale->text('March') . qq| | . $locale->text('July') . qq| | . $locale->text('November') . qq|
  4. | . $locale->text('Quarter') . qq|  | . $locale->text('April') . qq| | . $locale->text('August') . qq| | . $locale->text('December') . qq|

| . $locale->text('Free report period') . qq|| . $locale->text('From') . qq|  - $button1 + | . $locale->text('From') . qq|  + $button1 $button1_2  - | . $locale->text('Bis') . qq| + | . $locale->text('Bis') . qq| $button2 $button2_2 

| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| -  | . $locale->text('EUR') . qq|

| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| +  | . $locale->text('EUR') . qq|
| . $locale->text('Project') . qq|$projectnumber
| . $locale->text('Project') . qq|$projectnumber
- - - - - - - + + + + + + + |; print qq| - - - - - - - + + + + + - + |; $checked = "checked"; print qq| - + |; $checked = ""; print qq| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - + + + + + + + @@ -490,40 +490,40 @@ $jsscript if ($form->{report} eq "balance_sheet") { print qq| - - - + + - - + - - - - - + + + + +
| . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq|
| . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq|
| . $locale->text('Yearly') . qq| | . $locale->text('Quarterly') . qq|| . $locale->text('Monthly') . qq|
  + | . $locale->text('Yearly') . qq| | . $locale->text('Quarterly') . qq|| . $locale->text('Monthly') . qq|
   1. | . $locale->text('Quarter') . qq| 1. | . $locale->text('Quarter') . qq| | . $locale->text('January') . qq| | . $locale->text('January') . qq| | . $locale->text('May') . qq| | . $locale->text('September') . qq|
  2. | . $locale->text('Quarter') . qq| | . $locale->text('February') . qq| | . $locale->text('June') . qq| | . $locale->text('October') . qq|
  3. | . $locale->text('Quarter') . qq| | . $locale->text('March') . qq| | . $locale->text('July') . qq| | . $locale->text('November') . qq|
  4. | . $locale->text('Quarter') . qq|  | . $locale->text('April') . qq| | . $locale->text('August') . qq| | . $locale->text('December') . qq|

 | . $locale->text('May') . qq| | . $locale->text('September') . qq|
  2. | . $locale->text('Quarter') . qq| | . $locale->text('February') . qq| | . $locale->text('June') . qq| | . $locale->text('October') . qq|
  3. | . $locale->text('Quarter') . qq| | . $locale->text('March') . qq| | . $locale->text('July') . qq| | . $locale->text('November') . qq|
  4. | . $locale->text('Quarter') . qq|  | . $locale->text('April') . qq| | . $locale->text('August') . qq| | . $locale->text('December') . qq|

| . $locale->text('Free report period') . qq|| . $locale->text('From') . qq|  - $button1 + | . $locale->text('From') . qq|  + $button1 $button1_2  - | . $locale->text('Bis') . qq|  - $button2 + | . $locale->text('Bis') . qq|  + $button2 $button2_2

| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| -  | . $locale->text('EUR') . qq|

| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| +  | . $locale->text('EUR') . qq|
| . $locale->text('Decimalplaces') . qq|
| . $locale->text('as at') . qq| +
| . $locale->text('as at') . qq| $button1 $button1_2 | . $locale->text('Compare to') . qq| + | . $locale->text('Compare to') . qq| $button2 $button2_2
| . $locale->text('Decimalplaces') . qq|
| . $locale->text('Decimalplaces') . qq|
- - - - - - - - - + + + + + + + + + $jsscript |; @@ -531,86 +531,86 @@ $jsscript if ($form->{report} eq "trial_balance") { print qq| - - - - + + + +
| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| -  | . $locale->text('EUR') . qq|
| . $locale->text('Include in Report') . qq| | . $locale->text('Heading') . qq| -  | . $locale->text('Subtotal') . qq| -  | . $locale->text('Account Number') . qq|
| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| +  | . $locale->text('EUR') . qq|
| . $locale->text('Include in Report') . qq| | . $locale->text('Heading') . qq| +  | . $locale->text('Subtotal') . qq| +  | . $locale->text('Account Number') . qq|
| . $locale->text('Project') . qq|$projectnumber
| . $locale->text('Project') . qq|$projectnumber
- - - - - - - + + + + + + + |; print qq| - - - - - - - - + + + + + + + + |; $checked = "checked"; print qq| - + |; $checked = ""; print qq| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - + + + + + + + @@ -631,15 +631,15 @@ $jsscript print qq| - - - - - - - - - + + + + + + + + - - - - - + + + + + +
| . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq|
| . $locale->text('Customized Report') . qq|
| . $locale->text('Year') . qq|
| . $locale->text('Yearly') . qq| | . $locale->text('Quarterly') . qq|| . $locale->text('Monthly') . qq|
   1. | . $locale->text('Quarter') . qq|
| . $locale->text('Yearly') . qq| | . $locale->text('Quarterly') . qq|| . $locale->text('Monthly') . qq|
   1. | . $locale->text('Quarter') . qq| | . $locale->text('January') . qq| | . $locale->text('January') . qq| | . $locale->text('May') . qq| | . $locale->text('September') . qq|
  2. | . $locale->text('Quarter') . qq| | . $locale->text('February') . qq| | . $locale->text('June') . qq| | . $locale->text('October') . qq|
  3. | . $locale->text('Quarter') . qq| | . $locale->text('March') . qq| | . $locale->text('July') . qq| | . $locale->text('November') . qq|
  4. | . $locale->text('Quarter') . qq|  | . $locale->text('April') . qq| | . $locale->text('August') . qq| | . $locale->text('December') . qq|

 | . $locale->text('May') . qq| | . $locale->text('September') . qq|
  2. | . $locale->text('Quarter') . qq| | . $locale->text('February') . qq| | . $locale->text('June') . qq| | . $locale->text('October') . qq|
  3. | . $locale->text('Quarter') . qq| | . $locale->text('March') . qq| | . $locale->text('July') . qq| | . $locale->text('November') . qq|
  4. | . $locale->text('Quarter') . qq|  | . $locale->text('April') . qq| | . $locale->text('August') . qq| | . $locale->text('December') . qq|

| . $locale->text('Free report period') . qq|| . $locale->text('From') . qq|  - $button1 + | . $locale->text('From') . qq|  + $button1 $button1_2  - | . $locale->text('Bis') . qq|  - $button2 + | . $locale->text('Bis') . qq|  + $button2 $button2_2

| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| -  | . $locale->text('EUR') . qq|

| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| +  | . $locale->text('EUR') . qq|
| . $locale->text('All Accounts') . qq|
| . $locale->text('From') . qq|{fromdate}>| . $locale->text('Bis') . qq|
| . $locale->text('Report for') . qq| +
| . $locale->text('From') . qq|{fromdate}>| . $locale->text('Bis') . qq|
| . $locale->text('Report for') . qq| |; $checked = "checked"; @@ -659,13 +659,13 @@ $jsscript {db}> -
| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| -  | . $locale->text('EUR') . qq|
| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| +  | . $locale->text('EUR') . qq|
@@ -673,20 +673,20 @@ $jsscript - - + |; } @@ -724,34 +724,34 @@ $jsscript {report}> - - - - - - - - - + + + + + + + + - - - - + |; } @@ -802,25 +802,25 @@ $jsscript : qq|{vc} size=35>|; print qq| - - - - - - + + + + + - + - + - - + + $jsscript |; @@ -845,44 +845,44 @@ $jsscript print qq| - + - + + + - + - + - + - + - + - - - - + + + - - + - + - - + + $jsscript - {db}> - + {db}> + |; } @@ -1819,7 +1819,7 @@ sub e_mail { if ($myconfig{role} eq 'admin') { $bcc = qq| - + |; } @@ -1843,16 +1843,16 @@ sub e_mail { @@ -1860,11 +1860,11 @@ sub e_mail { @@ -2070,9 +2070,9 @@ sub print_form { # saving the history if(!exists $form->{addition} && $form->{id} ne "") { $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; - $form->{addition} = "PRINTED"; - $form->{what_done} = $form->{type}; - $form->save_history($form->dbconnect(\%myconfig)); + $form->{addition} = "PRINTED"; + $form->{what_done} = $form->{type}; + $form->save_history($form->dbconnect(\%myconfig)); } # /saving the history $main::lxdebug->leave_sub(); @@ -2223,13 +2223,13 @@ sub generate_tax_report {
| . $locale->text('Include in Report') . qq| - - - - - - - - - - - - + - + + + + + + + + + + +
| . $locale->text('ID') . qq|| . $locale->text('Invoice') . qq|| . $locale->text('Date') . qq|
|; + | . $locale->text('Include in Report') . qq| + + + + + + + + + + + + - - - - - - - - - - -
| . $locale->text('ID') . qq|| . $locale->text('Invoice') . qq|| . $locale->text('Date') . qq|
|; if ($form->{db} eq 'ar') { print $locale->text('Customer'); @@ -697,19 +697,19 @@ $jsscript print qq| | . $locale->text('Amount') . qq|| . $locale->text('Tax') . qq|| . $locale->text('Total') . qq|
| . $locale->text('Subtotal') . qq|
-
| . $locale->text('Amount') . qq|| . $locale->text('Tax') . qq|| . $locale->text('Total') . qq|
| . $locale->text('Subtotal') . qq|
+
| . $locale->text('From') . qq|{fromdate}>| . $locale->text('Bis') . qq|
| . $locale->text('Method') . qq|| +
| . $locale->text('From') . qq|{fromdate}>| . $locale->text('Bis') . qq|
| . $locale->text('Method') . qq|| . $locale->text('Accrual') . qq| -  | +  | . $locale->text('EUR') . qq|
| . $locale->text('Include in Report') . qq| - - - - - - - - - - - - + + + - + + + + + + + + +
| . $locale->text('ID') . qq|| . $locale->text('Invoice') . qq|| . $locale->text('Date') . qq|
|; +
| . $locale->text('Include in Report') . qq| + + + + + + + + + + + + - - - - - - - - -
| . $locale->text('ID') . qq|| . $locale->text('Invoice') . qq|| . $locale->text('Date') . qq|
|; if ($form->{db} eq 'ar') { print $locale->text('Customer'); @@ -762,17 +762,17 @@ $jsscript print qq| | . $locale->text('Amount') . qq|| . $locale->text('Total') . qq|
| . $locale->text('Subtotal') . qq|
-
| . $locale->text('Amount') . qq|| . $locale->text('Total') . qq|
| . $locale->text('Subtotal') . qq|
+
| . $locale->text($label) . qq|$vc
| . $locale->text('From') . qq|  - $button1 +
| . $locale->text($label) . qq|$vc
| . $locale->text('From') . qq|  + $button1 $button1_2  - | . $locale->text('Bis') . qq|  - $button2 + | . $locale->text('Bis') . qq|  + $button2 $button2_2
| . $locale->text('Account') . qq|| . $locale->text('Account') . qq| - -
| . $locale->text('Reference') . qq|| . $locale->text('Reference') . qq|
| . $locale->text('Source') . qq|| . $locale->text('Source') . qq|
| . $locale->text('Memo') . qq|| . $locale->text('Memo') . qq|
| . $locale->text('From') . qq| +
| . $locale->text('From') . qq| $button1 $button1_2 | . $locale->text('Bis') . qq| + | . $locale->text('Bis') . qq| $button2 $button2_2
| . $locale->text('Include Exchangerate Difference') . qq| -
| . $locale->text('Include Exchangerate Difference') . qq| +
| . $locale->text('Bcc') . qq| - - - - - - - - - $bcc - + + + + + + + + + $bcc +
| . $locale->text('E-mail') . qq|| . $locale->text('Cc') . qq|
| . $locale->text('Subject') . qq|
| . $locale->text('E-mail') . qq|| . $locale->text('Cc') . qq|
| . $locale->text('Subject') . qq|
- - - - - + + + + +
| . $locale->text('Message') . qq|
| . $locale->text('Message') . qq|
- + |; map { print "$column_header{$_}\n" } @column_index; print qq| - + |; # add sort and escape callback @@ -2276,13 +2276,13 @@ sub generate_tax_report { $i++; $i %= 2; print qq| - + |; map { print "$column_data{$_}\n" } @column_index; print qq| - + |; } @@ -2295,7 +2295,7 @@ sub generate_tax_report { print qq| - + |; my $total = $form->format_amount(\%myconfig, $totalnetamount + $totaltax, 2, " "); @@ -2346,7 +2346,7 @@ sub tax_subtotal { $subtotaltax = 0; print qq| - + |; map { print "\n$column_data{$_}" } @column_index; @@ -2516,21 +2516,18 @@ sub print_options { my ($media); my $type = qq| -