<WebMethod()> _ Public Function WatchListWS(ByVal strName As String) As WatchListIntResp Dim watchStatus As String = "" Dim resp As New WatchListIntResp Dim objWatchList As Object = Server.CreateObject("VREMIT.Enterprise.ComWatchList") Try watchStatus = objWatchList.mtdMatchExact(strName, g_global_region_code) If watchStatus <> "" Then resp.watchlistIntCode = "3" resp.watchlistIntMsg = "Hit International" 'strResult = "3 | Hit International " Else 'strResult = " 0 | Not Watched " resp.watchlistIntCode = "0" resp.watchlistIntMsg = "Not Watched" End If Return resp Catch ex As Exception Return Nothing End Try End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)