edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

NCTS 5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-24 23:03:25 +02:00
parent a9591ca6a7
commit 04664a652b
10 changed files with 1664 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

206
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -100,17 +100,25 @@ Public Class cZollsysteme_Aktenbeschriftung
Select Case Abfertigungsart
Case 38, 26 'AT
' getADFrom_EZOLL
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Ü-T1
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
End If
Case 1, 2, 3, 28, 39
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
'... and Systeme
Case Else
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
End If
End If
End Select
End Select
@@ -274,6 +282,11 @@ Public Class cZollsysteme_Aktenbeschriftung
If NCTS Is Nothing Then Return False
Return load_NCTS_FromDAKOSY(NCTS, PosNrAngeben)
End Function
Function load_NCTS004_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False, Optional PosNrAngeben As Boolean = False) As Boolean
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True, checkValidStatus)
If NCTS Is Nothing Then Return False
Return load_NCTS004_FromDAKOSY(NCTS, PosNrAngeben)
End Function
Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut, PosNrAngeben As Boolean) As Boolean
Try
@@ -389,6 +402,144 @@ Public Class cZollsysteme_Aktenbeschriftung
Return False
End Function
Function load_NCTS004_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut004, PosNrAngeben As Boolean) As Boolean
Try
If NCTS Is Nothing Then Return Nothing
NCTS.LOAD_HouseConsignment()
'
If IsNumeric(If(NCTS.ncts_GrossMass, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GrossMass).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS.ncts_GrossMass).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_HOUSE_CONSIGNMENT.Count > 0 Then
Me.Warenbezeichung = NCTS.ncts_HOUSE_CONSIGNMENT.Count & "/" & NCTS.GET_POSCNT & " POS: "
If NCTS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
Me.Warenbezeichung &= If(NCTS.GET_POSCNT = 1, If(NCTS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods, ""), "* diverse *")
End If
For Each HC In NCTS.ncts_HOUSE_CONSIGNMENT
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_1_Type, HCCI.nctsHCCI_SupportingDocument_1_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_2_Type, HCCI.nctsHCCI_SupportingDocument_2_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_3_Type, HCCI.nctsHCCI_SupportingDocument_3_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_4_Type, HCCI.nctsHCCI_SupportingDocument_4_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_5_Type, HCCI.nctsHCCI_SupportingDocument_5_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_6_Type, HCCI.nctsHCCI_SupportingDocument_6_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_7_Type, HCCI.nctsHCCI_SupportingDocument_7_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_8_Type, HCCI.nctsHCCI_SupportingDocument_8_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
addULNCTS004(RG_List, PosNrAngeben, HCCI.nctsHCCI_SupportingDocument_9_Type, HCCI.nctsHCCI_SupportingDocument_9_ReferenceNumber, HCCI.nctsHCCI_GoodsItemNumber)
If IsNumeric(If(HCCI.nctsHCCI_GoodsValue, "")) Then Warenwert += HCCI.nctsHCCI_GoodsValue
Next
cnt += 1
Next
If NCTS.GET_POSCNT = 1 Then
WarenwertWaehrung = If(NCTS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_CurrencyOfGoodsValue, "")
End If
Colli = NCTS.GET_PKCNT
End If
num_Colli = Colli
Me.Colli = Colli & " Pk."
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
Absender = (If(NCTS.ncts_Consignor_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignor_Name, "") & " " & If(NCTS.ncts_Consignor_Country, "") & " " & If(NCTS.ncts_Consignor_City, "")).ToString.Trim
Empfaenger = (If(NCTS.ncts_Consignee_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignee_Name, "") & " " & If(NCTS.ncts_Consignee_Country, "") & " " & If(NCTS.ncts_Consignee_City, "")).ToString.Trim
Anmelder = (If(NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber, "") & " " & If(NCTS.ncts_HolderOfTheTransitProcedure_Name, "") & " " & If(NCTS.ncts_HolderOfTheTransitProcedure_Country, "") & " " & If(NCTS.ncts_HolderOfTheTransitProcedure_City, "")).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_CountryOfDispatch, "") & " --> "
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
If If(NCTS.ncts_CountryOfRoutingOfConsignment_1, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_1
If If(NCTS.ncts_CountryOfRoutingOfConsignment_2, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_2
If If(NCTS.ncts_CountryOfRoutingOfConsignment_3, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_3
If If(NCTS.ncts_CountryOfRoutingOfConsignment_4, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_4
If If(NCTS.ncts_CountryOfRoutingOfConsignment_5, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_5
If If(NCTS.ncts_CountryOfRoutingOfConsignment_6, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_6
If If(NCTS.ncts_CountryOfRoutingOfConsignment_7, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_7
If If(NCTS.ncts_CountryOfRoutingOfConsignment_8, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_8
If If(NCTS.ncts_CountryOfRoutingOfConsignment_9, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_9
If If(NCTS.ncts_CountryOfRoutingOfConsignment_10, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_10
If If(NCTS.ncts_CountryOfRoutingOfConsignment_11, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_11
If If(NCTS.ncts_CountryOfRoutingOfConsignment_12, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_12
If If(NCTS.ncts_CountryOfRoutingOfConsignment_13, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_13
If If(NCTS.ncts_CountryOfRoutingOfConsignment_14, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_14
If If(NCTS.ncts_CountryOfRoutingOfConsignment_15, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_CountryOfRoutingOfConsignment_15
VerBestLandZst &= " --> " & If(NCTS.ncts_CountryOfDestination, "") & ", "
VerBestLandZst &= If(NCTS.ncts_CustomsOfficeOfDeparture, "") & " --> "
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber
If If(NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber
If If(NCTS.ncts_CustomsOfficeOfDestinationDeclared, "") <> "" Then VerBestLandZst &= " --> " & NCTS.ncts_CustomsOfficeOfDestinationDeclared
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_GUARANTEE
addIfNotExists(AUFSCHUB_List, (If(AB.nctsGRT_GRN, "")).Trim)
If IsNumeric(If(AB.nctsGRT_AmountToBeCovered, "")) Then GRNBetrag += AB.nctsGRT_AmountToBeCovered
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
Sub addULNCTS004(ByRef RG_List, PosNrAngeben, SupportingDocument_Type, SupportingDocument_ReferenceNumber, nctsHCCI_GoodsItemNumber)
Select Case If(SupportingDocument_Type, "")
Case "N380", "N325"
If PosNrAngeben Then
addIfNotExists(RG_List, If(SupportingDocument_ReferenceNumber, "") & " (" & nctsHCCI_GoodsItemNumber & ")")
Else
addIfNotExists(RG_List, If(SupportingDocument_ReferenceNumber, ""))
End If
End Select
End Sub
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
@@ -419,21 +570,52 @@ Public Class cZollsysteme_Aktenbeschriftung
Return False
End Function
'Function load_NCTS004_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, 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_HouseConsignment()
' num_Colli = NCTS_TMP.GET_PKCNT
' Me.Colli = NCTS_TMP.GET_PKCNT & " Pk."
' If IsNumeric(If(NCTS_TMP.ncts_GrossMass, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GrossMass).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS_TMP.ncts_GrossMass).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.LOAD_HouseConsignment
' 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" &
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
If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing
Dim r As DataRow = dEZOLL.Rows(0)
Dim r As DataRow = dEZOLL.Rows(0)
Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
End Function
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
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