USTV, MDMDatenverarbeitung

SDL/USTV/usrCntlUSTV.vb

@@ -13,6 +13,7 @@ Public Class usrCntlUSTV
     Dim aktbtn As String = ""
     Dim dgvInitWait As Boolean = False
     Public kdNr As Integer = -1
+    Dim loaded As Boolean = False
 
     Sub init(Optional kdNr = -1)
         pnlFilter.AutoScroll = False
@@ -44,6 +45,8 @@ Public Class usrCntlUSTV
                   order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
             .LOAD()
 
+            loaded = True
+
             .RowTemplate.Height = 20
             .AllowUserToOrderColumns = False
             .AllowUserToResizeRows = False
@@ -189,10 +192,12 @@ Public Class usrCntlUSTV
     End Sub
 
     Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged, cboJahrBis.SelectedIndexChanged
+        If loaded = False Then Exit Sub
         init()
     End Sub
 
     Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged
+        If loaded = False Then Exit Sub
         init()
     End Sub
 
@@ -256,9 +261,10 @@ Public Class usrCntlUSTV
                                 frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
                             End If
                         Next
+                        init()
+                        MsgBox("Fertig!")
                     End If
-                    init()
-                    MsgBox("Fertig!")
+
 
                 Case "btnRMCalle"
 
@@ -268,6 +274,8 @@ Public Class usrCntlUSTV
                                 frmMDM_USTVAntrag.loadUSTVFrom_RMC(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
                             End If
                         Next
+                        init()
+                        MsgBox("Fertig!")
                     End If
 
 
@@ -299,6 +307,12 @@ Public Class usrCntlUSTV
             ContextMenuStrip1.Items.Add(mail)
         End If
 
+        If Not ContextMenuStrip1.Items.ContainsKey("offeneAntraege") Then
+            Dim oa = New ToolStripMenuItem() With {.Text = "offene Anträge", .Name = "offeneAntraege", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            AddHandler oa.Click, AddressOf mnuItem_Clicked
+            ContextMenuStrip1.Items.Add(oa)
+        End If
+
         ContextMenuStrip1.Show(Cursor.Position)
 
 
@@ -317,6 +331,16 @@ Public Class usrCntlUSTV
 
                 ElseIf item.Name = "mail" 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
+                        Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value))
+                        frm.Show()
+                    Else
+                        Dim frm As New frmUSTVoffeneAntraege()
+                        frm.Show()
+                    End If
+
                 Else
                     MsgBox("Funktion nicht implementiert!")
                 End If
@@ -398,21 +422,21 @@ Public Class usrCntlUSTV
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
         End Try
 
-
-
     End Sub
 
     Private Sub cbxTopMax_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTopMax.CheckedChanged
+        If loaded = False Then Exit Sub
         init()
     End Sub
 
     Private Sub txtMaxSrch_TextChanged(sender As Object, e As EventArgs) Handles txtMaxSrch.Leave
+        If loaded = False Then Exit Sub
         init()
     End Sub
 
     Private Sub cbxEingereicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEingereicht.CheckStateChanged
+        If loaded = False Then Exit Sub
         init()
     End Sub
 
-
 End Class