neu

2020-03-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
--- a/Aviso/frmAvisoWeiterleitenBestaetigen.vb
+++ b/Aviso/frmAvisoWeiterleitenBestaetigen.vb
@@ -0,0 +1,63 @@
+Public Class frmAvisoWeiterleitenBestaetigen
+
+    Dim AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen = Nothing
+
+    Sub New(AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AB = AB
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(ABId)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AB = New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(ABId)
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub frmAvisoWeiterleitenBestaetigen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If AB IsNot Nothing Then
+
+            rtbVermerk.Text = AB.ab_Vermerk
+            lblName.Text = AB.ab_Mitarbeiter
+            lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & "  " & AB.ab_Datum.ToShortTimeString
+
+            If AB.ab_Art = "A" Then lblArt.Text = "LKW"
+
+            If AB.ab_collAnhId <> "" Then
+                Dim split = AB.ab_collAnhId.ToString.Split(";")
+                For Each s In split
+                    Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(s)
+                    If ANH IsNot Nothing Then
+                        dgvAnmhaenge.Rows.Add({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.anh_docId), ANH.anh_Name})
+                    End If
+
+                Next
+            End If
+        End If
+        dgvAnmhaenge.ClearSelection()
+
+    End Sub
+
+    Private Sub dgvAnmhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnmhaenge.CellContentDoubleClick, dgvAnmhaenge.CellDoubleClick
+        If dgvAnmhaenge.SelectedRows.Count > 0 Then
+            'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(ANH.anh_docId)
+            'DS.GET_TOP1_PATH()
+            Try
+                Process.Start(dgvAnmhaenge.SelectedRows(0).Cells(0).Value)
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+        End If
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Me.Close()
+    End Sub
+End Class