cheveguerra/Lanterna_H
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna_H.git synced 2026-04-17 12:56:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.20

Browse Source 
- Se cambio la base de datos que se manda al FTP, por error se estaba mandando desde "DirAssets" y debe de ser "DirInternal".
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-22 20:08:07 -06:00
parent 9844f2a6c3
commit 37426d7adb
4 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Lanterna2.b4a
View File

@@ -90,7 +90,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Lanterna
#VersionCode: 1
#VersionName: 4.07.16
#VersionName: 4.07.20
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
@@ -208,6 +208,11 @@ Sub Activity_Resume
Starter.imprimirTicket = ia
importaBDDesdeWhatsApp
'Esto para cambiar los tamaños y posiciones para pantallas chicas (celuar).
If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
l_version.Top = 20dip
l_version.Left = 10dip
End If
End Sub
Sub Activity_KeyPress (key As Int) As Boolean

2
Lanterna2.b4a.meta
View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=3,6
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Main,i_logo_LongClick,419,0,Principal,imprimeResumenGrupos,2238,6,appUpdater,Process_Globals,74,0,Principal,b_cierraAdmin_Click,1614,6,Principal,sftp1_UploadProgress,4542,0,Principal,sftp1_UploadCompleted,4550,0,Principal,sftp1_PromptYesNo,4534,0,Principal,sftp1_ShowMessage,4539,0,Visual Designer,principal.bal,-100,1,Principal,Process_Globals,28,0
NavigationStack=Visual Designer,principal.bal,-100,1,Principal,Process_Globals,28,0,Principal,Activity_Create,214,0,Main,Process_Globals,30,0,Main,i_conf_Click,214,0,Main,Activity_Resume,124,3,updateAvailable,Activity_Resume,43,0,Visual Designer,login.bal,-100,3,updateAvailable,ofreceActualizacion,55,2,Principal,b_cierraAdmin_Click,1614,6
SelectedBuild=0
VisibleModules=7,6,8,1

2
Principal.bas
View File

@@ -1618,7 +1618,7 @@ Private Sub b_cierraAdmin_Click
ToastMessageShow("¡Es necesario que NO haya mesas abiertas para realizar el cierre!", True)
End If
DateTime.DateFormat = "yyMMdd_HHmmss"
sftp1.UploadFile(File.DirAssets, "kmt.db", $"/Lanterna/kmt_Lanterna_${DateTime.Date(DateTime.Now)}.db"$) 'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
sftp1.UploadFile(File.DirInternal, "kmt.db", $"/Lanterna/kmt_Lanterna_${DateTime.Date(DateTime.Now)}.db"$) 'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
End Sub
Private Sub b_cierraAdmin_LongClick

2
updateAvailable.bas
View File

@@ -59,7 +59,7 @@ public Sub CanRequestPackageInstalls As Boolean
End Sub
Sub ofreceActualizacion
If Msgbox2(appUpdater.newApp.newMsg,"Actualización disponible","Si","","No",Null) = DialogResponse.Positive Then 'ignore
If Msgbox2(appUpdater.newApp.newMsg,"Actualización disponible","Actualizar","","Cancelar",Null) = DialogResponse.Positive Then 'ignore
' StartService(DownloadService)
CallSubDelayed(appUpdater, "download_newApk")
End If