X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2b37ad3a147be6cf6c904327c3a589302bf0dc54..ed9b1bfb7ca6acf18d907a7d34ddd3a82061b8cb:/bin/mozilla/gl.pl

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 519351a5f..5e9d2208a 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -49,6 +49,8 @@ use SL::DBUtils qw(selectrow_query selectall_hashref_query);
 use SL::Webdav;
 use SL::Locale::String qw(t8);
 use SL::Helper::GlAttachments qw(count_gl_attachments);
+use SL::Presenter::Tag;
+use SL::Presenter::Chart;
 require "bin/mozilla/common.pl";
 require "bin/mozilla/reportgenerator.pl";
 
@@ -836,8 +838,8 @@ sub display_rows {
     my $selected_taxchart = $taxchart_to_use->id . '--' . $taxchart_to_use->rate;
 
     my $accno = qq|<td>| .
-      $::request->presenter->chart_picker("accno_id_$i", $accno_id, style => "width: 300px") .
-      $::request->presenter->hidden_tag("previous_accno_id_$i", $accno_id)
+      SL::Presenter::Chart::picker("accno_id_$i", $accno_id, style => "width: 300px") .
+      SL::Presenter::Tag::hidden_tag("previous_accno_id_$i", $accno_id)
       . qq|</td>|;
     my $tax_ddbox = qq|<td>| .
       NTI($cgi->popup_menu('-name' => "taxchart_$i",
@@ -1327,7 +1329,35 @@ sub post_transaction {
   }
   # /saving the history
 
-  if ($form->{callback} =~ /BankTransaction/) {
+  # called from BankTransaction - Assign RecordLink and update BankTransaction
+  if ($form->{callback} =~ /BankTransaction/ && $form->{bt_id}) {
+    # set invoice_amount - we only rely on bt_id in form, do all other stuff ui independent
+    # die if we have a unlogic or NYI case and (TODO) chain this transaction safe (post_transaction + history_erp + this)
+    my ($bt, $chart_id, $payment);
+
+    $bt = SL::DB::Manager::BankTransaction->find_by(id => $::form->{bt_id});
+    die "No bank transaction found" unless $bt;
+
+    $chart_id = SL::DB::Manager::BankAccount->find_by(id => $bt->local_bank_account_id)->chart_id;
+    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_id => $chart_id                  ]);
+    die "guru meditation error: Can only assign amount to one bank account booking" if scalar @{ $payment } > 1;
+
+    # credit/debit * -1 matches the sign for bt.amount and bt.invoice_amount
+    $bt->update_attributes(invoice_amount => $bt->invoice_amount + ($payment->[0]->amount * -1));
+
+    # create record_link
+    my @props = (
+      from_table => 'bank_transactions',
+      from_id    => $::form->{bt_id},
+      to_table   => 'gl',
+      to_id      => $::form->{id},
+    );
+    SL::DB::RecordLink->new(@props)->save;
+
     print $form->redirect_header($form->{callback});
     $form->redirect($locale->text('GL transaction posted.') . ' ' . $locale->text('ID') . ': ' . $form->{id});
   }