divers layout, etc

2026-07-19 23:31:12 +02:00
parent 244564b24c
commit 844172dec5
37 changed files with 3630 additions and 688 deletions
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -861,7 +861,7 @@ Public Class usrcntlAktDetails
                        r.Selected = True
                        sendAktiv = sendAktivTmp
                        'MsgBox("sosso" & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
-
+                        Vermerke_anzeigen(r.Index)
                    End If
                End If
            Next
@@ -1253,8 +1253,14 @@ Public Class usrcntlAktDetails
                            Case 80
                                If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
                                    If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
-                                        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                                        frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                                        If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                                            frmHauptfensterNew.RELOAD_AVISO_MAIN()
+                                            frmHauptfensterNew.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                                        Else
+                                            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                                            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                                        End If
+
                                    End If
                                End If
                            Case 82
@@ -1864,43 +1870,67 @@ Public Class usrcntlAktDetails
    Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
        If FUNC.setAnkunft(AvisoID) Then
            ' MsgBox("H1")
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

    Private Sub btnErfasst_Click(sender As Object, e As EventArgs) Handles btnErfasst.Click
        If FUNC.setErfasst(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

    Private Sub btnVorbereitet_Click(sender As Object, e As EventArgs) Handles btnVorbereitet.Click
        If FUNC.setVorbereitet(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

    Private Sub btnVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnVorgeschrieben.Click
        If FUNC.setVorgeschreiben(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

    Private Sub btnFreigabe_Click(sender As Object, e As EventArgs) Handles btnFreigabe.Click
        If FUNC.setFreigabe(AvisoID, Me) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

    Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs)
        If FUNC.setNichtEingeftroffen(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

@@ -2357,7 +2387,12 @@ Public Class usrcntlAktDetails
        End If

        If FUNC.setAbgeschlossen(AvisoID, True) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
            reload(AvisoID)
        End If
    End Sub
@@ -2465,14 +2500,24 @@ Public Class usrcntlAktDetails
        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
            Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
            If f.ShowDialog(Me) = DialogResult.OK Then
-                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+
+                    frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                Else
+                    frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                    frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                End If
                Vermerke_anzeigen()
            End If
        Else
            If FUNC.AktUebernehmen(AvisoID, False) Then
-                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                    frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+                Else
+                    frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                    frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                End If
            End If
        End If
    End Sub
@@ -2504,7 +2549,11 @@ Public Class usrcntlAktDetails
    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        If vbYes = MsgBox("Möchten Sie den Akt wieder öffnen?", vbYesNoCancel) Then
            If FUNC.setAbgeschlossen(AvisoID, False) Then
-                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                    frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                Else
+                    frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                End If
                VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_AKTIV(AvisoID)
                reload(AvisoID)
            End If
@@ -2649,7 +2698,12 @@ Public Class usrcntlAktDetails
            If FUNC.setNichtEingeftroffen(AvisoID, True) Then
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
                frmHauptfenster.pnlDetailsRechts.Visible = False
-                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                    frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+                Else
+                    frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                End If
            End If
        End If
    End Sub
@@ -2658,7 +2712,12 @@ Public Class usrcntlAktDetails
        Dim frmTV As New frmTv
        frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
        frmTV.ShowDialog()
-        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+            frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+        Else
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        End If
        frmHauptfenster.lblHinweiseVisible()
    End Sub

@@ -3760,15 +3819,25 @@ Public Class usrcntlAktDetails

    Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
        If FUNC.setAnVERIMEX(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

    Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
        If FUNC.setAnINDONESIEN(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_LAYOUT_NEW Then
+                frmHauptfensterNew.RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+            Else
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub