Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r49175 -r51951
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 49175)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 51951)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.TVE.Vanalles">
+<IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="KlantDataJuistZetten">
@@ -29,6 +30,278 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="output">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim factuurNummer As %String = ""
+	For  { Set factuurNummer=$Order(^LOG.AX.Order(factuurNummer)) Quit:(factuurNummer="")
+		#dim tijd As %String = ""
+		For  { Set tijd=$Order(^LOG.AX.Order(factuurNummer,tijd)) Quit:(tijd="")
+			if $g(^LOG.AX.Order(factuurNummer,tijd,"Incoming")) {
+				w !,"factuurNummer "_factuurNummer_"."_tijd
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalStock">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim WMSConnectie As %SQLGatewayConnection 
+	
+	Set WMSConnectie=##class(%SQLGatewayConnection).%New()
+    Set EWMSServer = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+    set EWMSUsername = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+    set EWMSPassword = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+ 	Set sc=WMSConnectie.Connect(EWMSServer,EWMSUsername,EWMSPassword) 
+
+	
+	
+	Set Statement = "select i.product p, sum(qty_pcs) s "
+						_"from inventory i "
+						_"where i.product in (select h.product "
+						_"from history_inventory h "
+						_"where h.insert_time < '2018-06-25-11.10.24' "
+						_"and h.insert_time > '2018-06-25-10.01.24' "
+						_"and (h.loc_m < 5 "
+						_"and action = 'ADD') "
+						_") "
+						_"group by i.product "
+						_"having sum(qty_pcs)>0 "
+						_"order by i.product " 
+	
+	Set res=##class(TECH.ResultSet).%New("%DynamicQueryGW:SQLGW")
+    Set sc=res.Prepare(Statement,,WMSConnectie)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	
+    Set sc=res.Execute()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	
+	
+	While res.Next() {
+		Set PRNr = $$$Trim(res.GetDataByName("p"))
+		Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr)
+		If $Data(^KPR(PRNr,"J6332")) {
+			Set Delta = res.GetDataByName("s") - $piece($Get(^PRSTOCK("D",PRNr)), "\", 1)
+			Set ORDNr = $Order(^ORD("IP",PRNr,""))
+			If ORDNr {
+			Set OLUNr = $Order(^ORD("IP",PRNr,ORDNr,""))
+			If OLUNr {
+			Set OLNr = ^ORD("IP",PRNr,ORDNr,OLUNr)
+			If Delta > 0 {
+				w !,PRNr_$c(9)_+res.GetDataByName("s")_$C(9)_Product.GeefKorttekst()_$C(9)_+$piece($Get(^PRSTOCK("D",PRNr)), "\", 1)_$C(9)_Delta_$C(9)_ORDNr				
+				Do STORE^PRSTOCK("F","I",PRNr,Delta,"Cor")
+				
+			}
+			}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Moederproduct">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set PRNr = ""
+	Set Sub = ""
+	k ^TVESTOCK
+	for { Set PRNr = $Order(^PRHIST(PRNr)) Quit:PRNr=""
+		for { Set Sub = $Order(^PRHIST(PRNr,Sub)) Quit:Sub=""
+		
+			Set Data = $Get(^PRHIST(PRNr,Sub))
+			//Do ##class(TECH.DateTime).%New().HorologIsGroterDan($Piece(Data,"\",1))
+			If (($Piece(Data,"\",4)="H")&&($Piece(Data,"\",5)="W")&&($Piece(Data,"\",15)'="")&&($Piece(Data,"\",1)>=(+$H-4))) {
+				Set ^TVESTOCK(+$Piece(Data,"\",7),+$Piece(Data,"\",8),+$Piece(Data,"\",15),PRNr,Sub,+$Piece(Data,"\",2))=$Piece(Data,"\",1)
+			}
+		}
+	}
+	
+	
+	k ^TVESTOCKMOEDER
+	for { Set PRNr = $Order(^PRHIST(PRNr)) Quit:PRNr=""
+		Set Sub = ""
+		for { Set Sub = $Order(^PRHIST(PRNr,Sub)) Quit:Sub=""
+		
+			Set Data = $Get(^PRHIST(PRNr,Sub))
+			
+			
+			Quit:$$$Not($Data(^KPR(PRNr,"J6332")))
+			Quit:$$$Not($Piece(Data,"\",4)="N")&&$$$Not($Piece(Data,"\",4)="A")&&$$$Not($Piece(Data,"\",4)="I")
+			Quit:$Piece(Data,"\",2)<0
+			
+			
+			If (($Piece(Data,"\",1)>=(+$H-4))) {
+				Set bon = +$Piece(Data,"\",7)
+				Set lijnnummer = +$Piece(Data,"\",8)
+				Set delta = +$Piece(Data,"\",2)
+				Set ^TVESTOCKMOEDER(bon,lijnnummer,"ismoeder",PRNr,Sub,delta)=$Piece(Data,"\",1)_"\"_$Piece(Data,"\",4)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Verwerkmoeders">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	k ^TVEVoorraadTeWijzigen
+	set AantalTeVerwerkenMoederBoekingen=0
+	
+	set bonnr = ""
+	for { Set bonnr = $Order(^TVESTOCKMOEDER(bonnr)) Quit:bonnr=""
+		
+		set lijnnummer = ""
+		for { Set lijnnummer = $Order(^TVESTOCKMOEDER(bonnr,lijnnummer)) Quit:lijnnummer=""
+			set prnr = ""
+			for { Set prnr = $Order(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr)) Quit:prnr=""
+				set sublijn = ""
+				for { Set sublijn = $Order(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn)) Quit:sublijn=""
+					
+					set aantal = ""
+					for { Set aantal = $Order(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal)) Quit:aantal=""
+						Write !, "Moeder boeking '", prnr, "'"
+						b:prnr=1968436
+						
+						set eenKindboekingGevonden = 0
+						
+						set kindproduct = ""
+						for { Set kindproduct = $Order(^TVESTOCK(bonnr,lijnnummer,prnr,kindproduct)) Quit:kindproduct="" 
+							
+							
+							set tvesub = ""
+							;b:((prnr=1968541)&&(kindproduct=784205))
+							for { 
+								Set tvesub = $Order(^TVESTOCK(bonnr,lijnnummer,prnr,kindproduct,tvesub)) 
+								Quit:tvesub=""
+								set aantalkind = $Order(^TVESTOCK(bonnr,lijnnummer,prnr,kindproduct,tvesub,""))
+								
+								set TimestampKind = $Get(^TVESTOCK(bonnr,lijnnummer,prnr,kindproduct,tvesub,aantalkind))
+								
+								//Write !, "kindboeking gevonden - TimestampMoeder='" _ TimestampKind _ "', timestampmoeder='" _ $Get(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal)) _ "'"
+								
+								set TimestampMoeder=$piece($Get(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal)),"\",1)
+								//Write !, "Verschil in timestamp: '" _ $ZABS($tr(TimestampKind,",",".") - $tr(TimestampMoeder,",",".")) _ "'."
+								If ($tr(TimestampKind,",",".") - $tr(TimestampMoeder,",",".")) < 0.0002 {
+									//---> beide tijden buitenschrijven ipv controle
+									set eenKindboekingGevonden = 1	
+								}
+								
+								Quit:eenKindboekingGevonden
+							}
+							
+							Quit:eenKindboekingGevonden
+						}
+						
+						W:$$$Not(eenKindboekingGevonden) "Deze moeder heeft te verwerken kinderen", prnr, "$$$$" , bonnr, !
+						
+						set:$$$Not(eenKindboekingGevonden) AantalTeVerwerkenMoederBoekingen= AantalTeVerwerkenMoederBoekingen+1
+						
+						If $$$Not(eenKindboekingGevonden) {
+							
+							Do ..HADPRLog(bonnr,lijnnummer,prnr,aantal,$P(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal),"\"),$P(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal),"\",2)) 
+						}
+						
+						//continue:$Data(^TVESTOCK(bonnr,lijnnummer,prnr))
+						
+						
+						//w:prnr="1958622" !,$Get(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal))
+					
+					
+					}	
+			
+					
+				
+				
+				}	
+
+			
+			
+			}	
+		
+		
+		}	
+	
+	}
+	Write !, "AantalTeVerwerkenMoederBoekingen = ", AantalTeVerwerkenMoederBoekingen, !
+]]></Implementation>
+</Method>
+
+<Method name="HADPRLog">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TOENr,TLUNr,PRNr,AantWMS,RCPODate,code</FormalSpec>
+<Implementation><![CDATA[
+ ;b:PRNr=1964212
+ Set ^TVEVoorraadTeWijzigen=""
+ Set HFCode="" ;,KLNr=$$GETALG^DEFAULTS("MRP","KLNR")
+ For  Set HFCode=$O(^PRBS("BS",PRNr,HFCode)) Quit:HFCode=""  Do
+ . Set R=^PRBS("BS",PRNr,HFCode)
+ . Set HFPRNr=$P(R,"\")
+ . ;Do Log("PRBS",HFPRNr,PRNr_"\"_R)
+ . Quit:$P(R,"\",3)'="H"  ; Geen halffabrikaat
+ . Quit:$P(R,"\",27)      ; Geen stockaanpassingen voor dit product
+ . Set FabKey=$$FABKEYT^HADOPV(TOENr,TLUNr)
+ . ;Set ResRec=$G(^HADPR("F",FabKey,"AR",HFCode))
+ . ;Do Log("HADPR",HFPRNr,PRNr_"\"_ResRec)
+ . If 1 DO ;$P(ResRec,"\",8)="H" Do  ; Reeds op halffabrikaat gezet waardoor de stock niet moet verminderd worden
+ . . ;Set QtyWVRes=$P(ResRec,"\",5)
+ . . Set QtyWVRes= AantWMS * $P(R,"\",2)
+ . . set HalffabricaatProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(HFPRNr)
+ . . If $Data(^PRBS("BS",PRNr,HFCode,"D")) Do
+ . . . Set QtyWVRes = QtyWVRes * $piece(^PRBS("BS",PRNr,HFCode,"D"),"\",3) / HalffabricaatProduct.GeefWerkvloerGrootteNetto() 
+ . . ;Set HFPRNr=$P(ResRec,"\",1)
+ . . Quit:'$D(^KPR(HFPRNr))
+ . . Quit:$P(^KPR(HFPRNr,0),"\",23)?1(1"HZ",1"HHZ")
+ . . ;Do MODHalfFabrStock^MRPSTOCK(HFPRNr,-QtyWVRes)
+ . . Set VolgendeIndex = 1 + $Order(^TVEVoorraadTeWijzigen(""),-1)
+ . . Set MoetWijzigen = "Ja"    //##class(TECH.DateTime).HorologIsGroterDan()
+ . . //w !,RCPODate _ "|"_##class(TECH.DateTime).TimeStampToHorolog("2018-06-22 00:00:00")_ " | " _$$$PRGet($$$KortTekst)
+ . . Set:($$$Not(##class(TECH.DateTime).HorologIsGroterDan(RCPODate,##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 00:00:00")))&&($D(^TVETELLINGVRIJDAG(HalffabricaatProduct.GeefKorttekst()))=1)) MoetWijzigen="Nee"
+ . . //w !,MoetWijzigen
+ . . //If ((RCPODate <= 22/6) en (prnr in lijst nbo) -> wijzigen NO
+ . . Set:((##class(TECH.DateTime).HorologIsGroterDan(RCPODate,##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 00:00:00")))&&$$$Not(##class(TECH.DateTime).HorologIsGroterDan(RCPODate,##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 01:00:00")))&&($D(^TVETELLINGVRIJDAG(HalffabricaatProduct.GeefKorttekst()))=1)&&(code="N")) MoetWijzigen = "Nee"
+ . . //Set:((RCPODate > ##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 00:00:00"))&&(RCPODate < ##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 01:00:00"))&&($D(^TVETELLINGVRIJDAG($$$PRGet($$$KortTekst)))=1)&&(code="N")) MoetWijzigen = "Nee"
+ . . //If ((RCPDate > 23/6 0.00 en < 23/6 1.00) en (prnr in lijst nbo) en (code = 'N') -> wijzigen NO
+ . . Set ^TVEVoorraadTeWijzigen(VolgendeIndex) = MoetWijzigen _ "\" _HFPRNr _ "\" _ -QtyWVRes  _ "\" _ TOENr  _ "\" _ TLUNr _ "\" _ PRNr _ "\" _ AantWMS _ "\" _ ##class(TECH.DateTime).HorologToTimeStamp(RCPODate) _ "\" _ HalffabricaatProduct.GeefKorttekst()
+ . Else  Do  ; Nog niet op halffabrikaat dus volledige verwerking
+ . . Set R=^PRBS("BS",PRNr,HFCode),HFPRNr=$P(R,"\"),Aantal=$P(R,"\",2)
+ . . Quit:'$D(^KPR(HFPRNr))
+ . . Quit:$P(^KPR(HFPRNr,0),"\",23)?1(1"HZ",1"HHZ") ; Niet voor halffabrikaten ZONDER stock verwerking, zie tabel PRLINK;LINKTYPE
+ . . Set DimUitV=$P($G(^PRBS("BS",PRNr,HFCode,"D")),"\",3)
+ . . ;Set WVAantal=$$CV2WV^MRP(HFPRNr,0,AantWMS*Aantal,DimUitV)
+ . . ;Do Log("STAT",HFPRNr,WVAantal)
+ . . ;Do STAT(TOENr,TLUNr,KLNr,PRNr,HFPRNr,WVAantal,RCPODate)
+ . . ;Do HIST(TOENr,TLUNr,KLNr,PRNr,HFPRNr,WVAantal,RCPODate)
+ ;Do DELONE^MRPRES(TOENr_";"_TLUNr,PRNr,,,AantWMS) ; WVAantal -> AantWMS : aangepast op PV 10/10/2011
+]]></Implementation>
+</Method>
+
+<Method name="VoerDoorWijzigingen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Set DoorvoerIdx=""
+	For {
+		Set DoorvoerIdx = $Order(^TVEVoorraadTeWijzigen(DoorvoerIdx))
+		Quit:(""=DoorvoerIdx)
+		Set DoorvoerData = ^TVEVoorraadTeWijzigen(DoorvoerIdx)
+		Set EchtDoorvoeren = $Piece(DoorvoerData,"\",1)
+		Continue:$$$Not("Ja"=EchtDoorvoeren)
+		Set DatumTijd=$Piece(DoorvoerData,"\",8)
+		Continue:(DatumTijd [ "2018-06-26")
+		Set HFPRNr=$Piece(DoorvoerData,"\",2)
+		Continue:(HFPRNr=784205)
+		Set NegAantal=$Piece(DoorvoerData,"\",3)
+		Do:((DoorvoerIdx # 100)=1) ##class(Tools.Wlip).%New(127).String("°")
+		Do:((DoorvoerIdx # 1000)=1) ##class(Tools.Wlip).%New(127).String("#")
+		Do ##class(Tools.Wlip).%New(127).String("Do MODHalfFabrStock^MRPSTOCK("_HFPRNr_","_NegAantal_")")
+		Set $Piece(^PRSTOCK("D",HFPRNr),"\",5)= $Piece(^PRSTOCK("D",HFPRNr),"\",5) + NegAantal
+		
+	}
+]]></Implementation>
+</Method>
 </Class>