Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r43 -r122
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 43)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 122)
@@ -302,15 +302,15 @@
 <Description>
 Get LeverWeken $LB() via Soap on Cache01/ADMIN1</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sDomVERW:%String,Taal:%String</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"
 	  ;d $$$DBG($G(sDomVERW)_" - "_$G(Taal))
 	New blnVHEPN,lbLevT
 	Set blnVHEPN=(sDomVERW="VHEPN")
 	If blnVHEPN Do
-	. Set lbLevT=$$GetLeverWekenViaSoap(Taal)
+	. Set lbLevT=$$GetLeverWekenViaSoap(Taal, KLNr, VerpakkingType)
 	Else  Do
 	. Set lbLevT=""
 	Quit lbLevT
@@ -327,12 +327,12 @@
 	Quit:('Result)
 	Do:(locNdx>1) cdwSoapAddToLog2   ; Not the first location
 	Set $ZTRAP="glwSoapErrorLW"
-	Set lbLevT=Client.GetLeverWekenLB(Taal)
+	Set lbLevT=Client.GetLeverWekenLB(Taal)   ; KLNr, VerpakkingType)    ; het vraagteken "?" hierboven ook weghalen (default waarde voor KLNr) 
 	Set $ZTRAP=""
 	Quit
 cdwSoapAddToLog2
 	New lbExtras
-	Set lbExtras=$$PeekSOAPBuildLog^cspBasis.SOAPlib(SoapClass,method,lbLocations,locNdx)
+	Set lbExtras=$$PeekSOAPBuildLog^cspBasis.SOAPlib(SoapClass,method,lbLocations,locNdx)_$LB("VerpakkingType="_VerpakkingType,"KLNr="_KLNr)
 	Do ##class(cspBasis.GAProdTBox).AddToLog("SOAP_BACKUP",$G(%session.Data("DOMAIN")),$G(%session.Data("KLNR")),$G(%session.Data("MODE")),wsID,$G(%session.Data("VERW")),$G(Taal),,lbExtras)
 	Quit
 glwSoapErrorLW