Index: CHUI/VKP/OrderWeergave/VerzendinfoDto.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderWeergave/VerzendinfoDto.cls.xml	(revision 0)
+++ CHUI/VKP/OrderWeergave/VerzendinfoDto.cls.xml	(revision 51891)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderWeergave.VerzendinfoDto">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>CHUI.VKP.OrderWeergave.VerzendinfoDto</Default>
+</Parameter>
+
+<Property name="Leveradres">
+<Type>DOM.common.Adres</Type>
+</Property>
+
+<Property name="VerzendingWijze">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: CHUI/MN/RPLKLSPEC.cls.xml
===================================================================
diff -u -r29059 -r51891
--- CHUI/MN/RPLKLSPEC.cls.xml	(.../RPLKLSPEC.cls.xml)	(revision 29059)
+++ CHUI/MN/RPLKLSPEC.cls.xml	(.../RPLKLSPEC.cls.xml)	(revision 51891)
@@ -1064,6 +1064,36 @@
 	quit result
 ]]></Implementation>
 </Method>
+
+<Method name="BekijkVerzendgegevensZichtbaar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %Boolean = 0
+	If $G(VTB)="O" set result = 1
+	Quit result
+]]></Implementation>
+</Method>
+
+<Method name="BekijkVerzendgegevens">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Verzendgegevens, OrderId, PopupDetail As %String
+	
+	Set OrderId = $P($G(^HULP($J,"K"_KC,"O",ORD(6))),D,15)
+	Set VerzendInfo = ##class(CHUI.VKP.OrderWeergave.VerzendinfoBepaler).%New().GeefVerzendinfoVolgensOrderNummer(OrderId)
+	
+	Set PopupDetail = "Voor OrderId: '"_OrderId_"':"_$$$CRLF
+	Set PopupDetail = PopupDetail_"Het leveradres is:"_$$$CRLF
+	Set PopupDetail = PopupDetail_VerzendInfo.Leveradres.GeefNaam()_$$$CRLF
+	Set PopupDetail = PopupDetail_VerzendInfo.Leveradres.GeefStraat()_$$$CRLF
+	Set PopupDetail = PopupDetail_VerzendInfo.Leveradres.GeefPostcode()_" "_VerzendInfo.Leveradres.GeefGemeente()_$$$CRLF
+	Set PopupDetail = PopupDetail_VerzendInfo.Leveradres.GeefLand().GeefNaam()_$$$CRLF
+	Set PopupDetail = PopupDetail_"De verzendwijze is: '"_VerzendInfo.VerzendingWijze_"'"
+	
+	Set Verzendgegevens = $$Boodschap^vhTXTPOP(PopupDetail)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: CHUI/VKP/OrderWeergave/VerzendinfoBepaler.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderWeergave/VerzendinfoBepaler.cls.xml	(revision 0)
+++ CHUI/VKP/OrderWeergave/VerzendinfoBepaler.cls.xml	(revision 51891)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderWeergave.VerzendinfoBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendinfoVolgensOrderNummer">
+<FormalSpec>OrderId:%String</FormalSpec>
+<ReturnType>CHUI.VKP.OrderWeergave.VerzendinfoDto</ReturnType>
+<Implementation><![CDATA[
+	Quit:($$$Not(..OrderApi.BestaatOrder(OrderId))) ""
+	
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderId)
+	#dim Leveradres As DOM.common.Adres = Order.GeefAfleveradres()
+	#dim VerzendingWijze As %String = Order.GeefVerzendingWijze()
+	
+	#dim Verzendinfo As CHUI.VKP.OrderWeergave.VerzendinfoDto = ##class(CHUI.VKP.OrderWeergave.VerzendinfoDto).%New()
+	Set Verzendinfo.Leveradres = Leveradres
+	Set Verzendinfo.VerzendingWijze = VerzendingWijze
+	
+	Quit Verzendinfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/D20180620xPopupVerzendinfoAdminRPLKLOrder.cls.xml
===================================================================
diff -u
--- vhDeploy/D20180620xPopupVerzendinfoAdminRPLKLOrder.cls.xml	(revision 0)
+++ vhDeploy/D20180620xPopupVerzendinfoAdminRPLKLOrder.cls.xml	(revision 51891)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20180620xPopupVerzendinfoAdminRPLKLOrder">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Popup bij extra item Bekijk verzendgegevens in F12 scherm bij O op Klant</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set ^MN("D","RPLKLSPEC","F",83)="Bekijk verzendgegevens``D`##class(CHUI.MN.RPLKLSPEC).BekijkVerzendgegevens()`##class(CHUI.MN.RPLKLSPEC).BekijkVerzendgegevensZichtbaar()``1`"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>