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

47
initATLASAufschubkonten/cWorker_NCTS.vb
View File

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