neu

2020-05-31 22:26:21 +02:00
parent a40477b387
commit 6e3e35ac70
37 changed files with 2287 additions and 437 deletions
--- a/initATLASAufschubkonten/EZollAufschubEinlesen.vb
+++ b/initATLASAufschubkonten/EZollAufschubEinlesen.vb
@@ -32,7 +32,7 @@ Public Class EZollAufschubEinlesen
                                LeistungsNr = "76"
                            Case Else '1BD,0ML, 0PB, 0PG, 0PS, 1LG, 1ZN, 2AS, 2KO, 2RB, 2SB, 2SI, 2VF, 2VS, 5SI, 5VS, 6AK, 6BE, 6MS, 6SS, 6TS, 6ZW, 9EA, D00,D10,E00
                                LeistungsNr = "482"
-                                LeistungsBez = getLeistungsBez(d1.Abgabenart)
+                                LeistungsBez = DAKOSY_Worker.cZOLL_IMPORT.getLeistungsBez(d1.Abgabenart)
                        End Select
                        If saveAbgaben Then

@@ -64,114 +64,6 @@ Public Class EZollAufschubEinlesen
        'MsgBox("TEST3")
    End Sub

-    Function getLeistungsBez(LeistungsBez)
-        Select Case LeistungsBez
-            Case "0ML"
-                getLeistungsBez = "Altlastenbeitrag"
-            Case "0PB"
-                getLeistungsBez = "Punzierungskontrollgeb. Platin"
-            Case "0PG"
-                getLeistungsBez = "Punzierungskontrollgebühr Gold"
-            Case "0PS"
-                getLeistungsBez = "Punzierungskontrollgeb. Silber"
-            Case "1BD"
-                getLeistungsBez = "Bemessungsdatum"
-            Case "1LG"
-                getLeistungsBez = "Lagergeld gemäß §104 ZollR-DG"
-            Case "1ZK"
-                getLeistungsBez = "Kreditzinsen, Säumniszinsen"
-            Case "1ZN"
-                getLeistungsBez = "Nebenansprüche"
-            Case "2AS"
-                getLeistungsBez = "Agrarsicherheiten"
-            Case "2DU"
-                getLeistungsBez = "Antidumping-Sicherheit"
-            Case "2EU"
-                getLeistungsBez = "EUSt-Sicherheit"
-            Case "2IG"
-                getLeistungsBez = "Sicherheit EUSt ig. Lieferung"
-            Case "2KO"
-                getLeistungsBez = "Sicherheit für Kontingent"
-            Case "2PE"
-                getLeistungsBez = "Sicherheit bei Einfuhrwerten"
-            Case "2RB"
-                getLeistungsBez = "Sicherheit Bürgerschaft"
-            Case "2SB"
-                getLeistungsBez = "Summe der befreiten Sicherheit"
-            Case "2SI"
-                getLeistungsBez = "Sicherheit Geldbetragerlag"
-            Case "2VF"
-                getLeistungsBez = "Sicherheit bei Verifizierung"
-            Case "2VS"
-                getLeistungsBez = "Summe der vorg. Sicherheit"
-            Case "2ZG"
-                getLeistungsBez = "Zusatzzoll Geflügel"
-            Case "2ZZ"
-                getLeistungsBez = "Zusatzzoll Zucker"
-            Case "2ZZ"
-                getLeistungsBez = "Zusatzzoll 2ZZ"
-            Case "5DU"
-                getLeistungsBez = "Antidumping-und Ausgleichszoll"
-            Case "5EU"
-                getLeistungsBez = "Einfuhrumsatzsteuer"
-            Case "5EV"
-                getLeistungsBez = "EUSt gem. §26 Abs. 3Z.2UStG"
-            Case "5SI"
-                getLeistungsBez = "Agrarsicherheit"
-            Case "5VS"
-                getLeistungsBez = "Verbrauchsteuern"
-            Case "5ZO"
-                getLeistungsBez = "Zoll 5ZO"
-            Case "5ZZ"
-                getLeistungsBez = "Zusatzzoll 5ZZ"
-            Case "6AK"
-                getLeistungsBez = "Alkoholsteuer"
-            Case "6BE"
-                getLeistungsBez = "Biersteuer"
-            Case "6MS"
-                getLeistungsBez = "Mineralölsteuer"
-            Case "6SS"
-                getLeistungsBez = "Schaumweinsteuer"
-            Case "6TS"
-                getLeistungsBez = "Tabaksteuer"
-            Case "6ZW"
-                getLeistungsBez = "Zwischenerzeugnissteuer"
-            Case "9EA"
-                getLeistungsBez = "Summe Gesamtabgaben"
-            Case "A00"
-                getLeistungsBez = "Zölle auf gewerbliche Waren"
-            Case "A00"
-                getLeistungsBez = "Zollabgaben"
-            Case "A10"
-                getLeistungsBez = "Zölle landwirt. Erzeugnisse"
-            Case "A20"
-                getLeistungsBez = "Zusatzzölle"
-            Case "A30"
-                getLeistungsBez = "endgültige Antidumpingzölle"
-            Case "A35"
-                getLeistungsBez = "vorläufige Antidumpingzölle"
-            Case "A40"
-                getLeistungsBez = "endgültiger Ausgleichszoll"
-            Case "A45"
-                getLeistungsBez = "vorläufiger Ausgleichszoll"
-            Case "B00"
-                getLeistungsBez = "Einfuhrumsatzsteuer(EUSt)"
-            Case "B10"
-                getLeistungsBez = "Ausgleichszinsen(EUSt)"
-            Case "C00"
-                getLeistungsBez = "Ausfuhrabgaben"
-            Case "C10"
-                getLeistungsBez = "Ausfuhrabg. landwirt. Erzeug."
-            Case "D00"
-                getLeistungsBez = "Verzugszinsen"
-            Case "D10"
-                getLeistungsBez = "Ausgleichszinsen"
-            Case "E00"
-                getLeistungsBez = "Abgaben anderer Länder"
-            Case Else
-                getLeistungsBez = ""
-        End Select
-    End Function

    Public Function loadSqlZOLARIS(ByVal datumVon As DateTime, ByVal datumBis As DateTime, Optional where As String = "") As List(Of cEZollData)
        Try
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb
@@ -27,6 +27,8 @@ Partial Class frmDYNachrichtenVerarbeitung
        Me.btn = New System.Windows.Forms.Button()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label7 = New System.Windows.Forms.Label()
@@ -37,8 +39,6 @@ Partial Class frmDYNachrichtenVerarbeitung
        Me.btnOK = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
-        Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.pnl.SuspendLayout()
        CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -98,6 +98,18 @@ Partial Class frmDYNachrichtenVerarbeitung
        Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145)
        Me.dgvEinarbeitung.TabIndex = 18
        '
+        'clmnArt
+        '
+        Me.clmnArt.HeaderText = "Art"
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.Width = 150
+        '
+        'Column1
+        '
+        Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Column1.HeaderText = "BezugsNr"
+        Me.Column1.Name = "Column1"
+        '
        'Label9
        '
        Me.Label9.AutoSize = True
@@ -199,18 +211,6 @@ Partial Class frmDYNachrichtenVerarbeitung
        Me.Label1.TabIndex = 8
        Me.Label1.Text = "Einarbeitung:"
        '
-        'clmnArt
-        '
-        Me.clmnArt.HeaderText = "Art"
-        Me.clmnArt.Name = "clmnArt"
-        Me.clmnArt.Width = 150
-        '
-        'Column1
-        '
-        Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.Column1.HeaderText = "BezugsNr"
-        Me.Column1.Name = "Column1"
-        '
        'frmDYNachrichtenVerarbeitung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -5154,8 +5154,8 @@ Public Class frmDYNachrichtenVerarbeitung
        End If
    End Sub

+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint

-
-
+    End Sub
 End Class

--- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
@@ -573,10 +573,9 @@ Public Class frmMDMNachrichtenVerarbeitung
                            currentRow = MyReader.ReadFields()


-                            If currentRow.Length > 24 Then
+                            If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
                                Dim PLOSE As New MDM_Worker.cPLOSE

-
                                PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0))
                                PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1))
                                PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2))
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -81,6 +81,10 @@ Partial Class frmStartOptions
        Me.Label6 = New System.Windows.Forms.Label()
        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.LinkLabel29 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
+        Me.Label11 = New System.Windows.Forms.Label()
        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
        Me.LinkLabel25 = New System.Windows.Forms.LinkLabel()
        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
@@ -104,10 +108,7 @@ Partial Class frmStartOptions
        Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
        Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
        Me.lblRoutineManager = New System.Windows.Forms.Label()
-        Me.TabPage3 = New System.Windows.Forms.TabPage()
-        Me.LinkLabel29 = New System.Windows.Forms.LinkLabel()
-        Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
-        Me.Label11 = New System.Windows.Forms.Label()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.tbcntr.SuspendLayout()
        Me.TabPage1.SuspendLayout()
@@ -124,17 +125,18 @@ Partial Class frmStartOptions
        Me.TabPage2.SuspendLayout()
        CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage3.SuspendLayout()
        CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TabPage3.SuspendLayout()
        Me.SuspendLayout()
        '
        'pnl
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.CheckBox3)
        Me.pnl.Controls.Add(Me.tbcntr)
        Me.pnl.Controls.Add(Me.CheckBox2)
        Me.pnl.Controls.Add(Me.LinkLabel25)
@@ -868,6 +870,50 @@ Partial Class frmStartOptions
        Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
        Me.txtVRGOut_BezugsNr.TabIndex = 5
        '
+        'TabPage3
+        '
+        Me.TabPage3.Controls.Add(Me.LinkLabel29)
+        Me.TabPage3.Controls.Add(Me.LinkLabel30)
+        Me.TabPage3.Controls.Add(Me.Label11)
+        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage3.Name = "TabPage3"
+        Me.TabPage3.Size = New System.Drawing.Size(780, 395)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "Partner-Systeme"
+        Me.TabPage3.UseVisualStyleBackColor = True
+        '
+        'LinkLabel29
+        '
+        Me.LinkLabel29.AutoSize = True
+        Me.LinkLabel29.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel29.Location = New System.Drawing.Point(11, 80)
+        Me.LinkLabel29.Name = "LinkLabel29"
+        Me.LinkLabel29.Size = New System.Drawing.Size(180, 13)
+        Me.LinkLabel29.TabIndex = 24
+        Me.LinkLabel29.TabStop = True
+        Me.LinkLabel29.Text = "Eingangsnachrichten abrufen PROD"
+        '
+        'LinkLabel30
+        '
+        Me.LinkLabel30.AutoSize = True
+        Me.LinkLabel30.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel30.Location = New System.Drawing.Point(11, 55)
+        Me.LinkLabel30.Name = "LinkLabel30"
+        Me.LinkLabel30.Size = New System.Drawing.Size(177, 13)
+        Me.LinkLabel30.TabIndex = 23
+        Me.LinkLabel30.TabStop = True
+        Me.LinkLabel30.Text = "Eingangsnachrichten abrufen TEST"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label11.Location = New System.Drawing.Point(11, 28)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(251, 13)
+        Me.Label11.TabIndex = 22
+        Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):"
+        '
        'CheckBox2
        '
        Me.CheckBox2.AutoSize = True
@@ -1135,49 +1181,15 @@ Partial Class frmStartOptions
        Me.lblRoutineManager.TabIndex = 1
        Me.lblRoutineManager.Text = "Routine Manager"
        '
-        'TabPage3
+        'CheckBox3
        '
-        Me.TabPage3.Controls.Add(Me.LinkLabel29)
-        Me.TabPage3.Controls.Add(Me.LinkLabel30)
-        Me.TabPage3.Controls.Add(Me.Label11)
-        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage3.Name = "TabPage3"
-        Me.TabPage3.Size = New System.Drawing.Size(780, 395)
-        Me.TabPage3.TabIndex = 2
-        Me.TabPage3.Text = "Partner-Systeme"
-        Me.TabPage3.UseVisualStyleBackColor = True
-        '
-        'LinkLabel29
-        '
-        Me.LinkLabel29.AutoSize = True
-        Me.LinkLabel29.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel29.Location = New System.Drawing.Point(11, 80)
-        Me.LinkLabel29.Name = "LinkLabel29"
-        Me.LinkLabel29.Size = New System.Drawing.Size(180, 13)
-        Me.LinkLabel29.TabIndex = 24
-        Me.LinkLabel29.TabStop = True
-        Me.LinkLabel29.Text = "Eingangsnachrichten abrufen PROD"
-        '
-        'LinkLabel30
-        '
-        Me.LinkLabel30.AutoSize = True
-        Me.LinkLabel30.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel30.Location = New System.Drawing.Point(11, 55)
-        Me.LinkLabel30.Name = "LinkLabel30"
-        Me.LinkLabel30.Size = New System.Drawing.Size(177, 13)
-        Me.LinkLabel30.TabIndex = 23
-        Me.LinkLabel30.TabStop = True
-        Me.LinkLabel30.Text = "Eingangsnachrichten abrufen TEST"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(11, 28)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(251, 13)
-        Me.Label11.TabIndex = 22
-        Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):"
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Location = New System.Drawing.Point(302, 173)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(103, 17)
+        Me.CheckBox3.TabIndex = 38
+        Me.CheckBox3.Text = "History (1Monat)"
+        Me.CheckBox3.UseVisualStyleBackColor = True
        '
        'frmStartOptions
        '
@@ -1211,12 +1223,12 @@ Partial Class frmStartOptions
        Me.TabPage2.PerformLayout()
        CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage3.ResumeLayout(False)
+        Me.TabPage3.PerformLayout()
        CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TabPage3.ResumeLayout(False)
-        Me.TabPage3.PerformLayout()
        Me.ResumeLayout(False)

    End Sub
@@ -1305,4 +1317,5 @@ Partial Class frmStartOptions
    Friend WithEvents LinkLabel29 As LinkLabel
    Friend WithEvents LinkLabel30 As LinkLabel
    Friend WithEvents Label11 As Label
+    Friend WithEvents CheckBox3 As CheckBox
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -621,7 +621,7 @@ Public Class frmStartOptions
    Function getUID_Pruefung(maxAnz As Integer) As Boolean
        Try

-            Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-2), True, False, maxAnz, False)
+            Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
                If PDF <> "" Then
@@ -935,7 +935,7 @@ Public Class frmStartOptions
    End Sub

    Private Sub LinkLabel25_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel25.LinkClicked
-        importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
+        importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now)))
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs)
--- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
@@ -520,6 +520,7 @@ Public Class frmTCNachrichtenVerarbeitung
                'Art der Anmeldung
                Select Case TC.Hea_DecTy
                    Case "T1", "T2", "T2L" : TC.telanm_ART = TC.Hea_DecTy
+                    Case "EUA" : TC.telanm_ART = TC.Hea_DecTy 'EZA
                    Case Else : TC.telanm_ART = TC.Hea_DecTy '^^
                End Select

@@ -534,6 +535,10 @@ Public Class frmTCNachrichtenVerarbeitung
                    Case "TT131" 'Erledigungsmeldung 
                        TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
                        TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
+
+                    Case "TT922" 'EZA / Abgabenbescheid 
+                        TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
+                        TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
                    Case Else
                        Return "" 'Nicht erkannt
                End Select
@@ -680,6 +685,7 @@ Public Class frmTCNachrichtenVerarbeitung
                'TC.CtrlRslt_ResCd = vifDEC.CtrlRslt_ResCd'--> in Schnittstelle nicht vorhanden
                TC.CtrlRslt_DLimit = vifDEC.CtrlRslt_DLimit

+
                TC.POSITIONSDATEN.Clear() 'Falls DS schon Mal eingearbeitet wurde
                If vifDEC.vifDecItem IsNot Nothing AndAlso vifDEC.vifDecItem.Count > 0 Then
                    For Each vidDescITEM In vifDEC.vifDecItem
@@ -732,12 +738,35 @@ Public Class frmTCNachrichtenVerarbeitung
                            Next
                        End If

-                        TC.POSITIONSDATEN.Add(POS)
+                        POS.ABGABEN.Clear() 'Falls DS schon Mal eingearbeitet wurde
+                        If vidDescITEM.vifDecDutyCalc IsNot Nothing AndAlso vidDescITEM.vifDecDutyCalc.Count > 0 Then
+                            For Each vifDecDutyCalc In vidDescITEM.vifDecDutyCalc
+                                Dim ABG As New TELOTEC_Worker.cTelotec_PositionsdatenAbgaben
+
+                                ABG.Mandant_ID = vifDecDutyCalc.Mandant_ID
+                                ABG.Bereich_ID = vifDecDutyCalc.Bereich_ID
+                                ABG.Referenz_ID = vifDecDutyCalc.Referenz_ID
+                                ABG.ComIndicator = vifDecDutyCalc.ComIndicator
+                                ABG.Pos_ID = vifDecDutyCalc.Pos_ID
+                                ABG.DutyCalc_ID = vifDecDutyCalc.DutyCalc_ID
+                                ABG.Ty = vifDecDutyCalc.Ty
+                                ABG.BaseD = vifDecDutyCalc.BaseD
+                                ABG.Curr = vifDecDutyCalc.Curr
+                                ABG.Unit = vifDecDutyCalc.Unit
+                                ABG.Base = vifDecDutyCalc.Base
+                                ABG.Rate = vifDecDutyCalc.Rate
+                                ABG.RateUsed = vifDecDutyCalc.RateUsed
+                                ABG.Amnt = vifDecDutyCalc.Amnt
+                                ABG.MeaID = vifDecDutyCalc.MeaID
+                                ABG.TyInd = vifDecDutyCalc.TyInd
+
+                                POS.ABGABEN.Add(ABG)
+                            Next
+                        End If
+                      TC.POSITIONSDATEN.Add(POS)
                    Next
                End If

-
-
                TC.SICHERHEIT.Clear() 'Falls DS schon Mal eingearbeitet wurde
                If vifDEC.vifDecGrteeRef IsNot Nothing AndAlso vifDEC.vifDecGrteeRef.Count > 0 Then
                    For Each vifDecGrteeRef In vifDEC.vifDecGrteeRef
@@ -756,12 +785,33 @@ Public Class frmTCNachrichtenVerarbeitung
                        GRT.GVal = vifDecGrteeRef.GVal
                        GRT.Curr = vifDecGrteeRef.Curr

-
                        TC.SICHERHEIT.Add(GRT)
                    Next
                End If


+
+
+                TC.ABGABEN.Clear() 'Falls DS schon Mal eingearbeitet wurde
+                If vifDEC.vifDecTotDuties IsNot Nothing AndAlso vifDEC.vifDecTotDuties.Count > 0 Then
+                    For Each vifDecTotDuties In vifDEC.vifDecTotDuties
+                        Dim ABG As New TELOTEC_Worker.cTelotec_Abgaben
+
+                        ABG.Mandant_ID = vifDecTotDuties.Mandant_ID
+                        ABG.Bereich_ID = vifDecTotDuties.Bereich_ID
+                        ABG.Referenz_ID = vifDecTotDuties.Referenz_ID
+                        ABG.ComIndicator = vifDecTotDuties.ComIndicator
+                        ABG.TotDuties_ID = vifDecTotDuties.TotDuties_ID
+                        ABG.Ty = vifDecTotDuties.Ty
+                        ABG.Amnt = vifDecTotDuties.Amnt
+                        ABG.TyInd = vifDecTotDuties.TyInd
+                        ABG.Erstelldatum = vifDecTotDuties.Erstelldatum
+
+                        TC.ABGABEN.Add(ABG)
+                    Next
+                End If
+
+
                ''''Aktuellste Nachricht
                If SQL.getValueTxtBySql("Select COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
                    TC.telnam_aktuellsteNachricht = 0
@@ -775,7 +825,8 @@ Public Class frmTCNachrichtenVerarbeitung
                    If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
                        ' TC.insertIntoSpedBuch()
                        Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
-                        ZOLLIMPORT.TelotecImport(TC)
+                           ZOLLIMPORT.TelotecImport(TC)
+                        ZOLLIMPORT.insertAbgabenTELOTEC(TC)
                    End If
                    ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
                    If TC.telanm_ART = "T1" Or TC.telanm_ART.ToString.Contains("T2") Or TC.telanm_ART.ToString.StartsWith("T-") Then