Hi,
In MyStore_PurchaseCompleted sub, i write this code:
Code:
Sub MyStore_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Product.IsInitialized And Success Then
Log("Product: " & Product.ProductIdentifier & ", date=" & DateTime.Time(Product.TransactionDate) & _
", Transaction identifier=" & Product.TransactionIdentifier)
Else
...
End If
Log(Success)
Log(Product.Error.Code)
Log(Product.Error.Message)
End Sub
Always return this log:
Error:
Success: False
Product.Error.Code: 0
Product.Error.Message: An unknown error occurred
Hi,
In MyStore_PurchaseCompleted sub, i write this code:
Code:
Sub MyStore_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Product.IsInitialized And Success Then
Log("Product: " & Product.ProductIdentifier & ", date=" & DateTime.Time(Product.TransactionDate) & _
", Transaction identifier=" & Product.TransactionIdentifier)
Else
...
End If
Log(Success)
Log(Product.Error.Code)
Log(Product.Error.Message)
End Sub
Always return this log:
Error:
Success: False
Product.Error.Code: 0
Product.Error.Message: An unknown error occurred