diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 07bf24e8..14fe5b44 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -1622,10 +1622,10 @@
Form
-
- frmKundenZOLLVollmachten.vb
+
+ usrCntlKundenZOLLVollmachten.vb
-
+
Form
@@ -3303,8 +3303,8 @@
frmKundenZOLLOffertenSperre.vb
-
- frmKundenZOLLVollmachten.vb
+
+ usrCntlKundenZOLLVollmachten.vb
frmKundenSucheUebersicht.vb
diff --git a/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb b/SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb
similarity index 99%
rename from SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
rename to SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb
index b12a83bc..368af161 100644
--- a/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
+++ b/SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb
@@ -1,5 +1,5 @@
-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
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)
diff --git a/SDL/kunden/frmKundenZOLLVollmachten.resx b/SDL/kunden/usrCntlKundenZOLLVollmachten.resx
similarity index 100%
rename from SDL/kunden/frmKundenZOLLVollmachten.resx
rename to SDL/kunden/usrCntlKundenZOLLVollmachten.resx
diff --git a/SDL/kunden/frmKundenZOLLVollmachten.vb b/SDL/kunden/usrCntlKundenZOLLVollmachten.vb
similarity index 98%
rename from SDL/kunden/frmKundenZOLLVollmachten.vb
rename to SDL/kunden/usrCntlKundenZOLLVollmachten.vb
index 68c0fcf6..092f1b05 100644
--- a/SDL/kunden/frmKundenZOLLVollmachten.vb
+++ b/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
\ No newline at end of file
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index fe31edc5..24fe3704 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/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