Public Overrides Function GetEwaUrl(ByVal Id As String) As String
            Try
                LogMessage("Inicio GetEwaUrl().")

                If Id Is Nothing OrElse Id.Trim.Length = 0 Then
                    Throw New clsExcBaseException("El parámetro Id no puede estar en blanco.")
                End If

                Dim Url As String

                Dim wBoDirect As clsBoDirect = ExecuteReader("SELECT URL FROM EWA_URLS WHERE ID='" & Id & "'")
                If wBoDirect Is Nothing Then
                    Throw New clsExcBaseException("No se encontro ninguna URL con Id: " & Id)
                Else
                    Url = wBoDirect.GetColumnValue(0, 0)
                End If

                With WebOperationContext.Current.OutgoingResponse
                    .StatusCode = Net.HttpStatusCode.Redirect
                    .Headers.Add("Location", Url)
                End With

                Return "OK"

            Catch ex As Exception
                'Throw LogException(New SvcEngageException(ex.Message))
                LogMessage(ex.Message)
                Return ex.Message
            Finally
                LogMessage("Fin GetEwaUrl().")
            End Try
        End Function