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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -1203,6 +1203,7 @@ Public Class cDakosy_EZA_Adressen
Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL,
Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL,
Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL,
' Property ezaAd_VERAGKdNr As Object = Nothing ' VARCHAR (35) NULL,
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1233,6 +1234,7 @@ Public Class cDakosy_EZA_Adressen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Bewilligungsnummer", ezaAd_Bewilligungsnummer)) ' VARCHAR (35) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsFachVerfahren", ezaAd_BewilligungsFachVerfahren)) ' VARCHAR (35) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsnummerEndverwender", ezaAd_BewilligungsnummerEndverwender)) ' VARCHAR (35) NULL,
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_VERAGKdNr", ezaAd_VERAGKdNr)) ' VARCHAR (35) NULL,
Return list
End Function

2
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb
View File

@@ -866,7 +866,7 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.Abfertigungsart = 6
For Each s In DY.ncts_SICHERHEITSANGABEN
Select Case If(s.nctsSA_GRN, "")
Case "15TR0004000020917", "12TR0004000004665" : SPEDITIONSBUCH.Abfertigungsart = 34
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" : SPEDITIONSBUCH.Abfertigungsart = 34
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
End Select

15
DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb
View File

@@ -84,7 +84,20 @@ Public Class cDakosy_Zollanmeldungen
Dim split = Me.dy_BezugsNr.Split("/")
If split.Length >= 2 Then
srchStrFiliale = split(0)
srchStrAbf = split(1)
'Wenn Abfertigungsnummer korrekt gefunden wurde...
If IsNumeric(split(1)) Then
srchStrAbf = split(1)
Else
Dim tmp = ""
'Bis zum ersten Buchstaben...
For Each s In split(1)
If IsNumeric(s) Then : tmp &= s
Else : Exit For : End If
Next
srchStrAbf = tmp
End If
' ElseIf Then
' srchStrAbf = split(X)
Else