Index: zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml
===================================================================
diff -u -r37954 -r38136
--- zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 37954)
+++ zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 38136)
@@ -19,30 +19,46 @@
 		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 $P(^BLOrdRsp(Toelevering,ToeleveringLijn,1),"\",2) '= 1 { ;nog niet gemarkeerd
+				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 = ""
+				if $Data(^BLOrdRsp(Toelevering,ToeleveringLijn,2)){
+					set Bericht = Bericht _" gesplitst"
+				} else {
+					// zit het nog in KTO
+					if $Data(^TO("IU",Toelevering,ToeleveringLijn * 100)) {
+						// reeds op WMS?
+						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
+						}
 					} else {
-						set Bericht = Bericht _" te updaten"
-						set cmd = "set $Piece(^BLOrdRsp("_Toelevering_","_ToeleveringLijn_",1),""\"",2) = ""1"""
-					}				
+						if ToeleveringLijn = 0 {
+							//manueel op te lossen
+							set Bericht = Bericht _ " manueel op te lossen"
+							set cmd = ""
+						} else {
+							// Zit niet (meer) in KTO
+							set Bericht = Bericht _ " Niet meer in KTO"
+							set cmd = "set $Piece(^BLOrdRsp("_Toelevering_","_ToeleveringLijn_",1),""\"",2) = ""1"""
+						}
+					}
+				}
+				if Param = "cmd"{
+					w:$Length(cmd) !,cmd
 				} else {
-					set Bericht = ""
-				    ;nog niet in wms
+					w:$Length(Bericht) !,Bericht
 				}
 			}
-			if Param = "cmd"{
-				w:$Length(cmd) !,cmd
-			} else {
-				w:$Length(Bericht) !,Bericht
-			}
 			set ToeleveringLijn = $Order(^BLOrdRsp(Toelevering,ToeleveringLijn))
 		}
 		set Toelevering = $Order(^BLOrdRsp(Toelevering))