gesamtsicherheiten

2024-02-22 15:19:26 +01:00
parent e10ecbe4eb
commit 61cdfb612a
11 changed files with 397 additions and 377 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -308,13 +308,7 @@ Public Class frmHauptfenster
            End If
        End If

-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then
-            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
-            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
-            ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
-            ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
-        End If
-
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then GesamtsicherheitenToolStripMenuItem.Visible = True

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "ATILLA" ' Case "VERAG", "IMEX"
@@ -1335,15 +1329,11 @@ Public Class frmHauptfenster
                '    End Select
                'End If

-                '''sqlStr &= " AND (Grenzstelle ='???' OR  Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
-                ''' Funktioniert nciht, wg. WO
+                'sqlStr &= " AND (Grenzstelle ='???' OR  Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
+                ' Funktioniert nciht, wg. WO

+                sqlStr &= " ORDER BY case	 " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")

-                sqlStr &= " ORDER BY case	 " &
-                                                     " when [Status] =3 then 0 " &
-                                                     " when [Status] =1 then 5 " &
-                                                     " else 1 " &
-                                             " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
            End If
            '   MsgBox(sqlStr)
            'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END  as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
@@ -2751,30 +2741,30 @@ Public Class frmHauptfenster
            ' Label4.Visible = False '- -> NICHT MEHR
            ' cboGrenzstelle.Visible = Falsee '- -> NICHT MEHR
            'BürgschaftenExcelToolStripMenuItem.Visible = True
-            ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
+            ATVeragCSToolStripMenuItem.Visible = True
            'ToolStripMenuItem4.Visible = True
-            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            DEVeragGmbHToolStripMenuItem.Visible = True
            'ToolStripMenuItem5.Visible = True
-            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
            'nix
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
            'btnGenerelleGestellungen.Visible = False
            'ToolStripMenuItem4.Visible = True
-            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            DEVeragGmbHToolStripMenuItem.Visible = True
            'ToolStripMenuItem5.Visible = True
-            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
            'ToolStripMenuItem6.Visible = True
-            ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
+            ATImexCSToolStripMenuItem.Visible = True
        Else 'VERAG
            'BürgschaftenExcelToolStripMenuItem.Visible = True
-            ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
+            ATVeragCSToolStripMenuItem.Visible = True
            'ToolStripMenuItem4.Visible = True
-            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            DEVeragGmbHToolStripMenuItem.Visible = True
            'ToolStripMenuItem5.Visible = True
-            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
            'ToolStripMenuItem6.Visible = True
-            ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
+            ATImexCSToolStripMenuItem.Visible = True
            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
                Button5.Visible = True
            End If
@@ -4290,29 +4280,22 @@ Public Class frmHauptfenster
        Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
    End Sub

-    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenuNEU
-        frm.Standort = "VERAG AG"
+    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click
+
+        Dim frm As New frmGesamtsicherheitenMenuNEU()
+        Select Case sender.name
+            Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG"
+            Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH"
+            Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
+            Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
+            Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
+        End Select
+
        frm.Show()
+
    End Sub

-    Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenuNEU
-        frm.Standort = "Verag GmbH"
-        frm.Show()
-    End Sub

-    Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenuNEU
-        frm.Standort = "IMEX"
-        frm.Show()
-    End Sub
-
-    Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenuNEU
-        frm.Standort = "Verag CS"
-        frm.Show()
-    End Sub

    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting
        If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then
@@ -4556,6 +4539,8 @@ Public Class frmHauptfenster
    Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click

    End Sub
+
+
 End Class

 Public Class AvisoStatusFunctions