Se agrego una validacion para revisar el campo CAT_LO_RMI

B4A/B4XMainPage.bas

@@ -165,6 +165,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA5P (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CLASF_PROD (CAT_CP_ID TEXT, CAT_CP_NOMPROD TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BANDERA_RMI (BR_BANDERA INT)")
 	Subs.agregaColumna("CAT_ENCUESTA_PREGUNTA", "CAT_EP_IDGRUPO", "TEXT")
 	Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT")
 	Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")

B4A/C_Principal.bas

@@ -1202,10 +1202,13 @@ Sub JobDone(Job As HttpJob)
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 			If RESULT.Tag = "usuarioA" Then 'query tag
+				skmt.ExecNonQuery("delete from BANDERA_RMI")
 				Private n As String = "Sin Usuario"
 				For Each records() As Object In RESULT.Rows
 					n = records(RESULT.Columns.Get("USUARIO"))
+					Dim ban_RMI As String = records(RESULT.Columns.Get("CAT_LO_RMI"))
 				Next
+				skmt.ExecNonQuery2("INSERT INTO BANDERA_RMI (BR_BANDERA) VALUES (?)", Array As Object (ban_RMI))
 				Log(n)
 				'Logcolor("**************************"&n, Colors.Green)
 				If n = "OKActivo"  Then

B4A/C_Productos.bas

@@ -1144,7 +1144,13 @@ End Sub
 
 Private Sub l_prodX_LongClick
 	Log("longClic = "&Sender.as(Label).Text)
+	c = Starter.skmt.ExecQuery("Select BR_BANDERA From BANDERA_RMI")
+	If c.RowCount > 0 Then 
+		c.Position = 0
+		Dim ban As Int = c.GetString("BR_BANDERA")
+	End If
 	If Subs.traeCliente <> 0 Then
+		If ban <> 0 Then
 			Dim index As Int = clv_prods_ll.GetItemFromView(Sender)
 			nuevaCantRMI = 0
 			Private pId As String = clv_prods_ll.GetValue(index).As(Map).Get("id")
@@ -1194,7 +1200,11 @@ Private Sub l_prodX_LongClick
 			Else
 				ToastMessageShow("No hay devoluciones para este producto", True)
 			End If
+		Else
+			ToastMessageShow("No esta autorizado para devoluciones", True)
 		End If
+	End If
+	c.Close
 End Sub
 
 Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)

B4A/Durakelo.b4a

@@ -1402,7 +1402,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo
 	#VersionCode: 1
-	#VersionName: 4.06.16
+	#VersionName: 4.07.25
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Durakelo.b4a.meta

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,traeMaxPromos,983,0,C_Principal,B4XPage_Created,228,0,C_Principal,B4XPage_Appear,395,0,Diseñador Visual,principal.bal,-100,6,C_Principal,Resumen_Click,2464,4,C_Principal,JobDone,1188,2,C_Principal,connecta_Click,1967,3,C_Clientes,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,409,0,C_Cliente,B_VENTA_Click,1244,0
+NavigationStack=C_Productos,clv_prods_ll_ItemLongClick,1090,0,Diseñador Visual,productos.bal,-100,5,C_Principal,cargar_Click,814,0,B4XMainPage,Entrar_Click,303,0,C_Principal,connecta_Click,1993,6,C_Principal,JobDone,1195,6,C_Productos,l_prodX_Click,1136,0,C_Productos,l_prodX_LongClick,1145,6,B4XMainPage,B4XPage_Created,108,0,B4XMainPage,Class_Globals,94,0,B4XMainPage,Initialize,101,0
 SelectedBuild=0
 VisibleModules=2,10,4,19,5,6,8,9,11,24