X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/07a735e0cb464b4cf96617578868957635410ad9..d679bb5b866e0336fb3df96a28cb58de349c9cb0:/SL/RP.pm

diff --git a/SL/RP.pm b/SL/RP.pm
index b2fd5e069..e8e07e0ce 100644
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -1871,4 +1871,34 @@ sub income_statement {
   }
   $main::lxdebug->leave_sub();
 }
+
+sub income_statement_ch {
+
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  my $last_period  = 0;
+
+
+  # connect to database
+  my $dbh = $form->dbconnect($myconfig);
+
+  get_accounts_ch($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form);
+
+   $main::lxdebug->leave_sub();
+}
+
+
+ sub get_accounts_ch {
+  $main::lxdebug->enter_sub();
+
+  my $query =
+    qq|SELECT c.accno, c.description
+       FROM chart c
+       ORDER BY c.accno|;
+
+   $main::lxdebug->leave_sub();
+}
+
 1;