stammref, template

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb

@@ -770,16 +770,16 @@ Public Class usrCntlATLAS_EZA
     End Sub
 
     Private Sub DateiimportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportToolStripMenuItem.Click
-        '----- Kann ansonten keine Version freigeben!!!
 
-        'Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA)
-        'f.ShowDialog(Me.FindForm)
-        'EZA = f.EZA
 
-        'Me.FindForm.SuspendLayout()
-        'POSITIONEN.setValues(EZA, True)
-        'btnPositionen.PerformClick()
-        'Me.FindForm.ResumeLayout()
+        Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA)
+        f.ShowDialog(Me.FindForm)
+        EZA = f.EZA
+
+        Me.FindForm.SuspendLayout()
+        POSITIONEN.setValues(EZA, True)
+        btnPositionen.PerformClick()
+        Me.FindForm.ResumeLayout()
     End Sub
 
 

SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb

@@ -252,12 +252,16 @@
                 cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GLO", "GLO"))
                 cboNL.changeItem("IME")
 
+
+
             Case "ATIL"
                 cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW"))
                 cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO"))
                 cboNL.changeItem("SUW")
             Case "UNAT"
-                cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSP", "ATSP"))
+                cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSPED", "ATSPED"))
+                cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DESPED", "DESPED"))
+                cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL", "ZOLL"))
                 cboNL.changeItem("ATSP")
 
         End Select

SDL/zoll/frmZollBrgBuchungenFremd.vb

@@ -119,7 +119,7 @@ Public Class frmZollBrgBuchungenFremd
                 END AS Firma
             FROM [VERAG].[dbo].[tblDakosy_NCTSOut004]
             INNER JOIN tblDakosy_Zollanmeldungen ON ncts_dyaAnmID = dy_Id
-            LEFT JOIN [SQLGUIDE01].[AVISO].[dbo].[Aviso] ON dy_AvisoId = Avisoid
+            LEFT JOIN [AVISO].[dbo].[Aviso] ON dy_AvisoId = Avisoid
             WHERE ncts_MRN IN (" & String.Join(",", nctsParam) & ");"
 
             Using cmd As New SqlCommand(nctsSql, conn)

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb

@@ -255,6 +255,7 @@ Public Class cRelayHub
                     Case "Ursprungszeugnis", "CoO" : fileType = "origin"
                     Case "Lieferschein" : fileType = "delivery_note"
                     Case "Packliste" : fileType = "packaging_list"
+                    Case "FFFFFFFFFFFFFFFFFF" : fileType = "ftz"
                     Case Else : fileType = "other"
 
                 End Select