add shading out routine then coming home and shading mode is absent
This commit is contained in:
parent
67134f6e67
commit
f51af5bf46
@ -1255,6 +1255,18 @@ sub EventProcessingResidents($@) {
|
||||
$shutters->setLastDrive('shading in');
|
||||
$shutters->setDriveCmd( $shutters->getShadingPos );
|
||||
}
|
||||
elsif (
|
||||
$shutters->getShadingMode eq 'absent'
|
||||
and IsDay($shuttersDev)
|
||||
and $shutters->getIfInShading
|
||||
and $shutters->getStatus == $shutters->getShadingPos
|
||||
and not( CheckIfShuttersWindowRecOpen($shuttersDev) == 2
|
||||
and $shutters->getShuttersPlace eq 'terrace' )
|
||||
)
|
||||
{
|
||||
$shutters->setLastDrive('shading out');
|
||||
$shutters->setDriveCmd( $shutters->getLastPos );
|
||||
}
|
||||
elsif (
|
||||
$ascDev->getSelfDefense eq 'on'
|
||||
and CheckIfShuttersWindowRecOpen($shuttersDev) != 0
|
||||
|
Loading…
x
Reference in New Issue
Block a user