AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Changes Items

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-09-28 14:25:35 +02:00
parent 68a4d53e0e
commit 37d946f435
17 changed files with 86 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
SchaumKommiCollo/KommiCollo/frmMain.vb
View File

@@ -414,7 +414,8 @@ Public Class frmMain
btnAddPaket.Enabled = True
tsinfolabel.Text = "Vorgang abgebrochen"
tsinfolabel.Visible = True
ListBoxFortras.Items.Clear()
ListBoxFortras.DataSource = Nothing
'ListBoxFortras.Items.Clear()
txtFreitext.Text = ""
txtHinweistext.Text = ""
Catch ex As Exception
@@ -668,7 +669,8 @@ Public Class frmMain
btnAddPaket.Enabled = True
tsinfolabel.Text = "Vorgang abgebrochen"
tsinfolabel.Visible = True
ListBoxFortras.Items.Clear()
'ListBoxFortras.Items.Clear()
ListBoxFortras.DataSource = Nothing
frmPrintOptions.ShowDialog()
GridControlLHM.DataSource = Nothing
@@ -743,7 +745,13 @@ Public Class frmMain
Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_HINWEIS (SENDUNGNR,TEXTSCHLUSSEL_ID,TEXT,ERSTELLTWER) VALUES ({0},{1},'{2}','{3}')", CURRENT_SENDUNG, cmbTextschlüssel.SelectedValue, txtHinweistext.Text, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins) = True Then
Me.txtHinweistext.Text = ""
If IsNothing(ListBoxFortras.DataSource) Then
Me.ListBoxFortras.DataSource = Me.TBKOMMCOLLI_HINWEISBindingSource
Me.ListBoxFortras.DisplayMember = "BEZEICHNUNG"
Me.ListBoxFortras.ValueMember = "GUID"
End If
Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, CURRENT_SENDUNG)
tsinfolabel.Visible = True
tsinfolabel.Text = "Update Textschlüssel erfolgreich - " & Now.ToString
End If
@@ -774,7 +782,13 @@ Public Class frmMain
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim del = String.Format("DELETE FROM TBKOMMCOLLI_HINWEIS WHERE GUID = (SELECT MAX(GUID) FROM TBKOMMCOLLI_HINWEIS WHERE SENDUNGNR = {0})", CURRENT_SENDUNG)
If ClassDatabase.Execute_non_Query(del) = True Then
If IsNothing(ListBoxFortras.DataSource) Then
Me.ListBoxFortras.DataSource = Me.TBKOMMCOLLI_HINWEISBindingSource
Me.ListBoxFortras.DisplayMember = "BEZEICHNUNG"
Me.ListBoxFortras.ValueMember = "GUID"
End If
Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, CURRENT_SENDUNG)
tsinfolabel.Visible = True
tsinfolabel.Text = "Löschen Textschlüssel erfolgreich - " & Now.ToString
End If
@@ -828,8 +842,9 @@ Public Class frmMain
Private Sub pnlHuP_VisibleChanged(sender As Object, e As EventArgs) Handles pnlHuP.VisibleChanged
txtFreitext.Text = ""
txtHinweistext.Text = ""
ListBoxFortras.Items.Clear()
txtHinweistext.Text = ""
ListBoxFortras.DataSource = Nothing
'ListBoxFortras.Items.Clear()
End Sub