neu

TELOTEK_Worker_lib/cTC_Paramter.vb

@@ -3,6 +3,6 @@ Public Class cTC_Paramter
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
-        Return SQL.getValueTxtBySql("SELECT TOP 1 [tcParam_value]  FROM [tblTelotec_Paramter] WHERE  [tcParam_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        Return SQL.getValueTxtBySql("SELECT TOP 1 [tcParam_value]  FROM [tblTelotec_Paramter] WHERE  [tcParam_name]='" & tcParam_name & "'", "FMZOLL", , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
     End Function
 End Class

TELOTEK_Worker_lib/cTelokec.vb

@@ -721,7 +721,6 @@ Public Class cTelotec_Anmeldung
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
         notFound = False
-
         Select Case art
             Case "EZA", "EUA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
             Case "NCTS" : TELOTECDatenbereitstellung_NCTS(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
@@ -782,7 +781,7 @@ Public Class cTelotec_Anmeldung
 
 
             'Empfänger
-            If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") Then
+            If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then
                 Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL)
                 If AD IsNot Nothing Then
                     SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
@@ -817,6 +816,10 @@ Public Class cTelotec_Anmeldung
             ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
             SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross
 
+            'Anhang
+            If If(DY.Refs_CRN, "") <> String.Empty Then
+                getStbFromAnmId(DY.Refs_CRN, SPEDITIONSBUCH.DokumentId_Steuerbeleg, SPEDITIONSBUCH.DokumentId_Mitteilung)
+            End If
 
             'Personal Abfertigung:
             Try
@@ -864,6 +867,28 @@ Public Class cTelotec_Anmeldung
 
     End Sub
 
+    Shared Function getStbFromAnmId(LRN, ByRef StbId, ByRef MittId) As Boolean
+        Try
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+                If StbId Is Nothing OrElse StbId.ToString = String.Empty Then StbId = SQL.getValueTxtBySql("SELECT telanm_Steuerbescheid_dsId FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "'  ", "FMZOLL",,, Nothing)
+                If MittId Is Nothing OrElse MittId.ToString = String.Empty Then MittId = SQL.getValueTxtBySql("SELECT [telanm_Mitteilung_dsId] FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "'  ", "FMZOLL",,, Nothing)
+
+            Return True
+        Catch : End Try
+        Return False
+    End Function
+
+
+    Shared Function getVdbFromAnmId(LRN, ByRef VdbId) As Boolean
+        Try
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            If VdbId Is Nothing OrElse VdbId.ToString = String.Empty Then VdbId = SQL.getValueTxtBySql("SELECT [telanm_VBD_dsId] FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "'  ", "FMZOLL",,, Nothing)
+            Return True
+        Catch : End Try
+        Return False
+    End Function
+
     Public Shared Sub TELOTECDatenbereitstellung_NCTS(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByRef PosAnzahl As Integer)
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -991,6 +1016,11 @@ Public Class cTelotec_Anmeldung
             If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp)
 
 
+            'Anhang
+            If If(DY.Refs_CRN, "") <> String.Empty Then
+                getVdbFromAnmId(DY.Refs_CRN, SPEDITIONSBUCH.DokumentId_VBD)
+            End If
+
         Catch ex As Exception
             MsgBox("ERR: " & ex.Message & ex.StackTrace)
         End Try