Cerrar mesa efectivo

B4A/B4XMainPage.bas

@@ -23,6 +23,7 @@ Version=9.85
 Sub Class_Globals
 	Private Root As B4XView
 	Private xui As XUI
+	Public login As B4XMainPage
 	Public principal As C_Principal
 	Private i_logo As ImageView
 	Private p_configuracion As Panel
@@ -35,6 +36,8 @@ Sub Class_Globals
 	Private ImageView2 As ImageView
 	Private Panel3 As Panel
 	Private Label1 As Label
+	Private i_conf As ImageView
+	Private b_cargaProductos As Button
 End Sub
 
 Public Sub Initialize
@@ -45,6 +48,8 @@ End Sub
 Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	Root.LoadLayout("login")
+	login.Initialize
+	B4XPages.AddPage("Login", login)
 	principal.Initialize
 	B4XPages.AddPage("Principal", principal)
 	p_login.Width = Root.Width
@@ -82,4 +87,12 @@ End Sub
 
 Private Sub b_envioBD_Click
 	
+End Sub
+
+Private Sub i_conf_Click
+	
+End Sub
+
+Private Sub b_cargaProductos_Click
+	
 End Sub