neu

2019-11-26 14:42:17 +01:00
parent d4dfcd1744
commit de1d935624
13 changed files with 450 additions and 78 deletions
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
@@ -1561,6 +1561,7 @@ End Class


 Public Class cDakosy_EZA_Warenposition
+    Implements ICloneable
    'Property ezaWP_Id As Integer
    Property ezaWP_Id As Integer
    Property ezaWP_EzaId As Integer
@@ -1700,6 +1701,10 @@ Public Class cDakosy_EZA_Warenposition
    ' End Sub


+    Public Function Clone() As Object Implements ICloneable.Clone 'Muss noch probiert werden!
+        Return DirectCast(MemberwiseClone(), cDakosy_EZA_Warenposition)
+    End Function
+
    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Id", ezaWP_Id, , True, True))
--- a/DAKOSY_Worker/cDakosy_Statusmeldungen.vb
+++ b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb
@@ -9,7 +9,7 @@ Public Class cDakosy_Statusmeldungen
    Property dySt_BezugsNr As String = ""
    Property dySt_status As Integer = -1
    Property dySt_artMitteilung As String
-    Property dySt_ergCode As String
+    Property dySt_ergCode As String = ""
    Property dySt_ergMitteilung As String = ""
    Property dySt_ergZeitpunkt As Object = Nothing
    Property dySt_DakosyTransaktionsDatum As Object = Nothing
@@ -209,7 +209,7 @@ Public Class cDakosy_Statusmeldungen
            STATUS.dySt_dyId = dySt_dyId

            STATUS.dySt_status = dySt_status
-            STATUS.dySt_ergCode = dySt_ergCode
+            STATUS.dySt_ergCode = If(dySt_ergCode, "")
            STATUS.dySt_ergMitteilung = If(dySt_ergMitteilung <> "", dySt_ergMitteilung, cDY_Statusliste.getTxtByCode2(dySt_status, dy_ART))
            STATUS.dySt_ergZeitpunkt = dySt_ergZeitpunkt
            'EINTRAG IN tblDakosy_Zollanmeldungen
--- a/DAKOSY_Worker/cZOLL_IMPORT.vb
+++ b/DAKOSY_Worker/cZOLL_IMPORT.vb
@@ -323,6 +323,7 @@ Public Class cZOLL_IMPORT



+
        If avisoLinkId = 0 Or SendungId = 0 Then
            Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(If(EZA_Nr <> "", EZA_Nr, NCTS_Nr))
            If DY IsNot Nothing Then
@@ -340,6 +341,8 @@ Public Class cZOLL_IMPORT

        If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now.ToShortDateString

+        If SendungId > 0 Then SPEDITIONSBUCH.SendungID = SendungId
+
        '   Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
        If SendungId = 0 And SPEDITIONSBUCH.SendungID > 0 Then SendungId = SPEDITIONSBUCH.SendungID 'Falls falsch übergeben
        If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId)
@@ -385,6 +388,7 @@ Public Class cZOLL_IMPORT
                    BenutzerTmp = getBenutzerShort(BenutzerTmp)
                    If BelegNrTmp.EndsWith(",") Then BelegNrTmp = BelegNrTmp.Substring(0, BelegNrTmp.Length - 1)
                    SPEDITIONSBUCH.Bar = True
+
                    If SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & BenutzerTmp & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & BelegNrTmp & "/" & BetragTmp
                    If SPEDITIONSBUCH.Barzahlungsbetrag = 0 Then SPEDITIONSBUCH.Barzahlungsbetrag = BetragTmp

@@ -427,7 +431,7 @@ Public Class cZOLL_IMPORT
        End If

        If avisoLinkId > 0 Then
-
+            SPEDITIONSBUCH.AvisoID = avisoLinkId
            Dim sgut = CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID='" & avisoLinkId & "' ", "AVISO"))
            If sgut = 1 Then
                SPEDITIONSBUCH.SgutKompl = "K"
@@ -512,6 +516,15 @@ Public Class cZOLL_IMPORT

        '   If autoImport And Not notFound Then
        If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then
+            If SENDUNG.tblSnd_Abfertigungsart_ID = 23 Then
+                If SENDUNG.tblSnd_anzahlHandling IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_anzahlHandling) Then
+                    SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling
+                Else
+                    SPEDITIONSBUCH.Abfertigungsanzahl = 0
+                End If
+
+            End If
+
            If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
                'Überstellungs-T
                SPEDITIONSBUCH.Abfertigungsart = 5
@@ -532,6 +545,8 @@ Public Class cZOLL_IMPORT
        If SPEDITIONSBUCH.Währungsschlüssel Is Nothing OrElse (IsNumeric(SPEDITIONSBUCH.Währungsschlüssel) AndAlso SPEDITIONSBUCH.Währungsschlüssel <= 0) Then SPEDITIONSBUCH.Währungsschlüssel = 900

        If Personalnummer > 0 Then SPEDITIONSBUCH.Personalnummer = Personalnummer
+
+
        'notFound = Me.notFound

        If autoImport AndAlso Not checkIfAutoOK() Then
@@ -612,7 +627,7 @@ Public Class cZOLL_IMPORT
    Public Function checkIfAutoOK() As Boolean
        Try

-            If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then Return False
+            If SPEDITIONSBUCH.Personalnummer Is Nothing Then Return False
            If If(SPEDITIONSBUCH.Vermittler, "") = "" Then Return False
            If Not IsNumeric(If(SPEDITIONSBUCH.Abfertigungsart, "")) Then Return False
            If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then Return False
--- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
+++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
@@ -28,25 +28,56 @@
    '    getDataByBezugsnummer(BezugsNr, Abfertigungsart)
    'End Sub

-    Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
+    Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String) As String
+        getATAMRNBezugsnummer = ""
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX"
-            Case "UNISPED"
+            ' Case "IMEX"
+            ' Case "UNISPED"
+            Case ""
            Case Else
                Select Case Abfertigungsart
                    Case 38, 26 'AT
-                    '    getADFrom_EZOLL 
-                    Case 1, 2, 3, 28
-                        If load_EZA_FromDAKOSY(BezugsNr) Then Return True
+                        '    getADFrom_EZOLL 
+                        getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr) 'Ü-T1
+                    Case 1, 2, 3, 28, 39
+                        getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr)
                        '... and Systeme

-                    Case 5, 6
-                        If load_NCTS_FromDAKOSY(BezugsNr) Then Return True
+                    Case Else
+                        getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr)
+                        If getATAMRNBezugsnummer = "" Then 'Falls doch nicht    
+                            getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr)
+                        End If
+                End Select
+        End Select
+
+    End Function
+
+    Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
+        getDataByBezugsnummer = False
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            '  Case "UNISPED"
+            Case ""
+            Case Else
+                Select Case Abfertigungsart
+                    Case 38, 26 'AT
+                        '    getADFrom_EZOLL 
+                        getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr)'Ü-T1
+                    Case 1, 2, 3, 28, 39
+                        getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr)
+                        '... and Systeme
+
+                    Case Else
+                        getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr)
+                        If Not getDataByBezugsnummer Then 'Falls doch nicht    
+                            getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr)
+                        End If
                End Select
        End Select
        Return False
    End Function

+
    Function addIfNotExists(ByRef LIST As List(Of String), addstring As String) As List(Of String)
        If addstring = "" Then Return LIST
        For Each s In LIST
@@ -64,12 +95,28 @@
        If listToString <> "" Then listToString = listToString.Substring(2)
    End Function

+
+    Function load_EZA_ATA_FromDAKOSY(BezugsNr) As String
+        Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
+        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)
+        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)
        If EZA Is Nothing Then Return False
        Return load_EZA_FromDAKOSY(EZA)
    End Function

+
    Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean
        Try
            If EZA Is Nothing Then Return Nothing