ATEZ NCTS

Aviso/frmATEZ_NCTS.vb

@@ -8,7 +8,7 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmATEZ_NCTS
 
     Dim ART As String = ""
-    Dim FilialenNr As Integer
+    Dim FilialenNr As String = ""
     Dim AbfertigungsNr As Integer
     Dim JAHR As Integer = Now.ToString("yy")
     Public isSTAMMREF As Boolean = False
@@ -244,6 +244,13 @@ Public Class frmATEZ_NCTS
 
     Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+        If FilialenNr = "" Then
+            MsgBox("Keine Filiale ausgewählt!")
+            Me.Close()
+        End If
+
+        FIRMA_DY = SDL.frmZollanmeldung.getFirma_DY(FilialenNr, Nothing)
+
         Select Case FIRMA_DY
             Case "VERAG" : txtDyMandant.Text = "VERG"
                 txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -253,6 +260,7 @@ Public Class frmATEZ_NCTS
             Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
         End Select
 
+
         initSeachboxes()
         initAttachment()