neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -156,7 +156,7 @@ Public Class usrCntlKundenuebersicht
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then
                 txtVorauskasse.Visible = True
-                Label42.Visible = True
+                lblVorkasse.Visible = True
             End If
             If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
                 btnThereforeKundeninfo.Visible = True
@@ -173,8 +173,8 @@ Public Class usrCntlKundenuebersicht
 
                     tbWeitereKundenDetails.TabPages.Remove(TabPage3)
                     tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
-                    tbcntrAllg.TabPages.Remove(TabPage6)
-                    tbcntrAllg.TabPages.Remove(TabPage7)
+                    tbcntrAllg.TabPages.Remove(tbAvisoMail)
+                    tbcntrAllg.TabPages.Remove(tbKdSpez)
                 Catch ex As Exception
 
                 End Try
@@ -220,7 +220,7 @@ Public Class usrCntlKundenuebersicht
                 Button4.Visible = True
             End If
 
-
+            VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
         Catch ex As Exception
             '  MsgBox(ex.Message & ex.StackTrace)
         End Try
@@ -1950,7 +1950,7 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
     Private Sub tbKontakt_TabIndexChanged(sender As Object, e As EventArgs) Handles tbKontakt.SelectedIndexChanged
-        If tbKontakt.SelectedTab Is TabPage11 Then
+        If tbKontakt.SelectedTab Is tbKontaktSpez Then
             initKdKontakSpeziell()
         End If
     End Sub