#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#AdditionalJar: libgedi-1.16.8-gpos700-payment-release.aar
#AdditionalJar: ppcomp_release-1.29.14.210610.aar
#SignKeyAlias: developmentgertecdeveloper_enhancedapp
#SignKeyFile: C:\Dev\yashar\Destaxa\Development_GertecDeveloper_EnhancedAPP.keystore
#SignKeyPassword: Development@GertecDeveloper2018
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private xui As XUI
Private ion As Object
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layout")
End Sub
Sub StartActivityForResult(i As Intent)
Dim jo As JavaObject = GetBA
ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
jo.RunMethod("startActivityForResult", Array As Object(ion, i))
End Sub
Sub GetBA As Object
Dim jo As JavaObject
Dim cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
Return jo.GetField("processBA")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
End Sub
Sub SendDestaxa(m As Map)
Dim stringTransacao As String
Dim json As JSONGenerator
json.Initialize(m)
stringTransacao = json.ToString
Dim pac As PackageManager
Dim in As Intent
in=pac.GetApplicationIntent("br.com.destaxa.destaxapay")
in.PutExtra("transacao", stringTransacao)
StartActivityForResult(in)
End Sub
Private Sub ButtonAtivar_Click
Dim m As Map
m.Initialize
m.Put("operacao", "ativar")
m.Put("documento", "xxxxxxx")
ShowPicker(m)
End Sub
Private Sub ButtonPagar_Click
Dim m As Map
m.Initialize
m.Put("operacao", "pagar")
m.Put("forma", "credito")
m.Put("valor", 1)
m.Put("parcelas", 1)
m.Put("juros", False)
ShowPicker(m)
End Sub
Sub ShowPicker(m As Map)
Dim stringTransacao As String
Dim json As JSONGenerator
json.Initialize(m)
stringTransacao = json.ToString
Dim i As Intent
i.Initialize(i.ACTION_SEND,"")
i.SetComponent("br.com.destaxa.destaxapay/.TransactionActivity")
i.PutExtra("transacao",stringTransacao)
StartActivityForResult(i)
End Sub
Sub ion_Event (MethodName As String, Args() As Object) As Object
Log(Args(0))
Log(Args(1))
If -1 = Args(0) Then 'resultCode = RESULT_OK
Dim i As Intent = Args(1)
Log(i.ExtrasToString)
End If
Return Null
End Sub
Sub GetIntentData(i As Intent) As String
Dim r As Reflector
r.Target = i
Return r.RunMethod("getDataString")
End Sub