From 301cb1e0f4a286020a2a515da1f08fa51e886a94 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Tue, 9 Nov 2021 16:11:39 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20bzw=20Erweiterungen=20der=20K?=
 =?UTF-8?q?I=20f=C3=BCr=20Autokorrektur?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/WebService.vb         | 30 ++++++++++++-
 Customers/CustomsAviso.aspx.vb |  4 +-
 Customers/Invoices.aspx        | 78 ++++++++++++++++++++++++++++++++--
 3 files changed, 106 insertions(+), 6 deletions(-)

diff --git a/App_Code/WebService.vb b/App_Code/WebService.vb
index adb5e3e..9ceaa22 100644
--- a/App_Code/WebService.vb
+++ b/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
\ No newline at end of file
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index b4c20d8..e95dd45 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -451,7 +451,7 @@ Partial Class CustomsAviso
                     End Try
                 Else
                     regexval_txt_LKW.ForeColor = Drawing.Color.Red
-                    regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert.!"
+                    regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                 End If
             ElseIf txt_Absender_M.Text IsNot "" Then
                 txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
@@ -508,7 +508,7 @@ Partial Class CustomsAviso
                 End If
             Else
                 regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
-                regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert!"
+                regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
             End If
             If rbt_Alle.Checked = True Then
                 pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx
index a84f244..a4036fa 100644
--- a/Customers/Invoices.aspx
+++ b/Customers/Invoices.aspx
@@ -130,8 +130,7 @@
                                                 <asp:TextBox ID="txt_ReNr" runat="server" PlaceHolder="invoice number" style="width:145px;" AutoCompleteType="Notes"></asp:TextBox>
                                                 <asp:RequiredFieldValidator ControlToValidate="txt_ReNr" runat="server" ID="reqval_txt_ReNr" Display="Dynamic" ForeColor="Red" Enabled="false" ></asp:RequiredFieldValidator>
                                                 <asp:RegularExpressionValidator ControlToValidate="txt_ReNr" runat="server" ID="regex_txt_ReNr" ForeColor="Red" ValidationExpression="[0-9]{1,8}" Display="Dynamic" ErrorMessage="Please stay in the range of 8 numbers!"></asp:RegularExpressionValidator>
-                                            </div>
-                                   
+                                            </div>                                   
                                     </div></div>
                                 </div>
                                     <!-- Mobil -->
@@ -216,6 +215,9 @@
     <script>
     $(document).ready(function() {
         BindControls();
+        BindControls_M();
+        BindControls2();
+        BindControls2_M();
     });
 
     function BindControls() {
@@ -240,7 +242,77 @@
             },
             minLength: 1    // MINIMUM 1 CHARACTER TO START WITH.
         });
-    }
+        }
+        function BindControls_M() {
+            $("#txt_LKW_M").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "WebService.asmx/ShowLKWs",
+                        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 BindControls2() {
+            $("#txt_KdNrAuftrag").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "WebService.asmx/ShowLKWs",
+                        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: 3    // MINIMUM 1 CHARACTER TO START WITH.
+            });
+        }
+        function BindControls2() {
+            $("#txt_KdNrAuftrag_M").autocomplete({
+                source: function (request, response) {
+                    $.ajax({
+                        url: "WebService.asmx/ShowLKWs",
+                        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: 3    // MINIMUM 3 CHARACTER TO START WITH.
+            });
+        }
     </script>
 </asp:Content>