From 9844f2a6c3ed0f7b123aa298b554a5d0f2349b60 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 19 Jul 2024 12:34:41 -0600 Subject: [PATCH] - Se agregaron comentarios para donde se usa el SFTP --- Lanterna2.b4a.meta | 2 +- Principal.bas | 8 ++++++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/Lanterna2.b4a.meta b/Lanterna2.b4a.meta index 4daa87a..cc77b63 100644 --- a/Lanterna2.b4a.meta +++ b/Lanterna2.b4a.meta @@ -28,6 +28,6 @@ ModuleClosedNodes6=3,6 ModuleClosedNodes7= ModuleClosedNodes8= 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 VisibleModules=7,6,8,1 diff --git a/Principal.bas b/Principal.bas index 3c11c0e..420db3d 100644 --- a/Principal.bas +++ b/Principal.bas @@ -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