SDL MDM-Datenverarbeitung

2023-12-21 08:10:45 +01:00
parent 9f3edc0454
commit 69d1e8bd25
5 changed files with 196 additions and 150 deletions
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -163,6 +163,8 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label48 = New System.Windows.Forms.Label()
        Me.txtZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.cbxEIDR = New System.Windows.Forms.CheckBox()
        Me.cbxCMR = New System.Windows.Forms.CheckBox()
@@ -195,8 +197,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Label45 = New System.Windows.Forms.Label()
        Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.Label48 = New System.Windows.Forms.Label()
-        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.VerbringungsnachweisSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
        Me.pnlRechts.SuspendLayout()
        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -234,15 +235,15 @@ Partial Class usrCntlSpeditionsBuchSuche
        'cntxtCntxtSpeditionsbuch
        '
        Me.cntxtCntxtSpeditionsbuch.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.cntxtCntxtSpeditionsbuch.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem})
+        Me.cntxtCntxtSpeditionsbuch.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem, Me.VerbringungsnachweisSetzenToolStripMenuItem})
        Me.cntxtCntxtSpeditionsbuch.Name = "cntxtCntxtSpeditionsbuch"
-        Me.cntxtCntxtSpeditionsbuch.Size = New System.Drawing.Size(156, 26)
+        Me.cntxtCntxtSpeditionsbuch.Size = New System.Drawing.Size(230, 70)
        Me.cntxtCntxtSpeditionsbuch.Text = "cntxtSpeditionsbuch"
        '
        'EintragLöschenToolStripMenuItem
        '
        Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
-        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
        Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
        '
        'txtAvisoId
@@ -2200,6 +2201,39 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
        Me.DateTimePicker1.TabIndex = 2
        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
+        Me.txtVermerk.Location = New System.Drawing.Point(563, 109)
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(64, 20)
+        Me.txtVermerk.TabIndex = 57
+        '
+        'Label48
+        '
+        Me.Label48.AutoSize = True
+        Me.Label48.Location = New System.Drawing.Point(563, 93)
+        Me.Label48.Name = "Label48"
+        Me.Label48.Size = New System.Drawing.Size(49, 13)
+        Me.Label48.TabIndex = 56
+        Me.Label48.Text = "Vermerk:"
+        '
        'txtZollstelle
        '
        Me.txtZollstelle._allowFreitext = False
@@ -2726,38 +2760,11 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.SplitContainer.SplitterWidth = 2
        Me.SplitContainer.TabIndex = 3
        '
-        'Label48
+        'VerbringungsnachweisSetzenToolStripMenuItem
        '
-        Me.Label48.AutoSize = True
-        Me.Label48.Location = New System.Drawing.Point(563, 93)
-        Me.Label48.Name = "Label48"
-        Me.Label48.Size = New System.Drawing.Size(49, 13)
-        Me.Label48.TabIndex = 56
-        Me.Label48.Text = "Vermerk:"
-        '
-        'txtVermerk
-        '
-        Me.txtVermerk._DateTimeOnly = False
-        Me.txtVermerk._numbersOnly = False
-        Me.txtVermerk._numbersOnlyKommastellen = ""
-        Me.txtVermerk._numbersOnlyTrennzeichen = True
-        Me.txtVermerk._Prozent = False
-        Me.txtVermerk._ShortDateNew = False
-        Me.txtVermerk._ShortDateOnly = False
-        Me.txtVermerk._TimeOnly = False
-        Me.txtVermerk._TimeOnly_Seconds = False
-        Me.txtVermerk._value = Nothing
-        Me.txtVermerk._Waehrung = False
-        Me.txtVermerk._WaehrungZeichen = True
-        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
-        Me.txtVermerk.Location = New System.Drawing.Point(563, 109)
-        Me.txtVermerk.MaxLineLength = -1
-        Me.txtVermerk.MaxLines_Warning = ""
-        Me.txtVermerk.MaxLines_Warning_Label = Nothing
-        Me.txtVermerk.Name = "txtVermerk"
-        Me.txtVermerk.Size = New System.Drawing.Size(64, 20)
-        Me.txtVermerk.TabIndex = 57
+        Me.VerbringungsnachweisSetzenToolStripMenuItem.Name = "VerbringungsnachweisSetzenToolStripMenuItem"
+        Me.VerbringungsnachweisSetzenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.VerbringungsnachweisSetzenToolStripMenuItem.Text = "Verbringungsnachweis setzen"
        '
        'usrCntlSpeditionsBuchSuche
        '
@@ -2970,4 +2977,5 @@ Partial Class usrCntlSpeditionsBuchSuche
    Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label48 As Label
+    Friend WithEvents VerbringungsnachweisSetzenToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
+Imports VERAG_PROG_ALLGEMEIN


 Public Class usrCntlSpeditionsBuchSuche
@@ -340,7 +341,7 @@ Public Class usrCntlSpeditionsBuchSuche

    End Function

-    Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
            AVISOSERVER = "[DEVELOPER\DEVSQL].AVISO_new.dbo.AVISO"
        End If
@@ -682,12 +683,7 @@ Public Class usrCntlSpeditionsBuchSuche
        txtAbfertigungsnummerBis.Enabled = sender.text <> ""
    End Sub

-    Private Sub DataGridView_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView.CellMouseClick
-        If e.Button = Windows.Forms.MouseButtons.Right Then
-            DataGridView.ClearSelection()
-            DataGridView.Rows(e.RowIndex).Selected = True
-        End If
-    End Sub
+

    Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles DataGridView.DoubleClick, DataGridView.CellContentDoubleClick
        If DataGridView.SelectedRows.Count = 0 Then Exit Sub
@@ -1883,7 +1879,7 @@ Public Class usrCntlSpeditionsBuchSuche
        End Select
    End Sub

-    Private Sub ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click, ZFThyrnauZeitraumAuswählenToolStripMenuItem.Click
+    Private Sub ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFThyrnauZeitraumAuswählenToolStripMenuItem.Click, ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click
        lblKdAusFortschritt.Text = "lädt..."
        Me.Cursor = Cursors.WaitCursor
        Try
@@ -2377,4 +2373,19 @@ Public Class usrCntlSpeditionsBuchSuche
        Return text

    End Function
+
+    Private Sub VerbringungsnachweisSetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbringungsnachweisSetzenToolStripMenuItem.Click
+
+
+        'cbxCMR.Checked = SPEDITIONSBUCH.SB_CMR
+        'txtCMRDatum.Text = If(SPEDITIONSBUCH.SB_CMRDatum, "")
+        'txtCMRNr.Text = If(SPEDITIONSBUCH.SB_CMRNr, "")
+        'If pnlFiskal.Visible Then
+        '    SPEDITIONSBUCH.SB_CMR = cbxCMR.Checked
+        '    If txtCMRDatum.Text <> "" Then SPEDITIONSBUCH.SB_CMRDatum = txtCMRDatum.Text
+        '    SPEDITIONSBUCH.SB_CMRNr = txtCMRNr.Text
+
+        'End If
+
+    End Sub
 End Class