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

div. Änderungen, Gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-22 14:30:17 +02:00
parent 3cf0e28dac
commit d561ec8f27
7 changed files with 377 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1129,28 +1129,34 @@ Public Class frmSendungsdetailsNEU
initZollTarife(c.KdNr)
End Sub
Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown
If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
u.Dock = DockStyle.Fill
tbZollabfertigung.Controls.Clear()
tbZollabfertigung.Controls.Add(u)
Else
'TabControl1.TabPages.Remove(tbZollabfertigung)
End If
Try
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
Me.Close()
End If
If TabControl1.SelectedTab Is tbKundenInfo Then
txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt
End If
' Button13.Location = New Point(Button13.Left, 0)
' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
' If ber >= 99 Then
'Me.Dispose()
'Me.Close()
' Exit Sub
'nd If
If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
u.Dock = DockStyle.Fill
tbZollabfertigung.Controls.Clear()
tbZollabfertigung.Controls.Add(u)
Else
'TabControl1.TabPages.Remove(tbZollabfertigung)
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
Me.Close()
End If
If TabControl1.SelectedTab Is tbKundenInfo Then
txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt
End If
' Button13.Location = New Point(Button13.Left, 0)
' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
' If ber >= 99 Then
'Me.Dispose()
'Me.Close()
' Exit Sub
'nd If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Sub changeSelectedButton()