ivanszabo/SISBusiness
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Company jó beállítás

Browse Source 
ws2016dc.northeurope.cloudapp.azure.com
This commit is contained in:
ivanszabo
2018-04-24 20:37:26 +02:00
parent 3836b60816
commit 3ad9226543
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.vs/WIN/v15/.suo
BIN
View File
Binary file not shown.
SISBusiness.WIN.Company/WinApplication_DB.vb
+4 -2
View File
@@ -86,7 +86,8 @@ Partial Public Class SISBusinessWindowsFormsApplication
Dim _ConnectionString As String = "" Dim _ConnectionString As String = ""
Try 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 _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest)
Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse)
Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream())
@@ -104,7 +105,8 @@ Partial Public Class SISBusinessWindowsFormsApplication
Dim _InfoString As String = "" Dim _InfoString As String = ""
Dim _GetInfoClass As New GetInfoClass Dim _GetInfoClass As New GetInfoClass
Try 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 _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest)
Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse)
Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream())