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

12
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -174,7 +174,7 @@ Public Class usrCntlKundenuebersicht
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
Try
tbWeitereKundenDetails.TabPages.Remove(TabPage3)
tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
tbcntrAllg.TabPages.Remove(tbAvisoMail)
tbcntrAllg.TabPages.Remove(tbKdSpez)
@@ -264,13 +264,13 @@ Public Class usrCntlKundenuebersicht
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
Try
tbWeitereKundenDetails.TabPages.Remove(TabPage3)
tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
Catch ex As Exception
End Try
If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
tbWeitereKundenDetails.TabPages.Add(TabPage3)
tbWeitereKundenDetails.TabPages.Add(tbUmsatz)
tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
End If
End If
@@ -669,9 +669,9 @@ Public Class usrCntlKundenuebersicht
End Sub
Sub initDGVAnhaenge()
usrCntlAnhaenge.INIT(kdNr)
TabPage8.Text = "Anhänge"
tbAnhaenge.Text = "Anhänge"
' MsgBox(usrCntlAnhaenge.MyListBox1.Items.Count)
If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then TabPage8.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")"
If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then tbAnhaenge.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")"
Exit Sub
With dgvAnhaenge
.DataSource = SQL.loadDgvBySql("SELECT [da_id],[da_pfad],[da_name] FROM [tblDatenarchiv] " &
@@ -2030,7 +2030,7 @@ Public Class usrCntlKundenuebersicht
End If
End Sub
Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles FlatButton5.Click
Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles btnSaveOfferte.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("OFFERTEN_SPERRE", "SDL") > 0 Then
Exit Sub
End If