Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml
===================================================================
diff -u -r45902 -r49899
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml	(.../HaefeleBE.cls.xml)	(revision 45902)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml	(.../HaefeleBE.cls.xml)	(revision 49899)
@@ -53,12 +53,12 @@
 		;Set ..HttpPoster = ##class(TECH.Http.impl.Poster).%New()
 		Do ..HttpPoster.PostMessage(HttpMessage)
 		
-		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID() _ " Doelserver='"_HttpMessage.Server_"'")
+		Do ..Logger.Info(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID() _ " Doelserver='"_HttpMessage.Server_"'")
 		;Do ..LogMessageInhoud(HttpMessage)
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		
-		Do ..Logger.ErrorMail(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
+		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
 	}
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml
===================================================================
diff -u -r48686 -r49899
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 48686)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 49899)
@@ -110,12 +110,12 @@
 	Try {
 		Do ..HttpPoster.PostMessage(HttpMessage)
 		
-		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID() _ " Doelserver='"_HttpMessage.Server_"'")
+		Do ..Logger.Info(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID() _ " Doelserver='"_HttpMessage.Server_"'")
 		;Do ..LogMessageInhoud(HttpMessage)
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		
-		Do ..Logger.ErrorMail(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
+		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
 	}
 ]]></Implementation>
 </Method>
@@ -126,9 +126,9 @@
 <Implementation><![CDATA[
 	Try {
 		Do HttpMessage.Data.Rewind()
-		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_INHOUD", HttpMessage.Data)
+		Do ..Logger.Info(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_INHOUD", HttpMessage.Data)
 	} Catch {
-		Do ..Logger.Error(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_INHOUD", ##class(TECH.ExceptionHandler).Catch().ToString() )
+		Do ..Logger.Error(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_INHOUD", ##class(TECH.ExceptionHandler).Catch().ToString() )
 	}
 ]]></Implementation>
 </Method>