Dim tmp As Object = Ftp.UploadFile( Main.AppDataDir, "abonos.csv", True, NameFile )
Wait For (tmp) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Awake.ReleaseKeepAlive
ProgressDialogHide
ChangeStateBtn( True )
MsgboxAsync( "Se respaldo la información en servidor FTP", "Respaldo de cobro" )
Else
Awake.ReleaseKeepAlive
ProgressDialogHide
ChangeStateBtn( True )
ToastMessageShow( "Falla en envio de datos al FTP!", True )
End If