From 17c6e21c58bc731d0bca44e24ef9c86e84a776a4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 19 Dec 2023 08:15:27 +0100 Subject: [PATCH] SDL --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/mdm/frmDatumsabfrage.vb | 7 ++++++- SDL/mdm/frmMDMDatenverarbetiung.vb | 10 +--------- 3 files changed, 9 insertions(+), 12 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b3624e12..eee4b8d1 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/mdm/frmDatumsabfrage.vb b/SDL/mdm/frmDatumsabfrage.vb index b02ca34a..42a97d00 100644 --- a/SDL/mdm/frmDatumsabfrage.vb +++ b/SDL/mdm/frmDatumsabfrage.vb @@ -13,7 +13,12 @@ Public Class frmDatumsabfrage Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Label1.Text = "" - If CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then Label1.Text = "Muss heute oder früher sein!" : Me.DialogResult = DialogResult.None : Exit Sub + If CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then + Label1.Text = "Muss heute oder früher sein!" + Me.DialogResult = DialogResult.None + Exit Sub + End If + Datum = CDate(dtp_date.Value) Me.DialogResult = DialogResult.OK End Sub diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index fc747bb5..c948365d 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -96,19 +96,11 @@ Public Class frmMDMDatenverarbetiung 'End If End If Case "ASFINAG" - - 'cbxASFINAGAbgerechnet.Checked = False - 'cbxBelegeerstellt.Checked = False Dim abrechnungsDatum As DateTime = Now() - - 'MsgBox("Funktion nicht implementiert") - 'Exit Sub - If datum = Nothing Then datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG") End If - Dim inputKdNr = InputBox("Wenn einzelner Kunde abgerechnet werde soll, bitte KdNr eingeben" & vbNewLine & "Wenn keine KdNr angegeben wird, dann werden alle Kunden abgerechnet:", "Asfinag abrechen") genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr) @@ -263,7 +255,7 @@ Public Class frmMDMDatenverarbetiung group by Adressen.AdressenNr,Adressen.[Name 1], contractPartner,CardNumber order by Adressen.AdressenNr" - Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "ASFINAG") + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") 'DataGridView.DataSource = dt