TECH.RegisteredObject 1 OrderID:%String 0) { #dim LocatieInfo As APPS.MAG.Inventaris.dto.LocatieInfo = LocatieInfoLijst.GetAt(1) #dim MagazijnLocatie As %String = ##class(BL.MB.UGLYPicking.General).BuildLocStr(LocatieInfo.Magazijn,LocatieInfo.Gang,LocatieInfo.X,LocatieInfo.Y,,1) #dim MagazijnLocatieDisplay As %String = ##class(APPS.MAG.enu.MagazijnTransitLocatie).LogicalToDisplay(MagazijnLocatie) if $length(MagazijnLocatieDisplay) { write MagazijnLocatieDisplay } else { write MagazijnLocatie } } write ! } quit ]]>