neu

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -127,11 +127,12 @@ Public Class frmKundenUebersichtZOLL
             mnueRechnungen.Visible = False
             mnueSpeditionsbuch.Visible = False
             mnueStatistik.Visible = False
-            toolBearbeiten.Visible = False
+            toolOptionen.Visible = False
             ToolStripMenuItem5.Visible = False
             mnueOfferte.Visible = False
             ToolStripFormulare.Visible = False
             mnueFiskal.Visible = False
+            toolNeuerKunde.Visible = False
         End If
 
 
@@ -256,13 +257,44 @@ Public Class frmKundenUebersichtZOLL
         mnueStatistik.Enabled = True
         mnueRechnungen.Enabled = True
         mnueSpeditionsbuch.Enabled = True
-        toolBearbeiten.Enabled = True
+        toolOptionen.Enabled = True
         ToolStripMenuItem5.Enabled = True
         'SchließenToolStripMenuItem.Enabled = True
         mnueFiskal.Enabled = True
 
         Me.tbcntrKundenDaten.Visible = True
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            mnueRechnungen.Visible = False
+            mnueSpeditionsbuch.Visible = False
+            mnueStatistik.Visible = False
+            mnueOfferte.Visible = False
+            If usrcntlKundenuebersicht.ADRESSE IsNot Nothing AndAlso usrcntlKundenuebersicht.ADRESSE.LandKz = "TR" Then
+                mnueRechnungen.Visible = True
+                mnueSpeditionsbuch.Visible = True
+                mnueStatistik.Visible = True
+                mnueOfferte.Visible = True
+            End If
+        End If
+
+
+        Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
+        If (KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER) And
+            Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
+
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") Then
+                mnueOfferte.Enabled = False
+                mnueRechnungen.Enabled = False
+                mnueSpeditionsbuch.Enabled = False
+                mnueStatistik.Enabled = False
+                ToolStripFormulare.Enabled = False
+                mnueFiskal.Enabled = False
+                ToolStripMenuItem5.Enabled = False
+                toolOptionen.Enabled = False
+                UsrCntlOfferte1.init(-1)
+            End If
+        Else
+        End If
         Try
             Dim cntZoll = SQL.getValueTxtBySql("SELECT COUNT(*) FROM tblZollArtikel WHERE KundenNr='" & kdnr & "'", "FMZOLL")
 
@@ -1227,4 +1259,31 @@ Public Class frmKundenUebersichtZOLL
         KdSearchBox1._AlleFirmenCLUSTER = cbx.Checked
         KdSearchBox1.RESARCH()
     End Sub
+
+    Private Sub toolNeuerKunde_Click(sender As Object, e As EventArgs) Handles toolNeuerKunde.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
+            Dim frmKundenblatt As New SDL.frmKundenblatt
+            frmKundenblatt.showEdit = True
+            frmKundenblatt.kdNr = -1
+            'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN
+            If frmKundenblatt.ShowDialog(Me) Then
+                If frmKundenblatt.kdNr > 0 Then
+                    setKD(frmKundenblatt.kdNr)
+                End If
+            End If
+        Else
+            Dim frmKd As New SDL.frmNeuerKunde
+            frmKd.openKd = False
+            frmKd.timerIntervall = 500
+            frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username
+            If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15)
+            frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
+
+            frmKd.ShowDialog()
+            If frmKd.kdnr > 0 Then
+                setKD(frmKd.kdnr)
+            End If
+        End If
+
+    End Sub
 End Class