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

Greenpulse, VERA_Customseclarations

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-05 15:27:35 +01:00
parent 1976d4f509
commit 6b44360ed4
7 changed files with 269 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
DAKOSY_Worker/cImporter_DHFToVERAG.vb
View File

@@ -35,6 +35,7 @@ Public Class cImporter_DHFToVERAG
' MsgBox(AnmID)
Dim LRN As String = ToStringSafe(rRef("LRN"))
' ---------------------------------------------------------------
' DUPLIKAT
' ---------------------------------------------------------------
@@ -63,10 +64,19 @@ Public Class cImporter_DHFToVERAG
ZA.za_MRN = CRN
ZA.za_LRN = LRN
getFirmaNLFrom_OP(OperatorID, ZA.za_Firma, ZA.za_Niederlassung)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", LRN)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)
ZA.za_DeclarationDate = ToNullableDate(h("DecDT"))
ZA.za_AcceptanceDate = ToNullableDate(h("AccDT"))
ZA.za_ReleaseDate = ToNullableDate(h("DecDT"))
ZA.za_TotGrossMass = ToNullableDecimal(h("TotGross"))
''ZA.za_CountryDispatch = ToStringSafe(h("Locs_Disp"))
' ZA.za_CountryDestination = ToStringSafe(h("Locs_Dest"))
ZA.za_CountryImport = "AT"
@@ -85,9 +95,21 @@ Public Class cImporter_DHFToVERAG
If dtTransp.Rows.Count > 0 Then
ZA.za_MeansOfTransport_Vehicle = ToStringSafe(dtTransp.Rows(0)("DepIdnt"))
ZA.za_TransportModeInland = ToStringSafe(dtTransp.Rows(0)("InMo"))
ZA.za_TransportModeBorder = ToStringSafe(dtTransp.Rows(0)("BordMo"))
End If
' ---------------------------------------------------------------
' TRANSPORT (zsAnmTransp)
' ---------------------------------------------------------------
Dim dtAnmRepresent = SQL.loadDgvBySql(
$"SELECT * FROM [zsAnmRepresent] WHERE LizenzNr='{LizenzNr}' AND OperatorID={OperatorID} AND VorgangID='{VorgangID}' AND AnmID={AnmID}",
EZOLL_DB)
If dtAnmRepresent.Rows.Count > 0 Then
ZA.za_Sachbearbeiter = ToStringSafe(dtAnmRepresent.Rows(0)("Na"))
End If
' ---------------------------------------------------------------
' VALUE DATA (zsAnmValData)
' ---------------------------------------------------------------
@@ -131,20 +153,17 @@ Public Class cImporter_DHFToVERAG
it.zaItem_PosNo = r("GdsItemID")
it.zaItem_HSCode = ToStringSafe(r("ComCd"))
it.zaItem_HSAddCodes4 = ToStringSafe(r("ComCd"))
it.zaItem_Description = ToStringSafe(r("GdsDes"))
it.zaItem_OriginCountry = ToStringSafe(r("Orig"))
it.zaItem_NetMass = ToNullableDecimal(r("Net"))
it.zaItem_InvoiceValueEUR = ToNullableDecimal(r("ItVal"))
it.zaItem_StatisticalValueEUR = ToNullableDecimal(r("StatVal"))
it.zaItem_StatisticalValueEUR = ToNullableDecimal(r("StatVal"))
it.zaItem_StatisticalValueEUR = ToNullableDecimal(r("StatVal"))
LoadEZOLL_HSAddCodes(it, LizenzNr, OperatorID, VorgangID, AnmID, r("GdsItemID"))
LoadEZOLL_ItemDocuments(it, LizenzNr, OperatorID, VorgangID, AnmID)
it.zaItem_MainProcedure = ToStringSafe(r("ProcCd"))
it.zaItem_AdditionalProc = ToStringSafe(r("ProcAddCd"))
it.zaItem_OriginCountry = ToStringSafe(r("Orig"))
it.zaItem_PreferenceCode = ToStringSafe(r("Pref"))
it.zaItem_QuotaNo = ToStringSafe(r("Quota"))
' -------------------------------
@@ -302,7 +321,7 @@ Public Class cImporter_DHFToVERAG
' =====================================================================
' HELPER
' =====================================================================
' =====================================================================
Private Sub AddPartyFromEZOLL(ByRef ZA As cVERAG_CustomsDeclarations,
role As String,
tableName As String,
@@ -315,6 +334,7 @@ Public Class cImporter_DHFToVERAG
If dt.Rows.Count = 0 Then Exit Sub
Dim r = dt.Rows(0)
Dim p As New cVERAG_CustomsDeclarations_Parties With {
.zaParty_Role = role,
.zaParty_Name = ToStringSafe(r("Na")),
@@ -324,9 +344,32 @@ Public Class cImporter_DHFToVERAG
.zaParty_Country = ToStringSafe(r("Ctry")),
.zaParty_EORI = ToStringSafe(r("TIN"))
}
If role = "DECLARANT" Then
ZA.za_RepresentationCode = ToStringSafe(r("DecRep"))
End If
If role = "IMPORTER" Then
ZA.za_CountryDestination = p.zaParty_Country
End If
If role = "EXPORTER" Then
ZA.za_CountryDispatch = p.zaParty_Country
End If
ZA.Parties.Add(p)
End Sub
Private Sub getFirmaNLFrom_OP(OperatorID As String, ByRef Firma As String, ByRef NL As String)
Select Case OperatorID
Case 1 : Firma = "VERAG" : NL = "SUB"
Case 2 : Firma = "VERAG" : NL = "SBG"
Case 3 : Firma = "VERAG" : NL = "NKD"
Case 4 : Firma = "VERAG" : NL = "SUB"
Case 5 : Firma = "ATILLA" : NL = "SUB"
Case 6 : Firma = "VERAG" : NL = "SUB"
Case 8 : Firma = "DURMAZ" : NL = "SUB"
End Select
End Sub
Private Sub LoadEZOLL_HSAddCodes(ByRef item As cVERAG_CustomsDeclarations_Item,
LizenzNr As String,