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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-11 16:10:18 +02:00
parent 438bd8ef15
commit e38010fd79
5 changed files with 70 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -7667,7 +7667,7 @@ repeatRequest:
If dtRechnnungsdaten.Rows.Count > 0 Then
dt_falscheEintraege.Columns.Add("daid", GetType(Integer))
dt_falscheEintraege.Columns.Add("id", GetType(Integer))
dt_falscheEintraege.Columns.Add("ustva_id", GetType(Integer))
dt_falscheEintraege.Columns.Add("pos", GetType(Integer))
dt_falscheEintraege.Columns.Add("pos_new", GetType(Integer))
dt_falscheEintraege.Columns.Add("posAfterDaId", GetType(Integer))
@@ -7690,7 +7690,7 @@ repeatRequest:
If Not cUSTVA.hasEntry Then
Dim ROW As DataRow = dt_falscheEintraege.NewRow
ROW("id") = ID
ROW("ustva_id") = ID
ROW("pos") = -1
ROW("daid") = r.Item("da_id")
@@ -7716,7 +7716,7 @@ repeatRequest:
ElseIf Not cUSTVA_POS.hasEntry Then
Dim ROW As DataRow = dt_falscheEintraege.NewRow
ROW("id") = ID
ROW("ustva_id") = ID
ROW("pos") = POS
ROW("daid") = r.Item("da_id")
@@ -7747,7 +7747,7 @@ repeatRequest:
If cUSTVA_POS.UStVPo_Zeitstempel > CDate(r.Item("da_date")) Then
Dim ROW As DataRow = dt_falscheEintraege.NewRow
ROW("id") = ID
ROW("ustva_id") = ID
ROW("pos") = POS
ROW("daid") = r.Item("da_id")
ROW("posAfterDaId") = 1
@@ -8646,10 +8646,12 @@ repeatRequest:
Dim bestellung As New cEssensbestellung(row("KW"), row("ID"))
bestellung.eb_gesendet = True
bestellung.eb_gesendet_am = Now
bestellung.eb_gesendetVon = "AUTO"
If IsDBNull(bestellung.eb_gesendetFirst_am) Then bestellung.eb_gesendetFirst_am = Now()
bestellung.SAVE()
End If
End If
End If
End If
Next