SDL

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.6.9")>
-<Assembly: AssemblyFileVersion("1.2.6.9")>
+<Assembly: AssemblyVersion("1.2.7.0")>
+<Assembly: AssemblyFileVersion("1.2.7.0")>

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
 

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