'****************************************************************************
'* Tribill			 :	spVBScriptFunctions.js								*
'*						VB functions for all sp pages						*
'* Company			 :	TriBill												*
'* Version			 :	1													*
'* Programmer		 :	CJ Marais		 Date : 03/09/2008					*
'* Last Modification :					 Date : 							*
'****************************************************************************
'************************** FUNCTIONS **************************************
'	function GetParam(arg)
'	function VBMsgBox(prompt,buttons,title)
'	function RequiredAlert(Fields)
'	function setCookie(name,value)
'	function getCookie(name)
'	function GetSelectedText(ObjName)
'	function GetSelectedIndex(ObjName)
'***************************************************************************
'*******************************************************************************************************************
' function to get the selected text value from a DD
'*******************************************************************************************************************
' usage:
'		var Value = GetSelectedText("cboName");
'
'*******************************************************************************************************************	
'*******************************************************************************************************************
' function to display a messagebox
'*******************************************************************************************************************
'		The VBMsgBox function displays a message box, waits for the user to click a button, and returns a value that
'		indicates which button the user clicked.
'
'		The VBMsgBox function can return one of the following values:
'
'		1 = vbOK - OK was clicked 
'		2 = vbCancel - Cancel was clicked 
'		3 = vbAbort - Abort was clicked 
'		4 = vbRetry - Retry was clicked 
'		5 = vbIgnore - Ignore was clicked 
'		6 = vbYes - Yes was clicked 
'		7 = vbNo - No was clicked 
'
'		Syntax
'			VBMsgBox(prompt,buttons,title) 
'
'		Parameter Description 
'			prompt  - Required. 
'				The message to show in the message box. Maximum length is 1024 characters. 
'				You can separate the lines using a carriage return character (Chr(13)), a linefeed character
'				(Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line.
'			buttons - Optional. 
'				A value or a sum of values that specifies the number and type of buttons to display, 
'				the icon style to use, the identity of the default button, and the modality of the message box.
'				Default value is 0
'					Buttons
'						0 = vbOKOnly - OK button only 
'						1 = vbOKCancel - OK and Cancel buttons 
'						2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons 
'						3 = vbYesNoCancel - Yes, No, and Cancel buttons 
'						4 = vbYesNo - Yes and No buttons 
'						5 = vbRetryCancel - Retry and Cancel buttons 
'					Icon Style
'						16 = vbCritical - Critical Message icon 
'						32 = vbQuestion - Warning Query icon 
'						48 = vbExclamation - Warning Message icon 
'						64 = vbInformation - Information Message icon 
'					Default Selected Button
'						0 = vbDefaultButton1 - First button is default 
'						256 = vbDefaultButton2 - Second button is default 
'						512 = vbDefaultButton3 - Third button is default 
'						768 = vbDefaultButton4 - Fourth button is default 
'					Modality
'						0 = vbApplicationModal - Application modal (the current application will not work until the user
'							responds to the message box) 
'						4096 = vbSystemModal - System modal (all applications wont work until the user responds to the
'							message box) 
'					We can divide the buttons values into four groups: 
'						The first group  (0–5) describes the buttons to be displayed in the message box.
'						The second group (16, 32, 48, 64) describes the icon style.
'						The third group (0, 256, 512, 768) indicates which button is the default.
'						The fourth group (0, 4096) determines the modality of the message box. 
'			When adding numbers to create a final value for the buttons parameter, use only one number from each 
'			group.
' 
'			title - Optional. 
'				The title of the message box. Default is the application name 
' usage:
'		result = VBMsgBox("Line 1.\n\nLine 2.",4 + 32 + 4096,"Copy Transactions?");
'
'*******************************************************************************************************************	
function VBMsgBox(prompt,buttons,title)
	VBMsgBox = MsgBox(prompt,buttons,title)
end function
'*******************************************************************************************************************	
'*******************************************************************************************************************
' function to get input with a messagebox
'*******************************************************************************************************************
'		The InputBox function displays a dialog box, where the user can write some input and/or click on a button. 
'		If the user clicks the OK button or presses ENTER on the keyboard, the InputBox function will return the 
'		text in the text box. If the user clicks on the Cancel button, the function will return an empty string ("").
'
'		Syntax
'			InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 
'			
'		Parameter Description 
'			prompt - Required. 
'				The message to show in the dialog box. Maximum length is 1024 characters. 
'				You can separate the lines using a carriage return character (Chr(13)), a linefeed character
'				(Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line.
'			title - Optional. 
'				The title of the dialog box. Default is the application name 
'			default - Optional. 
'				A default text in the text box 
'			xpos - Optional. 
'				The horizontal distance of the left edge of the dialog box from the left edge of the screen. 
'				If omitted, the dialog box is horizontally centered.
'			ypos - Optional. 
'				The vertical distance of the upper edge of the dialog box from the top of the screen. 
'				If omitted, the dialog box is vertically positioned one-third of the way down the screen.
'			
' usage:
'		fname = InputBox("Enter your name:")
'
'*******************************************************************************************************************	
function VBInputBox(prompt, title)
	VBInputBox = InputBox(prompt, title,"")
end function
'*******************************************************************************************************************