Atilla Usrcntl

Aviso/My 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: AssemblyVersion("4.0.8.2")>
-<Assembly: AssemblyFileVersion("4.0.7.9")>
+<Assembly: AssemblyFileVersion("4.0.8.2")>

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

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
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
-                '    MsgBox(pnlDetailsRechts.Controls(0).Name)
+                    GoTo ELSE_ATILLA
-                '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)
+
+                    '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 VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
-                            If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
+
-                                DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
+                            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

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

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