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

76_SolarForecast.pm: contrib 1.51.8

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29913 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2025-05-02 10:47:07 +00:00
parent 7f8b1ec127
commit 40a39667e4
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/contrib/DS_Starter/76_SolarForecast.pm
View File

@@ -160,6 +160,8 @@ BEGIN {
# Versions History intern
my %vNotesIntern = (
"1.51.8" => "02.05.2025 _specialActivities: delete overhanging days at the change of month ".
"Bugfix: https://forum.fhem.de/index.php?msg=1340666 ",
"1.51.7" => "01.05.2025 __createAdditionalEvents: optimized for SVG 'steps', new key plantControl->genPVforecastsToEvent ".
"aiAddRawData: add gcons, _listDataPoolCircular: add gcons_a ",
"1.51.6" => "30.04.2025 graphicBeamXContent: change batsocforecast_XX to batsocCombi_XX, new options batsocForecast_XX, batsocReal_XX ".
@@ -9257,6 +9259,18 @@ sub _specialActivities {
delete $data{$name}{circular}{99}{tdayDvtn};
delete $data{$name}{pvhist}{$day}; # den (alten) aktuellen Tag aus History löschen
if (int $day == 1) { # Monatswechsel: überhängende Tage löschen
my $dtp = timestringsFromOffset ($t, -86000); # Berechne die Anzahl der Tage im Vormonat
my $dipm = int $dtp->{day};
for my $dtr ($dipm + 1 .. 31) { # Lösche ungültige Tage des Vormonats
if (exists $data{$name}{pvhist}{$dtr}) {
delete $data{$name}{pvhist}{$dtr};
Log3 ($name, 3, "$name - history day >$dtr< deleted");
}
}
}
writeCacheToFile ($hash, 'plantconfig', $plantcfg.$name); # Anlagenkonfiguration sichern
@@ -14228,7 +14242,7 @@ sub _genSpecialReadings {
if (!AttrVal ($name, 'consumer'.$c, '')) {
readingsDelete ($hash, $prpo.'_currentRunMtsConsumer_'.$c);
return;
next;
}
my $mion = &{$hcsr{$kpi}{fn}} ($hash, $c, $hcsr{$kpi}{par}, $def);
@@ -14241,7 +14255,7 @@ sub _genSpecialReadings {
if (!AttrVal ($name, 'consumer'.$c, '')) {
readingsDelete ($hash, $prpo.'_runTimeAvgDayConsumer_'.$c);
return;
next;
}
my $radc = &{$hcsr{$kpi}{fn}} ($hash, $c, $hcsr{$kpi}{par}, $def);