edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DY_GenerellesErgebnis-> NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-12-18 15:29:25 +01:00
parent 4b4a4a3286
commit 17d24140cb
13 changed files with 1911 additions and 168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -1400,10 +1400,10 @@ Public Class cZOLL_IMPORT
Function getAdresseFromEORI(EORI, EORI_NL)
Function getAdresseFromEORI(EORI, EORI_NL, Firma)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL)
Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE
@@ -1742,7 +1742,7 @@ Public Class cZOLL_IMPORT
Dim kdnr_tmp As String = ""
If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then
kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori, eori_NL)
kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori, eori_NL, "VERAG")
If IsNull(kdnr_tmp) Then
If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then
kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr)