Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -9133,6 +9133,10 @@ Public Class frmDYNachrichtenVerarbeitung
                 'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP)
                 EZA_TMP.insertIntoSpedBuch(DY_TMP)
 
+                '=====IMPORT IN VERAG DATENMODELL==========
+                Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                IMP.ImportDakosyEZA(EZA_TMP, False)
+                '==================================
 
                 '=====ATEZ BEREITSTELLUNG==========
                 cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d)
@@ -10333,6 +10337,12 @@ Public Class frmDYNachrichtenVerarbeitung
                         EZA_TMP.insertIntoSpedBuch(DY_TMP)
 
 
+                        '=====IMPORT IN VERAG DATENMODELL==========
+                        Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                        IMP.ImportDakosyEZA(EZA_TMP, False)
+                        '==================================
+
+
                         '=====ATEZ BEREITSTELLUNG==========
                         cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d)
                         '==================================

initATLASAufschubkonten/frmStartOptions.vb

@@ -997,6 +997,15 @@ Public Class frmStartOptions
                             Select Case row("MsgTyp")
                                 Case "EZ922" 'STEUERBESCHEID
                                     DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
+
+                                    '=====IMPORT IN VERAG DATENMODELL==========
+                                    Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG
+                                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                                        Case "UNIDPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False)
+                                        Case Else : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL", False)
+                                    End Select
+                                    '==========================================
+
                                     sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL")
                                     doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
                                 Case "TR109"
@@ -2611,14 +2620,18 @@ Public Class frmStartOptions
                     destFull = ""
                     moveFile(pfad, ZIEL_PFAD, destFull)
 
+                    Try
 
-                    If DS.insertDataToDATENSERVER(destFull) Then
-                        If IsNumeric(dy_id) AndAlso dy_id > 0 Then
-                            sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
-                            sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
-                            doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
+                        If DS.insertDataToDATENSERVER(destFull) Then
+                            If IsNumeric(dy_id) AndAlso dy_id > 0 Then
+                                sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+                                sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                                doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
+                            End If
                         End If
-                    End If
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Pfad: " & destFull & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+                    End Try
 
                 End If
 

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -1054,6 +1054,14 @@ Public Class frmTCNachrichtenVerarbeitung
                         Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
                            ZOLLIMPORT.TelotecImport(TC)
                         ZOLLIMPORT.insertAbgabenTELOTEC(TC)
+
+                        '=====IMPORT IN VERAG DATENMODELL==========
+                        If TC.Hea_DecTy = "EUA" Then
+                            Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG
+                            IMP.ImportTelotec(TC, False)
+                        End If
+                        '==================================
+
                     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