diff --git a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb index 7309048..fbc92f5 100644 --- a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb +++ b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb @@ -28,6 +28,7 @@ Partial Class usrCntlBenachrichtigungen Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel4 = New System.Windows.Forms.Panel() + Me.cbxVerwarung = New System.Windows.Forms.CheckBox() Me.txtVermerk = New System.Windows.Forms.TextBox() Me.cbxNeukunden = New System.Windows.Forms.CheckBox() Me.Button10 = New System.Windows.Forms.Button() @@ -36,7 +37,7 @@ Partial Class usrCntlBenachrichtigungen Me.cbxTeams = New System.Windows.Forms.CheckBox() Me.Label22 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label() - Me.cbxVerwarung = New System.Windows.Forms.CheckBox() + Me.cbxTaskForce = New System.Windows.Forms.CheckBox() Me.Panel2.SuspendLayout() CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() @@ -94,6 +95,7 @@ Partial Class usrCntlBenachrichtigungen 'Panel4 ' Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.cbxTaskForce) Me.Panel4.Controls.Add(Me.cbxVerwarung) Me.Panel4.Controls.Add(Me.txtVermerk) Me.Panel4.Controls.Add(Me.cbxNeukunden) @@ -104,6 +106,18 @@ Partial Class usrCntlBenachrichtigungen Me.Panel4.Size = New System.Drawing.Size(284, 38) Me.Panel4.TabIndex = 5 ' + 'cbxVerwarung + ' + Me.cbxVerwarung.AutoSize = True + Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black + Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19) + Me.cbxVerwarung.Name = "cbxVerwarung" + Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17) + Me.cbxVerwarung.TabIndex = 32 + Me.cbxVerwarung.Text = "Verwahrung" + Me.cbxVerwarung.UseVisualStyleBackColor = True + Me.cbxVerwarung.Visible = False + ' 'txtVermerk ' Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -201,17 +215,17 @@ Partial Class usrCntlBenachrichtigungen Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen" Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cbxVerwarung + 'cbxTaskForce ' - Me.cbxVerwarung.AutoSize = True - Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black - Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19) - Me.cbxVerwarung.Name = "cbxVerwarung" - Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17) - Me.cbxVerwarung.TabIndex = 32 - Me.cbxVerwarung.Text = "Verwahrung" - Me.cbxVerwarung.UseVisualStyleBackColor = True - Me.cbxVerwarung.Visible = False + Me.cbxTaskForce.AutoSize = True + Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black + Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19) + Me.cbxTaskForce.Name = "cbxTaskForce" + Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17) + Me.cbxTaskForce.TabIndex = 33 + Me.cbxTaskForce.Text = "TaskForce" + Me.cbxTaskForce.UseVisualStyleBackColor = True + Me.cbxTaskForce.Visible = False ' 'usrCntlBenachrichtigungen ' @@ -243,4 +257,5 @@ Partial Class usrCntlBenachrichtigungen Friend WithEvents cbxNeukunden As CheckBox Friend WithEvents txtVermerk As TextBox Friend WithEvents cbxVerwarung As CheckBox + Friend WithEvents cbxTaskForce As CheckBox End Class diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 1382043..3cf6774 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index d27161b..46ede42 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -1844,7 +1844,15 @@ Public Class usrcntlAktDetails Try If tbcntlVermerke.SelectedTab Is tbAnhang Then If gridVermerke.SelectedRows.Count > 0 Then - Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value)) + Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value) + If path <> "" Then + If File.Exists(path) Then + Process.Start(path) + Else + MsgBox("ERROR ANHANG: Die Datei existiert nicht!") + End If + End If + End If End If Catch ex As Exception