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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -96,7 +96,7 @@ Public Class usrCntlKundenuebersicht
connection.Close()
Catch ex As Exception
MessageBox.Show("Err ! ")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -177,7 +177,7 @@ Public Class usrCntlKundenuebersicht
tbcntrAllg.TabPages.Remove(tbAvisoMail)
tbcntrAllg.TabPages.Remove(tbKdSpez)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
@@ -223,7 +223,7 @@ Public Class usrCntlKundenuebersicht
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -603,7 +603,7 @@ Public Class usrCntlKundenuebersicht
' Button4.Visible = False
' Button5.Visible = False
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
End Try
End Sub
@@ -619,7 +619,7 @@ Public Class usrCntlKundenuebersicht
kdErwTmp.SAVE()
Catch ex As Exception
MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1204,7 +1204,7 @@ Public Class usrCntlKundenuebersicht
Next
Catch ex As Exception
MsgBox("OP: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
'Dim OP_tmp As Double = 0
@@ -1330,7 +1330,7 @@ Public Class usrCntlKundenuebersicht
End If
Next
Catch ex As Exception
MsgBox("OP: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
txtOPFaellig.Text = sumZZ.ToString("C")
If sumZZ > 0 Then
@@ -1414,7 +1414,7 @@ Public Class usrCntlKundenuebersicht
' cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
End If
Catch ex As Exception
MsgBox(ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1688,10 +1688,10 @@ Public Class usrCntlKundenuebersicht
Catch ex2 As InvalidOperationException
'Server.GetLastError()
MsgBox(ex2.Message & ex2.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Catch ex As Exception
'Server.GetLastError()
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
sender.BackgroundImage = My.Resources.del
@@ -2022,7 +2022,7 @@ Public Class usrCntlKundenuebersicht
GG.gg_erhalten_Datum = txtGGDatum._value
GG.gg_Zollamt = If(cbxGG.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt) Then
If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt, txtGGDatum._value) Then
MsgBox("Der Eintrag existiert bereits!")
Exit Sub
End If