Index: OBJTimpl/Bewaker/PrioriteitControleur.cls.xml
===================================================================
diff -u
--- OBJTimpl/Bewaker/PrioriteitControleur.cls.xml	(revision 0)
+++ OBJTimpl/Bewaker/PrioriteitControleur.cls.xml	(revision 71215)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.Bewaker.PrioriteitControleur">
+<Description>
+Herbevoorrading van de Kardex</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="KlantNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Straat">
+<Type>%String</Type>
+</Property>
+
+<Property name="DueoutDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijze">
+<Type>%String</Type>
+</Property>
+
+<Property name="rs">
+<Type>%ResultSet</Type>
+</Property>
+
+<Property name="isGestart">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ORDWHoofding">
+<Type>Flow.OrderWMS.Hoofding</Type>
+</Property>
+
+<Property name="VervroegenDueoutTijdstip">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrgaluxOnly">
+<Type>%Boolean</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(12486,"ROSENBERGSAUSTRASSE 8","2023-05-25","SFS",1).Controle()
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(25464,"Vannestenstraat 2","2023-05-30","DI1",1)
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(1736,"w ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(12486,"","2023-05-25","SFS",1).Vervroegen()
+
+]]></Content>
+</UDLText>
+
+<Method name="%OnNew">
+<FormalSpec>KlantNr:%String,Straat:%String,DueoutDatum:%String,VerzendWijze:%String="",OrgaluxOnly:%Boolean=$$$False</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantNr=KlantNr
+	Set ..Straat=$ZCVT(Straat,"U")
+	Set ..DueoutDatum=DueoutDatum ;$zd(DueoutDatum,3) ;YYYY-MM-DD
+	Set ..VerzendWijze=VerzendWijze
+	Set ..OrgaluxOnly=$g(OrgaluxOnly)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Controle">
+<Implementation><![CDATA[
+	#Dim it as TECH.Iterator
+	Set it=##class(OBJTimpl.Bewaker.ORDWIterator).%New(..KlantNr,..DueoutDatum)
+	Set ..isGestart=0
+	While it.HasNext()
+	{
+		Set ..ORDWHoofding=it.Next()
+		w !,..ORDWHoofding.ConsolidatieNr, " ",..ORDWHoofding.Straat
+		
+		If ..Valid()
+		{
+			w !,"CONTROLE ",..ORDWHoofding.ConsolidatieNr, " ",..ORDWHoofding.StatusWMS
+			Set:..ORDWHoofding.StatusWMS?1(1"P",1"A",1"C",1"B") ..isGestart=1
+		}
+	}
+	Quit ..isGestart
+]]></Implementation>
+</Method>
+
+<Method name="Vervroegen">
+<Implementation><![CDATA[
+	#Dim it as TECH.Iterator
+	Set it=##class(OBJTimpl.Bewaker.ORDWIterator).%New(..KlantNr,..DueoutDatum)
+	
+	Set ..VervroegenDueoutTijdstip=$H ;Vast zetten zodat alle bons dezelfde tijd krijgen voor die klant
+	While it.HasNext()
+	{
+		Set ..ORDWHoofding=it.Next()
+
+		If ..Valid() && ..NogTePicken()
+		{
+			w !,"VERVROEGEN ",..ORDWHoofding.ConsolidatieNr, " ",..ORDWHoofding.Straat," ",..ORDWHoofding.StatusWMS," ",..ORDWHoofding.DueOutTimeTxt
+			Do ..VervroegenPicking()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="NogTePicken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:(..ORDWHoofding.StatusWMS?1(1"B",1"A",1"C")) 1
+	
+	Set SoftV=$O(^ORDW("D",..ORDWHoofding.ConsolidatieNr,"S",""))
+	Set NogTePicken=0
+	While SoftV'=""
+	{
+		If SoftV'="V" ; Alles behalve OBJT
+		{
+			Set:$P(^ORDW("D",..ORDWHoofding.ConsolidatieNr,"S",SoftV),"\")'="A" NogTePicken=1
+		}
+		Set SoftV=$O(^ORDW("D",..ORDWHoofding.ConsolidatieNr,"S",SoftV))
+	}
+	Quit NogTePicken
+]]></Implementation>
+</Method>
+
+<Method name="VervroegenPicking">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Lock +^ORDW("D",..ORDWHoofding.ConsolidatieNr):0 ; Als de lock faalt dan toch wijzigen.
+	
+	Set DueoutTijdstip=$P(^ORDW("D",..ORDWHoofding.ConsolidatieNr),"\",3)
+	If ($P(DueoutTijdstip,",",1)=$P(..VervroegenDueoutTijdstip,",",1)) && ($P(DueoutTijdstip,",",2)>$P(..VervroegenDueoutTijdstip,",",2)) ; vandaag en de tijd kan vervroegd worden.
+	{
+		Set $P(DueoutTijdstip,",",2)=$P(..VervroegenDueoutTijdstip,",",2)
+		Set $P(^ORDW("D",..ORDWHoofding.ConsolidatieNr),"\",3)=DueoutTijdstip
+	}
+	
+	Lock -^ORDW("D",..ORDWHoofding.ConsolidatieNr)
+]]></Implementation>
+</Method>
+
+<Method name="Valid">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+		Set ORDWStraat=$S(..ORDWHoofding.Straat="":..ORDWHoofding.Klant.StraatNrBus,1:..ORDWHoofding.Straat)
+		Quit:$ZCVT(ORDWStraat,"U")'=..Straat 0
+		Set IsOrgalux=$$ORGALBON^FLOWCHK(..ORDWHoofding.ConsolidatieNr)
+		Quit:..OrgaluxOnly&&'IsOrgalux 0
+		Quit:'..OrgaluxOnly&&IsOrgalux 0
+		Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/OBJT/WMSBewakerService.cls.xml
===================================================================
diff -u
--- WS/OBJT/WMSBewakerService.cls.xml	(revision 0)
+++ WS/OBJT/WMSBewakerService.cls.xml	(revision 71215)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.OBJT.WMSBewakerService">
+<ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>WMSBewaker</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+TODO: change this to actual SOAP namespace.
+SOAP Namespace for the WebService</Description>
+<Default>http://cache01.vanhoecke.be/objt</Default>
+</Parameter>
+
+<Method name="HeeftGestarteOrders">
+<FormalSpec>KlantNr:%String,Straat:%String,DueoutDatum:%String,VerzendWijze:%String="",OrgaluxOnly:%Boolean=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set Controleur = ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(KlantNr,Straat,DueoutDatum,VerzendWijze,OrgaluxOnly)
+	Quit Controleur.Controle()
+]]></Implementation>
+</Method>
+
+<Method name="VervroegOrders">
+<FormalSpec>KlantNr:%String,Straat:%String,DueoutDatum:%String,VerzendWijze:%String,OrgaluxOnly:%Boolean</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set Controleur = ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(KlantNr,Straat,DueoutDatum,VerzendWijze,OrgaluxOnly)
+	Quit Controleur.Vervroegen()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/Bewaker/ORDWIterator.cls.xml
===================================================================
diff -u
--- OBJTimpl/Bewaker/ORDWIterator.cls.xml	(revision 0)
+++ OBJTimpl/Bewaker/ORDWIterator.cls.xml	(revision 71215)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.Bewaker.ORDWIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Iterator">
+<Type>TECH.ResultSetIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>%ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantNr:%String,DueOutDatum:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
+	Set sc=result.Prepare(..GeefSQL())
+	If $$$ISERR(sc) Quit sc
+	Set sc=result.Execute(KlantNr,DueOutDatum) If $$$ISERR(sc) Quit sc
+	Set ..Iterator=##class(TECH.ResultSetIterator).%New(result)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQL">
+<Implementation><![CDATA[
+	Set SQL="select "
+	_ "   ConsolidatieNr"
+	_ " from flow_orderwms.Hoofding"
+	_ " where isnull(StatusWMS,'')<>'' --in ('W','P','A','C','B')"
+	_ " and Klant=?"
+	_ " and left(DueOutTimeTxt,10)=?"
+	Quit SQL
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Iterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%Library.Persistent</ReturnType>
+<Implementation><![CDATA[
+	Set ..ResultSet=..Iterator.Next()
+	Set CONSNr=..Key()
+	
+	Quit ##class(Flow.OrderWMS.Hoofding).%OpenId(CONSNr)
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Quit ..Iterator.Reset()
+]]></Implementation>
+</Method>
+
+<Method name="Key">
+<Implementation><![CDATA[	Quit ..ResultSet.Data("ConsolidatieNr")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>