Cambuo de version

B4A/B4XMainPage.bas

@@ -23,7 +23,7 @@ Version=9.85
 
 Sub Class_Globals
 	Private Root As B4XView
-	Dim rp As RuntimePermissions
+'	Dim rp As RuntimePermissions
 	Private xui As XUI
 	Public login As B4XMainPage
 	Public principal As C_Principal
@@ -42,9 +42,9 @@ Sub Class_Globals
 	Dim skmt As SQL
 	Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
 	Dim server, fechaRuta As String
-	Dim Logger As Boolean
-	Dim mac_impresora As String
-	Dim Phn As PhoneId
+'	Dim Logger As Boolean
+'	Dim mac_impresora As String
+'	Dim Phn As PhoneId
 	Dim user As EditText
 	Dim pass As EditText
 	Dim c As Cursor
@@ -54,7 +54,7 @@ Sub Class_Globals
 	Dim IMEI As String = ""
 	Dim alterno As String
 	Private b_menu As Button
-	Dim PopupMenu As RSPopupMenu
+'	Dim PopupMenu As RSPopupMenu
 	Dim cmd As DBCommand
 	Private PDF As Button
 	Private bpv1 As BatteryProgressView
@@ -513,7 +513,7 @@ Sub PopupMenu_MenuItemClick (ItemId As Int) As Boolean
 End Sub
 
 Sub b_menu_Click
-	PopupMenu.Show
+'	PopupMenu.Show
 End Sub
 
 Sub PDF_Click