diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 1a49ae181..472e50a77 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -3689,4 +3689,24 @@ Partial Class ProductosyServicios
End If
End Sub
+
+ Protected Sub LnkEquivalenciaAdd_Click(sender As Object, e As EventArgs)
+ DdlEquivalenciaUM.Items.Clear()
+ DdlEquivalenciaUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
+ DdlEquivalenciaUM.DataBind()
+ UPPEquiv.Update()
+ RegistraScript(String.Format("$('#{0}').modal('show');", "divEquivalenciaModal"))
+ End Sub
+
+ Protected Sub LnkAgregarEquivalencia_Click(sender As Object, e As EventArgs)
+ Dim Ps As New ClsProductosServicios
+
+ If Ps.AddPSEquivalencias(CvePS, DdlEquivalenciaUM.SelectedValue.ToEntero, TxtCantidadEquivalencia.Text.ToDecimal, False, 0, UsuarioActual.CveUsuario) Then
+ Alert("Equivalencia registrada correctamente.", TipoMensaje.ToastInformacion)
+ CargaEquivalencias()
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "divEquivalenciaModal"))
+ End If
+
+ Ps.Dispose()
+ End Sub
End Class