Greenpulse, VERA_Customseclarations

This commit is contained in:
2026-01-05 15:27:35 +01:00
parent 1976d4f509
commit 6b44360ed4
7 changed files with 269 additions and 46 deletions

View File

@@ -51,9 +51,20 @@ Public Class cImporter_DakosyToVERAG
VERAG_ZA.za_Firma = eza.eza_firma
VERAG_ZA.za_Niederlassung = eza.eza_niederlassung
VERAG_ZA.za_MRN = If(eza.eza_MRN, eza.eza_ANR)
VERAG_ZA.za_LRN = eza.eza_ObjectName
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(VERAG_ZA.za_Firma, VERAG_ZA.za_Niederlassung, "", VERAG_ZA.za_LRN)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(VERAG_ZA.za_LRN, VERAG_ZA.za_AvisoId, VERAG_ZA.za_SendungsId)
Dim DY = cDakosy_Zollanmeldungen.LOADById(eza.eza_dyaAnmID)
If DY IsNot Nothing Then
If VERAG_ZA.za_AvisoId Is Nothing AndAlso DY.dy_AvisoId IsNot Nothing Then VERAG_ZA.za_AvisoId = DY.dy_AvisoId
If VERAG_ZA.za_SendungsId Is Nothing AndAlso DY.dy_SendungsId IsNot Nothing Then VERAG_ZA.za_SendungsId = DY.dy_SendungsId
End If
If eza.eza_Anmeldedatum IsNot Nothing AndAlso eza.eza_Anmeldedatum.ToString <> "" Then
VERAG_ZA.za_DeclarationDate = CDate(eza.eza_Anmeldedatum)
VERAG_ZA.za_ReleaseDate = CDate(eza.eza_Anmeldedatum)
@@ -105,12 +116,8 @@ Public Class cImporter_DakosyToVERAG
VERAG_ZA.za_IncotermsPlace = eza.eza_LieferbedingungOrt
VERAG_ZA.za_Sachbearbeiter = eza.eza_AnmeldenderBearbeiterName
VERAG_ZA.za_TotGrossMass = ToNullableDecimal(eza.eza_GesamtRohmasse)
Dim DY = cDakosy_Zollanmeldungen.LOADById(eza.eza_dyaAnmID)
If DY IsNot Nothing Then
VERAG_ZA.za_AvisoId = DY.dy_AvisoId
VERAG_ZA.za_SendungsId = DY.dy_SendungsId
End If
VERAG_ZA.za_TransportModeBorder = ToStringSafe(eza.eza_VerkehrszweigGrenze)
@@ -230,6 +237,7 @@ Public Class cImporter_DakosyToVERAG
item.zaItem_Description = wp.ezaWP_Warenbezeichnung
item.zaItem_PrevProcedure = wp.ezaWP_VerfahrensCodeVorangegangenesVerfahren
item.zaItem_PreferentialCountry = wp.ezaWP_Praeferenzursprungsland
item.zaItem_MainProcedure = wp.ezaWP_AnmeldeVErfahren
item.zaItem_PackageColli = (wp.ezaWP_PackstueckAnzahl)