Üyelik Tarihi: 10.05.2005
Yer: konya
Yaş: 35
Mesaj: 44
|
YKB sanal pos olayı
birde YKB ile sanalpos kullanan varmı ? dll kurmama ragmen naptımsa çalıştıramadım..
bu konuda yardım edebilecek arkadaşlardan rica ediyorum..
YKB digerlerine göre birazdaha farklı işliyor IP istiyor mesela..
herşey tamam siparis sayfamda diger bankalar ile kontrolü saglıyorum ancak YKB de dll hatası laıyorum sürekli
kodlar zaten YKB ye ait test sayfası
aldıgım hata
YKBACTIVE error '800a0035'
File not found: YKB POS Communication DLL
/ykbtest/aspsample. ASP, line 63
<title>Posnet Integration for ASP by using ActiveX - YTL Version</title>
<%Dim objYKB
Set objYKB = server.CreateObject("YKBACTIVE.YKBPOSCommunication")
dim pownip, phostname, pport, pmid, ptid, pccno
dim pexpdate, pamount, pauth, ptrantype, ptrancode, pcvc, ptaknum
dim porderid, pcurrencycode
dim phostkey
dim pappr, prespt, prespc
dim ptxnseqno
dim pmultiple, pextrapt
dim pins1, pamt1, pins2
dim pamt2, pins3, pamt3
dim ppoint, ptlamt
dim ppointtp, ptlamttp
dim dllresp
pownip = request.form("ownip")
phostname = request.form("hostname")
pport = request.form("port")
pmid = request.form("mid")
ptid = request.form("tid")
pccno = request.form("ccno")
pexpdate = request.form("expdate")
pamount = request.form("amount")
pcurrencycode = request.form("currencycode")
ptrantype = request.form("trantype")
pauth = request.form("authcode")
phostkey = request.form("hostlogkey")
pcvc = request.form("cvc")
ptaknum = request.form("taknum")
porderid = request.form("orderid")
ptxnseqno = request.form("txnseqno")
pmultiple = request.form("multiple")
pextrapt = request.form("extrapt")
ptrancode = "-1"
%>
<p align="center"><font color="#0066FF" size="6">Posnet Integration for ASP by using
ActiveX</font></p>
<p align="center"><font size="6" color="#0066FF">(YTL Version)</font></p>
<table width="89%" border="0" align="center">
<tr>
<td width="11%" height="68"> </td>
<td width="89%"><font color="#0066FF" size="4">Response From Posnet ;</font></td>
</tr>
<tr>
<td height="53"> </td>
<td>
<%
'******************************PROVIZYON,SATIŞ VE FINANSALLAŞTIRMA ***************************************
if (ptrantype = "Auth" or ptrantype = "Capture" or ptrantype = "Sale") then
if ptrantype = "Auth" then
ptrancode = "0"
elseif ptrantype = "Capture" then
ptrancode = "1"
elseif ptrantype = "Sale" then
ptrancode = "5"
end if
dllresp = objykb.CCTransaction(pownip, phostname, pport, pmid, ptid, pccno, _
pexpdate, pamount, pcurrencycode, pauth, ptrancode, pcvc, ptaknum, _
porderid, pappr, prespt, prespc, _
phostkey, ptxnseqno, _
pmultiple, pextrapt, _
pins1, pamt1, pins2, _
pamt2, pins3, pamt3, _
ppoint, ptlamt, _
ppointtp, ptlamttp)
response.write "DLL Resp : " & dllresp & "<BR>"
if "100" = left(dllresp,3) then
if "1" = pappr or "2" = pappr then
response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
response.write "<B>Onay Parametreleri : </B>"
response.write "<BR>"
response.write "Authcode : " & pauth
response.write "<BR>"
response.write "Hostlogkey : " & phostkey
response.write "<BR>"
response.write "<B>Taksit Parametreleri : </B>"
response.write "<BR>"
response.write "Taksit Sayısı/Tutarı : " & pins1 & " / " & pamt1
response.write "<BR>"
response.write "<B>Puan Parametreleri : </B>"
response.write "<BR>"
response.write "Kazanılan Puan : " & ppoint
response.write "<BR>"
response.write "Kazanılan Puan Tutarı (Yeni Kuruş) : " & ptlamt
response.write "<BR>"
response.write "Toplam Puan : " & ppointtp
response.write "<BR>"
response.write "Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamttp
response.write "<BR>"
if pappr = "2" then
response.write "<B>Warning !</B>"
response.write "<BR>"
response.write "RespCode : " & objYKB.GetResponseCode
response.write "<BR>"
response.write "RespText : " & objYKB.GetResponseText
response.write "<BR>"
end if
elseif "0" = pappr then
response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"
response.write "RespCode : " & prespc
response.write "<BR>"
response.write "RespText : " & prespt
end if
end if
'******************************PROVIZYON, SATIŞ ve FINANSALLAŞTIRMA IPTAL ***************************************
elseif (ptrantype = "AuthRev" or ptrantype = "CaptureRev" or ptrantype = "SaleRev") then
if ptrantype = "AuthRev" then
ptrancode = "0"
elseif ptrantype = "CaptureRev" then
ptrancode = "1"
elseif ptrantype = "SaleRev" then
ptrancode = "5"
end if
phostkey = request.form("hostlogkey")
dllresp = objykb.CCReversal(pownip, phostname, pport, pmid, ptid, _
ptxnseqno, phostkey, ptrancode, _
pappr, prespt, prespc)
response.write "DLL Resp : " & dllresp & "<BR>"
if "100" = left(dllresp,3) then
if "1" = pappr then
response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
response.write "<B>Onay Parametreleri : </B>"
response.write "<BR>"
response.write "Hostlogkey : " & phostkey
response.write "<BR>"
elseif "0" = pappr then
response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"
response.write "RespCode : " & prespc
response.write "<BR>"
response.write "RespText : " & prespt
end if
end if
'******************************PUAN KULLANDIRIM ve SORGULAMA ***************************************
elseif (ptrantype = "PNTI" or ptrantype = "PNTU") then
dllresp = objykb.PointTransaction(pownip, phostname, pport, pmid, ptid, ptrantype, _
pccno, pexpdate, pamount, pcurrencycode, _
porderid, pappr, prespt, prespc, _
phostkey, ptxnseqno, _
ppoint, ptlamt, _
ppointtp, ptlamttp)
response.write "DLL Resp : " & dllresp & "<BR>"
if "100" = left(dllresp,3) then
if "1" = pappr then
response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
if (ptrantype = "PNTU") then
response.write "<B>Onay Parametreleri : </B>"
response.write "<BR>"
response.write "Hostlogkey : " & phostkey
response.write "<BR>"
response.write "<B>Puan Parametreleri : </B>"
response.write "<BR>"
response.write "Kullanılan Puan : " & ppoint
response.write "<BR>"
response.write "Kullanılan Puan Tutarı (Yeni Kuruş) : " & ptlamt
response.write "<BR>"
response.write "Kalan Toplam Puan : " & ppointtp
response.write "<BR>"
response.write "Kalan Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamttp
else
response.write "<B>Puan Parametreleri : </B>"
response.write "<BR>"
response.write "Toplam Puan : " & ppoint
response.write "<BR>"
response.write "Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamt
end if
elseif "0" = pappr then
response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"
response.write "RespCode : " & prespc
response.write "<BR>"
response.write "RespText : " & prespt
end if
end if
'******************************PUAN KULLANDIRIM IPTAL ***************************************
elseif (ptrantype = "PNTV") then
phostkey = request.form("hostlogkey")
dllresp = objykb.PointReversal(pownip, phostname, pport, pmid, ptid, ptrantype, _
ptxnseqno, pccno, _
pappr, prespt, prespc, _
phostkey, _
ppointtp, ptlamttp)
response.write "DLL Resp : " & dllresp & "<BR>"
if "100" = left(dllresp,3) then
if "1" = pappr then
response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
response.write "<B>Puan Parametreleri : </B>"
response.write "<BR>"
response.write "Toplam Puan : " & ppoint
response.write "<BR>"
response.write "Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamt
elseif "0" = pappr then
response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"
response.write "RespCode : " & prespc
response.write "<BR>"
response.write "RespText : " & prespt
end if
end if
end if
%> </td>
</tr>
</table>
<div align="center">
<p>
<input name="Submit" type="button" id="Submit" onClick="history.back()" value="Back">
</p>
</div>
<p> </p>
]
|