From 3f1bca12c070e445e99884b810c822398cece09a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Aug 2024 16:56:47 +0200 Subject: [PATCH] Bugfix --- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmHauptfenster.vb | 46 +++-- Aviso/frmSendungsdetailsNEU.vb | 336 +++++++++++++++++-------------- Aviso/usrcntlAktDetails.vb | 19 +- 4 files changed, 230 insertions(+), 175 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 664c789..c483ad8 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index ccb14db..c0b5c4f 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -6601,27 +6601,35 @@ Public Class AvisoStatusFunctions Public Function openSnd(sendId, AvisoID) As Form - If sendId Is Nothing Then Return Nothing - If AvisoID Is Nothing Then Return Nothing - If sendId <= 0 Then Return Nothing - If AvisoID <= 0 Then Return Nothing + Try - For Each openForm In Application.OpenForms() - If TypeOf (openForm) Is frmSendungsdetailsNEU Then - 'MsgBox("Sendungsfenster bereits geöffnet!") - 'CType(openForm, frmSendungsdetailsNEU).BringToFront() - 'Return Nothing - CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized - CType(openForm, frmSendungsdetailsNEU).Close() - Exit For - End If - Next - ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) - frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) - ' frmGrayOut.Close() - Return frmSendungsdetails + If sendId Is Nothing Then Return Nothing + If AvisoID Is Nothing Then Return Nothing + If sendId <= 0 Then Return Nothing + If AvisoID <= 0 Then Return Nothing + + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is frmSendungsdetailsNEU Then + 'MsgBox("Sendungsfenster bereits geöffnet!") + 'CType(openForm, frmSendungsdetailsNEU).BringToFront() + 'Return Nothing + CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized + CType(openForm, frmSendungsdetailsNEU).Close() + Exit For + End If + Next + + ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) + frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) + ' frmGrayOut.Close() + Return frmSendungsdetails + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Function diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index a58ccf7..3a57f73 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -38,7 +38,7 @@ Public Class frmSendungsdetailsNEU Dim usrcntl_ATB As usrCntlSND_ATBGestellung Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr Dim listOfTextconserven - + Dim isFailureShown As Boolean = False Dim cntVeranlagungsRg = 0 Sub New() @@ -50,12 +50,19 @@ Public Class frmSendungsdetailsNEU End Sub Sub New(AvisoId, SendungID) - InitializeComponent() - Me.AvisoId = AvisoId - Me.SendungID = SendungID - Me.DoubleBuffered = True - SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) - UpdateStyles() + Try + + + InitializeComponent() + Me.AvisoId = AvisoId + Me.SendungID = SendungID + Me.DoubleBuffered = True + SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) + UpdateStyles() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub @@ -92,23 +99,30 @@ Public Class frmSendungsdetailsNEU cntlEmpfaenger_Sonst.special(False) cntlAuftraggeber_Sonst.special(False) cntlFrachtfuehrer_Sonst.special(False) + Try - For Each c In Panel6.Controls - If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then - Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox) - cntlCbx.lbl.Text = "" - For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG - If a.sndabr_beteiligter = cntlCbx._beteiligter Then - If a.sndabr_abrArt = "" And cntlCbx._abrArt = "SONST" Then - cntlCbx.special(True) - ElseIf a.sndabr_abrArt = cntlCbx._abrArt Then - cntlCbx.lbl.Text = a.sndabr_wert + + For Each c In Panel6.Controls + If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then + Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox) + cntlCbx.lbl.Text = "" + For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG + If a.sndabr_beteiligter = cntlCbx._beteiligter Then + If a.sndabr_abrArt = "" And cntlCbx._abrArt = "SONST" Then + cntlCbx.special(True) + ElseIf a.sndabr_abrArt = cntlCbx._abrArt Then + cntlCbx.lbl.Text = a.sndabr_wert + End If End If - End If - Next - End If - Next - SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() + Next + End If + Next + SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean @@ -150,115 +164,123 @@ Public Class frmSendungsdetailsNEU Sub doVeranlagungsValidation() cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0") End Sub - Function VALIDATE_ME(Optional showErr = True) As Boolean - pnlValidation.Visible = False + Function VALIDATE_ME(Optional showErr As Boolean = True) As Boolean + Try - rtbValidierung.Text = "" - 'Dim returnValue = True - Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") - lblErr_AvisiererKdNr.Visible = False - lblErr_EmpfKdNr.Visible = False - lblErr_FraechterKdNr.Visible = False + pnlValidation.Visible = False + + rtbValidierung.Text = "" + 'Dim returnValue = True + Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") + lblErr_AvisiererKdNr.Visible = False + lblErr_EmpfKdNr.Visible = False + lblErr_FraechterKdNr.Visible = False - '-------------------------------------------------- + '-------------------------------------------------- - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then - Return True - End If + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then + Return True + End If - '-------------------------------------------------- - If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then - If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True - End If + '-------------------------------------------------- + If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then + If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True + End If - If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then - If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True - End If - '-------------------------------------------------- + If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then + If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True + End If + '-------------------------------------------------- - 'Aktuell noch nicht! - Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)) - Case <= 0, 10 - Case Else - If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False - If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False - End Select - If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then + 'Aktuell noch nicht! + Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)) + Case <= 0, 10 + Case Else + If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False + If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False + End Select + If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then - If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then - 'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen. - Else - If FilialeAktFirma <> "" Then - If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung! - If Not txtAvisierer.checkFirma(FilialeAktFirma) Then - Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - If showErr Then MsgBox(err) : Return False + If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then + 'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen. + Else + If FilialeAktFirma <> "" Then + If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung! + If Not txtAvisierer.checkFirma(FilialeAktFirma) Then + Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + If showErr Then MsgBox(err) : Return False + End If + If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then + Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + If showErr Then MsgBox(err) : Return False + End If + If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then + Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + If showErr Then MsgBox(err) : Return False + End If + If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then + Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + If showErr Then MsgBox(err) : Return False + End If + If Not txtAbsender.checkFirma(FilialeAktFirma) Then + Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + If showErr Then MsgBox(err) : Return False + + End If End If - If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then - Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - If showErr Then MsgBox(err) : Return False - End If - If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then - Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - If showErr Then MsgBox(err) : Return False - End If - If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then - Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - If showErr Then MsgBox(err) : Return False - End If - If Not txtAbsender.checkFirma(FilialeAktFirma) Then - Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - If showErr Then MsgBox(err) : Return False + End If + End If - End If + + 'If UsrCntlSND_NCTSGestellungsadresse1.Controls.Count > 0 Then + ' If UsrCntlSND_NCTSGestellungsadresse1.Controls(0).GetType.ToString = GetType(usrCntlSND_ATBGestellung).ToString Then + + ' If DirectCast(UsrCntlSND_NCTSGestellungsadresse1.Controls(0), usrCntlSND_ATBGestellung).cbxATBFakturieren.CheckState = CheckState.Indeterminate Then + ' MsgBox("ATB-Gestllung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False + ' End If + + + ' End If + 'End If + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung + + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then + Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + 'If showErr Then MsgBox(err) : Return False + End If + + + End If + End If + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + + If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or + (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or + (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then + If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then + Return False End If End If End If + ' pnlValidation.Visible = rtbValidierung.Text <> "" + Return True - 'If UsrCntlSND_NCTSGestellungsadresse1.Controls.Count > 0 Then - ' If UsrCntlSND_NCTSGestellungsadresse1.Controls(0).GetType.ToString = GetType(usrCntlSND_ATBGestellung).ToString Then - - ' If DirectCast(UsrCntlSND_NCTSGestellungsadresse1.Controls(0), usrCntlSND_ATBGestellung).cbxATBFakturieren.CheckState = CheckState.Indeterminate Then - ' MsgBox("ATB-Gestllung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False - ' End If - - - ' End If - 'End If - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung - - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then - Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - 'If showErr Then MsgBox(err) : Return False - End If - - - End If - End If - - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then - - If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or - (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or - (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then - If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then - Return False - End If - End If - End If - - ' pnlValidation.Visible = rtbValidierung.Text <> "" - Return True + Catch ex As Exception + Dim err = "interner Anzeigefehler" + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + isFailureShown = True + End Try End Function Sub NEXT_SENDUNG() @@ -268,6 +290,7 @@ Public Class frmSendungsdetailsNEU initDataBinding() ' initButtons() End If + End Sub Sub PREV_SENDUNG() @@ -3796,6 +3819,7 @@ Public Class frmSendungsdetailsNEU End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnVorauszahlung.Click + SAVE_ME() ' falls Änderungen gemacht in Sendung wurden! FormularArt = SDL.FormularManagerArten.Importaviso_VK cntxtVorauskasse.Show(Cursor.Position) End Sub @@ -6843,31 +6867,35 @@ Public Class frmSendungsdetailsNEU Private Sub mnuItem_MouseHover(sender As Object, e As EventArgs) + Try - 'ContextMenuStrip1.Hide() - Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + 'ContextMenuStrip1.Hide() + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) - If item IsNot Nothing Then + If item IsNot Nothing Then - listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", item.Name, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", item.Name, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - If listOfTextconserven.LIST.Count = 0 Then - 'ContextMenuStrip1.Show(Cursor.Position) - Else - For Each r In listOfTextconserven.LIST - If Not item.DropDownItems.ContainsKey(r.txt_id) Then - Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id} - item.DropDownItems.Add(menuItem) - AddHandler menuItem.Click, AddressOf mnusubItem_Click + If listOfTextconserven.LIST.Count = 0 Then + 'ContextMenuStrip1.Show(Cursor.Position) + Else + For Each r In listOfTextconserven.LIST + If Not item.DropDownItems.ContainsKey(r.txt_id) Then + Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id} + item.DropDownItems.Add(menuItem) + AddHandler menuItem.Click, AddressOf mnusubItem_Click - End If - Next - 'ContextMenuStrip1.Show() - 'item.ShowDropDown() + End If + Next + 'ContextMenuStrip1.Show() + 'item.ShowDropDown() + + End If End If - - End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub @@ -7034,28 +7062,40 @@ Public Class frmSendungsdetailsNEU Private Sub loadContextMenudynMailvorlagen() + Try - Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - If Sprachen.SPRACHENLIST.Count = 0 Then - 'ContextMenuStrip1.Show(Cursor.Position) - Else - For Each r In Sprachen.SPRACHENLIST + Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.ToString) Then - Dim menuItem = New ToolStripMenuItem() With {.Text = r.ToString, .Name = r.ToString} - dynMailsToolStripMenuItem.DropDownItems.Add(menuItem) - AddHandler menuItem.MouseHover, AddressOf mnuItem_MouseHover - End If - Next - 'ContextMenuStrip1.Show(Cursor.Position) - End If + If Sprachen.SPRACHENLIST.Count = 0 Then + 'ContextMenuStrip1.Show(Cursor.Position) + Else + For Each r In Sprachen.SPRACHENLIST + + If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.ToString) Then + Dim menuItem = New ToolStripMenuItem() With {.Text = r.ToString, .Name = r.ToString} + dynMailsToolStripMenuItem.DropDownItems.Add(menuItem) + AddHandler menuItem.MouseHover, AddressOf mnuItem_MouseHover + End If + Next + 'ContextMenuStrip1.Show(Cursor.Position) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick - VALIDATE_ME(False) + Try + + VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife! + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub Button23_Click_1(sender As Object, e As EventArgs) Handles Button23.Click diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 6f89739..0653ee5 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -1860,12 +1860,18 @@ Public Class usrcntlAktDetails End Sub Sub openSnd(sndId) - Dim f = FUNC.openSnd(sndId, AvisoID) - If f IsNot Nothing Then - AddHandler f.FormClosed, Sub() - initDgvSendungen() - End Sub - End If + Try + + + Dim f = FUNC.openSnd(sndId, AvisoID) + If f IsNot Nothing Then + AddHandler f.FormClosed, Sub() + initDgvSendungen() + End Sub + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick @@ -3413,6 +3419,7 @@ Public Class usrcntlAktDetails If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) Vermerke_anzeigen(index) + initDgvSendungen() End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click