diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index a093486..68aa7e8 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1192,8 +1192,10 @@ Public Class cDakosyEZA Try Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.aes_dyaAnmID) - SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId - SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId + 'SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId + 'SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId + SPEDITIONSBUCH.DokumentId_ABD = ANM.dy_ABD_dsId + SPEDITIONSBUCH.DokumentId_AVM = ANM.dy_AVM_dsId Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) diff --git a/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb b/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb index 636d63b..705e1e4 100644 --- a/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb +++ b/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb @@ -16,6 +16,8 @@ Public Class cDakosy_Zollanmeldungen Property dy_LetzteBearbeitung_SB As Object = Nothing Property dy_Steuerbescheid_dsId As Object = Nothing Property dy_VBD_dsId As Object = Nothing + Property dy_ABD_dsId As Object = Nothing + Property dy_AVM_dsId As Object = Nothing Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -57,6 +59,8 @@ Public Class cDakosy_Zollanmeldungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Steuerbescheid_dsId", dy_Steuerbescheid_dsId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_VBD_dsId", dy_VBD_dsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_ABD_dsId", dy_ABD_dsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_AVM_dsId", dy_AVM_dsId)) Return list End Function