cheveguerra/Lanterna_H
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna_H.git synced 2026-04-19 05:39:30 +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

8
Principal.bas
View File

@@ -31,7 +31,7 @@ Sub Process_Globals
Dim n2t As numeroATexto
Dim n As Int
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
Sub Globals
@@ -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"$)
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
Private Sub b_cierraAdmin_LongClick
@@ -4538,14 +4538,17 @@ Sub p_resumenDiaTotales_Click
End Sub
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)
End Sub
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, "")
End Sub
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
s = "Uploaded " & Round(TotalUploaded / 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
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)
If Success = False Then Log(LastException.Message)
End Sub