Prüfung bei AZET Zollanmeldungen über DAKOSY -> wird VERIMEX Defaultuser verwendet.
This commit is contained in:
@@ -3,6 +3,7 @@ Imports System.IO
|
||||
Imports System.Xml
|
||||
Imports DAKOSY_Worker
|
||||
Imports DocumentFormat.OpenXml
|
||||
Imports DocumentFormat.OpenXml.Spreadsheet
|
||||
Imports iTextSharp.text.pdf
|
||||
|
||||
Public Class cWorker_NCTS
|
||||
@@ -709,6 +710,8 @@ Public Class cWorker_NCTS
|
||||
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
|
||||
If SB_Tmp <> "" Then
|
||||
NCTS.ncts_Bearbeiter = SB_Tmp
|
||||
ElseIf isAtez(NCTS.ncts_ObjectName) Then
|
||||
NCTS.ncts_Bearbeiter = "VERIMEX"
|
||||
Else
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " 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
|
||||
@@ -1379,7 +1382,10 @@ Public Class cWorker_NCTS
|
||||
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
|
||||
If SB_Tmp <> "" Then
|
||||
NCTS.ncts_Bearbeiter = SB_Tmp
|
||||
ElseIf isAtez(NCTS.ncts_ObjectName) Then
|
||||
NCTS.ncts_Bearbeiter = "VERIMEX"
|
||||
Else
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " 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
|
||||
End If
|
||||
@@ -1772,6 +1778,8 @@ Public Class cWorker_NCTS
|
||||
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
|
||||
If SB_Tmp <> "" Then
|
||||
NCTS.ncts_Bearbeiter = SB_Tmp
|
||||
ElseIf isAtez(NCTS.ncts_ObjectName) Then
|
||||
NCTS.ncts_Bearbeiter = "VERIMEX"
|
||||
Else
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " 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
|
||||
@@ -3795,27 +3803,27 @@ Public Class cWorker_NCTS
|
||||
End If
|
||||
'Verschluesse
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
|
||||
Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
|
||||
Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
|
||||
For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
|
||||
Verschluss_Zeichen.Add(z)
|
||||
Next
|
||||
End If
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
|
||||
Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
|
||||
Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
|
||||
For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
|
||||
Verschluss_Zeichen.Add(z)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
|
||||
@@ -4225,5 +4233,16 @@ Public Class cWorker_NCTS
|
||||
End Try
|
||||
End Function
|
||||
|
||||
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, 4) = "ATEZ" Then
|
||||
atez = True
|
||||
End If
|
||||
|
||||
Return atez
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user