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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.2.7")> <Assembly: AssemblyVersion("4.0.2.8")>
<Assembly: AssemblyFileVersion("4.0.2.7")> <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 Public Function openSnd(sendId, AvisoID) As Form
If sendId Is Nothing Then Return Nothing Try
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() If sendId Is Nothing Then Return Nothing
Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) If AvisoID Is Nothing Then Return Nothing
frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) If sendId <= 0 Then Return Nothing
' frmGrayOut.Close() If AvisoID <= 0 Then Return Nothing
Return frmSendungsdetails
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 End Function

336
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -38,7 +38,7 @@ Public Class frmSendungsdetailsNEU
Dim usrcntl_ATB As usrCntlSND_ATBGestellung Dim usrcntl_ATB As usrCntlSND_ATBGestellung
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
Dim listOfTextconserven Dim listOfTextconserven
Dim isFailureShown As Boolean = False
Dim cntVeranlagungsRg = 0 Dim cntVeranlagungsRg = 0
Sub New() Sub New()
@@ -50,12 +50,19 @@ Public Class frmSendungsdetailsNEU
End Sub End Sub
Sub New(AvisoId, SendungID) Sub New(AvisoId, SendungID)
InitializeComponent() Try
Me.AvisoId = AvisoId
Me.SendungID = SendungID
Me.DoubleBuffered = True InitializeComponent()
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) Me.AvisoId = AvisoId
UpdateStyles() 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 End Sub
@@ -92,23 +99,30 @@ Public Class frmSendungsdetailsNEU
cntlEmpfaenger_Sonst.special(False) cntlEmpfaenger_Sonst.special(False)
cntlAuftraggeber_Sonst.special(False) cntlAuftraggeber_Sonst.special(False)
cntlFrachtfuehrer_Sonst.special(False) cntlFrachtfuehrer_Sonst.special(False)
Try
For Each c In Panel6.Controls
If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then For Each c In Panel6.Controls
Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox) If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
cntlCbx.lbl.Text = "" Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox)
For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG cntlCbx.lbl.Text = ""
If a.sndabr_beteiligter = cntlCbx._beteiligter Then For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG
If a.sndabr_abrArt = "" And cntlCbx._abrArt = "SONST" Then If a.sndabr_beteiligter = cntlCbx._beteiligter Then
cntlCbx.special(True) If a.sndabr_abrArt = "" And cntlCbx._abrArt = "SONST" Then
ElseIf a.sndabr_abrArt = cntlCbx._abrArt Then cntlCbx.special(True)
cntlCbx.lbl.Text = a.sndabr_wert ElseIf a.sndabr_abrArt = cntlCbx._abrArt Then
cntlCbx.lbl.Text = a.sndabr_wert
End If
End If End If
End If Next
Next End If
End If Next
Next SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
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 End Sub
Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean
@@ -150,115 +164,123 @@ Public Class frmSendungsdetailsNEU
Sub doVeranlagungsValidation() Sub doVeranlagungsValidation()
cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0") cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0")
End Sub End Sub
Function VALIDATE_ME(Optional showErr = True) As Boolean Function VALIDATE_ME(Optional showErr As Boolean = True) As Boolean
pnlValidation.Visible = False Try
rtbValidierung.Text = "" pnlValidation.Visible = False
'Dim returnValue = True
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") rtbValidierung.Text = ""
lblErr_AvisiererKdNr.Visible = False 'Dim returnValue = True
lblErr_EmpfKdNr.Visible = False Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
lblErr_FraechterKdNr.Visible = False lblErr_AvisiererKdNr.Visible = False
lblErr_EmpfKdNr.Visible = False
lblErr_FraechterKdNr.Visible = False
'-------------------------------------------------- '--------------------------------------------------
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
Return True Return True
End If 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 (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 If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
End If 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 (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 If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
End If End If
'-------------------------------------------------- '--------------------------------------------------
'Aktuell noch nicht! 'Aktuell noch nicht!
Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)) Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
Case <= 0, 10 Case <= 0, 10
Case Else 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 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 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 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 End Select
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then 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 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. 'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen.
Else Else
If FilialeAktFirma <> "" Then If FilialeAktFirma <> "" Then
If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung! If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then If Not txtAvisierer.checkFirma(FilialeAktFirma) Then
Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False 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 End If
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then End If
Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." End If
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
'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 End If
End If End If
' pnlValidation.Visible = rtbValidierung.Text <> ""
Return True
'If UsrCntlSND_NCTSGestellungsadresse1.Controls.Count > 0 Then Catch ex As Exception
' If UsrCntlSND_NCTSGestellungsadresse1.Controls(0).GetType.ToString = GetType(usrCntlSND_ATBGestellung).ToString Then Dim err = "interner Anzeigefehler"
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
' If DirectCast(UsrCntlSND_NCTSGestellungsadresse1.Controls(0), usrCntlSND_ATBGestellung).cbxATBFakturieren.CheckState = CheckState.Indeterminate Then isFailureShown = True
' MsgBox("ATB-Gestllung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False End Try
' 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
End Function End Function
Sub NEXT_SENDUNG() Sub NEXT_SENDUNG()
@@ -268,6 +290,7 @@ Public Class frmSendungsdetailsNEU
initDataBinding() initDataBinding()
' initButtons() ' initButtons()
End If End If
End Sub End Sub
Sub PREV_SENDUNG() Sub PREV_SENDUNG()
@@ -3796,6 +3819,7 @@ Public Class frmSendungsdetailsNEU
End Sub End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnVorauszahlung.Click 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 FormularArt = SDL.FormularManagerArten.Importaviso_VK
cntxtVorauskasse.Show(Cursor.Position) cntxtVorauskasse.Show(Cursor.Position)
End Sub End Sub
@@ -6843,31 +6867,35 @@ Public Class frmSendungsdetailsNEU
Private Sub mnuItem_MouseHover(sender As Object, e As EventArgs) Private Sub mnuItem_MouseHover(sender As Object, e As EventArgs)
Try
'ContextMenuStrip1.Hide() 'ContextMenuStrip1.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) 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 If listOfTextconserven.LIST.Count = 0 Then
'ContextMenuStrip1.Show(Cursor.Position) 'ContextMenuStrip1.Show(Cursor.Position)
Else Else
For Each r In listOfTextconserven.LIST For Each r In listOfTextconserven.LIST
If Not item.DropDownItems.ContainsKey(r.txt_id) Then If Not item.DropDownItems.ContainsKey(r.txt_id) Then
Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id} Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id}
item.DropDownItems.Add(menuItem) item.DropDownItems.Add(menuItem)
AddHandler menuItem.Click, AddressOf mnusubItem_Click AddHandler menuItem.Click, AddressOf mnusubItem_Click
End If End If
Next Next
'ContextMenuStrip1.Show() 'ContextMenuStrip1.Show()
'item.ShowDropDown() 'item.ShowDropDown()
End If
End If End If
Catch ex As Exception
End If VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub End Sub
@@ -7034,28 +7062,40 @@ Public Class frmSendungsdetailsNEU
Private Sub loadContextMenudynMailvorlagen() Private Sub loadContextMenudynMailvorlagen()
Try
Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
If Sprachen.SPRACHENLIST.Count = 0 Then Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
'ContextMenuStrip1.Show(Cursor.Position)
Else
For Each r In Sprachen.SPRACHENLIST
If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.ToString) Then If Sprachen.SPRACHENLIST.Count = 0 Then
Dim menuItem = New ToolStripMenuItem() With {.Text = r.ToString, .Name = r.ToString} 'ContextMenuStrip1.Show(Cursor.Position)
dynMailsToolStripMenuItem.DropDownItems.Add(menuItem) Else
AddHandler menuItem.MouseHover, AddressOf mnuItem_MouseHover For Each r In Sprachen.SPRACHENLIST
End If
Next If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.ToString) Then
'ContextMenuStrip1.Show(Cursor.Position) Dim menuItem = New ToolStripMenuItem() With {.Text = r.ToString, .Name = r.ToString}
End If 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 End Sub
Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick 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 End Sub
Private Sub Button23_Click_1(sender As Object, e As EventArgs) Handles Button23.Click 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 End Sub
Sub openSnd(sndId) Sub openSnd(sndId)
Dim f = FUNC.openSnd(sndId, AvisoID) Try
If f IsNot Nothing Then
AddHandler f.FormClosed, Sub()
initDgvSendungen() Dim f = FUNC.openSnd(sndId, AvisoID)
End Sub If f IsNot Nothing Then
End If 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 End Sub
Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick 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 If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
Vermerke_anzeigen(index) Vermerke_anzeigen(index)
initDgvSendungen()
End Sub End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click