Index: APPS/Halux/common/ProductieService.cls.xml
===================================================================
diff -u -r31128 -r47368
--- APPS/Halux/common/ProductieService.cls.xml	(.../ProductieService.cls.xml)	(revision 31128)
+++ APPS/Halux/common/ProductieService.cls.xml	(.../ProductieService.cls.xml)	(revision 47368)
@@ -118,6 +118,12 @@
 		
 			If (ExtraAchtervoegsels.Count() > 0) Set DisplayNaam = DisplayNaam_" ("_##class(TECH.ListUtils).ListToPieces(ExtraAchtervoegsels," ")_")"
 		}
+		
+		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "TALSEE") DisplayNaam = "TALSEE | " _ DisplayNaam
+		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam
+		
+		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "TALSEE") DisplayNaam = "TALSEE | " _ DisplayNaam
+		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam
 	}
 	
 	Quit DisplayNaam