Benachrichtigung

This commit is contained in:
2024-01-29 14:27:16 +01:00
parent e383a3e6a7
commit bc90be294b
3 changed files with 37 additions and 14 deletions

View File

@@ -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

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.6.6")>
<Assembly: AssemblyFileVersion("3.9.6.6")>
<Assembly: AssemblyVersion("3.9.6.8")>
<Assembly: AssemblyFileVersion("3.9.6.8")>

View File

@@ -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