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

SDL

Browse Source
This commit is contained in:
d.breimaier
2023-12-19 08:15:27 +01:00
parent f16c541ce4
commit 17c6e21c58
3 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

7
SDL/mdm/frmDatumsabfrage.vb
View File

@@ -13,7 +13,12 @@ Public Class frmDatumsabfrage
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Label1.Text = "" 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 Me.DialogResult = DialogResult.OK
End Sub End Sub

10
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -96,19 +96,11 @@ Public Class frmMDMDatenverarbetiung
'End If 'End If
End If End If
Case "ASFINAG" Case "ASFINAG"
'cbxASFINAGAbgerechnet.Checked = False
'cbxBelegeerstellt.Checked = False
Dim abrechnungsDatum As DateTime = Now() Dim abrechnungsDatum As DateTime = Now()
'MsgBox("Funktion nicht implementiert")
'Exit Sub
If datum = Nothing Then If datum = Nothing Then
datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG") datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG")
End If 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") 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) genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr)
@@ -263,7 +255,7 @@ Public Class frmMDMDatenverarbetiung
group by Adressen.AdressenNr,Adressen.[Name 1], contractPartner,CardNumber group by Adressen.AdressenNr,Adressen.[Name 1], contractPartner,CardNumber
order by Adressen.AdressenNr" 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 'DataGridView.DataSource = dt