Atilla Usrcntl

2025-01-26 21:59:53 +01:00
parent 02b645cfd5
commit 791a40b385
6 changed files with 2069 additions and 1977 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("4.0.7.9")>
-<Assembly: AssemblyFileVersion("4.0.7.9")>
+<Assembly: AssemblyVersion("4.0.8.2")>
+<Assembly: AssemblyFileVersion("4.0.8.2")>
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -411,6 +411,7 @@ Partial Class frmHauptfenster
        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.ATILLASENDUNGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.pnlDetailsRechts.SuspendLayout()
@@ -580,7 +581,7 @@ Partial Class frmHauptfenster
        '
        'OptionenToolStripMenuItem
        '
-        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem, Me.FenstergrößeVariabelToolStripMenuItem})
+        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem, Me.FenstergrößeVariabelToolStripMenuItem, Me.ATILLASENDUNGToolStripMenuItem})
        Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
        Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
        Me.OptionenToolStripMenuItem.Text = "Optionen"
@@ -3948,6 +3949,12 @@ Partial Class frmHauptfenster
        Me.Panel7.Size = New System.Drawing.Size(252, 51)
        Me.Panel7.TabIndex = 4
        '
+        'ATILLASENDUNGToolStripMenuItem
+        '
+        Me.ATILLASENDUNGToolStripMenuItem.Name = "ATILLASENDUNGToolStripMenuItem"
+        Me.ATILLASENDUNGToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
+        Me.ATILLASENDUNGToolStripMenuItem.Text = "ATILLA - SENDUNG"
+        '
        'frmHauptfenster
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4402,4 +4409,5 @@ Partial Class frmHauptfenster
    Friend WithEvents tbSndFreigegeben As TabPage
    Friend WithEvents CheckBox1 As CheckBox
    Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ATILLASENDUNGToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -946,19 +946,26 @@ Public Class frmHauptfenster
        Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)

            Case "ATILLA"
-                'If pnlDetailsRechts.Controls.Count > 0 Then
-                '    MsgBox(pnlDetailsRechts.Controls(0).Name)
-                'End If
-                If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
-                    pnlDetailsRechts.Controls.Clear()
-                    Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
-                    usrCntl.Dock = DockStyle.Fill
-                    pnlDetailsRechts.Controls.Add(usrCntl)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
+                    GoTo ELSE_ATILLA
                Else
-                    DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
+
+                    'If pnlDetailsRechts.Controls.Count > 0 Then
+                    '    MsgBox(pnlDetailsRechts.Controls(0).Name)
+                    'End If
+                    If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
+                        pnlDetailsRechts.Controls.Clear()
+                        Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
+                        usrCntl.Dock = DockStyle.Fill
+                        pnlDetailsRechts.Controls.Add(usrCntl)
+                    Else
+                        DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
+                    End If
                End If

+
            Case Else
+ELSE_ATILLA:
                If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
                    pnlDetailsRechts.Controls.Clear()
                    Dim usrCntl As New usrcntlAktDetails(AvisoId)
@@ -5147,6 +5154,11 @@ Public Class frmHauptfenster
    Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
        frmEintragTvNew.ShowDialog(Me)
    End Sub
+
+
+    Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
+    End Sub
 End Class

 Public Class AvisoStatusFunctions
@@ -6744,12 +6756,20 @@ Public Class AvisoStatusFunctions
                    '        DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
                    '    End If
                    Case "ATILLA"
-                        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
-                            If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
-                                DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
+
+                            GoTo ELSE_ATILLA
+
+                        Else
+                            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
+                                If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
+                                    DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
+                                End If
                            End If
                        End If
+
                    Case Else
+ELSE_ATILLA:
                        If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
                            DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
                        End If
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -7439,4 +7439,68 @@ Public Class frmSendungsdetailsNEU
    Private Sub txteori_Pruef_TextChanged(sender As Object, e As EventArgs) Handles txteori_Pruef.TextChanged

    End Sub
+
+    Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
+        ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
+
+        Me.Refresh()
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+            If SENDUNG_LIST IsNot Nothing Then
+            SND = SENDUNG_LIST(CURRENT_INDEX)
+        Else
+                MsgBox("Keine Sendung!")
+                Exit Sub
+            End If
+
+
+
+
+            If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
+
+            Dim Standort As String = ""
+
+            Select Case SND.FilialenNr
+                Case 4803, 4809
+                    Standort = "VERAG AG"
+                Case 5601
+                    Standort = "Unisped GmbH"
+                Case 5701
+                    Standort = "AMBAR GmbH"
+                Case 4810, 5103, 5901
+                    Standort = "VERAG GmbH"
+                Case 5501
+                    Standort = "IMEX"
+            End Select
+
+            'sonderfälle lt. Mestan
+            If SND.tblSnd_Zollsystem_Land = "DE" Then
+
+                Select Case SND.FilialenNr
+                    Case 5501, 4803, 4809, 5103
+                        Standort = "VERAG GmbH"
+                End Select
+
+            ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
+
+                If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
+                    Standort = "VERAG CS"
+                ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
+                    Select Case SND.FilialenNr
+                        Case 4803, 5303, 4809, 5103
+                            Standort = "VERAG CS"
+                    End Select
+                End If
+            End If
+
+            Dim frMZA As New SDL.frmZollanmeldung("EXG", Nothing, AVISO, SND, Now.ToString("yy"))
+            frMZA.Show()
+            AddHandler frMZA.FormClosed, Sub()
+                                             '     initdgvZollAnmeldungen()
+                                         End Sub
+
+            Me.Cursor = Cursors.Default
+        ' End If
+    End Sub
 End Class
--- a/Aviso/usrcntlAktDetailsATILLANeu.vb
+++ b/Aviso/usrcntlAktDetailsATILLANeu.vb
@@ -263,6 +263,7 @@ Public Class usrcntlAktDetailsATILLANeu
            tbATEZ.Visible = False
        End If

+        EXPAusfuhrGestellungToolStripMenuItem.Visible = False

        timer.Interval = 100
        reload(AvisoID)
@@ -1813,66 +1814,6 @@ Public Class usrcntlAktDetailsATILLANeu

    Private Sub EXPAusfuhrGestellungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EXPAusfuhrGestellungToolStripMenuItem.Click

-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then

-            Me.Refresh()
-            Me.Cursor = Cursors.WaitCursor
-
-        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
-        If SENDUNG_LIST IsNot Nothing Then
-            SND = SENDUNG_LIST(0)
-        Else
-            MsgBox("Keine Sendung!")
-            Exit Sub
-        End If
-
-
-
-
-        If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
-
-            Dim Standort As String = ""
-
-            Select Case SND.FilialenNr
-                Case 4803, 4809
-                    Standort = "VERAG AG"
-                Case 5601
-                    Standort = "Unisped GmbH"
-                Case 5701
-                    Standort = "AMBAR GmbH"
-                Case 4810, 5103, 5901
-                    Standort = "VERAG GmbH"
-                Case 5501
-                    Standort = "IMEX"
-            End Select
-
-            'sonderfälle lt. Mestan
-            If SND.tblSnd_Zollsystem_Land = "DE" Then
-
-                Select Case SND.FilialenNr
-                    Case 5501, 4803, 4809, 5103
-                        Standort = "VERAG GmbH"
-                End Select
-
-            ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
-
-                If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
-                    Standort = "VERAG CS"
-                ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
-                    Select Case SND.FilialenNr
-                        Case 4803, 5303, 4809, 5103
-                            Standort = "VERAG CS"
-                    End Select
-                End If
-            End If
-
-            Dim frMZA As New SDL.frmZollanmeldung("EXG", Nothing, AVISO, SND, Now.ToString("yy"))
-            frMZA.Show()
-            AddHandler frMZA.FormClosed, Sub()
-                                             '     initdgvZollAnmeldungen()
-                                         End Sub
-
-            Me.Cursor = Cursors.Default
-        End If
    End Sub
 End Class