Kardex Horizontal opcion separado destino, Compras cabecera grid AF, Usuario link url correo usuario

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1038,11 +1038,14 @@ Partial Class Inventarios_RecepcionAlmacen
                 ' HplCargaExcel.Enabled = True
 
 
+
+
                 Dim CargaSoloUsados As Boolean = False
 
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
                     DtInv = DtRecepcion
+
                     Dim NumUsados As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
                     Dim NumProductos As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
                     Dim CveSubProyecto As Integer
@@ -1093,6 +1096,14 @@ Partial Class Inventarios_RecepcionAlmacen
                         End If
                     End If
 
+
+                    If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        If ObjCompras.GetCompraDetalle(pCveCompra, UsuarioActual.CveEmpresa) Then
+                            TotalCompraOC = ObjCompras.DtResultados.SUM("Total", "CveTipoPS = 2")
+                        End If
+                    End If
+
+
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero