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

status

Browse Source
This commit is contained in:
d.breimaier
2023-12-20 09:54:12 +01:00
parent 87ed5fc107
commit 449d981057
2 changed files with 5 additions and 5 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.7.3")> <Assembly: AssemblyVersion("1.2.7.4")>
<Assembly: AssemblyFileVersion("1.2.7.3")> <Assembly: AssemblyFileVersion("1.2.7.4")>

6
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -860,7 +860,7 @@ Public Class frmMDMDatenverarbetiung
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim verarbOK = True Dim verarbOK = True
If Not genASFINAG_SPEDBUCH_ByKdNr(R_ASFINAG("KundenNr"), SPEDBUCH) Then verarbOK = False If Not genASFINAG_SPEDBUCH_ByKdNr(R_ASFINAG("KundenNr"), SPEDBUCH) Then verarbOK = False
If Not genASFINAG_RECHNUNG_BySPEDBUCH(R_ASFINAG("KundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False If Not genASFINAG_RECHNUNG_BySPEDBUCH(R_ASFINAG("KundenNr"), SPEDBUCH) Then verarbOK = False
If verarbOK Then If verarbOK Then
@@ -2016,7 +2016,7 @@ Public Class frmMDMDatenverarbetiung
End Function End Function
Function genASFINAG_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date) Function genASFINAG_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
Try Try
'MsgBox("Funktion noch nicht vollständig implementiert!") 'MsgBox("Funktion noch nicht vollständig implementiert!")
@@ -2090,7 +2090,7 @@ Public Class frmMDMDatenverarbetiung
RG.SteuerpflichtigerGesamtbetrag = 0 RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0 RG.SteuerfreierGesamtbetrag = 0
RG.Status = 9 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen!
RG.[Vorkosten] = 0 RG.[Vorkosten] = 0
RG.[Erlös] = 0 RG.[Erlös] = 0