ModaltransAPI

SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb

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