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

CBAM, VERAG Cust

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-07 22:29:08 +01:00
parent 6b44360ed4
commit 355058cefd
8 changed files with 247 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
DAKOSY_Worker/cImporter_DHFToVERAG.vb
View File

@@ -13,7 +13,7 @@ Public Class cImporter_DHFToVERAG
' =====================================================================
' MAIN ENTRY
' =====================================================================
Public Function ImportEZOLLByLRN(CRN As String, EZOLL_DB As String, Optional overwrite As Boolean = True) As Boolean
Public Function ImportEZOLLByLRN(CRN As String, EZOLL_DB As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean
Try
If String.IsNullOrWhiteSpace(CRN) Then Return False
@@ -157,7 +157,7 @@ Public Class cImporter_DHFToVERAG
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"))
LoadEZOLL_HSAddCodes(it, LizenzNr, OperatorID, VorgangID, AnmID, r("GdsItemID"))
LoadEZOLL_ItemDocuments(it, LizenzNr, OperatorID, VorgangID, AnmID)
@@ -185,6 +185,13 @@ Public Class cImporter_DHFToVERAG
ZA.Items.Add(it)
Next
' ================================================================
'CBAM WARNING
' ================================================================
If freshInsert Then
ZA.checkfreshCBAMWarning()
End If
' ---------------------------------------------------------------
' SAVE
' ---------------------------------------------------------------
@@ -462,7 +469,9 @@ Public Class cImporter_DHFToVERAG
doc.zaDoc_Reference = ToStringSafe(r("referenceNumber"))
doc.zaDoc_Date = ToNullableDate(r("validityDate"))
If r("validityDate") IsNot Nothing AndAlso r("validityDate") IsNot DBNull.Value Then
doc.zaDoc_Date = ToNullableDate(r("validityDate"))
End If
'doc.zaDoc_Section = ToStringSafe(r("DocumentTypID"))
doc.zaDoc_Description = ToStringSafe(r("text"))
@@ -471,8 +480,9 @@ Public Class cImporter_DHFToVERAG
' ------------------------------------------------------------
doc.zaDoc_Presentation = ToStringSafe(r("typeOfPackages"))
doc.zaDoc_DepreciationAmount = ToNullableDecimal(r("amount"))
If r("amount") IsNot Nothing AndAlso r("amount") IsNot DBNull.Value Then
doc.zaDoc_DepreciationAmount = ToNullableDecimal(r("amount"))
End If
doc.zaDoc_DepreciationUnitmeasurement =
ToStringSafe(r("measurementUnitAndQualifier"))
@@ -513,7 +523,7 @@ Public Class cImporter_DHFToVERAG
Dim party As New cVERAG_CustomsDeclarations_Parties
party.zaParty_Role = r("AdressTypID")
party.zaParty_Role = ToStringSafe(r("AdressTypID"))
party.zaParty_EORI = ToStringSafe(r("identificationNumber"))
party.zaParty_Name = ToStringSafe(r("name"))
@@ -533,7 +543,7 @@ Public Class cImporter_DHFToVERAG
Private Function ExistsInVERAG(CRN As String) As Boolean
Dim sql =
"SELECT TOP 1 1 FROM tblVERAG_CustomsDeclarations " &
"WHERE za_System='EZOLL' AND (za_MRN=@CRN )"
"WHERE za_System LIKE 'DHF%' AND (za_MRN=@CRN )"
Dim p As New List(Of SQLVariable) From {
New SQLVariable("CRN", CRN)