From 0ea6f36354b3ecda22d116277188cbcf636e6907 Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 21 Oct 2025 07:05:30 +0000
Subject: [PATCH] 76_SolarForecast: contrib version 1.59.6

git-svn-id: https://svn.fhem.de/fhem/trunk@30425 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/76_SolarForecast.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm
index 1f5169a7d..268e29ed6 100644
--- a/fhem/contrib/DS_Starter/76_SolarForecast.pm
+++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm
@@ -12206,7 +12206,7 @@ sub __batChargeOptTargetPower {
           ## weiter mit Überschuß (Prognose)
           ####################################
           my $otpMargin = $hsurp->{$hod}{$sbn}{otpMargin};                              
-          my $fref      = ___batFindMinPhWh ($hsurp, \@remaining_hods, $runwhneed, $befficiency);
+          my $fref      = ___batFindMinPhWh ($hsurp, \@remaining_hods, $runwhneed);
           my $needraw   = min ($fref->{ph}, $spls);                                                              # Ladeleistung auf Surplus begrenzen
           
           $needraw      = $bpinmax if(!$hsurp->{$hod}{$sbn}{lcintime});            
@@ -12226,7 +12226,7 @@ sub __batChargeOptTargetPower {
           ## NextHour 00 bearbeiten
           ###########################
           if ($nhr eq '00') {
-              my $target = $needraw > 0 ? $needraw : 0;           
+              my $target = $needraw > 0 ? $needraw / $befficiency : 0;                                           # Zielleistung mit Batterie Effizienzgrad erhöhen
 
               if ($achievable) {                                                                                 # Tagesziel erreichbar: Basisziel um otpMargin% erhöhen
                   $target *= 1 + ($otpMargin / 100);
@@ -12347,7 +12347,7 @@ return $value;
 #   die vollständige Ausnutzung der vorhandenen Kapazität.
 ###############################################################################################
 sub ___batFindMinPhWh {
-    my ($hsurp, $aref, $Ereq, $befficiency) = @_;
+    my ($hsurp, $aref, $Ereq) = @_;
     
     my @hods     = @$aref;
     my $low      = 0;