cheveguerra/Android_durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Android_durakelo.git synced 2026-04-17 19:37:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se quitaron toast de error

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-10 19:05:30 -06:00
parent 06921672d2
commit 1cb12be8e7
2 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
durakelo.b4a.meta
View File

@@ -61,7 +61,7 @@ ModuleClosedNodes17=
ModuleClosedNodes18=6 ModuleClosedNodes18=6
ModuleClosedNodes19=4,5,6,7,8,9,10 ModuleClosedNodes19=4,5,6,7,8,9,10
ModuleClosedNodes2=2,6,7 ModuleClosedNodes2=2,6,7
ModuleClosedNodes20=3,5,6,7,8,9,10 ModuleClosedNodes20=3,4,5,6,7,8,9,10
ModuleClosedNodes21= ModuleClosedNodes21=
ModuleClosedNodes22= ModuleClosedNodes22=
ModuleClosedNodes23= ModuleClosedNodes23=
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37 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 SelectedBuild=0
VisibleModules=21,20,24,14,5,6 VisibleModules=21,20,24,14,5,6

11
seleccion.bas
View File

@@ -953,7 +953,7 @@ Sub cargar_Click
cmd.Initialize cmd.Initialize
cmd.Name = "select_codigo_exhibidor" cmd.Name = "select_codigo_exhibidor"
'cmd.Parameters = Array As Object(ALMACEN) '' 'cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor") reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor")
cmd.Initialize cmd.Initialize
@@ -968,6 +968,7 @@ Sub cargar_Click
cmd.Initialize cmd.Initialize
cmd.Name = "select_cat_paquetes_abordo_DUR" cmd.Name = "select_cat_paquetes_abordo_DUR"
Log(">>>> ALMACEN: " & ALMACEN)
cmd.Parameters = Array As Object(ALMACEN) cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprodpa") reqManager.ExecuteQuery(cmd , 0, "gunaprodpa")
@@ -1125,7 +1126,7 @@ Sub JobDone(Job As HttpJob)
If Job.ErrorMessage.Contains("resolve") And Job.ErrorMessage.Contains("keymon.lat") Then 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) ToastMessageShow("Por favor revisa tu conexión a internet, hay problemas de comunicación.", True)
End If End If
' LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red) LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
' If Job.ErrorMessage <> "STREAM" Then ' If Job.ErrorMessage <> "STREAM" Then
' ToastMessageShow("Error: " & Job.ErrorMessage, True) ' ToastMessageShow("Error: " & Job.ErrorMessage, True)
' End If ' End If
@@ -1182,7 +1183,7 @@ Sub JobDone(Job As HttpJob)
skmt.TransactionSuccessful skmt.TransactionSuccessful
Catch Catch
Log(LastException) Log(LastException)
ToastMessageShow(LastException, True) ' ToastMessageShow(LastException, True)
End Try End Try
skmt.EndTransaction 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")) 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 End If
Catch Catch
Log(LastException) Log(LastException)
ToastMessageShow(LastException, True) ' ToastMessageShow(LastException, True)
End Try End Try
skmt.EndTransaction skmt.EndTransaction
End If End If
@@ -1242,7 +1243,7 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) ' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
Catch Catch
Log(LastException) Log(LastException)
ToastMessageShow(LastException, True) ' ToastMessageShow(LastException, True)
End Try End Try
skmt.EndTransaction skmt.EndTransaction
End If End If