Commit Inicial

B4A/B4XMainPage.bas

@@ -0,0 +1,85 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=9.85
+@EndOfDesignText@
+#Region Shared Files
+	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
+	'###########################################################################################################
+	'######################           PULL         #############################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
+	'###########################################################################################################
+	'######################           PUSH         #############################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
+	'###########################################################################################################
+	'######################      PUSH TORTOISE GIT     #########################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
+	'###########################################################################################################
+#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