Mejoras Servicio E141

Ashx/E141.ashx

@@ -442,7 +442,13 @@ Public Class E141 : Implements IHttpHandler
             End Using
         End If
 
-        If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("rfc").ToString().Trim()) Then
+        If TieneError Then
+            RespuestaError.message = "Ocurrió un error al obtener el cuerpo de los parametros"
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        End If
+
+        If Not TieneError AndAlso Not String.IsNullOrEmpty(If(JsonRequest("rfc") Is Nothing, "", JsonRequest("rfc").ToString().Trim())) Then
 
             Dim data As New JArray
             Dim Nombre As String = "-1"
@@ -493,8 +499,11 @@ Public Class E141 : Implements IHttpHandler
                 TieneError = True
             End If
 
-            If data.Count > 0 Then
+            Respuesta.data = data
-                Respuesta.data = data
+        Else
+            If String.IsNullOrEmpty(If(JsonRequest("rfc") Is Nothing, "", JsonRequest("rfc").ToString().Trim())) Then
+                TieneError = True
+                RespuestaError.message = "Debe ingresar un RFC"
             End If
         End If
 
@@ -527,6 +536,12 @@ Public Class E141 : Implements IHttpHandler
             End Using
         End If
 
+        If TieneError Then
+            RespuestaError.message = "Ocurrió un error al obtener el cuerpo de los parametros"
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        End If
+
         Dim data As New JArray
         Dim DtSucursalesExistencias As DataTable = Nothing
 
@@ -556,6 +571,11 @@ Public Class E141 : Implements IHttpHandler
                      )
                     data.Add(objSucursal)
                 Next
+
+                If DtSucursalesExistencias.Rows.Count = 0 Then
+                    Respuesta.message = "No se encontraron resultados"
+                End If
+
             Catch ex As Exception
                 TieneError = True
                 RespuestaError.message = "Ocurrió un error al obtener la sucursales"
@@ -565,9 +585,7 @@ Public Class E141 : Implements IHttpHandler
             TieneError = True
         End If
 
-        If data.Count > 0 Then
+        Respuesta.data = data
-            Respuesta.data = data
-        End If
 
         If TieneError Then
             context.Response.StatusCode = 200
@@ -599,6 +617,12 @@ Public Class E141 : Implements IHttpHandler
             End Using
         End If
 
+        If TieneError Then
+            RespuestaError.message = "Ocurrió un error al obtener el cuerpo de los parametros"
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        End If
+
         If Not TieneError Then
             Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
             If Usuario IsNot Nothing Then
@@ -1373,6 +1397,12 @@ Public Class E141 : Implements IHttpHandler
             End Using
         End If
 
+        If TieneError Then
+            RespuestaError.message = "Ocurrió un error al obtener el cuerpo de los parametros"
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        End If
+
         If Not TieneError Then
             Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
             If Usuario IsNot Nothing Then
@@ -1471,9 +1501,7 @@ Public Class E141 : Implements IHttpHandler
             TieneError = True
         End If
 
-        If data.Count > 0 Then
+        Respuesta.data = data
-            Respuesta.data = data
-        End If
 
         If TieneError Then
             context.Response.StatusCode = 200
@@ -2088,6 +2116,9 @@ Public Class E141 : Implements IHttpHandler
     End Function
 
     Private Class FidelityAppsResponse
+        Sub New()
+            status = "success"
+        End Sub
         Public Property status As String
         Public Property data As Object
         Public Property message As String