From fc3683ef31df46a835aa14a032035586d3f5461d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 28 Apr 2023 12:41:52 +0200 Subject: [PATCH] Sendungsvermerk Freitext --- Aviso/frmAddSendungsvermerkShort.Designer.vb | 51 ++++++++-------- Aviso/frmAddSendungsvermerkShort.vb | 2 +- Aviso/usrcntlAktDetails.vb | 62 +++++++++++++------- 3 files changed, 68 insertions(+), 47 deletions(-) diff --git a/Aviso/frmAddSendungsvermerkShort.Designer.vb b/Aviso/frmAddSendungsvermerkShort.Designer.vb index 21b2c85..fa8303b 100644 --- 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 diff --git a/Aviso/frmAddSendungsvermerkShort.vb b/Aviso/frmAddSendungsvermerkShort.vb index 69e597f..09095ec 100644 --- 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) diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 9e23536..a0ca81c 100644 --- 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