neu

SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb

@@ -117,6 +117,29 @@
 
                 End Select
 
+            Case "MIC"
+                Select Case ART
+                    Case "T1", "T2", "NCTS", "ÜT"
+
+                        If ART = "ÜT" Then
+                            ART = "T1"
+                            isSTAMMREF = False
+                            STAMMREF = "" '??????????????????????????????
+                        End If
+
+                        If Me.DY Is Nothing Then
+                            Dim usrcntl As New usrCntlMIC_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
+                            usrcntl.Dock = DockStyle.Fill
+                            Me.pnl.Controls.Add(usrcntl)
+
+                        Else
+                            Dim usrcntl As New usrCntlMIC_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
+                            usrcntl.Dock = DockStyle.Fill
+                            Me.pnl.Controls.Add(usrcntl)
+                        End If
+
+                End Select
+
             Case Else '"DAKOSY'