<!-- #INCLUDE FILE="ConnectOre.asp" -->



<%
If Request("ReportType") = "FundUnBlockRequestForm" and Request("FormAction")="UnBlockRequest" Then 
  'Response.Write("***UnBlockRequest***")

	segmentval=request("segment") 

	SET adoCmdWithDrawalAmount= Server.CreateObject("ADODB.COMMAND")
	SET adoCmdWithDrawalAmount.ActiveConnection = ConnORE
	adoCmdWithDrawalAmount.CommandType = adCMDStoredProc
	adoCmdWithDrawalAmount.COMMANDTEXT = "OREBankWithdrawal"

		' Creating Input Parameters
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("SessionNo",adVarChar,ADParamInput,25)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("Source",adTinyInt,ADParamInput)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("ClientCode",adVarChar,ADParamInput,15)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("CashWithDrawn",adDouble,adParamInput)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("RequestType",adVarChar,ADParamInput,50)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("Bank",adVarChar,ADParamInput,25)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("ActionType",adVarChar,ADParamInput,15)
		' Creating Output Parameters
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("ErrorCode",adInteger,ADParamOutput)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("Message",adVarChar,ADParamOutput,200)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("withdrawableammount",addouble,ADParamOutput)
		adoCmdWithDrawalAmount.Parameters.Append adoCmdWithDrawalAmount.CreateParameter("SegmentAccount",adVarChar,ADParamInput,15)
		
		
	' Assigning Values to Input Parameters
			adoCmdWithDrawalAmount("SessionNo")=session("SessionNo")
			adoCmdWithDrawalAmount("Source")=session("sourcepermission")
			adoCmdWithDrawalAmount("ClientCode")=session("ClientCode")
			adoCmdWithDrawalAmount("CashWithDrawn")=request("WithDrawalAmount")
			adoCmdWithDrawalAmount("RequestType")="PendingWithdrawalRequests"

			if request("RequestType")="CheckRequest" or request("RequestType")="D.D/PGP" then
				adoCmdWithDrawalAmount("Bank")=""
			else
				adoCmdWithDrawalAmount("Bank")=request("Bank")
			end if

			adoCmdWithDrawalAmount("ActionType")=""
			adoCmdWithDrawalAmount("SegmentAccount")  = segmentval
 			
			adoCmdWithDrawalAmount.Execute()
			Message 	= adoCmdWithDrawalAmount("Message")
			ErrorCode 	= adoCmdWithDrawalAmount("ErrorCode")
          			 'Withdrawlableammount=adoCmdWithDrawalAmount("withdrawableammount")
			
			If ErrorCode = "0" Then
			%>
				<!--#include file="BOIFundRequestResponse.asp"--->

			<%
				' Handle the Rejection Case 

				SET adoCmdWithReject= Server.CreateObject("ADODB.COMMAND")
				SET adoCmdWithReject.ActiveConnection = ConnORE
				adoCmdWithReject.CommandType = adCMDStoredProc
				adoCmdWithReject.COMMANDTEXT = "ORERejectBankWithdrawal"

				' Creating Input Parameters
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("SessionNo",adVarChar,ADParamInput,25)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("Source",adTinyInt,ADParamInput)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("ClientCode",adVarChar,ADParamInput,15)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("CashWithDrawn",adDouble,adParamInput)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("RequestType",adVarChar,ADParamInput,50)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("Bank",adVarChar,ADParamInput,25)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("TransactionStatus",adVarChar,ADParamInput,15)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("SegmentAccount",adVarChar,ADParamInput,15)

				' Creating Output Parameters
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("ErrorCode",adInteger,ADParamOutput)
				adoCmdWithReject.Parameters.Append adoCmdWithReject.CreateParameter("Message",adVarChar,ADParamOutput,200)
				
				adoCmdWithReject("SessionNo") = session("SessionNo")
				adoCmdWithReject("Source") = session("sourcepermission")
				adoCmdWithReject("ClientCode") = session("ClientCode")
				adoCmdWithReject("CashWithDrawn") = request("WithDrawalAmount")
				adoCmdWithReject("RequestType") = "PendingWithdrawalRequests"
				if request("RequestType")="CheckRequest" or request("RequestType")="D.D/PGP" then
					adoCmdWithReject("Bank") = ""
				Else 
					adoCmdWithReject("Bank") = Request("Bank")
				End IF
				adoCmdWithReject("TransactionStatus") = "Rejected"
				adoCmdWithReject("SegmentAccount")  = segmentval
				adoCmdWithReject.Execute()

				If adoCmdWithReject("ErrorCode") <> "0" Then
				Response.Write("<br>" & adoCmdWithReject("Message"))
				End If
			Else
				Response.redirect("/STSB/Presentationlayer/FundUnBlockRequestForm.asp?ReportType=FundUnBlockRequestForm&Message="&Message)
			End IF

		

End If
%>