mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

32_TechemHKV.pm: add some older hkv version

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10561 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
herrmannj
2016-01-17 18:35:36 +00:00
parent 610faad821
commit f94bceeeb3
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
fhem/FHEM/32_TechemHKV.pm
View File

@@ -26,7 +26,8 @@ TechemHKV_Initialize(@) {
# require "Broker.pm"; # require "Broker.pm";
# TECHEM HKV # TECHEM HKV
$hash->{Match} = "^b..446850[\\d]{8}6980....A0.*"; # 61, 64 without T1 and T2
$hash->{Match} = "^b..446850[\\d]{8}(61|64|69)80....A0.*";
$hash->{DefFn} = "TechemHKV_Define"; $hash->{DefFn} = "TechemHKV_Define";
$hash->{UndefFn} = "TechemHKV_Undef"; $hash->{UndefFn} = "TechemHKV_Undef";
@@ -99,8 +100,8 @@ TechemHKV_Notify (@) {
if (($e[0] eq 'ATTR') && ($e[2] eq 'rfmode') && ($e[3] ne 'WMBus_T')) { if (($e[0] eq 'ATTR') && ($e[2] eq 'rfmode') && ($e[3] ne 'WMBus_T')) {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash, "state", "standby (IO missing)", 1); readingsBulkUpdate($hash, "state", "standby (IO missing)", 1);
readingsBulkUpdate($hash, "temp1", "--.--"); readingsBulkUpdate($hash, "temp1", "--.--") if exists($hash->{READINGS}->{'temp1'}); # exlude versions without t1,t2
readingsBulkUpdate($hash, "temp2", "--.--"); readingsBulkUpdate($hash, "temp2", "--.--") if exists($hash->{READINGS}->{'temp2'});
readingsEndUpdate($hash, 1); readingsEndUpdate($hash, 1);
} }
} }
@@ -121,10 +122,12 @@ TechemHKV_Receive(@) {
$hash->{METER} = $typeText{$msg->{type}}; $hash->{METER} = $typeText{$msg->{type}};
delete $hash->{CHANGETIME}; # clean up, workaround for fhem prior http://forum.fhem.de/index.php/topic,47474.msg391964.html#msg391964 delete $hash->{CHANGETIME}; # clean up, workaround for fhem prior http://forum.fhem.de/index.php/topic,47474.msg391964.html#msg391964
if (($msg->{version} || '') eq '69') {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash, "temp1", $msg->{temp1}); readingsBulkUpdate($hash, "temp1", $msg->{temp1});
readingsBulkUpdate($hash, "temp2", $msg->{temp2}); readingsBulkUpdate($hash, "temp2", $msg->{temp2});
readingsEndUpdate($hash, 1); readingsEndUpdate($hash, 1);
}
# day period changed # day period changed
$ats = ReadingsTimestamp($hash->{NAME},"current_period", "0"); $ats = ReadingsTimestamp($hash->{NAME},"current_period", "0");
@@ -401,7 +404,7 @@ TechemHKV_crc16_13757(@) {
<ul> <ul>
<li>meter data for current billing period</li> <li>meter data for current billing period</li>
<li>meter data for previous billing period including date of request</li> <li>meter data for previous billing period including date of request</li>
<li>both temperature sensors</li> <li>both temperature sensors (if supported by data meter)</li>
</ul> </ul>
<br> <br>
It will require a CUL in WMBUS_T mode, although the CUL may temporary set into that mode. It will require a CUL in WMBUS_T mode, although the CUL may temporary set into that mode.
@@ -451,7 +454,7 @@ TechemHKV_crc16_13757(@) {
<ul> <ul>
<li>Wert des aktuellen Abrechnungszeitraumes</li> <li>Wert des aktuellen Abrechnungszeitraumes</li>
<li>Wert des vorhergehenden Abrechnungszeitraumes einschließlich des Ablesedatums</li> <li>Wert des vorhergehenden Abrechnungszeitraumes einschließlich des Ablesedatums</li>
<li>Beide Temperatur Sensoren</li> <li>Beide Temperatur Sensoren (sofern der Heizkostenverteiler sie sendet)</li>
</ul> </ul>
<br> <br>
Zum Empfang wird ein CUL im WMBUS_T mode benötigt. Dabei ist es ausreichend ihn vorrübergehend in diesen Modus zu schalten. Zum Empfang wird ein CUL im WMBUS_T mode benötigt. Dabei ist es ausreichend ihn vorrübergehend in diesen Modus zu schalten.