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

RKSV_DE (Storno), Sprache div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-06 08:44:22 +01:00
parent 18bf96928a
commit 9a8b19aab4
20 changed files with 26005 additions and 3818 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -55,7 +55,7 @@ Public Class frmKundenUebersichtZOLL
'strip, such as context menu strip just add additional code
'line under InitializeComponent(), and it will work;
InitializeComponent()
MenuStripSDL.Renderer = New MyRenderer()
MenuStripKunden.Renderer = New MyRenderer()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -67,7 +67,7 @@ Public Class frmKundenUebersichtZOLL
Try
InitializeComponent()
Me.kdNr = KdNr
MenuStripSDL.Renderer = New MyRenderer()
MenuStripKunden.Renderer = New MyRenderer()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -102,6 +102,10 @@ Public Class frmKundenUebersichtZOLL
Private Sub frmKundenUebersichtZOLL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
timerOP.Interval = 500
timerOP.Enabled = False
@@ -158,9 +162,9 @@ Public Class frmKundenUebersichtZOLL
mnueSpeditionsbuch.Visible = False
mnueStatistik.Visible = False
toolOptionen.Visible = False
ToolStripMenuItem5.Visible = False
mneBearbeiten.Visible = False
mnueOfferte.Visible = False
ToolStripFormulare.Visible = False
mneFormulare.Visible = False
mnueFiskal.Visible = False
toolNeuerKunde.Visible = False
' cbx.Checked = True
@@ -247,7 +251,7 @@ Public Class frmKundenUebersichtZOLL
loaded = False
If Not (New kundenSQL).existByKdNr(kdnr) Then
Me.tbcntrKundenDaten.Visible = False
For Each m As ToolStripItem In MenuStripSDL.Items
For Each m As ToolStripItem In MenuStripKunden.Items
m.Enabled = False
Next
'initAbfVerb(False)
@@ -284,13 +288,13 @@ Public Class frmKundenUebersichtZOLL
mnueKunden.Enabled = True
mnueZoll.Enabled = True
ToolStripFormulare.Enabled = True
mneFormulare.Enabled = True
mnueOfferte.Enabled = True
mnueStatistik.Enabled = True
mnueRechnungen.Enabled = True
mnueSpeditionsbuch.Enabled = True
toolOptionen.Enabled = True
ToolStripMenuItem5.Enabled = True
mneBearbeiten.Enabled = True
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
@@ -323,9 +327,9 @@ Public Class frmKundenUebersichtZOLL
mnueRechnungen.Enabled = False
mnueSpeditionsbuch.Enabled = False
mnueStatistik.Enabled = False
ToolStripFormulare.Enabled = False
mneFormulare.Enabled = False
mnueFiskal.Enabled = False
ToolStripMenuItem5.Enabled = False
mneBearbeiten.Enabled = False
toolOptionen.Enabled = False
UsrCntlOfferte1.init(-1)
End If
@@ -631,8 +635,8 @@ Public Class frmKundenUebersichtZOLL
Sub changeTab(index As Integer, tsi As ToolStripItem)
tbcntrKundenDaten.SelectedIndex = index
For Each i As ToolStripItem In MenuStripSDL.Items
i.Font = New Font(MenuStripSDL.Font.FontFamily, MenuStripSDL.Font.Size, FontStyle.Regular)
For Each i As ToolStripItem In MenuStripKunden.Items
i.Font = New Font(MenuStripKunden.Font.FontFamily, MenuStripKunden.Font.Size, FontStyle.Regular)
Next
tsi.Font = New Font(tsi.Font.FontFamily, tsi.Font.Size, FontStyle.Underline Or FontStyle.Bold)
End Sub
@@ -1292,7 +1296,7 @@ Public Class frmKundenUebersichtZOLL
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles mneBearbeiten.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", "SDL") = 0 Then
If kdNr > 0 Then
Dim frmKundenblatt As New frmKundenblatt