edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen bzw Erweiterungen der KI für Autokorrektur

Browse Source
This commit is contained in:
ja
2021-11-09 16:11:39 +01:00
parent 8971416b81
commit 301cb1e0f4
3 changed files with 106 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
App_Code/WebService.vb
View File

@@ -4,7 +4,7 @@ Imports System.Web.Services
Imports System.Web.Services.Protocols
' Wenn der Aufruf dieses Webdiensts aus einem Skript zulässig sein soll, heben Sie mithilfe von ASP.NET AJAX die Kommentarmarkierung für die folgende Zeile auf.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Script.Services.ScriptService()>
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
@@ -39,4 +39,32 @@ Public Class WebService
myConn.Close() : Return lstCountries
End Function
<WebMethod()>
Public Function ShowKdNrAuftrag(ByVal sLookUP As String) As List(Of String)
Dim lstCountries As New List(Of String)()
Dim Connectionstring As String = String.Empty
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
Connectionstring = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
Else
Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If
Dim myConn As New SqlConnection(Connectionstring)
Dim objComm As New SqlCommand("SELECT LKW Kennzeichen FROM FROM [VERAG_HOMEPAGE].[dbo].[Rechnungsausgang] " &
"WHERE AbsenderKundenNr LIKE '%'+@LookUP+'%' ORDER BY Kennzeichen", myConn)
myConn.Open()
objComm.Parameters.AddWithValue("@LookUP", sLookUP)
Dim reader As SqlDataReader = objComm.ExecuteReader()
While reader.Read()
lstCountries.Add(reader("Kennzeichen").ToString())
End While
myConn.Close() : Return lstCountries
End Function
End Class