<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" %>
3D Ödeme Sayfası
<%
Dim okUrl As String = BaseUrl & "/store/banks3d/3dodemepapara.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
Dim failUrl As String = BaseUrl & "/store/banks3d/3dodemepapara.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
'ssl
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
okUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemepapara.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
failUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemepapara.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
End If
Dim cartId As String = ""
Dim StokIskActive As Boolean
Dim StokIsk As Integer
Dim UserIndirim As Decimal
Dim tmpOrder As ASPNetPortal.TempOrder
If Session("TempOrder") Is Nothing Then
tmpOrder = New ASPNetPortal.TempOrder
Else
tmpOrder = Session("TempOrder")
End If
Dim ua As New UsersDB
If HttpContext.Current.User.Identity.IsAuthenticated() Then
cartId = Context.User.Identity.Name.Split("|")(0)
If IsNumeric(cartId) Then
Dim dr As SqlDataReader
dr = ua.GetUserIndirim(cartId)
dr.Read()
UserIndirim = dr(0)
StokIskActive = ChkNullBoolean(dr(1))
StokIsk = dr(2)
dr.Close()
Else
' cartId = -1
UserIndirim = 0
StokIskActive = False
StokIsk = 0
End If
Else
'cartId = -1
UserIndirim = 0
StokIskActive = False
End If
Dim username As String = ConfigurationManager.AppSettings("PaparaUserName")
Dim key As String = ConfigurationManager.AppSettings("PaparaPassword")
Dim wallet As String = ConfigurationManager.AppSettings("PaparaWallet")
Dim guidorder As String = Session("NextOrderId")
Dim amount As Decimal = Format(Session("amount"), "0.00")
Dim paparareq As New papara.ApiRequest
Dim papoararesult As New papara.ResultOfString
Dim cart As New ShoppingCartDB
Dim dt_cart As DataTable = cart.GetItemsForCart(cartId, 0, StokIsk, StokIskActive, tmpOrder.Fcampain.FCampainId, DefaultLangCode)
Dim paparaproductlist(dt_cart.Rows.Count - 1) As papara.ShoppingVoucherEntity
Dim count As Integer = 0
Dim distince_total As Decimal = 0
Dim prod As New ProductsDb
For Each cartlist As DataRow In dt_cart.Rows
Dim paparaproduct As New papara.ShoppingVoucherEntity
paparaproduct.ProductName = cartlist("ProductName")
paparaproduct.ShoppingId = IIf(IsNumeric(cartId), cartId, 1)
paparaproduct.CategoryName = prod.GetCatNameByProductId(cartlist("ProductId"))
paparaproduct.Id = cartlist("ProductId")
paparaproduct.Quantity = cartlist("Qty")
paparaproduct.Amount = formatCurDoviz((CalcKdvDahil(cartlist("SatisFiyati"), cartlist("KdvRate")) * cartlist("Qty")))
'paparaproduct.ToatlAmount = formatCurDoviz((CalcKdvDahil(cartlist("SatisFiyati"), cartlist("KdvRate")) * cartlist("Qty")))
paparaproductlist(count) = paparaproduct
count = count + 1
distince_total = distince_total + formatCurDoviz((CalcKdvDahil(cartlist("SatisFiyati"), cartlist("KdvRate")) * cartlist("Qty")))
Next
Dim isk As Decimal = 0
If distince_total > amount Then
isk = distince_total - amount
End If
papoararesult = paparareq.TransactionRequest(username, key, wallet, guidorder, amount, isk, paparaproductlist, okUrl, 1)
If papoararesult.ResultCode = 100 Then
Dim posturl As String = papoararesult.ResultObject
Response.Redirect(posturl)
Else
Response.Redirect(okUrl & "?sm=" & papoararesult.ResultMessage & "&sc=" & papoararesult.ResultCode)
End If
%>