Index: OBJTimpl/WMSOrder/dtoOntvangst.cls.xml
===================================================================
diff -u -r66871 -r67007
--- OBJTimpl/WMSOrder/dtoOntvangst.cls.xml	(.../dtoOntvangst.cls.xml)	(revision 66871)
+++ OBJTimpl/WMSOrder/dtoOntvangst.cls.xml	(.../dtoOntvangst.cls.xml)	(revision 67007)
@@ -79,7 +79,7 @@
 <Method name="VulInVanuitEWMSControle">
 <FormalSpec><![CDATA[&C:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	Set ..ReceptieId=C("RCPNR")_";"_C("BONNR")_";"_C("RCPLNR")_";"_C("RCPLSPLITSNR")
+	Set ..ReceptieId=C("RCPNR")_", "_C("BONNR")_", "_C("RCPLNR")_", "_C("RCPLSPLITSNR")
 	;
 	Set ..ItemId=..OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(C("PRNR"),$$$IdentNummer))
 	Set ..ItemNm=$$$ProductGet(C("PRNR"),$$$KortTekst)
@@ -95,7 +95,7 @@
 <Method name="VulIn">
 <FormalSpec>PRNr:%String,PaletId:%String,Aantal:%Numeric</FormalSpec>
 <Implementation><![CDATA[
-	Set ..ReceptieId="Init "_PaletId_";"_PRNr
+	Set ..ReceptieId="Init "_PaletId_", "_PRNr
 	;
 	Set ..ItemId=..OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(PRNr,$$$IdentNummer))
 	Set ..ItemNm=$$$ProductGet(PRNr,$$$KortTekst)
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u -r66843 -r67007
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 66843)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 67007)
@@ -13,6 +13,7 @@
 
 <Property name="CheckOBJTFase">
 <Type>OBJTimpl.CheckObjectiveFase</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r66843 -r67007
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 66843)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67007)
@@ -136,13 +136,14 @@
 <Method name="GeefStatusPicking">
 <Implementation><![CDATA[
 	; Als het aantal afwijkt van het gevraagd aantal dan PNOK (picking niet OK)
-	Set ORDNr=$P(..pxPicking.LijnNr,";")
- 	Set OLNr=$P(..pxPicking.LijnNr,";",2)\100
- 	Set SOLNr=$P(..pxPicking.LijnNr,";",2)#100*100
+	#dim Delimiter = $Select(..pxPicking.LijnNr [ ";":";",1:", ")
+	#dim ORDNr as %String =$P(..pxPicking.LijnNr,Delimiter)
+ 	#dim OLNr as %String =$P(..pxPicking.LijnNr,Delimiter,2)\100
+ 	#dim SOLNr as %String =$P(..pxPicking.LijnNr,Delimiter,2)#100*100
  	
  	Quit:'ORDNr||'OLNr||'SOLNr "" 
- 	Set Rec=$G(^ORDW("D",..CONSNr,"D",ORDNr,OLNr,SOLNr))
- 	Set Status="POK" ;$S(..pxPicking.Aantal=$P(Rec,"\",3):"POK",1:"PNOK")
+ 	#dim Bestaat as %Boolean = $D(^ORDW("D",..CONSNr,"D",ORDNr,OLNr,SOLNr))
+ 	#dim Status as %String = $Select(Bestaat:"POK",1:"PNOK")
  	Quit Status
 ]]></Implementation>
 </Method>
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r66957 -r67007
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 66957)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 67007)
@@ -112,7 +112,7 @@
 
 	Set JaarMaand=$$EXTDATE^vhLib.DataTypes(+$P(^ORDW("D",C("CONSNR")),"\",18),"DM")
 	Set ..ConsNr=$E($TR(JaarMaand,"-")_"9999",1,4)_C("CONSNR") ; voor uniciteit op lange termijn wordt YYMM toegevoegd
-	Set ..LijnNr=C("ORDNR")_";"_C("OLNR")
+	Set ..LijnNr=C("ORDNR")_", "_C("OLNR")
 	;
 	Set ..OrderTekst=$G(C("ORDTEKST"))
 	Set ..ItemId=OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(C("PRNR"),$$$IdentNummer))
Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r66960 -r67007
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 66960)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 67007)
@@ -54,12 +54,13 @@
 </UDLText>
 
 <Method name="VerwerkWebservice">
-<FormalSpec>Entiteit:%String,ItemId:%String,VoorraadWijziging:%Decimal</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemId:%String,VoorraadWijziging:%Decimal,Lossing:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..pxVoorraad=##class(dtoCorrelateVoorraadWijziging).%New()
 	Set ..pxVoorraad.Entiteit=Entiteit
 	Set ..pxVoorraad.ItemId=ItemId
 	Set ..pxVoorraad.Delta=VoorraadWijziging
+	Set ..pxVoorraad.Lossing = Lossing
 	Do ..VerwerkVoorraad()
 	Quit ..pxVoorraad.Fout
 ]]></Implementation>
@@ -89,7 +90,14 @@
 	Do ##class(vhLib.OldSchool).InitVars()
 	Set CUserId="OBJT"
 	Set %Q1="^KBA(""%1"",$I)"
-	Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),"A",PRNr,VoorraadWijziging,"OBJT wijziging")
+
+	#dim Referentie as %String = "OBJT wijziging"
+	#dim Actie As %String = "A" ; aanpassing
+	If ($Length(..pxVoorraad.Lossing)) {
+		Set Referentie = Referentie _ " Lossing " _ ..pxVoorraad.Lossing
+		Set Actie = "I" ; Inbound
+	} 
+	Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),Actie,PRNr,VoorraadWijziging,Referentie)
 ]]></Implementation>
 </Method>
 
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r66284 -r67007
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 67007)
@@ -39,6 +39,11 @@
 <Parameter name="XMLNIL" value="1"/>
 </Property>
 
+<Property name="Lossing">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
 <Property name="Fout">
 <Type>%String</Type>
 <Parameter name="XMLNIL" value="1"/>
@@ -52,8 +57,6 @@
 <IndexLocation>^OBJTimpl.W6F17.dtoCorrelatF4B4I</IndexLocation>
 <StreamLocation>^OBJTimpl.W6F17.dtoCorrelatF4B4S</StreamLocation>
 <Data name="dtoCorrelateVoorraadWijzigingDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -75,6 +78,9 @@
 <Value name="7">
 <Value>Fout</Value>
 </Value>
+<Value name="8">
+<Value>Lossing</Value>
+</Value>
 </Data>
 </Storage>
 </Class>