Index: WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml
===================================================================
diff -u -r51955 -r53507
--- WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 51955)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 53507)
@@ -46,9 +46,22 @@
 <Implementation><![CDATA[
 	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..WinkelkarSender.Send(Winkelkar)
 	If (Response.Winkelkar.Status '= "Geslaagd") {
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er is een fout opgetreden bij het bewaren van de winkelkar '"_Winkelkar.Id_"'!"_ " OPGELET: Bij timeout zeker nagaan welke volgende acties allicht ook niet zijn uitgevoerd (zoals mail naar Handel of HttpPost naar Handel.")
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er is een fout opgetreden bij het bewaren van de winkelkar '"_Winkelkar.Id_"'!"_ " OPGELET: Indien WS-timeout, dan zeker nagaan welke volgende acties allicht ook niet zijn uitgevoerd (zoals mail naar Handel of HttpPost naar Handel.")
 		Do Exception.ExtraInfo.WriteLine("Foutmelding volgens het systeem van intracto : ")
 		Do Exception.ExtraInfo.CopyFrom(Response.Winkelkar.Foutmelding)
+		Set LijnStatusIterator = ##class(TECH.ListIterator).%New(Response.Lijnen)
+		While (LijnStatusIterator.HasNext()) {
+			#dim LijnStatus As WS.Vhisie4.WinkelkarExport.LijnStatus = LijnStatusIterator.Next()
+			Do Exception.ExtraInfo.Write("LijnStatus "_LijnStatus.Status_" ")
+			If LijnStatus.Status = "Geslaagd" {
+				Do Exception.ExtraInfo.WriteLine()
+			}
+			Else {
+				Do Exception.ExtraInfo.CopyFrom(LijnStatus.Foutmelding)
+			}
+		}
+		Do Exception.ExtraInfo.WriteLine()
+		Do Exception.ExtraInfo.WriteLine("Winkelkar.Status : "_Winkelkar.Status_".")
 		
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
 	}