edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Feature: UsrCntl_Kundenvollmachten, Besuchsbereicht, FrmKundenvollmachten

Browse Source
This commit is contained in:
d.breimaier
2022-09-30 16:41:06 +02:00
parent 16806f5c55
commit 71c35e6fa5
16 changed files with 2762 additions and 2041 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -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 usrCntlKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
Dim l As New frmKundenZOLLVollmachten(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 usrCntlKundenZOLLVollmachten(kdNr, -1, W)
Dim l As New frmKundenZOLLVollmachten(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 usrCntlKundenZOLLVollmachten(kdNr, vmaNr)
Dim l As New frmKundenZOLLVollmachten(kdNr, vmaNr)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
End If