edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ustva

Browse Source
This commit is contained in:
d.breimaier
2025-05-02 13:31:39 +02:00
parent 9787c233cb
commit 2a4f3dca7a
1 changed files with 23 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
SDL/USTV/usrCntlUSTV.vb
View File

@@ -611,46 +611,46 @@ Public Class usrCntlUSTV
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
If dgvUSTV.SelectedRows.Count > 0 Then
ContextMenuStrip1.Hide()
ContextMenuStrip1.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then If item IsNot Nothing Then
If item.Name = "excel" Then If item.Name = "excel" Then
excelAuswertung() If dgvUSTV.SelectedRows.Count > 0 Then excelAuswertung()
ElseIf item.Name = "mail" Then ElseIf item.Name = "mail" Then
mailmitExcelauswertung() If dgvUSTV.SelectedRows.Count > 0 Then mailmitExcelauswertung()
ElseIf item.Name = "offeneAntraege" Then
If dgvUSTV.SelectedRows(0) IsNot Nothing AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value) AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value) Then
If dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value IsNot Nothing AndAlso dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value IsNot Nothing Then
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, IIf(IsDBNull(dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value), "", dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value))
frm.Show()
Else
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value))
frm.cbxAlleoffenen.Checked = True
frm.Show()
End If
ElseIf item.Name = "offeneAntraege" Then
If dgvUSTV.SelectedRows.Count > 0 AndAlso dgvUSTV.SelectedRows(0) IsNot Nothing AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value) AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value) Then
If dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value IsNot Nothing AndAlso dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value IsNot Nothing Then
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, IIf(IsDBNull(dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value), "", dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value))
frm.Show()
Else Else
Dim frm As New frmUSTVoffeneAntraege() Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value))
frm.cbxAlleoffenen.Checked = True
frm.Show() frm.Show()
End If End If
Else Else
MsgBox("Funktion nicht implementiert!") Dim frm As New frmUSTVoffeneAntraege()
frm.Show()
End If End If
Else
MsgBox("Funktion nicht implementiert!")
End If End If
End If End If
End Sub End Sub