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.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
Me.txtVermerk = New System.Windows.Forms.TextBox() Me.txtVermerk = New System.Windows.Forms.TextBox()
Me.cbxNeukunden = New System.Windows.Forms.CheckBox() Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
@@ -36,7 +37,7 @@ Partial Class usrCntlBenachrichtigungen
Me.cbxTeams = New System.Windows.Forms.CheckBox() Me.cbxTeams = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
Me.Label25 = 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() Me.Panel2.SuspendLayout()
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
@@ -94,6 +95,7 @@ Partial Class usrCntlBenachrichtigungen
'Panel4 'Panel4
' '
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.cbxVerwarung)
Me.Panel4.Controls.Add(Me.txtVermerk) Me.Panel4.Controls.Add(Me.txtVermerk)
Me.Panel4.Controls.Add(Me.cbxNeukunden) Me.Panel4.Controls.Add(Me.cbxNeukunden)
@@ -104,6 +106,18 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel4.Size = New System.Drawing.Size(284, 38) Me.Panel4.Size = New System.Drawing.Size(284, 38)
Me.Panel4.TabIndex = 5 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 'txtVermerk
' '
Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ 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.Text = "0 Akte vom Arbeitsplatz übernommen"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'cbxVerwarung 'cbxTaskForce
' '
Me.cbxVerwarung.AutoSize = True Me.cbxTaskForce.AutoSize = True
Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19) Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
Me.cbxVerwarung.Name = "cbxVerwarung" Me.cbxTaskForce.Name = "cbxTaskForce"
Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17) Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
Me.cbxVerwarung.TabIndex = 32 Me.cbxTaskForce.TabIndex = 33
Me.cbxVerwarung.Text = "Verwahrung" Me.cbxTaskForce.Text = "TaskForce"
Me.cbxVerwarung.UseVisualStyleBackColor = True Me.cbxTaskForce.UseVisualStyleBackColor = True
Me.cbxVerwarung.Visible = False Me.cbxTaskForce.Visible = False
' '
'usrCntlBenachrichtigungen 'usrCntlBenachrichtigungen
' '
@@ -243,4 +257,5 @@ Partial Class usrCntlBenachrichtigungen
Friend WithEvents cbxNeukunden As CheckBox Friend WithEvents cbxNeukunden As CheckBox
Friend WithEvents txtVermerk As TextBox Friend WithEvents txtVermerk As TextBox
Friend WithEvents cbxVerwarung As CheckBox Friend WithEvents cbxVerwarung As CheckBox
Friend WithEvents cbxTaskForce As CheckBox
End Class End Class

View File

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

View File

@@ -1844,7 +1844,15 @@ Public Class usrcntlAktDetails
Try Try
If tbcntlVermerke.SelectedTab Is tbAnhang Then If tbcntlVermerke.SelectedTab Is tbAnhang Then
If gridVermerke.SelectedRows.Count > 0 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
End If End If
Catch ex As Exception Catch ex As Exception