Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r59675 -r59679
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59675)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59679)
@@ -8,19 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="MeldingenAanGebruiker">
 <Type>TECH.String</Type>
 <Collection>list</Collection>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BlumNaarEconKenmerkenConverter:WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter=""</FormalSpec>
+<FormalSpec>BlumNaarEconKenmerkenConverter:WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BlumNaarEconKenmerkenConverter = $$$Inject(BlumNaarEconKenmerkenConverter, ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("OCCService"))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -30,6 +36,7 @@
 <FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse</ReturnType>
 <Implementation><![CDATA[
+	Do ..LogRequest(OCCKenmerkenRequest)
 	Set ..MeldingenAanGebruiker = ##class(%ListOfDataTypes).%New()
 	#dim EconConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
 	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OCCKenmerkenRequest.BlumKenmerken)
@@ -46,12 +53,19 @@
 			Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
 		}
 		Do ..VoegToeIsBinnenladeFalseIndienNodig(EconConfiguratieArray)
+	} Else {
+		#dim OCCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OCCKenmerkenRequest.Header
+		#dim Logging As %String = "Onvoorzien LadeType: '"_LadeType_"'. Binnenkomend OCC-request voor klant: '"_OCCKenmerkenRequestHeader.KlantId_"' en Personality: '"_OCCKenmerkenRequestHeader.PersonalityId_"'. "
+		Set Logging = Logging_"RequestId: '"_OCCKenmerkenRequestHeader.RequestId_"', SessieId: '"_OCCKenmerkenRequestHeader.SessieId_"'. "
+		Do ..Logger.Warning("Inkomend OCCRequest", Logging)
 	}
 	
 	Set NaarEconGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse).%New()
 	Set NaarEconGeconverteerdeKenmerkenResponse.EconKenmerken = EconConfiguratieArray
 	Set NaarEconGeconverteerdeKenmerkenResponse.MeldingenAanGebruiker = ..MeldingenAanGebruiker
 	
+	Do ..LogResponse(OCCKenmerkenRequest , NaarEconGeconverteerdeKenmerkenResponse)
+	
 	Quit NaarEconGeconverteerdeKenmerkenResponse
 ]]></Implementation>
 </Method>
@@ -155,7 +169,7 @@
 		Set MeldingAanGebruiker = "Het kenmerk 'Programme' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welk 'LadeType' het gaat. "
 		Do ..MeldingenAanGebruiker.Insert(MeldingAanGebruiker)
 	} ElseIf (($$$Not(LadeType = "TBX")) && ($$$Not(LadeType = "LBX"))) {
-		Set MeldingAanGebruiker = "Het kenmerk 'Programme' bevat een ongeldige waarde, nml. '"_LadeType_"', om voor de vertaling van de decision list te bepalen over welk LadeType het gaat. Dit moet 'TANDEMBOX antaro' of 'LEGRABOX' zijn. "
+		Set MeldingAanGebruiker = "Het kenmerk 'Programme' bevat een ongeldige waarde, nml. '"_Kenmerk.Value_"', om voor de vertaling van de decision list te bepalen over welk LadeType het gaat. Dit moet 'TANDEMBOX antaro' of 'LEGRABOX' zijn. "
 		Do ..MeldingenAanGebruiker.Insert(MeldingAanGebruiker)
 	}
 	
@@ -185,6 +199,56 @@
 	Quit BevatKenmerkenIteratorKenmerk
 ]]></Implementation>
 </Method>
+
+<Method name="LogRequest">
+<FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OCCKenmerkenRequest.Header
+	#dim LoggingHoofding As %String = "Binnenkomend OCC-request voor klant: '"_OCCKenmerkenRequestHeader.KlantId_"' en Personality: '"_OCCKenmerkenRequestHeader.PersonalityId_"'. "
+	Set LoggingHoofding = LoggingHoofding_"RequestId: '"_OCCKenmerkenRequestHeader.RequestId_"', SessieId: '"_OCCKenmerkenRequestHeader.SessieId_"'. "_$$$CRLF
+	
+	#dim LoggingBlumKenmerken As %String = ""
+	#dim BlumKenmerkLogging As %String
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim BlumKenmerkIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OCCKenmerkenRequest.BlumKenmerken)
+	While (BlumKenmerkIterator.HasNext()) {
+		Set BlumKenmerk = BlumKenmerkIterator.Next()
+		Set BlumKenmerkLogging = "Name: '"_BlumKenmerk.Name_"' / Value: '"_BlumKenmerk.Value_"' "_$$$CRLF
+		Set LoggingBlumKenmerken = ##class(TECH.StringUtils).Concatenate(LoggingBlumKenmerken, BlumKenmerkLogging)
+	}
+	
+	Do ..Logger.Info("Inkomend OCCRequest", ##class(TECH.StringUtils).Concatenate(LoggingHoofding, LoggingBlumKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="LogResponse">
+<FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest,NaarEconGeconverteerdeKenmerkenResponse:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OCCKenmerkenRequest.Header
+	#dim LoggingHoofding As %String = "Binnenkomend OCC-request voor klant: '"_OCCKenmerkenRequestHeader.KlantId_"' en Personality: '"_OCCKenmerkenRequestHeader.PersonalityId_"'. "
+	Set LoggingHoofding = LoggingHoofding_"RequestId: '"_OCCKenmerkenRequestHeader.RequestId_"', SessieId: '"_OCCKenmerkenRequestHeader.SessieId_"'. "_$$$CRLF
+	
+	// WERKT NOG NIET WANT IS HIER EEN ARRAY !!!
+	
+	#dim LoggingEconKenmerken As %String = ""
+	#dim EconKenmerkLogging As %String
+	#dim EconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	/*
+	#dim EconKenmerkIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(NaarEconGeconverteerdeKenmerkenResponse.EconKenmerken)
+	While (EconKenmerkIterator.HasNext()) {
+		Set EconKenmerk = EconKenmerkIterator.Next()
+		Set EconKenmerkLogging = "Name: '"_EconKenmerk.Name_"' / Value: '"_EconKenmerk.Value_"' "_$$$CRLF
+		Set LoggingEconKenmerken = ##class(TECH.StringUtils).Concatenate(LoggingEconKenmerken, EconKenmerkLogging)
+	}
+	*/
+	
+	// Ook nog ..MeldingenAanGebruiker toevoegen !!!
+	
+	Do ..Logger.Info("Uitgaande OCCResponse", ##class(TECH.StringUtils).Concatenate(LoggingHoofding, LoggingEconKenmerken))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r59607 -r59679
--- vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59607)
+++ vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59679)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>BlumNaarEconKenmerkenConverter:WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter=""</FormalSpec>
+<FormalSpec>BlumNaarEconKenmerkenConverter:WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter="",Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>