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
2021-11-18 14:59:04 +01:00
parent 05280436a4
commit 98378dd496
51 changed files with 4647 additions and 763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1059,10 +1059,16 @@ Public Class cDakosyEZA
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace)
End Try
'Falls DocId nicht gefunden wird.. warum auch immer..
If SPEDITIONSBUCH.DokumentId_Steuerbeleg Is Nothing Then
SPEDITIONSBUCH.DokumentId_Steuerbeleg = SQL.getValueTxtBySql("SELECT [da_id] FROM tblDatenarchiv where da_kategorie='ZOLLDATEN' and [da_ordner]='STEUERBESCHEID' and da_name='" & SPEDITIONSBUCH.AtlasBezNrEZA.Replace("/", "-") & "' ", "FMZOLL",,, Nothing)
End If
SPEDITIONSBUCH.Versendungsland = DY.eza_VersendungsLandCode
SPEDITIONSBUCH.Bestimmungsland = DY.eza_Bestimmungsland

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

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

2
DAKOSY_Worker/cIMPORT_Codelisten.vb
View File

@@ -989,7 +989,7 @@ Public Class cDY_Paramter
Shared Function GET_PARAM_ByName(dyParam_name, TESTSYSTEM, Optional FIRMA_DY = "") As String
If FIRMA_DY = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "' AND dyParam_firma='" & FIRMA_DY & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "' AND dyParam_firma='" & FIRMA_DY & "'", "FMZOLL", , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
End Function
End Class

1
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -1180,6 +1180,7 @@ Public Class cZOLL_IMPORT
Private Sub AtlasNCTSDatenbereitstellung(NCTS_Nr)
'Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)