NEU
This commit is contained in:
@@ -29,6 +29,9 @@
|
||||
'End Sub
|
||||
|
||||
Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String) As String
|
||||
If BezugsNr.Length <= 12 Then Return ""
|
||||
|
||||
BezugsNr = BezugsNr & "%"
|
||||
getATAMRNBezugsnummer = ""
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "IMEX"
|
||||
@@ -38,15 +41,16 @@
|
||||
Select Case Abfertigungsart
|
||||
Case 38, 26 'AT
|
||||
' getADFrom_EZOLL
|
||||
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr) 'Ü-T1
|
||||
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1
|
||||
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
|
||||
Case 1, 2, 3, 28, 39
|
||||
getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr)
|
||||
getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True)
|
||||
'... and Systeme
|
||||
|
||||
Case Else
|
||||
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr)
|
||||
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True)
|
||||
If getATAMRNBezugsnummer = "" Then 'Falls doch nicht
|
||||
getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr)
|
||||
getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True)
|
||||
End If
|
||||
End Select
|
||||
End Select
|
||||
@@ -54,6 +58,8 @@
|
||||
End Function
|
||||
|
||||
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
|
||||
If BezugsNr.Length <= 12 Then Return ""
|
||||
BezugsNr = BezugsNr & "%"
|
||||
getDataByBezugsnummer = False
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "UNISPED"
|
||||
@@ -62,19 +68,20 @@
|
||||
Select Case Abfertigungsart
|
||||
Case 38, 26 'AT
|
||||
' getADFrom_EZOLL
|
||||
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr)'Ü-T1
|
||||
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) 'Ü-T1
|
||||
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
|
||||
Case 1, 2, 3, 28, 39
|
||||
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr)
|
||||
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
|
||||
'... and Systeme
|
||||
|
||||
Case Else
|
||||
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr)
|
||||
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True)
|
||||
If Not getDataByBezugsnummer Then 'Falls doch nicht
|
||||
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr)
|
||||
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
|
||||
End If
|
||||
End Select
|
||||
End Select
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
@@ -96,22 +103,22 @@
|
||||
End Function
|
||||
|
||||
|
||||
Function load_EZA_ATA_FromDAKOSY(BezugsNr) As String
|
||||
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
|
||||
Function load_EZA_ATA_FromDAKOSY(BezugsNr, Optional checkValidStatus = False) As String
|
||||
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True, checkValidStatus)
|
||||
If EZA Is Nothing Then Return ""
|
||||
Return If(EZA.eza_ANR, If(EZA.eza_MRN, ""))
|
||||
End Function
|
||||
|
||||
Function load_NCTS_MRN_FromDAKOSY(BezugsNr) As String
|
||||
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
|
||||
Function load_NCTS_MRN_FromDAKOSY(BezugsNr, Optional checkValidStatus = False) As String
|
||||
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True, checkValidStatus)
|
||||
If NCTS Is Nothing Then Return ""
|
||||
Return If(NCTS.ncts_MRN, If(NCTS.ncts_ANR, ""))
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Function load_EZA_FromDAKOSY(BezugsNr) As Boolean
|
||||
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
|
||||
Function load_EZA_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
|
||||
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True, True)
|
||||
If EZA Is Nothing Then Return False
|
||||
Return load_EZA_FromDAKOSY(EZA)
|
||||
End Function
|
||||
@@ -119,7 +126,7 @@
|
||||
|
||||
Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean
|
||||
Try
|
||||
If EZA Is Nothing Then Return Nothing
|
||||
If EZA Is Nothing Then Return False
|
||||
EZA.LOAD_Warenposition()
|
||||
|
||||
'
|
||||
@@ -185,7 +192,8 @@
|
||||
|
||||
Dim AUFSCHUB_List As New List(Of String)
|
||||
For Each AB In EZA.eza_AUFSCHUB
|
||||
addIfNotExists(AUFSCHUB_List, (If(AB.ezaAfb_KontoNr, "")).Trim)
|
||||
Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim
|
||||
addIfNotExists(AUFSCHUB_List, kto & load_KdFromAKto(kto))
|
||||
Next
|
||||
|
||||
AbgabenKonto = listToString(AUFSCHUB_List)
|
||||
@@ -194,13 +202,17 @@
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
Return False
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(BezugsNr) As Boolean
|
||||
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
|
||||
Function load_KdFromAKto(kto) As String
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 Ordnungsbegriff FROM [tblKundenAufschubkonten] inner join adressen on adressennr = [kdAkto_KundenNr] where kdAkto_hauptzollamt + kdAkto_kontonummer ='" & kto & "'", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
|
||||
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True, checkValidStatus)
|
||||
If NCTS Is Nothing Then Return False
|
||||
Return load_NCTS_FromDAKOSY(NCTS)
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user