mirror of
https://github.com/KeymonSoft/Profina-Reparto_V2.git
synced 2026-04-20 14:19:27 +00:00
VERSION 5.09.28
- Se agrego codigo para importar BD desde whatsapp
This commit is contained in:
@@ -4,20 +4,27 @@ 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
|
||||
' '###########################################################################################################
|
||||
' '###################### 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
|
||||
#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
|
||||
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
||||
'###########################################################################################################
|
||||
'###################### PULL #############################################################
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
|
||||
'###########################################################################################################
|
||||
'###################### PULL FORZADO #############################################################
|
||||
'Ctrl + click Respaldar y Pull: ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=start&Args=powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\..\_sync_project.ps1
|
||||
'###########################################################################################################
|
||||
'###################### 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
|
||||
'###########################################################################################################
|
||||
'###################### PUSH TORTOISE GIT CON TAG ##################################################
|
||||
'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22
|
||||
'###########################################################################################################
|
||||
#End Region
|
||||
'
|
||||
''Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
||||
'
|
||||
@@ -225,7 +232,7 @@ Version=9.85
|
||||
' Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
|
||||
' Dim server As String = "http://keymon.net:1782"
|
||||
'' Dim server As String = "http://192.168.100.10:1781"
|
||||
'' Dim server As String = "http://keymon.lat:9000"
|
||||
'' Dim server As String = "http://keymon.net:9000"
|
||||
'' server = "http://10.0.0.205:1782"
|
||||
'' Dim server As String = "http://192.168.100.10:1781"
|
||||
'' server = "http://11.0.0.44:1782"
|
||||
@@ -1173,16 +1180,23 @@ Version=9.85
|
||||
#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
|
||||
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
||||
'###########################################################################################################
|
||||
'###################### PULL #############################################################
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
|
||||
'###########################################################################################################
|
||||
'###################### PULL FORZADO #############################################################
|
||||
'Ctrl + click Respaldar y Pull: ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=start&Args=powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\..\_sync_project.ps1
|
||||
'###########################################################################################################
|
||||
'###################### 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
|
||||
'###########################################################################################################
|
||||
'###################### PUSH TORTOISE GIT CON TAG ##################################################
|
||||
'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22
|
||||
'###########################################################################################################
|
||||
#End Region
|
||||
|
||||
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
||||
@@ -1275,7 +1289,7 @@ Sub Class_Globals
|
||||
Private b_abono As Button
|
||||
Private cb_importarBDWA As CheckBox
|
||||
Private p_importarBDWA As Panel
|
||||
|
||||
Private importador As C_ImportaBD
|
||||
Dim intentUsado As Boolean = False
|
||||
End Sub
|
||||
|
||||
@@ -1403,7 +1417,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
|
||||
Dim server As String = "http://keymon.net:1781"
|
||||
' Dim server As String = "http://192.168.100.10:1781"
|
||||
' Dim server As String = "http://keymon.lat:9000"
|
||||
' Dim server As String = "http://keymon.net:9000"
|
||||
' server = "http://10.0.0.205:1782"
|
||||
' Dim server As String = "http://192.168.100.10:1781"
|
||||
' server = "http://11.0.0.44:1782"
|
||||
@@ -1413,7 +1427,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
' Dim P As PhoneId
|
||||
Log("provider")
|
||||
Provider.Initialize
|
||||
|
||||
importador.Initialize
|
||||
Subs.guardaAppInfo
|
||||
|
||||
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
|
||||
@@ -1466,6 +1480,19 @@ Sub B4XPage_Appear
|
||||
' If Result Then
|
||||
' Log("Con permisos de escritura externa")
|
||||
' End If
|
||||
|
||||
Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
|
||||
If importador.ProcesarIntent(in) Then
|
||||
' Si entra aquí, la BD ya se copió exitosamente a File.DirInternal con el nombre "kmt.db"
|
||||
ToastMessageShow("BD importada correctamente", False)
|
||||
' (Opcional) Identificar si el origen fue WhatsApp:
|
||||
If importador.EsDeWhatsapp(in) Then
|
||||
B4XPages.SetTitle(Me, "BD cargada desde Whatsapp")
|
||||
End If
|
||||
' --> AQUI DEBES REINICIALIZAR TU CONEXION SQL <--
|
||||
Starter.skmt.Initialize(File.DirInternal, "kmt.db", True)
|
||||
user.Text = Subs.traeUsuario
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
@@ -1746,7 +1773,7 @@ Private Sub i_engrane_Click
|
||||
Subs.centraBoton(b_regesar, Root.Width)
|
||||
Subs.centraBoton(b_server, p_serverList.Width)
|
||||
lv_server.Clear
|
||||
lv_server.AddSingleLine("http://keymon.lat:1781")
|
||||
lv_server.AddSingleLine("http://keymon.net:1781")
|
||||
|
||||
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
|
||||
' l_server.Text = Starter.server
|
||||
|
||||
Reference in New Issue
Block a user