dBase - Account Balance Enquiry System

Any person who has an account in a bank would like to know his/her account balance status at any time. The customers have got only three options - walk down to the bank to get these details or contact the bank staff through telephone or go for the Internet banking. The first option is not feasible in the present scenario. The second option is not possible all the time as it may increase the workload of the staff and for the third option using Internet Banking facility will require a system with Internet facility which may not be possessed by many of the customers. To simplify, Xtend IVR brings out a faster approach in dealing with the accounts in banks.

Download the evaluation version of Xtend IVR and install the telephony application in your system. Run the sample script from the Script Editor. Click here to refer the code.

The automated attendant will work as given below:

• IVR waits for the call
• Caller dials the number, IVR accepts the call and plays the Welcome message
• IVR asks the caller to enter the account number and PIN number
• Validates the entries in the database
• If the account number is valid, the IVR informs the account balance status to the caller
• If the account number is invalid, IVR plays the invalid message and disconnects the call

Download the source file for the Account Balance Enquiry System using dBase

************************************************************************
* Script: Bank.dt
* Notes : welcomes the user
*        accepts the account number
*        accepts a security number
*        query a dBase III database and retrive the account balance
************************************************************************

// ADO Connect string for dBase database bank.dbf
$db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.;Extended Properties=DBASE III;"
				
// All inputs are configured for not more than two retry attempts
$retrycount = 2
MAIN:
	display "Waiting for call . . ."
	
	// Pickup the call after the first ring
	answer 1
	
	* Welcome user
	play "Welcome.wav"
	play "silence.wav"
	
ACCEPT_ACCNO:
	; The sample data is given in readme.htm
	display "Accept account number"
	play "silence.wav"
	$retry = $retrycount
	while $retry > 0
		* Ask for account code
		play "PunchAccount.wav"
		$Acno = Input(4,5)
		if $Acno = ""
			* Advice the caller to enable TONE mode
			* in his telephone (Do it only once)
			if $retry = $retrycount
				play "advice.wav"
			endif
		else
			break
		endif
		$retry -= 1
	endwhile
	if $Acno = "" then goto GOODBYE
	
ACCEPT_PIN:
	display "Accept PIN number"
	play "silence.wav"
	$retry = $retrycount
	while $retry > 0
		* Accept PIN
		play "GetPin.wav"
		$Pin = Input(4,5)
		if $Pin <> ""
			break
		endif
		$retry -= 1
	endwhile
	if $Pin == "" then goto GOODBYE
	

	display "Validating User"
	
	* Validate Account Code
	$sql = format("SELECT * FROM BANK WHERE AccNo = '%s'",$Acno)
	$dbalias = db.RunSQL($db, $sql)
	if $dbalias.eof
		play "InvalidAcno.wav"
		goto GOODBYE
	endif

	* Validate PIN
	if compare($dbalias.PIN,$Pin) <> 0
		play "InvalidPin.wav"
		goto GOODBYE
	endif
	
	play "silence.wav"
	play "AccBal.wav"

	* Speak out the results to the caller
	$wave = Money2Wav($dbalias.Balance)
	play $wave
	

GOODBYE:
	* Thank you message
	display "Terminating Call"
	play "silence.wav"
	play "goodbye.wav"
	hangup
	goto MAIN
	
* User has hung up
ONHANGUP:
	hangup
	goto MAIN

* An error has occurred
ONSYSTEMERROR:
	log $error
	display $error
	hangup
	goto MAIN

* End of Script