#Region  Project Attributes 
    #ApplicationLabel: DATAFONO
    #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
Sub Class_Globals
End Sub


Sub Process_Globals
	'DATAFONOS
	Private ion As Object 'listener object for us
	Dim INPUT As String
	Dim MONTO,VR_IVA,VR_IMPOCONSUMO,BASE_IVA,BASE_IMPOCONSUMO,BASE_DEVOLUCION As Double
	Public PACKAGE As String = "rbm.pax.wimobile.com.rbmappcomercioswm"
	Public SEND_COMERCIOS As String ="rbm.pax.wimobile.com.rbmappcomercioswm.features.mainmenu.ui.MainMenuActivity"
	Public packageName  As String= "package"
	Public data_input As String = "data_input"
End Sub

Sub Globals
	Dim etiqueta3, etiqueta4,LBLAction,LBLACTION_SEND,LBLExtrasToString,LBLGetData,LBLGetExtra,LBLPACKAGE,LBLPACKAGENAME,LBLSENDCOMERCIOS As Label
	Dim boton,BTNENVIAR As Button
	Private TXTPACKAGE,TXTSENDCOMERCIOS,TXTPACKAGENAME,TXTExtrasToString,TXTAction,TXTGetExtra,TXTACTION_SEND,TXTGetData As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("DATAFONO")
	TXTPACKAGE.Text=PACKAGE
	TXTSENDCOMERCIOS.Text=SEND_COMERCIOS
	TXTPACKAGENAME.text=packageName
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Private Sub BTNENVIAR_click
	MONTO=10000
	VR_IMPOCONSUMO=0
	BASE_IVA=Round2(MONTO/1.19,2)
	VR_IVA=Round2(MONTO-BASE_IVA,2)
	BASE_IMPOCONSUMO=0
	BASE_DEVOLUCION=0
	  
	INPUT = "{" & CRLF & "TipoTransaccion: 1" & CRLF & "properties: {"& CRLF & "Monto: " & MONTO & "," & CRLF & "Iva: "& VR_IVA & "," & CRLF & "Inc: " & VR_IMPOCONSUMO & "," & CRLF & "Monto_base_iva: " & BASE_IVA&"," & CRLF & "Monto_base_inc: "&BASE_IMPOCONSUMO & "," & CRLF & "Base_devolucion: " & BASE_DEVOLUCION & CRLF & "}" & CRLF & "}"
  
	Msgbox("JSON: "& INPUT,"Atención")
	Dim i As Intent
	i.Initialize("Intent.ACTION_SEND","")
	i.SetPackage(PACKAGE) 'WAS THIS MISSING?
	i.PutExtra("data_input",INPUT)
	i.PutExtra("packageName",packageName)
	StartActivityForResult(i)
End Sub
Sub StartActivityForResult(i As Intent)
	Dim jo As JavaObject = GetBA
	Dim ion As Object = jo.CreateEvent(PACKAGE, "ion", Null)
	jo.RunMethod("startActivityForResult", Array As Object(ion, i))
End Sub

Sub GetBA As Object
	Dim jo As JavaObject = Me
	Return jo.RunMethod("GetBA", Null) 'ERROR HERE
End Sub'Program code should go into B4XMainPage and other pages.

Sub ion_Event (MethodName As String, Args() As Object) As Object ' in this sub you should get the answer
	'Args(0) is resultCode: -1 is ok
	'Args(1) is the returning intent / result data
	If -1=Args(0) Then
		Dim i As Intent=Args(1)
		Log(i.ExtrasToString) ' this is the results
	End If
	Return Null
End Sub