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

AES Auto SpedBuch Eintrag, Zollstelle in Sepdbuch

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-21 23:36:30 +01:00
parent f302655459
commit 311eedea2f
5 changed files with 114 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -863,7 +863,8 @@ Public Class cDakosyEZA
Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
Shared Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If If(abfertigungsnummer, "") = "" Then Return 0
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL")
End Function
@@ -1010,7 +1011,7 @@ Public Class cDakosyEZA
Return ""
End Function
Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
Shared Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
If SND IsNot Nothing Then