se agrego un nuevo catálogo de equivalencias en medidas para econollantas

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -70,6 +70,7 @@ Partial Class Inventarios_Default
             DivRin.Visible = True
             CargarMedRin()
             DivMedRin.Visible = True
+            DivEquivalentes.Visible = True
             DivPS.Visible = False
         End If
         Dim Txt As String = IfNull(Request("Txt"), "").ToString
@@ -89,6 +90,7 @@ Partial Class Inventarios_Default
     Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             CargarDatosMedRin()
+            CargaEquivalencia()
         Else
             CargaDatos(DDlPS.SelectedValue.ToEntero, 1)
         End If
@@ -243,6 +245,15 @@ Partial Class Inventarios_Default
         UPDatos.Update()
     End Sub
 
+    Private Sub CargaEquivalencia()
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero()) Then
+            GvEquival.DataSource = ObjGeneral.DtResultados
+        End If
+        ObjGeneral.Dispose()
+        GvEquival.DataBind()
+    End Sub
+
     Private Function ValidarFiltrosSeleccionados() As Boolean
         If DDlPS.SelectedValue.ToEntero > 0 Then Return True
         Return False