#include "functions.au3"
#include "forms.au3"
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
Global $fRequestor, $fCompanyName, $fFirstName, $fLastName, $fVendorAddress1, $fVendorAddress2, $fZipCode, $fVendorEmail, $fVendorPhone, $fVendorExt, $fVendorFax, $fVendorCity, $fVendorState, $fVendorType, $fVendorCodes, $bSubmit, $bBack
Global $fields[15] = ["$fRequestor", "$fCompanyName", "$fFirstName", "$fLastName", "$fVendorAddress1", "$fVendorAddress2", "$fZipCode", "$fVendorEmail", "$fVendorPhone", "$fVendorExt", "$fVendorFax", "$fVendorCity", "$fVendorState", "$fVendorType", "$fVendorCodes"]

Global $newvendor, $reactivatevendor, $vendornamechange, $updatevendorinfo, $addcode, $bBack, $bSubmit
Global $buttons[7] = ["$newvendor", "$reactivatevendor", "$vendornamechange", "$updatevendorinfo", "$addcode", "$bBack", "$bSubmit"]

Global $lOr, $lVendorAddress1, $lVendorAddress2, $lZipCode, $lVendorEmail, $lVendorCity, $lVendorState, $lVendorType, $lVendorCodes, $lVendorcodes2, $lHeader, $lRequestor, $lIndividualname, $lCompanyName, $lVendorPhone, $lVendorFax, $lVendorExt
Global $labels[17] = ["$lOr", "$lVendorAddress1", "$lVendorAddress2", "$lZipCode", "$lVendorEmail", "$lVendorCity", "$lVendorState", "$lVendorType", "$lVendorCodes", "$lVendorcodes2", "$lHeader", "$lRequestor", "$lIndividualname", "$lCompanyName", "$lVendorPhone", "$lVendorFax", "$lVendorExt"]

Global $activeForm = "main" ;could be any of the following  newvendor, reactivatevendor, vendornamechange, updatevendorinfo, addvendorcode

$Form1_1 = GUICreate("Vendor Portal", 615, 627, 192, 124)
showMain()

GUISetState(@SW_SHOW)

;delguis()
Func delguis()
	For $u In $labels
		ConsoleWrite("GUICtrlDelete(" & $u & ")" & @CRLF)
	Next
	For $uu In $buttons
		ConsoleWrite("GUICtrlDelete(" & $uu & ")" & @CRLF)
	Next
	For $uuu In $fields
		ConsoleWrite("GUICtrlDelete(" & $uuu & ")" & @CRLF)
	Next
EndFunc   ;==>delguis
Func clearForm()
	GUICtrlDelete($lOr)
	GUICtrlDelete($lVendorAddress1)
	GUICtrlDelete($lVendorAddress2)
	GUICtrlDelete($lZipCode)
	GUICtrlDelete($lVendorEmail)
	GUICtrlDelete($lVendorCity)
	GUICtrlDelete($lVendorState)
	GUICtrlDelete($lVendorType)
	GUICtrlDelete($lVendorCodes)
	GUICtrlDelete($lVendorcodes2)
	GUICtrlDelete($lHeader)
	GUICtrlDelete($lRequestor)
	GUICtrlDelete($lIndividualname)
	GUICtrlDelete($lCompanyName)
	GUICtrlDelete($lVendorPhone)
	GUICtrlDelete($lVendorFax)
	GUICtrlDelete($lVendorExt)
	GUICtrlDelete($newvendor)
	GUICtrlDelete($reactivatevendor)
	GUICtrlDelete($vendornamechange)
	GUICtrlDelete($updatevendorinfo)
	GUICtrlDelete($addcode)
	GUICtrlDelete($bBack)
	GUICtrlDelete($bSubmit)
	GUICtrlDelete($fRequestor)
	GUICtrlDelete($fCompanyName)
	GUICtrlDelete($fFirstName)
	GUICtrlDelete($fLastName)
	GUICtrlDelete($fVendorAddress1)
	GUICtrlDelete($fVendorAddress2)
	GUICtrlDelete($fZipCode)
	GUICtrlDelete($fVendorEmail)
	GUICtrlDelete($fVendorPhone)
	GUICtrlDelete($fVendorExt)
	GUICtrlDelete($fVendorFax)
	GUICtrlDelete($fVendorCity)
	GUICtrlDelete($fVendorState)
	GUICtrlDelete($fVendorType)
	GUICtrlDelete($fVendorCodes)
EndFunc   ;==>clearForm

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $fRequestor, $fCompanyName, $fFirstName, $fLastName, $fVendorAddress1, $fVendorAddress2, $fVendorEmail, $fVendorPhone, $fVendorExt, $fVendorFax, $fVendorCity, $fVendorState, $fVendorType, $fVendorCodes,$lOr, $lVendorAddress1, $lVendorAddress2, $lZipCode, $lVendorEmail, $lVendorCity, $lVendorState, $lVendorType, $lVendorCodes, $lVendorcodes2, $lHeader, $lRequestor, $lIndividualname, $lCompanyName, $lVendorPhone, $lVendorFax, $lVendorExt
			;ConsoleWrite(GUICtrlRead($fRequestor))
		Case $bBack
			clearForm()
			showMain()
		Case $newvendor
			ConsoleWrite("e")
			clearForm()
			showNewVendor()
		Case $reactivatevendor
			clearForm()
			showReactivateVendor()
		Case $vendornamechange
			clearForm()
			showVendorNameChange()
		Case $updatevendorinfo
			clearForm()
			showUpdateVendorInfo()
		Case $addcode
			clearForm()
			showAddVendorCode()
		Case $fZipCode
			$zl = GUICtrlRead($fZipCode)
			If StringLen($zl) = 5 Then
				$cs = getCityState($zl)
				GUICtrlSetData($fVendorCity, $cs[0])
				GUICtrlSetData($fVendorState, $cs[1])
			EndIf
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd