SDL

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