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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
d.breimaier
2026-04-29 15:47:53 +02:00
parent 6b2a46f20a d2f34d49c8
commit 1d4988346e
1 changed files with 44 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
View File

@@ -195,6 +195,18 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N"
XML.EinzelEingangsanzeige.TransitOperation.TraderAtDestination = New EingangsanzeigeNCTSDE_003.AddressEAType
XML.EinzelEingangsanzeige.TransitOperation.TraderAtDestination.ContactPerson.EMailAddress = getDefaultMail_FIRMA()
XML.EinzelEingangsanzeige.TransitOperation.TraderAtDestination.ContactPerson.Name = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
XML.EinzelEingangsanzeige.TransitOperation.TraderAtDestination.ContactPerson.PhoneNumber = getTelefon()
XML.EinzelEingangsanzeige.TransitOperation.LocationOfGoods = New EingangsanzeigeNCTSDE_003.LocationOfGoodsEAType
XML.EinzelEingangsanzeige.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = getDefaultMail_FIRMA()
XML.EinzelEingangsanzeige.TransitOperation.LocationOfGoods.ContactPerson.Name = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
XML.EinzelEingangsanzeige.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = getTelefon()
Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
@@ -211,6 +223,37 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
Return True
End Function
Private Shared Function getTelefon() As String
Dim defaultDW = "200"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : Return "0043 7711 28450"
Case "AMBAR" : Return "0049 8651 9962492"
Case "UNISPED" : defaultDW = "800"
Case "IMEX" : defaultDW = "602"
Case "VERAG" : defaultDW = "200"
End Select
Dim dw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
Return "0049 8503 7973999 " &
If(String.IsNullOrEmpty(dw) OrElse dw.Length >= 5, defaultDW, dw)
End Function
Private Shared Function getDefaultMail_FIRMA() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "KLIPP" : Return "klipphausen@verag.ag"
Case "DTB" : Return "dettelbach@verag.ag"
Case "NKN" : Return "neunkirchen@verag.ag"
Case "SBG" : Return "de@verag.ag"
Case "NEU" : Return "neuhaus@verag.ag"
Case Else : Return "quickstop@verag.ag"
End Select
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 createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double)
Try
@@ -266,7 +309,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
.gs_posNr = getLatestPosNr(gsnr, txtMRN._value)
attachPosNrToExistingATB = True
Else
.gs_gsNr = SQL.getValueTxtBySql("select MAX([gs_gsNr]) + 1 as MaxGesSich from tblGesamtsicherheit", "AVISO")
.gs_gsNr = SQL.getValueTxtBySql("Select MAX([gs_gsNr]) + 1 As MaxGesSich from tblGesamtsicherheit", "AVISO")
.gs_posNr = 0
End If