ATEZ Implementierung RoutineM.

2023-04-03 10:37:46 +02:00
parent 847f01c38b
commit 22aa4dbe18
4 changed files with 129 additions and 73 deletions
--- a/DAKOSY_Worker/cZOLL_IMPORT.vb
+++ b/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
--- a/cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb
+++ b/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
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/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.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.cbxDatevTest = New System.Windows.Forms.CheckBox()
+        Me.LinkLabel39 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
+        Me.Label22 = New System.Windows.Forms.Label()
        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.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
+        Me.LinkLabel39.AutoSize = True
+        Me.LinkLabel39.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel39.Location = New System.Drawing.Point(11, 267)
+        Me.LinkLabel39.Name = "LinkLabel39"
+        Me.LinkLabel39.Size = New System.Drawing.Size(180, 13)
+        Me.LinkLabel39.TabIndex = 32
+        Me.LinkLabel39.TabStop = True
+        Me.LinkLabel39.Text = "Eingangsnachrichten abrufen PROD"
        '
-        'cbxDatevBuchungen
+        'LinkLabel40
        '
-        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
+        Me.LinkLabel40.AutoSize = True
+        Me.LinkLabel40.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel40.Location = New System.Drawing.Point(11, 242)
+        Me.LinkLabel40.Name = "LinkLabel40"
+        Me.LinkLabel40.Size = New System.Drawing.Size(177, 13)
+        Me.LinkLabel40.TabIndex = 31
+        Me.LinkLabel40.TabStop = True
+        Me.LinkLabel40.Text = "Eingangsnachrichten abrufen TEST"
        '
-        'cbxDatevDebitoren
+        'Label22
        '
-        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"
-        '
-        '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
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label22.Location = New System.Drawing.Point(11, 215)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(296, 16)
+        Me.Label22.TabIndex = 30
+        Me.Label22.Text = "ATEZ Nachrichtenverarbeitung (NCTS TR):"
        '
        '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
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/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