Zu #ed9b1bfb7 chart_link _paid (Zahlungsein- /ausgang). statt nur AR_paid

[mfinanz.git] / bin / mozilla / gl.pl

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index f351a9dfcc5905ae0f8073486f8adcb745af450d..cca3eca5427846a05a1358a11150e7d58e3f5a4b 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -917,6 +917,12 @@ sub display_rows {
     my $copy2credit = $i == 1 ? 'onkeyup="copy_debit_to_credit()"' : '';
     my $balance     = $form->format_amount(\%::myconfig, $balances{$accno_id} // 0, 2, 'DRCR');
 
+    # if we have a bt_chart_id we disallow changing the amount of the bank account
+    if ($form->{bt_chart_id}) {
+      $debitreadonly = $creditreadonly = "readonly" if ($form->{"accno_id_$i"} eq $form->{bt_chart_id});
+      $copy2credit   = '' if $i == 1;   # and disallow copy2credit
+    }
+
     print qq|<tr valign=top>
     $accno
     <td id="chart_balance_$i" align="right">${balance}</td>
@@ -1346,7 +1352,7 @@ sub post_transaction {
       die "no chart id:" unless $chart_id;
 
       $payment = SL::DB::Manager::AccTransaction->get_all(where => [ trans_id => $::form->{id},
-                                                                     chart_link => { like => '%AR_paid%' },
+                                                                     chart_link => { like => '%_paid%' },
                                                                      chart_id => $chart_id                  ]);
       die "guru meditation error: Can only assign amount to one bank account booking" if scalar @{ $payment } > 1;