Index: WS/TBX/DataIOSoap.cls.xml
===================================================================
diff -u -r65 -r148
--- WS/TBX/DataIOSoap.cls.xml	(.../DataIOSoap.cls.xml)	(revision 65)
+++ WS/TBX/DataIOSoap.cls.xml	(.../DataIOSoap.cls.xml)	(revision 148)
@@ -36,22 +36,22 @@
 
 <Method name="GetLeverWeken">
 <Final>1</Final>
-<FormalSpec>Taal:%String,ListSep:%String</FormalSpec>
+<FormalSpec>Taal:%String,ListSep:%String,KLNr:%String="",VerpakkingType:%String=""</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("GetLeverWeken").Invoke(##this,"http://tempuri.org/WS.TBX.DataIO.GetLeverWeken",.Taal,.ListSep)
+<Implementation><![CDATA[ Quit ..WebMethod("GetLeverWeken").Invoke(##this,"http://tempuri.org/WS.TBX.DataIO.GetLeverWeken",.Taal,.ListSep,.KLNr,.VerpakkingType)
 ]]></Implementation>
 </Method>
 
 <Method name="GetLeverWekenLB">
-<FormalSpec>Taal:%String</FormalSpec>
+<FormalSpec>Taal:%String,KLNr:%String,VerpakkingType:%String</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
  Set ListSep=$C(10)
- Quit $$PiecesToList^vhLib(..GetLeverWeken(.Taal,ListSep),ListSep)
+ Quit $$PiecesToList^vhLib(..GetLeverWeken(.Taal,ListSep,.KLNr,.VerpakkingType),ListSep)
 ]]></Implementation>
 </Method>
 
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r115 -r148
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 115)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 148)
@@ -398,14 +398,28 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
- Quit:('$D(NewValue)) $$$OK
- Set i=""
- For  Set WSLn=..Lijnen.GetNext(.i) Quit:(i="")  Do
- . Set WSLn.ItemVPK=NewValue
- Quit $$$OK
+	Quit:('$D(NewValue)) $$$OK
+	Set i=""
+	For  Set WSLn=..Lijnen.GetNext(.i) Quit:(i="")  Do
+	. Set WSLn.ItemVPK=NewValue
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerpakkingType">
+<Description>
+Verpakking wordt verondersteld gelijk te zijn voor alle lijnen van het WSOrder.</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set VerpakkingType=""
+	Set WSLn=..Lijnen.GetNext("")
+	If $IsObject(WSLn) {
+		Set VerpakkingType=WSLn.ItemVPK
+	}
+	Quit VerpakkingType
+]]></Implementation>
+</Method>
+
 <Method name="DCsFromLijnen">
 <Description>
 Geeft een $LB() terug met de DesignCodes voor iedere lijn van het order. 
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r144 -r148
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 144)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 148)
@@ -1101,7 +1101,7 @@
 Geeft een $LB() met de leverweken terug
 s lbWk=##class(BL.PR.GA.TandemBox).GetLeverWeken("N")   w $$ListToCRLF^vhLib(lbWk),!</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Taal:%String="N"</FormalSpec>
+<FormalSpec>Taal:%String="N",KLNr:%String="?",VerpakkingType:%String="S"</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	#define AantalProdDagen   $P($G(^HADPR("DAGPLUS"),3),"\",1)
Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r145 -r148
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 145)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 148)
@@ -307,7 +307,7 @@
 <Description>
 Get LeverWeken $LB() via Soap on Cache01/ADMIN1</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sDomVERW:%String,Taal:%String,KLNr:%String="?",VerpakkingType:%String="S"</FormalSpec>
+<FormalSpec>sDomVERW:%String,Taal:%String,KLNr:%String="",VerpakkingType:%String="S"</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	  ;s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
@@ -332,7 +332,7 @@
 	Quit:('Result)
 	Do:(locNdx>1) cdwSoapAddToLog2   ; Not the first location
 	Set $ZTRAP="glwSoapErrorLW"
-	Set lbLevT=Client.GetLeverWekenLB(Taal)   ; KLNr, VerpakkingType)    ; het vraagteken "?" hierboven ook weghalen (default waarde voor KLNr) 
+	Set lbLevT=Client.GetLeverWekenLB(Taal, KLNr, VerpakkingType)
 	Set $ZTRAP=""
 	Quit
 cdwSoapAddToLog2