-- activación de registro de Equivalencias

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