B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
	Private Root As B4XView
	Private xui As XUI
	Public principal As C_Principal
	Private i_logo As ImageView
	Private p_configuracion As Panel
	Private p_login As Panel
	Private b_regresar As Button
	Private b_entrar As Button
	Private b_envioBD As Button
	Private B_SERVER As Button
	Private ImageView4 As ImageView
	Private ImageView2 As ImageView
	Private Panel3 As Panel
	Private Label1 As Label
End Sub

Public Sub Initialize
'	B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	Root.LoadLayout("login")
	principal.Initialize
	B4XPages.AddPage("Principal", principal)
	p_login.Width = Root.Width
	p_login.Height = Root.Height
	Subs.agregaColumna("cat_gunaprod", "CAT_PT_DESC", "TEXT")
	Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
	Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
	Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA", "TEXT")
	Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA_MOD", "TEXT")
	Starter.skmt.ExecNonQuery("delete from cuentaa")
	Starter.skmt.ExecNonQuery("insert into cuentaa (cuenta) values ('123456')")
	Starter.skmt.ExecNonQuery("delete from cat_almacen")
	Starter.skmt.ExecNonQuery("insert into cat_almacen (id_almacen) values ('1')")
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub i_logo_Click
	p_configuracion.Width = Root.Width
	p_configuracion.Height = Root.Height
	Subs.panelVisible(p_configuracion, 0, 0)
End Sub

Private Sub b_regresar_Click
	Subs.panelVisible(p_login, 0, 0)
End Sub

Private Sub b_entrar_Click
	B4XPages.ShowPage("principal")
End Sub

Private Sub B_SERVER_Click
	
End Sub

Private Sub b_envioBD_Click
	
End Sub