neu

SDL/kunden/frmKundenZOLLVollmachten.vb

@@ -1,6 +1,7 @@
 Public Class frmKundenZOLLVollmachten
     Public kdnr As Integer = -1
     Public vollmachtId As String
+    Public filePath As String
     Public erhalten As Boolean = False
     Dim id As Integer = -1
     'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
@@ -15,13 +16,30 @@
         If id IsNot DBNull.Value Then Me.id = id
 
     End Sub
+
+    Sub New(kdnr, filePath)
+        Me.InitializeComponent()
+        Me.erhalten = True
+        Me.kdnr = kdnr
+        Me.filePath = filePath
+        MyComboBox1.Visible = True
+        Me.txtDat.Text = Now.ToShortDateString
+
+    End Sub
+
     Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
         MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
         Me.MyComboBox1._value = vollmachtId
         Me.cbxErhaltenAm.Checked = erhalten
 
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "UNISPED", "IMEX", "FRONTOFFICE"
+
+        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
+            FirmaTmp = "VERAGIMEX"
+        End If
+
+        Select Case FirmaTmp
+            Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
                 Panel1.Visible = True
             Case Else
                 Panel1.Visible = True