Sub Process Globals
Type objAsset(SysAssetId As String,UIC As String,Description As String, _
CurrentId As String, SerialNumber As String, SysModelId As String, _
SysLocationId As String, Active As Int)
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim Obj1 As objAsset
InitobjAsset(Obj1)
End sub
Sub InitobjAsset(Thisobj As objAsset)
Thisobj.Initialize
Thisobj.Active=1
End Sub