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

4
Customers/CustomsAviso.aspx.vb
View File

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

78
Customers/Invoices.aspx
View File

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