neu

Aviso/usrcntlAktDetails.vb

@@ -991,12 +991,11 @@ Public Class usrcntlAktDetails
         '    Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
         '    frmSendungsdetails.Show(Me)
         'End If
+        openSnd(sendId)
+        'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
+        'frmSendungsdetails.ShowDialog() 'Me)
 
-        Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
-        frmSendungsdetails.ShowDialog(Me)
-
-        initDgvSendungen()
-
+        'initDgvSendungen()
 
     End Sub
 
@@ -1015,12 +1014,19 @@ Public Class usrcntlAktDetails
 
     Public Sub openSnd(sendId)
 
-        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-        Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
-        frmSendungsdetails.ShowDialog(frmGrayOut)
-        frmGrayOut.Close()
-        initDgvSendungen()
+        For Each openForm In Application.OpenForms()
+            If TypeOf (openForm) Is frmSendungsdetailsNEU Then
+                MsgBox("Sendungsfenster bereits geöffnet!")
+                CType(openForm, frmSendungsdetailsNEU).BringToFront()
+                Exit Sub
+            End If
+        Next
 
+        ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+        Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
+        frmSendungsdetails.Show() 'Dialog() '     frmSendungsdetails.ShowDialog(frmGrayOut)
+        ' frmGrayOut.Close()
+        initDgvSendungen()
 
     End Sub
 
@@ -1182,16 +1188,16 @@ Public Class usrcntlAktDetails
                 End If
                 'Dim frmSendungsdetails As New frmSendungsdetails(AvisoID, sendId)
                 'frmSendungsdetails.ShowDialog(Me)
-                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+
+
+                openSnd(sendId)
+                'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
+                'frmSendungsdetails.ShowDialog() '(frmGrayOut)
 
 
 
-                Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
-                frmSendungsdetails.ShowDialog(frmGrayOut)
-
-
-
-                frmGrayOut.Close()
+                'frmGrayOut.Close()
                 initDgvSendungen()
                 Me.Cursor = Cursors.Default
             Case "KundeAnzeigen"
@@ -1305,6 +1311,7 @@ Public Class usrcntlAktDetails
             Else
                 tbcntlVermerke.TabPages(2).Text = "Sendungsvermerke"
             End If
+            tbcntlVermerke.TabPages(3).Text = "Anhang (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 ", "AVISO") & ")"
         Catch ex As Exception
         End Try
 
@@ -1320,18 +1327,23 @@ Public Class usrcntlAktDetails
     'End Sub
 
     Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick
-        For Each r As DataGridViewRow In dgvSendungen.Rows
-            If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
-                r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
-                r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
-                ' r.Cells("Abfertigungsart").Value = "FREMD"
-                r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
-            Else 'Nomal
-                r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
-                If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
-            End If
-        Next
-        timerSendRows.Enabled = False
+        Try
+
+            For Each r As DataGridViewRow In dgvSendungen.Rows
+                If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
+                    r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
+                    r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
+                    ' r.Cells("Abfertigungsart").Value = "FREMD"
+                    r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
+                Else 'Nomal
+                    r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
+                    If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
+                End If
+            Next
+            timerSendRows.Enabled = False
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
     End Sub
 
     Private Sub lblStatus_Click(sender As Object, e As EventArgs) Handles lblStatus.Click
@@ -1923,7 +1935,6 @@ Public Class usrcntlAktDetails
 
     Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles Button8.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID})
-
     End Sub
 
     Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
@@ -1931,7 +1942,7 @@ Public Class usrcntlAktDetails
         Panel4.Visible = False
     End Sub
 
-    Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click
+    Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click
         Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
         If path <> "" Then
 
@@ -1940,10 +1951,8 @@ Public Class usrcntlAktDetails
                 Case "IMEX"
                     Process.Start(path)
                 Case Else
-                    If sender Is Button9 Then
-                        Process.Start(path)
-                    Else
-                        Try
+
+                    Try
                             Dim outl As New Outlook.Application
                             Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                             Mail = outl.CreateItem(0)
@@ -1956,7 +1965,7 @@ Public Class usrcntlAktDetails
                             MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
                             Process.Start(path)
                         End Try
-                    End If
+
             End Select
         End If
         Panel4.Visible = False
@@ -1967,5 +1976,8 @@ Public Class usrcntlAktDetails
         f.Show(Me)
     End Sub
 
-
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click
+        Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
+        If path <> "" Then Process.Start(path)
+    End Sub
 End Class