From 2d4a2d99f37bb06490d8d90b75cb63d047e86744 Mon Sep 17 00:00:00 2001
From: charlie71born <>
Date: Fri, 22 Jan 2016 17:29:35 +0000
Subject: [PATCH] S7: AWrite fix for S7-200 and S7-300 (charlie71)

git-svn-id: https://svn.fhem.de/fhem/trunk@10597 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/44_S7_AWrite.pm | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/fhem/FHEM/44_S7_AWrite.pm b/fhem/FHEM/44_S7_AWrite.pm
index 7c5d70bab..1144458c1 100644
--- a/fhem/FHEM/44_S7_AWrite.pm
+++ b/fhem/FHEM/44_S7_AWrite.pm
@@ -236,31 +236,23 @@ sub S7_AWrite_Set($@) {
 	}
 	elsif ( $datatype eq "u16" ) {
 		$b = $shash->{S7TCPClient}->setWordAt( "XX", 0, $newValue );
-		$WordLen = &S7Client::S7WLInt;
-
-		#		$WordLen = &S7Client::S7WLWord;
+		$WordLen = &S7Client::S7WLByte;
 	}
 	elsif ( $datatype eq "s16" ) {
 		$b = $shash->{S7TCPClient}->setIntegerAt( "XX", 0, $newValue );
-		$WordLen = &S7Client::S7WLInt;
-
-		#		$WordLen = &S7Client::S7WLWord;
+		$WordLen = &S7Client::S7WLByte;
 	}
 	elsif ( $datatype eq "u32" ) {
 		$b = $shash->{S7TCPClient}->setDWordAt( "XXXX", 0, $newValue );
-		$WordLen = &S7Client::S7WLDInt;
-
-		#		$WordLen = &S7Client::S7WLDWord;
+		$WordLen = &S7Client::S7WLByte;
 	}
 	elsif ( $datatype eq "s32" ) {
 		$b = $shash->{S7TCPClient}->setDintAt( "XXXX", 0, $newValue );
-		$WordLen = &S7Client::S7WLDInt;
-
-		#		$WordLen = &S7Client::S7WLDWord;
+		$WordLen = &S7Client::S7WLByte;
 	}
 	elsif ( $datatype eq "float" ) {
 		$b = $shash->{S7TCPClient}->setFloatAt( "XXXX", 0, $newValue );
-		$WordLen = &S7Client::S7WLReal;
+		$WordLen = &S7Client::S7WLByte;
 	}
 	else {
 		my $err = "$name S7_AWrite: Parse unknown type : (" . $datatype . ")";