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

initDGVATEZ verbessert!

Browse Source
This commit is contained in:
d.breimaier
2023-10-23 11:16:44 +02:00
parent b08980ae89
commit 1c3fdc8956
3 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Aviso.vbproj
View File

@@ -104,6 +104,7 @@
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<PlatformTarget>x64</PlatformTarget> <PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
@@ -114,6 +115,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Accessibility" /> <Reference Include="Accessibility" />

13
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6344,7 +6344,11 @@ Public Class frmSendungsdetailsNEU
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
initdgvATEZ()
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If End If
Catch ex As Exception Catch ex As Exception
@@ -6434,7 +6438,10 @@ Public Class frmSendungsdetailsNEU
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy")) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
Me.Refresh() Me.Refresh()
initdgvATEZ() AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If End If
@@ -6454,7 +6461,7 @@ Public Class frmSendungsdetailsNEU
MsgBox("Bereits gesendete Request können nicht gelöscht werden!") MsgBox("Bereits gesendete Request können nicht gelöscht werden!")
Exit Sub Exit Sub
End If End If
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie den Request " & dgvATEZNCTS.SelectedRows(0).Cells("BezugsNr").Value & " wirklich löschen?", vbYesNoCancel) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
atez.delete() atez.delete()
initdgvATEZ() initdgvATEZ()

15
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1655,8 +1655,14 @@ Public Class usrcntlAktDetailsATILLANeu
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
Me.Refresh() Me.Refresh()
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)
End Try End Try
@@ -1678,7 +1684,12 @@ Public Class usrcntlAktDetailsATILLANeu
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy")) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
Me.Refresh() Me.Refresh()
initdgvATEZ()
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If End If
@@ -1696,7 +1707,7 @@ Public Class usrcntlAktDetailsATILLANeu
MsgBox("Bereits gesendete Request können nicht gelöscht werden!") MsgBox("Bereits gesendete Request können nicht gelöscht werden!")
Exit Sub Exit Sub
End If End If
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie den Request " & dgvATEZNCTS.SelectedRows(0).Cells("BezugsNr").Value & " wirklich löschen?", vbYesNoCancel) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
atez.delete() atez.delete()
initdgvATEZ() initdgvATEZ()