Index: zTryout/THB/OpToeleveringenProdRafChecker.cls.xml
===================================================================
diff -u
--- zTryout/THB/OpToeleveringenProdRafChecker.cls.xml	(revision 0)
+++ zTryout/THB/OpToeleveringenProdRafChecker.cls.xml	(revision 56795)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.OpToeleveringenProdRafChecker">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.THB.OpToeleveringenProdRafChecker).%New().RegistreerAfwijkendeProducten()
+
+]]></Content>
+</UDLText>
+
+<Method name="RegistreerAfwijkendeProducten">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order
+	#dim OrderLijn As DOM.VKP.Orderlijn
+	#dim OrderIdOpToelevering As %Integer
+	#dim OrderLijnIdOpToeleveringLijn As %Integer
+	#dim ToeleveringLijnId As %Integer
+	#dim ProductIdOpToeleveringLijn As %Integer
+	#dim ProductIdOpOrderLijn As %Integer
+	#dim Identnummer As %String
+	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#dim LeverancierIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancierIterator()
+	
+	While (LeverancierIterator.HasNext())
+	{
+		#dim Leverancier As DOM.AKP.Leverancier = LeverancierIterator.Next()
+		#dim ToeleveringIterator As TECH.Iterator = Leverancier.GeefToeleveringIterator()
+		While (ToeleveringIterator.HasNext())
+		{
+			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
+			Set OrderIdOpToelevering = Toelevering.GeefOrderID()
+			
+			#dim ToeleveringLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+			While (ToeleveringLijnIterator.HasNext())
+			{
+				#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = ToeleveringLijnIterator.Next()
+				Set ToeleveringLijnId = ToeleveringLijn.GeefID()
+				Set ProductIdOpToeleveringLijn = ToeleveringLijn.GeefProductID()
+				Set OrderLijnIdOpToeleveringLijn = ToeleveringLijn.GeefOrderLijnID()
+				
+				If (($$$Not(OrderIdOpToelevering = "")) && (OrderAPI.BestaatOrder(OrderIdOpToelevering))) {
+					Set Order = OrderAPI.GeefOrder(OrderIdOpToelevering)
+					Set OrderLijn = Order.GeefOrderLijnViaVolgnummer(OrderLijnIdOpToeleveringLijn)
+					
+					If ($IsObject(OrderLijn)) {
+						Set ProductIdOpOrderLijn = OrderLijn.GeefProductID()
+						Set Identnummer = ProductApi.GeefIdentNummerVoorProductId(ProductIdOpOrderLijn)
+						
+						If ($$$Not(ProductIdOpToeleveringLijn = ProductIdOpOrderLijn)) {
+							;Write !,"ProductId '"_ProductIdOpOrderLijn_"' op de OrderLijn '"_OrderLijnIdOpToeleveringLijn_"' op OrderId '"_OrderIdOpToelevering_"' komt niet overeen met de ProductId '"_ProductIdOpToeleveringLijn_"' op de ToeleveringLijn '"_ToeleveringLijnId_"' van Toelevering '"_Toelevering.GeefID()_"'."
+							Write !,"ProductId ;"_ProductIdOpOrderLijn_"; - ;"_Identnummer_"; op OrderId ;"_OrderIdOpToelevering_"; komt niet overeen met de ProductId ;"_ProductIdOpToeleveringLijn_"; - ;"_ProductApi.GeefIdentNummerVoorProductId(ProductIdOpToeleveringLijn)_"; op de ToeleveringLijn '."
+						}
+					}
+				}
+			}
+		}
+	}
+	
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>