rename frmKundenZOLLVollmachten to usrCntlKundenZollVollmachten

SDL/SDL.vbproj

@@ -1622,10 +1622,10 @@
     <Compile Include="kunden\frmKundenZOLLOffertenSperre.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="kunden\frmKundenZOLLVollmachten.Designer.vb">
-      <DependentUpon>frmKundenZOLLVollmachten.vb</DependentUpon>
+    <Compile Include="kunden\usrCntlKundenZOLLVollmachten.Designer.vb">
+      <DependentUpon>usrCntlKundenZOLLVollmachten.vb</DependentUpon>
     </Compile>
-    <Compile Include="kunden\frmKundenZOLLVollmachten.vb">
+    <Compile Include="kunden\usrCntlKundenZOLLVollmachten.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="kunden\frmKundenSucheUebersicht.Designer.vb">
@@ -3303,8 +3303,8 @@
     <EmbeddedResource Include="kunden\frmKundenZOLLOffertenSperre.resx">
       <DependentUpon>frmKundenZOLLOffertenSperre.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="kunden\frmKundenZOLLVollmachten.resx">
-      <DependentUpon>frmKundenZOLLVollmachten.vb</DependentUpon>
+    <EmbeddedResource Include="kunden\usrCntlKundenZOLLVollmachten.resx">
+      <DependentUpon>usrCntlKundenZOLLVollmachten.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenSucheUebersicht.resx">
       <DependentUpon>frmKundenSucheUebersicht.vb</DependentUpon>

SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmKundenZOLLVollmachten
+Partial Class usrCntlKundenZOLLVollmachten
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -23,7 +23,7 @@ Partial Class frmKundenZOLLVollmachten
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenZOLLVollmachten))
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenZOLLVollmachten))
         Me.pnl = New System.Windows.Forms.Panel()
         Me.btnNeu = New System.Windows.Forms.Button()
         Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)

SDL/kunden/usrCntlKundenZOLLVollmachten.vb

@@ -16,7 +16,7 @@ Imports SDL.EORI
 Imports System.Drawing
 Imports System.Runtime.DesignerServices
 
-Public Class frmKundenZOLLVollmachten
+Public Class usrCntlKundenZOLLVollmachten
     Public kdnr As Integer = -1
     Public filePath As String
     Public erhalten As Boolean = False
@@ -382,7 +382,7 @@ Public Class frmKundenZOLLVollmachten
             picPDF.Image = My.Resources.pdf_gray
         End If
 
-            setOKButton()
+        setOKButton()
 
         'Listener für Änderungen im Detail-Panel
         For Each c As Control In pnlDetails.Controls
@@ -525,4 +525,15 @@ Public Class frmKundenZOLLVollmachten
         btnOK.Visible = True
         btnSave.Visible = False
     End Sub
+
+    Private Sub hidePDFControl(hide As Boolean)
+
+        If hide Then
+            btnUploadPDF.Visible = False
+            picDeletePDF.Visible = False
+            lblPDFavailable.Visible = False
+            picPDF.Visible = False
+        End If
+
+    End Sub
 End Class

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1566,7 +1566,7 @@ Public Class usrCntlKundenuebersicht
                 'Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
                 'Dim gueltigBis = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value Is DBNull.Value, Nothing, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value)
                 'Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_archiviert").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_vermerk").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
-                Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
+                Dim l As New usrCntlKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
                 If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
                     l.initDGVVollmachtenEmbedded(False)
                     'initDGVVollmachten()
@@ -2517,7 +2517,7 @@ Public Class usrCntlKundenuebersicht
                     For Each W In FileList
                         If Not W.ToUpper.EndsWith(".EXE") Then
                             Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
-                            Dim l As New frmKundenZOLLVollmachten(kdNr, -1, W)
+                            Dim l As New usrCntlKundenZOLLVollmachten(kdNr, -1, W)
                             If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
                                 initDGVVollmachten()
                             End If
@@ -2567,7 +2567,7 @@ Public Class usrCntlKundenuebersicht
         If sender.name.contains("kdvma_id_") Then
             Dim vmaText As String = sender.name.ToString.Replace("kdvma_id_", "")
             Dim vmaNr As Integer = Convert.ToInt32(vmaText)
-            Dim l As New frmKundenZOLLVollmachten(kdNr, vmaNr)
+            Dim l As New usrCntlKundenZOLLVollmachten(kdNr, vmaNr)
             If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
 
             End If