Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u -r68388 -r68391
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68388)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68391)
@@ -45,12 +45,12 @@
  	
  	#dim AantalLadesOpEtiket As %Integer = 1
  	#dim IsBarcodeLinks As %Boolean = $$$True
- 	#dim HuidigeLijnRefEnLadeCode As %String = $ListBuild(DnaCode.LijnReferentie, ..GeefLadeCodeOpProduct(DnaCode))
+ 	#dim HuidigeLijnRefEnLadeCode As %String = $ListBuild(DnaCode.LijnReferentie, ..GeefLadeCodeZonderPrefixEnSuffix(DnaCode))
  	#dim VolgendeLijnRefEnLadeCode As %String
  	
 	While GesorteerdeDnaCodeIterator.HasNext() {
 		Set VolgendeDnaCode = GesorteerdeDnaCodeIterator.Next()
-		Set VolgendeLijnRefEnLadeCode = $ListBuild(VolgendeDnaCode.LijnReferentie, ..GeefLadeCodeOpProduct(VolgendeDnaCode))
+		Set VolgendeLijnRefEnLadeCode = $ListBuild(VolgendeDnaCode.LijnReferentie, ..GeefLadeCodeZonderPrefixEnSuffix(VolgendeDnaCode))
 		
 		If $$$Not(HuidigeLijnRefEnLadeCode = VolgendeLijnRefEnLadeCode) {
 			Do ProboxBarcodeLabelLijst.Insert(..GenereerProboxBarcodeEtiket(DnaCode, AantalLadesOpEtiket, IsBarcodeLinks, LabelDevice))
@@ -78,7 +78,7 @@
 	Set ProboxBarcodeLabel.Device = LabelDevice
 	Set ProboxBarcodeLabel.Aantal = 1
 	Set ProboxBarcodeLabel.LijnReferentie = DnaCode.LijnReferentie
-	
+	Set ProboxBarcodeLabel.LadeCode = ..GeefLadeCodeZonderPrefixEnSuffix(DnaCode)
  	Set ProboxBarcodeLabel.AantalLades = AantalLadesOpEtiket
  	Set ProboxBarcodeLabel.IsBarcodeLinks = IsBarcodeLinks
  	
@@ -123,14 +123,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLadeCodeOpProduct">
+<Method name="GeefLadeCodeZonderPrefixEnSuffix">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
+	#dim LadeCode As %String = DnaCode.LadeCode
 	
-	Quit Product.GeefLadeCode()
+	Quit $Piece(LadeCode,".",2) _ "." _ $Piece(LadeCode,".",3)
 ]]></Implementation>
 </Method>