שלום וברכה.
יש לי פונקציה לשלוח API (סליקת אשראי בקשר) דרך VBA באקסס.
אבל כל מה שאני כותב בעברית הוא מציג בתור סימני שאלה.
בתוכנה אחרת (לא אקסס) זה עובד, מה שאומר שהבעיה היא אצלי בקוד.
יש למישהו רעיון איך לפתור את העניין?
תודה
הקוד שלי הוא:
יש לציין שהקוד עובד, זאת אומרת האשראי נגבה כמו שצריך, רק הנתונים הופכים לסימני שאלה.
שוב תודה!
יש לי פונקציה לשלוח API (סליקת אשראי בקשר) דרך VBA באקסס.
אבל כל מה שאני כותב בעברית הוא מציג בתור סימני שאלה.
בתוכנה אחרת (לא אקסס) זה עובד, מה שאומר שהבעיה היא אצלי בקוד.
יש למישהו רעיון איך לפתור את העניין?
תודה
הקוד שלי הוא:
קוד:
Public Function transaction()
Dim oHttp As Object
Dim TextBody As String
Set oHttp = CreateObject("MSXML2.XMLHTTP")
TextBody = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?Json={""userName"":""1234567890"",""password"":""abcdef1234"",""func"":""SendTransaction"",""format"":""json"","""
TextBody = TextBody & "tran"":{""Address"":""שם רחוב"",""ApiKey"":""ABC123"",""City"":""עיר"",""CreditNum"":""4580000000001234"",""Token"":null,"""
TextBody = TextBody & "Expiry"":""2101"",""Cvv2"":""123"",""Total"":100,""Currency"":1,""CreditType"":1,""Phone"":""0521234567"",""ParamJ"":""J4"",""TransactionType"":""debit"",""Comment1"":""הערה 1"","""
TextBody = TextBody & "FirstName"":""שם פרטי"",""LastName"":""שם משפחה"",""ProjectNumber"":""1"",""Mail"":""<לא ניתן לפרסם מיילים באופן פומבי>""}}&format=json"
oHttp.Open "GET", TextBody, False
oHttp.send TextBody
Debug.Print oHttp.responseText
End Function
יש לציין שהקוד עובד, זאת אומרת האשראי נגבה כמו שצריך, רק הנתונים הופכים לסימני שאלה.
שוב תודה!