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