#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=z:\trix\autoit\aphphv0007.kxf


Global $TotalScore



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Main Window size
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Form1_1 = GUICreate("ALPHA SCORE CARD", 472, 563, 199, 121)
GUISetIcon("D:\005.ico")
$PageControl1 = GUICtrlCreateTab(8, 8, 444, 504)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$Scripting = GUICtrlCreateTabItem("Scripting")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Tab 3: Scriplting
;;8 questions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Question #1
;Tone Alert Used
GUIStartGroup()
$Radio1neg = GUICtrlCreateRadio("", 304, 256, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio1pos = GUICtrlCreateRadio("", 232, 256, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #2
;Sunstar 3 Digit Unit
GUIStartGroup()
$Radio2neg = GUICtrlCreateRadio("", 304, 290, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio2pos = GUICtrlCreateRadio("", 232, 290, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #3
;Repeat 3 digit Init
GUIStartGroup()
$Radio3neg = GUICtrlCreateRadio("", 304, 320, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio3pos = GUICtrlCreateRadio("", 232, 320, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #4
;Location
GUIStartGroup()
$Radio4neg = GUICtrlCreateRadio("", 304, 350, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio4pos = GUICtrlCreateRadio("", 232, 350, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #5
;Cross Street
GUIStartGroup()
$Radio5neg = GUICtrlCreateRadio("", 304, 380, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio5pos = GUICtrlCreateRadio("", 232, 380, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #6
;Map Grid
GUIStartGroup()
$Radio6neg = GUICtrlCreateRadio("", 304, 410, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio6pos = GUICtrlCreateRadio("", 232, 410, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #7
;SS Tac Channel
GUIStartGroup()
$Radio7neg = GUICtrlCreateRadio("", 304, 440, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio7pos = GUICtrlCreateRadio("", 232, 440, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;Question #8
;Info Out of order
GUIStartGroup()
$Radio8neg = GUICtrlCreateRadio("", 304, 470, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio8pos = GUICtrlCreateRadio("", 232, 470, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;Date
$Date = GUICtrlCreateInput("", 72, 80, 97, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

;Unit Number
$Unit = GUICtrlCreateInput("", 240, 80, 73, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

;Incodent Number
$Incodent = GUICtrlCreateInput("", 344, 144, 97, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

;Time of examination
$Time = GUICtrlCreateInput("", 72, 112, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

;Name of person being examined
$Name = GUICtrlCreateInput("", 232, 112, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;List of test Examiners
;; "Bob Lanoue|Eric Fayad|Ken Warner|Misty McBride|Ron Shiner"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$List1 = GUICtrlCreateList("", 340, 33, 100, 102)
GUICtrlSetData(-1, "Bob Lanoue|Eric Fayad|Ken Warner|Misty McBride|Ron Shiner")
GUICtrlSetFont(-1, 10, 800, 0, "Arial")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Text Boxes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Label1 = GUICtrlCreateLabel("Date:", 16, 72, 54, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow")
$Label2 = GUICtrlCreateLabel("UNIT:", 176, 80, 56, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow")
$Label3 = GUICtrlCreateLabel("Channel A QA", 80, 32, 209, 47)
GUICtrlSetFont(-1, 28, 800, 0, "Arial Narrow")
$Label4 = GUICtrlCreateLabel("Time:", 16, 104, 57, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow")
$Label5 = GUICtrlCreateLabel("Name:", 168, 112, 65, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow")
$Label6 = GUICtrlCreateLabel("Scripting", 144, 160, 130, 46)
GUICtrlSetFont(-1, 26, 800, 0, "Arial Narrow")
$Tone = GUICtrlCreateLabel("Tone AlertUsed", 48, 248, 121, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Narrow")
$Label9 = GUICtrlCreateLabel("Sunstar 3 Digit Unit#", 48, 280, 175, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label11 = GUICtrlCreateLabel("Repeat 3 Didit Unit#", 48, 312, 173, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label12 = GUICtrlCreateLabel("Location", 48, 344, 76, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label13 = GUICtrlCreateLabel("Cross Street", 48, 376, 111, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label14 = GUICtrlCreateLabel("Map Grid", 48, 408, 81, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label15 = GUICtrlCreateLabel("SS tac Channel", 48, 440, 134, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label16 = GUICtrlCreateLabel("Info out of Order", 48, 472, 144, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label17 = GUICtrlCreateLabel("Started:                     YES        NO", 32, 208, 304, 28)
GUICtrlSetFont(-1, 16, 400, 0, "Arial Rounded MT Bold")
$Label7 = GUICtrlCreateLabel("Incident", 280, 144, 65, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Narrow")
$TabSheet2 = GUICtrlCreateTabItem("Customer Service")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Tab3
;;; 3 questions: triple radio
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Tab2 Question #1
;Displayed Servcie Attitude
GUIStartGroup()
$RadioCS1pos = GUICtrlCreateRadio("", 272, 112, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RadioCS1neut = GUICtrlCreateRadio("", 352, 112, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RadioCS1neg = GUICtrlCreateRadio("", 424, 112, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
; Tab2 Question #2
;Used Correct Volume or Tone
GUIStartGroup()
$RadioCS2pos = GUICtrlCreateRadio("", 272, 144, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RadioCS2neut = GUICtrlCreateRadio("", 352, 144, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RadioCS2neg = GUICtrlCreateRadio("", 424, 144, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
; Tab2 Question #3
;Used Prohibited Behavior
GUIStartGroup()
$RadioCS3pos = GUICtrlCreateRadio("", 272, 176, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RadioCS3neut = GUICtrlCreateRadio("", 352, 176, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RadioCS3neg = GUICtrlCreateRadio("", 424, 176, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Text box area
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Label8 = GUICtrlCreateLabel("Customer Service", 136, 48, 154, 29)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Narrow")
$Label10 = GUICtrlCreateLabel("CORRECT      MINOR       INCORRECT", 248, 88, 198, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
$Label18 = GUICtrlCreateLabel("Displayed Service Attitued", 16, 112, 226, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label19 = GUICtrlCreateLabel("Used Correct Volume / Tone", 16, 144, 246, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Label20 = GUICtrlCreateLabel("Used Prohibited Behavior", 16, 176, 219, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Customer Service Notes: Supervisor Only area
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$NotesSUP = GUICtrlCreateEdit("", 16, 432, 425, 73)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label21 = GUICtrlCreateLabel("Customer Service notes:", 16, 400, 234, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Overall Notes: All see this
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$TabSheet3 = GUICtrlCreateTabItem("Notes")
$NotesAll = GUICtrlCreateEdit("", 32, 104, 369, 377)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label22 = GUICtrlCreateLabel("Overall Notes, Concerns", 32, 40, 281, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial")
$Label23 = GUICtrlCreateLabel("Employee will see this on their reprot card", 32, 72, 210, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("&Submit", 222, 520, 75, 25, $WS_GROUP)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Cancel Button
	$CancelBUTTON = GUICtrlCreateButton("&Cancel", 302, 520, 75, 25, $WS_GROUP)

$HelpButton = GUICtrlCreateButton("&Help", 384, 520, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;The MAIN Process
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			ExportInformation()
		Case $CancelBUTTON
			TestExit()
		Case $HelpButton
			HelpBOX()
	EndSwitch
WEnd



	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;CSV Process
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func ExportInformation()
	Local $sString = ""
	Local $hWnd_file

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;CSV Bild
	;; -Incodent - Name - Examiner - Date - Unit - [First page questions]
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	$sString &= GUICtrlRead($Incodent) & "|"
	$sString &= GUICtrlRead($Name) & "|"
	$sString &= GUICtrlRead($List1) & "|"
	$sString &= GUICtrlRead($Date) & "|"
	$sString &= GUICtrlRead($Time) & "|"
	$sString &= GUICtrlRead($Unit) & "|"

	ConsoleWrite("This is the content for who area>" & GUICtrlRead($List1) & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Scripting questions (8)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #1
	;; Tone Alert Used
	If (GUICtrlRead($Radio1pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script1 = 1
	ElseIf (GUICtrlRead($Radio1neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script1 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #2
	;; Sunstar 3 Digit Unit
	If (GUICtrlRead($Radio2pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script2 = 1
	ElseIf (GUICtrlRead($Radio2neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script2 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #3
	;; Repeat 3 digit Init
	If (GUICtrlRead($Radio3pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script3 = 1
	ElseIf (GUICtrlRead($Radio3neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script3 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #4
	;; Location
	If (GUICtrlRead($Radio4pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script4 = 1
	ElseIf (GUICtrlRead($Radio4neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script4 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #5
	;; Cross Street
	If (GUICtrlRead($Radio5pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script5 = 1
	ElseIf (GUICtrlRead($Radio5neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script5 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #6
	;; Map Grid
	If (GUICtrlRead($Radio6pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script6 = 1
	ElseIf (GUICtrlRead($Radio6neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script6 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #7
	;; SS Tac Channel
	If (GUICtrlRead($Radio6pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script7 = 1
	ElseIf (GUICtrlRead($Radio6neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script7 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Question #8
	;; Info Out of order
	If (GUICtrlRead($Radio6pos) = $GUI_CHECKED) Then
		$sString &= "1|"
		;Get Score
		$Script8 = 1
	ElseIf (GUICtrlRead($Radio6neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$Script8 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;Customerservice  Section
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;Question #1
	If (GUICtrlRead($RadioCS1pos) = $GUI_CHECKED) Then
		$sString &= "100|"
		;Get Score
		$CS1 = 100
	ElseIf (GUICtrlRead($RadioCS1neut) = $GUI_CHECKED) Then
		$sString &= "50|"
		;Get Score
		$CS1 = 50
	ElseIf (GUICtrlRead($RadioCS1neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$CS1 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	;Question #2
	If (GUICtrlRead($RadioCS2pos) = $GUI_CHECKED) Then
		$sString &= "100|"
		;Get Score
		$CS2 = 100
	ElseIf (GUICtrlRead($RadioCS2neut) = $GUI_CHECKED) Then
		$sString &= "50|"
		;Get Score
		$CS2 = 50
	ElseIf (GUICtrlRead($RadioCS2neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$CS2 = 0
	Else
		$sString &= "Unanswered,"
	EndIf
	;Question #3
	If (GUICtrlRead($RadioCS3pos) = $GUI_CHECKED) Then
		$sString &= "100|"
		;Get Score
		$CS3 = 100
	ElseIf (GUICtrlRead($RadioCS3neut) = $GUI_CHECKED) Then
		$sString &= "50|"
		;Get Score
		$CS3 = 50
	ElseIf (GUICtrlRead($RadioCS3neg) = $GUI_CHECKED) Then
		$sString &= "0|"
		;Get Score
		$CS3 = 0
	Else
		$sString &= "Unanswered|"
	EndIf
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Build Score
	;; Script Score
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	$ScriptScoreA = $Script1 + $Script2 + $Script3 + $Script4 + $Script5 + $Script6 + $Script7 + $Script8
	$ScriptScoreb = $ScriptScoreA / 8
	$ScriptScore = $ScriptScoreb * 100
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	; Customer Sercive Score
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	$CSScoreA = $CS1 + $CS2 + $CS3
	$CSScoreB = $CSScoreA / 300
	$CSScore = $CSScoreB * 100
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Build Scores for CS, Script, and TOTAL overall score
	$TotalScoreA = $ScriptScore + $CSScore
	$TotalScore = $TotalScoreA / 2
	$sString &= $TotalScore & "|"
	$sString &= $CSScore & "|"
	$sString &= $ScriptScore & "|"
	$sString &= GUICtrlRead($NotesSUP) & "|"
	$sString &= GUICtrlRead($NotesAll) & "|"
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;Develope the CSV File
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	$hWnd_file = FileOpen(@ScriptDir & "\Test.csv", $FO_APPEND)
	FileWriteLine($hWnd_file, $sString & @CRLF)
	FileClose($hWnd_file)
	ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CompleteFORM()
EndFunc   ;==>ExportInformation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Function Exit Button
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func TestExit()
	Exit
EndFunc   ;==>TestExit

Func HelpBOX()
	; MsgBox ($MB_Help, "HELP", "HELP!", 10)
	MsgBox($MB_HELP, "HELP", "HELP!!!!!!!!", 10)

EndFunc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Form 2: Email to user and Test Score
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func CompleteFORM()
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	#include <ButtonConstants.au3>
	#include <EditConstants.au3>
	#include <GUIConstantsEx.au3>
	#include <StaticConstants.au3>
	#include <WindowsConstants.au3>
	#Region ### START Koda GUI section ### Form=
	$Form2 = GUICreate("Dialog", 324, 238, 302, 218)
	GUISetIcon("D:\009.ico")
	$GroupBox1 = GUICtrlCreateGroup("", 0, 0, 321, 233)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Email Get from User
	$Email = GUICtrlCreateInput("Email", 8, 88, 241, 21)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


	$Label2 = GUICtrlCreateLabel("Email results?", 8, 56, 111, 27)
	GUICtrlSetFont(-1, 14, 800, 0, "Arial Narrow")
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Email button
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	$EmailBUTTON = GUICtrlCreateButton("Email Now", 8, 120, 113, 33, $WS_GROUP)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Place score on 2nd box AND round it to neares whole number
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	$TotalScoreROUND = Round($TotalScore)
	$Label3 = GUICtrlCreateLabel(($TotalScoreROUND & "%"), 128, 128, 183, 79)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	GUICtrlSetFont(-1, 48, 800, 0, "Arial")
	GUICtrlSetColor(-1, 0xFF0000)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; OK Button
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	$BOX2Button1 = GUICtrlCreateButton("&OK", 8, 160, 75, 25, $WS_GROUP)
	$Label1 = GUICtrlCreateLabel("Submitted", 80, 8, 172, 45)
	GUICtrlSetFont(-1, 26, 800, 0, "Arial")
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;Form 2 Main process
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;







	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
			Case $BOX2Button1
				TestExit()
			Case $EmailBUTTON
				SendEmail()
		EndSwitch
	WEnd

EndFunc   ;==>2ndGUI

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Email Func
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func SendEmail()
	; $Email

EndFunc