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

CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-14 10:40:51 +02:00
parent 8306c6e0eb
commit a7380ff612
11 changed files with 790 additions and 477 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -221,7 +221,7 @@ Public Class usrCntlKundenuebersicht
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
btncheckliste.Visible = False
tbcntrAllg.Visible = False
'tbcntrAllg.Visible = False
Case "IMEX"
btnThereforeTarifNr.Visible = True
' btnThereforeTarifNr.Visible = False
@@ -368,8 +368,12 @@ Public Class usrCntlKundenuebersicht
usrCntlAnhaenge.Visible = True
rtbAbf_Besonderheiten.Visible = True
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then KdFirma = KdFirma.Replace("VERAG", "ATILLA") ' WENN KD STAMM ATILLA GETRENNT --> diese Zeile löschen!!!!!!
If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
lblFirma.Text = KdFirma
lblFirma.Text = KdFirma
lblFirma.Visible = True
btnVMhinzufuegen.Enabled = False
If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then