neu

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