Index: BL/Legacy/EWORDS.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS.cls.xml	(revision 47909)
@@ -0,0 +1,180 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Save">
+<FormalSpec>NoAsk,KlantNummer:%String,Delimiter:%String,DueOutSend:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim IsOk As %Boolean = $$$False
+	
+	If $Data(^HULP(%J, KlantNummer, "M", "A")) {
+		Set IsOk = $$CHKMUNT^EWORDS(%J, KlantNummer, $Get(NoAsk))
+		
+		If (IsOk && $$$Not(KlantNummer = $$$KlantHalux)) {
+			Do AnderTransport^EWORDS5(%J, KlantNummer) ; altijd uitvoeren niet afhankelijk van NoAsk param, niet voor Halux.	
+		}
+		
+		If (IsOk) {
+			Set IsOk = $Get(NoAsk)
+			
+			If $$$Not(IsOk) {
+				Set IsOk = $$^vhTXTPOP("EWORDS", "SAVE")
+			}	
+		}
+		
+		Quit:$$$Not(IsOk)
+		
+		#dim ConsolidatieNummer As %String = $$GETNUM^FLOW("KUL", "KU1")
+		#dim Data As %String = $Get(^HULP(%J, KlantNummer, "V"))
+		#dim OrderNummer As %String = $Order(^HULP(%J, KlantNummer, "M", "A", ""))
+		#dim DueOutDate As %String = $Piece($Piece(Data, Delimiter, 2), ",")
+		#dim DueOutTime As %String = $Piece(Data, Delimiter, 3)
+		#dim VerzendWijze As %String = ..GeefVerzendWijze(KlantNummer, OrderNummer, Data, Delimiter)
+		#dim VerzendZone As %String = $Piece(Data, Delimiter, 4)
+		#dim VerzendDatum As %String = $Piece(Data, Delimiter, 5)
+ 		
+ 		#dim ReturnLocal As TECH.MultiDim
+ 		#dim UniekOrderLijnNummer As %String = $Order(^HULP(%J, KlantNummer, "M", "A", OrderNummer, ""))
+ 		
+ 		While $$$Not(UniekOrderLijnNummer = "") {
+	 		Set UniekOrderLijnNummer = $Order(^HULP(%J, KlantNummer, "M", "A", OrderNummer, UniekOrderLijnNummer))
+	 		
+	 		#dim OrderLijnData As %String = ^HULP(%J, KlantNummer, "M", "A", OrderNummer, UniekOrderLijnNummer)
+	 		#dim AantalVoorBackOrder As %Decimal = $Piece(OrderLijnData, "\", 2)
+	 		
+	 		// We gaan nagaan of er backorderlijnen moeten gesplitst worden. Indien de 2de piece is ingevuld moet die gebruikt worden als BackOrder aantal.
+ 			// Achteraf maken we die piece leeg zodat de rest van de code zijn werk blijft doen.
+	 		If (AantalVoorBackOrder > 0) {
+		 		#dim LeverDatum As %String = ..GeefLeverDatum(OrderLijnData)
+		 		
+		 		Do SPLITOLN^FLOWORD6(, OrderNummer, ^ORD("IU", OrderNummer, UniekOrderLijnNummer), AantalVoorBackOrder, LeverDatum,, .ReturnLocal)	
+		 		
+		 		Set $Piece(Data , "\", 2) = ""
+		 		Set $Piece(^KOD(KlantNummer, "F", OrderNummer, ^ORD("IU", OrderNummer, ReturnLocal("NewOLUNr"))), "\", 53) = 1
+		 		Set ^HULP(%J, KlantNummer, "M", "A", OrderNummer, UniekOrderLijnNummer) = OrderLijnData
+	 		}	
+ 		}
+ 		
+ 		If (DueOutTime = "") {
+	 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DOutTime mag niet null zijn"))	
+ 		}
+ 		
+ 		#dim BeletDone As %String = ""
+ 		#dim LeverAdres As %String = ^HULP(%J, KlantNummer, "C", "LA")
+ 		
+ 		Do BLDCONS^EWORDS2(KlantNummer, $Name(^HULP(%J, KlantNummer, "M")), ConsolidatieNummer, $Piece(VerzendWijze, ";"), VerzendDatum, DueOutDate _ "," _ DueOutTime, VerzendZone, LeverAdres, BeletDone) ; Creatie suborderlijnen
+ 		
+ 		#dim OrderNummers As %String = ..GeefOrderNummers(ConsolidatieNummer)
+ 		
+ 		Do STORE^LOG("ORDW", ConsolidatieNummer, "O", OrderNummers)
+ 		
+ 		Set BeletDone = $Get(BeletDone)
+ 		
+ 		Do VERWERK^EWORDSS(ConsolidatieNummer) ; Eventueel opsplitsen in groepen
+ 		
+ 		If $Data(^ORDW("D", ConsolidatieNummer)) {
+	 		//Kan bij terugname niet meer bestaan
+	 		Do ShowKennisAnker^EWORDS5(KlantNummer, ConsolidatieNummer, 1)
+	 		Do:($$ChkTRANSPORT^EWORDS(ConsolidatieNummer)) TRANSPORT^EWORDS(ConsolidatieNummer)
+	 		
+	 		#dim WmsOrderData As %String = ^ORDW("D", ConsolidatieNummer)
+	 		#dim WmsStatus As %String = $Piece(WmsOrderData, Delimiter, 20)
+	 		
+	 		Quit:(##class(TECH.StringUtils).Equals(WmsStatus, "K", "B", "C") || (BeletDone = "B"))
+	 		
+	 		If (BeletDone = "") {
+		 		#dim Check As %String = $$CHECK^EWORDS3(ConsolidatieNummer, 1)	
+		 		#dim Rembours As %String = $Piece(Check, Delimiter, 2)
+		 		
+		 		If $$$Not(Check || Rembours) {
+			 		Do BELET^EWORDS3(ConsolidatieNummer) 
+			 		Quit
+		 		}
+	 		}
+	 		
+	 		Quit:$$$Not($$MagazijnBeschikbaar^EWORDS(ConsolidatieNummer))
+	 		
+	 		#dim Send As %String = $Select($Get(DueOutSend)="L":0,1:1)
+	 		
+	 		If (Send && (DueOutDate > $Horolog)) {
+		 		Set Send = $Select(DueOutSend="V":1,1:"")	
+		 		
+		 		If (Send = "") {
+			 		Set Send = ($$^vhTXTPOP("EWORDS","SENDWMS",,$$EXTNUM^vhLib.DataTypes(ConsolidatieNummer,0,".",0),$$EXTDATE^vhLib.DataTypes(DueOutDate)) = "V"	)
+		 		}
+	 		}
+	 		
+	 		If ($$WMSACTIV^EWRECS() && Send) {
+		 		// Doorsturen naar WMS
+		 		Do SEND^EWORDSW(ConsolidatieNummer)
+	 		}	
+ 		}
+ 		
+ 		Kill ^HULP(%J, KlantNummer, "C")	
+	}
+	
+	Quit IsOk
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>KlantNummer:%String,OrderNummer:%String,Data:%String,Delimiter:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendWijze As %String = $Piece(Data, Delimiter)
+	
+	If (VerzendWijze = "") {
+		Set VerzendWijze = $$DEFAULT^KLVERZW(, KlantNummer, OrderNummer)
+			
+		Do ##class(vhLib.Logger).%New().Warning("Order doorsturen voor picking", "Verzendwijze was leeg bij order '" _ OrderNummer _ "', en wordt ingesteld op '" _ VerzendWijze _ "'.")
+	}
+	
+	Quit VerzendWijze
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverDatum">
+<FormalSpec>OrderLijnData:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverDatum As %String = $Piece(OrderLijnData, "\", 3) // gebruik eerst de LevWk die werd ingevuld.
+	#dim BackOrderLeverDatum As %String = $Piece(OrderLijnData, "\", 4)
+	
+	If $$$Not(BackOrderLeverDatum = "") {
+		Set LeverDatum = BackOrderLeverDatum // gebruik de BoLevWk indien die was ingevuld.
+	}
+	
+	Quit LeverDatum
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderNummers">
+<FormalSpec>ConsolidatieNummer:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderNummer As %String = $Order(^ORDW("D", ConsolidatieNummer, "D", ""))
+ 	#dim OrderNummers As %String = ""
+ 		
+ 	While $$$Not(OrderNummer = "") {
+	 	Set OrderNummer = $Order(^ORDW("D", ConsolidatieNummer, "D", OrderNummer))
+	 	Set OrderNummers = OrderNummers _ ";" _ OrderNummer
+ 	}
+ 		
+ 	Set $Extract(OrderNummers, 1) = ""
+ 	
+ 	Quit OrderNummers
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>