737 lines
41 KiB
VB.net
737 lines
41 KiB
VB.net
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 "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
|