Public Class cZollsysteme_Aktenbeschriftung Property Praeferenznachweis As String Property Handelsrechnung As String Property PräferenzAufRechnung As String Property Colli As String Property Gewicht As String Property num_Colli As Integer = 0 Property num_Gewicht As Double = 0 Property Rechnungspreis As String Property Warenbezeichung As String Property AbgabenKonto As String Property Garantie As String Property Absender As String Property Empfaenger As String Property Anmelder As String Property Vertreter As String Property Sachbearbeiter As String Property VerBestLandZst As String Property Vorpapier As String Property ATCMRN As String Property isUeT1 As Boolean = False Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL 'Sub New(BezugsNr, Abfertigungsart) ' getDataByBezugsnummer(BezugsNr, Abfertigungsart) 'End Sub Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As String If If(DY_Ref, "") <> "" Then BezugsNr = DY_Ref Else If BezugsNr.Length <= 12 Then Return "" BezugsNr = BezugsNr & "%" End If getATAMRNBezugsnummer = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "IMEX" ' Case "UNISPED" Case "" Case Else Select Case Abfertigungsart Case 38, 26 'AT ' getADFrom_EZOLL getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1 isUeT1 = (getATAMRNBezugsnummer <> "") 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, True) '... and Systeme Case Else getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) If getATAMRNBezugsnummer = "" Then 'Falls doch nicht getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True) End If End Select End Select End Function Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As Boolean If If(DY_Ref, "") <> "" Then BezugsNr = DY_Ref Else If BezugsNr.Length <= 12 Then Return False BezugsNr = BezugsNr & "%" End If 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, True) 'Ü-T1 isUeT1 = (getDataByBezugsnummer) 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, True) '... and Systeme Case Else getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) If Not getDataByBezugsnummer Then 'Falls doch nicht getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) End If End Select End Select 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 If s = addstring Then Return LIST Next LIST.Add(addstring) Return LIST End Function Function listToString(ByRef LIST As List(Of String)) As String listToString = "" For Each s In LIST listToString &= ", " & s Next If listToString <> "" Then listToString = listToString.Substring(2) End Function 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, 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 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 Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean Try If EZA Is Nothing Then Return False EZA.LOAD_Warenposition() ' If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2") Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") ATCMRN = If(EZA.eza_ANR, "") ' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") 'Property Absender As String 'Property Empfaenger As String 'Property Anmelder As String Dim RG_List As New List(Of String) Dim ATR_List As New List(Of String) Dim PAR_List As New List(Of String) ' präfAufRg Dim Colli As Integer = 0 Dim cnt As Integer = 0 If EZA.eza_WARENPOS.Count > 0 Then Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: " Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *") For Each POS In EZA.eza_WARENPOS For Each UL In POS.ezaWP_UNTERLAGEN If UL.ezaWpUl_Art IsNot Nothing Then Select Case UL.ezaWpUl_Art Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) 'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) End Select End If Next If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl cnt += 1 Next End If num_Colli = Colli Me.Colli = Colli & " Pk." For Each AD In EZA.eza_ADRESSEN If AD.ezaAd_AdressTyp IsNot Nothing Then Dim Anschrift = (If(AD.ezaAd_TeilnehmerEORI, "") & " " & If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "")).ToString.Trim Select Case AD.ezaAd_AdressTyp Case "CZ" : Absender = Anschrift Case "CN" : Empfaenger = Anschrift Case "DT" : Anmelder = Anschrift Case "CB" : Vertreter = Anschrift End Select End If Next Sachbearbeiter = If(EZA.eza_Bearbeiter, "") VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "") If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "") If If(EZA.eza_Bestimmungsland, "") = "DE" Then If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle Else If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle End If Handelsrechnung = listToString(RG_List) Praeferenznachweis = listToString(ATR_List) PräferenzAufRechnung = listToString(PAR_List) Dim AUFSCHUB_List As New List(Of String) For Each AB In EZA.eza_AUFSCHUB Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim addIfNotExists(AUFSCHUB_List, kto & load_KdFromAKto(kto)) Next If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then Vorpapier = EZA.eza_VorpapierArtCode If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr End If AbgabenKonto = listToString(AUFSCHUB_List) Return True Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False End Try Return False End Function 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 Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut) As Boolean Try If NCTS Is Nothing Then Return Nothing NCTS.LOAD_Warenposition() ' If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") ' Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "") 'Property Absender As String 'Property Empfaenger As String 'Property Anmelder As String Dim RG_List As New List(Of String) Dim ATR_List As New List(Of String) Dim PAR_List As New List(Of String) ' präfAufRg Dim Colli As Integer = 0 Dim cnt As Integer = 0 Dim Warenwert As Double = 0 Dim WarenwertWaehrung As String = "" If NCTS.ncts_WARENPOS.Count > 0 Then Me.Warenbezeichung = NCTS.ncts_WARENPOS.Count & " POS: " Me.Warenbezeichung &= If(NCTS.ncts_WARENPOS.Count = 1, If(NCTS.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, ""), "* diverse *") For Each POS In NCTS.ncts_WARENPOS For Each UL In POS.nctsWP_UNTERLAGEN If UL.nctsWpUl_Typ IsNot Nothing Then Select Case UL.nctsWpUl_Typ Case "380" : addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, "")) End Select End If Next For Each UL In POS.nctsWP_PACKSTUECKE If IsNumeric(If(UL.nctsWpPk_PackstueckeAnzahl, "")) Then Colli += UL.nctsWpPk_PackstueckeAnzahl Next If cnt = 0 Then WarenwertWaehrung = If(POS.nctsWP_WarenwertWaehrung, "") If IsNumeric(If(POS.nctsWP_Warenwert, "")) Then Warenwert += POS.nctsWP_Warenwert cnt += 1 Next End If num_Colli = Colli Me.Colli = Colli & " Pk." Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung Absender = (If(NCTS.ncts_Versender_EORI, "") & " " & If(NCTS.ncts_Versender_Name, "") & " " & If(NCTS.ncts_Versender_Land, "") & " " & If(NCTS.ncts_Versender_Ort, "")).ToString.Trim Empfaenger = (If(NCTS.ncts_Empfaenger_EORI, "") & " " & If(NCTS.ncts_Empfaenger_Name, "") & " " & If(NCTS.ncts_Empfaenger_Land, "") & " " & If(NCTS.ncts_Empfaenger_Ort, "")).ToString.Trim Anmelder = (If(NCTS.ncts_Hauptverpflichteter_EORI, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Name, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Land, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Ort, "")).ToString.Trim Sachbearbeiter = If(NCTS.ncts_Bearbeiter, "") ATCMRN = If(If(NCTS.ncts_MRN, "") = "", If(NCTS.ncts_ANR, ""), If(NCTS.ncts_MRN, "")) VerBestLandZst = If(NCTS.ncts_VersendungsLandCode, "") & " --> " If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "") If If(NCTS.ncts_SumA_BefoerderungsrouteLand1, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_SumA_BefoerderungsrouteLand1 If If(NCTS.ncts_SumA_BefoerderungsrouteLand2, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand2 If If(NCTS.ncts_SumA_BefoerderungsrouteLand3, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand3 If If(NCTS.ncts_SumA_BefoerderungsrouteLand4, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand4 If If(NCTS.ncts_SumA_BefoerderungsrouteLand5, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand5 If If(NCTS.ncts_SumA_BefoerderungsrouteLand6, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand6 If If(NCTS.ncts_SumA_BefoerderungsrouteLand7, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand7 If If(NCTS.ncts_SumA_BefoerderungsrouteLand8, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand8 If If(NCTS.ncts_SumA_BefoerderungsrouteLand9, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand9 If If(NCTS.ncts_SumA_BefoerderungsrouteLand10, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand10 If If(NCTS.ncts_SumA_BefoerderungsrouteLand11, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand11 If If(NCTS.ncts_SumA_BefoerderungsrouteLand12, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand12 VerBestLandZst &= " --> " & If(NCTS.ncts_BestimmungslandCode, "") & ", " VerBestLandZst &= If(NCTS.ncts_AbgangsDienststellennummer, "") & " --> " If If(NCTS.ncts_DurchgangszollstelleDienststellnummer1, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer1 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer2, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer2 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer3, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer3 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer4, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer4 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer5, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer5 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer6, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer6 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer7, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer7 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer8, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer8 If If(NCTS.ncts_DurchgangszollstelleDienststellnummer9, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer9 If If(NCTS.ncts_BestimmungsstelleDienststellennummer, "") <> "" Then VerBestLandZst &= " --> " & NCTS.ncts_BestimmungsstelleDienststellennummer VerBestLandZst = VerBestLandZst.Replace(" --> --> ", " --> ") Handelsrechnung = listToString(RG_List) Praeferenznachweis = listToString(ATR_List) PräferenzAufRechnung = listToString(PAR_List) Dim AUFSCHUB_List As New List(Of String) Dim GRNBetrag As Double = 0 For Each AB In NCTS.ncts_SICHERHEITSANGABEN addIfNotExists(AUFSCHUB_List, (If(AB.nctsSA_GRN, "")).Trim) If IsNumeric(If(AB.nctsSA_AbgabenBetrag, "")) Then GRNBetrag += AB.nctsSA_AbgabenBetrag Next Garantie = listToString(AUFSCHUB_List) Garantie &= ", " & GRNBetrag.ToString("C2") Return True Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return Nothing End Try Return False End Function Function load_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As Boolean Try If DY_TMP Is Nothing Then Return Nothing If NCTS_TMP Is Nothing Then Return Nothing NCTS_TMP.LOAD_Warenposition() num_Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, 0) Me.Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, "") & " Pk." If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") Dim RG_List As New List(Of String) Dim ATR_List As New List(Of String) Dim NAR_List As New List(Of String) For Each POS In NCTS_TMP.ncts_WARENPOS For Each UL In POS.nctsWP_UNTERLAGEN If UL.nctsWpUl_Typ = 380 Then addIfNotExists(RG_List, UL.nctsWpUl_Referenz) If UL.nctsWpUl_Typ = 380 Then addIfNotExists(ATR_List, UL.nctsWpUl_Referenz) If UL.nctsWpUl_Typ = 380 Then addIfNotExists(NAR_List, UL.nctsWpUl_Referenz) Next Next Return True Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return Nothing End Try Return False End Function Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & " FROM zsAnmRefs" & " WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" & " ORDER BY GeaendertAm DESC", "EZOLL") If dEZOLL Is Nothing Then Return Nothing If dEZOLL.Rows.Count = 0 Then Return Nothing Dim r As DataRow = dEZOLL.Rows(0) Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId) End Function Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim LRN = "" Try ' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default Dim Bestimmungszollstelle = "" Dim Bürgschaft = "" Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & " FROM zsAnmRefs" & " WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" & " ORDER BY GeaendertAm DESC", "EZOLL") If dEZOLL Is Nothing Then Return Nothing If dEZOLL.Rows.Count = 0 Then Return Nothing 'TextBox2.ForeColor = Color.Green Dim r As DataRow = dEZOLL.Rows(0) LRN = r.Item("LRN") If Not SQL.IsNull(r.Item("OperatorID")) Then Select Case r.Item("OperatorID") Case "1" VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Department = "SUB" Case "2" VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Department = "SBG" Case "3" VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Department = "NKD" Case "4", "5" VERAG_NCTS.Company = "ATILLA" VERAG_NCTS.Department = "SUB" Case "6" If LRN.StartsWith("4801") Then VERAG_NCTS.Company = "ATILLA" Else VERAG_NCTS.Company = "VERAG" End If VERAG_NCTS.Department = "SUB" Case "8" VERAG_NCTS.Company = "DURMAZ" VERAG_NCTS.Department = "SBG" Return Nothing Case Else VERAG_NCTS.Company = "ATILLA" VERAG_NCTS.Department = "SUB" End Select End If VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default VERAG_NCTS.ProcessData.MRN = r.Item("CRN") VERAG_NCTS.ProcessData.ReferenzNumber = LRN Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) Case "F" VERAG_NCTS.ProcessData.Status = 50 Case "FB" VERAG_NCTS.ProcessData.Status = 60 Case Else VERAG_NCTS.ProcessData.Status = 0 End Select Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If DTzsAnmHea.Rows().Count > 0 Then Dim rDTzsAnmHea = DTzsAnmHea.Rows(0) VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy") VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0") VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT")) End If VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) 'BestimmungsstelleDienststelle Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If DTzsAnmDestCo.Rows().Count > 0 Then If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref") End If ' Kennzeichen Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If DTzsAnmTransp.Rows().Count > 0 Then If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt") End If End If 'Versender Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If DTzsAnmSender.Rows().Count > 0 Then VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na") If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst") If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt") If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty") If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry") VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry") End If If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN") 'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") 'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") End If 'Empfänger Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If DTzsAnmConeeTra.Rows().Count > 0 Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na") If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst") If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt") If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty") If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry") VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry") End If If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN") 'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") 'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") End If 'Frächter Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If DTzsAnmCarrier.Rows().Count > 0 Then VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na") If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst") If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt") If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty") If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry") If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN") 'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") End If ' Tabelle zsAnmGrteeGrteeRef lesen. Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" & " FROM zsAnmGrteeGrteeRef" & " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" & " ORDER BY GrteeID, GrteeRefID", "EZOLL") If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0 For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows() If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN") If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal") Next End If 'POSITIONEN Dim cntPos = 1 Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL") If DTzsAnmGdsitem.Rows().Count > 0 Then For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows() Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition V_POS.PosNr = cntPos Dim pkGes = 0 Dim pkArt = "" Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL") If DTzsAnmGdsitemPk.Rows().Count > 0 Then For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows() If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind") If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr") Next End If V_POS.Quantity = pkGes V_POS.Packaging = pkArt If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross") V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes") VERAG_NCTS.NCTS_Data.Position.Add(V_POS) cntPos += 1 Next End If UniqueId = AnmID Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return Nothing End Try Return VERAG_NCTS End Function Shared Function getGRTY_fromEZOLL(LRN As String) As String Try Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL") Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" End Function Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Try If NCTS_TMP Is Nothing Then Return Nothing If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing ' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default If NCTS_TMP.telanm_firma <> "" Then VERAG_NCTS.Company = NCTS_TMP.telanm_firma Else VERAG_NCTS.Company = "IMEX" End If VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung 'VERAG_NCTS.InternalReference.OfficeCode = If( 'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung Select Case NCTS_TMP.telanm_Status Case < 50 VERAG_NCTS.ProcessData.Status = 0 Case 50, 53 VERAG_NCTS.ProcessData.Status = 50 Case 60 VERAG_NCTS.ProcessData.Status = 60 End Select VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "") VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "") VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "") VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.CtrlRslt_DLimit, "") VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "") VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "") VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "") VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "") 'Versender VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "") VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "") 'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "") VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "") VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "") VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "") VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "") 'Empfänger VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "") VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "") 'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "") ''Frächter 'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "") 'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "") ''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "") 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "") 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "") 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "") 'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "") If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "") VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0") End If VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0") Dim cntPos = 1 If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then For Each POS In NCTS_TMP.POSITIONSDATEN Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition V_POS.PosNr = cntPos Dim pkGes = 0 Dim pkArt = "" If POS.PACKSTUECKE IsNot Nothing Then For Each PK In POS.PACKSTUECKE If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind Next End If V_POS.Quantity = pkGes V_POS.Packaging = pkArt V_POS.GrossWeight = POS.Item_Gross V_POS.GoodsDescription = POS.Item_GdsDes VERAG_NCTS.NCTS_Data.Position.Add(V_POS) cntPos += 1 Next End If UniqueId = NCTS_TMP.telanm_id 'If XMLFilePath = "" Then ' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\" ' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) ' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml" 'End If 'VERAG_NCTS.SaveToFile(XMLFilePath) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return Nothing End Try Return VERAG_NCTS End Function Shared Function insertFTPLOG(filePath As String, user As String, NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem As String) Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','" & vorsystem & "')", "FMZOLL") End Function Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem) Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL") End Function End Class