MDM SollHaben, Benachrichtigungen
This commit is contained in:
@@ -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.
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user