TECH.Mockable vhLib.Logger 1 %String Data.Bomkenmerken %String Data.Kenmerken %String Data.Berekendewaarden %String Onvertaalbaar kenmerk 1 1 %Status 1 BlumIdentnummerLijst:%ListOfObjects,Toepassing:%String %ListOfObjects 100) { #dim AxKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefAxKenmerk(..#KenmerkBomNaamPrefix _ ".Stuklijst" _ Index, StukLijst) Do AxStuklijstKenmerken.Insert(AxKenmerk) Set Index = Index + 1 Set StukLijst = BlumIdentnummer.Aantal _";"_BlumIdentnummer.Id _";" } Else { Set StukLijst = StukLijst_BlumIdentnummer.Aantal _";"_BlumIdentnummer.Id _";" } } If ($$$HasLength(StukLijst)) { Set AxKenmerk = ..GeefAxKenmerk(..#KenmerkBomNaamPrefix _ ".Stuklijst" _ Index, StukLijst) Do AxStuklijstKenmerken.Insert(AxKenmerk) } Quit AxStuklijstKenmerken ]]> BlumInkortingenLijst:%ListOfObjects %ListOfObjects 100) { #dim AxKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefAxKenmerk(..#KenmerkBomNaamPrefix _ ".Inkortinglijst" _ Index, InkortingLijst) Do AxStuklijstKenmerken.Insert(AxKenmerk) Set Index = Index + 1 Set InkortingLijst = BlumInkorting.Name _";"_BlumInkorting.Value _";"_BlumInkorting.Unit_";" } Else { Set InkortingLijst = InkortingLijst_BlumInkorting.Name _";"_BlumInkorting.Value _";"_BlumInkorting.Unit_";" } } If ($$$HasLength(InkortingLijst)) { Set AxKenmerk = ..GeefAxKenmerk(..#KenmerkBomNaamPrefix _ ".Inkortinglijst" _ Index, InkortingLijst) Do AxStuklijstKenmerken.Insert(AxKenmerk) } Quit AxStuklijstKenmerken ]]> KenmerkNaam:%String,KenmerkValue:%String WS.Vhisie4.OPC.dto.Kenmerk KenmerkNaam:%String,KenmerkValue:%String WS.Vhisie4.OPC.dto.Kenmerk BlumKenmerk:WS.Vhisie4.OPC.dto.Kenmerk WS.Vhisie4.OPC.dto.Kenmerk KenmerkKeyBlum:%String,KenmerkNameBlum:%String 1 KenmerkValueKeyBlum:%String,KenmerkKeyBlum:%String,KenmerkValueBlum:%String="",KenmerkNameBlum:%String="" 1 %String KenmerkValueBlum:%String,MaakLeeg:%Boolean=0 1 %String Name:%String,Value:%String 1 WS.Vhisie4.OPC.dto.Kenmerk KenmerkNameBlum:%String 1 %Boolean