diff --git a/.gitignore b/.gitignore index 618d244..af94e9d 100644 --- a/.gitignore +++ b/.gitignore @@ -1,3 +1,2 @@ **/Objects -**/AutoBackups -*.meta \ No newline at end of file +**/AutoBackups \ No newline at end of file diff --git a/B4A/Intmex-Promotoria.b4a.meta b/B4A/Intmex-Promotoria.b4a.meta new file mode 100644 index 0000000..fbf95b1 --- /dev/null +++ b/B4A/Intmex-Promotoria.b4a.meta @@ -0,0 +1,30 @@ +ModuleBookmarks0= +ModuleBookmarks1= +ModuleBookmarks2= +ModuleBookmarks3= +ModuleBookmarks4= +ModuleBookmarks5= +ModuleBookmarks6= +ModuleBookmarks7= +ModuleBookmarks8= +ModuleBreakpoints0= +ModuleBreakpoints1= +ModuleBreakpoints2= +ModuleBreakpoints3= +ModuleBreakpoints4= +ModuleBreakpoints5= +ModuleBreakpoints6= +ModuleBreakpoints7= +ModuleBreakpoints8= +ModuleClosedNodes0= +ModuleClosedNodes1= +ModuleClosedNodes2= +ModuleClosedNodes3= +ModuleClosedNodes4= +ModuleClosedNodes5= +ModuleClosedNodes6= +ModuleClosedNodes7= +ModuleClosedNodes8= +NavigationStack=C_principal,Class_Globals,0,0,C_cliente,GPS_LocationChanged,141,0,C_principal,b_carga_Click,64,0,C_principal,p_datosclie_Click,162,0,C_cliente,Class_Globals,0,0,C_cliente,B4XPage_Created,110,0,B4XMainPage,Class_Globals,28,0,Subs,guardaAppInfo,26,1,Subs,revisaBD,21,0,B4XMainPage,B4XPage_Created,60,4 +SelectedBuild=0 +VisibleModules=6,1,3,2,7,5,4,8 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 0c53795..7578f49 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -23,4 +23,11 @@ Sub revisaBD 'ignore ' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CUENTAA") ' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_PREGUNTAS") ' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CARGA") +End Sub + +'Guarda la empresa y version de la app en CAT_VARIABLES. +Sub guardaAppInfo(skmt As SQL) 'ignore + skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'") + skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$) + skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$) End Sub \ No newline at end of file diff --git a/B4XMainPage.bas b/B4XMainPage.bas index 086779a..3fcd4ff 100644 --- a/B4XMainPage.bas +++ b/B4XMainPage.bas @@ -5,15 +5,18 @@ 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 -'########################################################################################################### -'###################### PULL ############################################################# -'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=..\..\gitpull.bat -'########################################################################################################### -'###################### PUSH ############################################################# -'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ -'########################################################################################################### +#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 + '########################################################################################################### + '###################### 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 @@ -64,7 +67,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) ToastMessageShow("Sin permisos para GPS", True) End If Log(Result) - ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' If Result Then