Bugfix
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user