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

Prüfung bei AZET Zollanmeldungen über DAKOSY -> wird VERIMEX Defaultuser verwendet.

Browse Source
This commit is contained in:
d.breimaier
2024-08-29 10:43:12 +02:00
parent 780ad79c28
commit add7ac39a9
6 changed files with 124 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -3753,6 +3753,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName.ToString.Replace("'", "") & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX"
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If
@@ -4375,6 +4377,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX"
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If
@@ -5009,6 +5013,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX"
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If
@@ -5641,6 +5647,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX"
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If
@@ -6278,6 +6286,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP(0) & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX"
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP(0) & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If
@@ -9782,5 +9792,16 @@ Public Class frmDYNachrichtenVerarbeitung
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub
Shared Function isAtez(bezugsNr As String) As Boolean
Dim atez As Boolean = False
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(bezugsNr.Length, 4) = "ATEZ" Then
atez = True
End If
Return atez
End Function
End Class