Sendungsvermerk Freitext

Aviso/frmAddSendungsvermerkShort.Designer.vb

@@ -27,6 +27,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
+        Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
         Me.cbxPackliste = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.optFremd_ATB = New System.Windows.Forms.CheckBox()
@@ -45,7 +46,6 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtSpedition = New System.Windows.Forms.TextBox()
         Me.optSendungInVorbereitung = New System.Windows.Forms.CheckBox()
-        Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
         Me.optSpeditionWeitergeleitet = New System.Windows.Forms.CheckBox()
         Me.optFreierText = New System.Windows.Forms.CheckBox()
         Me.optATAangefordert = New System.Windows.Forms.CheckBox()
@@ -98,6 +98,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
         Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlSendungsVermker.Controls.Add(Me.txtSonstigesDokumentFehlt)
         Me.pnlSendungsVermker.Controls.Add(Me.cbxPackliste)
         Me.pnlSendungsVermker.Controls.Add(Me.Label4)
         Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB)
@@ -116,7 +117,6 @@ Partial Class frmAddSendungsvermerkShort
         Me.pnlSendungsVermker.Controls.Add(Me.Label1)
         Me.pnlSendungsVermker.Controls.Add(Me.txtSpedition)
         Me.pnlSendungsVermker.Controls.Add(Me.optSendungInVorbereitung)
-        Me.pnlSendungsVermker.Controls.Add(Me.txtSonstigesDokumentFehlt)
         Me.pnlSendungsVermker.Controls.Add(Me.optSpeditionWeitergeleitet)
         Me.pnlSendungsVermker.Controls.Add(Me.optFreierText)
         Me.pnlSendungsVermker.Controls.Add(Me.optATAangefordert)
@@ -149,6 +149,16 @@ Partial Class frmAddSendungsvermerkShort
         Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 503)
         Me.pnlSendungsVermker.TabIndex = 0
         '
+        'txtSonstigesDokumentFehlt
+        '
+        Me.txtSonstigesDokumentFehlt.BackColor = System.Drawing.Color.White
+        Me.txtSonstigesDokumentFehlt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(94, 96)
+        Me.txtSonstigesDokumentFehlt.MaxLength = 80
+        Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
+        Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(198, 20)
+        Me.txtSonstigesDokumentFehlt.TabIndex = 10
+        '
         'cbxPackliste
         '
         Me.cbxPackliste.AutoSize = True
@@ -283,7 +293,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.lblErrGrund.AutoSize = True
         Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblErrGrund.ForeColor = System.Drawing.Color.Red
-        Me.lblErrGrund.Location = New System.Drawing.Point(147, 297)
+        Me.lblErrGrund.Location = New System.Drawing.Point(147, 307)
         Me.lblErrGrund.Name = "lblErrGrund"
         Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
         Me.lblErrGrund.TabIndex = 26
@@ -312,11 +322,11 @@ Partial Class frmAddSendungsvermerkShort
         Me.lblErrDokument.AutoSize = True
         Me.lblErrDokument.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblErrDokument.ForeColor = System.Drawing.Color.Red
-        Me.lblErrDokument.Location = New System.Drawing.Point(305, 91)
+        Me.lblErrDokument.Location = New System.Drawing.Point(91, 115)
         Me.lblErrDokument.Name = "lblErrDokument"
-        Me.lblErrDokument.Size = New System.Drawing.Size(100, 26)
+        Me.lblErrDokument.Size = New System.Drawing.Size(157, 13)
         Me.lblErrDokument.TabIndex = 11
-        Me.lblErrDokument.Text = "Bitte ein Dokument " & Global.Microsoft.VisualBasic.ChrW(10) & "angegeben!"
+        Me.lblErrDokument.Text = "Bitte ein Dokument angegeben!"
         Me.lblErrDokument.Visible = False
         '
         'Label1
@@ -351,16 +361,6 @@ Partial Class frmAddSendungsvermerkShort
         Me.optSendungInVorbereitung.UseVisualStyleBackColor = True
         Me.optSendungInVorbereitung.Visible = False
         '
-        'txtSonstigesDokumentFehlt
-        '
-        Me.txtSonstigesDokumentFehlt.BackColor = System.Drawing.Color.White
-        Me.txtSonstigesDokumentFehlt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(184, 95)
-        Me.txtSonstigesDokumentFehlt.MaxLength = 80
-        Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
-        Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(119, 20)
-        Me.txtSonstigesDokumentFehlt.TabIndex = 10
-        '
         'optSpeditionWeitergeleitet
         '
         Me.optSpeditionWeitergeleitet.AutoSize = True
@@ -376,7 +376,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optFreierText.AutoSize = True
         Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optFreierText.Location = New System.Drawing.Point(12, 279)
+        Me.optFreierText.Location = New System.Drawing.Point(12, 283)
         Me.optFreierText.Name = "optFreierText"
         Me.optFreierText.Size = New System.Drawing.Size(105, 17)
         Me.optFreierText.TabIndex = 27
@@ -474,7 +474,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.cbxNichtLeserlich.AutoSize = True
         Me.cbxNichtLeserlich.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.cbxNichtLeserlich.Location = New System.Drawing.Point(12, 98)
+        Me.cbxNichtLeserlich.Location = New System.Drawing.Point(308, 98)
         Me.cbxNichtLeserlich.Name = "cbxNichtLeserlich"
         Me.cbxNichtLeserlich.Size = New System.Drawing.Size(90, 17)
         Me.cbxNichtLeserlich.TabIndex = 8
@@ -495,10 +495,11 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.cbxSonstDok.AutoSize = True
         Me.cbxSonstDok.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.cbxSonstDok.Location = New System.Drawing.Point(164, 98)
+        Me.cbxSonstDok.Location = New System.Drawing.Point(12, 98)
         Me.cbxSonstDok.Name = "cbxSonstDok"
-        Me.cbxSonstDok.Size = New System.Drawing.Size(15, 14)
+        Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17)
         Me.cbxSonstDok.TabIndex = 9
+        Me.cbxSonstDok.Text = "Dok. Name:"
         Me.cbxSonstDok.UseVisualStyleBackColor = False
         '
         'Label9
@@ -506,7 +507,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label9.AutoSize = True
         Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label9.Location = New System.Drawing.Point(354, 297)
+        Me.Label9.Location = New System.Drawing.Point(354, 307)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(90, 13)
         Me.Label9.TabIndex = 30
@@ -539,7 +540,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label17.AutoSize = True
         Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic)
-        Me.Label17.Location = New System.Drawing.Point(144, 297)
+        Me.Label17.Location = New System.Drawing.Point(144, 307)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(182, 13)
         Me.Label17.TabIndex = 29
@@ -581,11 +582,11 @@ Partial Class frmAddSendungsvermerkShort
         'txtFreierText
         '
         Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtFreierText.Location = New System.Drawing.Point(122, 277)
+        Me.txtFreierText.Location = New System.Drawing.Point(122, 281)
         Me.txtFreierText.MaxLength = 80
         Me.txtFreierText.Name = "txtFreierText"
-        Me.txtFreierText.Size = New System.Drawing.Size(322, 20)
+        Me.txtFreierText.Size = New System.Drawing.Size(322, 23)
         Me.txtFreierText.TabIndex = 28
         '
         'cbxRechnung

Aviso/frmAddSendungsvermerkShort.vb

@@ -151,7 +151,7 @@ Public Class frmAddSendungsvermerkShort
                 txtFreierText.Focus()
                 Return False
             End If
-            insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim, 47)
+            insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim & " - offen", 101)
         End If
 
         If cbxAuftrag.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Auftrag für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 1)

Aviso/usrcntlAktDetails.vb

@@ -5,7 +5,7 @@ Imports System.IO
 'Imports Gemeinsames.cDatenbank
 Imports System.Drawing
 Imports Microsoft.Office.Interop
-
+Imports System.Security.Cryptography
 
 Public Class usrcntlAktDetails
 
@@ -433,6 +433,7 @@ Public Class usrcntlAktDetails
             .Columns("Geloescht").Visible = False     'tblSnd_Empfaengernicht anzeigen
             .Columns("VorauskasseId").Visible = False     'tblSnd_Empfaengernicht anzeigen
             .Columns("SMSId").Visible = False     'tblSnd_Empfaengernicht anzeigen
+            .Columns("VermerkIDAufgehoben").Visible = False     'tblSnd_Empfaengernicht anzeigen
 
             .Columns("Datum").Width = 125 '110
             .Columns("Datum").HeaderText = "Datum"
@@ -966,7 +967,7 @@ Public Class usrcntlAktDetails
 
 
         Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
-                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
+                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
                              " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                              " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
                              " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -1212,6 +1213,12 @@ Public Class usrcntlAktDetails
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                     init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                Case "101"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
+                    myVermerk.VermerkCodeId = 102
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
 
             End Select
             loaded = False
@@ -1410,6 +1417,15 @@ Public Class usrcntlAktDetails
                                 optionCell.Value = "DE-ZOLL fertig"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
                             End If
+
+                        Case 101
+
+                            If r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
+                                '  If Not existCodeInGridVermerke(102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "Erledigt"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen."
+                            End If
+
                     End Select
                 End If
 
@@ -1447,6 +1463,7 @@ Public Class usrcntlAktDetails
     Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean
 
         For Each r As DataGridViewRow In gridVermerke.Rows
+            If r.Cells("Geloescht").Value = False Then
                 If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
                     Select Case code
                         Case 59
@@ -1463,6 +1480,7 @@ Public Class usrcntlAktDetails
                             Return True
                     End Select
                 End If
+            End If
         Next
         Return False
     End Function
@@ -1471,12 +1489,14 @@ Public Class usrcntlAktDetails
     Function existCodeInGridVermerke_VK(VorauskasseId As Object) As Boolean
 
         For Each r As DataGridViewRow In gridVermerke.Rows
+            If r.Cells("Geloescht").Value = False Then
                 Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "")
                     Case 14, 59
                         If DirectCast(r.Cells("VorauskasseId"), DataGridViewTextBoxCell).Value.ToString = CStr(VorauskasseId) Then
                             Return True
                         End If
                 End Select
+            End If
         Next
         Return False
     End Function