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

Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Browse Source
This commit is contained in:
d.breimaier
2026-04-01 09:44:15 +02:00
parent cffd0804ce ea0df065a3
commit f778b32809
1 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -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