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

Timas, Gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-12 16:10:07 +01:00
parent fd0af0f843
commit f98821c15a
5 changed files with 68 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -518,20 +518,20 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim detailINfo As Boolean = True
Dim nurErstellungsdatumNotAenderungsdatum As Boolean = False
If vbYes = MsgBox("Sollen nur Datensaetze angegeben werden, deren Erstellungsdatum/Änderungsdatum vom Gestellungsdatum abweicht?", vbYesNoCancel) Then
detailINfo = True
End If
'Dim nurErstellungsdatumNotAenderungsdatum As Boolean = False
'If vbYes = MsgBox("Sollen nur Datensaetze angegeben werden, deren Erstellungsdatum/Änderungsdatum vom Gestellungsdatum abweicht?", vbYesNoCancel) Then
' nurErstellungsdatumNotAenderungsdatum = True
'End If
If sender.ToString = "Detailliste" Then
frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text, detailINfo, nurErstellungsdatumNotAenderungsdatum)
frm.LoadDataTableSicherheitenForExport2(list, datumVon, CDate(txtDatBis.Text), detailINfo, nurErstellungsdatumNotAenderungsdatum)
ElseIf sender.ToString = "Referenzliste-Zollamt" Then
If Not vbYes = MsgBox("Sollen interne Detailinfos angegeben werden?", vbYesNoCancel) Then
If Not vbYes = MsgBox("Sollen interne Detailinfos mitangegeben werden?", vbYesNoCancel) Then
detailINfo = False
End If
frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
frm.LoadDataTableSicherheitenForExport(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
Else
MsgBox("Funktion nicht definiert!")
Exit Sub
@@ -579,4 +579,15 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim webAddress As String = "https://wiki.verag.ag/e/de/software/aviso/howtos/Gesamtsicherheiten"
Process.Start(webAddress)
End Sub
Private Sub SaldoZumStichtagToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldoZumStichtagToolStripMenuItem.Click
Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False)
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
GesSichRef.CalcSaldo(, f.Datum)
End If
End Sub
End Class