63 lines
2.2 KiB
VB.net
63 lines
2.2 KiB
VB.net
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 |