Liga para recibir usados desde entrega almacen hacia recepcion de usados

Inventarios/EntregaAlmacen.aspx.vb

@@ -2914,6 +2914,10 @@ Partial Class Inventarios_EntregaAlmacen
 
             If RbEntregaInterna.Checked Then
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto = "Rem" Then
+                Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
             End If
 
             Alert(Msg.ToString(), TipoMensaje.MsgInformacion)