From ba543316fe12690ddac6b83073866902084368eb Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Wed, 4 Oct 2023 18:27:11 -0600 Subject: [PATCH] .. --- B4A/C_Principal.bas | 4 ++-- B4A/Mariana.b4a.meta | 10 +++++----- B4A/NotificationService.bas | 2 +- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 8b54794..0fd2c6a 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -642,12 +642,12 @@ Sub Subir_Click Dim Dir2 As String Dir = "/promotoriakmts" - c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS") + c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS") If c.RowCount>0 Then For i = 0 To c.RowCount - 1 c.Position = i Log(File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO"))) - fotocn = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir,c.GetString("CN_FOTO"))) + If File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO")) Then fotocn = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir,c.GetString("CN_FOTO"))) Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_clientesnuevos_MARDS" diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta index d3f77ad..844ef02 100644 --- a/B4A/Mariana.b4a.meta +++ b/B4A/Mariana.b4a.meta @@ -56,7 +56,7 @@ ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= -ModuleClosedNodes12=1 +ModuleClosedNodes12= ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= @@ -69,16 +69,16 @@ ModuleClosedNodes20= ModuleClosedNodes21= ModuleClosedNodes22= ModuleClosedNodes23= -ModuleClosedNodes24=2,3,4,10,11 -ModuleClosedNodes25=48,49,50,51,52,53,54,55,56,57,58,59,60,61 +ModuleClosedNodes24= +ModuleClosedNodes25= ModuleClosedNodes26= ModuleClosedNodes3= -ModuleClosedNodes4=15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36 +ModuleClosedNodes4= ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Appear,308,4,B4XMainPage,Class_Globals,88,5,NotificationService,NotiMon_NotificationPosted,46,0,NotificationService,Process_Globals,7,0,Starter,Service_Start,49,0,Starter,reinicializaReqManager,128,0,C_Subs,masDeXXMins,222,0,C_Subs,log2DB,220,0,C_Productos,CreateListItem,452,0,C_Productos,B4XPage_Appear,132,0,C_Productos,B4XPage_Created,124,0 +NavigationStack=Starter,reinicializaReqManager,121,0,Starter,Application_Error,120,0,B4XMainPage,B_SERVER_Click,704,0,B4XMainPage,lv_server_ItemClick,719,0,B4XMainPage,CheckNotificationAccess,744,0,B4XMainPage,b_envioBD_Click,743,0,B4XMainPage,B4XPage_Appear,307,0,NotificationService,NotiMon_NotificationPosted,40,0,NotificationService,Service_Destroy,29,0,NotificationService,Service_Start,22,0,C_Principal,Subir_Click,630,0 SelectedBuild=0 VisibleModules=2,12,24,23,16,25,15,13,6,8 diff --git a/B4A/NotificationService.bas b/B4A/NotificationService.bas index 27893f3..8bd9e86 100644 --- a/B4A/NotificationService.bas +++ b/B4A/NotificationService.bas @@ -60,7 +60,7 @@ Sub NotiMon_NotificationPosted (SBN As StatusBarNotification) End Sub 'Regresa verdadero si el mensaje de whatsapp es un mensaje valido. -Sub esMensajeWAValido(SBN As StatusBarNotification) +Sub esMensajeWAValido(SBN As StatusBarNotification) As Boolean Private valido As Boolean = False Private ww() As String = Regex.Split("\|", SBN.Key) If ww(3) <> Null And ww(3) <> "null" Then valido = True