diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 202b94548..e6995fe0d 100644 --- a/Ashx/E141.ashx +++ b/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 - End If + Respuesta.data = data 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 - End If + Respuesta.data = data 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