Index: PRBS.mac.rou
===================================================================
diff -u -r64377 -r69654
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 64377)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 69654)
@@ -1145,7 +1145,7 @@
  ; Popup kostenplaats
 KostPlaats(OldPlaats)
  New zb,KostPlaats
- Do FetchKostPlaats(.KostPlaats)
+ Do FetchKostPlaats(.KostPlaats, 50)
  Set KostPlaats="KostPlaats",KostPlaats=$$WILD^vhPOPUP("C;C","-1KOZ","Kostplaats",.KostPlaats,$G(OldPlaats))
  Quit KostPlaats 
   
@@ -1159,11 +1159,13 @@
  Quit KostPlaats 
   
  ; Fetch van de popupelementen kostenplaats
-FetchKostPlaats(KostPlaats)
+FetchKostPlaats(KostPlaats, MaxColumnWidth)
  
+ Set MaxColumnWidth = $Get(MaxColumnWidth, 999)
+ 
  &sql(DECLARE cPlaats CURSOR FOR SELECT ItemID,Omschrijving INTO :ItemID,Omschrijving FROM Prod_GAMeta_BT.KostPlaats ORDER BY ItemID)
  &sql(OPEN cPlaats)
- For  &sql(FETCH cPlaats) Quit:(SQLCODE '= 0)  Set KostPlaats(ItemID)=ItemID_"`"_Omschrijving
+ For  &sql(FETCH cPlaats) Quit:(SQLCODE '= 0)  Set KostPlaats(ItemID)=$Extract(ItemID_"`"_Omschrijving , 1, MaxColumnWidth)
  &sql(CLOSE cPlaats)
  
  Quit