<?xml version="1.0" encoding="utf-8"?>
<SapSetup Context="Variables" Version="6">
    <Variable Name="Pre_SapGui71" Persistent="FALSE">
      <Value>FULFILLED</Value>
      <Value Script="TRUE">
		<![CDATA[
			bFulFilled = vbTrue
			NwEngine.Context.Log.Write "Variable-Script-Action: Checking for older SAP GUI Versions..."
			If NwEngine.Shell.RegKeyExist("HKLM\SOFTWARE\SAP\SAP Shared") Then
				szRegValue = NwEngine.Shell.GetRegValue("HKLM\SOFTWARE\SAP\SAP Shared\SAPdestdir")
				NwEngine.Context.Log.Write "Variable-Script-Action: SapDestDir = " & szRegValue
				szSapGuiExe = szRegValue & "\SapGui\sapgui.exe"
				If NwEngine.Shell.FileExist( szSapGuiExe ) Then
					szVersion = NwEngine.Shell.GetFileVersion( szSapGuiExe )
					NwEngine.Context.Log.Write "Variable-Script-Action: Existing SAP GUI File-Version is " & szVersion
					szRelease = Mid( szVersion, 1, Instr( szVersion, "." ) - 1 )
					NwEngine.Context.Log.Write "Variable-Script-Action: Existing SAP GUI Release is " & szRelease
					If Int( szRelease ) < 7100 Then
						NwEngine.Context.Log.Write "Variable-Script-Action: This older version of SAP GUI needs to be uninstalled first."
						bFulFilled = vbFalse
					End If 
				End If
			End If
			If Not bFulFilled Then
				NwEngine.Variables.AppendDefaultValue "Pre_SapGui71", "UNDEFINED"
			End If
		]]>
      </Value>
    </Variable>
    <Variable Name="SapFrontEndDir" ConnectedId="{1460620D-C8BC-44c2-86EC-E632E0986B01}" Description="DscrSapFrontEndDir" DisplayInSapAdmin="TRUE">
      <Value>%ProgramFiles%\SAP\FrontEnd</Value>
    </Variable>
    <Variable Name="SetSapWorkDir" ConnectedId="{1460620D-C8BC-44c2-86EC-E632E0986B01}" Description="DscrSapWorkDir" DisplayInSapAdmin="TRUE">
      <Value>%%USERPROFILE%%\SapWorkDir</Value>
    </Variable>
    <Variable Name="PRE_TWEAKGUI" Persistent="FALSE">
      <Value>UNDEFINED</Value>
      <Value Script="TRUE">
		<![CDATA[
			NWEngine.Context.Log.Write "Variable-Script-Action: Checking Installation Pre-Requisite for Tweak GUI"
			CheckVar "%DotNetV2050727%"
			Sub CheckVar( strVar )
				If Not strVar = "UNDEFINED" Then
			      	NwEngine.Variables.AppendDefaultValue "PRE_TWEAKGUI", "FULFILLED"
				End If
			End Sub
		]]>
      </Value>
    </Variable>
</SapSetup>
