From e80b503c1b7befb55a676b1eb551142a2cd13db4 Mon Sep 17 00:00:00 2001 From: DS_Starter Date: Fri, 21 Jun 2019 21:24:31 +0000 Subject: [PATCH] 76_SMAPortal: contrib 2.3.6 git-svn-id: https://svn.fhem.de/fhem/trunk@19682 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/76_SMAPortal.pm | 232 +++++++++++++++++++++--- 1 file changed, 204 insertions(+), 28 deletions(-) diff --git a/fhem/contrib/DS_Starter/76_SMAPortal.pm b/fhem/contrib/DS_Starter/76_SMAPortal.pm index d1dde8801..fa3ea3c7d 100644 --- a/fhem/contrib/DS_Starter/76_SMAPortal.pm +++ b/fhem/contrib/DS_Starter/76_SMAPortal.pm @@ -161,7 +161,7 @@ use vars qw($FW_ME); # webname (default is fh # Versions History intern our %vNotesIntern = ( - "2.3.6" => "20.06.2019 BatteryDischarging, BatteryCharging summary of daily measurement", + "2.3.6" => "21.06.2019 revise commandref ", "2.3.5" => "20.06.2019 subroutine consinject added to pv, pvco style ", "2.3.4" => "19.06.2019 change some readingnames, delete L4_plantOid, next04hours_state ", "2.3.3" => "16.06.2019 change verbose 4 output, fix warning if no weather info was got ", @@ -1549,17 +1549,6 @@ sub extractConsumerHistData($$$) { Log3 ($name, 4, "$name - ##### extracting consumer history data #### "); my $bataval = (defined(ReadingsNum($name,"L1_BatteryIn", undef)) || defined(ReadingsNum($name,"L1_BatteryOut", undef)))?1:0; # Identifikation ist Battery vorhanden ? - - if($tf =~ /day/) { - ($bdcd,$bcd) = (0,0); - foreach my $di (@{$chdata->{'BatteryDischarging'}}) { - $bdcd += $di->{'Measurement'}/4; # aufsummierte Batterieentladung pro Zeiteinheit (day) in Wh - } - - foreach my $ch (@{$chdata->{'BatteryCharging'}}) { - $bcd += $ch->{'Measurement'}/4; # aufsummierte Batterieladung pro Zeiteinheit (day) in Wh - } - } readingsBeginUpdate($hash); @@ -1603,10 +1592,7 @@ sub extractConsumerHistData($$$) { $i++; } - - readingsBulkUpdate($hash, "L3_BatteryDischargingDay", sprintf("%.0f", $bdcd) ." Wh") if(defined($bdcd) && $bataval && $tf eq "day"); - readingsBulkUpdate($hash, "L3_BatteryChargingDay", sprintf("%.0f", $bcd) ." Wh") if(defined($bcd) && $bataval && $tf eq "day"); - + readingsEndUpdate($hash, 1); return; @@ -2606,11 +2592,201 @@ return;

SMAPortal

- @@ -2671,8 +2847,8 @@ return; define <Name> SMAPortal

- Nach der Definition des Devices müssen noch die Zugangsparameter für das SMA-Portal gespeichert werden. - Das geschieht mit dem Befehl:

+ Nach der Definition des Devices müssen die Zugangsparameter für das SMA Sunny Portal gespeichert werden + mit dem Befehl: