fix party mode then close window

73_AutoShuttersControl.pm

@@ -2332,7 +2332,8 @@ sub EventProcessingPartyMode($) {
                 );
             }
         }
-        elsif ( $shutters->getIsDay
+        elsif ( $shutters->getDelayCmd ne 'none'
+            and $shutters->getIsDay
             and IsAfterShuttersManualBlocking($shuttersDev) )
         {
             $shutters->setLastDrive('drive after party mode');
@@ -3961,6 +3962,20 @@ sub setDriveCmd {
     my $offSet;
     my $offSetStart;
 
+
+    if ( $shutters->getPartyMode eq 'on'
+     and $ascDev->getPartyMode eq 'on' ) {
+
+        $shutters->setDelayCmd($posValue);
+        $ascDev->setDelayCmdReading;
+        $shutters->setNoDelay(0);
+
+        FHEM::AutoShuttersControl::ASC_Debug( 'setDriveCmd: '
+                . $shutters->getShuttersDev
+                . ' - Die Fahrt wird zurückgestellt. Grund kann ein geöffnetes Fenster sein oder ein aktivierter Party Modus'
+        );
+    }
+    else {
         ### antifreeze Routine
         if ( $shutters->getFreezeStatus > 0 ) {
             if ( $shutters->getFreezeStatus != 1 ) {
@@ -4019,6 +4034,7 @@ sub setDriveCmd {
         $shutters->setNoDelay(0);
         return 0;
     }
+}
 
 sub setSunsetUnixTime {
     my ( $self, $unixtime ) = @_;
@@ -6991,7 +7007,7 @@ sub getblockAscDrivesAfterManual {
   ],
   "release_status": "under develop",
   "license": "GPL_2",
-  "version": "v0.6.104",
+  "version": "v0.6.105",
   "author": [
     "Marko Oldenburg <leongaultier@gmail.com>"
   ],