#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 Process_Globals
	'DATAFONOS
	Dim INPUT As String
	Dim MONTO,VR_IVA,VR_IMPOCONSUMO,BASE_IVA,BASE_IMPOCONSUMO,BASE_DEVOLUCION As Double
	Public  PACKAGE = "rbm.pax.wimobile.com.rbmappcomercioswm" As String
	Public  SEND_COMERCIOS ="rbm.pax.wimobile.com.rbmappcomercioswm.features.mainmenu.ui.MainMenuActivity" As String
	Public  packageName = "package" As String
	Public  data_input = "data_input" As String
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
	
	LINEA1 = "{" & CRLF
	LINEA2 ="TipoTransaccion: 1,"&CRLF
	LINEA3="properties: {"&CRLF
	LINEA4="Monto: "&MONTO&","&CRLF
	LINEA5="Iva: "&VR_IVA&","&CRLF
	LINEA6="Inc: "& VR_IMPOCONSUMO&","&CRLF
	LINEA7="Monto_base_iva: "& BASE_IVA&"," &CRLF
	LINEA8="Monto_base_inc: "&BASE_IMPOCONSUMO&","&CRLF
	LINEA9="Base_devolucion: "&BASE_DEVOLUCION&CRLF
	LINEA10="}"&CRLF
	LINEA11="}"
	INPUT=LINEA1&LINEA2&LINEA3&LINEA4&LINEA5&LINEA6&LINEA7&LINEA8&LINEA9&LINEA10&LINEA11
			
	Msgbox("JSON: "&INPUT,"Atención")
	RequestSettings
	Dim In As Intent
	In = Activity.GetStartingIntent
	Msgbox ("in: "&In,"Atención")
	If In <> Null Then
	   TXTExtrasToString.Text=In.ExtrasToString
	   TXTAction.Text=In.Action
	   TXTGetExtra.Text=In.GetExtra("Data_output")
	   TXTACTION_SEND.Text=In.ACTION_SEND
           TXTGetData.Text=In.GetData
	End If
End Sub
Sub RequestSettings
	Dim In As Intent
	In.Initialize(In.ACTION_SEND,"")
	In.AddCategory("android.intent.category.LAUNCHER")
	In.SetPackage(PACKAGE)
	'SetPackage(In,PACKAGE)
	In.SetComponent(SEND_COMERCIOS)  'ok
	In.PutExtra("data_input",INPUT)
	StartService(In) 'OR StartActivity(In)??
	
    '	BELOW EXAMPLE IN ANDROID STUDIO************************
    '   setResult(Activity.RESULT_OK, i)
    '   ComponentName cn = new ComponentName(PACKAGE,SEND_COMERCIOS);
    '   activityMainBinding.input.setText(json);
    '   i = new Intent(Intent.ACTION_SEND);
    '   i.setComponent(cn);
    '   i.putExtra(data_input, json);
    '   i.putExtra(packageName, getApplicationContext().getPackageName());
    '   Try {
    '       startActivityForResult(i, REQUESTCOMERCIOS);
    '    } Catch (ActivityNotFoundException e) {
    '        Toast.makeText(getApplicationContext(),getApplicationContext().getString(R.string.not_found_app_bio)
    '                ,  Toast.LENGTH_SHORT).show();
    '    }
    'END EXAMPLE *******************
End Sub

Sub SetPackage(i As Intent, packageName1 As String)
	Dim re As Reflector
	re.Target = i
	re.RunMethod2("setPackage", packageName1, "java.lang.String")
End Sub