From 5167696acad309f783103ff74c98dce2f209620d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 31 Mar 2026 14:32:58 +0200 Subject: [PATCH] EZA to ATEZ --- Aviso/ATEZ/frmATEZ_EZA.vb | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 9d072dc..037135d 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -168,9 +168,9 @@ Public Class frmATEZ_EZA .headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With { .agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With { .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""), - .contactPersonPhoneNumber = "0049 8503 7973999 " & If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl), "200", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl),'If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "+43 7711/2777 0"), + .contactPersonPhoneNumber = getTelefon(), .contactPersonPosition = "Zolldeklarant/in", - .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), "quickstop@verag.ag", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email) + .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email) }, .declarantIsConsignee = True, .representationRelationshipCode = "",'-1, '?????????????????????????????????????????????????????????????? @@ -182,7 +182,7 @@ Public Class frmATEZ_EZA } } }, - .AdditionalSettings = New cRelayHubAdditionalSettings With { + .additionalSettings = New cRelayHubAdditionalSettings With { .combineOptions = AdditionalSettings } } @@ -335,6 +335,24 @@ Public Class frmATEZ_EZA End Sub + Private Function getTelefon() As String + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" : Return "0043 7711 28450" + Case "AMBAR" : Return "0049 8651 9962492" + End Select + + Return "0049 8503 7973999 " & If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl), "200", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl) + + End Function + Private Function getDefaultMail_FIRMA() As String + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" : Return "quickstop@verag.ag" + Case "IMEX" : Return "steuerbescheide@imex-group.at" + Case "UNISPED" : Return "office@unisped.at" + Case "AMBAR" : Return "office@ambarlog.com" + End Select + Return "quickstop@verag.ag" + End Function 'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean ' Dim failreDesc As String