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

- Se agregaron comentarios para donde se usa el SFTP

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-19 12:34:41 -06:00
parent 22adad9388
commit 9844f2a6c3
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Lanterna2.b4a.meta
View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=3,6
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Principal,Activity_Create,251,0,Principal,b_pagoCerrar_Click,1515,0,Principal,cb_opcionEfectivo_CheckedChange,3563,0,Visual Designer,principal.bal,-100,5,Subs,traeTotalTicketActual_PT,1164,0,Subs,traeTotalTicketActual_P,1187,0,Principal,b_impAB_Click,2887,6,Principal,l_prods_Click,345,0,Principal,actualizaProductos,4149,0,Principal,imprimeResumenGrupos,2236,6,Main,i_conf_Click,206,0 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
SelectedBuild=0 SelectedBuild=0
VisibleModules=7,6,8,1 VisibleModules=7,6,8,1

8
Principal.bas
View File

@@ -31,7 +31,7 @@ Sub Process_Globals
Dim n2t As numeroATexto Dim n2t As numeroATexto
Dim n As Int Dim n As Int
Dim pagoPropina As String Dim pagoPropina As String
Dim sftp1 As SFtp Dim sftp1 As SFtp 'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
End Sub End Sub
Sub Globals Sub Globals
@@ -1618,7 +1618,7 @@ Private Sub b_cierraAdmin_Click
ToastMessageShow("¡Es necesario que NO haya mesas abiertas para realizar el cierre!", True) ToastMessageShow("¡Es necesario que NO haya mesas abiertas para realizar el cierre!", True)
End If End If
DateTime.DateFormat = "yyMMdd_HHmmss" DateTime.DateFormat = "yyMMdd_HHmmss"
sftp1.UploadFile(File.DirAssets, "kmt.db", $"/Lanterna/kmt_Lanterna_${DateTime.Date(DateTime.Now)}.db"$) 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.
End Sub End Sub
Private Sub b_cierraAdmin_LongClick Private Sub b_cierraAdmin_LongClick
@@ -4538,14 +4538,17 @@ Sub p_resumenDiaTotales_Click
End Sub End Sub
Sub sftp1_PromptYesNo (Message As String) Sub sftp1_PromptYesNo (Message As String)
'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
sftp1.SetPromptResult(True) sftp1.SetPromptResult(True)
End Sub End Sub
Sub sftp1_ShowMessage (Message As String) Sub sftp1_ShowMessage (Message As String)
'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
Msgbox(Message, "") Msgbox(Message, "")
End Sub End Sub
Sub sftp1_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long) Sub sftp1_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
Dim s As String Dim s As String
s = "Uploaded " & Round(TotalUploaded / 1000) & "KB" s = "Uploaded " & Round(TotalUploaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB" If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
@@ -4553,6 +4556,7 @@ Sub sftp1_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As
End Sub End Sub
Sub sftp1_UploadCompleted (ServerPath As String, Success As Boolean) Sub sftp1_UploadCompleted (ServerPath As String, Success As Boolean)
'Requiere la libreria "JSch" (https://www.b4x.com/android/forum/threads/android-sftp-based-on-jsch-tutorial.26994/) para SFTP.
Log(ServerPath & ", Success=" & Success) Log(ServerPath & ", Success=" & Success)
If Success = False Then Log(LastException.Message) If Success = False Then Log(LastException.Message)
End Sub End Sub