From fd32664516d687bc7fc802074ee71ff616b20f67 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 10 Nov 2021 08:29:21 +0100
Subject: [PATCH] Testcommit

---
 App_Code/WebService.vb  | 103 ++++++++++++++++++++++---
 Customers/Invoices.aspx | 163 ++++++++++++++++++++++++++++++++++++++--
 Web.config              |  10 ++-
 3 files changed, 256 insertions(+), 20 deletions(-)

diff --git a/App_Code/WebService.vb b/App_Code/WebService.vb
index 9ceaa22..dc6af29 100644
--- 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
\ No newline at end of file
diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx
index a4036fa..b5a6e56 100644
--- a/Customers/Invoices.aspx
+++ b/Customers/Invoices.aspx
@@ -26,7 +26,12 @@
     <link rel="stylesheet" type="text/css" href="../css/Dropdown.css"/>   
     <link rel="stylesheet" type="text/css" href="../css/Customers/MasterpageCustomers.css"/>       
     <link rel="stylesheet" type="text/css" href="../css/navbarsidebar2.css"/>      
-    <link rel="stylesheet" type="text/css" href="../css/Customers/Invoices.css"/>    
+    <link rel="stylesheet" type="text/css" href="../css/Customers/Invoices.css"/>   
+    
+
+    <link href="https://ajax.googleapis.com/ajax/libs/jqueryui/1.8.1/themes/base/jquery-ui.css" rel="stylesheet" type="text/css"/>
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
+    <script src="https://ajax.googleapis.com/ajax/libs/jqueryui/1.8.1/jquery-ui.min.js"></script>
 </asp:Content>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
@@ -212,19 +217,24 @@
             </div>
         </div>
     </ContentTemplate></asp:UpdatePanel>
+
     <script>
     $(document).ready(function() {
         BindControls();
         BindControls_M();
         BindControls2();
         BindControls2_M();
+        BindControls3();
+        BindControls3_M();
+        BindControls4();
+        BindControls4_M();
     });
 
     function BindControls() {
         $("#txt_LKW").autocomplete({
             source: function(request, response) {
                 $.ajax({
-                    url: "WebService.asmx/ShowLKWs",
+                    url: "../App_Code/WebService.asmx/ShowLKWs",
                     data: "{ 'sLookUP': '" + request.term + "' }",
                     dataType: "json",
                     type: "POST",
@@ -247,7 +257,7 @@
             $("#txt_LKW_M").autocomplete({
                 source: function (request, response) {
                     $.ajax({
-                        url: "WebService.asmx/ShowLKWs",
+                        url: "../App_Code/WebService.asmx/ShowLKWs",
                         data: "{ 'sLookUP': '" + request.term + "' }",
                         dataType: "json",
                         type: "POST",
@@ -271,7 +281,7 @@
             $("#txt_KdNrAuftrag").autocomplete({
                 source: function (request, response) {
                     $.ajax({
-                        url: "WebService.asmx/ShowLKWs",
+                        url: "../App_Code/WebService.asmx/ShowKdNrAuftrag",
                         data: "{ 'sLookUP': '" + request.term + "' }",
                         dataType: "json",
                         type: "POST",
@@ -287,14 +297,14 @@
                         }
                     });
                 },
-                minLength: 3    // MINIMUM 1 CHARACTER TO START WITH.
+                minLength: 1    // MINIMUM 1 CHARACTER TO START WITH.
             });
         }
-        function BindControls2() {
+        function BindControls2_M() {
             $("#txt_KdNrAuftrag_M").autocomplete({
                 source: function (request, response) {
                     $.ajax({
-                        url: "WebService.asmx/ShowLKWs",
+                        url: "../App_Code/WebService.asmx/ShowKdNrAuftrag",
                         data: "{ 'sLookUP': '" + request.term + "' }",
                         dataType: "json",
                         type: "POST",
@@ -310,7 +320,144 @@
                         }
                     });
                 },
-                minLength: 3    // MINIMUM 3 CHARACTER TO START WITH.
+                minLength: 1    // MINIMUM 3 CHARACTER TO START WITH.
+            });
+        }
+        function BindControls3() {
+            $("#txt_Absender").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "../App_Code/WebService.asmx/ShowAbsender",
+                        data: "{ 'sLookUP': '" + request.term + "' }",
+                        dataType: "json",
+                        type: "POST",
+                        contentType: "application/json; charset=utf-8",
+                        dataFilter: function (data) { return data; },
+                        success: function (data) {
+                            response($.map(data.d, function (item) {
+                                return { value: item }
+                            }))
+                        },
+                        error: function (XMLHttpRequest, textStatus, errorThrown) {
+                            alert(textStatus);
+                        }
+                    });
+                },
+                minLength: 1    // MINIMUM 1 CHARACTER TO START WITH.
+            });
+        }
+        function BindControls3_M() {
+            $("#txt_Absender_M").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "../App_Code/WebService.asmx/ShowAbsender",
+                        data: "{ 'sLookUP': '" + request.term + "' }",
+                        dataType: "json",
+                        type: "POST",
+                        contentType: "application/json; charset=utf-8",
+                        dataFilter: function (data) { return data; },
+                        success: function (data) {
+                            response($.map(data.d, function (item) {
+                                return { value: item }
+                            }))
+                        },
+                        error: function (XMLHttpRequest, textStatus, errorThrown) {
+                            alert(textStatus);
+                        }
+                    });
+                },
+                minLength: 1    // MINIMUM 3 CHARACTER TO START WITH.
+            });
+        }
+        function BindControls4() {
+            $("<%=txt_Empfaenger.ClientID%>").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "../App_Code/WebService.asmx/ShowEmpfaenger",
+                        data: "{ 'sLookUP': '" + request.term + "' }",
+                        dataType: "json",
+                        type: "POST",
+                        contentType: "application/json; charset=utf-8",
+                        dataFilter: function (data) { return data; },
+                        success: function (data) {
+                            response($.map(data.d, function (item) {
+                                return { value: item }
+                            }))
+                        },
+                        error: function (XMLHttpRequest, textStatus, errorThrown) {
+                            alert(textStatus);
+                        }
+                    });
+                },
+                minLength: 1    // MINIMUM 1 CHARACTER TO START WITH.
+            });
+        }
+        function BindControls4_M() {
+            $("<%=txt_Empfaenger_M.ClientID%>").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "../App_Code/WebService.asmx/ShowEmpfaenger",
+                        data: "{ 'sLookUP': '" + request.term + "' }",
+                        dataType: "json",
+                        type: "POST",
+                        contentType: "application/json; charset=utf-8",
+                        dataFilter: function (data) { return data; },
+                        success: function (data) {
+                            response($.map(data.d, function (item) {
+                                return { value: item }
+                            }))
+                        },
+                        error: function (XMLHttpRequest, textStatus, errorThrown) {
+                            alert(textStatus);
+                        }
+                    });
+                },
+                minLength: 1    // MINIMUM 1 CHARACTER TO START WITH.
+            });
+        }function BindControls5() {
+            $("<%=txt_ReNr.ClientID%>").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "../App_Code/WebService.asmx/ShowRENr",
+                        data: "{ 'sLookUP': '" + request.term + "' }",
+                        dataType: "json",
+                        type: "POST",
+                        contentType: "application/json; charset=utf-8",
+                        dataFilter: function (data) { return data; },
+                        success: function (data) {
+                            response($.map(data.d, function (item) {
+                                return { value: item }
+                            }))
+                        },
+                        error: function (XMLHttpRequest, textStatus, errorThrown) {
+                            alert(textStatus);
+                        }
+                    });
+                },
+                minLength: 1    // MINIMUM 1 CHARACTER TO START WITH.
+            });
+        }
+        function BindControls5_M() {
+            $("<%=txt_ReNr_M.ClientID%>").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "../App_Code/WebService.asmx/ShowRENr",
+                        data: "{ 'sLookUP': '" + request.term + "' }",
+                        dataType: "json",
+                        type: "POST",
+                        contentType: "application/json; charset=utf-8",
+                        dataFilter: function (data) { return data; },
+                        success: function (data) {
+                            response($.map(data.d, function (item) {
+                                return { value: item }
+                            }))
+                        },
+                        error: function (XMLHttpRequest, textStatus, errorThrown) {
+                            alert(textStatus);
+                        }
+                    });
+                },
+                minLength: 1    // MINIMUM 3 CHARACTER TO START WITH.
             });
         }
     </script>
diff --git a/Web.config b/Web.config
index 53a0f51..5cc5df4 100644
--- a/Web.config
+++ b/Web.config
@@ -24,6 +24,12 @@
       </system.Web>
   -->
   <system.web>
+	  <webServices>
+		  <protocols>
+			  <add name="HttpGet"/>
+			  <add name="HttpPost"/>
+		  </protocols>
+	  </webServices>
     <authentication mode="Forms">
       <forms defaultUrl="/Customers/Welcome.aspx" loginUrl="login/Login_FLEX.aspx" slidingExpiration="true" timeout="2880" />
     </authentication>
@@ -68,7 +74,7 @@
         <clear />
         <add name="MySqlMembershipProvider" type="MySql.Web.Security.MySQLMembershipProvider, MySql.Web, Version=6.6.5.0, PublicKeyToken=c5687fc88969c44d" autogenerateschema="true" connectionStringName="MyProviderDbConn" enablePasswordRetrieval="false" enablePasswordReset="true" requiresQuestionAndAnswer="false" requiresUniqueEmail="false" passwordFormat="Hashed" maxInvalidPasswordAttempts="5" minRequiredPasswordLength="6" minRequiredNonalphanumericCharacters="0" passwordAttemptWindow="10" passwordStrengthRegularExpression="" applicationName="/" />
       </providers>
-    </membership>
+    </membership>	 
   </system.web>
   <connectionStrings>
     <add name="MyProviderDbConn" connectionString="Server=db593283095.db.1and1.com;Database=db593283095;Uid=dbo593283095;Pwd=atilla#2;Persist Security Info=True;Use Compression=True;port=3306" providerName="MySqlMembershipProvider" />
@@ -147,7 +153,7 @@
       <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=2.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:default /nowarn:1659;1699;1701" />
       <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=2.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:default /nowarn:41008 /define:_MYTYPE=\&quot;Web\&quot; /optionInfer+" />
     </compilers>
-  </system.codedom>
+  </system.codedom>	
 </configuration>
 <!--ProjectGuid: 9b651bc0-361a-4f93-8118-dd8a986f2371-->
 <!--Deny access for 'images' folder-->
\ No newline at end of file