From 7e42c393b1f4d722a88bb8e3011c8f9267f77bc3 Mon Sep 17 00:00:00 2001
From: TH9 <>
Date: Thu, 14 Oct 2021 15:16:14 +0000
Subject: [PATCH] LUXTRONIK2: new feature: set opModeHeating

git-svn-id: https://svn.fhem.de/fhem/trunk@25071 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED               |  1 +
 fhem/FHEM/23_LUXTRONIK2.pm | 19 ++++++++++++++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 1d19144ce..7b6bf844e 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: 23_LUXTRONIK2: new set parameter opModeHeating
  - bugfix:  73_AutoShuttersControl: multiple bugfixes, change version
  - change:  10_KNX: multiple fixes & cleanup - see Forum Thread #122582
  - bugfix:  48_MieleAtHome: fix but in autocreate
diff --git a/fhem/FHEM/23_LUXTRONIK2.pm b/fhem/FHEM/23_LUXTRONIK2.pm
index df460216f..0c23f0261 100644
--- a/fhem/FHEM/23_LUXTRONIK2.pm
+++ b/fhem/FHEM/23_LUXTRONIK2.pm
@@ -241,7 +241,7 @@ LUXTRONIK2_Set($$@)
    }
 
   #Check Firmware and Set-Parameter-lock 
-  if ( $cmd =~ /^(synchronizeClockHeatPump|hotWaterTemperatureTarget|opModeHotWater|opModeVentilation)$/i ) 
+  if ( $cmd =~ /^(synchronizeClockHeatPump|hotWaterTemperatureTarget|opModeHotWater|opModeVentilation|opModeHeating)$/i ) 
    {
     my $firmware = ReadingsVal($name,"firmware","");
     my $firmwareCheck = LUXTRONIK2_checkFirmware($firmware);
@@ -278,6 +278,7 @@ LUXTRONIK2_Set($$@)
          ($cmd eq 'hotWaterTemperatureTarget'
             || $cmd eq 'opModeHotWater'
             || $cmd eq 'opModeVentilation'
+            || $cmd eq 'opModeHeating'
             || $cmd eq 'returnTemperatureHyst'
             || $cmd eq 'returnTemperatureSetBack'
             || $cmd eq 'heatingCurveEndPoint'
@@ -328,6 +329,7 @@ LUXTRONIK2_Set($$@)
           ." returnTemperatureSetBack "
           ." opModeHotWater:Auto,Party,Off"
           ." opModeVentilation:Auto,Off"
+          ." opModeHeating:Auto,Party,Off"
           ." synchronizeClockHeatPump:noArg"
           ." INTERVAL ";
           
@@ -1484,6 +1486,14 @@ sub LUXTRONIK2_SetParameter ($$$)
      $setParameter = 894;
      $setValue = $opVentMode{$realValue};
   }
+
+  elsif ($parameterName eq "opModeHeating") {
+    if (! exists($opMode{$realValue})) {
+      return "$name Error: Wrong parameter given for opModeHeating, use Automatik,Off"
+     }
+     $setParameter = 3;
+     $setValue = $opMode{$realValue};
+  }
   
   elsif ($parameterName eq "returnTemperatureHyst") {
      #parameter number
@@ -2318,6 +2328,9 @@ LUXTRONIK2_doStatisticDeltaSingle ($$$$$$$)
        <li><code>opModeVentilation &lt;Mode&gt;</code><br>
          Operating Mode of Ventilation (Auto | Off)
          </li><br>
+       <li><code>opModeHeating &lt;Mode&gt;</code><br>
+         Operating Mode of Heating (Auto | Off)
+         </li><br>
      <li><code>resetStatistics &lt;statReadings&gt;</code>
          <br>
          Deletes the selected statistic values <i>all, statBoilerGradientCoolDownMin, statAmbientTemp..., statElectricity..., statHours..., statHeatQ...</i>
@@ -2489,6 +2502,10 @@ LUXTRONIK2_doStatisticDeltaSingle ($$$$$$$)
          <br>
          Betriebsmodus der Lueftung ( Auto | Off )
          </li><br>
+      <li><code>opModeHeating &lt;Betriebsmodus&gt;</code>
+         <br>
+         Betriebsmodus der Heizung ( Auto | Off )
+         </li><br>
      <li><code>resetStatistics &lt;statWerte&gt;</code>
          <br>
          Löscht die ausgewählten statistischen Werte: <i>all, statBoilerGradientCoolDownMin, statAmbientTemp..., statElectricity..., statHours..., statHeatQ...</i>