neu

SDL/zoll/usrCntlBrgBuchungenFremd.vb

@@ -51,6 +51,7 @@ Public Class usrCntlBrgBuchungenFremd
             'DAKOSY:
             Dim sqlatr = " SELECT (SELECT TOP 1 CONVERT(varchar, [dySt_ergZeitpunkt] ,104 )  FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND  [dySt_status] = 50  ) as Datum, ncts_Befoerderungsmittel_KennzeichenAbgang as Kennzeichen, isnull(ncts_MRN,'') as MRN,  ncts_SumA_Befoerderer_Land as Land, nctsSA_AbgabenBetrag as GarantieBetrag, ncts_SumA_Befoerderer_Name as Firma " &
                  " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(ncts_BestimmungsstelleDienststellennummer,'') as Bestimmungsstelle ", "") & "  " &
+                 " ,ncts_ObjectName as Bezugsnummer " &
                  "FROM [tblDakosy_NCTSOut] INNER JOIN [tblDakosy_NCTSOut_Sicherheitsangaben] on ncts_Id=[nctsSA_NctsId] "
 
             sqlatr &= " WHERE nctsSA_GRN IN (" & cboBRG._value & ") and ncts_Status between 50 and 60  " ' CONVERT(date, ncts_Trans_DatumZeit ,104 )  BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "'"
@@ -66,6 +67,7 @@ Public Class usrCntlBrgBuchungenFremd
                     'EZOLL:
                     sqlatr = " Select TOP 100  AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert  as  Decimal(17,2))  as GarantieBetrag,(SELECT  [Na]  FROM [ezoll].[dbo].[zsAnmCarrTra]  where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma  "
                     sqlatr &= " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & "  "
+                    sqlatr &= " ,LRN as Bezugsnummer "
                     sqlatr &= "  FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
                     sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and cast( AnmeldungsDatum as date)  BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' "
 
@@ -89,7 +91,8 @@ Public Class usrCntlBrgBuchungenFremd
 
 
             If dt Is Nothing OrElse dt.Rows.Count = 0 Then lblErr.Visible = True : Exit Sub
-
+            getEmptyFraechter(dt)
+            dt.Columns.Remove("Bezugsnummer")
             cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)}, , "Bürgschaftsbuchungen " & cboBRG.Text, "Datum: " & Now.ToShortDateString)
 
 
@@ -98,6 +101,43 @@ Public Class usrCntlBrgBuchungenFremd
         End Try
     End Sub
 
+    Sub getEmptyFraechter(ByRef dt As DataTable)
+        If dt IsNot Nothing Then
+            For Each r In dt.Rows
+                Try
+                    If r("Firma") Is DBNull.Value OrElse r("Firma") = "" Then
+                        Dim Bezugsnummer = If(r("Bezugsnummer"), "")
+                        Dim FirmaTmp = ""
+                        Dim FirmaNat = ""
+                        Dim FirmaTmpKdNR = SQL.DLookup("isnull([FrachtführerKundenNr],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL")
+                        If IsNumeric(FirmaTmpKdNR) Then
+                            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(FirmaTmpKdNR)
+                            If AD.hasEntry Then
+                                FirmaTmp = AD.Name_1
+                                FirmaNat = AD.LandKz
+                            End If
+                        Else
+                            FirmaTmp = SQL.DLookup("isnull([Frachtführer],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL")
+                        End If
+
+                        If FirmaTmp.ToString.Contains(";") Then FirmaTmp = FirmaTmp.ToString.Split(";")(0)
+
+                        If FirmaTmp.Length > 30 Then
+                            FirmaTmp = FirmaTmp.ToString.Substring(0, 30)
+                        End If
+                        r("Firma") = FirmaTmp
+                        r("Land") = FirmaNat
+                    End If
+
+                Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+                End Try
+            Next
+        End If
+
+
+    End Sub
+
     Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
         cbxEZollDaten.Enabled = (MyComboBox1._value = "VERAG/ATILLA")
     End Sub