DYWorker--> Teleotec RgNr, AccessCode in MA

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -973,6 +973,27 @@ Public Class frmTCNachrichtenVerarbeitung
                                 POS.ABGABEN.Add(ABG)
                             Next
                         End If
+
+                        POS.DOC_CERTS.Clear() 'Falls DS schon Mal eingearbeitet wurde
+                        If vidDescITEM.vifDecDocCerts IsNot Nothing AndAlso vidDescITEM.vifDecDocCerts.Count > 0 Then
+                            For Each vifDecDocCerts In vidDescITEM.vifDecDocCerts
+                                Dim DOCS As New TELOTEC_Worker.cTelotec_PositionsdatenDokumente
+
+                                DOCS.Mandant_ID = vifDecDocCerts.Mandant_ID
+                                DOCS.Bereich_ID = vifDecDocCerts.Bereich_ID
+                                DOCS.Referenz_ID = vifDecDocCerts.Referenz_ID
+                                DOCS.ComIndicator = vifDecDocCerts.ComIndicator
+                                DOCS.Pos_ID = vifDecDocCerts.Pos_ID
+                                DOCS.DocCerts_ID = vifDecDocCerts.DocCerts_ID
+                                DOCS.DocCerts_DocCd = vifDecDocCerts.DocCerts_DocCd
+                                DOCS.DocCerts_DTy = vifDecDocCerts.DocCerts_DTy
+                                DOCS.DocCerts_DRef = vifDecDocCerts.DocCerts_DRef
+                                DOCS.DocCerts_IssD = vifDecDocCerts.DocCerts_IssD
+
+
+                                POS.DOC_CERTS.Add(DOCS)
+                            Next
+                        End If
                         TC.POSITIONSDATEN.Add(POS)
                     Next
                 End If