Imports System.Text Public Class frmMain Dim aktGUID As Integer = 0 Dim aktMandant As String Dim aktLHM_SDG_ID As Integer = 0 Dim SDG_READY As Boolean = False Dim aktLHM_ID As Integer Dim AnzPaket As Integer Public Shared _EDV_no As String Public Shared _LS_no As String Dim CURR_LIEFADR As String Dim CURR_PLZ As String Dim CURR_Ort As String Dim CURR_Str As String Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing If pnlHuP.Visible = True And SDG_READY = False And aktGUID <> 0 Then Delete_HUP() End If End Sub Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load If My.Settings.ConfigConnectionString = String.Empty Or My.Settings.ConfigConnStringMercator = String.Empty Then MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:") frmConnection.ShowDialog() End If If My.Settings.ConfigConnectionString = String.Empty Or My.Settings.ConfigConnStringMercator = String.Empty Then MsgBox("Noch nicht alle Datenbankverknüpfungen hinterlegt!" & vbNewLine & "Programm wird beendet.", MsgBoxStyle.Critical, "Fehlende Konfiguration:") Application.Exit() End If Try Me.TBWH_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString Me.TBKOMMCOLLI_TERMINARTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString Me.TBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString Me.TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSEL) TBKOMMCOLLI_HINWEISTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString ClassDatabase.Init() Catch ex As Exception MsgBox("Fehler bei Load ConnectionString frm Main: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click frmConnection.ShowDialog() End Sub Private Sub MandanteneinstellungenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MandanteneinstellungenToolStripMenuItem.Click frmStammdatenverwaltung.Show() End Sub Sub ShowError(errormsg As String) Me.picbxError.Visible = True Me.txtError.Text = errormsg Me.txtError.Visible = True pnlError.Visible = True End Sub Sub deactivate_Error() Me.picbxError.Visible = False Me.txtError.Visible = False pnlError.Visible = False End Sub Private Sub btnAddNewPaket_Click(sender As System.Object, e As System.EventArgs) Handles btnAddNewColli.Click AddNew_Colli() End Sub Private Sub txtScan_GotFocus(sender As Object, e As System.EventArgs) Handles txtScan.GotFocus txtScan.BackColor = Color.LimeGreen End Sub Private Sub txtScan_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtScan.KeyUp If e.KeyCode = Keys.Return Then If txtScan.Text <> String.Empty Then AddBarcode(txtScan.Text) txtScan.Text = "" End If End If End Sub Private Sub txtScan_LostFocus(sender As Object, e As System.EventArgs) Handles txtScan.LostFocus txtScan.BackColor = Color.White End Sub Sub AddBarcode(BC As String) Try If BC.Contains("'") Then BC = BC.Replace("'", "|") End If If cmbAuswMandant.SelectedValue = 0 Then Else TBKOMMCOLLI_PAKET_POSTableAdapter.Insert(aktGUID, BC) TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID) Refresh_Barcodes() End If deactivate_Error() Catch ex As Exception If ex.Message.Contains("UNIQ_BARCODE_PER_POS") Then ShowError("ACHTUNG der Barcode wurde bereits einmal eingescannt!") Else ShowError("Fehler in AddBarcode: " & vbNewLine & ex.Message) End If End Try End Sub Private Function AddBarcodeHuP(BC As String) Try If BC.Contains("'") Then BC = BC.Replace("'", "|") End If Dim split() = BC.Split("|") Try _EDV_no = split(0) Catch ex As Exception _EDV_no = "" End Try Try _LS_no = split(1) Catch ex As Exception _LS_no = "" End Try If _EDV_no <> String.Empty And _LS_no <> String.Empty Then Dim getMERC_SELECT = String.Format("select TOP 1 vkkopf_kunde FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_KDNR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_name1] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_LIEFADR1 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_name2] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_LIEFADR2 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_strasse] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_LIEFSTR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_land_nr] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_LIEFLAND = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_ldplz] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_LIEFPLZ = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_ort] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_LIEFORT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) getMERC_SELECT = String.Format("select TOP 1 [vkkopf_gew_netto] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no) Dim MERC_GEWICHT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True) If MERC_KDNR Is Nothing Then MsgBox("Für diese Kombination aus Lieferschein und EDV-Nr konnten keine Werte aus mercator geholt werden!", MsgBoxStyle.Exclamation) Return False End If If CURR_LIEFADR = "" And CURR_Ort = "" Then CURR_LIEFADR = MERC_LIEFADR1 CURR_Ort = MERC_LIEFORT CURR_PLZ = MERC_LIEFPLZ CURR_Str = MERC_LIEFSTR End If If CURR_LIEFADR <> MERC_LIEFADR1 Or CURR_PLZ <> MERC_LIEFPLZ Or CURR_Str <> MERC_LIEFSTR Or CURR_Ort <> MERC_LIEFORT Then MsgBox("ACHTUNG: " & vbNewLine & "Die Adressdaten sind unterschiedlich!", MsgBoxStyle.Exclamation) Return False End If Dim Upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET KUNDEN_ID = '{0}',NAME1 = '{1}',NAME2 = '{2}',STRASSE = '{3}',LKZ = '{4}',PLZ = '{5}',ORT = '{6}' WHERE GUID = {7}", MERC_KDNR, MERC_LIEFADR1, MERC_LIEFADR2, MERC_LIEFSTR, MERC_LIEFLAND, MERC_LIEFPLZ, MERC_LIEFORT, aktGUID) If ClassDatabase.Execute_non_Query(Upd, True) = True Then Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_SDG_LHM (SENDUNGNR,LHM_ID,ERSTELLTWER) VALUES ({0},{1},'{2}')", aktGUID, aktLHM_ID, Environment.UserName) If ClassDatabase.Execute_non_Query(ins, True) = True Then aktLHM_SDG_ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBKOMMCOLLI_SDG_LHM", True) If aktLHM_SDG_ID > 0 Then btnPalfertig.Text = "Palette (" & aktLHM_SDG_ID.ToString & ") fertig" MERC_GEWICHT = MERC_GEWICHT.ToString.Replace(",", ".") ins = String.Format("INSERT INTO TBKOMMCOLLI_SDGPOSITIONEN (SENDUNGNR,SDG_LHM_ID,GEWICHT,ERSTELLTWER,FERTIG,FERTIGWER) VALUES ({0},{1},{2},'{3}',1,'{3}')", aktGUID, aktLHM_SDG_ID, MERC_GEWICHT, Environment.UserName) If ClassDatabase.Execute_non_Query(ins, True) = True Then cmbLHM.Enabled = False Refresh_POS(aktGUID) End If End If End If End If End If deactivate_Error() Catch ex As Exception If ex.Message.Contains("UNIQ_BARCODE_PER_POS") Then ShowError("ACHTUNG der Barcode wurde bereits einmal eingescannt!") Else ShowError("Fehler in AddBarcodeHuP: " & vbNewLine & ex.Message) End If Return False End Try End Function Sub Refresh_POS(SDG As Integer) Try Me.TBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString Me.TBKOMMCOLLI_SDGPOSITIONENTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_SDGPOSITIONEN, SDG, aktLHM_SDG_ID) 'GridControlPos.DataSource = Nothing 'grvwGridPos.Columns.Clear() 'Dim sel = String.Format("SELECT T.GUID,T1.LHM, T.POSINHALT,T.GEWICHT FROM TBKOMMCOLLI_SDGPOSITIONEN T, TBKOMMCOLLI_LHM T1 WHERE T.SDG_LHM_ID = T1.GUID AND T.SENDUNGNR = {0}", SDG) 'Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True) 'If Not DT Is Nothing Then ' GridControlPos.DataSource = DT 'End If Catch ex As Exception End Try End Sub Sub AddNew_Colli() Try If cmbAuswMandant.SelectedIndex = -1 Then Exit Sub End If Select Case cmbAuswMandant.SelectedIndex Case 0 aktMandant = "HUP" Dim sql = String.Format("INSERT INTO TBKOMMCOLLI_SENDUNGEN (ERSTELLTWER) VALUES ('{0}')", Environment.UserName) If ClassDatabase.Execute_non_Query(sql, True) = True Then AnzPaket = 0 sql = "SELECT MAX(GUID) FROM TBKOMMCOLLI_SENDUNGEN" aktGUID = ClassDatabase.Execute_Scalar(sql, True) pnlPaketadd.Visible = False pnlHuP.Visible = True pnlHuP.Dock = DockStyle.Fill sql = "select GUID, LHM from TBKOMMCOLLI_LHM where AKTIV = 1 ORDER BY LHM" Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) cmbLHM.DataSource = DT cmbLHM.DisplayMember = DT.Columns(1).ColumnName cmbLHM.ValueMember = DT.Columns(0).ColumnName CURR_LIEFADR = "" CURR_Ort = "" CURR_PLZ = "" CURR_Str = "" sql = "select PRINTER_NAME from TBKOMMCOLLI_MANDANT where KURZNAME = 'HuP'" CURR_IP_PRINTER = ClassDatabase.Execute_Scalar(sql) SDG_READY = False End If Case 1 aktMandant = "GLS" If txtPackstueck.Text <> String.Empty Then deactivate_Error() TBKOMMCOLLI_PAKET_KOPFTableAdapter.Insert(Me.cmbAuswMandant.SelectedValue, Environment.MachineName, Environment.UserName, txtPackstueck.Text, 0) AnzPaket = CInt(txtPackstueck.Text) aktGUID = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdGetMaxGUID() txtPackstueck.Text = "" Me.TBKOMMCOLLI_TERMINARTTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_TERMINART, CType(Me.cmbAuswMandant.SelectedValue, Integer)) If aktGUID > 0 Then If My.Settings.Default_Terminart <> String.Empty Then cmbTerminart.SelectedIndex = cmbTerminart.FindStringExact(My.Settings.Default_Terminart) Else cmbTerminart.SelectedIndex = -1 End If TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID) pnlPaketadd.Visible = False pnlAddBarcodes.Visible = True pnlAddBarcodes.Dock = DockStyle.Fill txtScan.Focus() ListViewBarcodes.Items.Clear() cmbTerminart.Enabled = True End If Else ShowError("Fehlende Eingabe: " & vbNewLine & "Bitte füllen Sie alle Pflichtfelder aus") End If End Select Catch ex As Exception ShowError("Fehler in AddNew_Colli: " & vbNewLine & ex.Message) End Try End Sub Sub Refresh_Barcodes() Try TBKOMMCOLLI_PAKET_POSTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_POS, aktGUID) Dim DT As DataTable = MyDataset.TBKOMMCOLLI_PAKET_POS Dim Count As Integer = 0 ListViewBarcodes.Items.Clear() For Each row As DataRow In DT.Rows ListViewBarcodes.Items.Add(row.Item("GUID")) ListViewBarcodes.Items(Count).SubItems.Add(row.Item("BARCODE")) Count += 1 Next ' End If Me.lblInfoBarcodes.Text = "Zugeordnete Barcodes (Aktuell: " & Count & " Stück)" Catch ex As Exception ShowError("Fehler in Refresh_Barcodes: " & vbNewLine & ex.Message) End Try End Sub Private Sub btndeleteBarcode_Click(sender As System.Object, e As System.EventArgs) Handles btndeleteBarcode.Click Try Dim I As Integer For I = 0 To ListViewBarcodes.SelectedItems.Count - 1 TBKOMMCOLLI_PAKET_POSTableAdapter.Delete(ListViewBarcodes.SelectedItems(I).Text) tsinfolabel.Text = "Barcode erfogreich gelöscht" Next TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID) Refresh_Barcodes() tsinfolabel.Visible = True Catch ex As Exception ShowError("Fehler in Lösche Barcode: " & vbNewLine & ex.Message) End Try End Sub Private Function Delete_HUP() Try Dim del = String.Format("delete from TBKOMMCOLLI_SDGPOSITIONEN where SENDUNGNR = {0}", aktGUID) If ClassDatabase.Execute_non_Query(del, False) = True Then del = String.Format("delete from TBKOMMCOLLI_SDG_LHM where SENDUNGNR = {0}", aktGUID) If ClassDatabase.Execute_non_Query(del, False) = True Then del = String.Format("delete from TBKOMMCOLLI_SENDUNGEN where GUID = {0}", aktGUID) If ClassDatabase.Execute_non_Query(del, False) = True Then Return True Else Return False End If Else Return False End If Else Return False End If Catch ex As Exception ShowError("Fehler in Abbruch Sendung: " & vbNewLine & ex.Message) Return False End Try End Function Private Sub tsbtnabbruch_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnabbruch.Click Try Select Case aktMandant Case "HUP" Try If Delete_HUP() = True Then pnlHuP.Visible = False End If Catch ex As Exception ShowError("Fehler in Abbruch Sendung: " & vbNewLine & ex.Message) End Try Case Else TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDeleteKopfData(aktGUID) TBKOMMCOLLI_PAKET_KOPFTableAdapter.Delete(aktGUID) pnlAddBarcodes.Visible = False pnlPaketadd.Visible = False End Select tsbtnabbruch.Visible = False btnAddPaket.Enabled = True tsinfolabel.Text = "Vorgang abgebrochen" tsinfolabel.Visible = True Catch ex As Exception ShowError("Fehler in Abbruch Paket: " & vbNewLine & ex.Message) End Try End Sub Private Sub btnAbschluss_Click(sender As System.Object, e As System.EventArgs) Handles btnAbschluss.Click If cmbTerminart.SelectedIndex = -1 Then ShowError("Fehlende Eingabe: " & vbNewLine & "Bitte wählen Sie eine Terminart aus der Auswahlliste") Exit Sub End If Try Dim GewichtGESAMT As Double GewichtGESAMT = CDbl(GESAMTGEWICHTTextBox.Text) GewichtGESAMT = GewichtGESAMT / AnzPaket If CDbl(GewichtGESAMT) > 40.0 Then MsgBox("Achtung: Das Gewicht des Packstücks überschreitet das Maximalgewicht von 40 kg!" & vbNewLine & "Bitte korrigieren Sie das Gewicht!", MsgBoxStyle.Critical, "Fehler") Exit Sub End If If CDbl(GewichtGESAMT) = 0.0 Then MsgBox("Achtung: Bitte geben Sie ein Gewicht ein!", MsgBoxStyle.Critical, "Fehler") GESAMTGEWICHTTextBox.Focus() GESAMTGEWICHTTextBox.SelectAll() Exit Sub End If If MyDataset.TBKOMMCOLLI_PAKET_POS.Rows.Count = 0 Then MsgBox("Achtung: Bitte scannen Sie mindestens einen Lieferschein!!", MsgBoxStyle.Critical, "Fehler") Exit Sub End If ' Fragen ob das Profil wirklich gelöscht werden soll Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie das Paket abschliessen wollen?", MsgBoxStyle.YesNo, "Abschluss bestätigen") ' wenn das Profil gelöscht werden soll If result = MsgBoxResult.Yes Then Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdUpdate_Gewicht(Environment.UserName, CDbl(Me.GESAMTGEWICHTTextBox.Text), Me.PAKET_IDTextBox.Text) TBKOMMCOLLI_PAKET_KOPFTableAdapter.CmdsetFertig(Environment.UserName, cmbTerminart.SelectedValue, aktGUID) Me.pnlAddBarcodes.Visible = False pnlPaketadd.Visible = False tsbtnabbruch.Visible = False btnAddPaket.Enabled = True tsinfolabel.Text = "Paket " & PAKET_IDTextBox.Text & " erfolgreich abgeschlossen" tsinfolabel.Visible = True End If Catch ex As Exception ShowError("Fehler in Abschluss Paket: " & vbNewLine & ex.Message) End Try End Sub Private Sub BeendenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BeendenToolStripMenuItem.Click Me.Close() End Sub Private Sub AbschlussPaketeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AbschlussPaketeToolStripMenuItem.Click frmAbschluss.ShowDialog() End Sub Private Sub cmbTerminart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbTerminart.SelectedIndexChanged If cmbTerminart.SelectedIndex <> -1 Then deactivate_Error() End If End Sub Private Sub btnAddPaket_Click(sender As System.Object, e As System.EventArgs) Handles btnAddPaket.Click If Me.pnlPaketadd.Visible = False Then Me.TBWH_MANDANTTableAdapter.Fill(Me.MyDataset.TBWH_MANDANT) Me.pnlPaketadd.Visible = True Me.pnlPaketadd.Dock = DockStyle.Fill If My.Settings.Default_Mandant <> String.Empty Then cmbAuswMandant.SelectedIndex = cmbAuswMandant.FindStringExact(My.Settings.Default_Mandant) Else cmbAuswMandant.SelectedIndex = -1 End If txtPackstueck.Text = "" btnAddPaket.Enabled = False Me.tsbtnabbruch.Visible = True tsinfolabel.Visible = False End If End Sub Private Sub btnAbschlussPakete_Click(sender As System.Object, e As System.EventArgs) Handles btnAbschlussPakete.Click frmAbschluss.ShowDialog() End Sub Private Sub textbox_Focus(sender As System.Object, e As System.EventArgs) Handles txtPackstueck.GotFocus, GESAMTGEWICHTTextBox.GotFocus Dim box As TextBox = sender box.BackColor = Color.Lime End Sub Private Sub textbox_lostFocus(sender As System.Object, e As System.EventArgs) Handles txtPackstueck.LostFocus, GESAMTGEWICHTTextBox.LostFocus Dim box As TextBox = sender box.BackColor = Color.White End Sub Private Sub txtPackstueck_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtPackstueck.KeyUp If e.KeyCode = Keys.Return Then If txtPackstueck.Text <> String.Empty Then AddNew_Colli() End If End If End Sub Private Sub btndeletePaket_Click(sender As System.Object, e As System.EventArgs) Handles btndeletePaket.Click Try If txtPaketID.Text <> String.Empty Then ' Fragen ob das Profil wirklich gelöscht werden soll Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie das Paket '" & Me.txtPaketID.Text & "' löschen wollen?", MsgBoxStyle.YesNo, "Löschen bestätigen") ' wenn das Profil gelöscht werden soll If result = MsgBoxResult.Yes Then TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDelete_nachKopfID(Me.txtPaketID.Text) TBKOMMCOLLI_PAKET_KOPFTableAdapter.CMDDeletePaketnachID(Me.txtPaketID.Text) MsgBox("Paket erfolgreich gelöscht", MsgBoxStyle.Information, "Erfolgsmeldung:") Me.txtPaketID.Text = "" End If End If Catch ex As Exception ShowError("Fehler in Löschen von Paket: " & vbNewLine & ex.Message) End Try End Sub Private Sub cmbAuswMandant_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAuswMandant.SelectedIndexChanged Select Case cmbAuswMandant.SelectedIndex Case 0 lblpackstueck.Visible = False txtPackstueck.Visible = False btnAddNewColli.Text = "Neue Sendung" Case 1 lblpackstueck.Visible = True txtPackstueck.Visible = True btnAddNewColli.Text = "Neuer Colli" End Select End Sub Private Sub cmbLHM_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLHM.SelectedIndexChanged If cmbLHM.SelectedIndex <> -1 Then Me.txtScanHUP.Focus() Dim dd = cmbLHM.SelectedValue Try aktLHM_ID = cmbLHM.SelectedValue Catch ex As Exception End Try 'aktLHM_ID = cmbLHM.SelectedValue End If End Sub Private Sub txtScanHUP_KeyUp(sender As Object, e As KeyEventArgs) Handles txtScanHUP.KeyUp If e.KeyCode = Keys.Return Then If txtScanHUP.Text <> String.Empty Then If aktLHM_ID = 0 Then MsgBox("Bitte wählen Sie ein Ladehilfsmittel!", MsgBoxStyle.Information) cmbLHM.DroppedDown = True txtScanHUP.Text = "" Exit Sub End If If AddBarcodeHuP(txtScanHUP.Text) = False Then lblLieferscheine.Text = "Übersicht Lieferscheine für LHM: " & cmbLHM.Text btnPrintOptions.Visible = True End If txtScanHUP.Text = "" End If End If End Sub Private Sub grvwGridPos_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged Try Dim column = e.Column.FieldName If column = "GEWICHT" Then Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID")) Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET GEWICHT = '{0}' WHERE GUID = {1}", e.Value, guid) If ClassDatabase.Execute_non_Query(upd, True) = False Then End If End If Catch ex As Exception MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub btndeletePos_Click(sender As Object, e As EventArgs) Handles btndeletePos.Click Try Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID")) Dim del = String.Format("DELETE FROM TBKOMMCOLLI_SDGPOSITIONEN WHERE GUID = {0}", guid) If ClassDatabase.Execute_non_Query(del) = True Then Refresh_POS(aktGUID) End If Catch ex As Exception MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub btnPalfertig_Click(sender As Object, e As EventArgs) Handles btnPalfertig.Click Try Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", aktLHM_SDG_ID, Environment.UserName) If ClassDatabase.Execute_non_Query(upd) = True Then SDG_READY = True Refresh_POS(aktGUID) cmbLHM.Enabled = True ' cmbLHM.DroppedDown = True Else SDG_READY = False End If Catch ex As Exception MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSendungFertig.Click Try Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE SENDUNGNR = {0}", aktGUID, Environment.UserName) If ClassDatabase.Execute_non_Query(upd) = True Then upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", aktGUID, Environment.UserName) If ClassDatabase.Execute_non_Query(upd) = True Then SDG_READY = True 'Sendungsdruck CURRENT_SENDUNG = aktGUID frmPrintOptions.ShowDialog() End If End If Catch ex As Exception MsgBox("Error in Set Sendung fertig:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub btnnewPallet_Click(sender As Object, e As EventArgs) Handles btnnewPallet.Click Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie eine neue Palette anlegen wollen?", MsgBoxStyle.YesNo, "Bitte bestätigen") ' wenn das Profil gelöscht werden soll If result = MsgBoxResult.Yes Then Try Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", aktLHM_SDG_ID, Environment.UserName) If ClassDatabase.Execute_non_Query(upd) = True Then Refresh_POS(aktGUID) cmbLHM.Enabled = True cmbLHM.DroppedDown = True End If Catch ex As Exception MsgBox("Error in btnnewPallet_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End If End Sub Private Sub txtScanHUP_TextChanged(sender As Object, e As EventArgs) Handles txtScanHUP.TextChanged End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click 'frmLabel.ShowDialog() frmPrintOptions.ShowDialog() End Sub Public Sub New() DevExpress.XtraEditors.WindowsFormsSettings.DefaultFont = New Font("Segoe UI", 12) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub GridView1_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Try Dim column = e.Column.FieldName If column = "GEWICHT" Then Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID")) Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET GEWICHT = '{0}' WHERE GUID = {1}", e.Value, guid) If ClassDatabase.Execute_non_Query(upd, True) = False Then End If End If Catch ex As Exception MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub btnAddTextschlüssel_Click(sender As Object, e As EventArgs) Handles btnAddTextschlüssel.Click Try If cmbTextschlüssel.SelectedIndex <> -1 Then Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_HINWEIS (SENDUNGNR,TEXTSCHLUSSEL_ID,TEXT,ERSTELLTWER) VALUES ({0},{1},'{2}','{3}')", aktGUID, cmbTextschlüssel.SelectedValue, txtHinweistext.Text, Environment.UserName) If ClassDatabase.Execute_non_Query(ins) = True Then Me.txtHinweistext.Text = "" Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, aktGUID) End If End If Catch ex As Exception MsgBox("Error in Add Textschlüssel:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub btnPrintOptions_Click(sender As Object, e As EventArgs) Handles btnPrintOptions.Click CURRENT_SENDUNG = aktGUID frmPrintOptions.ShowDialog() End Sub End Class