diff --git a/fhem/FHEM/44_S7_ARead.pm b/fhem/FHEM/44_S7_ARead.pm index 32336fbcd..a429fabca 100644 --- a/fhem/FHEM/44_S7_ARead.pm +++ b/fhem/FHEM/44_S7_ARead.pm @@ -50,6 +50,9 @@ sub S7_ARead_Define($$) { my ( $name, $area, $DB, $start, $datatype ); $name = $a[0]; + + AssignIoPort($hash); + if ( uc $a[2] =~ m/^[NA](\d*)/ ) { my $Offset; $area = "db"; @@ -210,8 +213,6 @@ sub S7_ARead_Define($$) { push( @{ $modules{S7_ARead}{defptr}{$ID} }, $hash ); } - AssignIoPort($hash); # logisches modul an physikalisches binden !!! - $hash->{IODev}{dirty} = 1; Log3 $name, 4, "S7_ARead (" . $hash->{IODev}{NAME} . "): define $name Adress:$start"; diff --git a/fhem/FHEM/44_S7_AWrite.pm b/fhem/FHEM/44_S7_AWrite.pm index e4a1d7d77..9963ab650 100644 --- a/fhem/FHEM/44_S7_AWrite.pm +++ b/fhem/FHEM/44_S7_AWrite.pm @@ -41,6 +41,8 @@ sub S7_AWrite_Define($$) { my ( $name, $area, $DB, $start, $datatype, $length ); $name = $a[0]; + + AssignIoPort($hash); if ( uc $a[2] =~ m/^[NA](\d*)/ ) { my $Offset; @@ -189,7 +191,6 @@ sub S7_AWrite_Define($$) { $length = 1; } } - AssignIoPort($hash); # logisches modul an physikalisches binden !!! $hash->{AREA} = $area; $hash->{DB} = $DB;