From d2dc252ecdbbd5a18f47244ea6fa490d686d42f0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 27 May 2024 16:05:50 -0700
Subject: [PATCH] -- parametro de empresa, en entregaalmacen

---
 App_Code/ClsInventarios.vb         | 5 +++--
 Inventarios/EntregaAlmacen.aspx.vb | 4 ++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index fd013534f..496459e94 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1355,7 +1355,7 @@ Public Class ClsInventarios
             End If
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("50019") Then
-                Me.OnError(" El producto no tiene existencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Me.OnError(String.Format(" El producto '{0}' no tiene existencia.", Ex1.Message.GetTagValue("codigops")), Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             ElseIf Ex1.Message.Contains("CK_Inv_MovimientosDetalle_MetodoInventario") Then
                 Me.OnError("El movimiento debe de tener una Serie.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             Else
@@ -3324,11 +3324,12 @@ Public Class ClsInventarios
 #End Region
 
 #Region "  INVENTARIOS - VENTAS  "
-    Public Function EntregaAlmacenGet(CveVenta As Integer, Optional CveAlmacen As Integer = -1) As Boolean
+    Public Function EntregaAlmacenGet(CveVenta As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
         End With
         Try
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e064ddac8..28fd47c91 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -658,7 +658,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         Dim ObjInventario As New ClsInventarios
 
-        If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
+        If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
             If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
 
                 ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
@@ -2181,7 +2181,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
         Dim DtDatosVenta As New DataTable
-        If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then
+        If ObjInventario.EntregaAlmacenGet(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
             DtDatosVenta = ObjInventario.DtResultados
         End If
         Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)