Atilla Usrcntl

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