From 1cb12be8e77d31d09fb407a81c869e600bf6bd73 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Wed, 10 Jan 2024 19:05:30 -0600
Subject: [PATCH] Se quitaron toast de error

---
 durakelo.b4a.meta |  4 ++--
 seleccion.bas     | 19 ++++++++++---------
 2 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/durakelo.b4a.meta b/durakelo.b4a.meta
index e1f4a39..5f8d126 100644
--- a/durakelo.b4a.meta
+++ b/durakelo.b4a.meta
@@ -61,7 +61,7 @@ ModuleClosedNodes17=
 ModuleClosedNodes18=6
 ModuleClosedNodes19=4,5,6,7,8,9,10
 ModuleClosedNodes2=2,6,7
-ModuleClosedNodes20=3,5,6,7,8,9,10
+ModuleClosedNodes20=3,4,5,6,7,8,9,10
 ModuleClosedNodes21=
 ModuleClosedNodes22=
 ModuleClosedNodes23=
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37
-NavigationStack=DBRequestManager,HandleJob,197,0,DBRequestManager,WriteObject,119,0,DBRequestManager,requestTimes,294,0,seleccion,Globals,164,0,colonia2,Activity_Create,94,0,colonia2,Globals,78,0,Main,Activity_Create,88,0,Main,Activity_Pause,282,0,seleccion,JobDone,1975,0,seleccion,cargar_Click,924,0
+NavigationStack=DBRequestManager,HandleJob,197,0,DBRequestManager,WriteObject,119,0,DBRequestManager,requestTimes,294,0,colonia2,Activity_Create,94,0,colonia2,Globals,78,0,Main,Activity_Create,88,0,Main,Activity_Pause,282,0,seleccion,Globals,25,0,seleccion,cargar_Click,1055,5,seleccion,JobDone,1204,0
 SelectedBuild=0
 VisibleModules=21,20,24,14,5,6
diff --git a/seleccion.bas b/seleccion.bas
index e06a26b..4de1865 100644
--- a/seleccion.bas
+++ b/seleccion.bas
@@ -953,7 +953,7 @@ Sub cargar_Click
 
 	cmd.Initialize
 	cmd.Name = "select_codigo_exhibidor"
-	'cmd.Parameters = Array As Object(ALMACEN)
+''	'cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor")
 
 	cmd.Initialize
@@ -968,9 +968,10 @@ Sub cargar_Click
 
 	cmd.Initialize
 	cmd.Name = "select_cat_paquetes_abordo_DUR"
+	Log(">>>>  ALMACEN: " & ALMACEN)
 	cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "gunaprodpa")
-	
+
 	cmd.Initialize
 	cmd.Name = "select_cat_paquetes_DUR"
 	cmd.Parameters = Array As Object(ALMACEN)
@@ -1125,10 +1126,10 @@ Sub JobDone(Job As HttpJob)
 		If Job.ErrorMessage.Contains("resolve") And Job.ErrorMessage.Contains("keymon.lat") Then
 			ToastMessageShow("Por favor revisa tu conexión a internet, hay problemas de comunicación.", True)
 		End If
-'		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
-		'If 	Job.ErrorMessage <> "STREAM" Then
-		'	ToastMessageShow("Error: " & Job.ErrorMessage, True)
-		'End If
+		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
+'		If 	Job.ErrorMessage <> "STREAM" Then
+'			ToastMessageShow("Error: " & Job.ErrorMessage, True)
+'		End If
 		If Job.ErrorMessage = "STREAM" Then
 			If CARGA = "SUBIR" Then
 				PB2.Progress = PB2.Progress + PORCENTAJE
@@ -1182,7 +1183,7 @@ Sub JobDone(Job As HttpJob)
 					skmt.TransactionSuccessful
 				Catch
 					Log(LastException)
-					ToastMessageShow(LastException, True)
+'					ToastMessageShow(LastException, True)
 				End Try
 				skmt.EndTransaction
 				skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BFACTURA,CAT_CL_BCREDITO,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","null","null","null","NULL","NULL"))
@@ -1222,7 +1223,7 @@ Sub JobDone(Job As HttpJob)
 					End If
 				Catch
 					Log(LastException)
-					ToastMessageShow(LastException, True)
+'					ToastMessageShow(LastException, True)
 				End Try
 				skmt.EndTransaction
 			End If
@@ -1242,7 +1243,7 @@ Sub JobDone(Job As HttpJob)
 					' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
 				Catch
 					Log(LastException)
-					ToastMessageShow(LastException, True)
+'					ToastMessageShow(LastException, True)
 				End Try
 				skmt.EndTransaction
 			End If