From aca159ef604335d203e75fdb78668b2ba9074d0a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 15 Jul 2025 16:35:35 -0700
Subject: [PATCH] -- filtro por cveventa

---
 Ashx/E140.ashx | 73 +++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 67 insertions(+), 6 deletions(-)

diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx
index 6926a6820..b19a3dbd7 100644
--- a/Ashx/E140.ashx
+++ b/Ashx/E140.ashx
@@ -60,7 +60,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                 context.Response.ContentType = "application/json"
                 Dim Auth As AuthMessage = ValidarSolicitud(context)
 
-                If Auth.IsSucces Then
+                If Auth.IsSuccess Then
                     retorno = ConsultaRemisiones(context, "")
                 Else
                     context.Response.StatusCode = Auth.StatusCode
@@ -71,13 +71,24 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                 context.Response.ContentType = "application/json"
                 Dim Auth As AuthMessage = ValidarSolicitud(context)
 
-                If Auth.IsSucces Then
+                If Auth.IsSuccess Then
                     retorno = RegistraPagoRemision(context, "")
                 Else
                     context.Response.StatusCode = Auth.StatusCode
                     retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
                 End If
                 context.Response.Write(retorno)
+            ElseIf Metodo = "ConsultaRemision" Then
+                context.Response.ContentType = "application/json"
+                Dim Auth As AuthMessage = ValidarSolicitud(context)
+
+                If Auth.IsSuccess AndAlso context.Request("CveVenta").ToEntero > 0 Then
+                    retorno = ConsultaRemision(context, context.Request("CveVenta").ToEntero)
+                Else
+                    context.Response.StatusCode = Auth.StatusCode
+                    retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
+                End If
+                context.Response.Write(retorno)
             End If
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
@@ -100,7 +111,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
 
         Else
             respuesta.ErrorMessage = New AppsResponseError() With {.message = "el usuario y/o contraseña son requeridos"}
-            respuesta.IsSucces = False
+            respuesta.IsSuccess = False
             respuesta.StatusCode = 200
 
             Return respuesta
@@ -108,13 +119,13 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
 
         If unauthorized Then
             respuesta.ErrorMessage = New AppsResponseError() With {.message = "el usuario y/o contraseña no son validos"}
-            respuesta.IsSucces = False
+            respuesta.IsSuccess = False
             respuesta.StatusCode = 200
 
             Return respuesta
         Else
             respuesta.ErrorMessage = Nothing
-            respuesta.IsSucces = True
+            respuesta.IsSuccess = True
             respuesta.StatusCode = 200
 
             Return respuesta
@@ -172,6 +183,56 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
         End If
     End Function
 
+    Private Function ConsultaRemision(ByVal context As HttpContext, CveVenta As Integer) As String
+        Dim Respuesta As New AppsResponse
+        Dim RespuestaError As New AppsResponseError
+        Dim TieneError As Boolean = False
+        Dim CveSubProyecto As String = "11790"
+
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
+        Dim data As New JArray
+        Dim dtt As New DataTable
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetVenta(CveVenta, CveEmpresa) Then
+            dtt = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+
+        If dtt IsNot Nothing Then
+            Try
+                For Each Row As DataRow In dtt.Rows
+                    Dim objVenta As New JObject(
+                        New JProperty("cveventa", Row("CveVenta")),
+                        New JProperty("folio", Row("Folio")),
+                        New JProperty("cliente", Row("ClienteNombre")),
+                        New JProperty("fecha", Row("Fecha")),
+                        New JProperty("total", Row("Total")),
+                        New JProperty("moneda", Row("Moneda")),
+                        New JProperty("saldo", Row("Saldo"))
+                    )
+                    data.Add(objVenta)
+                Next
+            Catch ex As Exception
+                TieneError = True
+                RespuestaError.message = "Ocurrió un error al obtener las remisiones pendientes."
+            End Try
+            dtt.Dispose()
+        Else
+            TieneError = True
+        End If
+
+        Respuesta.data = data
+
+        If TieneError Then
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        Else
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(Respuesta)
+        End If
+    End Function
+
     Private Function RegistraPagoRemision(ByVal context As HttpContext, CveVenta As String) As String
         Dim Respuesta As New AppsResponse
         Dim RespuestaError As New AppsResponseError
@@ -632,7 +693,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
     End Class
 
     Private Class AuthMessage
-        Public Property IsSucces As Boolean
+        Public Property IsSuccess As Boolean
         Public Property ErrorMessage As AppsResponseError
         Public Property StatusCode As Integer
     End Class