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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-13 21:31:40 +01:00
parent 14a7113144
commit 62315eaef7
5 changed files with 111 additions and 1536 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -600,11 +600,25 @@ Public Class frmDYNachrichtenVerarbeitung
Case "IME"
AES_TMP.aes_firma = "IMEX"
AES_TMP.aes_niederlassung = "IMEX"
Case "UNAT", "ATSPED"
AES_TMP.aes_firma = "UNISPED"
AES_TMP.aes_niederlassung = "ATSP"
End Select
AES_TMP.SAVE()
End If
End If
If If(AES_TMP.aes_firma, "") = "" And If(AES_TMP.aes_firma, "") = "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED
Case "UNISPED"
AES_TMP.aes_firma = "UNISPED"
AES_TMP.aes_niederlassung = "ATSP"
End Select
End If
End Sub
@@ -643,9 +657,14 @@ Public Class frmDYNachrichtenVerarbeitung
Case "IME"
EZA_TMP.eza_firma = "IMEX"
EZA_TMP.eza_niederlassung = "IMX"
Case "UNAT", "ATSPED"
EZA_TMP.eza_firma = "UNISPED"
EZA_TMP.eza_niederlassung = "ATSP"
End Select
firma = EZA_TMP.eza_firma
nl = EZA_TMP.eza_niederlassung
firma = If(EZA_TMP.eza_firma, "")
nl = If(EZA_TMP.eza_niederlassung, "")
EZA_TMP.SAVE()
End If
@@ -654,6 +673,18 @@ Public Class frmDYNachrichtenVerarbeitung
DY_TMP.tryFindAviso()
DY_TMP.SAVE()
End If
If If(EZA_TMP.eza_firma, "") = "" And If(EZA_TMP.eza_niederlassung, "") = "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED
Case "UNISPED"
EZA_TMP.eza_firma = "UNISPED"
EZA_TMP.eza_niederlassung = "ATSP"
firma = EZA_TMP.eza_firma
nl = EZA_TMP.eza_niederlassung
End Select
End If
End Sub
@@ -4355,7 +4386,7 @@ Public Class frmDYNachrichtenVerarbeitung
' niederlassung = "SBG"
Case "4803", "5003", "5103", "5303", "4805", "4811"
firma = "VERAG"
Case "4801"
Case "5601"
firma = "UNISPED"
niederlassung = "ATSP"
End Select
@@ -5446,7 +5477,6 @@ Public Class frmDYNachrichtenVerarbeitung
Dim nl = ""
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl)
If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then
EZA_TMP.eza_AUFSCHUB.Clear()
For Each a In AUFSCHUB