MDM SollHaben, Benachrichtigungen

This commit is contained in:
2023-09-20 10:54:11 +02:00
parent e4c666f3c5
commit 4844ed8a46
3 changed files with 10 additions and 3 deletions

View File

@@ -6,7 +6,14 @@ Imports Microsoft.Office.Interop
Public Class frmBH_SollHaben
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Function loadExcel() As Boolean
' Call ShowDialog.

View File

@@ -187,7 +187,7 @@ Public Class frmMDM_BH_SollHaben
lblFehler.Visible = True
Button1.Visible = True
Me.Cursor = Cursors.Default
MsgBox("ER02: " & ex.Message & vbNewLine & " i_haben: " & i_haben & vbNewLine & " i_haben2: " & i_haben2)
MsgBox("ER02: " & ex.Message & vbNewLine & " i_haben: " & i_haben & vbNewLine & " i_haben2: " & i_haben2 & vbNewLine & ex.StackTrace)
Return False
End Try
lblHaben.Text = "HABEN Auszifferung OK"
@@ -294,7 +294,7 @@ Public Class frmMDM_BH_SollHaben
lblFehler.Visible = True
Button1.Visible = True
Me.Cursor = Cursors.Default
MsgBox("ER03: " & ex.Message & vbNewLine & "Zähler1: " & i_s_tmp & vbNewLine & "Zähler2: " & i_h_tmp)
MsgBox("ER03: " & ex.Message & vbNewLine & "Zähler1: " & i_s_tmp & vbNewLine & "Zähler2: " & i_h_tmp & vbNewLine & ex.StackTrace)
Return False
End Try

View File

@@ -247,6 +247,6 @@ Public Class cAvisoBenachrichtigungenCodes
Public Shared ZOLL_Dokumentenbeschau As Integer = 7
Public Shared ZOLL_Rueckweisung As Integer = 8
Public Shared ZOLL_Mitteilung As Integer = 9
Public Shared AAE_Benachrichtigung As Integer = 10
End Class