add shading out routine then coming home and shading mode is absent
This commit is contained in:
		| @@ -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 | ||||
|   | ||||
		Reference in New Issue
	
	Block a user