Index: zTryout/THB/PrhistNaToevoegingAxIdsCorrigeerder.cls.xml
===================================================================
diff -u
--- zTryout/THB/PrhistNaToevoegingAxIdsCorrigeerder.cls.xml	(revision 0)
+++ zTryout/THB/PrhistNaToevoegingAxIdsCorrigeerder.cls.xml	(revision 54520)
@@ -0,0 +1,213 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.PrhistNaToevoegingAxIdsCorrigeerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="IteratorMetHoutCertificaat">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IteratorZonderHoutCertificaat">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSetMetHoutCertificaat">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSetZonderHoutCertificaat">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi, ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New())
+	
+	Do ..VoerUitQueryMetHoutCertificaat()
+	Do ..VoerUitQueryZonderHoutCertificaat()
+	
+	Set ..IteratorMetHoutCertificaat = ##class(TECH.ResultSetIterator).%New(..ResultSetMetHoutCertificaat)
+	Set ..IteratorZonderHoutCertificaat = ##class(TECH.ResultSetIterator).%New(..ResultSetZonderHoutCertificaat)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerPrhist">
+<Implementation><![CDATA[
+	Do ..CorrigeerLijnenMetHoutCertificaat()
+	Do ..CorrigeerLijnenZonderHoutCertificaat()
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerLijnenMetHoutCertificaat">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Count As %Integer = 0
+	#dim VoorraadBewegingId As %String
+	#dim DataLijn As %String
+	#dim EersteDeelDataLijn As %String
+	#dim LaatsteDeelDataLijn As %String
+	#dim BonOfToeleveringNummer As %String
+	#dim LijnNummer As %String
+	#dim AxInventTransId As %String
+	#dim DataLijnEindigtMetSlash As %Boolean
+	
+	While ..IteratorMetHoutCertificaat.HasNext() {
+		Set VoorraadBewegingId = ..IteratorMetHoutCertificaat.Next().GetData(1)
+		Set AxInventTransId = ""
+		If ($Data(^PRHIST($Piece(VoorraadBewegingId,"||",1),$Piece(VoorraadBewegingId,"||",2)))) {
+			Set DataLijn = ^PRHIST($Piece(VoorraadBewegingId,"||",1),$Piece(VoorraadBewegingId,"||",2))
+			Set DataLijnEindigtMetSlash = (($Extract(DataLijn,*)) = "\")
+			Set LaatsteDeelDataLijn = $Piece(DataLijn,"\",19)_"\"_$Piece(DataLijn,"\",20)
+			If DataLijnEindigtMetSlash {
+				Set EersteDeelDataLijn = $Extract(DataLijn,1,*-($Length(LaatsteDeelDataLijn)+1))
+			} Else {
+				Set EersteDeelDataLijn = $Extract(DataLijn,1,*-($Length(LaatsteDeelDataLijn)))
+			}
+			Set BonOfToeleveringNummer = $Piece(DataLijn,"\",7)
+			Set LijnNummer = $Piece(DataLijn,"\",8)
+			Set AxInventTransId = ..GeefAxInventTransId(+BonOfToeleveringNummer, +LijnNummer)
+			Set ^PRHIST($Piece(VoorraadBewegingId,"||",1),$Piece(VoorraadBewegingId,"||",2)) = EersteDeelDataLijn_AxInventTransId_"\"_LaatsteDeelDataLijn
+			Set Count = Count + 1
+		}
+		Write "."
+	}
+	Write !,"Aantal lijnen aangepast MetHoutCertificaat: '"_Count_"'"
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerLijnenZonderHoutCertificaat">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Count As %Integer = 0
+	#dim VoorraadBewegingId As %String
+	#dim DataLijn As %String
+	#dim EersteDeelDataLijn As %String
+	#dim LaatsteDeelDataLijn As %String
+	#dim DataLijnEindigtMetSlash As %Boolean
+	
+	While ..IteratorZonderHoutCertificaat.HasNext() {
+		Set VoorraadBewegingId = ..IteratorZonderHoutCertificaat.Next().GetData(1)
+		If ($Data(^PRHIST($Piece(VoorraadBewegingId,"||",1),$Piece(VoorraadBewegingId,"||",2)))) {
+			Set DataLijn = ^PRHIST($Piece(VoorraadBewegingId,"||",1),$Piece(VoorraadBewegingId,"||",2))
+			Set DataLijnEindigtMetSlash = (($Extract(DataLijn,*)) = "\")
+			Set LaatsteDeelDataLijn = $Piece(DataLijn,"\",18)_"\"_$Piece(DataLijn,"\",19)_"\"_$Piece(DataLijn,"\",20)
+			If DataLijnEindigtMetSlash {
+				Set EersteDeelDataLijn = $Extract(DataLijn,1,*-($Length(LaatsteDeelDataLijn)+1))
+			} Else {
+				Set EersteDeelDataLijn = $Extract(DataLijn,1,*-($Length(LaatsteDeelDataLijn)))
+			}
+			
+			Set ^PRHIST($Piece(VoorraadBewegingId,"||",1),$Piece(VoorraadBewegingId,"||",2)) = EersteDeelDataLijn_"\"_LaatsteDeelDataLijn
+			Set Count = Count + 1
+		}
+		Write "."
+	}
+	Write !,"Aantal lijnen aangepast ZonderHoutCertificaat: '"_Count_"'"
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQueryMetHoutCertificaat">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement As %String
+	
+	Set SqlStatement = "SELECT ID FROM Prod.VoorraadBeweging"
+	_" WHERE TijdStip > '2018-12-20 13:46:00' AND TijdStip < '2018-12-20 17:41:00'"
+	_" AND AxInventTransId is not null AND AxConfigId is not null AND HoutCertificaatClaimMoederproduct not like '0%'"
+	
+	Set ..ResultSetMetHoutCertificaat = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQueryZonderHoutCertificaat">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement As %String
+	
+	Set SqlStatement = "SELECT ID FROM Prod.VoorraadBeweging"
+	_" WHERE TijdStip > '2018-12-20 13:46:00' AND TijdStip < '2018-12-20 17:41:00'"
+	_" AND AxInventTransId is not null AND AxConfigId is not null AND HoutCertificaatClaimMoederproduct like '0%'"
+	
+	Set ..ResultSetZonderHoutCertificaat = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxInventTransId">
+<FormalSpec>BonOfToeleveringNummer:%Integer,LijnNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AxInventTransId As %String = ""
+	#dim IsBon As %Boolean = $$$False
+	#dim IsToelevering As %Boolean = $$$False
+	#dim Bon As DOM.VKP.Bon
+	#dim Toelevering As DOM.AKP.Toelevering
+	#dim BonLijn As DOM.VKP.Orderlijn
+	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn
+	#dim UniekLijnNummer As %Integer
+	
+	If (($$$HasLength(BonOfToeleveringNummer)) && ($$$HasLength(LijnNummer))) {
+			If (..IsBon(BonOfToeleveringNummer) && ($Data(^BON("IU",BonOfToeleveringNummer,LijnNummer)))) {
+				Set Bon = ..OrderApi.GeefBon(BonOfToeleveringNummer)
+				Set UniekLijnNummer = ^BON("IU",BonOfToeleveringNummer,LijnNummer)
+				Set BonLijn = Bon.GeefBonLijnViaVolgnummer(UniekLijnNummer)
+				Set AxInventTransId = BonLijn.GeefAxInventTransId()
+			} ElseIf (..IsToelevering(BonOfToeleveringNummer) && ($Data(^TO("IU",BonOfToeleveringNummer,LijnNummer)))) {
+				Set Toelevering = ..ToeleveringApi.GeefToelevering(BonOfToeleveringNummer)
+				Set UniekLijnNummer = ^TO("IU",BonOfToeleveringNummer,LijnNummer)
+				Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(UniekLijnNummer)
+				Set AxInventTransId = ToeleveringLijn.GeefAxInventTransId()
+			}
+	}
+	
+	Quit AxInventTransId
+]]></Implementation>
+</Method>
+
+<Method name="IsBon">
+<FormalSpec>BonOfToeleveringNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderApi.BestaatBon(BonOfToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="IsToelevering">
+<FormalSpec>BonOfToeleveringNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..ToeleveringApi.BestaatToelevering(BonOfToeleveringNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>