Option Strict On

Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal
	Sub Main
		Dim theSession As Session = Session.GetSession()

		' Setze Variablen
		Dim strPartMaterial As String = "1.2436"

		' Setze Attribut
		theSession.Parts.Work.SetAttribute("MATERIAL", strPartMaterial)
	End Sub

	Public Function GetUnloadOption(ByVal dummy As String) As Integer
		GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
	End Function
End Module