This commit is contained in:
2023-09-27 15:03:59 +02:00
parent 39295b2800
commit 3cd14926ac
3 changed files with 5 additions and 4 deletions

View File

@@ -1414,8 +1414,8 @@ Public Class cDakosyNCTSOut004
End If End If
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
Try Try
Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID) Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)
SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId

View File

@@ -558,7 +558,8 @@ Public Class cZOLL_IMPORT
End If End If
ElseIf NCTS_Nr <> "" Then ElseIf NCTS_Nr <> "" Then
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound) DAKOSY_Worker.cDakosyNCTSOut004.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound)
If notFound Then DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound)
Else End If Else End If
Me.notFound = notFound Me.notFound = notFound
Case 3 'telotec Case 3 'telotec

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.2.0")> <Assembly: AssemblyVersion("1.2.2.1")>
<Assembly: AssemblyFileVersion("1.2.2.0")> <Assembly: AssemblyFileVersion("1.2.2.1")>