persistent 1 1 TransLoc GSQLStorage %Library.Persistent 0 EWMS SQL,NOCREATE 0 dbo.transloc 1 1 locm,locg,locx,locy,loctrans %Integer 3 loc_g %Integer 2 loc_m %Integer 4 loc_x %Integer 5 loc_y Format : BMGXXXYY met B : Building, default 0 M : Magazijn (fysisch gedeelte van het gebouw) G : Gang (1 alfa) XXX : Horizontaal (2 numeriek+ 1 alfa) YY : Vertikaal (2 numeriek) %String 6 loc_trans %Boolean 7 loc_ispickbaar Patternmatch waaraan een LocTrans moet voldoen 1 LocTrans:%String Geformatteerde, leesbare schrijfwijze voor LocTrans. 1 LocTrans:%String,Delim:%String=" " Omzetting van een EWMS locatie naar een LocTrans 1 LocM:%Library.String,LocG:%Library.String,LocX:%Library.String,LocY:%Library.String %Library.String Omzetting van een LocTrans naar een EWMS locatie Geef LocTrans op (bijv 01F14A02) Krijg M,G,X,Y terug 1 Omzetting van een LocTrans naar een EWMS locatie als $ListBuild Geef LocTrans op (bijv 01F14A02) Krijg $LB(M,G,X,Y) terug 1 LocTrans:%Library.String %List Omzetting van een LocTrans naar een EWMS locatie als String Geef LocTrans op (bijv 01F14A02) Geef ScanVersion=0 om de ShortMagazijn code vooraan toe te voegen Krijg MMGGXXYY terug 1 LocTrans:%Library.String,ScanVersion:%Boolean=1 %String 1 LocB:%Integer,LocM:%Integer,LocG:%String,LocX:%Integer,LocXa:%String,LocY:%Integer 1 LocB:%Integer,LocM:%Integer,LocG:%String,LocX:%Integer,LocXa:%String,LocY:%Integer 1 LocM,LocG,LocX,LocY 1 LocM:%String,LocG:%String,LocX:%String,LocY:%String,LocTrans:%String,IsPickbaar:%Boolean 1 TransLoc:%String,IsPickbaar:%Boolean 1 TransLoc:%String %Boolean %Library.CacheSQLStorage ^EWMS.LocationsS