en el log me da los siguientes mensajes:
Ready: true
Success: false, Extra: canceled
** Activity (main) Pause, UserClosed = false **
onActivityResult: wi is null
** Activity (main) Resume **
utilizo el código de ejemplo que encontré en el foro:
Sub GlobalsDim pp As PayPalEnd
SubSub Activity_Create(FirstTime AsBoolean)
pp.Initialize("APP-80W284485P519543T", True, "paypal")
End SubSub
PayPal_Ready (Success AsBoolean)
Log("Ready: " & Success)
If Success Then
Activity.AddView(pp.GetPayPalButton(True), 0, 0, 200dip, 100dip)
EndIf
End Sub
Sub PayPal_Click
pp.RequestPayment("USD", 100, "example-facilitator@domain.com", "My Company", _
pp.PAYMENT_TYPE_SERVICE)
End SubSub
PayPal_Result (Success AsBoolean, Extra AsString)
Log("Success: " & Success & ", Extra: " & Extra)
End Sub
al pulsar el botón de paypal no sucede nada.
donde estoy cometiendo el error?
Ready: true
Success: false, Extra: canceled
** Activity (main) Pause, UserClosed = false **
onActivityResult: wi is null
** Activity (main) Resume **
utilizo el código de ejemplo que encontré en el foro:
Sub GlobalsDim pp As PayPalEnd
SubSub Activity_Create(FirstTime AsBoolean)
pp.Initialize("APP-80W284485P519543T", True, "paypal")
End SubSub
PayPal_Ready (Success AsBoolean)
Log("Ready: " & Success)
If Success Then
Activity.AddView(pp.GetPayPalButton(True), 0, 0, 200dip, 100dip)
EndIf
End Sub
Sub PayPal_Click
pp.RequestPayment("USD", 100, "example-facilitator@domain.com", "My Company", _
pp.PAYMENT_TYPE_SERVICE)
End SubSub
PayPal_Result (Success AsBoolean, Extra AsString)
Log("Success: " & Success & ", Extra: " & Extra)
End Sub
al pulsar el botón de paypal no sucede nada.
donde estoy cometiendo el error?