From 177836cffdf821a5dcab69251f8afb76e6b83e85 Mon Sep 17 00:00:00 2001
From: heikoranft <>
Date: Mon, 23 Feb 2015 07:02:27 +0000
Subject: [PATCH] 89_HEATRONIC.pm: added power of heating pump

git-svn-id: https://svn.fhem.de/fhem/trunk@8075 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED              |  1 +
 fhem/FHEM/89_HEATRONIC.pm | 18 +++++++++++++-----
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index c643cb32e..09f5312f1 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - feature: 89_HEATRONIC.pm: added power of heating pump
   - feature: 31_MilightDevice.pm: Support LightScene
   - changed: 89_HEATRONIC.pm: calculation of sol_Tcollector changed
   - feature: # comments in fhem.cfg are only removed at the line-start
diff --git a/fhem/FHEM/89_HEATRONIC.pm b/fhem/FHEM/89_HEATRONIC.pm
index 75db4618e..48d906f6c 100644
--- a/fhem/FHEM/89_HEATRONIC.pm
+++ b/fhem/FHEM/89_HEATRONIC.pm
@@ -540,10 +540,11 @@ HEATRONIC_DecodeMsg_CH2($$$)
     if ($ch_Toutside != 255) { $ch_Toutside = ($ch_Toutside * 256 + hex(substr($string,5*2,2))) / 10 }
     else {$ch_Toutside = (255 - hex(substr($string,5*2,2)))/-10;}
 
-    my $ch_runtime_tot  = hex(substr($string,17*2,6));
-    my $ch_runtime_ch   = hex(substr($string,23*2,6));
-    my $ch_starts_tot   = hex(substr($string,14*2,6));
-    my $ch_starts_ch    = hex(substr($string,26*2,6));
+    my $ch_runtime_tot        = hex(substr($string,17*2,6));
+    my $ch_runtime_ch         = hex(substr($string,23*2,6));
+    my $ch_starts_tot         = hex(substr($string,14*2,6));
+    my $ch_starts_ch          = hex(substr($string,26*2,6));
+    my $ch_pump_heating_power = hex(substr($string,13*2,2));
 	
     readingsBeginUpdate($hash);
     readingsBulkUpdate($hash, "ch_Toutside", sprintf("%.1f",$ch_Toutside));
@@ -551,6 +552,7 @@ HEATRONIC_DecodeMsg_CH2($$$)
     readingsBulkUpdate($hash, "ch_runtime_ch", $ch_runtime_ch);
     readingsBulkUpdate($hash, "ch_starts_tot", $ch_starts_tot);
     readingsBulkUpdate($hash, "ch_starts_ch", $ch_starts_ch);
+    readingsBulkUpdate($hash, "ch_pump_heating_power" $ch_pump_heating_power);
     readingsEndUpdate($hash,1);
 
     return 1;
@@ -924,6 +926,9 @@ HEATRONIC_timeDiff($) {
 	     <li><B>ch_burner_power</B><br/>
 		   burner power in percent
 		 </li><br/>
+         <li><B>ch_pump_heating_power</B><br/>
+		   power of heating power in percent
+		 </li><br/>
 
 	     <li><B>ch_Toutside</B><br/>
 		   outside temperature
@@ -1056,7 +1061,10 @@ HEATRONIC_timeDiff($) {
 	     <li><B>ch_burner_power</B><br/>
 		   Brennerleistung in Prozent
 		 </li><br/>
-
+         <li><B>ch_pump_heating_power</B><br/>
+		   Leistung der Heizungspumpe in Prozent
+		 </li><br/>
+         
 	     <li><B>ch_Toutside</B><br/>
 		   Außentemperatur
 		 </li><br/>