Testcommit

2021-11-10 08:29:21 +01:00
parent 301cb1e0f4
commit fd32664516
3 changed files with 256 additions and 20 deletions
--- a/App_Code/WebService.vb
+++ b/App_Code/WebService.vb
@@ -18,22 +18,22 @@ Public Class WebService

        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$;"
+            Connectionstring = "Server=DEVELOPER\DEVSQL;Database=VERAG;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=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG;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 Kennzeichen LIKE '%'+@LookUP+'%' ORDER BY Kennzeichen", myConn)
+        Dim objComm As New SqlCommand("SELECT 'LKW Kennzeichen' FROM [VERAG].[dbo].[Rechnungsausgang] " &
+            "WHERE 'LKW Kennzeichen' LIKE '%'+@LookUP+'%' ORDER BY 'LKW Kennzeichen' ASC", myConn)
        myConn.Open()

        objComm.Parameters.AddWithValue("@LookUP", sLookUP)
        Dim reader As SqlDataReader = objComm.ExecuteReader()

        While reader.Read()
-            lstCountries.Add(reader("Kennzeichen").ToString())
+            lstCountries.Add(reader("LKW Kennzeichen").ToString())
        End While

        myConn.Close() : Return lstCountries
@@ -46,25 +46,108 @@ Public Class WebService

        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$;"
+            Connectionstring = "Server=DEVELOPER\DEVSQL;Database=VERAG;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=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG;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)
+        Dim objComm As New SqlCommand("SELECT AbsenderKundenNr FROM [VERAG].[dbo].[Rechnungsausgang] " &
+            "WHERE AbsenderKundenNr LIKE '%'+@LookUP+'%' ORDER BY AbsenderKundenNr ASC", myConn)
        myConn.Open()

        objComm.Parameters.AddWithValue("@LookUP", sLookUP)
        Dim reader As SqlDataReader = objComm.ExecuteReader()

        While reader.Read()
-            lstCountries.Add(reader("Kennzeichen").ToString())
+            lstCountries.Add(reader("AbsenderKundenNr").ToString())
        End While

        myConn.Close() : Return lstCountries
    End Function

+    <WebMethod()>
+    Public Function ShowAbsender(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;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+        Else
+            Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG;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 'AbsenderName 1' FROM [VERAG].[dbo].[Rechnungsausgang] " &
+            "WHERE 'AbsenderName 1' LIKE '%'+@LookUP+'%' ORDER BY [AbsenderName 1] ASC", myConn)
+        myConn.Open()
+
+        objComm.Parameters.AddWithValue("@LookUP", sLookUP)
+        Dim reader As SqlDataReader = objComm.ExecuteReader()
+
+        While reader.Read()
+            lstCountries.Add(reader("AbsenderName 1").ToString())
+        End While
+
+        myConn.Close() : Return lstCountries
+    End Function
+
+    <WebMethod()>
+    Public Function ShowEmpfaenger(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;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+        Else
+            Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG;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 'EmpfängerName 1' FROM [VERAG].[dbo].[Rechnungsausgang] " &
+            "WHERE 'EmpfängerName 1' LIKE '%'+@LookUP+'%' ORDER BY [EmpfängerName 1] ASC", myConn)
+        myConn.Open()
+
+        objComm.Parameters.AddWithValue("@LookUP", sLookUP)
+        Dim reader As SqlDataReader = objComm.ExecuteReader()
+
+        While reader.Read()
+            lstCountries.Add(reader("EmpfängerName 1").ToString())
+        End While
+
+        myConn.Close() : Return lstCountries
+    End Function
+
+    <WebMethod()>
+    Public Function ShowRENr(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;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+        Else
+            Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG;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 RechnungsNr FROM [VERAG].[dbo].[Rechnungsausgang] " &
+            "WHERE RechnungsNr LIKE '%'+@LookUP+'%' ORDER BY RechnungsNr", myConn)
+        myConn.Open()
+
+        objComm.Parameters.AddWithValue("@LookUP", sLookUP)
+        Dim reader As SqlDataReader = objComm.ExecuteReader()
+
+        While reader.Read()
+            lstCountries.Add(reader("RechnungsNr").ToString())
+        End While
+
+        myConn.Close() : Return lstCountries
+    End Function
 End Class