Gesamtsicherheiten und Essensbestellungen

Aviso/frmGesamtsicherheitenNEU.vb

@@ -320,8 +320,8 @@ Public Class frmGesamtsicherheitenNEU
             Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
         End If
 
-        If Me.avisoID.ToString.Length > 0 Then lblGestellungNr.Text &= "Aviso-ID: " & Me.avisoID & " "
-        If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " "
+        If Me.avisoID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.avisoID & " "
+        If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-KZ: " & Me.LKWKZ & " "
         If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
         If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
         If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
@@ -505,8 +505,7 @@ Public Class frmGesamtsicherheitenNEU
                     .gsp_filialenNr = OPEN.gs_filialenNr
                     .gsp_art = "OPEN"
                     .gsp_abfertigungsNr = OPEN.gs_abfertigungsnr
-                    .gsp_erstellungsdatum = Me.datum
-                    .gsp_avisoId = ""
+                    .gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtSicherheitDate.Text, txtSicherheitTime.Text)
                     .gsp_ust = ""
                     .gsp_avisoId = Me.avisoID
                     '.gsp_ATCNr = ""
@@ -671,10 +670,14 @@ Public Class frmGesamtsicherheitenNEU
         End Try
 
         Me.Abfertigungsnummer = txtAbfertNum.Text
-        Me.LKWKZ = txtLKWID.Text
+        Me.LKWKZ = txtLKWKZ.Text
+        If txtlkwIdSearch.Text IsNot "" Then
+            Me.avisoID = CInt(txtlkwIdSearch.Text)
+        End If
+
 
         If setNullToZero(Me.gessicherheitID) > 0 Then
-            Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWKZ] = '" & Me.LKWKZ & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
+            Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "',  [gs_avisoId] = '" & Me.avisoID & "',[gs_LKWKZ] = '" & Me.LKWKZ & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
             SQL.doSQL(sqlstring, "AVISO")
             btnAddPos.Visible = True
             LoadDGVSicherheiten()
@@ -721,8 +724,8 @@ Public Class frmGesamtsicherheitenNEU
         txtSicherheitWarenwert.Text = Sicherh.gs_warenwert
         txtSicherheitFreitext.Text = Sicherh.gs_freitext
         cboSicherheitATR.SelectedItem = Sicherh.gs_atr
-        txtSicherheitDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
-        txtSicherheitTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
+        txtSicherheitDate.Text = Sicherh.gs_datum.ToString("dd.MM.yyyy")
+        txtSicherheitTime.Text = Sicherh.gs_datum.ToString("HH:mm")
 
         currentSicherheit = Sicherh
         txtAnzahlPos.Enabled = False
@@ -772,6 +775,7 @@ Public Class frmGesamtsicherheitenNEU
             .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
             .gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
             .gsp_ATCNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing)
+            .gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text)
 
         End With
         If checkSicherheitsbetrag() = False Then Exit Sub
@@ -837,8 +841,10 @@ Public Class frmGesamtsicherheitenNEU
         cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
         cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1'  ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
         cboWarenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID)
+        txtlkwIdSearch.initSearchBox(Me.FindForm, "  LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
+        txtlkwIdSearch.Text = Me.avisoID
         txtAbfertNum.Text = Me.Abfertigungsnummer
-        txtLKWID.Text = Me.LKWKZ
+        txtLKWKZ.Text = Me.LKWKZ
         panOben.Enabled = False
     End Sub
 
@@ -1287,11 +1293,11 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub txtlkwIdSearch_VALUE_CHANGED() Handles txtlkwIdSearch.VALUE_CHANGED
         If (txtlkwIdSearch._value <> "") Then
-            txtLKWID.Text = txtlkwIdSearch._value
-            txtLKWID.ReadOnly = True
+            txtLKWKZ.Text = txtlkwIdSearch._value
+            txtLKWKZ.ReadOnly = True
         Else
-            txtLKWID.Clear()
-            txtLKWID.ReadOnly = False
+            txtLKWKZ.Clear()
+            txtLKWKZ.ReadOnly = False
         End If
     End Sub