Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

2023-05-08 14:20:35 +02:00
parent 9ea2d32d2c 6ea3ce60ba
commit 7240040d39
4 changed files with 69 additions and 48 deletions
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -108,7 +108,7 @@
    <PlatformTarget>x64</PlatformTarget>
  </PropertyGroup>
  <PropertyGroup>
-    <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
  </PropertyGroup>
  <ItemGroup>
    <Reference Include="Accessibility" />
--- a/Aviso/frmAddSendungsvermerkShort.Designer.vb
+++ b/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.Location = New System.Drawing.Point(122, 277)
+        Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        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
--- a/Aviso/frmAddSendungsvermerkShort.vb
+++ b/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)
--- a/Aviso/usrcntlAktDetails.vb
+++ b/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,21 +1463,23 @@ Public Class usrcntlAktDetails
    Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean

        For Each r As DataGridViewRow In gridVermerke.Rows
-            If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
-                Select Case code
-                    Case 59
-                        Return True
-                    Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
-                        If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
+            If r.Cells("Geloescht").Value = False Then
+                If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
+                    Select Case code
+                        Case 59
                            Return True
-                        End If
-                    Case 32
-                        If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then
+                        Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
+                            If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
+                                Return True
+                            End If
+                        Case 32
+                            If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then
+                                Return True
+                            End If
+                        Case Else
                            Return True
-                        End If
-                    Case Else
-                        Return True
-                End Select
+                    End Select
+                End If
            End If
        Next
        Return False
@@ -1471,12 +1489,14 @@ Public Class usrcntlAktDetails
    Function existCodeInGridVermerke_VK(VorauskasseId As Object) As Boolean

        For Each r As DataGridViewRow In gridVermerke.Rows
-            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
+            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