From 48a7c08fb27349954fd2323a74ea6bc44bdaa941 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 30 Dec 2024 14:07:12 -0700
Subject: [PATCH] --TEMPORAL - NO VERIFICAR EXISTENCIA CUANDO SON MUCHOS DATOS

---
 Inventarios/EntregaAlmacen.aspx.vb | 77 +++++++++++++++++++-----------
 1 file changed, 49 insertions(+), 28 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 98d85a892..427aae109 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2300,28 +2300,38 @@ Partial Class Inventarios_EntregaAlmacen
                 StrXML.Append("</conceptos>")
 
                 Dim TieneErrorExistencia As Boolean = False
-                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                    If ObjInventario.DtResultados.Rows.Count > 0 Then
-                        TieneErrorExistencia = True
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                Dim VerificaExistencia As Boolean = True
 
-                            Dim SerieLoteCaducidad As String = ","
-                            If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then
-                                SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}"
-                            End If
-                            If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then
-                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}"
-                            End If
-                            If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
-                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
-                            End If
-                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} {2}<br/>", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
-                        Next
-                    End If
-                Else
-                    TieneErrorExistencia = True
+                'TEMPORAL - NO VERIFICAR EXISTENCIA CUANDO SON MUCHOS DATOS
+                If UsuarioActual.CveEmpresa = 140 AndAlso DtDatos.Rows.Count > 10 Then
+                    VerificaExistencia = False
                 End If
 
+                If VerificaExistencia Then
+                    If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.DtResultados.Rows.Count > 0 Then
+                            TieneErrorExistencia = True
+                            For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                                Dim SerieLoteCaducidad As String = ","
+                                If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then
+                                    SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}"
+                                End If
+                                If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then
+                                    SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}"
+                                End If
+                                If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
+                                    SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
+                                End If
+                                TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} {2}<br/>", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
+                            Next
+                        End If
+                    Else
+                        TieneErrorExistencia = True
+                    End If
+                End If
+
+
                 If TieneErrorExistencia Then
                     ObjInventario.RollBack()
                     ObjInventario.Dispose()
@@ -3681,17 +3691,28 @@ Partial Class Inventarios_EntregaAlmacen
         StrXML.Append("</conceptos>")
 
         Dim TieneErrorExistencia As Boolean = False
-        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            If ObjInventario.DtResultados.Rows.Count > 0 Then
-                TieneErrorExistencia = True
-                For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                    TextoError += $"<b> - {Dr("CodigoPS")}</b> Existencia: {Dr("Existencia").ToString().ToDecimal.ToString("#,##0.##")} <br/>"
-                Next
-            End If
-        Else
-            TieneErrorExistencia = True
+
+        Dim VerificaExistencia As Boolean = True
+
+        'TEMPORAL - NO VERIFICAR EXISTENCIA CUANDO SON MUCHOS DATOS
+        If UsuarioActual.CveEmpresa = 140 AndAlso DtDatos.Rows.Count > 10 Then
+            VerificaExistencia = False
         End If
 
+        If VerificaExistencia Then
+            If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                If ObjInventario.DtResultados.Rows.Count > 0 Then
+                    TieneErrorExistencia = True
+                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                        TextoError += $"<b> - {Dr("CodigoPS")}</b> Existencia: {Dr("Existencia").ToString().ToDecimal.ToString("#,##0.##")} <br/>"
+                    Next
+                End If
+            Else
+                TieneErrorExistencia = True
+            End If
+        End If
+
+
         If TieneErrorExistencia Then
             ObjInventario.RollBack()
             ObjInventario.Dispose()