Index: zTryout/WV/Proforma.cls.xml
===================================================================
diff -u
--- zTryout/WV/Proforma.cls.xml	(revision 0)
+++ zTryout/WV/Proforma.cls.xml	(revision 31628)
@@ -0,0 +1,161 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.Proforma">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="CheckIndex">
+<Description>
+Oproepen via
+	Do ##class(zTryout.WV.Proforma).%New().CheckIndex()</Description>
+<Implementation><![CDATA[
+	Kill ^||Proforma
+	Kill ^||ProformaDubbel
+	
+	#dim Index As %Integer = ""
+	#dim GlobRef As %String = $Name(^KFAP1("F"))
+	
+	for { set GlobRef = $query(@GlobRef) quit:GlobRef=""
+		#dim ProformaID As %String = $qs(GlobRef,4)
+		if $data(^||Proforma(ProformaID)) {
+			set ^||ProformaDubbel(ProformaID,$qs(^||Proforma(ProformaID),3)) = ^||Proforma(ProformaID)
+			set ^||ProformaDubbel(ProformaID,$qs(GlobRef,3)) = GlobRef
+		}
+		set ^||Proforma(ProformaID)=GlobRef
+	}
+	
+	write !!,"Dubbles",!
+	;zw ^||ProformaDubbel
+	
+	
+	set Idx = ""
+	for { set Idx=$order(^||ProformaDubbel(Idx)) q:Idx=""
+		set ref = $order(^||ProformaDubbel(Idx,""),-1)
+		set GlobRef = @$zr
+		W !,GlobRef
+		;Kill @GlobRef
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ResetDataKULTX">
+<Description>
+Oproepen via
+	Do ##class(zTryout.WV.Proforma).%New().ResetDataKULTX(12986,346429)</Description>
+<FormalSpec>KlantNummer:%String,BonIDs:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	Try {
+		#dim BonID As %String = ""
+		;For BonID = 345250,345393,345623,345739,345759,345762,345802,345859,346239 {
+		For BonID = BonIDs {
+			Do ..ResetDataKUL(KlantNummer,BonID)
+		}
+	}
+	Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		w "ResetDataKUL niet gelukt omwille van : ",Exceptie.GeefOmschrijving(),!
+		w "Wijzigingen worden teruggedraaid.",!,Exceptie.ToString()
+		Do OperatieScope.Gefaald()
+	}
+	Do OperatieScope.Gelukt()
+]]></Implementation>
+</Method>
+
+<Method name="ResetDataKUL">
+<FormalSpec>KlantNummer:%String,BonID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Merge ^KUL(KlantNummer,"F",BonID) = ^KUL(KlantNummer,"M",BonID)
+	Kill ^KUL(KlantNummer,"M",BonID)
+	
+	Do ##class(BL.Legacy.LeveringBon).RebuildIndexenKUL(KlantNummer,BonID)
+
+	write !,"De Subnode van ^KU1 opkuisen : ",!
+	zw ^KU1(BonID)
+]]></Implementation>
+</Method>
+
+<Method name="CleanupSubNodesTX">
+<Description>
+Oproepen via
+	Do ##class(zTryout.WV.Proforma).%New().CleanupSubNodesTX()</Description>
+<Implementation><![CDATA[
+	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	Try {
+		Do ..CleanupSubNodes()		
+	}
+	Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Write !!
+		w "CleanupSubNodes niet gelukt omwille van : ",Exceptie.GeefOmschrijving(),!
+		w "Wijzigingen worden teruggedraaid.",!,Exceptie.ToString()
+		Do OperatieScope.Gefaald()
+	}
+	Do OperatieScope.Gelukt()
+]]></Implementation>
+</Method>
+
+<Method name="CleanupSubNodes">
+<Private>1</Private>
+<Implementation><![CDATA[
+	; ^KFAP("F",80117,"U341958",1)	= 	"\10.07.07\\\\9899\K22 #KS REGIO 22\\\\\\0.00##5.84836\1\\\\EUR\005004\\00\1\\###\P\\\F\P\\\\\\\\\\"
+	
+	#dim BeforeDollarH As %String = 63000
+	#dim ProformaID As %String = 79999
+	#dim BonID As %String = ""
+	
+	For { Set ProformaID = $O(^KFAP("F",ProformaID))  Quit:(ProformaID="")||(ProformaID>89999)
+		#dim BonSubNodes As %ListOfDataTypes = ..GeefProformaBonSubNodes(ProformaID)
+
+		#dim SubNodesCheck As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+		
+		If BonSubNodes.Count() > 0 {
+			Write !,"Proforma "_ProformaID_" heeft subnodes : " _##class(TECH.ListUtils).ListToPieces(BonSubNodes," , ")_"."
+			Set SubNodeIterator = ##class(TECH.ListIterator).%New(BonSubNodes)
+			While (SubNodeIterator.HasNext()) {
+				#dim BonSubNode As %String = SubNodeIterator.Next()
+				
+				;write !,"BonSubNode "_BonSubNode_" "_$$$CRLF_$$$ArrayTT($Name(^KFAP("F",ProformaID,BonSubNode,1)))
+				#dim DatumPc2 As %String = $P(^KFAP("F",ProformaID,BonSubNode,1),"\",2)
+				If ($$INTDATE^vhLib.DataTypes(DatumPc2) < BeforeDollarH) {
+					;write !,"BonSubNode "_BonSubNode_" "_$$$CRLF_$$$ArrayTT($Name(^KFAP("F",ProformaID,BonSubNode)))
+					write !,"Subnode "_BonSubNode_" wordt verwijderd."
+					Kill ^KFAP("F",ProformaID,BonSubNode)
+				}
+				Else {
+					Do SubNodesCheck.Insert(BonSubNode)
+				}
+			}
+		}
+		Else {
+			Write !,"Proforma "_ProformaID_" heeft volgende subnode : " _##class(TECH.ListUtils).ListToPieces(BonSubNodes," , ")_"."
+		}
+		
+		If SubNodesCheck.Count() '= 1 {
+			Write !,"*** Alert na cleanup : aanwezige subnodes : " _##class(TECH.ListUtils).ListToPieces(SubNodesCheck," , ")_"."
+			;break
+		}
+		Write !," ========================================================= "
+		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProformaBonSubNodes">
+<FormalSpec>ProformaID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set BonSubNodes = ##class(%ListOfDataTypes).%New()
+	#dim BonSubNode As %String = "U"
+	For { Set BonSubNode = $O(^KFAP("F",ProformaID,BonSubNode))  Quit:(BonSubNode'?1"U".E) 
+		Do BonSubNodes.Insert(BonSubNode)
+	}
+	
+	Quit BonSubNodes
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>