ATEZ Implementierung RoutineM.

DAKOSY_Worker/cZOLL_IMPORT.vb

@@ -754,6 +754,7 @@ Public Class cZOLL_IMPORT
         Else
             If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP
         End If
+        SPEDITIONSBUCH.Packstücke_Zoll = packstueckeZOLL_TMP
 
         'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL
         If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then

cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb

@@ -19,6 +19,6 @@ Public Class cATEZ_Paramter
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
-        Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE  Param_system='ATEZ' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE Param_system='ATEZ' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
     End Function
 End Class

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -25,6 +25,12 @@ Partial Class frmStartOptions
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.cbxDatevTest = New System.Windows.Forms.CheckBox()
+        Me.cbxDatevOpen = New System.Windows.Forms.CheckBox()
+        Me.cbxDatevBuchungen = New System.Windows.Forms.CheckBox()
+        Me.cbxDatevDebitoren = New System.Windows.Forms.CheckBox()
+        Me.btnDatev = New System.Windows.Forms.Button()
+        Me.lblDatev = New System.Windows.Forms.Label()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.Button16 = New System.Windows.Forms.Button()
         Me.Button14 = New System.Windows.Forms.Button()
@@ -162,12 +168,9 @@ Partial Class frmStartOptions
         Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
         Me.lblRoutineManager = New System.Windows.Forms.Label()
         Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cbxDatevOpen = New System.Windows.Forms.CheckBox()
+        Me.LinkLabel39 = New System.Windows.Forms.LinkLabel()
-        Me.cbxDatevBuchungen = New System.Windows.Forms.CheckBox()
+        Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
-        Me.cbxDatevDebitoren = New System.Windows.Forms.CheckBox()
+        Me.Label22 = New System.Windows.Forms.Label()
-        Me.btnDatev = New System.Windows.Forms.Button()
-        Me.lblDatev = New System.Windows.Forms.Label()
-        Me.cbxDatevTest = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbcntr.SuspendLayout()
@@ -268,6 +271,76 @@ Partial Class frmStartOptions
         Me.pnl.Size = New System.Drawing.Size(861, 827)
         Me.pnl.TabIndex = 0
         '
+        'cbxDatevTest
+        '
+        Me.cbxDatevTest.AutoSize = True
+        Me.cbxDatevTest.Checked = True
+        Me.cbxDatevTest.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatevTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxDatevTest.Location = New System.Drawing.Point(15, 368)
+        Me.cbxDatevTest.Name = "cbxDatevTest"
+        Me.cbxDatevTest.Size = New System.Drawing.Size(79, 17)
+        Me.cbxDatevTest.TabIndex = 75
+        Me.cbxDatevTest.Text = "Testsystem"
+        Me.cbxDatevTest.UseVisualStyleBackColor = True
+        '
+        'cbxDatevOpen
+        '
+        Me.cbxDatevOpen.AutoSize = True
+        Me.cbxDatevOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 345)
+        Me.cbxDatevOpen.Name = "cbxDatevOpen"
+        Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17)
+        Me.cbxDatevOpen.TabIndex = 74
+        Me.cbxDatevOpen.Text = "öffnen"
+        Me.cbxDatevOpen.UseVisualStyleBackColor = True
+        '
+        'cbxDatevBuchungen
+        '
+        Me.cbxDatevBuchungen.AutoSize = True
+        Me.cbxDatevBuchungen.Checked = True
+        Me.cbxDatevBuchungen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatevBuchungen.Location = New System.Drawing.Point(84, 345)
+        Me.cbxDatevBuchungen.Name = "cbxDatevBuchungen"
+        Me.cbxDatevBuchungen.Size = New System.Drawing.Size(81, 17)
+        Me.cbxDatevBuchungen.TabIndex = 73
+        Me.cbxDatevBuchungen.Text = "Buchungen"
+        Me.cbxDatevBuchungen.UseVisualStyleBackColor = True
+        '
+        'cbxDatevDebitoren
+        '
+        Me.cbxDatevDebitoren.AutoSize = True
+        Me.cbxDatevDebitoren.Checked = True
+        Me.cbxDatevDebitoren.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatevDebitoren.Location = New System.Drawing.Point(15, 345)
+        Me.cbxDatevDebitoren.Name = "cbxDatevDebitoren"
+        Me.cbxDatevDebitoren.Size = New System.Drawing.Size(63, 17)
+        Me.cbxDatevDebitoren.TabIndex = 72
+        Me.cbxDatevDebitoren.Text = "Kunden"
+        Me.cbxDatevDebitoren.UseVisualStyleBackColor = True
+        '
+        'btnDatev
+        '
+        Me.btnDatev.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDatev.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnDatev.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnDatev.Location = New System.Drawing.Point(15, 318)
+        Me.btnDatev.Name = "btnDatev"
+        Me.btnDatev.Size = New System.Drawing.Size(211, 24)
+        Me.btnDatev.TabIndex = 71
+        Me.btnDatev.Text = "Kunden / Buchungen --> Datev"
+        Me.btnDatev.UseVisualStyleBackColor = True
+        '
+        'lblDatev
+        '
+        Me.lblDatev.AutoSize = True
+        Me.lblDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDatev.Location = New System.Drawing.Point(12, 302)
+        Me.lblDatev.Name = "lblDatev"
+        Me.lblDatev.Size = New System.Drawing.Size(142, 13)
+        Me.lblDatev.TabIndex = 70
+        Me.lblDatev.Text = "Routine Manager Datev"
+        '
         'Label21
         '
         Me.Label21.AutoSize = True
@@ -1587,6 +1660,9 @@ Partial Class frmStartOptions
         '
         'TabPage3
         '
+        Me.TabPage3.Controls.Add(Me.LinkLabel39)
+        Me.TabPage3.Controls.Add(Me.LinkLabel40)
+        Me.TabPage3.Controls.Add(Me.Label22)
         Me.TabPage3.Controls.Add(Me.LinkLabel34)
         Me.TabPage3.Controls.Add(Me.LinkLabel35)
         Me.TabPage3.Controls.Add(Me.Label17)
@@ -1980,75 +2056,36 @@ Partial Class frmStartOptions
         Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
         Me.txtGJ_UNISPED.TabIndex = 68
         '
-        'cbxDatevOpen
+        'LinkLabel39
         '
-        Me.cbxDatevOpen.AutoSize = True
+        Me.LinkLabel39.AutoSize = True
-        Me.cbxDatevOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LinkLabel39.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 345)
+        Me.LinkLabel39.Location = New System.Drawing.Point(11, 267)
-        Me.cbxDatevOpen.Name = "cbxDatevOpen"
+        Me.LinkLabel39.Name = "LinkLabel39"
-        Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17)
+        Me.LinkLabel39.Size = New System.Drawing.Size(180, 13)
-        Me.cbxDatevOpen.TabIndex = 74
+        Me.LinkLabel39.TabIndex = 32
-        Me.cbxDatevOpen.Text = "öffnen"
+        Me.LinkLabel39.TabStop = True
-        Me.cbxDatevOpen.UseVisualStyleBackColor = True
+        Me.LinkLabel39.Text = "Eingangsnachrichten abrufen PROD"
         '
-        'cbxDatevBuchungen
+        'LinkLabel40
         '
-        Me.cbxDatevBuchungen.AutoSize = True
+        Me.LinkLabel40.AutoSize = True
-        Me.cbxDatevBuchungen.Checked = True
+        Me.LinkLabel40.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.cbxDatevBuchungen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.LinkLabel40.Location = New System.Drawing.Point(11, 242)
-        Me.cbxDatevBuchungen.Location = New System.Drawing.Point(84, 345)
+        Me.LinkLabel40.Name = "LinkLabel40"
-        Me.cbxDatevBuchungen.Name = "cbxDatevBuchungen"
+        Me.LinkLabel40.Size = New System.Drawing.Size(177, 13)
-        Me.cbxDatevBuchungen.Size = New System.Drawing.Size(81, 17)
+        Me.LinkLabel40.TabIndex = 31
-        Me.cbxDatevBuchungen.TabIndex = 73
+        Me.LinkLabel40.TabStop = True
-        Me.cbxDatevBuchungen.Text = "Buchungen"
+        Me.LinkLabel40.Text = "Eingangsnachrichten abrufen TEST"
-        Me.cbxDatevBuchungen.UseVisualStyleBackColor = True
         '
-        'cbxDatevDebitoren
+        'Label22
         '
-        Me.cbxDatevDebitoren.AutoSize = True
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxDatevDebitoren.Checked = True
+        Me.Label22.Location = New System.Drawing.Point(11, 215)
-        Me.cbxDatevDebitoren.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.Label22.Name = "Label22"
-        Me.cbxDatevDebitoren.Location = New System.Drawing.Point(15, 345)
+        Me.Label22.Size = New System.Drawing.Size(296, 16)
-        Me.cbxDatevDebitoren.Name = "cbxDatevDebitoren"
+        Me.Label22.TabIndex = 30
-        Me.cbxDatevDebitoren.Size = New System.Drawing.Size(63, 17)
+        Me.Label22.Text = "ATEZ Nachrichtenverarbeitung (NCTS TR):"
-        Me.cbxDatevDebitoren.TabIndex = 72
-        Me.cbxDatevDebitoren.Text = "Kunden"
-        Me.cbxDatevDebitoren.UseVisualStyleBackColor = True
-        '
-        'btnDatev
-        '
-        Me.btnDatev.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnDatev.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnDatev.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnDatev.Location = New System.Drawing.Point(15, 318)
-        Me.btnDatev.Name = "btnDatev"
-        Me.btnDatev.Size = New System.Drawing.Size(211, 24)
-        Me.btnDatev.TabIndex = 71
-        Me.btnDatev.Text = "Kunden / Buchungen --> Datev"
-        Me.btnDatev.UseVisualStyleBackColor = True
-        '
-        'lblDatev
-        '
-        Me.lblDatev.AutoSize = True
-        Me.lblDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblDatev.Location = New System.Drawing.Point(12, 302)
-        Me.lblDatev.Name = "lblDatev"
-        Me.lblDatev.Size = New System.Drawing.Size(142, 13)
-        Me.lblDatev.TabIndex = 70
-        Me.lblDatev.Text = "Routine Manager Datev"
-        '
-        'cbxDatevTest
-        '
-        Me.cbxDatevTest.AutoSize = True
-        Me.cbxDatevTest.Checked = True
-        Me.cbxDatevTest.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxDatevTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxDatevTest.Location = New System.Drawing.Point(15, 368)
-        Me.cbxDatevTest.Name = "cbxDatevTest"
-        Me.cbxDatevTest.Size = New System.Drawing.Size(79, 17)
-        Me.cbxDatevTest.TabIndex = 75
-        Me.cbxDatevTest.Text = "Testsystem"
-        Me.cbxDatevTest.UseVisualStyleBackColor = True
         '
         'frmStartOptions
         '
@@ -2239,4 +2276,7 @@ Partial Class frmStartOptions
     Friend WithEvents cbxDatevDebitoren As CheckBox
     Friend WithEvents btnDatev As Button
     Friend WithEvents lblDatev As Label
+    Friend WithEvents LinkLabel39 As LinkLabel
+    Friend WithEvents LinkLabel40 As LinkLabel
+    Friend WithEvents Label22 As Label
 End Class

initATLASAufschubkonten/frmStartOptions.vb

@@ -149,6 +149,21 @@ Public Class frmStartOptions
                 AddHandler f.FormClosed, AddressOf closeMe
 
 
+            Case "NCTSTR_EINARBEITUNG_ATEZ_TEST"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ(True)
+                ' Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+
+            Case "NCTSTR_EINARBEITUNG_ATEZ_PROD"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ(True)
+                ' Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+
+
             Case "UPDATE_SMS"
                 Dim f As New frmInfo(PARAM)
                 f.Show()
@@ -3321,7 +3336,7 @@ Public Class frmStartOptions
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub LinkLabel40_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) 'Handles LinkLabel40.LinkClicked
+    Private Sub LinkLabel40_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel40.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
         Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ
@@ -3329,7 +3344,7 @@ Public Class frmStartOptions
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel39_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) 'Handles LinkLabel39.LinkClicked
+    Private Sub LinkLabel39_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel39.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ