Index: APPS/TBXWeb/UtilsHein.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/UtilsHein.cls.xml	(revision 0)
+++ APPS/TBXWeb/UtilsHein.cls.xml	(revision 806)
@@ -0,0 +1,232 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.UtilsHein">
+<IncludeCode>PRGACNTs</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="IsOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ##class(WS.TBX.Order).%ExistsId(OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="BestaatOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ##class(WS.TBX.OrderAbstract).%ExistsId(OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantnummerVanHandel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WSOrderID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set WSOrder=##class(WS.TBX.OrderAbstract).%OpenId(WSOrderID)
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(WSOrder.WebDomain,"")
+	Quit TBXContext.GeefDomeinKlantNummer()
+]]></Implementation>
+</Method>
+
+<Method name="KopieerKlantGegevens">
+<Description>
+Set WSOrd=##class(APPS.TBXWeb.UtilsHein).KopieerKlantGegevens(fromID,ToID)  write WSOrd,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FromWSOrderID,ToWSOrderID</FormalSpec>
+<ReturnType>WS.TBX.OrderAbstract</ReturnType>
+<Implementation><![CDATA[
+	Set FromWebOrder=##class(WS.TBX.OrderAbstract).%OpenId(FromWSOrderID)
+	Set ToWebOrder=##class(WS.TBX.OrderAbstract).%OpenId(ToWSOrderID)
+	
+	For ProptertyNaam="KLNummer","WebDomain" {
+		Set $zobjproperty(ToWebOrder,ProptertyNaam)=$zobjproperty(FromWebOrder,ProptertyNaam)
+	}
+	
+	Quit ToWebOrder
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstOrderIDsVanKlant">
+<Description>
+Set OrderIDs=##class(APPS.TBXWeb.UtilsHein).GeefLijstOrderIDsVanKlant(4645,"")  write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%String,WebDomein:%String=""</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set SqlStatement = "SELECT ID FROM WS_TBX.OrderAbstract "
+	Set lbParams = ""
+	If (KlantNr = "") {
+		Set SqlStatement = SqlStatement _ "  WHERE (KLNummer is null) "
+	} Else {
+		Set SqlStatement = SqlStatement _ "  WHERE (KLNummer=?) "
+		Set lbParams = lbParams _ $LB(KlantNr)
+	}
+	If ($L(WebDomein)) {
+		Set SqlStatement = SqlStatement _ " AND (WebDomain=?) "
+		Set lbParams = lbParams _ $LB(WebDomein)
+	}
+	
+
+	Set List = ##class(%ListOfDataTypes).%New()
+	Set qHandler = $$ExecDynQuery^vhLib.Query(SqlStatement,lbParams)
+	While qHandler.Next()  { 
+		Do List.Insert(qHandler.Get("ID")) 
+	} 
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="GeefRecentOrderIDVanKlant">
+<Description>
+Set OrderID=##class(APPS.TBXWeb.UtilsHein).GeefRecentOrderIDVanKlant(4645)  write OrderID,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query("SELECT TOP 1 ID FROM WS_TBX.OrderAbstract WHERE (KLNummer=?) ORDER BY ID DESC",$LB(KlantNr))
+	Quit $LG(lbOrderIDs,1)
+]]></Implementation>
+</Method>
+
+<Method name="OrderOmzettenNaarAndereKlant">
+<Description>
+Set WSOrd=##class(APPS.TBXWeb.UtilsHein).OrderOmzettenNaarAndereKlant(WSOrderID,KlantNrTo)  write WSOrd,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WSOrderID,KlantNrTo</FormalSpec>
+<ReturnType>WS.TBX.OrderAbstract</ReturnType>
+<Implementation><![CDATA[
+	Set WebOrder=""
+	
+	Set RecentOrderID=##class(APPS.TBXWeb.UtilsHein).GeefRecentOrderIDVanKlant(KlantNrTo)
+	If $L(RecentOrderID) {
+		Set WebOrder=##class(APPS.TBXWeb.UtilsHein).KopieerKlantGegevens(RecentOrderID,WSOrderID)
+	}
+	Else {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen recent order gevonden voor klant "_KlantNrTo_". Het gevraagde EDI-nr "_WSOrderID_" kan niet worden omgezet.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)		
+	}
+	
+	Quit WebOrder
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfoOrdersOmzettenNaarKlant">
+<Description>
+Write ##class(APPS.TBXWeb.UtilsHein).GeefInfoOrdersOmzettenNaarKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Info=""
+	
+	Set RecentOrderID=##class(APPS.TBXWeb.UtilsHein).GeefRecentOrderIDVanKlant(KlantNummerToeTeKennen)
+	If $L(RecentOrderID) {
+		Set OrderIDs=##class(APPS.TBXWeb.UtilsHein).GeefLijstOrderIDsVanKlant(OudeKlantNr, WebDomein)
+		If OrderIDs.Count() {
+			Set OrderOudeKlant=##class(WS.TBX.Order).%OpenId(OrderIDs.GetAt(1))
+			Set RecentOrderNieuweKlant=##class(WS.TBX.Order).%OpenId(RecentOrderID)
+			Set Info=Info_"Omzetting van TBX-Orders van klant "_$$$CRLF_OrderOudeKlant.KLNaam_" "_$$$CRLF
+			Set Info=Info_"naar klant "_$$$CRLF_RecentOrderNieuweKlant.KLNaam_"  (van OrderID '"_RecentOrderID_"')"_$$$CRLF_$$$CRLF
+			Set Info=Info_"Volgende OrderID's zullen overgezet worden naar de nieuwe Klantgegevens (aantal : "_OrderIDs.Count()_" orders)"_$$$CRLF
+			If OrderIDs.Count() > 1000 {
+				Set Info=Info_"Aantal: "_OrderIDs.Count()_ " - Eerste ID: "_OrderIDs.GetAt(1) _" - Laatste ID: "_OrderIDs.GetAt(OrderIDs.Count()) _$$$CRLF
+			}
+			Else {
+				Set Info=Info_##class(TECH.ListUtils).ListToPieces(OrderIDs,", ")_$$$CRLF
+			}
+		}
+		Else {
+			Set Info="Geen orders gevonden voor klant "_OudeKlantNr_"."
+		}
+	}
+	Else {
+		Set Info="Geen recent order gevonden voor klant "_KlantNummerToeTeKennen_". De orders kunnen niet omgezet worden."
+	}
+	
+	Quit Info
+]]></Implementation>
+</Method>
+
+<Method name="OrdersOmzettenNaarAndereKlant">
+<Description>
+Do ##class(APPS.TBXWeb.UtilsHein).OrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set OrderIDs=##class(APPS.TBXWeb.UtilsHein).GeefLijstOrderIDsVanKlant(OudeKlantNr,WebDomein)
+	Set Cnt=..OrderIDsOmzettenNaarAndereKlant(OrderIDs,KlantNummerToeTeKennen,0)
+	
+	Set Resultaat = Cnt
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="OrdersOmzettenNrAndereKlantCMD">
+<Description>
+Do ##class(APPS.TBXWeb.UtilsHein).OrdersOmzettenNaarAndereKlantViaCMD(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderIDs=##class(APPS.TBXWeb.UtilsHein).GeefLijstOrderIDsVanKlant(OudeKlantNr,WebDomein)
+	
+	Write !
+	Write "Volgende OrderID's zullen overgezet worden naar de nieuwe Klantgegevens (aantal : "_OrderIDs.Count()_" orders)",!
+	If OrderIDs.Count() > 1000 {
+		Write "Aantal: "_OrderIDs.Count()_ " - Eerste ID: "_OrderIDs.GetAt(1) _" - Laatste ID: "_OrderIDs.GetAt(OrderIDs.Count()),!
+	}
+	Else {
+		Write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! 
+	}
+	Write !,!, "Doorgaan [J/N] ? "
+	Read Key
+	If $$$UCase(Key)="J" {
+		Set Cnt=..OrderIDsOmzettenNaarAndereKlant(OrderIDs,KlantNummerToeTeKennen,1,1)
+		Write !,"Er zijn "_Cnt_" orders omgezet naar andere klant.",!
+		
+		Do 
+	}	
+	Else {
+		Write !,"Geen orders omgezet naar andere klant.",!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OrderIDsOmzettenNaarAndereKlant">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderIDs:%ListOfDataTypes,KlantNummerToeTeKennen:%String,MetOutput:%Boolean,RecentOrderVerwijderen:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Cnt=0
+
+	Set RecentOrderID=##class(APPS.TBXWeb.UtilsHein).GeefRecentOrderIDVanKlant(KlantNummerToeTeKennen)
+	If $L(RecentOrderID) {
+		Set IDsIterator=##class(TECH.ListIterator).%New(OrderIDs)
+		While IDsIterator.HasNext() {
+			Set OmTeZettenOrderID=IDsIterator.Next()
+			Set WSOrd=##class(APPS.TBXWeb.UtilsHein).KopieerKlantGegevens(RecentOrderID,OmTeZettenOrderID)
+			Set sc=WSOrd.%Save()
+			Write:(MetOutput) "Order "_OmTeZettenOrderID_" omgezet naar nieuwe klantgegevens  "_$$ParseStatus^vhLib(sc),!
+			Set:($$$ISOK(sc)) Cnt=Cnt+1
+		}
+		
+		If RecentOrderVerwijderen && (Cnt > 0) {
+			Set scDelete = ##class(WS.TBX.OrderAbstract).%DeleteId(RecentOrderID)
+			Write "Het referentieOrder (ID: '"_RecentOrderID_"') is "_$S($$$ISERR(scDelete):"NIET ", 1:"")_"verwijderd. "_ $$ParseStatus^vhLib(scDelete),!
+		}
+	}
+	Else {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen recent order gevonden voor klant "_KlantNummerToeTeKennen_". De orders kunnen niet omgezet worden.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)		
+	}
+	
+	Quit Cnt
+]]></Implementation>
+</Method>
+</Class>
+</Export>