neu

Aviso/frmAnkunftAendern.vb

@@ -21,7 +21,7 @@
     End Sub
 
     Private Sub frmAnkunftAendern_Load(sender As Object, e As EventArgs) Handles Me.Load
-        MsgBox(AVISO.Grenzstelle)
+
         If AVISO Is Nothing Then Exit Sub
         If AVISO.Grenzstelle.Replace("???", "") = "" Then
             If AVISO.Zollstelle IsNot Nothing Then
@@ -44,6 +44,7 @@
             Case "NKD" : Return "NICKELSDORF"
             Case "NEU" : Return "NEUHAUS"
             Case "SFD" : Return "SPIELFELD"
+            Case "AMB" : Return "AMBAR"
             Case Else : Return Grenzstelle
         End Select
     End Function