Index: vhDeploy/D20171027xOfferteKoppelingenInvullen.cls.xml
===================================================================
diff -u
--- vhDeploy/D20171027xOfferteKoppelingenInvullen.cls.xml	(revision 0)
+++ vhDeploy/D20171027xOfferteKoppelingenInvullen.cls.xml	(revision 47488)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20171027xOfferteKoppelingenInvullen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Koppelingen in beide richtingen invullen op Offertes</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Query As %String = "select ID, OfferteVanHandel, ExterneID from APPS_VKP_impl.Offerte where OfferteVanHandel is not null"
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.DynamicQuery).%New(Query))
+
+	#dim ID As %String
+	#dim OfferteVanHandel As %String
+	#dim ExterneId As %String
+	#dim UpdateQuery As %String
+	#dim lbParams As %List
+	While ResultSet.Next() {
+		Set ID = ResultSet.GetDataByName("ID")
+		Set OfferteVanHandel = ResultSet.GetDataByName("OfferteVanHandel")
+		Set ExterneId = ResultSet.GetDataByName("ExterneId")
+		
+		If +ExterneId > 0 {
+			Set UpdateQuery = "update APPS_VKP_impl.Offerte Set KlantBestellingID = ? where ID = ?"
+			Set lbParams = $LB(ID, OfferteVanHandel)
+			Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams)
+			
+			Set UpdateQuery = "update APPS_VKP_impl.Offerte Set LeverancierOfferteId = ? where ID = ?"
+			Set lbParams = $LB(OfferteVanHandel, ID)
+			Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams)
+		} Else {
+			Set UpdateQuery = "update APPS_VKP_impl.Offerte set LeverancierOfferteId = ? where ID = ?"
+			Set lbParams = $LB(ID, OfferteVanHandel)
+			Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams)
+			
+			Set UpdateQuery = "update APPS_VKP_impl.Offerte set KlantBestellingID = ? where ID = ?"
+			Set lbParams = $LB(OfferteVanHandel, ID)
+			Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>