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

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2024-08-30 16:56:47 +02:00
parent ba4e76d3e2
commit 3f1bca12c0
4 changed files with 230 additions and 175 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.2.7")>
<Assembly: AssemblyFileVersion("4.0.2.7")>
<Assembly: AssemblyVersion("4.0.2.8")>
<Assembly: AssemblyFileVersion("4.0.2.8")>

46
Aviso/frmHauptfenster.vb
View File

@@ -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

336
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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

19
Aviso/usrcntlAktDetails.vb
View File

@@ -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