Global $ENTER
Global $gsCODEinput,$gsOPTinput
Global $gsSession

Func T($i=0)
		Local $sFunction=" T() "
		G1StatusBarText($gsStatus0,$sFunction)
		;
		WDDebugOff()
		_WD_Attach($gsSession,"")
		_WD_FrameLeave($gsSession)
		;To Shorten the Code I left the Frame Search Loop Out
		Local $iFrameEnter=_WD_FrameEnter($gsSession,"Null/0")
		Local $sSelector1=_WD_FindElement($gsSession,"xpath",$gsCODEinput)
		Local $iClear=_WD_ElementAction($gsSession,$sSelector1,"clear")
		;Wait for the Elements Value to Clear, Usually Instantaneous
		While 1
			Switch _WD_ElementAction($gsSession,$sSelector1,"value")
				Case "", Null
					ExitLoop
				Case Else
					Sleep(50)
			EndSwitch
		WEnd
		Local $iValuePD=_WD_ElementAction($gsSession,$sSelector1,"value","ZD")
		While 1
			If _WD_ElementAction($gsSession,$sSelector1,"value")="ZD" Then ExitLoop
			Sleep(50)
		WEnd
		;Element CODEinput processes on the entry of the 2cd string character
		;Wait For Codeinput to Process PD, Just a Slight Delay.
		Sleep(400)
		;Element $gsOPTinput requires an Enter to Process
		Local $sSelector2=_WD_FindElement($gsSession,$csXPath,$gsOPTinput)
		Local $iValue11E=_WD_ElementAction($gsSession,$sSelector2,"value","11"&$ENTER)
		If @Compiled=0 Then ConsoleWrite("("&SLN(@ScriptLineNumber)&") : $sSelector1 = "&$sSelector1&@CRLF)
		If @Compiled=0 Then ConsoleWrite("("&SLN(@ScriptLineNumber)&") : $iValuePD   = "&$iValuePD&@CRLF)
		If @Compiled=0 Then ConsoleWrite("("&SLN(@ScriptLineNumber)&") : $sSelector2 = "&$sSelector2&@CRLF)
		If @Compiled=0 Then ConsoleWrite("("&SLN(@ScriptLineNumber)&") : $iValue11E  = "&$iValue11E&@CRLF)
		Opt("WinTitleMatchMode",-2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
		WinActivate("H.au3")
EndFunc	;==>T