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

DY Bugs

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-28 21:31:15 +02:00
parent 2ced9a1f68
commit 000dabbb72
3 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -294,7 +294,7 @@
For Each UL In POS.nctsWP_UNTERLAGEN For Each UL In POS.nctsWP_UNTERLAGEN
If UL.nctsWpUl_Typ IsNot Nothing Then If UL.nctsWpUl_Typ IsNot Nothing Then
Select Case UL.nctsWpUl_Typ Select Case UL.nctsWpUl_Typ
Case "380" : addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, "")) Case "380", "325" : addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, ""))
End Select End Select
End If End If
Next Next

30
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -2814,7 +2814,7 @@ Public Class frmDYNachrichtenVerarbeitung
EZA.eza_AnmeldenderBearbeiterEMail = FCFCDD.ContactPerson.MailAddress EZA.eza_AnmeldenderBearbeiterEMail = FCFCDD.ContactPerson.MailAddress
EZA.eza_AnmeldenderBearbeiterStellung = FCFCDD.ContactPerson.Position EZA.eza_AnmeldenderBearbeiterStellung = FCFCDD.ContactPerson.Position
EZA.eza_AnmeldenderBearbeiterTel = FCFCDD.ContactPerson.PhoneNumber EZA.eza_AnmeldenderBearbeiterTel = FCFCDD.ContactPerson.PhoneNumber
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN") 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 If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp EZA.eza_Bearbeiter = SB_Tmp
End If End If
@@ -6162,24 +6162,24 @@ Public Class frmDYNachrichtenVerarbeitung
'Benachrichtigung 'Benachrichtigung
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
Dim art = "B" Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
art = "B" art = "B"
End If End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
art = "B" art = "B"
End If End If
'Wenn Benutzer des LKWs nicht online, Team... 'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
art = "T" art = "T"
End If End If
@@ -6215,29 +6215,29 @@ Public Class frmDYNachrichtenVerarbeitung
'Benachrichtigung 'Benachrichtigung
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
Dim art = "B" Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
art = "B" art = "B"
End If End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
art = "B" art = "B"
End If End If
'Wenn Benutzer des LKWs nicht online, Team... 'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
art = "T" art = "T"
End If End If
'Wenn TEAM nicht gefunden, Firma... 'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = EZA_TMP.eza_firma sendToID = EZA_TMP.eza_firma
art = "F" art = "F"
@@ -6278,29 +6278,29 @@ Public Class frmDYNachrichtenVerarbeitung
'Benachrichtigung 'Benachrichtigung
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
Dim art = "B" Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
art = "B" art = "B"
End If End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
art = "B" art = "B"
End If End If
'Wenn Benutzer des LKWs nicht online, Team... 'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO", -1)
art = "T" art = "T"
End If End If
'Wenn TEAM nicht gefunden, Firma... 'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = EZA_TMP.eza_firma sendToID = EZA_TMP.eza_firma
art = "F" art = "F"

4
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -842,7 +842,6 @@ Public Class frmStartOptions
End If End If
End If End If
End Select End Select
End Select
End If End If
End If End If
@@ -1296,7 +1295,7 @@ Public Class frmStartOptions
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
MsgBox(ex.Message & ex.StackTrace) ' MsgBox(ex.Message & ex.StackTrace)
End Try End Try
Blatt = Datei.Worksheets(1) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen
@@ -1358,6 +1357,7 @@ Public Class frmStartOptions
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Try Try