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

UID-Prüfung (Doppelklick vermeiden + verbesserte Fehlermeldung), etc.

Browse Source
This commit is contained in:
d.breimaier
2024-08-12 16:43:33 +02:00
parent 01268469c5
commit a5366e75a1
5 changed files with 103 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/seriendruck/usrCntlSeriendruck.vb
View File

@@ -31,7 +31,7 @@ Public Class usrCntlSeriendruck
WordDoc.Activate()
Dim berichteSQL As New BerichteSQL
Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale.Text, txtErstattungAbfNr.Text, txtErstattungAbfUnterNr.Text)
Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale_neu.Text, txtErstattungAbfNr_neu.Text, txtErstattungAbfUnterNr_neu.Text)
'Dim ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(bericht.)
If bericht.KorrAdresse <> "" Then
bericht.KorrAdresse = bericht.KorrAdresse.Replace(Chr(13) & Chr(10), Chr(13))
@@ -82,7 +82,7 @@ Public Class usrCntlSeriendruck
If cbxErstSprache.Text = "" Then Exit Sub
frmShowData.Show()
frmShowData.DataGridView1.DataSource = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale.Text & ", " & txtErstattungAbfNr.Text & ", " & txtErstattungAbfUnterNr.Text & " ")
frmShowData.DataGridView1.DataSource = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale_neu.Text & ", " & txtErstattungAbfNr_neu.Text & ", " & txtErstattungAbfUnterNr_neu.Text & " ")
frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
End Sub
@@ -138,7 +138,7 @@ Public Class usrCntlSeriendruck
WordApp.Visible = True
End Sub
Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown
Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown
If e.KeyCode = Keys.Enter Then
withPrint = cbxSofortDruck.Checked
btnWord.PerformClick()
@@ -149,10 +149,10 @@ Public Class usrCntlSeriendruck
Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged
txtErstattungAbfNr.BackColor = Color.White
txtErstattungAbfNr.ForeColor = Color.Red
If NurZahlen(txtErstattungAbfNr.Text) And NurZahlen(txtErstattungAbfNrFiliale.Text) And NurZahlen(txtErstattungAbfUnterNr.Text) Then
If NurZahlen(txtErstattungAbfNr_neu.Text) And NurZahlen(txtErstattungAbfNrFiliale_neu.Text) And NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then
'Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("SELECT TOP 1 * FROM vwUStVErstattungsschreiben WHERE AbfertigungsNr=" & txtErstattungAbfNr.Text & " and FilialenNr =" & txtErstattungAbfNrFiliale.Text & " and UnterNr =" & txtErstattungAbfUnterNr.Text & " ")
Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale.Text & ", " & txtErstattungAbfNr.Text & ", " & txtErstattungAbfUnterNr.Text & " ")
Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale_neu.Text & ", " & txtErstattungAbfNr_neu.Text & ", " & txtErstattungAbfUnterNr_neu.Text & " ")
If Not dt Is Nothing AndAlso dt.Rows.Count > 0 Then
Try
@@ -197,8 +197,8 @@ Public Class usrCntlSeriendruck
End Function
Private Sub txtErstattungAbfUnterNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfUnterNr.LostFocus
If NurZahlen(txtErstattungAbfUnterNr.Text) Then
If txtErstattungAbfUnterNr.Text.Length = 1 Then txtErstattungAbfUnterNr.Text = "0" & txtErstattungAbfUnterNr.Text
If NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then
If txtErstattungAbfUnterNr_neu.Text.Length = 1 Then txtErstattungAbfUnterNr_neu.Text = "0" & txtErstattungAbfUnterNr_neu.Text
End If
End Sub