ATEZ Integration MIC, TC, MODAL

Aviso/usrCntlSND_ATBGestellung.vb

@@ -447,4 +447,105 @@ Public Class usrCntlSND_ATBGestellung
         Return existingVorpapier
 
     End Function
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        Me.Refresh()
+        Me.Cursor = Cursors.WaitCursor
+        ' Dim WarenwertEUR As Double = 0
+
+        Dim f As frmSendungsdetailsNEU = Me.FindForm
+        If f.SAVE_ME() Then
+
+            'Dim INfoVorpapier As String = ""
+
+            'If Not checkSendungenVorpapierte(f.SENDUNG_LIST, INfoVorpapier) Then MsgBox(INfoVorpapier) : Exit Sub
+
+            SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
+
+
+            If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("T1/Vorpapier angeben!") : Exit Sub
+
+            If Not IsValid18AlphaNumericCode(If(SND.tblSnd_ATB_T1, "")) Then MsgBox("T1/Vorpapier nicht korrekt (18-stellig)!") : Exit Sub
+
+            If If(SND.tblSnd_Zollsystem_Land, "") = "" Then MsgBox("Abf-Land muss angegeben werden!") : Exit Sub
+            If If(SND.tblSnd_Zollsystem_Land, "") <> "DE" Then MsgBox("AbfNur in DE möglich!") : Exit Sub
+
+            If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
+                If CDate(SND.tblSnd_T1_Frist) >= Today() Then
+                    '-> OK
+                Else
+                    MsgBox("T1 Frist ist abgelaufen!")
+                    Exit Sub
+                End If
+            Else
+                MsgBox("T1 Frist muss befüllt werden")
+                Exit Sub
+
+            End If
+
+
+
+            Dim Standort As String = ""
+            Dim firmaID As Integer = -1
+
+            Select Case SND.FilialenNr
+                Case 4803, 4809
+                    Standort = Sicherheiten_Standort.VERAG_AG : firmaID = 1
+                Case 5601
+                    Standort = Sicherheiten_Standort.UNISPED : firmaID = 21
+                Case 5701
+                    Standort = Sicherheiten_Standort.AMBAR : firmaID = 24
+                Case 4810, 5103, 5901
+                    Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
+                Case 5501
+                    Standort = Sicherheiten_Standort.IMEX : firmaID = 20
+            End Select
+
+            ''sonderfälle lt. Mestan
+            'If SND.tblSnd_Zollsystem_Land = "DE" Then
+
+            '    Select Case SND.FilialenNr
+            '        Case 5501, 4803, 4809, 5103
+            '            Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
+            '    End Select
+
+            'ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
+
+            '    If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
+            '        Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
+            '    ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
+            '        Select Case SND.FilialenNr
+            '            Case 4803, 5303, 4809, 5103
+            '                Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
+            '        End Select
+
+            '    End If
+
+            'End If
+
+            If isZollern(SND) Then
+
+                Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 90
+
+            End If
+
+
+
+
+            Dim frMZA As New SDL.frmZollanmeldung("SUMA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global)
+
+            frMZA.Show()
+
+
+            AddHandler frMZA.FormClosed, Sub()
+                                             initGesamtsicherheiten()
+                                             '     initdgvZollAnmeldungen()
+                                         End Sub
+        Else
+            MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
 End Class