EXG DB Tabelle Routine

ADMIN.sln

@@ -23,8 +23,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ATILLA_Speditionsbuch", "AT
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
-EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
@@ -35,6 +33,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RKSV_DE", "RKSV_DE\RKSV_DE.
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MIC_Worker_lib", "MIC_Worker_lib\MIC_Worker_lib.vbproj", "{60833DC6-70ED-450A-B51F-4A953E67ADA0}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -123,14 +123,6 @@ Global
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|x64
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|x64
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
-		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.ActiveCfg = Debug|Any CPU
@@ -171,6 +163,14 @@ Global
 		{60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|Any CPU.Build.0 = Release|Any CPU
 		{60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|x64.ActiveCfg = Release|Any CPU
 		{60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|x64.Build.0 = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb

@@ -9,6 +9,7 @@ Public Class cDakosyEXG
     Property exg_dyaArt As String = ""
     Property exg_dyaAnmID As Integer
 
+    Property exg_Partnersystem As Object = Nothing
     Property exg_ANR As Object = Nothing
     Property exg_MRN As Object = Nothing
 
@@ -371,6 +372,7 @@ Public Class cDakosyEXG
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", exg_Status_KEWILL_Equivalent))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaArt", exg_dyaArt))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaAnmID", exg_dyaAnmID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Partnersystem", exg_Partnersystem))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ANR", exg_ANR))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_MRN", exg_MRN))
 
@@ -721,7 +723,7 @@ Public Class cDakosyEXG
                        " Else " &
                        " BEGIN " & getInsertCmd() & " End " &
                        " commit tran "
-
+        'MsgBox(sqlstr)
         Dim exg_IdTMP = exg_Id
         exg_IdTMP = SQL.doSQLVarListID(exg_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
         If exg_Id <= 0 Then exg_Id = exg_IdTMP
@@ -842,41 +844,41 @@ Public Class cDakosyEXG
     End Function
 
 
-    Public Function LOADByAnmID(exg_dyaAnmID As String, loadALL As Boolean) As Boolean
+    'Public Function LOADByBezugsNr(exg_ObjectName As String, loadALL As Boolean) As Boolean
-        Try
+    '    Try
-            LOADByAnmID = False
+    '        LOADByBezugsNr = False
-            If loadALL Then
+    '        If loadALL Then
-                exg_POSITION.Clear()
+    '            exg_POSITION.Clear()
-            End If
+    '        End If
-            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+    '        Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_dyaAnmID=@exg_dyaAnmID  ", conn)
+    '            Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName=@exg_ObjectName  ", conn)
-                    cmd.Parameters.AddWithValue("@exg_dyaAnmID", exg_dyaAnmID)
+    '                cmd.Parameters.AddWithValue("@exg_ObjectName", exg_ObjectName)
-                    Dim dr = cmd.ExecuteReader()
+    '                Dim dr = cmd.ExecuteReader()
-                    If dr.Read Then
+    '                If dr.Read Then
-                        For Each l In getParameterList()
+    '                    For Each l In getParameterList()
-                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+    '                        Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
 
-                            If dr.Item(l.Text) Is DBNull.Value Then
+    '                        If dr.Item(l.Text) Is DBNull.Value Then
-                                propInfo.SetValue(Me, Nothing)
+    '                            propInfo.SetValue(Me, Nothing)
-                            Else
+    '                        Else
-                                propInfo.SetValue(Me, dr.Item(l.Text))
+    '                            propInfo.SetValue(Me, dr.Item(l.Text))
-                            End If
+    '                        End If
 
-                        Next
+    '                    Next
-                        If loadALL Then
+    '                    If loadALL Then
-                            LOAD_Position()
+    '                        LOAD_Position()
-                        End If
+    '                    End If
-                        LOADByAnmID = True
+    '                    LOADByBezugsNr = True
-                    End If
+    '                End If
-                    dr.Close()
+    '                dr.Close()
-                End Using
+    '            End Using
-            End Using
+    '        End Using
-        Catch ex As Exception
+    '    Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-        End Try
+    '    End Try
-        Return LOADByAnmID
+    '    Return LOADByBezugsNr
-    End Function
+    'End Function
-    Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEXG
+    Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyEXG
         Try
             Dim EXG As New cDakosyEXG
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -884,7 +886,7 @@ Public Class cDakosyEXG
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                 '    Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " ) AS T order by exg_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc)  desc,exg_LetzteBearbeitung desc ", conn)
                 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc)  desc,exg_LetzteBearbeitung desc ", conn)
-                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_LetzteBearbeitung desc", conn)
+                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName LIKE @bezugsNr   order by exg_LetzteBearbeitung desc", conn)
                     'MsgBox("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE exg_dyaAnmID=dy_id order by dySt_ts desc)  desc,exg_LetzteBearbeitung desc ")
                     cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
                     Dim dr = cmd.ExecuteReader()

DAKOSY_Worker/DAKOSY_Worker_lib.vbproj

@@ -88,6 +88,7 @@
     <Compile Include="DAKOSY\ATLAS\AES\cDakosyAES.vb" />
     <Compile Include="DAKOSY\ATLAS\AES\Überlassung\e_exp_rel.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\AES\Überlassung\e_exp_rel_V2.3.Designer.vb" />
+    <Compile Include="DAKOSY\ATLAS\EXG\cDakosyEXG.vb" />
     <Compile Include="DAKOSY\ATLAS\EXG\DatenZumAusgang\DataEXITDE_005.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\EXG\GestellungAusgang\PresentationEXITDE_003.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\EXG\InformationenZumAusgang\InformationEXITDE_003.Designer.vb" />

MailSender/MailSender.vbproj

@@ -139,10 +139,6 @@
       <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
       <Name>VERAG_PROG_ALLGEMEIN</Name>
     </ProjectReference>
-    <ProjectReference Include="..\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
-      <Project>{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}</Project>
-      <Name>DAKOSY_Worker_lib</Name>
-    </ProjectReference>
     <ProjectReference Include="..\UID\ADMIN.vbproj">
       <Project>{6eb4d3a4-3cf2-4651-9af9-ad5f727df403}</Project>
       <Name>ADMIN</Name>

UID/ADMIN.vbproj

@@ -1134,12 +1134,6 @@
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </COMReference>
   </ItemGroup>
-  <ItemGroup>
-    <ProjectReference Include="..\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
-      <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
-      <Name>DAKOSY_Worker_lib</Name>
-    </ProjectReference>
-  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

initATLASAufschubkonten/cWorker_AES_EXG.vb

@@ -2,6 +2,7 @@
 Imports DAKOSY_Worker
 Imports DocumentFormat.OpenXml.Wordprocessing
 Imports java.nio.channels
+Imports javax.management
 Imports Spire.Pdf
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -33,6 +34,7 @@ Public Class cWorker_AES_EXG
                                 If RESP.HeaderData IsNot Nothing Then
                                     If RESP.HeaderData.MRN IsNot Nothing Then
                                         MRN = RESP.HeaderData.MRN
+
                                     End If
                                 End If
 
@@ -44,16 +46,79 @@ Public Class cWorker_AES_EXG
                                 'EXZ SAVE!
                                 '----------------------------------------------------------------------
 
-                                Dim EXG As New DAKOSY_Worker.exg
+                                Dim EXG = DAKOSY_Worker.cDakosyEXG.LOADByBezugsNr(readEZA_DatenZumAusgang_DataEXITDE_005, True)
+                                If EXG Is Nothing Then EXG = New cDakosyEXG
+
+                                'EXG.consignee
+                                EXG.exg_ObjectName = readEZA_DatenZumAusgang_DataEXITDE_005
+                                EXG.exg_Partnersystem = "DAKOSY"
+                                EXG.exg_Erstellung = zp
+                                ' EXG.exg_firma = RESP.HeaderData.
+                                EXG.exg_Declarationtype = RESP.HeaderData.DeclarationType
+                                EXG.exg_Security = RESP.HeaderData.Security
+                                EXG.exg_MRN = RESP.HeaderData.MRN
+                                EXG.exg_ContainerIndicator = RESP.HeaderData.ContainerIndicator
+                                EXG.exg_GrossMass = RESP.HeaderData.GrossMass
+                                EXG.exg_CountryOfDestination = RESP.HeaderData.CountryOfDestination
+                                EXG.exg_ReferenceNumberUCR = RESP.HeaderData.ReferenceNumberUCR
+
+                                frmDYNachrichtenVerarbeitung.setFirmaNL(VWI.Transaktion.IOPartner, VWI.Transaktion.IODivision3, EXG.exg_firma, EXG.exg_niederlassung)
 
 
 
+                                If RESP.HeaderData.Consignee IsNot Nothing Then
+                                    EXG.exg_Consignee_Name = RESP.HeaderData.Consignee.Name
+
+                                    EXG.exg_Consignee_StreetNumber = RESP.HeaderData.Consignee.StreetAndNumber
+                                    EXG.exg_Consignee_City = RESP.HeaderData.Consignee.City
+                                    EXG.exg_Consignee_Postcode = RESP.HeaderData.Consignee.Postcode
+                                    EXG.exg_Consignee_Country = RESP.HeaderData.Consignee.Country
+
+                                    EXG.exg_Consignee_IdentificationNumber = RESP.HeaderData.Consignee.IdentificationNumber
+                                    EXG.exg_Consignee_SubsidiaryNumber = RESP.HeaderData.Consignee.SubsidiaryNumber
+                                End If
+
+                                If RESP.HeaderData.Exporter IsNot Nothing Then
+                                    EXG.exg_Consignor_Name = RESP.HeaderData.Exporter.Name
+
+                                    EXG.exg_Consignor_StreetNumber = RESP.HeaderData.Exporter.StreetAndNumber
+                                    EXG.exg_Consignor_City = RESP.HeaderData.Exporter.City
+                                    EXG.exg_Consignor_Postcode = RESP.HeaderData.Exporter.Postcode
+                                    EXG.exg_Consignor_Country = RESP.HeaderData.Exporter.Country
+
+                                    EXG.exg_Consignor_IdentificationNumber = RESP.HeaderData.Exporter.IdentificationNumber
+                                    EXG.exg_Consignor_SubsidiaryNumber = RESP.HeaderData.Exporter.SubsidiaryNumber
+                                End If
 
 
-                                '----------------------------------------------------------------------
+                                If RESP.GoodsItem IsNot Nothing Then
-                                'QULAIFIZIERUNG!
+                                    For Each ITEM In RESP.GoodsItem
-                                '----------------------------------------------------------------------
+                                        Dim EXG_ITEM As New cDakosy_EXG_Position
-                                If True Then 'BEZUGSNR vorhanden
+
+                                        EXG_ITEM.exgPos_GoodsItemNumber = ITEM.GoodsItemNumber
+                                        EXG_ITEM.exgPos_CommodityCode = ITEM.HarmonizedSystemSubHeadingCode & ITEM.CombinedNomenclatureCode
+                                        EXG_ITEM.exgPos_DescriptionOfGoods = ITEM.DescriptionOfGoods
+                                        EXG_ITEM.exgPos_NetMass = ITEM.NetMass
+                                        EXG_ITEM.exgPos_GrossMass = ITEM.GrossMass
+
+
+                                        If RESP.GoodsItem IsNot Nothing Then
+                                            For Each ITEM_PK In ITEM.Packaging
+                                                Dim EXG_ITEM_PK As New cDakosy_EXG_Position_Packaging
+
+                                                EXG_ITEM_PK.exgPosPk_NumberOfPackages = ITEM_PK.NumberOfPackages
+                                                EXG_ITEM_PK.exgPosPk_TypeOfPackages = ITEM_PK.TypeOfPackages
+                                                EXG_ITEM_PK.exgPosPk_ShippingMarks = ITEM_PK.ShippingMarks
+
+
+                                                EXG_ITEM.exgPos_PACKAGING.Add(EXG_ITEM_PK)
+                                            Next
+                                        End If
+                                        EXG.exg_POSITION.Add(EXG_ITEM)
+                                    Next
+                                End If
+
+                                If EXG.SAVE_ALL Then 'BEZUGSNR vorhanden
                                     Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
                                     STATUS.dySt_BezugsNr = readEZA_DatenZumAusgang_DataEXITDE_005
                                     STATUS.dySt_artMitteilung = "EXG_DATA"
@@ -66,10 +131,15 @@ Public Class cWorker_AES_EXG
 
                                     STATUS.SAVE()
 
-                                    '----------------------------------------------------------------------
-                                    'Es wird bei Daten zum AUsgang und "_EXG_"  automaitsch die Qualifizierung aufgerufen...
 
-                                    If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG_") Then
+                                    '----------------------------------------------------------------------
+                                    'QULAIFIZIERUNG!
+                                    '----------------------------------------------------------------------
+
+                                    '----------------------------------------------------------------------
+                                    'Es wird bei Daten zum AUsgang und "_EXG"  automaitsch die Qualifizierung aufgerufen...
+                                    Dim test = True
+                                    If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG") Or test Then
                                         Dim IOPARTNER = VWI.Transaktion.IOPartner
                                         Dim DIVISION3 = VWI.Transaktion.IODivision3
                                         Dim DAKOSY_SB = "ANDREAS"
@@ -84,18 +154,19 @@ Public Class cWorker_AES_EXG
                                         DY_ACTIONS.Add("CHANGE")
                                         '  DY_ACTIONS.Add("SEND")
 
-                                        If generateInformationenZumAusgang003(MRN, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
+                                        If generateInformationenZumAusgang003(EXG, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
                                             If saveFile <> "" Then
+                                                If test Then
                                                     frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\")
-
+                                                Else
-                                                'NOCH NCIHT!!!!!!
+                                                    If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then
-                                                'If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then
+                                                        'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
-                                                '    'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
+                                                        Return True
-                                                '    Return True
+                                                    Else
-                                                'Else
+                                                        'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
-                                                '    'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
+                                                        Return False
-                                                '    Return False
+                                                    End If
-                                                'End If
+                                                End If
                                             End If
                                         End If
                                     End If
@@ -127,7 +198,7 @@ Public Class cWorker_AES_EXG
     End Function
 
 
-    Shared Function generateInformationenZumAusgang003(MRN As String, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTIONS As List(Of String), IOPartner As String, IODivision3 As String, DAKOSY_SB As String) As Boolean
+    Shared Function generateInformationenZumAusgang003(EXG As cDakosyEXG, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTIONS As List(Of String), IOPartner As String, IODivision3 As String, DAKOSY_SB As String) As Boolean
         Dim Interface_VERSION = "003"
         ' Dim ObjectAktion = DY_ACTION
         ' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
@@ -154,7 +225,7 @@ Public Class cWorker_AES_EXG
 
         'If Bezugsnummer IsNot Nothing Then XML_EG.ObjektIdentifizierung.ObjektAliasname = Bezugsnummer
         XML_EG.ObjektIdentifizierung.ObjektAktion = DY_ACTIONS
-        If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML_EG.ObjektIdentifizierung.Bearbeiter = DAKOSY_SB
+        XML_EG.ObjektIdentifizierung.Bearbeiter = DAKOSY_SB
 
         '      If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML_EG.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
 
@@ -186,7 +257,7 @@ Public Class cWorker_AES_EXG
         STATUS.dySt_dyArt = "EXG"
         STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00
         STATUS.dySt_ergCode = "EXG_INFO"
-        STATUS.dySt_ergMitteilung = "MRN:" & MRN
+        STATUS.dySt_ergMitteilung = "MRN:" & EXG.exg_MRN
         STATUS.dySt_ergZeitpunkt = Now
         STATUS.SAVE()
         '-------------------------------------------

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -911,6 +911,50 @@ Public Class frmDYNachrichtenVerarbeitung
         End If
     End Sub
 
+    Shared Sub setFirmaNL(iopartner As String, division As String, ByRef firma As String, ByRef nl As String)
+        If division Is Nothing Then Exit Sub
+        If division <> "" Then
+            Select Case division
+                Case "SUW"
+                    firma = "ATILLA"
+                    nl = "SUB"
+                Case "SUB"
+                    firma = "VERAG"
+                    nl = "SUB"
+                Case "DUR"
+                    firma = "DURMAZ"
+                    nl = "SBG"
+                Case "NKD"
+                    firma = "VERAG"
+                    nl = "NKD"
+                Case "WAI"
+                    firma = "VERAG"
+                    nl = "WAI"
+                Case "SBG"
+                    firma = "VERAG"
+                    nl = "SBG"
+                Case "NEU"
+                    firma = "VERAG"
+                    nl = "NEU"
+                Case "GLO"
+                    firma = "IMEX"
+                    nl = "GLO"
+                Case "AMB"
+                    firma = "AMBAR"
+                    nl = "AMBAR"
+                Case "IME"
+                    firma = "IMEX"
+                    nl = "IMX"
+                Case "UNAT", "ATSPED"
+                    firma = "UNISPED"
+                    nl = "ATSP"
+            End Select
+
+
+        End If
+
+    End Sub
+
 
 
     Sub addDGVEinarbeitung(art, BezugsNr)