Index: zTryout/JCL/Intracto.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Intracto.cls.xml	(revision 0)
+++ zTryout/JCL/Intracto.cls.xml	(revision 49273)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Intracto">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	
+	set Counter = 0
+	set Query = ##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM APPS_VKP_impl.Offerte where not ( ExterneId is null ) and AangemaaktOp > ?",$listbuild("2017-11-28 11:48:08"))
+	set resultSet = ##class(TECH.Query.impl.QueryAPI).%New().GetResultSet(Query)
+	while resultSet.Next() {
+		#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).%OpenId(resultSet.GetData(1),$$$ConcurrenyNoLocks)
+		#dim KlantNaam As %String = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Offerte.GeefKlantID()).GeefNaam()
+		continue:KlantNaam="HOUTEN LADEN.NL"
+		continue:KlantNaam="HOME COACH"
+		continue:KlantNaam="P & P"
+		continue:KlantNaam="GEKA"
+		#dim LeverAdresNaam As %String = Offerte.GeefLeverAdres().GeefNaam()
+		if $$$Trim($$$UCase(KlantNaam)) '= $$$Trim($$$UCase(LeverAdresNaam)) {
+			w !,Offerte.GeefID()_" "_Offerte.GeefExterneId()_" "_KlantNaam_" - "_LeverAdresNaam
+			set Counter=$increment(Counter)
+		}
+	}	
+	write !,Counter
+]]></Implementation>
+</Method>
+
+<Method name="Goa">
+<Implementation><![CDATA[
+	set Counter = 0
+	set Query = ##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM vhLib.Logging where Actie = ? order by DATum",$listbuild("Bereidvoorbestelling IN"))
+	set resultSet = ##class(TECH.Query.impl.QueryAPI).%New().GetResultSet(Query)
+	while resultSet.Next() {
+		#dim oLog As vhLib.Logging = ##class(vhLib.Logging).%OpenId(resultSet.GetData(1),$$$ConcurrenyNoLocks)
+		#dim Klant1 As %String = ##class(TECH.StreamUtils).TextBetween(oLog.DetailAsStream,"IP><ns1:KlantID>","</ns1:KlantID>")
+		do oLog.DetailAsStream.Rewind()
+		#dim Klant2 As %String = ##class(TECH.StreamUtils).TextBetween(oLog.DetailAsStream,"</ns1:ID><ns1:KlantID>","</ns1:KlantID>")
+		do oLog.DetailAsStream.Rewind()
+		#dim Winkelkar As %String = ##class(TECH.StreamUtils).TextBetween(oLog.DetailAsStream,"Winkelkar><ns1:ID>","</ns1:ID>")
+		do oLog.DetailAsStream.Rewind()
+		if Klant1'=Klant2 {
+			set Counter=$increment(Counter)
+			W !,$$EXTDATE^vhLib.DataTypes(oLog.Datum)_" "_oLog.%Id()_" '"_Klant1_"' '"_Klant2_"'"_"--->"_Winkelkar
+		}
+		
+	}
+	W !,Counter
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>