641 lines
31 KiB
VB.net
641 lines
31 KiB
VB.net
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
|