Index: zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml
===================================================================
diff -u
--- zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(revision 0)
+++ zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(revision 37922)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.KALOpkuis.BLOrdRsp">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="KuisVerwerktVlagOp">
+<FormalSpec>Param:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Toelevering as %String = "0"
+	#Dim ToeleveringLijn as %String = ""
+	#Dim LijnPart as %String = ""
+	#dim Bericht as %String = ""
+	#Dim cmd as %String = ""
+
+	set Toelevering = $Order(^BLOrdRsp(Toelevering))
+	while $$$Not(Toelevering="") {
+		Set ToeleveringLijn = ""
+		set ToeleveringLijn = $Order(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		while $$$Not(ToeleveringLijn = "") {
+			set Bericht = ""
+			set cmd = ""
+			set Bericht = "Toelevering " _ Toelevering _ " Lijn " _ ToeleveringLijn _ " ident " _ $Extract(^BLOrdRsp(Toelevering,ToeleveringLijn,1),20,27)_" aantal " _$Extract(^BLOrdRsp(Toelevering,ToeleveringLijn,1),28,34)
+
+			if $Data(^BLOrdRsp(Toelevering,ToeleveringLijn,2)){
+				set Bericht = Bericht _" gesplitst"
+			} else {
+				if $Data(^RCP("IT",Toelevering,ToeleveringLijn * 100)){
+					set Bericht = Bericht _" reeds in wms en "				
+					if $Piece(^BLOrdRsp(Toelevering,ToeleveringLijn,1),"\",2) = "1" {
+						set Bericht = Bericht _ " ok"
+						set Bericht = ""
+					} else {
+						set Bericht = Bericht _" te updaten"
+						set cmd = "set $Piece(^BLOrdRsp("_Toelevering_","_ToeleveringLijn_",1),""\"",2) = ""1"""
+					}				
+				} else {
+					set Bericht = ""
+				    ;nog niet in wms
+				}
+			}
+			if Param = "cmd"{
+				w:$Length(cmd) !,cmd
+			} else {
+				w:$Length(Bericht) !,Bericht
+			}
+			set ToeleveringLijn = $Order(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		}
+		set Toelevering = $Order(^BLOrdRsp(Toelevering))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>