From 93804039e8633d653fa900d1e57a96ff5c7714b8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 9 Nov 2026 15:13:12 +0100 Subject: [PATCH] RealyHub API --- SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb | 3 ++- VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb index b9dc1a8d..16938533 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb @@ -1673,7 +1673,8 @@ Public Class cATLAS_EZA_IMPORT If currency <> "" Then pos.ezaWP_ArtikelpreisWaehrung = currency Dim n As Decimal If TetraTryDecimal(netText, n) Then pos.ezaWP_Eigenmasse = n.ToString("0.###", CultureInfo.CurrentCulture) - If TetraTryDecimal(grossText, n) Then pos.ezaWP_Rohmasse = CDbl(n) + ' If TetraTryDecimal(grossText, n) Then pos.ezaWP_Rohmasse = CDbl(n) + If TetraTryDecimal(grossText, n) Then pos.ezaWP_Rohmasse = CDbl(Math.Round(n, 1, MidpointRounding.AwayFromZero)) If TetraTryDecimal(valueText, n) Then pos.ezaWP_Artikelpreis = n.ToString("0.00", CultureInfo.CurrentCulture) If procedure.Length >= 2 Then pos.ezaWP_AnmeldeVErfahren = procedure.Substring(0, 2) If procedure.Length >= 4 Then pos.ezaWP_VerfahrensCodeVorangegangenesVerfahren = procedure.Substring(2, 2) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb index 304e5191..97b3c93c 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb @@ -356,6 +356,7 @@ Public Class cRelayHub Case "Freihandelszone", "FTZ" : fileType = "ftz" Case "EUR1", "EUR", "EUR.1" : fileType = "eur" Case "GGED_D", "GGED-D" : fileType = "gged_p" + Case "Bill of Lading", "BoL" : fileType = "bill_of_lading" Case Else : fileType = "unknown" '"other" End Select