edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SPedBuch

Browse Source
This commit is contained in:
d.breimaier
2025-08-13 15:56:44 +02:00
parent b12d282579
commit 0f3bd82215
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -2796,12 +2796,19 @@ Public Class usrCntlSpeditionsBuchSuche
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
Dim kdnrsrch As Integer = -1 Dim kdnrsrch As Integer = -1
Dim KUNDE
If kdnrsrch < 0 Then If kdnrsrch < 0 Then
Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Auswertung abbrechen") Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Kundenauswertung generieren")
If IsNumeric(inputKdNr) And inputKdNr > 0 Then If inputKdNr <> "" AndAlso IsNumeric(inputKdNr) AndAlso inputKdNr > 0 Then
kdnrsrch = inputKdNr kdnrsrch = inputKdNr
KUNDE = New cKunde(kdnrsrch)
If KUNDE Is Nothing Then
MsgBox("KundenNr " & inputKdNr & " nicht vorhanden!")
Exit Sub
End If
Else Else
MsgBox("KundenNr " & inputKdNr & " nicht gültig!") MsgBox("KundenNr " & inputKdNr & " nicht gültig!")
Exit Sub Exit Sub
@@ -2809,7 +2816,7 @@ Public Class usrCntlSpeditionsBuchSuche
End If End If
Dim KUNDE As New cKunde(kdnrsrch)
Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer