diff --git a/.vs/WIN/v15/.suo b/.vs/WIN/v15/.suo index 6211b00..ac1b445 100644 Binary files a/.vs/WIN/v15/.suo and b/.vs/WIN/v15/.suo differ diff --git a/SISBusiness.WIN.Company/WinApplication_DB.vb b/SISBusiness.WIN.Company/WinApplication_DB.vb index fb7adc6..c26015e 100644 --- a/SISBusiness.WIN.Company/WinApplication_DB.vb +++ b/SISBusiness.WIN.Company/WinApplication_DB.vb @@ -86,7 +86,8 @@ Partial Public Class SISBusinessWindowsFormsApplication Dim _ConnectionString As String = "" Try - Dim _url = "http://sis-r.hu/SISChat/SISSecuritySSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _url = "http://ws2016dc.northeurope.cloudapp.azure.com:8089/SISSecuritySSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) @@ -104,7 +105,8 @@ Partial Public Class SISBusinessWindowsFormsApplication Dim _InfoString As String = "" Dim _GetInfoClass As New GetInfoClass Try - Dim _url = "http://sis-r.hu/SISChat/SISGetInfoSSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _url = "http://ws2016dc.northeurope.cloudapp.azure.com:8089/SISSecuritySSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream())