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

HA bemutatóra előkészítés

Browse Source
This commit is contained in:
ivanszabo
2018-04-22 22:20:16 +02:00
parent 5b333614ae
commit 714241c3a0
30 changed files with 418 additions and 1013 deletions
Download Patch File Download Diff File Expand all files Collapse all files
momoERP.Win.HA/WinApplication_DB.vb
+5 -5
View File
@@ -61,7 +61,7 @@ Partial Public Class NuvolarWindowsFormsApplication
GLOBAL_MainModuleVersion = anm.Version.ToString
GLOBAL_ConnectionString = connstr
GLOBAL_WINFormCaption = String.Format("Nuvolar Framework version: {0} [{1}]", Application.ProductVersion, anm.Version.ToString)
GLOBAL_WINFormCaption = String.Format("momo ERP Framework version: {0} [{1}]", Application.ProductVersion, anm.Version.ToString)
GLOBAL_WINFormCaption += String.Format(", ({0})", GLOBAL_Company_Info)
GLOBAL_ApplicationStartupPath = Application.StartupPath & "\"
End Sub
@@ -88,8 +88,8 @@ Partial Public Class NuvolarWindowsFormsApplication
Dim _ConnectionString As String = ""
Try
Dim _url = "http://sis-r.hu/SISChat/SISSecuritySSL.ashx?id=" & UCase(GLOBAL_Company)
'Dim _url = "http://nuvolar.azurewebsites.net/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())
@@ -123,8 +123,8 @@ Partial Public Class NuvolarWindowsFormsApplication
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://nuvolar.azurewebsites.net/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())