MS
This commit is contained in:
Digital Data - Marlon Schreiber
@@ -1,7 +1,7 @@
|
||||
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
|
||||
@@ -15,7 +15,7 @@ Public Class frmMain
|
||||
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
|
||||
If pnlHuP.Visible = True And SDG_READY = False And CURRENT_SENDUNG <> 0 Then
|
||||
Delete_HUP()
|
||||
End If
|
||||
|
||||
@@ -90,8 +90,8 @@ Public Class frmMain
|
||||
If cmbAuswMandant.SelectedValue = 0 Then
|
||||
|
||||
Else
|
||||
TBKOMMCOLLI_PAKET_POSTableAdapter.Insert(aktGUID, BC)
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID)
|
||||
TBKOMMCOLLI_PAKET_POSTableAdapter.Insert(CURRENT_SENDUNG, BC)
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, CURRENT_SENDUNG)
|
||||
Refresh_Barcodes()
|
||||
End If
|
||||
deactivate_Error()
|
||||
@@ -125,24 +125,25 @@ Public Class frmMain
|
||||
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
|
||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([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 LTRIM(RTRIM([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 LTRIM(RTRIM([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 LTRIM(RTRIM([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 LTRIM(RTRIM([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 LTRIM(RTRIM([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 LTRIM(RTRIM([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 CURR_LIEFADR = "" And CURR_Ort = "" Then
|
||||
CURR_LIEFADR = MERC_LIEFADR1
|
||||
CURR_Ort = MERC_LIEFORT
|
||||
@@ -155,23 +156,41 @@ Public Class frmMain
|
||||
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)
|
||||
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, CURRENT_SENDUNG)
|
||||
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
|
||||
Dim exists = String.Format("SELECT COUNT(*) FROM TBKOMMCOLLI_SDG_LHM WHERE SENDUNGNR = {0} AND FERTIG = 0", CURRENT_SENDUNG)
|
||||
Dim LHM_exists As Boolean = False
|
||||
If ClassDatabase.Execute_Scalar(exists, True) >= 1 Then
|
||||
LHM_exists = True
|
||||
End If
|
||||
If LHM_exists = False Then
|
||||
Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_SDG_LHM (SENDUNGNR,LHM_ID,ERSTELLTWER) VALUES ({0},{1},'{2}')", CURRENT_SENDUNG, aktLHM_ID, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(ins, True) = True Then
|
||||
|
||||
End If
|
||||
End If
|
||||
aktLHM_SDG_ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBKOMMCOLLI_SDG_LHM WHERE FERTIG = 0", True)
|
||||
If aktLHM_SDG_ID > 0 Then
|
||||
btnPalfertig.Text = "Palette (" & aktLHM_SDG_ID.ToString & ", " & cmbLHM.Text & ") fertig"
|
||||
MERC_GEWICHT = MERC_GEWICHT.ToString.Replace(",", ".")
|
||||
Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_SDGPOSITIONEN (SENDUNGNR,SDG_LHM_ID,GEWICHT,ERSTELLTWER) VALUES ({0},{1},{2},'{3}')", CURRENT_SENDUNG, aktLHM_SDG_ID, MERC_GEWICHT, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(ins, True) = True Then
|
||||
'cmbLHM.Enabled = False
|
||||
Refresh_POS(CURRENT_SENDUNG)
|
||||
End If
|
||||
End If
|
||||
|
||||
If txtFreitext.Text <> "" Then
|
||||
Upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET BEMERKUNG = '{0}' WHERE GUID = {1}", txtFreitext.Text & ", " & _LS_no, CURRENT_SENDUNG)
|
||||
|
||||
Else
|
||||
Upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET BEMERKUNG = '{0}' WHERE GUID = {1}", _LS_no, CURRENT_SENDUNG)
|
||||
End If
|
||||
If ClassDatabase.Execute_non_Query(Upd, True) = True Then
|
||||
txtFreitext.Text = ClassDatabase.Execute_Scalar("SELECT BEMERKUNG FROM TBKOMMCOLLI_SENDUNGEN WHERE GUID = " & CURRENT_SENDUNG, True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
deactivate_Error()
|
||||
|
||||
@@ -188,13 +207,26 @@ Public Class frmMain
|
||||
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
|
||||
GridControlPos.DataSource = Nothing
|
||||
grvwGridPos.Columns.Clear()
|
||||
Dim sel = String.Format("SELECT T.GUID,T2.LHM, T.POSINHALT,T.GEWICHT FROM TBKOMMCOLLI_SDGPOSITIONEN T, TBKOMMCOLLI_SDG_LHM T1, TBKOMMCOLLI_LHM T2 WHERE T.SDG_LHM_ID = T1.GUID AND T1.LHM_ID = T2.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
|
||||
ShowError("Fehler in Refresh_POS: " & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Refresh_LHM(SDG As Integer)
|
||||
Try
|
||||
GridControlLHM.DataSource = Nothing
|
||||
GridViewLHM.Columns.Clear()
|
||||
Dim sel = String.Format("SELECT T.GUID,T1.LHM, T.FERTIG,T.GEWICHT FROM TBKOMMCOLLI_SDG_LHM T, TBKOMMCOLLI_LHM T1 WHERE T.LHM_ID = T1.GUID AND T.SENDUNGNR = {0}", SDG)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
|
||||
If Not DT Is Nothing Then
|
||||
GridControlLHM.DataSource = DT
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
@@ -207,12 +239,14 @@ Public Class frmMain
|
||||
End If
|
||||
Select Case cmbAuswMandant.SelectedIndex
|
||||
Case 0
|
||||
GridControlPos.DataSource = Nothing
|
||||
aktMandant = "HUP"
|
||||
btnPalfertig.Text = "Palette/LHM fertig"
|
||||
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)
|
||||
CURRENT_SENDUNG = ClassDatabase.Execute_Scalar(sql, True)
|
||||
pnlPaketadd.Visible = False
|
||||
pnlHuP.Visible = True
|
||||
pnlHuP.Dock = DockStyle.Fill
|
||||
@@ -236,17 +270,13 @@ Public Class frmMain
|
||||
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()
|
||||
CURRENT_SENDUNG = 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)
|
||||
If CURRENT_SENDUNG > 0 Then
|
||||
cmbTerminart.SelectedIndex = cmbTerminart.FindStringExact("Standard")
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, CURRENT_SENDUNG)
|
||||
pnlPaketadd.Visible = False
|
||||
pnlAddBarcodes.Visible = True
|
||||
pnlAddBarcodes.Dock = DockStyle.Fill
|
||||
@@ -265,7 +295,7 @@ Public Class frmMain
|
||||
End Sub
|
||||
Sub Refresh_Barcodes()
|
||||
Try
|
||||
TBKOMMCOLLI_PAKET_POSTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_POS, aktGUID)
|
||||
TBKOMMCOLLI_PAKET_POSTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_POS, CURRENT_SENDUNG)
|
||||
Dim DT As DataTable = MyDataset.TBKOMMCOLLI_PAKET_POS
|
||||
Dim Count As Integer = 0
|
||||
|
||||
@@ -288,7 +318,7 @@ Public Class frmMain
|
||||
TBKOMMCOLLI_PAKET_POSTableAdapter.Delete(ListViewBarcodes.SelectedItems(I).Text)
|
||||
tsinfolabel.Text = "Barcode erfogreich gelöscht"
|
||||
Next
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID)
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, CURRENT_SENDUNG)
|
||||
Refresh_Barcodes()
|
||||
tsinfolabel.Visible = True
|
||||
Catch ex As Exception
|
||||
@@ -297,13 +327,18 @@ Public Class frmMain
|
||||
End Sub
|
||||
Private Function Delete_HUP()
|
||||
Try
|
||||
Dim del = String.Format("delete from TBKOMMCOLLI_SDGPOSITIONEN where SENDUNGNR = {0}", aktGUID)
|
||||
Dim del = String.Format("delete from TBKOMMCOLLI_SDGPOSITIONEN where SENDUNGNR = {0}", CURRENT_SENDUNG)
|
||||
If ClassDatabase.Execute_non_Query(del, False) = True Then
|
||||
del = String.Format("delete from TBKOMMCOLLI_SDG_LHM where SENDUNGNR = {0}", aktGUID)
|
||||
del = String.Format("delete from TBKOMMCOLLI_SDG_LHM where SENDUNGNR = {0}", CURRENT_SENDUNG)
|
||||
If ClassDatabase.Execute_non_Query(del, False) = True Then
|
||||
del = String.Format("delete from TBKOMMCOLLI_SENDUNGEN where GUID = {0}", aktGUID)
|
||||
del = String.Format("delete from TBKOMMCOLLI_HINWEIS where SENDUNGNR = {0}", CURRENT_SENDUNG)
|
||||
If ClassDatabase.Execute_non_Query(del, False) = True Then
|
||||
Return True
|
||||
del = String.Format("delete from TBKOMMCOLLI_SENDUNGEN where GUID = {0}", CURRENT_SENDUNG)
|
||||
If ClassDatabase.Execute_non_Query(del, False) = True Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
@@ -326,13 +361,15 @@ Public Class frmMain
|
||||
Try
|
||||
If Delete_HUP() = True Then
|
||||
pnlHuP.Visible = False
|
||||
tsinfolabel.Visible = True
|
||||
tsinfolabel.Text = "Sendung erfolgreich gelöscht - " & Now.ToString
|
||||
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)
|
||||
TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDeleteKopfData(CURRENT_SENDUNG)
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Delete(CURRENT_SENDUNG)
|
||||
pnlAddBarcodes.Visible = False
|
||||
pnlPaketadd.Visible = False
|
||||
End Select
|
||||
@@ -375,7 +412,7 @@ Public Class frmMain
|
||||
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)
|
||||
TBKOMMCOLLI_PAKET_KOPFTableAdapter.CmdsetFertig(Environment.UserName, cmbTerminart.SelectedValue, CURRENT_SENDUNG)
|
||||
Me.pnlAddBarcodes.Visible = False
|
||||
pnlPaketadd.Visible = False
|
||||
tsbtnabbruch.Visible = False
|
||||
@@ -497,7 +534,6 @@ Public Class frmMain
|
||||
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 = ""
|
||||
@@ -514,7 +550,15 @@ Public Class frmMain
|
||||
Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID"))
|
||||
Dim gewicht As String = e.Value
|
||||
gewicht = gewicht.Replace(",", ".")
|
||||
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET GEWICHT = '{0}' WHERE GUID = {1}", gewicht, guid)
|
||||
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET GEWICHT = '{0}', GEAENDERTWER = '{2}' WHERE GUID = {1}", gewicht, guid, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(upd, True) = False Then
|
||||
|
||||
End If
|
||||
ElseIf column = "POSINHALT" Then
|
||||
Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID"))
|
||||
Dim POSINHALT As String = e.Value
|
||||
|
||||
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET POSINHALT = '{0}', GEAENDERTWER = '{2}' WHERE GUID = {1}", POSINHALT, guid, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(upd, True) = False Then
|
||||
|
||||
End If
|
||||
@@ -526,12 +570,14 @@ Public Class frmMain
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btndeletePos_Click(sender As Object, e As EventArgs) Handles btndeletePos.Click
|
||||
Private Sub btndeletePos_Click(sender As Object, e As EventArgs) Handles btndeletePosLHM.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)
|
||||
tsinfolabel.Visible = True
|
||||
tsinfolabel.Text = "Position erfolgreich gelöscht - " & Now.ToString
|
||||
Refresh_POS(CURRENT_SENDUNG)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -541,14 +587,19 @@ Public Class frmMain
|
||||
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
|
||||
upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE SDG_LHM_ID = {0}", aktLHM_SDG_ID, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(upd) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
SDG_READY = True
|
||||
Refresh_POS(aktGUID)
|
||||
cmbLHM.Enabled = True
|
||||
Refresh_POS(CURRENT_SENDUNG)
|
||||
' cmbLHM.Enabled = True
|
||||
' cmbLHM.DroppedDown = True
|
||||
Else
|
||||
SDG_READY = False
|
||||
tsinfolabel.Visible = True
|
||||
tsinfolabel.Text = "Palette erfolgreich fertig gekennzeichnet - " & Now.ToString
|
||||
Else
|
||||
SDG_READY = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -556,13 +607,19 @@ Public Class frmMain
|
||||
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)
|
||||
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE SENDUNGNR = {0}", CURRENT_SENDUNG, 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)
|
||||
upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", CURRENT_SENDUNG, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(upd) = True Then
|
||||
SDG_READY = True
|
||||
'Sendungsdruck
|
||||
CURRENT_SENDUNG = aktGUID
|
||||
CURRENT_SENDUNG = CURRENT_SENDUNG
|
||||
pnlHuP.Visible = False
|
||||
tsbtnabbruch.Visible = False
|
||||
btnAddPaket.Enabled = True
|
||||
tsinfolabel.Text = "Vorgang abgebrochen"
|
||||
tsinfolabel.Visible = True
|
||||
|
||||
frmPrintOptions.ShowDialog()
|
||||
End If
|
||||
End If
|
||||
@@ -571,15 +628,33 @@ Public Class frmMain
|
||||
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")
|
||||
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie eine neue Palette mit dem ausgewählten LHM 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)
|
||||
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE SDG_LHM_ID = {0}", aktLHM_SDG_ID, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(upd) = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
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
|
||||
Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_SDG_LHM (SENDUNGNR,LHM_ID,ERSTELLTWER) VALUES ({0},{1},'{2}')", CURRENT_SENDUNG, cmbLHM.SelectedValue, 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 & ", " & cmbLHM.Text & ") fertig"
|
||||
'ins = String.Format("INSERT INTO TBKOMMCOLLI_SDGPOSITIONEN (SENDUNGNR,SDG_LHM_ID,ERSTELLTWER) VALUES ({0},{1},'{2}')", CURRENT_SENDUNG, aktLHM_SDG_ID, Environment.UserName)
|
||||
'If ClassDatabase.Execute_non_Query(ins, True) = False Then
|
||||
'cmbLHM.Enabled = False
|
||||
' Refresh_POS(CURRENT_SENDUNG)
|
||||
'End If
|
||||
End If
|
||||
Else
|
||||
MsgBox("Konnte kein neues LHM anlegen...Log prüfen!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Refresh_POS(CURRENT_SENDUNG)
|
||||
' cmbLHM.Enabled = True
|
||||
' cmbLHM.DroppedDown = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in btnnewPallet_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -608,10 +683,12 @@ Public Class frmMain
|
||||
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)
|
||||
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 = ""
|
||||
Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, aktGUID)
|
||||
Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, CURRENT_SENDUNG)
|
||||
tsinfolabel.Visible = True
|
||||
tsinfolabel.Text = "Update Textschlüssel erfolgreich - " & Now.ToString
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -620,7 +697,41 @@ Public Class frmMain
|
||||
End Sub
|
||||
|
||||
Private Sub btnPrintOptions_Click(sender As Object, e As EventArgs) Handles btnPrintOptions.Click
|
||||
CURRENT_SENDUNG = aktGUID
|
||||
CURRENT_SENDUNG = CURRENT_SENDUNG
|
||||
frmPrintOptions.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub btnFreitext_Click(sender As Object, e As EventArgs) Handles btnFreitext.Click
|
||||
If txtFreitext.Text <> "" Then
|
||||
Dim Upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET BEMERKUNG = '{0}' WHERE GUID = {1}", txtFreitext.Text, CURRENT_SENDUNG)
|
||||
If ClassDatabase.Execute_non_Query(Upd, True) = True Then
|
||||
tsinfolabel.Visible = True
|
||||
tsinfolabel.Text = "Update Freitext erfolgreich - " & Now.ToString
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnChangeAdress_Click(sender As Object, e As EventArgs) Handles btnChangeAdress.Click
|
||||
frmAdressChange.ShowDialog()
|
||||
End Sub
|
||||
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
|
||||
Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, CURRENT_SENDUNG)
|
||||
tsinfolabel.Visible = True
|
||||
tsinfolabel.Text = "Löschen Textschlüssel erfolgreich - " & Now.ToString
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged
|
||||
Select Case TabControl2.SelectedIndex
|
||||
Case 0
|
||||
btndeletePosLHM.Text = "Lösche Position/Lieferschein"
|
||||
btndeletePosLHM.Enabled = True
|
||||
Case 1
|
||||
Refresh_LHM(CURRENT_SENDUNG)
|
||||
btndeletePosLHM.Text = "Lösche LHM"
|
||||
btndeletePosLHM.Enabled = False
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user