X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fgl.pl;h=b6d9448287aecb53dfed9d9a52c86b7e4161d725;hb=98662ad2b031a81c88ce6da0babf6f9d0b37059a;hp=d0616ab1a4ed15d550fef6ecc9d8817ec58a7070;hpb=eb173d13dbd63cd2fdbeae93edf8dcb61900e0c9;p=kivitendo-erp.git

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index d0616ab1a..b6d944828 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -766,11 +766,11 @@ sub generate_report {
     }
 
     $transdate = "";
-    foreach $key (sort keys(%{ $ref->{transdate} })) {
+    foreach $key (sort keys(%{ $ref->{ac_transdate} })) {
       if ($key == 0) {
-        $transdate = "$ref->{transdate}{$key}";
+        $transdate = "$ref->{ac_transdate}{$key}";
       } else {
-        $transdate .= "<br>$ref->{transdate}{$key}";
+        $transdate .= "<br>$ref->{ac_transdate}{$key}";
       }
     }
 
@@ -1086,58 +1086,77 @@ sub display_rows {
 
   my %chart_labels = ();
   my @chart_values = ();
+  my %charts = ();
   my $taxchart_init;
   foreach my $item (@{ $form->{ALL_CHARTS} }) {
     my $key = Q($item->{accno}) . "--" . Q($item->{tax_id});
     $taxchart_init = $item->{taxkey_id} unless (@chart_values);
     push(@chart_values, $key);
     $chart_labels{$key} = H($item->{accno}) . "--" . H($item->{description});
+    $charts{$item->{accno}} = $item;
   }
 
   my %taxchart_labels = ();
   my @taxchart_values = ();
+  my %taxcharts = ();
   foreach my $item (@{ $form->{ALL_TAXCHARTS} }) {
     my $key = Q($item->{id}) . "--" . Q($item->{rate});
     $taxchart_init = $key if ($taxchart_init eq $item->{taxkey});
     push(@taxchart_values, $key);
     $taxchart_labels{$key} = H($item->{taxdescription}) . " " .
       H($item->{rate} * 100) . ' %';
+    $taxcharts{$item->{id}} = $item;
   }
 
   for $i (1 .. $form->{rowcount}) {
 
     $source = qq|
-    <td><input name="source_$i" value="$form->{"source_$i"}" size="16" tabindex=|
-      . ($i + 11 + (($i - 1) * 8)) . qq|></td>|;
+    <td><input name="source_$i" value="$form->{"source_$i"}" size="16"></td>|;
     $memo = qq|
-    <td><input name="memo_$i" value="$form->{"memo_$i"}" size="16" tabindex=|
-      . ($i + 12 + (($i - 1) * 8)) . qq|></td>|;
+    <td><input name="memo_$i" value="$form->{"memo_$i"}" size="16"></td>|;
+
+    my $selected_accno_full;
+    my ($accno_row) = split(/--/, $form->{"accno_$i"});
+    my $item = $charts{$accno_row};
+    $selected_accno_full = "$item->{accno}--$item->{tax_id}";
+
+    my $selected_taxchart = $form->{"taxchart_$i"};
+    my ($selected_accno, $selected_tax_id) = split(/--/, $selected_accno_full);
+    my ($previous_accno, $previous_tax_id) = split(/--/, $form->{"previous_accno_$i"});
+
+    if ($previous_accno &&
+        ($previous_accno eq $selected_accno) &&
+        ($previous_tax_id ne $selected_tax_id)) {
+      my $item = $taxcharts{$selected_tax_id};
+      $selected_taxchart = "$item->{id}--$item->{rate}";
+    }
+
+    $selected_accno = '' if ($init);
+    $selected_taxchart = $taxchart_init unless ($selected_taxchart ne "");
 
     $accno = qq|<td>| .
-      $cgi->popup_menu('-name' => "accno_$i",
-                       '-id' => "accno_$i",
-                       '-onChange' => "setTaxkey(this, $i)",
-                       '-style' => 'width:200px',
-                       '-tabindex' => ($i + 5 + (($i - 1) * 8)),
-                       '-values' => \@chart_values,
-                       '-labels' => \%chart_labels,
-                       '-default' => $init ? '' : $form->{"accno_$i"})
+      NTI($cgi->popup_menu('-name' => "accno_$i",
+                           '-id' => "accno_$i",
+                           '-onChange' => "setTaxkey(this, $i)",
+                           '-style' => 'width:200px',
+                           '-values' => \@chart_values,
+                           '-labels' => \%chart_labels,
+                           '-default' => $selected_accno_full))
+      . $cgi->hidden('-name' => "previous_accno_$i",
+                     '-default' => $selected_accno_full)
       . qq|</td>|;
     $tax = qq|<td>| .
-      $cgi->popup_menu('-name' => "taxchart_$i",
-                       '-id' => "taxchart_$i",
-                       '-style' => 'width:200px',
-                       '-tabindex' => ($i + 10 + (($i - 1) * 8)),
-                       '-values' => \@taxchart_values,
-                       '-labels' => \%taxchart_labels,
-                       '-default' => $init ? $taxchart_init : $form->{"taxchart_$i"})
+      NTI($cgi->popup_menu('-name' => "taxchart_$i",
+                           '-id' => "taxchart_$i",
+                           '-style' => 'width:200px',
+                           '-values' => \@taxchart_values,
+                           '-labels' => \%taxchart_labels,
+                           '-default' => $selected_taxchart))
       . qq|</td>|;
 
     if ($init) {
       $korrektur =
-        qq|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=|
-        . ($i + 9 + (($i - 1) * 8))
-        . qq|></td>|;
+        qq|<td><input type="checkbox" name="korrektur_$i" value="1"</td>|;
       if ($form->{transfer}) {
         $fx_transaction = qq|
         <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
@@ -1174,16 +1193,12 @@ sub display_rows {
         }
         $checked = ($form->{"korrektur_$i"}) ? "checked" : "";
         $korrektur =
-          qq|<td><input type="checkbox" name="korrektur_$i" value="1" $checked tabindex=|
-          . ($i + 9 + (($i - 1) * 8))
-          . qq|></td>|;
+          qq|<td><input type="checkbox" name="korrektur_$i" value="1" $checked></td>|;
         $form->hide_form("accno_$i");
 
       } else {
         $korrektur =
-          qq|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=|
-          . ($i + 9 + (($i - 1) * 8))
-          . qq|></td>|;
+          qq|<td><input type="checkbox" name="korrektur_$i" value="1"></td>|;
         if ($form->{transfer}) {
           $fx_transaction = qq|
       <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
@@ -1210,12 +1225,9 @@ sub display_rows {
     print qq|<tr valign=top>
     $accno
     $fx_transaction
-    <td><input name="debit_$i" size=8 value="$form->{"debit_$i"}" accesskey=$i tabindex=|
-      . ($i + 6 + (($i - 1) * 8)) . qq| $debitreadonly></td>
-    <td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" tabindex=|
-      . ($i + 7 + (($i - 1) * 8)) . qq| $creditreadonly></td>
-    <td><input name="tax_$i" size=6 value="$form->{"tax_$i"}" tabindex=|
-      . ($i + 8 + (($i - 1) * 8)) . qq|></td>
+    <td><input name="debit_$i" size=8 value="$form->{"debit_$i"}" accesskey=$i $debitreadonly></td>
+    <td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" $creditreadonly></td>
+    <td><input name="tax_$i" size=6 value="$form->{"tax_$i"}"></td>
     $korrektur
     $tax
     $source
@@ -1273,7 +1285,7 @@ sub form_header {
       qq|<textarea name=description rows=$rows cols=50 wrap=soft $readonly >$form->{description}</textarea>|;
   } else {
     $description =
-      qq|<input name=description size=50 value="$form->{description}" tabindex="3" $readonly>|;
+      qq|<input name=description size=50 value="$form->{description}" $readonly>|;
   }
 
   $taxincluded = ($form->{taxincluded}) ? "checked" : "";
@@ -1302,7 +1314,7 @@ sub form_header {
 
     # with JavaScript Calendar
     $button1 = qq|
-       <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" tabindex="2" $readonly>
+       <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly>
        <input type=button name=transdate id="trigger1" value=|
       . $locale->text('button') . qq|></td>  
        |;
@@ -1314,7 +1326,7 @@ sub form_header {
 
     # without JavaScript Calendar
     $button1 =
-      qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" tabindex="2" $readonly></td>|;
+      qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly></td>|;
   }
 
   $form->header;
@@ -1341,7 +1353,7 @@ sub form_header {
       <table width=100%>
 	<tr>
 	  <th align=left>| . $locale->text('Reference') . qq|</th>
-	  <td><input name=reference size=20 value="$form->{reference}" tabindex="1" $readonly></td>
+	  <td><input name=reference size=20 value="$form->{reference}" $readonly></td>
 	  <td align=left>
 	    <table>
 	      <tr>
@@ -1377,7 +1389,7 @@ sub form_header {
 	    <table>
 	      <tr>
 		<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
-		<td><input type=checkbox name=taxincluded value=1 tabindex="5" $taxincluded></td>
+		<td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
 	      </tr>
 	    </table>
 	 </td>
@@ -1399,7 +1411,7 @@ sub form_header {
 	    <table>
 	      <tr>
 		<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
-		<td><input type=checkbox name=taxincluded value=1 tabindex="5" $taxincluded></td>
+		<td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
 	      </tr>
 	    </table>
 	 </td>