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

Berichte/Erstattungsschreiben Fehler behoben

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-22 16:04:44 +02:00
parent 86482b7904
commit 4ae6d5dd8e
2 changed files with 87 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/seriendruck/usrCntlSeriendruck.vb
View File

@@ -6,7 +6,7 @@ Public Class usrCntlSeriendruck
Dim FMZOLL_SQL As New FMZOLL_SQL
Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then
If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then
frmMain.setInfo("info", "Die Abfertigungsnummer ist nicht gültig!", 2)
Exit Sub
End If
@@ -63,8 +63,8 @@ Public Class usrCntlSeriendruck
WordDoc = Nothing
WordApp.Quit()
Me.BringToFront()
txtErstattungAbfNr.Focus()
txtErstattungAbfNr.SelectAll()
txtErstattungAbfNr_neu.Focus()
txtErstattungAbfNr_neu.SelectAll()
End If
'WordDoc.PrintOut()
'WordDoc.PrintOut()
@@ -78,7 +78,7 @@ Public Class usrCntlSeriendruck
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnShowData.Click
If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then Exit Sub
If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then Exit Sub
If cbxErstSprache.Text = "" Then Exit Sub
frmShowData.Show()
@@ -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, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown
Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr_neu.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()
@@ -146,9 +146,10 @@ Public Class usrCntlSeriendruck
End Sub
Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged
txtErstattungAbfNr.BackColor = Color.White
txtErstattungAbfNr.ForeColor = Color.Red
Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr_neu.TextChanged
txtErstattungAbfNr_neu.BackColor = Color.White
txtErstattungAbfNr_neu.ForeColor = Color.Red
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 & " ")
@@ -163,8 +164,9 @@ Public Class usrCntlSeriendruck
Case Else : cbxErstSprache.SelectedIndex = 3
End Select
Catch : End Try
txtErstattungAbfNr.BackColor = Color.White
txtErstattungAbfNr.ForeColor = Color.DarkGreen
txtErstattungAbfNr_neu.BackColor = Color.White
txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen
End If
End If
End Sub
@@ -182,7 +184,7 @@ Public Class usrCntlSeriendruck
cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
cbxErstSprache.SelectedIndex = 0
txtErstattungAbfNr.Focus()
txtErstattungAbfNr_neu.Focus()
End Sub
Public Function NurZahlen(ByVal Text As String) As Boolean
If Text.Length = 0 Then Return False