Änderungen bzw Erweiterungen der KI für Autokorrektur

App_Code/WebService.vb

@@ -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