neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -8,8 +8,8 @@ Public Class usrCntlKundenuebersicht
     Public superuser As Boolean = False
     Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
     Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
-    Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
-    Dim AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing
+    Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
+    Public AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing
 
     Public kdNr As Integer = -1
     Private dataAdapterFirma As New SqlDataAdapter
@@ -245,7 +245,18 @@ Public Class usrCntlKundenuebersicht
         'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME)
         lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
 
+
         initAllgemein()
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            tbWeitereKundenDetails.TabPages.Remove(TabPage3)
+            tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
+            If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
+                tbWeitereKundenDetails.TabPages.Add(TabPage3)
+                tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
+            End If
+        End If
+
+
         initDGVUmsatz()
         initDGVOffenePosten()
         initDGVVollmachten()
@@ -263,7 +274,6 @@ Public Class usrCntlKundenuebersicht
         'If tbcntrKundenDaten.SelectedIndex = 1 Then initZollTarife() ' nur wenn der Tab aktiv, sonst dauert das Laden länger
         'If tbcntrKundenDaten.SelectedIndex = 3 Then initStatistik() ' nur wenn der Tab aktiv, sonst dauert das Laden länger
 
-
         ' btncheckliste.Focus()
         loaded = True
     End Sub
@@ -311,9 +321,26 @@ Public Class usrCntlKundenuebersicht
             '  Me.dataAdapterFirma.Fill(Me.dataFirma)
             conn.Close()
 
+            dgvOfferteDetailsUebersicht.Visible = True
+            dgvOffenePosten.Visible = True
+            dgvUmsatzbericht.Visible = True
+            usrCntlAnhaenge.Visible = True
+            rtbAbf_Besonderheiten.Visible = True
             Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
             If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
                 lblFirma.Text = KdFirma
+                lblFirma.Visible = True
+                If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
+                    If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
+                        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") Then
+                            dgvOfferteDetailsUebersicht.Visible = False
+                            dgvOffenePosten.Visible = False
+                            dgvUmsatzbericht.Visible = False
+                            usrCntlAnhaenge.Visible = False
+                            rtbAbf_Besonderheiten.Visible = False
+                        End If
+                    End If
+                End If
             Else
                 lblFirma.Visible = False
             End If
@@ -624,6 +651,8 @@ Public Class usrCntlKundenuebersicht
             .DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
                                                            " FROM [tblKundenumsatz] " &
                                                            " WHERE [KundenNr]='" & kdNr & "' " & where & "  ORDER BY Jahr DESC", "FMZOLL")
+            If .DataSource Is Nothing Then Exit Sub
+            If .Columns.Count = 0 Then Exit Sub
             .Columns(0).Visible = False
             .Columns(11).Visible = False
             .Columns(1).Width = 45
@@ -802,7 +831,7 @@ Public Class usrCntlKundenuebersicht
         With dgvOffertenSperrliste
             Dim where As String = ""
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-                where = "  AND Offerten.OffertenNr IN (5,6) "
+                where = "  AND Offerten.OffertenNr IN (5,6,18,24,32,33,34,37,40,7,8,9,12,13) "
             End If
 
 
@@ -1147,6 +1176,9 @@ Public Class usrCntlKundenuebersicht
             .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " &
                                                            " FROM [Offene Posten] " &
                                                            " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY Belegdatum DESC", "FMZOLL")
+            If .DataSource Is Nothing Then Exit Sub
+            If .Columns.Count = 0 Then Exit Sub
+
             .Columns(0).Visible = False
 
             .Columns(1).Width = 70