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

9
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -51,9 +51,16 @@ Public Class cImporter_TelotecToVERAG
ZA.za_Firma = ToStringSafe(tel.telanm_firma)
ZA.za_Niederlassung = ToStringSafe(tel.telanm_niederlassung)
ZA.za_MRN = ToStringSafe(tel.Refs_CRN)
ZA.za_LRN = ToStringSafe(tel.Refs_LRN)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)
If ZA.za_AvisoId Is Nothing AndAlso tel.telanm_AvisoId IsNot Nothing Then ZA.za_AvisoId = tel.telanm_AvisoId
If ZA.za_SendungsId Is Nothing AndAlso tel.telanm_SendungsId IsNot Nothing Then ZA.za_SendungsId = tel.telanm_SendungsId
ZA.za_RepresentationCode = ToStringSafe(tel.Declarant_DecRep)
@@ -86,8 +93,6 @@ Public Class cImporter_TelotecToVERAG
ZA.za_Incoterms = ToStringSafe(tel.ValData_TermDelCd)
ZA.za_IncotermsPlace = ToStringSafe(tel.ValData_TermDelPlc)
ZA.za_AvisoId = tel.telanm_AvisoId
ZA.za_SendungsId = tel.telanm_SendungsId
ZA.za_Sachbearbeiter = tel.telanm_LetzteBearbeitung_SB